Histórico da Página
XGFE70DE - xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Características do Requisito
Linha de Produto: | Microsiga Protheus |
Segmento: | Logística |
Módulo: | SIGAGFE |
Ponto de Entrada - XGFE70DE
Descrição: | Limpa os dados da Fatura, na rotina GFEA070A | ||||||||
Localização: | Ao remover o vínculo entre a Fatura de Frete e o Documento de Frete | ||||||||
Programa Fonte: | GFEA070A - Cria o vínculo entre a Fatura de Frete e os Documentos de Frete da Fatura. | ||||||||
Parâmetros: | GW6→GW6_FILIAL | ||||||||
Retorno: |
|
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#INCLUDE "PROTHEUS.CH" User Function XGFE70DE() Return#INCLUDE "Topconn.ch" #INCLUDE "PARMTYPE.CH" USER FUNCTION XGFE70DE() Local cFil := Alltrim(PARAMIXB[1]) Local cEmitFat := Alltrim(PARAMIXB[2]) Local cSerFat := Alltrim(PARAMIXB[3]) Local cNrFat := Alltrim(PARAMIXB[4]) Local dDtEmis := DTOS(PARAMIXB[5]) Local dDtLimite := "20240101" Local cCodInt := "" Local lRet := .T. cCodInt += cFil + cEmitFat + cSerFat + cNrFat + dDtEmis If dDtEmis <= dDtLimite dDtLimite := STOD(dDtLimite) Alert("O Documento deve estar com a data posterior a "+ DtOC(dDtLimite)) lRet := .F. ENDIF Return lRet |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas