×
Linguagem de Programação ADVPL
Perguntas Erro em Execauto
- jrBrittes
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 23
- Obrigados Recebidos: 0
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
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
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