Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 10

changes.mady.by.user Philippe Rocca Bretas

Gravado em

comparado com

Nova versão 11

changes.mady.by.user Philippe Rocca Bretas

Gravado em

Chave

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

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
GW6→GW6_EMIFAT
GW6→GW6_SERFAT
GW6→GW6_NRFAT
GW6->GW6_DTEMIS        

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRetorno

Array

Matriz, Conjunto

Sim

 

Bloco de código
languagedelphi
titleExemplo: XGFE70DE
linenumberstrue
#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