Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 4

changes.mady.by.user Andre Luis Wisnheski

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Andre Luis Wisnheski

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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

 

Bloco de código
theme
languagedelphi
MidnighttitleExemplo: GFEXFB04
linenumberstrue
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