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 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 |
---|