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 2

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

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:

Protheus

Segmento:

Distribuição e 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:Necessário enviar as informações

NomeTipoDescriçãoObrigatório
PARAMIXB[1]
CaracterCódigo do tipo do documento de carga
na seguinte sequência:
Sim
PARAMIXB[2]
CaracterEmissor do documento de cargaSim
PARAMIXB[3]
CaracterSérie do documento de cargaSim
PARAMIXB[4]
CaracterNúmero do documento de cargaSim
Código do Tipo do Documento, Emissor, Série, Número.

Retorno:

Código do pagador.

NomeTipoDescriçãoObrigatório
cPagadorCaracterCó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