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

Descrição	GFEXFB04 – Indicar quais os componentes adicionais por emitente podem ser utilizados no cálculo do frete
Observações	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.
Idioma	Português(Brasil)
Versões	11.80
Sistemas Operacionais Suportados	Todos
Compatível com as Bases de Dados	Todas
Parâmetros	Este PE não possui parâmetros
Retorno	Variável lógica que indica se o componente adicional poderá ser utilizado no cálculo de frete
Eventos de chamada do Ponto de Entrada	Cálculo de Frete
Programa Fonte	GFEXFUNB.PRW

Exemplo:

Exemplo

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

Home

Linha Microsiga Protheus

Páginas filhas