Prezados,
Não estou entendendo porque a rotina retorna o erro "on MSGETDAUTO(MSAUTOPR.PRW)"
peguei o RPO padrão sem nada criei um cliente, um produto, uma tes, uma natureza, e uma condição de pagamento.
fiz o MSexecAuto da rotina MATA410 e estoura o erro quando chamo dentro do sistema via menu.
esse erro acontece também com RPO atualizado e Lib.
Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.
Sandro,
O carregamento do array dos itens precisa ser alterado.
Para cada Produto/Item carregado no array deverá adicionar um novo array ( ficando cada item em um sub array ).
Segue exemplo:
aDataIte:= { {'C6_ITEM' ,'01' ,Nil},;
{'C6_PRODUTO','TESTE' ,Nil},;
{'C6_QTDVEN' ,1 ,Nil},;
{'C6_PRCVEN' ,1525 ,Nil},;
{'C6_PRUNIT' ,1525 ,Nil},;
{'C6_TES' ,'501' ,Nil},;
{'C6_VALOR' ,1525 ,Nil} }
aAdd(aItens, aDataIte)
aDataIte := {}
MSExecAuto({|a, b, c, d| MATA410(a, b, c)}, aDataCab, aItens, 3 )
Obrigado Jorge Alberto, havia esquecido desse detalhe…
AAdd(aDataIte,{ {‘C6_ITEM’ ,‘01’ ,Nil},;
{‘C6_PRODUTO’,‘TESTE’ ,Nil},;
{‘C6_QTDVEN’ ,1 ,Nil},;
{‘C6_PRCVEN’ ,1525 ,Nil},;
{‘C6_PRUNIT’ ,1525 ,Nil},;
{‘C6_TES’ ,‘501’ ,Nil},;
{‘C6_VALOR’ ,1525 ,Nil} })
Legal Sandro… marca por favor que a resposta foi útil, obrigado !
Olá a todos... acabei de chegar nesse tópico com o mesmo problema do sandro, porém, aplicando a solução do Jorge, o problema persistiu...
Ainda não terminei o fonte, falta muita coisa, e varias melhorias... mas preciso fazer ele funcionar antes de evoluir ele... se alguem tiver alguma sugestão para o problema e correção, agradeço
Seu fonte chega a executar o execauto?
Tem um erro nas seguintes linhas:
ConOut(aHeader[‘C5_NUM’])
ConOut(aItems[1][‘C6_ITEM’])
Arrays em AdvPL são indexados por número, vc está passando o nome do campo.
Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.