Á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[2]
    _aBxDec		 := PARAMIXB[3]
    cBanco		 := PARAMIXB[4]
    cAgencia	 := PARAMIXB[5]
    cConta		 := PARAMIXB[6]
    dBaixa		 := PARAMIXB[7]
    _nValor		 := PARAMIXB[8]
    lPadrao		 := PARAMIXB[9]
    lContabiliza := PARAMIXB[10]
    cTpDoc		 := PARAMIXB[11]
    cHistMov	 := PARAMIXB[12]
    cLoteFin	 := PARAMIXB[13]
    cMotBx		 := PARAMIXB[14]
    nValEstrang	 := PARAMIXB[15]
    cSequencia	 := PARAMIXB[16]
    lSpbInUse	 := PARAMIXB[17]
    cModSpb		 := PARAMIXB[18]
    dDtCredito	 := PARAMIXB[19]
    cArqEnt		 := PARAMIXB[20]
    cOcorr		 := PARAMIXB[21]
    nTxMoeda	 := PARAMIXB[22]
    nJuros		 := PARAMIXB[23]
    nMulta		 := PARAMIXB[24]
    nCm			 := PARAMIXB[25]
    nDescont	 := PARAMIXB[26] 
    aBaixas		 := PARAMIXB[27]
    aHdlPrv		 := PARAMIXB[28]
    
    //ver quais sao locais 

	If Len(aHdlPrv) >= 1 .and. Len(aHdlPrv[1]) >= 4
    	nHdlPrv	 := aHdlPrv[1][1]
	    cPadrao  := aHdlPrv[1][2]
    	aFlagCTB := aHdlPrv[1][3]
	    cArquivo := aHdlPrv[1][4] 
	EndIf    

    Alert("PONTO DE ENTRADA u_F070MV1")

Return aHdlPrv