× Linguagem de Programação ADVPL

Perguntas Erro após Atualização MSExecAuto na E2

Mais
10 anos 1 mês atrás #25335 por eljusticeiro
Bom dia galera,

Tenho um programa, simples que após a a atualização começou a dar erro: Segue

aVetorSE2 := {{ "E2_PREFIXO" , "PAC" , NIL},;
{ "E2_NUM" , cNotaB , NIL},;
{ "E2_PARCELA" , "01" , NIL},;
{ "E2_TIPO" , "BOL" , NIL},;
{ "E2_FORNECE" , "000331" , NIL},;
{ "E2_LOJA" , xFilial("SE2") , NIL},;
{ "E2_NATUREZ" , "2010010" , NIL},;
{ "E2_EMISSAO" , dDataBase , NIL},;
{ "E2_VENCTO" , cZ3_DTCONTR , NIL},;
{ "E2_VENCREA" , DataValida(cZ3_DTCONTR) , NIL},;
{ "E2_VALOR" , 225 , NIL},;
{ "E2_VLCRUZ" , 225 , NIL},;
{ "E2_MOEDA" , 1 , NIL},;
{ "E2_ORIGEM" , "BIO0002" , NIL},;
{ "E2_FLUXO" , "N" , Nil},;
{ "E2_XXTPPAC" , cXXTPPAC , Nil},;
{ "E2_XXFUPAC" , "S" , Nil},;
{ "E2_XXCDPAC" , cZ3_COD , Nil},;
{ "E2_LA" , "" , Nil}}
lMsErroAuto := .F.
MSExecAuto({|x,y,z| Fina050(x,y,z)},aVetorSE2,,3)

O Erro
Tabela SE2 24/09/14 08:20:34

Prefixo - E2_PREFIXO := PAC

No. Titulo - E2_NUM := 00017584

Parcela - E2_PARCELA := 01

Tipo - E2_TIPO := BOL

Fornecedor - E2_FORNECE := 000331

Loja - E2_LOJA := 01

Natureza - E2_NATUREZ := 2010010

DT Emissao - E2_EMISSAO := 24/09/14

Vencimento - E2_VENCTO := 24/09/14

Vencto Real - E2_VENCREA := 24/09/14

Vlr.Titulo - E2_VALOR := 225 < -- Invalido

Vlr R$ - E2_VLCRUZ := 225

Moeda - E2_MOEDA := 1

Origem - E2_ORIGEM := BIO0002

FUPROM/PAC - E2_XXFUPAC := S

Tipo Tit PAC - E2_XXTPPAC := 3

Fluxo Caixa - E2_FLUXO := N

Codigo Pac - E2_XXCDPAC := 000006393

Ident. Lanc. - E2_LA :=

Erro --> Ocorreu um erro durante a validacao:

invalid typecast in file c:\advtec9\advpl\instrvar.inl at line 844

on FA050NAT2 line : 7829


JÁ TENTEI VAL(225) e nada.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.071 segundos
Joomla templates by a4joomla