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 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
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
languagedelphi
firstline1
titleExemplo: GFEXFB11
linenumberstrue
#Include#INCLUDE 'ProtheusPROTHEUS.chCH'

User Function GFEXFB11()	
    
Local cCdClFr   := PARAMIXB[1]
	Local nPesCubnPesoC   := PARAMIXB[2]
	Local nPesoR nPesoReal := PARAMIXB[3]
	Local nRet  nPesoT  := 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}