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: VX021AGA - Antecede a gravação do pedido de venda
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: 
Antecede a gravação do pedido de venda. Em caso de retorno falso, aborta a operação de gravação.
Eventos

 

Function VX021GRV(nOpc)
Local lRet := .f.
Local nCntFor
//
lMsErroAuto := .f.
//
If nOpc == 5
 //#############################################################################
 //# CANCELAMENTO DA NOTA FISCAL                                               #
 //#############################################################################
 lRet := VX021CANCEL()
 If !lRet
    If lMsErroAuto
      MostraErro()
    EndIf
    Return .f.
 EndIf
ElseIf nOpc == 3 .or. nOpc == 6
 //#############################################################################
 //# 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+": VX021E01")//Ocorreu um erro inesperado##Favor contactar o administrador do sistema##Codigo
    Return .f.
 EndIf
  If ExistBlock("VX021AGA")
    If !ExecBlock("VX021AGA",.f.,.f.)
      return .f.
    Endif
 Endif
 // Ponto de Entrada Antes da Gravacao da Nota Fiscal
 If ExistBlock("VX021ANF")
    ExecBlock("VX021ANF",.f.,.f.)
 EndIf
 //
 lRet := VX021EMINF(nOpc)
 If !lRet
    If !lVX021Auto
      MostraErro()
    EndIf
    Return .f.
 EndIf
 //
 // Ponto de Entrada Depois da Gravacao da Nota Fiscal
 If ExistBlock("VX021DNF")
    ExecBlock("VX021DNF",.f.,.f.)
 EndIf
Programa Fonte 
veixa021
Sintaxe

VX021AGA - Antecede a gravação do pedido de venda ( [ ] )

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
Array of Record
Retorno
    ()
Exemplos 
User Function VX021AGA()lRet := MsgYesNo(“Deseja continuar ?”,”Atencao”)return lRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não