- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Erro após Atualização MSExecAuto na E2
×
Linguagem de Programação ADVPL
Perguntas Erro após Atualização MSExecAuto na E2
- eljusticeiro
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 4
- Obrigados Recebidos: 0
10 anos 1 mês atrás #25335
por eljusticeiro
Erro após Atualização MSExecAuto na E2 foi criado 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.
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.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Erro após Atualização MSExecAuto na E2
Tempo para a criação da página:0.071 segundos