Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Philippe Rocca Bretas

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Philippe Rocca Bretas

Gravado em

Chave

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

XGFE70DE -

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Permite verificar os dados antes de Remover o vínculo da Fatura de Frete e o Documento de Frete

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Logística

Módulo:

SIGAGFE

Ponto de Entrada -

 GFEA070A2 

XGFE70DE

Retornará o aMKB , com as posições já existentes e as adicionadas no ponto de entrada.

OBS: Não é permitido retirar nenhuma posição do array já existente, pois elas são usadas na logica do programa.

Descrição:

Permitir a inclusão de posições no array aMKB, na rotina GFEA070A que faz o vínculo entre a Permite verificar os dados antes de Remover o vínculo da Fatura de Frete e os Documentos o Documento de Frete da Fatura .

Localização:

Apos a criação do array aMKB, na função de criação de tabelas temporárias.Antes de 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:aMKB := {{"OK" , "C", 02, 0},;
{"FILIAL", "C", Len(cFilAnt), 0},;
{"CDESP" , "C", TamSX3("GW3_CDESP")[1], 0},;
{"EMISDF", "C", TamSX3("GU3_CDEMIT")[1], 0},;
{"SERDF" , "C", TamSX3("GW3_SERDF")[1], 0},;
{"NRDF" , "C", TamSX3("GW3_NRDF")[1], 0},;
{"VLDF" , "N", TamSX3("GW3_VLDF")[1], 2},;
{"DTEMIS", "D", TamSX3("GW3_DTEMIS")[1], 0},;
{"CDREM" , "C", TamSX3("GU3_CDEMIT")[1], 0},;
{"NMREM" , "C", TamSX3("GU3_NMEMIT")[1], 0},;
{"CDDEST", "C", TamSX3("GU3_CDEMIT")[1], 0},;
{"NMDEST", "C", TamSX3("GU3_NMEMIT")[1], 0},;
{"TPDF" , "C", TamSX3("GW3_TPDF")[1], 0},;
{"DTENT" , "D", TamSX3("GW3_DTENT")[1], 0}}

NomeTipoDescrição
PARAMIXB[1]CaractereFilial
PARAMIXB[2]CaractereEmissor da Fatura de Frete
PARAMIXB[3]CaractereSerie da Fatura de Frete
PARAMIXB[4]CaractereNúmero da Fatura de Frete
PARAMIXB[5]CaractereData de Emissão da Fatura de Frete

Retorno:

Nome

Tipo

Descrição

Obrigatório

aMKB

lRet

array

lógico

Booleano (.T. ou .F.)

Sim

 

Bloco de código
languagedelphi
titleExemplo: GFEA70A2XGFE70DE
linenumberstrue
#INCLUDE "PROTHEUS.CH"
#INCLUDE "Topconn.ch"
#INCLUDE "PARMTYPE.CH"

UserUSER FunctionFUNCTION GFEA70A2()

    Local aMKB:= PARAMIXB[1]

Return aMKBXGFE70DE()

	Local cFil     := PARAMIXB[1]
	Local cEmitFat := PARAMIXB[2]
	Local cSerFat  := PARAMIXB[3]
	Local cNrFat   := PARAMIXB[4]
	Local dDtEmis  := PARAMIXB[5]
	Local dDtLimite := "20240101"
	Local aRet  := {}
	Local lRet := .T.

	dDtEmis  := DTOS(PARAMIXB[5])
	If dDtEmis <= dDtLimite
		dDtLimite :=  STOD(dDtLimite)
		Alert("O Documento deve estar com a data posterior a "+ DtOC(dDtLimite))
		lRet := .F.
	ENDIF
	dDtEmis := STOD(dDtEmis)

	AAdd( aRet, cFil 	)
	AAdd( aRet, cEmitFat)
	AAdd( aRet, cSerFat )
	AAdd( aRet, cNrFat  )
	AAdd( aRet, dDtEmis )

Return lRet