Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Andre Luis Wisnheski

Gravado em

comparado com

Nova versão 2

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 parametro

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
languagedelphi
themeMidnight
titleExemplo: 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