Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: NFSERVIC - Impreme diversos tipos de Notas Fiscais
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Este ponto de entrada possibilita a impressão da Nota Fiscal de Diversos, utilizado para Nota Fiscal de Comissão (serviço) para Faturamento Direto.
Eventos
 User Function NFSERVIC()
Local cNumNF := ParamIxb[01]  // Parametro 1 - Numero da Nota Fiscal
Local cSerNF := ParamIxb[02]  // Parametro 2 - Serie da Nota Fiscal
Local cTipNF := ParamIxb[03]  // Parametro 3 - Tipo de Nota Fiscal
If cTipNF == "CFD" // Comissão de Faturamento Direto
If !Empty(cNumNF+cSerNF)
MsgAlert("Ponto de Entrada NFSERVIC ( Nota Fiscal de Comissão de Faturamento Direto ) executado com sucesso!","Atenção")
EndIf
EndIf
Return()
Programa Fonte 
VEIXI001, VEIVM010, VEIVM011, VEIVMM01, VEIVR240.
Sintaxe

NFSERVIC - Impreme diversos tipos de Notas Fiscais ( [ VV0->VV0_NUMNFI ], [ VV0->VV0_SERNFI ], [ CFD ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
VV0->VV0_NUMNFI Caracter Número da Nota Fiscal.
VV0->VV0_SERNFI Array of Record Série da Nota Fiscal.
CFD Array of Record Comissão Faturamento Direto.
Retorno
    ()
Observações
 If substr(GetMv("MV_LOJAVEI",,"NNN"),3,1) <> "S"
   If VV0->VV0_TIPFAT == "2" //Faturamento Direto
      If ExistBlock("NFSERVIC") // Programa de Nota Fiscal de Diversos
         ExecBlock("NFSERVIC",.f.,.f.,{VV0->VV0_NUMNFI,VV0->VV0_SERNFI,"CFD"})
      EndIf
   ElseIf !VV0->VV0_OPEMOV $ "234" // Venda/Remessa/Transferencia/Devolucao
      If ExistBlock("NFSAIVEI")
         ExecBlock("NFSAIVEI",.f.,.f.,{SF2->F2_DOC,SF2->F2_SERIE})
         dbSelectArea("SA6")
         dbSetOrder(1)
         If dbSeek(xFilial("SA6")+VV0->VV0_CODBCO)
            If ExistBlock("BLQCOB")
               ExecBlock("BLQCOB",.f.,.f.,{SF2->F2_DOC,,,,SF2->F2_PREFIXO,"1",substr(SA6->A6_MENSAGE,1,49),substr(SA6->A6_MENSAGE,50,49),substr(SA6->A6_MENSAGE,100,50),VV0->VV0_CODBCO})
            EndIf
         EndIf
      EndIf
   EndIf
EndIf
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não