Linha Microsiga Protheus

Árvore de páginas

  • Criado por Usuário desconhecido (amanda.vieira), última alteração por Usuário desconhecido (luciene.sousa) em 24 ago, 2016

GFEXFB09 - Define Pagador do Cálculo

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

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:

NomeTipoDescriçãoObrigatório
PARAMIXB[1]
CaractereCódigo do tipo do documento de cargaSim
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
Exemplo: GFEXFB09
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