Perguntas Proximo numero documento de saída

//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//³ 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})