Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

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.ch'
// Constantes usadas na função AddToLog()
#DEFINE _LOG_BEGIN 1
#DEFINE _LOG_END   2
CH'

User Function GFEXFB11()   
	Local cCdClFr   := PARAMIXB[1]
	Local nPesCubnPesoC   := PARAMIXB[2]
	Local nPesoRealnPesoR  := PARAMIXB[3]
	Local nPesoTnRet    := 0
	Local cMsg    := ""

	ifIf cCdClFr == 'CubaCUBA'
		nPesoTnRet := nPesCub
	elsenPesoC
		nPesoTcMsg := nPesoReal
	endif
	
	AddToLog(CRLF + CRLF + '    Ponto de entrada GFEXFB11. Peso utilizado: ' + cvaltochar(nPesoT) + CRLF + CRLF) 
Return nPesoT

...

"PE GFEXFB11 - Peso Cubado utilizado: " + cValToChar(nRet) + CRLF
	Else
		nRet := nPesoR
		cMsg := "PE GFEXFB11 - Peso Real utilizado: " + cValToChar(nRet) + CRLF
	EndIf

Return {nRet,cMsg}