Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Fabiane Schulze

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Fabiane Schulze

Gravado em

Chave

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

...

Ponto de Entrada:GFEXFB11

Descrição:

Permitir a escolha do peso que será utilizado (entre peso real e peso cubado).

Localização:

Chamado quando cálculo o componente de frete for por Peso da Mercadoria

Programa Fonte:

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

Parâmetros:

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

Retorno:

NomeTipoDescriçãoObrigatório
nPesoTCaracterePeso que será utilizadoSim
cMsgCaractereMensagem de retorno indicando o peso utilizadoSim

 

 

 
Bloco de código
languagedelphi
firstline1
titleExemplo: GFEXFB11
linenumberstrue
#Include 'Protheus.ch'

User Function GFEXFB11()	
    Local cCdClFr   := PARAMIXB[1]
	Local nPesCub   := PARAMIXB[2]
	Local nPesoReal := PARAMIXB[3]
	Local nPesoT  := 0
	Local cMsg 
	
	if cCdClFr = 'Cuba'
		nPesoT := nPesCub
		cMsg := CRLF + CRLF + "GFEXFB11 - Mensagem de retorno para LOG – Peso cubado utilizado: " + cvaltochar(nPesoT) + CRLF + CRLF
	else
		nPesoT := nPesoReal
		cMsg := CRLF + CRLF + "GFEXFB11 - Mensagem de retorno para LOG – Peso real utilizado: " + cvaltochar(nPesoT) + CRLF + CRLF
	endif
Return {nPesoT,cMsg}

...