Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Fabiane Schulze

Gravado em

comparado com

Nova versão 7

changes.mady.by.user Guilherme Alexandre Metzger

Gravado em

Chave

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

GFEXFB11 - Permitir a

...

Escolha do Peso a Ser Utilizado no Cálculo de Frete

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Supply Chain - Logística

Módulo:

SIGAGFE

Ponto de Entrada:GFEXFB11

Descrição:

Permitir a escolha do peso que será utilizado (entre peso real e peso cubado).a ser utilizado no cálculo do componente de frete

Localização:

Chamado quando cálculo o na definição do valor do componente de frete for por Peso da Mercadoriaque é calculado sobre o peso da mercadoria

Programa Fonte:

GFEXFUNB - Funções Genéricas do Cálculo de Frete

Parâmetros:

NomeTipoDescriçãoObrigatório
PARAMIXB[1] CaractereClassificação de FreteSim
PARAMIXB[2] CaracterePeso CubadoSim
PARAMIXB[3] CaracterePeso RealSim

Retorno:

NomeTipoDescriçãoObrigatório
aRetArray

Array com 2 posições:1 –

  1. Peso que
será
  1. deve ser utilizado
2 – Mensagem indicando o peso utilizado
  1. Mensagem informativa quanto ao peso utilizado, que será apresentada no log de cálculo de frete
Sim
Bloco de código
firstline
languagedelphi
1titleExemplo: GFEXFB11
linenumberstrue
#Include#INCLUDE 'ProtheusPROTHEUS.chCH'

User Function GFEXFB11()	
    
Local cCdClFr   := PARAMIXB[1]
	Local nPesCubnPesoC   := PARAMIXB[2]
	Local nPesoRealnPesoR  := PARAMIXB[3]
	Local nRet nPesoT   := 0
	Local cMsg    := ""
	
	ifIf cCdClFr == 'CubaCUBA'
		nPesoTnRet := nPesCub
		cMsg := CRLF + CRLF + ""PE GFEXFB11 - Mensagem de retorno para LOG – Peso cubadoCubado utilizado: " + cvaltocharcValToChar(nPesoT) + CRLF + CRLF
	elseElse
		nPesoTnRet := nPesoReal
		cMsg := CRLF + CRLF + ""PE GFEXFB11 - Mensagem de retorno para LOG – Peso realReal utilizado: " + cvaltocharcValToChar(nPesoT) + CRLF + CRLF
	endifEndIf

Return {nPesoT,cMsg}