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.

GFEXFB08 -

...

Define se o trecho será pago

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Ponto de Entrada:GFEXFB08

Descrição:

Possibilidade de definir se o trecho deverá ser pago ou não.

Localização:

Chamado ao definir se o trecho será pago.

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:

Código do Tipo do Documento, Emissor, Série, Número, Sequência do Trecho.

Sim
PARAMIXB[2]CaracterEmissor do documento de cargaSim
PARAMIXB[3]CaracterSérie do documento de cargaSim
PARAMIXB[4]CaracterNúmero do documento de cargaSim
PARAMIXB[5]CaracterSequência do TrechoSim

Retorno:

NomeTipoDescriçãoObrigatório
lRetornoLógicoRetorno que indica se o trecho deverá ser marcado como pago: verdadeiro

Retorno:

Verdadeiro
(.T.) ou
Falso
falso(.F.)Sim
Bloco de código
languagedelphi
firstline1
titleExemplo: GFEXFB08
linenumberstrue
#INCLUDE "PROTHEUS.CH"
User Function GFEXFB08()
Local cCdTpDc := PARAMIXB[1] 
Local cEmisDc := PARAMIXB[2]
Local cSerDc := PARAMIXB[3]
Local cNrDc := PARAMIXB[4]
Local cSeq := PARAMIXB[5]
Local lRetorno := .F.
	
	dbSelectArea('GWU')
	GWU->(dbSetOrder(1)) //GWU_FILIAL+GWU_CDTPDC+GWU_EMISDC+GWU_SERDC+GWU_NRDC+GWU_SEQ
	
	If GWU->(dbSeek(xFilial('GWU')+cCdTpDc+cEmisDc+cSerDc+cNrDc+cSeq))
		If GWU->GWU_SEQ == "02"
			lRetorno :=  .T.
		EndIf 
	EndIf

Return lRetorno