Árvore de páginas

Versões comparadas

Chave

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

...

05. EXEMPLO DE UTILIZAÇÃO


Bloco de código
languagedelphi
themeMidnight
titleF070MV1
#INCLUDE "PROTHEUS.CH"

User Function F070MV1() 
    _nAcao		 := PARAMIXB[1]
    _aBxAcr      := PARAMIXB[1]
    _aBxDec		 := PARAMIXB[2]
    cBanco		 := PARAMIXB[3]
    cAgencia	 := PARAMIXB[4]
    cConta		 := PARAMIXB[5]
    dBaixa		 := PARAMIXB[6]
    _nValor		 := PARAMIXB[7]
    lPadrao		 := PARAMIXB[8]
    lContabiliza := PARAMIXB[9]
    cTpDoc		 := PARAMIXB[10]
    cHistMov	 := PARAMIXB[11]
    cLoteFin	 := PARAMIXB[12]
    cMotBx		 := PARAMIXB[13]
    nValEstrang	 := PARAMIXB[14]
    cSequencia	 := PARAMIXB[15]
    lSpbInUse	 := PARAMIXB[16]
    cModSpb		 := PARAMIXB[17]
    dDtCredito	 := PARAMIXB[18]
    cArqEnt		 := PARAMIXB[19]
    cOcorr		 := PARAMIXB[20]
    nTxMoeda	 := PARAMIXB[21]
    nJuros		 := PARAMIXB[22]
    nMulta		 := PARAMIXB[23]
    nCm			 := PARAMIXB[24]
    nDescont	 := PARAMIXB[25] 
    aBaixas		 := PARAMIXB[26]
    aHdlPrv		 := PARAMIXB[27]
    
    //ver quais sao locais 
    nHdlPrv	 := aHdlPrv[1][1]
    cPadrao  := aHdlPrv[1][2]
    aFlagCTB := aHdlPrv[1][3]
    cArquivo := aHdlPrv[1][4] 
    
    Alert("PONTO DE ENTRADA u_F070MV1")
Return aHdlPrv