Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Joao Leonardo Schmidt

Gravado em

comparado com

Nova versão 3

changes.mady.by.user Joao Leonardo Schmidt

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

GFEA0664 - INCLUIR VALIDAÇÕES COMPLEMENTARES NA APROVAÇÃO MANUAL DO DOCUMENTO DE FRETE

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE


Ponto de Entrada -

GFE0663

GFE0664

Descrição:

Permitir incluir novas validações para impedir a aprovação manual do documento de frete

Localização:

GFEA066OK() - Função de validação e gravação da aprovação manual do documento de frete

Programa Fonte:

GFEA066 - Auditoria/Aprovação de Documento de Frete

Parâmetros:

NomeTipoDescriçãoObrigatório
GW3->GW3_FILIALCaractereFilial do documento de freteSim
GW3->GW3_CDESPCaractereCódigo da espécie do documento de freteSim
GW3->GW3_EMISDFCaractereCódigo do emissor do documento de freteSim
GW3->GW3_SERDFCaractereSérie do documento de freteSim
GW3->GW3_NRDFCaractereNúmero do documento de freteSim
GW3->GW3_DTEMISDataData de emissão do documento de freteSim

Retorno:

lRet - Indica se o documento pode ou não ser aprovado de forma manual

Observações:
  • A mensagem ao usuário é responsabilidade do ponto de entrada, o programa padrão é responsável apenas por não efetuar a aprovação quando o retorno do ponto for negativo;
  • Ponto de entrada oficial expedido na release 12.1.30.

 

Bloco de código
languagedelphi
titleExemplo: GFEA0662GFEA0664
linenumberstrue
#INCLUDE "PROTHEUS.CH"

User Function GFEA0664(cFil, cCdEsp, cEmis, cSer, cNr, cDtEmis)
    Local lRet := .T.
    
    Default cFil    := ""
    Default cCdEsp  := ""
    Default cEmis   := ""
    Default cSer    := ""
    Default cNr     := ""
    Default cDtEmis := Date("")

    // Incluir as validações necessárias referente ao documento de frete
    lRet := .F.
    
    MsgStop("Não é possível realizar a aprovação deste documento.")
Return lRet