Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (flora.rocha), última alteração por admin em 23 jun, 2012

Ponto-de-Entrada: VX001ANF - Antecede a gravação da Nota Fiscal
Abrangências: Microsiga Protheus 10 , Microsiga Protheus 11
Versões: Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países: Brasil
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Português (Brasil)
Descrição: 
Este  ponto de entrada é chamado dentro do Fonte VEIXX001 (Funções Gerais de Saída de Veículos), dentro da função VX001GRV
Eventos

 

Function VX001GRV(nOpc)
Local lRet := .f.
//
lMsErroAuto := .f.
//
If nOpc == 4
                //#############################################################################
                //# CANCELAMENTO DA NOTA FISCAL                                               #
                //#############################################################################
                lRet := VX001CANCEL()
                If !lRet
                               If lMsErroAuto
                                               MostraErro()
                               EndIf
                               Return .f.
                EndIf
ElseIf nOpc == 3
                //#############################################################################
                //# EMISSAO DA NOTA FISCAL                                                    #
                //#############################################################################
                // SE A ROTINA FISCAL SE PERDEU POR ALGUM MOTIVO O PROCESSO DEVE SER REINICIADO
                If !MaFisFound('NF')
                               MsgStop(STR0034+;
                               " "+STR0035,STR0036+": VX001E01")//Ocorreu um erro inesperado##Favor contactar o administrador do sistema##Codigo
                               Return .f.
                EndIf
                // Ponto de Entrada Antes da Gravacao da Nota Fiscal
                If ExistBlock("VX001ANF")
                               ExecBlock("VX001ANF",.f.,.f.)
                EndIf
                //
                lRet := VX001EMINF()
                If !lRet
                               If !lVX001Auto
                                               MostraErro()
                               EndIf
                               Return .f.
                EndIf
                //
                // Ponto de Entrada Depois da Gravacao da Nota Fiscal
                If ExistBlock("VX001DNF")
                               ExecBlock("VX001DNF",.f.,.f.)
                EndIf
EndIf
//
If !lVX001Auto
                oDlg:End()
EndIf
Return .t.
Programa Fonte 
veixx001
Sintaxe

VX001ANF - Antecede a gravação da Nota Fiscal ( [ ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    ()
Exemplos 
User Function VX001ANF()MsgAlert("O Ponto de Entrada 'VX001ANF' foi executado!","Sucesso!")return
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não