× Linguagem de Programação ADVPL

Perguntas MSExecAuto no mata625

Mais
9 anos 11 meses atrás #26327 por andreia296
Bom dia


Estou fazendo uma rotina automática pegando as informações Mata681 para o Mata265 porem ele esta dando esse erro

HELP: SEQUÊNCIAL NÃO LOCALIZADO NO ARQUIVO SDA OU NÃO FOI INFORMADO !
Já usei a rotina: ProxNum() e NextNumero("SDA",1,"DA_NUMSEQ",.T.), porem o erro persiste

:S cNum := ProxNum() //NextNumero("SDA",1,"DA_NUMSEQ",.T.)


aCab:={{"DA_FILIAL" , xFilial('SDA') ,Nil},;
{"DA_PRODUTO" , SH6->H6_PRODUTO ,Nil},;
{"DA_QTDORI" , SH6->H6_QTDPROD ,Nil},;
{"DA_DATA" , dDatabase ,Nil},;
{"DA_LOTECTL" , SH6->H6_LOTECTL ,Nil},;
{"DA_LOCAL" , SH6->H6_LOCAL ,Nil},;
{"DA_ORIGEM" , 'SD3' ,Nil},;
{"DA_DOC" , SH6->H6_OP ,Nil},;
{"DA_NUMSEQ" ,cNum ,Nil}}




Alguém já passou por isso e pode me dar auxilio??


desde já agradeço


Andreia :ohmy:

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 11 meses atrás #26332 por lalberto
Respondido por lalberto no tópico MSExecAuto no mata625
Segue um exemplo que peguei aqui:

// Posicionando SDA
dbSelectArea('SDA')
SDA->(dbSetOrder(1)) // Filial + Produto + Local
If SDA->(dbSeek(xFilial('SDA')+SB1->B1_COD+SB1->B1_LOCPAD))
// Preparando Arrays para enderecamento
cItem:= '001'
aCab := {}
aDet := {}
Aadd(aCab, {"DA_PRODUTO", SDA->DA_PRODUTO , nil})
Aadd(aCab, {"DA_QTDORI" , SDA->DA_QTDORI , nil})
Aadd(aCab, {"DA_SALDO" , SDA->DA_SALDO , nil})
Aadd(aCab, {"DA_DATA" , SDA->DA_DATA , nil})
Aadd(aCab, {"DA_LOTECTL", SDA->DA_LOTECTL , nil})
Aadd(aCab, {"DA_NUMLOTE", SDA->DA_NUMLOTE , nil})
Aadd(aCab, {"DA_LOCAL" , SDA->DA_LOCAL , nil})
Aadd(aCab, {"DA_DOC" , SDA->DA_DOC , nil}) // 8
Aadd(aCab, {"DA_SERIE" , SDA->DA_SERIE , nil}) // 9
Aadd(aCab, {"DA_CLIFOR" , SDA->DA_CLIFOR , nil})
Aadd(aCab, {"DA_LOJA" , SDA->DA_LOJA , nil})
Aadd(aCab, {"DA_TIPONF" , SDA->DA_TIPONF , nil})
Aadd(aCab, {"DA_ORIGEM" , SDA->DA_ORIGEM , nil})
Aadd(aCab, {"DA_NUMSEQ" , SDA->DA_NUMSEQ , nil})
Aadd(aCab, {"DA_QTSEGUM", SDA->DA_QTSEGUM , nil})
Aadd(aCab, {"DA_QTDORI2", SDA->DA_QTDORI2 , nil})
// Definindo Item
aItem:= {}
Aadd(aItem, {"DB_ITEM" , cItem , nil})
Aadd(aItem, {"DB_LOCALIZ" , "00Z00" , nil})
Aadd(aItem, {"DB_QUANT" , SDA->DA_SALDO , nil})
Aadd(aItem, {"DB_HRINI" , Time() , nil})
Aadd(aItem, {"DB_DATA" , MsDate() , nil})
Aadd(aItem, {"DB_ESTORNO" , '' , nil})
// Adicionado Item ao Detalhe
Aadd(aDet,aItem)
// Incrementando contador de Item
cItem := Soma1(cItem,3)
// Enderecando
lMsErroAuto := .F.
// Iniciando Transacao
Begin Transaction
// Rotina Automatica
MsExecAuto({|x,y,z| mata265(x,y,z)}, aCab, aDet, 3 ) // 3-Distribui, 4-Estorna
IF lMsErroAuto
// Disarma transacao
DisarmTransaction()
Endif
End Transaction

Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br

Por favor Acessar ou Registrar para participar da conversa.

Mais
9 anos 11 meses atrás #26347 por andreia296
Respondido por andreia296 no tópico MSExecAuto no mata625
Deu mesmo erro


:evil: :( :angry:

Por favor Acessar ou Registrar para participar da conversa.

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