Exemplos: | #INCLUDE "PROTHEUS.CH"
User Function Tmata490()
Local aVetor := {}
Private lMsErroAuto := .F.
Private lMsHelpAuto := .T.
aVetor:={ {"E3_VEND","000002",NIL},;
{"E3_NUM","000000233",NIL},;
{"E3_EMISSAO",dDataBase,NIL},;
{"E3_SERIE","1",NIL},;
{"E3_CODCLI","000005",NIL},;
{"E3_LOJA","16",NIL},;
{"E3_BASE",2000.00,NIL},;
{"E3_PORC",10,NIL},;
{"E3_PREFIXO","1",NIL},;
{"E3_PARCELA","A",NIL},;
{"E3_SEQ"," ",NIL},;
{"E3_MOEDA","01",NIL},;
{"E3_VENCTO",dDataBase,NIL},;
{"E3_PROCCOM","TESTE INCLUSAO",NIL}}
MSExecAuto({|x,y| mata490(x,y)},aVetor,3) //Inclusao
If lMsErroAuto
Alert("Erro Inclusão")
MostraErro()
Endif
SE3->(dbSetOrder(1))
SE3->(dbSeek(xFilial("SE3")+"1 "+"000000233"+"A"+" "+"000002"))
aVetor:={ {"E3_VEND","000002",NIL},;
{"E3_NUM","000000233",NIL},;
{"E3_EMISSAO",dDataBase,NIL},;
{"E3_SERIE","1 ",NIL},;
{"E3_CODCLI","000005",NIL},;
{"E3_LOJA","16",NIL},;
{"E3_BASE",1000.00,NIL},;
{"E3_PORC",5,NIL},;
{"E3_PREFIXO","1 ",NIL},;
{"E3_PARCELA","A",NIL},;
{"E3_SEQ"," ",NIL},;
{"E3_MOEDA","01",NIL},;
{"E3_VENCTO",dDataBase+4,NIL},;
{"E3_PROCCOM","TESTE INCLUSAO",NIL}}
lMsErroAuto := .F.
MSExecAuto({|x,y| mata490(x,y)},aVetor,4) //Alteracao
If lMsErroAuto
Alert("Erro Alteração")
MostraErro()
Endif
SE3->(dbSetOrder(1))
SE3->(dbSeek(xFilial("SE3")+"1 "+"000000233"+"A"+" "+"000002"))
aVetor:={ {"E3_VEND","000002",NIL},;
{"E3_NUM","000000233",NIL},;
{"E3_EMISSAO",dDataBase,NIL},;
{"E3_SERIE","1 ",NIL},;
{"E3_CODCLI","000005",NIL},;
{"E3_LOJA","16",NIL},;
{"E3_PREFIXO","1 ",NIL},;
{"E3_PARCELA","A",NIL},;
{"E3_SEQ"," ",NIL},;
{"E3_MOEDA","01",NIL}}
lMsErroAuto := .F.
MSExecAuto({|x,y| mata490(x,y)},aVetor,5) //Exclusao
If lMsErroAuto
Alert("Erro Exclusão")
MostraErro()
Endif
Alert("Teste MSEXECAUTO MATA490 finalizado...")
Return |
|---|
