Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Fabiane Schulze

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Usuário desconhecido (wander.horongoso)

Gravado em

Chave

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

GFEXFB11 - Permitir

...

a Seleção do Peso a Ser Utilizado no Cálculo do Componente 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

seleção do peso

que será utilizado (entre peso real e peso cubado).

a ser utilizado no cálculo do componente de frete (real ou cubado)

Localização:

Chamado

quando cálculo o

na definição do valor do componente de frete

for por Peso da Mercadoria

, que é 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
nPesoT
aRetArray

Array com 2 posições:

Caractere

  1. Peso que
será utilizado
  1. deve ser utilizado
  2. 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 nPesoR nPesoReal := PARAMIXB[3]
	Local nPesoTnRet    := 0
	Local cMsg    := ""
	
	ifIf cCdClFr == 'CubaCUBA'
		nPesoTnRet := nPesCubnPesoC
		cMsg := CRLF + CRLF + ""PE GFEXFB11 - Mensagem de retorno para LOG – Peso cubadoCubado utilizado: " + cvaltocharcValToChar(nPesoTnRet) + CRLF + CRLF
	elseElse
		nPesoTnRet := nPesoRealnPesoR
		cMsg := CRLF + CRLF + ""PE GFEXFB11 - Mensagem de retorno para LOG – Peso realReal utilizado: " + cvaltocharcValToChar(nPesoTnRet) + CRLF + CRLF
	endifEndIf

Return {nPesoTnRet,cMsg}