Perguntas Consulta sequência de NF's

Bom dia pessoal.


Alguém tem ou usa, uma query para verificar a sequência de numeração de NF's?


As vezes a sequência não é respeitada aqui na empresa onde trabalho, só queria entender o porque o sistema "pula" essas notas.


abraço

Boa tarde!


Primeiro verifique se o controle de numeração está no Hardlock ou nos arquivos SXE e SXF. Você pode criar uma rotina assim;

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Dados do Cabecalho da Nota Fiscal de Entrada (Devolucao). ³
// Selecione o Numero da Nota Fiscal para Formulario Proprio
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
Private cNumero:= ""
Private cSerie := ""
lOk := Sx5NumNota(@cSerie,SuperGetMV("MV_TPNRNFS"))
If !lOk
RestArea(aArea)
AADD(aErro,"-> Nfe Importação [" + cNumNF + "] Erro Obtendo Numero NFE Interno")
Loop
Endif

cNFiscal := cNumero
cF1_SERIE := cSerie
cF1_Especie := "SPED "

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ Verifica se a Nota Fiscal / Serie ja existe no Arquivo. ³
//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
While .T.
dbSelectArea("SF1")
dbSetOrder(1)
If !dbSeek(xFilial() + cNFiscal + cF1_SERIE)
Exit
EndIf

cNFiscal := Soma1(cNFiscal, TAMSX3("F1_DOC")[1])
EndDo

cF1_Doc := cNFiscal

AAdd(aCab,{"F1_DOC" , cNFiscal ,Nil,Nil})
AAdd(aCab,{"F1_SERIE" , cF1_Serie ,Nil,Nil})

Isto acontece (pular seqûencia) pela concorrência de uso na tabela de numeração. Assim que um usuário abre a rotina ele reserva esta numeração, outro usuário entra no momento, ele recebe a próxima numeração, o primeiro usuário não conclui por algum motivo o lançamento, a sequência perde aquela numeração.

Espero ter ajudado. OBS O fonte pertence à Luiz V Alves