Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Usuário desconhecido (amanda.vieira)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (luciene.sousa)

Gravado em

Chave

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

GFEXFB09 -

...

Define Pagador do

...

Cálculo

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Distribuição e Supply Chain - Logística

Módulo:

SIGAGFE

Código do pagador.
Ponto de Entrada:GFEXFB09

Descrição:

Possibilidade de definir o pagador do cálculo.

Localização:

Chamado ao definir qual é o código do pagador do cálculo (GWF_EMIPAG).

Programa Fonte:

GFEXFUNB - Funções Genéricas do Cálculo

Parâmetros:Necessário enviar as informações

NomeTipoDescriçãoObrigatório
PARAMIXB[1]
CaractereCódigo do tipo do documento de carga
na seguinte sequência:

Código do Tipo do Documento, Emissor, Série, Número.

Retorno:

Sim
PARAMIXB[2]
CaractereEmissor do documento de cargaSim
PARAMIXB[3]
CaractereSérie do documento de cargaSim
PARAMIXB[4]
CaractereNúmero do documento de cargaSim

Retorno:

Código do pagador.

NomeTipoDescriçãoObrigatório
cPagadorCaractereCódigo do emitente que será o pagador do cálculo (GWF_EMIPAG).Sim
Bloco de código
languagedelphi
firstline1
titleExemplo: GFEXFB09
linenumberstrue
User Function GFEXFB09()
Local cCdTpDc  := PARAMIXB[1] 
Local cEmisDc  := PARAMIXB[2]
Local cSerDc   := PARAMIXB[3]
Local cNrDc    := PARAMIXB[4]	
Local cPagador := ""
Local aAreaGW1 := GW1->(GetArea())

	dbSelectArea('GW1')
	GW1->(dbSetOrder(1)) //GW1_FILIAL+GW1_CDTPDC+GW1_EMISDC+GW1_SERDC+GW1_NRDC
	
	If GW1->(dbSeek(xFilial('GW1')+cCdTpDc+cEmisDc+cSerDc+cNrDc))
		cPagador := GW1->GW1_EMISDC
	EndIf


RestArea(aAreaGW1)
Return cPagador