Histórico da Página

...

Não se aplica.

08. EXEMPLO

------

#INCLUDE "PROTHEUS.CH"
 
User Function WMA170EN()

 
Local

...

cFilSBE   := PARAMIXB[1]
Local

...

cArmazem  := PARAMIXB[2]
Local

...

cCodEst   := PARAMIXB[3]
Local

...

cCodCfg   := PARAMIXB[4]
Local

...

cCodZon   := PARAMIXB[5]
Local

...

cEndereco := PARAMIXB[6]
Local

...

cCodExc   := PARAMIXB[7]
Local

...

nAltura   := PARAMIXB[8]
Local

...

nLargura  := PARAMIXB[9]
Local

...

nComprim  := PARAMIXB[10]
Local nCapacid  := PARAMIXB[11]
Local lRet := .

...

T.
 
  If nAltura > 100

...

     lRet  := .

...

F.
   
   EndIf
 
Return lRet

------