Histórico da Página

Função utilizada para geração da Comissão de Vendas via rotina automática (ExecAuto).

#INCLUDE "PROTHEUS.CH"
#INCLUDE "TBICONN.CH"

User Function MyMata490()

Local aAuto := {}

lMsErroAuto := .F.

PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01" MODULO "FAT" TABLES "SE3","SA1","SA3"

//Posiciona no Cliente/Loja
SA1->(dbSetOrder(1))
SA1->(dbSeek(xFilial("SA1")+"00000402"))

//Posiciona no Vendedor
SA3->(dbSetOrder(1))
SA3->(dbSeek(xFilial("SA3")+"000001"))

//***** Exemplo de Inclusão *****
aAdd(aAuto,{"E3_VEND" ,SA3->A3_COD ,Nil})
aAdd(aAuto,{"E3_NUM" ,"123456" ,Nil})
aAdd(aAuto,{"E3_EMISSAO" ,dDataBase ,Nil})
aAdd(aAuto,{"E3_SERIE" ,"UNI" ,Nil})
aAdd(aAuto,{"E3_CODCLI" ,SA1->A1_COD ,Nil})
aAdd(aAuto,{"E3_LOJA" ,SA1->A1_LOJA ,Nil})
aAdd(aAuto,{"E3_BASE" ,1000 ,Nil})
aAdd(aAuto,{"E3_PORC" ,10 ,Nil})
aAdd(aAuto,{"E3_DATA" ,dDataBase ,Nil})
aAdd(aAuto,{"E3_PREFIXO" ,"001" ,Nil})
aAdd(aAuto,{"E3_PARCELA" ,"1" ,Nil})
aAdd(aAuto,{"E3_SEQ" ,"  " ,Nil})
aAdd(aAuto,{"E3_TIPO" ,"DH" ,Nil})
aAdd(aAuto,{"E3_PEDIDO" ,"654321" ,Nil})
aAdd(aAuto,{"E3_VENCTO" ,dDataBase ,Nil})
aAdd(aAuto,{"E3_PROCCOM" ,"INCLUSAO" ,Nil})
aAdd(aAuto,{"E3_MOEDA" ,"01" ,Nil})

MSExecAuto({|x,y| Mata490(x,y)},aAuto,3) //Inclusao

If lMsErroAuto
Conout("Erro")
MOSTRAERRO()
Else
Conout("Incluído com sucesso.")
Endif

//***** Exemplo de Alteração *****
SE3->(dbSetOrder(13)) //E3_FILIAL+E3_VEND+E3_CODCLI+E3_LOJA+E3_PREFIXO+E3_NUM+E3_PARCELA
SE3->(dbSeek(xFilial("SE3")+"1 "+"000000233SA3->A3_COD+SA1->A1_COD+SA1->A1_LOJA+"001"+"A123456789"+"1"+"000002DH"))

aVetoraAuto := {}
aAdd(aAuto,{"E3_VEND" ,"000002",NIL},;
SA3->A3_COD ,Nil})
aAdd(aAuto,{"E3_NUM" ,"000000233123456789" ,NILNil})
aAdd(aAuto,;
{"E3_EMISSAO" ,dDataBase ,NILNil})
aAdd(aAuto,;
{"E3_SERIE" ,"1 UNI" ,NILNil})
aAdd(aAuto,;
{"E3_CODCLI" ,"000005",NIL},;
SA1->A1_COD ,Nil})
aAdd(aAuto,{"E3_LOJA" ,"16",NIL},;
SA1->A1_LOJA ,Nil})
aAdd(aAuto,{"E3_BASE" ,1000 .00 ,NILNil})
aAdd(aAuto,;
{"E3_PORC" ,510 ,NIL},;
Nil})
aAdd(aAuto,{"E3_DATA" ,dDataBase ,Nil})
aAdd(aAuto,{"E3_PREFIXO" ,"1 001" ,NILNil})
aAdd(aAuto,;
{"E3_PARCELA" ,"A1" ,NILNil})
aAdd(aAuto,;
{"E3_SEQ" ," " ,NILNil},;
)
aAdd(aAuto,{"E3_TIPO" ,"DH" ,Nil})
aAdd(aAuto,{"E3_MOEDAPEDIDO" ,"01654321" ,NILNil})
aAdd(aAuto,;
{"E3_VENCTO" ,dDataBase +4 ,NILNil})
aAdd(aAuto,;
{"E3_PROCCOM" ,"TESTE INCLUSAOALTERACAO" ,Nil})
aAdd(aAuto,{"E3_MOEDA" ,"01" ,Nil})

NIL}}
lMsErroAuto := .F.
MSExecAuto({|x,y| mata490Mata490(x,y)},aVetoraAuto,4) //Alteracao
If lMsErroAuto
Alert("Erro Alteração") MostraErro()
Endif

//***** Exemplo de Exclusão *****
SE3->(dbSetOrder(13)) //E3_FILIAL+E3_VEND+E3_CODCLI+E3_LOJA+E3_PREFIXO+E3_NUM+E3_PARCELA
SE3->(dbSeek(xFilial("SE3")+"1 "+"000000233+SA3->A3_COD+SA1->A1_COD+SA1->A1_LOJA+"001"+"A123456789"+"1"+"000002DH"))

aVetor:={ aAdd(aAuto,{"E3_VEND" ,"000002",NIL},;
SA3->A3_COD ,Nil})
aAdd(aAuto,{"E3_NUM" ,"000000233123456789" ,NILNil})
aAdd(aAuto,;
{"E3_EMISSAOCODCLI" ,dDataBase,NIL},;
{"E3_SERIE","1 ",NIL},;
SA1->A1_COD ,Nil})
aAdd(aAuto,{"E3_CODCLILOJA" ,"000005",NIL},;
{"E3SA1->A1_LOJA " ,"16",NIL},;
Nil})
aAdd(aAuto,{"E3_PREFIXO" ,"1 001" ,NILNil})
aAdd(aAuto,;
{"E3_PARCELA" ,"A1" ,NILNil},;
{"E3_SEQ"," ",NIL},;
)
aAdd(aAuto,{"E3_MOEDATIPO" ,"01DH" ,NIL}}
lMsErroAuto := .F. Nil})

MSExecAuto({|x,y| mata490Mata490(x,y)},aVetoraAuto,5) //Exclusao Exclusão

If lMsErroAuto
Alert Conout("Erro ExclusãoOcorreu algum problema.")
MostraErro MOSTRAERRO()
Endif Else
Alert Conout("Teste MSEXECAUTO MATA490 finalizado..Executado com sucesso.")
Endif

RESET ENVIRONMENT

Return Nil

Português (Brasil)

Microsiga _ Protheus11 e Microsiga Protheus12

Todos

Todas

MATA490.PRX