Árvore de páginas

Versões comparadas

Chave

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

...

Bloco de código
languagedelphi
firstline1
titleExemplo: GFEXFB11
linenumberstrue
#Include 'Protheus.ch'
//
User Constantes usadas na função AddToLogFunction GFEXFB11()	
#DEFINE _LOG_BEGIN 1
#DEFINE _LOG_END   2
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
	endif
	
	AddToLog(	cMsg := CRLF + CRLF + '"GFEXFB11 - Mensagem de Pontoretorno depara entradaLOG GFEXFB11. Peso real utilizado: '" + cvaltochar(nPesoT) + CRLF + CRLF) 
	endif
Return nPesoT

 

...

{nPesoT,cMsg}