Á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
themeMidnight
titleF070MV1
#INCLUDE "PROTHEUS.CH"

User Function F070MV1() 
    _nAcao		 := PARAMIXB[1]
    _aBxAcr      := PARAMIXB[12]
    _aBxDec		 := PARAMIXB[23]
    cBanco		 := PARAMIXB[34]
    cAgencia	 := PARAMIXB[45]
    cConta		 := PARAMIXB[56]
    dBaixa		 := PARAMIXB[67]
    _nValor		 := PARAMIXB[78]
    lPadrao		 := PARAMIXB[89]
    lContabiliza := PARAMIXB[910]
    cTpDoc		 := PARAMIXB[1011]
    cHistMov	 := PARAMIXB[1112]
    cLoteFin	 := PARAMIXB[1213]
    cMotBx		 := PARAMIXB[1314]
    nValEstrang	 := PARAMIXB[1415]
    cSequencia	 := PARAMIXB[1516]
    lSpbInUse	 := PARAMIXB[1617]
    cModSpb		 := PARAMIXB[1718]
    dDtCredito	 := PARAMIXB[1819]
    cArqEnt		 := PARAMIXB[1920]
    cOcorr		 := PARAMIXB[2021]
    nTxMoeda	 := PARAMIXB[2122]
    nJuros		 := PARAMIXB[2223]
    nMulta		 := PARAMIXB[2324]
    nCm			 := PARAMIXB[2425]
    nDescont	 := PARAMIXB[2526] 
    aBaixas		 := PARAMIXB[2627]
    aHdlPrv		 := PARAMIXB[2728]
    
    //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

...