Linha Microsiga Protheus

Page tree

GFEXFB04 – Indicar quais os componentes adicionais por emitente podem ser utilizados no cálculo do frete. 

Características do Requisito

Linha de Produto:

Protheus

Segmento:

Distribuição e Logística

Módulo:

SIGAGFE

Ponto de Entrada - GFEXFB04

Descrição:

Indicar quais os componentes adicionais por emitente podem ser utilizados no cálculo do frete.
O desenvolvimento da rotina customizada deve ser realizado utilizando a tabela GUC (Componente Tarifa x Emitente) e a tabela temporária de Cálculo de Frete (cTRBTCF), as quais estarão posicionadas no momento da execução.

Localização:

Ao selecionar os componentes do cálculo de frete.

Programa Fonte:

GFEXFUNB - Cálculo de Frete

Parâmetros:

Nenhum parâmetro

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

Indica se o componente adicional poderá ser utilizado no cálculo de frete

Sim

Exemplo: GFEXFB04
User Function GFEXFB04() 
	Local aAreaAnt := GetArea()
	Local lRet     := .F.
	Local cGrpCom  := '' //Grupo do emitente no componente tarifa x emitente
	Local cGrpCli  := '' //Grupo ao qual o cliente pertence
	DbSelectArea('GU3')
	DbSetOrder(1)
	DbSeek(xFilial('GU3')+GUC->GUC_EMICOM)
	cGrpCom := GU3->GU3_CDGREM
	DbSeek(xFilial('GU3')+(cTRBTCF)->CDEMIT)
	cGrpCli := GU3->GU3_CDGREM
	//Se o cliente pertencer ao mesmo grupo que o emitente vinculado ao componente adicional,
	//este componente será considerado no cálculo de frete
	If cGrpCom == cGrpCli
		lRet := .T.
	EndIf
	RestArea(aAreaAnt)
 Return lRet