Exemplos: | #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 |
|---|
