Perguntas MsExecAuto

Galera, Boa Tarde !

Desenvolvi uma rotina de Contratos à Receber e nela utilizo a MsExecAuto para integrar os títulos com o FINA040, porém o que me acontece o programa percorre inteiro e completa a integração porém se eu for no Contas à Receber não tem os títulos lá.


aTitulo :={ {"E1_PREFIXO" ,cPrefixo ,Nil},;
{"E1_NUM" ,SZ5->Z5_CODCTT ,Nil},;
{"E1_PARCELA" ,SZ5->Z5_PARC ,Nil},;
{"E1_TIPO" ,cTipo ,Nil},;
{"E1_NATUREZ" ,SZ5->Z5_NAT ,Nil},;
{"E1_CLIENTE" ,SZ5->Z5_CLIENTE ,Nil},;
{"E1_LOJA" ,SZ5->Z5_LOJA ,Nil},;
{"E1_HIST" ,"Contrato de Recebimento: " + SZ5->Z5_CODCTT ,Nil},;
{"E1_EMISSAO" ,dEmissao ,NIL},;
{"E1_VENCTO" ,SZ6->Z6_VCTO ,NIL},;
{"E1_VENCREA" ,DataValida(SZ6->Z6_VCTO,.T.) ,NIL},;
{"E1_VALOR" ,SZ6->Z6_Valor ,Nil},;
{"E1_PREFORI" ,"CTT" ,Nil},;
{"E2_ORIGEM" ,"rec04" ,Nil}}

MSExecAuto({|x,y| Fina040(x,y)},Titulo,3) //Inclusao


Se alguém poder me ajudar, ficarei muito agradecido.

*segue anexo o fonte

Campo E2_ORIGEM já está alterado para E1_ORIGEM

Luiz,

Fiz algumas alterações e quando o programa começa a percorrer a MsExecauto ele da erro de comparação.

type mismatch on + on INTTITULOS(REC04.PRW) 25/10/2013 09:38:22 line : 110


aTitulo :={ {"E1_PREFIXO" ,cPrefixo ,Nil},;
{"E1_NUM" ,SZ5->Z5_CODCTT ,Nil},;
{"E1_VALOR" ,SZ6->Z6_VALOR ,Nil},;
{"E1_PARCELA" ,SZ5->Z5_PARC ,Nil},;
{"E1_CLIENTE" ,SZ5->Z5_CLIENTE ,Nil},;
{"E1_LOJA" ,SZ5->Z5_LOJA ,Nil},;
{"E1_NATUREZ" ,SZ5->Z5_NAT ,Nil},;
{"E1_TIPO" ,cTipo ,Nil},;
{"E1_HIST" ,"Contrato de Recebimento: " + SZ5->Z5_CODCTT ,Nil},;
{"E1_EMISSAO" ,dEmissao ,NIL}}
{"E1_VENCTO" ,SZ6->Z6_VCTO ,NIL}}
{"E1_VENCREA" ,SZ6->Z6_VCTO ,NIL}}
{"E1_PREFORI" ,"CTT" ,Nil}}
{"E1_ORIGEM" ,"Teste" ,Nil}}

MSExecAuto({|x,y| Fina040(x,y)},aTitulo,,3) //Inclusao

Exatamente Luiz