Árvore de páginas

Versões comparadas

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 - 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: GFEA0664
linenumberstrue
#INCLUDE "PROTHEUS.CH"
#INCLUDE "parmtype.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("")	Local cTmpCdEsp := PARAMIXB[1] //GW3->GW3_CDESP
	Local cTmpEmis 	:= PARAMIXB[2] //GW3->GW3_EMISDF
	Local cTmpSer 	:= PARAMIXB[3] //GW3->GW3_SERDF
	Local cTmpDcFrt := PARAMIXB[4] //GW3->GW3_NRDF
	Local dTmpDtEms := PARAMIXB[5] //GW3->GW3_DTEMIS

    // 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