- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- MSExecAuto no mata625
×
Linguagem de Programação ADVPL
Perguntas MSExecAuto no mata625
- andreia296
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 38
- Obrigados Recebidos: 0
9 anos 11 meses atrás #26327
por andreia296
MSExecAuto no mata625 foi criado 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
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
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
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
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
9 anos 11 meses atrás #26332
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
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
// 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.
- andreia296
- Autor do Tópico
- Desconectado
- Membro Júnior
Menos
Mais
- Postagens: 38
- Obrigados Recebidos: 0
9 anos 11 meses atrás #26347
por andreia296
Respondido por andreia296 no tópico MSExecAuto no mata625
Deu mesmo erro
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- MSExecAuto no mata625
Tempo para a criação da página:0.123 segundos