Histórico da Página

Função utilizada para gerar a 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

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

aAuto := {}
aAdd(aAuto,{"E3_VEND" ,SA3->A3_COD ,Nil})
aAdd(aAuto,{"E3_NUM" ,"123456789" ,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" ,"ALTERACAO" ,Nil})
aAdd(aAuto,{"E3_MOEDA" ,"01" ,Nil})

MSExecAuto({|x,y| Mata490(x,y)},aAuto,4) //Alteração

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

aAdd(aAuto,{"E3_VEND" ,SA3->A3_COD ,Nil})
aAdd(aAuto,{"E3_NUM" ,"123456789" ,Nil})
aAdd(aAuto,{"E3_CODCLI" ,SA1->A1_COD ,Nil})
aAdd(aAuto,{"E3_LOJA" ,SA1->A1_LOJA ,Nil})
aAdd(aAuto,{"E3_PREFIXO" ,"001" ,Nil})
aAdd(aAuto,{"E3_PARCELA" ,"1" ,Nil})
aAdd(aAuto,{"E3_TIPO" ,"DH" ,Nil})

MSExecAuto({|x,y| Mata490(x,y)},aAuto,5) //Exclusão

If lMsErroAuto
Conout("Ocorreu algum problema.")
MOSTRAERRO()
Else
Conout("Executado com sucesso.")
Endif

RESET ENVIRONMENT

Return Nil

Português (Brasil)

Microsiga Protheus11 e Microsiga Protheus12

Todos

Todas

MATA490.PRX