× Linguagem de Programação ADVPL

Perguntas Erro em Execauto

Mais
11 anos 9 meses atrás - 11 anos 9 meses atrás #10061 por jrBrittes
Erro em Execauto foi criado por jrBrittes
Senhores estou com problema em uma base de Protheus 10 que por incrível que pareça só acontece em um ambiente mesmo o outro ambiente sendo igual somente com RPO diferente.

Quando executo um execauto para criação de um produto ele retorna esse erro em anexo, ja dropei as duas tabelas SB1 e SB2 e o erro persiste alguém ja teve algum problema parecido.

criei uma função simples para ver se era algum pau na outra rotina mas mesmo com esse simples fonte da o erro.

User Function TMata010()

Local aVetor := {}

lMsErroAuto := .F.

aVetor:= {{"B1_COD" ,"999999999999999",Nil},;
{"B1_DESC" ,"Teste" ,Nil},;
{"B1_TIPO" ,"PA" ,Nil},;
{"B1_UM" ,"UN" ,Nil},;
{"B1_UM" ,"UN" ,Nil},;
{"B1_POSIPI" ,"33051000" ,Nil},;
{"B1_LOCPAD" ,"01" ,Nil}}

MSExecAuto({|x,y| Mata010(x,y)},aVetor,3) //Inclusao

If lMsErroAuto
Mostraerro()
Alert("Erro")
Else
Alert("Ok")
Endif

Return
Anexos:
Ultima edição: 11 anos 9 meses atrás por jrBrittes.

Por favor Acessar ou Registrar para participar da conversa.

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