Perguntas Mata265

Mais
6 anos 3 semanas atrás #32479 por rogerio.machado1
Mata265 foi criado por rogerio.machado1
Boa tarde,

Estou fazendo uma rotina automatica para endereçamento, porém está me retornando o seguinte erro:

HELP: SEQUÊNCIAL NÃO LOCALIZADO NO ARQUIVO SDA OU NÃO FOI INFORMADO !

Estou postando também o meu fonte.


#Include "Protheus.ch"
#Include "RwMake.CH"
#include "tbiconn.ch"

/*/
ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
±³Programa ³ MT103FIM ³ Autor ³ Rogerio Machado ³ Data ³ 20/02/2018 ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄ´±±
±±³Descri‡ao ³ Ponto de Entrada - Enderecando NF de Entrada ³±±
±±ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´±±
/*/

User Function MT103FIM()

Local nOpcao := PARAMIXB[1] // Opção Escolhida pelo usuario no aRotina
Local nConfirma := PARAMIXB[2] // Se o usuario confirmou a operação de gravação da NFE
Local aCabSDA := {}
Local aItSDB := {}
Local _aItensSDB := {}
Private lMsErroAuto := .F.

If nConfirma == 1
dbSelectArea("SD1")
SD1->(DbSetOrder(1))
SD1->(DbSeek(xFilial("SD1") + SF1->F1_DOC+ SF1->F1_SERIE+ SF1->F1_FORNECE+ SF1->F1_LOJA))

Alert("Nota: " +D1_DOC+ " Produto: " +D1_COD+ " Quant.: " +CvalToChar(D1_QUANT)+ " NUMSEQ: " +D1_NUMSEQ)

While (SD1->D1_DOC+SD1->D1_SERIE+SD1->D1_FORNECE+SD1->D1_LOJA == SF1->F1_DOC+ SF1->F1_SERIE+ SF1->F1_FORNECE+ SF1->F1_LOJA)
aCabSDA := {{"DA_FILIAL" ,"D1_FILIAL" ,Nil},;
{"DA_PRODUTO" ,"D1_COD" ,Nil},;
{"DA_NUMSEQ" ,"D1_NUMSEQ" ,Nil}}

aItSDB := {{"DB_ITEM" ,"D1_ITEM" ,Nil},;
{"DB_ESTORNO" ," " ,Nil},;
{"DB_LOCAL" ,"D1_LOCAL" ,Nil},;
{"DB_LOCALIZ" ,"D1_XLOCALI" ,Nil},;
{"DB_DATA" ,dDataBase ,Nil},;
{"DB_QUANT" ,"D1_QUANT" ,Nil}}

aadd(_aItensSDB,aItSDB)

MATA265( aCabSDA, _aItensSDB, 3)
If lMsErroAuto
MostraErro()
Else
MsgAlert("Processamento Ok!")
Endif

SD1->(DbSkip())
End
EndIf

Return

Por favor Acessar ou Registrar para participar da conversa.

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