...
Portuguese | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Ponto-de-Entrada: FISVLNFSE - Validação de Transmissão das Notas Fiscais de Serviço
Descrição: Este ponto de entrada foi disponibilizado a fim de permitir a validação da transmissão das Notas Fiscais pela rotina FISA022. Eventos Programa Fonte FISA022.PRW Sintaxe FISVLNFSE - Validação de Transmissão das Notas Fiscais de Serviço ( [ PARAMIXB ] ) --> lTran Parâmetros:
Retorno lTran
Observações Exemplos User Function FISVLNSFEFISVLNFSE() Local lTran :=.T. Local cTipo :=PARAMIXB[1] Local cFil :=PARAMIXB[2] Local cEmissao :=PARAMIXB[3] Local cNota :=PARAMIXB[4] Local cSerie :=PARAMIXB[5] Local cClieFor :=PARAMIXB[6] Local cLoja :=PARAMIXB[7] Local cEspec :=PARAMIXB[8] Local cFormul :=PARAMIXB[9] dbSelectArea("SD2") dbSetOrder(3) dbseek(cFil+cNota+cSerie+cClieFor+cLoja) While !EOF() .AND. SD2->D2_FILIAL+SD2->D2_DOC+SD2->D2_SERIE+SD2->D2_CLIENTE+SD2->D2_LOJA == cFil+cNota+cSerie+cClieFor+cLoja If VAL(SD2->D2_TES) <> 502 lRetorna:=.F. Exit EndIf dbSkip() End Return lTran Variáveis
|