Pontos de Entrada P12.2210 - Parte 2

Salve salve....

 

Pontos de Entrada P12.2210

 

 

FECHAMES.PRW - CANCELACART(CALIAS,C() -> EXECBLOCK("F280CAN",.F.,.F.)

FECHAMES.PRW - CANCELACART(CALIAS,C() -> LRET := EXECBLOCK("F280PCAN",.F.,.F.)

FINA002.PRW - F002GRAVA() -> EXECBLOCK("MF002GRV", .F., .F., { LEXCLUI, LALTERA } )

FINA002.PRW - F002PROCESSA() -> LPONTOENT := EXECBLOCK( "MF002VLD", .F., .F., { NRECFRO, NOPCX } )

FINA003.PRW - FA003GRV() -> EXECBLOCK("FA3GRVIA",.F.,.F.,{NOPCAO})

FINA003.PRW - FA003GRV() -> LGRAVOU := EXECBLOCK("FA003DEL",.F.,.F.)

FINA003.PRW - FA003MAN() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "FA003BTN", .F., .F. ) ) == "A"

FINA003.PRW - FA003MAN() -> LPREVLD := EXECBLOCK("FA003PVD",.F.,.F.,{NOPC})

FINA003.PRW - FA003TUDOK() -> LRET := EXECBLOCK("FA003VOK",.F.,.F.,{NOPCAO})

FINA004.PRW - FA004GRAVA () -> EXECBLOCK("MT004GRV",.F.,.F.,{AHEADER,ACOLS,L004DELETA,M->FRQ_GRPANA})

FINA004.PRW - FA004GRAVA () -> LMT004VLD := EXECBLOCK( "MT004VLD", .F., .F., { AHEADER, ACOLS, L004DELETA, M->FRQ_GRPANA})

FINA004.PRW - MENUDEF() -> EXECBLOCK ("MTFA004MNU", .F., .F.)

FINA005.PRW - FA005ALLOK() -> LRET := EXECBLOCK("FA005VOK",.F.,.F.,{NOPCAO,OGETDADOS})

FINA005.PRW - FA005DELOK() -> LRET := EXECBLOCK("FA005DLN",.F.,.F.,{NLIN,OGETDADOS})

FINA005.PRW - FA005GRV() -> EXECBLOCK("FA5GRAVA",.F.,.F.,{NOPCAO})

FINA005.PRW - FA005GRV() -> LEXCPE := EXECBLOCK("FA005DEL",.F.,.F.)

FINA005.PRW - FA005LINOK() -> LRET := EXECBLOCK("FA005LOK",.F.,.F.,{NLIN,OGETDADOS})

FINA005.PRW - FA005MAN() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "FA005BTN", .F., .F. ) ) == "A"

FINA005.PRW - FA005MAN() -> LPREVLD := EXECBLOCK("FA005PVD",.F.,.F.,{NOPC})

FINA010.PRX - F010SLDCTB() -> BSLDCTBATU := EXECBLOCK( "F010BUT", .F., .F., {2} )

FINA010BRA.PRW - F010SLDCTB() -> BSLDCTBATU := EXECBLOCK( "F010BUT", .F., .F.,{2} )

FINA011.PRX - A011ALT() -> LRET:=EXECBLOCK("FA011ALT",.F.,.F.)

FINA011.PRX - F011TUDOK() -> LRET:=EXECBLOCK("F011ALTR",.F.,.F.)

FINA011.PRX - F011TUDOK() -> LRET:=EXECBLOCK("FA011INC",.F.,.F.)

FINA011.PRX - FCANDELSAQ() -> LRETORNO:=  EXECBLOCK("FA011DEL",.F.,.F.)

FINA030.PRX - FA030DELET() -> LDTMOVFIN := EXECBLOCK( "FA030DEL", .F., .F. )

FINA040.PRX - CARREGAFI2() -> ADEFAULTS := EXECBLOCK('DEFFI2',.F.,.F.,{"R", ACPOS, ADADOS, LABATIM, LPROTESTO, LCANCPROT})

FINA040.PRX - F040CALCIR() -> XMINRETIR := EXECBLOCK("F040MIRF",.F.,.F.,{SA2->A2_COD,SA2->A2_LOJA})

FINA040.PRX - F040GRVFI2() -> EXECBLOCK( "F040GRCOM", .F., .F., { AITEMSFI2 } )

FINA040.PRX - F040GRVSE5() -> EXECBLOCK("F040ERA",.F.,.F.)

FINA040.PRX - F040GRVSE5() -> EXECBLOCK("F040MOV",.F.,.F.)

FINA040.PRX - F040RECALCMES() -> ACLI10925 := EXECBLOCK("F040LOJA",.F.,.F.)

FINA040.PRX - F040RECALCMES() -> AFIL10925 := EXECBLOCK( "F040FRT", .F., .F. )

FINA040.PRX - F040TIMPBX() -> ACLI10925 := EXECBLOCK("F040LOJA",.F.,.F.)

FINA040.PRX - F040TIMPBX() -> AFIL10925 := EXECBLOCK( "F040FRT", .F., .F. )

FINA040.PRX - F040TOTMES() -> ACLI10925 := EXECBLOCK("F040LOJA",.F.,.F.)

FINA040.PRX - F040TOTMES() -> AFIL10925 := EXECBLOCK( "F040FRT", .F., .F. )

FINA040.PRX - FA040ALTER() -> CTUDOOK += '.AND. EXECBLOCK("FA040ALT",.F.,.F.)'

FINA040.PRX - FA040ALTER() -> CTUDOOK += 'EXECBLOCK("FA040ALT",.F.,.F.)'

FINA040.PRX - FA040ALTER() -> EXECBLOCK("F040ALT",.F.,.F.)

FINA040.PRX - FA040ALTER() -> EXECBLOCK("FA40PROT",.F.,.F.)

FINA040.PRX - FA040ALTER() -> LRET := EXECBLOCK("F040BLQ",.F.,.F.)

FINA040.PRX - FA040ALTER() -> LVA040ATOK := EXECBLOCK( "F040VAUT", .F., .F. )

FINA040.PRX - FA040ALTOK() -> ACOLS := EXECBLOCK("A040ATOK",.F.,.F.,{AITEMSFI2,LABATIM,LPROTESTO,LCANCPROT,ACPOS,LBUTTON})

FINA040.PRX - FA040AXALT() -> EXECBLOCK("F040ALTR",.F.,.F.)

FINA040.PRX - FA040AXALT() -> EXECBLOCK("LJ040X",.F.,.F.)

FINA040.PRX - FA040AXALT() -> IF ( VALTYPE( URET := EXECBLOCK("F040NDINC") ) == "L" )

FINA040.PRX - FA040AXALT() -> LGRVSA1:= EXECBLOCK("F040TRVSA1",.F.,.F.)

FINA040.PRX - FA040AXINC() -> EXECBLOCK("F040COM",.F.,.F.)

FINA040.PRX - FA040AXINC() -> EXECBLOCK("F040FCR",.F.,.F.)

FINA040.PRX - FA040AXINC() -> EXECBLOCK("FA040FIN",.F.,.F.)

FINA040.PRX - FA040AXINC() -> EXECBLOCK("FA040GRV",.F.,.F.)

FINA040.PRX - FA040BAR() -> AUSBUTTONS := EXECBLOCK( "F040BUT", .F., .F. )

FINA040.PRX - FA040COND() -> DDTVENC := EXECBLOCK("F40DTDSD",.F.,.F.)

FINA040.PRX - FA040COND() -> LPERPC1 := EXECBLOCK("F040PRPC",.F.,.F.)

FINA040.PRX - FA040DELET() -> EXECBLOCK("F040CANVM", .F., .F.)

FINA040.PRX - FA040DELET() -> EXECBLOCK("FA040DEL")

FINA040.PRX - FA040DELET() -> IF ( VALTYPE( URET := EXECBLOCK("F040NDINC") ) == "L" )

FINA040.PRX - FA040DELET() -> LGRVSA1 := EXECBLOCK("F040TRVSA1",.F.,.F.)

FINA040.PRX - FA040DELET() -> LRET := EXECBLOCK( "FA040B01",.F.,.F. )

FINA040.PRX - FA040DELET() -> LRET := EXECBLOCK("F040BLQ",.F.,.F.)

FINA040.PRX - FA040INCLU() -> CTUDOOK := 'IIF( M->E1_TIPO$MVRECANT , DTMOVFIN(M->E1_EMISSAO,,"2") .AND. PCOVLDLAN("000001",IIF(M->E1_TIPO$MVRECANT,"02","01"),"FINA040") .AND. FA040VLMV() .AND. EXECBLOCK("FA040INC",.F.,.F.), PCOVLDLAN("000001",IIF(M->E1_TIPO$MVRECANT,"02","01"),"FINA040") .AND. EXECBLOCK("FA040INC",.F.,.F.)'

FINA040.PRX - FA040INCLU() -> LDTMOVFIN := EXECBLOCK( "F040DTMV", .F., .F. )

FINA040.PRX - FA040INCLU() -> LRET := EXECBLOCK("F040BLQ",.F.,.F.)

FINA040.PRX - FA040INIS() -> AINICPOS := EXECBLOCK("FA040SUB",.F.,.F.)

FINA040.PRX - FA040INIS() -> EXECBLOCK("FA040S",.F.,.F.)

FINA040.PRX - FA040MCPO() -> ACPOS := EXECBLOCK("F040CPO",.F.,.F.,ACPOS)

FINA040.PRX - FA040MONP() -> LRET := EXECBLOCK("F040DELC",.F.,.F.,AREG)

FINA040.PRX - FA040NATUR() -> LPODE := EXECBLOCK("F040ALN",.F.,.F.)

FINA040.PRX - FA040NATUR() -> M->E1_ISS := EXECBLOCK("FA040ISS",.F.,.F.,NBASEISS)

FINA040.PRX - FA040SUBST() -> EXECBLOCK("F040PROV",.F.,.F.)

FINA040.PRX - FA040SUBST() -> LOCAL LDELPROVIS := IF(LF40DELPR, EXECBLOCK("F40DELPR",.F.,.F.), .F.)

FINA040.PRX - FA040SUBST() -> LRET := EXECBLOCK("F040BLQ",.F.,.F.)

FINA040.PRX - FA040VENC() -> LRECALIMP := EXECBLOCK("F040RECIMP",.F.,.F.)

FINA040.PRX - FA040VENC() -> M->E1_VENCREA := EXECBLOCK("F040VENCR",.F.,.F.,{})

FINA040.PRX - FINA040() -> AAUTOCAB := EXECBLOCK("F040RAUTO",.F.,.F.,{AAUTOCAB})

FINA040.PRX - FINA040() -> MBROWSE( 6, 1,22,75,"SE1",,,,,, FA040LEGENDA("SE1"),,,,,,,,IIF(EXISTBLOCK("F040FILB"),EXECBLOCK("F040FILB",.F.,.F.),NIL))

FINA040.PRX - GERAPARCSE1() -> A040DESD := EXECBLOCK( "F040DESD" )

FINA040.PRX - GERAPARCSE1() -> DDTEMISS := EXECBLOCK("F040DTDES",.F.,.F.)

FINA040.PRX - GERAPARCSE1() -> EXECBLOCK("FA040PAR",.F.,.F., A040DESD)

FINA040.PRX - GERAPARCSE1() -> LGRVSA1 := EXECBLOCK("F040TRVSA1",.F.,.F.)

FINA040.PRX - MENUDEF() -> AROTINANEW := EXECBLOCK("FI040ROT",.F.,.F.,AROTINA)

FINA045.PRW - F045SA1() -> CQUERY += EXECBLOCK("FA045QRY",.F.,.F.)

FINA050.PRX - BUILDSE2FI2() -> AITEMS := EXECBLOCK("F050JUST",.F.,.F.,{AITEMS})

FINA050.PRX - CTBRATFIN() -> ARET := EXECBLOCK("F050TMP1",.F.,.F.,{NTIPO,CCODRATEIO,CPROG,CPADRAO,CDEBITO,CCREDITO,CHISTORICO,LF050AUTO,NOPRAT})

FINA050.PRX - F050CARR() -> EXECBLOCK("F50CARTMP1", .F., .F., {CPADRAO,NTIPO,CPROG})

FINA050.PRX - F050CARR() -> EXECBLOCK("F50CTMP1", .F., .F., {CPADRAO,NTIPO,CPROG})

FINA050.PRX - F050CMPRAT() -> ACAMPOS := EXECBLOCK("F050HEAD",.F.,.F.,{ACAMPOS})

FINA050.PRX - F050DSDOBR() -> IF LF05MONTDD .AND. EXECBLOCK("F05MONTDD",.F.,.F.)

FINA050.PRX - F050ESCRAT() -> ARET := EXECBLOCK("F050RAUT",.F.,.F.)

FINA050.PRX - F050ESCRAT() -> ARET2 := EXECBLOCK("F050TMP1",.F.,.F.,{/*NTIPO*/,CCODRATEIO,CPROG,CPADRAO,CDEBITO,CCREDITO,CHISTORICO,LF050AUTO,NOPRAT})

FINA050.PRX - F050HEADCT() -> ACAMPOS := EXECBLOCK("F050HEAD",.F.,.F.,{ACAMPOS})

FINA050.PRX - F050TOTMES() -> AFIL10925 := EXECBLOCK( "FA050RTF", .F., .F. )

FINA050.PRX - F050TOTMES() -> AFORNECE := EXECBLOCK("FA050FOR", .F., .F.)

FINA050.PRX - F050VIMP() -> DNEXTDAY := EXECBLOCK("F050MDVC",.F.,.F.,{DNEXTDAY,CIMPOSTO,DEMISSAO,DEMIS1,DVENCREA,CRETENCAO})

FINA050.PRX - FA050ALTER() -> ACRETS :=EXECBLOCK("FINCDRET")

FINA050.PRX - FA050ALTER() -> CTUDOOK += ' .AND. EXECBLOCK("FA050ALT",.F.,.F.)'

FINA050.PRX - FA050ALTER() -> EXECBLOCK("F050ALT",.F.,.F.,{NOPCA})

FINA050.PRX - FA050ALTER() -> IF !EXECBLOCK("FA050UPD",.F.,.F.)

FINA050.PRX - FA050AXALT() -> ACRETS :=EXECBLOCK("FINCDRET")

FINA050.PRX - FA050AXALT() -> EXECBLOCK("F050ISS",.F.,.F.,NREGSE2)

FINA050.PRX - FA050AXALT() -> EXECBLOCK("F050SES",.F.,.F.,NREGSE2)

FINA050.PRX - FA050AXINC() -> EXECBLOCK("F050INC",.F.,.F.)

FINA050.PRX - FA050AXINC() -> EXECBLOCK("FA050CT",.F.,.F.)

FINA050.PRX - FA050AXINC() -> EXECBLOCK("FA050FIN",.F.,.F.)

FINA050.PRX - FA050AXINC() -> EXECBLOCK("FA050GRV",.F.,.F.)

FINA050.PRX - FA050BAR() -> AUSBUTTONS := EXECBLOCK( "F050BUT", .F., .F. )

FINA050.PRX - FA050CHEC2() -> CQUERY += EXECBLOCK("FA050FIL",.F.,.F.)

FINA050.PRX - FA050CHEQUE() -> LRET := EXECBLOCK("F050CHEQ",.F.,.F.)

FINA050.PRX - FA050COND() -> DDTVENC := EXECBLOCK("F50DTDSD",.F.,.F.)

FINA050.PRX - FA050COND() -> LPERPC1 := EXECBLOCK("F050PRPC",.F.,.F.)

FINA050.PRX - FA050DELET() -> AEXCSE3 := EXECBLOCK("F050DSE3",.F.,.F.,{SE3->(RECNO())})

FINA050.PRX - FA050DELET() -> EXECBLOCK ("FA050RAT",.F.,.F.)

FINA050.PRX - FA050DELET() -> EXECBLOCK("FA050B01",.F.,.F.)

FINA050.PRX - FA050DELET() -> IF !EXECBLOCK("FA050UPD",.F.,.F.)

FINA050.PRX - FA050DELET() -> IF !LF050DEL1 .OR. !EXECBLOCK("F050DEL1", .F., .F.)

FINA050.PRX - FA050DELET() -> LOCAL LOK  AS LOGICAL

FINA050.PRX - FA050DELET() -> LOK := .T.

FINA050.PRX - FA050DELET() -> LOK := EXECBLOCK("FA050DEL",.F.,.F.)

FINA050.PRX - FA050DOCS() -> EXECBLOCK("F050DOCS",.F.,.F.,{XFILIAL("SE2")+SE2->(E2_PREFIXO+E2_NUM+E2_PARCELA+E2_TIPO+E2_FORNECE+E2_LOJA),OGET:ACOLS,OGET:AHEADER})

FINA050.PRX - FA050INCLU() -> CTUDOOK += ' .AND. EXECBLOCK("F050ADPC",.F.,.F.,{AVALORES})'

FINA050.PRX - FA050INCLU() -> CTUDOOK += ' .AND. EXECBLOCK("FA050INC",.F.,.F.)'

FINA050.PRX - FA050INCLU() -> EXECBLOCK( "F050CAN", .F., .F. )

FINA050.PRX - FA050INCLU() -> LPODEINC := EXECBLOCK("FA050UPD",.F.,.F.)

FINA050.PRX - FA050INIS() -> EXECBLOCK("F050TPRV",.F.,.F.)

FINA050.PRX - FA050INIS() -> EXECBLOCK("FA050S",.F.,.F.)

FINA050.PRX - FA050INVERTE() -> EXECBLOCK("F050NPROV",.F.,.F.,{CCHAVELBN})

FINA050.PRX - FA050LINCT() -> LRET := EXECBLOCK("F050LRCT", .F., .F. )

FINA050.PRX - FA050MCPO() -> ACPOS := EXECBLOCK("F050MCP",.F.,.F.,ACPOS)

FINA050.PRX - FA050MONP() -> LRET := EXECBLOCK("F050DELC",.F.,.F.,AREG)

FINA050.PRX - FA050NAT2() -> EXECBLOCK("F050GRVL",.F.,.F.)

FINA050.PRX - FA050NAT2() -> LAPLICATP := EXECBLOCK("F050ATP",.F.,.F.)

FINA050.PRX - FA050NAT2() -> M->E2_INSS := EXECBLOCK("F050INBR",.F.,.F.,M->E2_VALOR)

FINA050.PRX - FA050NAT2() -> M->E2_IRRF := EXECBLOCK("F050CIRF",.F.,.F.,NBASEIRRF)

FINA050.PRX - FA050SUBST() -> EXECBLOCK("F050PROV",.F.,.F.)

FINA050.PRX - FA050SUBST() -> LDELPROVIS  := IF(LF50DELPR, EXECBLOCK("F50DELPR",.F.,.F.), .F.)

FINA050.PRX - FA050TUDCT() -> LRET := EXECBLOCK("F0502RAT",.F.,.F.)

FINA050.PRX - FA050TUDCT() -> LRET := EXECBLOCK("F050RAT",.F.,.F.)

FINA050.PRX - FA050VALRAT() -> NOPCA:= EXECBLOCK("F050VLRAT",.F.,.F., CCODRATEIO)

FINA050.PRX - FA050VISUA() -> EXECBLOCK("F050VIS",.F.,.F.)

FINA050.PRX - FA050VLSUB() -> LRET := EXECBLOCK("FA050VLS",.F.,.F.)

FINA050.PRX - FCALCINSPJ() -> IF ( !LRETPER .AND. NINSSTOT + NINSSACUM < NVLMININSS) .AND. ( IIF( EXISTBLOCK("FINVLDINS"), EXECBLOCK("FINVLDINS", .F., .F., {} ), .T. ) )

FINA050.PRX - FCALCIR() -> CQUERY += EXECBLOCK("FIN050IR", .F. , .F. , CQUERY)

FINA050.PRX - FCALCIR() -> LCALCIR := EXECBLOCK("F050CALIR",.F.,.F.)

FINA050.PRX - FCALCIR() -> NBASEIRRF := EXECBLOCK("F50CIRFF",.F.,.F.,NBASEIRRF)

FINA050.PRX - FINA050() -> EXECBLOCK("F050BROW",.F.,.F.)

FINA050.PRX - FINA050() -> MBROWSE( 6, 1,22,75,"SE2",,,,,, FA040LEGENDA("SE2"),,,,,,,,IIF(LF050FILB,EXECBLOCK("F050FILB",.F.,.F.),NIL))

FINA050.PRX - FSUBSCPOU() -> AINICPOS := EXECBLOCK("FA050SUB",.F.,.F.)

FINA050.PRX - FSUBSMOTBX() -> CFILE := EXECBLOCK("FILEMOT",.F.,.F.,{CFILE})

FINA050.PRX - GERAPARCSE2() -> A050DESD := EXECBLOCK( "F050DESD" )

FINA050.PRX - GERAPARCSE2() -> ARET := EXECBLOCK("FA050DES",.F.,.F., APARCELAS)

FINA050.PRX - GERAPARCSE2() -> EXECBLOCK("F050GRDS",.F.,.F.)

FINA050.PRX - GERAPARCSE2() -> EXECBLOCK("FA050PAR",.F.,.F., A050DESD)

FINA050.PRX - GERAPARCSE2() -> _ATIT := EXECBLOCK("F050DESIMP",.F.,.F.,{_ATIT})

FINA050.PRX - MENUDEF() -> AROTINANEW := EXECBLOCK("F050ROT",.F.,.F.,AROTINA)

FINA050.PRX - VERINSSACM() -> AFILINSS := EXECBLOCK( "F50TFINS", .F., .F. )

FINA050.PRX - VERINSSCALC() -> AFILINSS := EXECBLOCK( "F50TFINS", .F., .F. )

FINA060.PRX - F060VLD() -> LRET := EXECBLOCK("F060VBCO",.F.,.F.,{CBANCO,CAGENCIA,CCONTA,CSITUACAO,CCONTRATO})

FINA060.PRX - F60VLDUSER() -> LRET := EXECBLOCK("F060VLOK",.F.,.F.,{CNUMBOR, CPORT060,CAGEN060,CCONTA060,CSITUACAO,DVENCINI,DVENCFIM,NLIMITE,NMOEDA,CCONTRATO,DEMISDE,DEMISATE,CCLIDE,CCLIATE})

FINA060.PRX - FA060AGE2() -> _LF060ASIT := EXECBLOCK("F060ASIT")

FINA060.PRX - FA060BORDE() -> @ 018,195 MSGET CNATUREZA PICTURE "@!"  F3 "SED" VALID F060VLDNAT(CNATUREZA, CSITUACAO) .AND. IIF(_LF060NDES,EXECBLOCK("F060NDES",.F.,.F.,{CNATUREZA}),.T.) .AND. FA060TXDES(@NVALCRED,NTAXADESC,@NTXIOF,@NVLRIOF) SIZE 60,8 OF OPANEL PIXEL HASBUTTON

FINA060.PRX - FA060BORDE() -> AF060CH := EXECBLOCK("F060CHAV", .F., .F., { ACHAVETRB })

FINA060.PRX - FA060BORDE() -> ASTRU:= EXECBLOCK("F060TRB",.F.,.F.,{ASTRU})

FINA060.PRX - FA060BORDE() -> CCAMPOCLI:= EXECBLOCK("F060CPBOR", .F., .F.)

FINA060.PRX - FA060BORDE() -> CFIL060 := EXECBLOCK("FA60FIL",.F.,.F.,{CPORT060,CAGEN060,CCONTA060,CSITUACAO,DVENCINI,DVENCFIM,NLIMITE,NMOEDA,CCONTRATO,DEMISDE,DEMISATE,CCLIDE,CCLIATE})

FINA060.PRX - FA060BORDE() -> CHISTORICO := EXECBLOCK("F060HIST",.F.,.F.,{CSITUACAO})

FINA060.PRX - FA060BORDE() -> CNUMBOR := EXECBLOCK("F060BOR",.F.,.F.)

FINA060.PRX - FA060BORDE() -> CQUERY := EXECBLOCK("F060QRCP",.F.,.F.,{CQUERY})

FINA060.PRX - FA060BORDE() -> CQUERYADD := EXECBLOCK("FA060QRY",.F.,.F.,{CAGEN060,CCONTA060,CPORT060})

FINA060.PRX - FA060BORDE() -> EXECBLOCK("F060EXIT",.F.,.F.)

FINA060.PRX - FA060BORDE() -> EXECBLOCK("F060PROC",.F.,.F.,{CPORT060,CAGEN060,CCONTA060,CSITUACAO,DVENCINI,DVENCFIM,NLIMITE,NMOEDA,CCONTRATO,DEMISDE,DEMISATE,CCLIDE,CCLIATE})

FINA060.PRX - FA060BORDE() -> EXECBLOCK("F060SEA2",.F.,.F.)

FINA060.PRX - FA060BORDE() -> EXECBLOCK("FA060SE5",.F.,.F.)

FINA060.PRX - FA060BORDE() -> EXECBLOCK("FA60BDE",.F.,.F.)

FINA060.PRX - FA060BORDE() -> LF060LOOP := EXECBLOCK("F060LOOP",.F.,.F.)

FINA060.PRX - FA060BORDE() -> LMARKABT := EXECBLOCK("F060ABT",.F.,.F.)

FINA060.PRX - FA060CANC() -> EXECBLOCK("F060EXCL",.F.,.F.)

FINA060.PRX - FA060CANC() -> EXECBLOCK("FA60CAN2",.F.,.F.)

FINA060.PRX - FA060CANC() -> LCANCELA := EXECBLOCK("FA60CAN1",.F.,.F.)

FINA060.PRX - FA060CANDE() -> LVALORZERO := EXECBLOCK("F060VLZ",.F.,.F.)

FINA060.PRX - FA060DBEVA() -> LRET := EXECBLOCK("FA060VLD", .F., .F.,{ CMARCA, CALIAS })

FINA060.PRX - FA060DBEVA() -> NDATA := EXECBLOCK("F060DPM",.F.,.F.)

FINA060.PRX - FA060DESC() -> @ 018,195 MSGET CNATUREZA PICTURE "@!"  F3 "SED" VALID F060VLDNAT(CNATUREZA, CSITUACAO) .AND. IIF(_LF060NDES,EXECBLOCK("F060NDES",.F.,.F.,{CNATUREZA}),.T.) .AND. FA060TXDES(@NVALCRED,NTAXADESC,@NTXIOF,@NVLRIOF) SIZE 60,8 OF OPANEL PIXEL HASBUTTON

FINA060.PRX - FA060DESC() -> CHISTORICO := EXECBLOCK("F060HIST",.F.,.F.,{CSITUACAO})

FINA060.PRX - FA060DISP() -> EXECBLOCK("F060MARK",.F.,.F.)

FINA060.PRX - FA060DISP() -> NDATA := EXECBLOCK("F060DPM",.F.,.F.)

FINA060.PRX - FA060DISP() -> NPRAZOMED := EXECBLOCK("F060CPM",.F.,.F., {NSOMADATA,NQTDTIT,NPRAZO,NVALOR,NPRAZOMED})

FINA060.PRX - FA060INVERTE() -> EXECBLOCK("F060MARK",.F.,.F.)

FINA060.PRX - FA060INVERTE() -> LRET := EXECBLOCK("FA060VLD", .F., .F., { CMARCA, "TRB" })

FINA060.PRX - FA060INVERTE() -> NDATA := EXECBLOCK("F060DPM",.F.,.F.)

FINA060.PRX - FA060INVERTE() -> NPRAZOMED := EXECBLOCK("F060CPM",.F.,.F., {NSOMADATA,NQTDTIT,NPRAZO,NVALOR,NPRAZOMED})

FINA060.PRX - FA060LEGEND() -> ATMP := ACLONE(EXECBLOCK("F060LEGEN", .F., .F.))

FINA060.PRX - FA060LEGEND() -> ATMPCORES := EXECBLOCK("F060CORES", .F., .F., ALEGENDA)

FINA060.PRX - FA060MARKB() -> ACAMPOS:= EXECBLOCK("F060COL",.F.,.F.,{ACAMPOS})

FINA060.PRX - FA060MARKB() -> AF060BUT := EXECBLOCK("F060BUT", .F., .F.)

FINA060.PRX - FA060MARKB() -> NVALOR:= EXECBLOCK("F060VLTOT",.F.,.F.,{NVALOR})

FINA060.PRX - FA060POR2() -> EXECBLOCK("F060POR2",.F.,.F.)

FINA060.PRX - FA060TELOK() -> LRET := EXECBLOCK("F060OK",.F.,.F.,ADADOS)

FINA060.PRX - FA060TRANS() -> EXECBLOCK("F060ACT",.F.,.F.,{ADADOSF060ACT})

FINA060.PRX - FA060TRANS() -> EXECBLOCK("F060EXIT",.F.,.F.)

FINA060.PRX - FA060TRANS() -> EXECBLOCK("F060SEA",.F.,.F.)

FINA060.PRX - FA060TRANS() -> EXECBLOCK("FA60SIT2",.F.,.F.)

FINA060.PRX - FA060TRANS() -> EXECBLOCK("FA60TRAN",.F.,.F.)

FINA060.PRX - FA060TRANS() -> IF !(EXECBLOCK("FA060TRF",.F.,.F.))

FINA060.PRX - FA060TRANS() -> LMARKABT := EXECBLOCK("F060ABT",.F.,.F.)

FINA060.PRX - FA060TRANS() -> NVALCRED := EXECBLOCK("F060DGV", .F., .F., {NVALCRED, NVALDESC})

FINA060.PRX - FA060VERSIT() -> ARETPOR:= EXECBLOCK("F060ALTPOR",.F.,.F.,{CPORT060,CAGEN060,CCONTA060, CSITUACAO})

FINA061.PRX - F061VLD() -> LRET := EXECBLOCK("F060VBCO",.F.,.F.,{CBANCO,CAGENCIA,CCONTA,CSITCOMBO,CCONTRATO})

FINA061.PRX - F61VLDUSER() -> LRET := EXECBLOCK("F060VLOK",.F.,.F.,{CNUMBOR, CPORT060,CAGEN060,CCONTA060,CSITUACAO,DVENCINI,DVENCFIM,NLIMITE,NMOEDA,CCONTRATO,DEMISDE,DEMISATE,CCLIDE,CCLIATE})

FINA061.PRX - FA061BAVAL() -> LRET := EXECBLOCK( "FA060VLD", .F., .F., { CMARCA, "TRB" } )

FINA061.PRX - FA061BORDE() -> ASITUACOES:= EXECBLOCK("F060SITUAC",.F.,.F.,ASITUACOES)

FINA061.PRX - FA061BORDE() -> ASTRU:= EXECBLOCK("F060TRB",.F.,.F.,{ASTRU})

FINA061.PRX - FA061BORDE() -> CCAMPOCLI:= EXECBLOCK("F060CPBOR", .F., .F.)

FINA061.PRX - FA061BORDE() -> CFIL060 := EXECBLOCK("FA60FIL",.F.,.F.,{CPORT060,CAGEN060,CCONTA060,CSITUACAO,DVENCINI,DVENCFIM,NLIMITE,NMOEDA,CCONTRATO,DEMISDE,DEMISATE,CCLIDE,CCLIATE})

FINA061.PRX - FA061BORDE() -> CNUMBOR := EXECBLOCK("F060BOR",.F.,.F.)

FINA061.PRX - FA061BORDE() -> CQUERY := EXECBLOCK("F060QRCP",.F.,.F.,{CQUERY})

FINA061.PRX - FA061BORDE() -> CQUERYADD := EXECBLOCK("FA060QRY",.F.,.F.,{CAGEN060,CCONTA060,CPORT060})

FINA061.PRX - FA061BORDE() -> EXECBLOCK("F060EXIT",.F.,.F.)

FINA061.PRX - FA061BORDE() -> EXECBLOCK("F060PROC",.F.,.F.,{CPORT060,CAGEN060,CCONTA060,CSITUACAO,DVENCINI,DVENCFIM,NLIMITE,NMOEDA,CCONTRATO,DEMISDE,DEMISATE,CCLIDE,CCLIATE})

FINA061.PRX - FA061BORDE() -> EXECBLOCK("F060SEA2",.F.,.F.)

FINA061.PRX - FA061BORDE() -> EXECBLOCK("FA060SE5",.F.,.F.)

FINA061.PRX - FA061BORDE() -> EXECBLOCK("FA60BDE",.F.,.F.)

FINA061.PRX - FA061BORDE() -> LF060LOOP := EXECBLOCK("F060LOOP",.F.,.F.)

FINA061.PRX - FA061BORDE() -> LMARKABT := EXECBLOCK("F060ABT",.F.,.F.)

FINA061.PRX - FA061CANC() -> EXECBLOCK("FA60CAN2",.F.,.F.)

FINA061.PRX - FA061CANC() -> LCANCELA := EXECBLOCK("FA60CAN1",.F.,.F.)

FINA061.PRX - FA061DBEVA() -> LRET := EXECBLOCK( "FA060VLD", .F., .F.,{ CMARCA, CALIAS })

FINA061.PRX - FA061DBEVA() -> NDATA := EXECBLOCK("F060DPM",.F.,.F.)

FINA061.PRX - FA061DISP() -> EXECBLOCK("F060MARK",.F.,.F.)

FINA061.PRX - FA061DISP() -> NDATA := EXECBLOCK("F060DPM",.F.,.F.)

FINA061.PRX - FA061DISP() -> NPRAZOMED := EXECBLOCK("F060CPM",.F.,.F., {NSOMADATA,NQTDTIT,NPRAZO,NVALOR,NPRAZOMED})

FINA061.PRX - FA061INVERTE() -> EXECBLOCK("F060MARK",.F.,.F.)

FINA061.PRX - FA061INVERTE() -> LRET := EXECBLOCK( "FA060VLD", .F., .F., { CMARCA, "TRB" } )

FINA061.PRX - FA061INVERTE() -> NDATA := EXECBLOCK("F060DPM",.F.,.F.)

FINA061.PRX - FA061INVERTE() -> NPRAZOMED := EXECBLOCK("F060CPM",.F.,.F., {NSOMADATA,NQTDTIT,NPRAZO,NVALOR,NPRAZOMED})

FINA061.PRX - FA061LEGEND() -> ATMP := ACLONE(EXECBLOCK( "F060LEGEN", .F., .F. ))

FINA061.PRX - FA061LEGEND() -> ATMPCORES := EXECBLOCK("F060CORES", .F., .F., ALEGENDA)

FINA061.PRX - FA061MARKB() -> ACAMPOS:= EXECBLOCK("F060COL",.F.,.F.,{ACAMPOS})

FINA061.PRX - FA061MARKB() -> NVALOR:= EXECBLOCK("F060VLTOT",.F.,.F.,{NVALOR})

FINA061.PRX - FA061TELOK() -> LRET := EXECBLOCK("F060OK",.F.,.F.,ADADOS)

FINA069.PRW - FINA069PRO() -> EXECBLOCK("FA069GRV",.F.,.F.)

FINA070.PRX - CADCHEQCR() -> ACOLS := EXECBLOCK("F070DCHQ",.F.,.F.,{ACPOACOLS,ACOLS})

FINA070.PRX - CADCHEQLOK() -> LRESP := EXECBLOCK("F070VCHL",.F.,.F.)

FINA070.PRX - CADCHEQLOK() -> LRET := EXECBLOCK("F070CLOK",.F.,.F.)

FINA070.PRX - F070ALTBCO() -> LRET := EXECBLOCK("F070KCO",.F.,.F.,{CBANCO,CAGENCIA,CCONTA})

FINA070.PRX - F070CMC7() -> EXECBLOCK("F070CMC7", .F., .F. )

FINA070.PRX - F070CMC7() -> NDIASVCTO := EXECBLOCK("F070VENCTO", .F., .F. )

FINA070.PRX - F070DSC() -> LRET := EXECBLOCK("F070DSC",.F.,.F.)

FINA070.PRX - F070DTRE() -> LRET := EXECBLOCK("F070DTRE",.F.,.F.)

FINA070.PRX - F070JRS() -> LRET := EXECBLOCK("F070JRS",.F.,.F.)

FINA070.PRX - F070MUL() -> LRET := EXECBLOCK("F070MUL",.F.,.F.)

FINA070.PRX - F070TOTMES() -> ACLI10925 := EXECBLOCK("F070LOJA",.F.,.F.)

FINA070.PRX - F070TOTMES() -> AFIL10925 := EXECBLOCK( "MT103FRT", .F., .F. )

FINA070.PRX - F070TXPER() -> LRET := EXECBLOCK("F070TXPER",.F.,.F.)

FINA070.PRX - F070VLMRK() -> LRET := EXECBLOCK("F070BXLT",.F.,.F.)

FINA070.PRX - F70CANCTB() -> CTPREA := EXECBLOCK( "F070TREA", .F., .F. )

FINA070.PRX - FA070BTOK() -> LRET := EXECBLOCK("F070BTOK",.F.,.F.)

FINA070.PRX - FA070BUT() -> EXECBLOCK ("F070BXLT",.F.,.F.,{LBXLOTE})

FINA070.PRX - FA070BUT() -> EXECBLOCK("F070ACRE",.F.,.F.)

FINA070.PRX - FA070BUT() -> LMULTNAT := EXECBLOCK("F070MNAT",.F.,.F.)

FINA070.PRX - FA070BUT() -> LRET := EXECBLOCK("FA070TIT",.F.,.F.,{NPARCIAIS})

FINA070.PRX - FA070CAN() -> IF !EXECBLOCK('FA070CA3',.F.,.F.,NOPCX)

FINA070.PRX - FA070CAN*/() -> @ NULTLIN,090 CHECKBOX OCHQCAN VAR LCHQDEV := IIF(__LF070CHDV, EXECBLOCK("F070CHDV",.F.,.F.),.F.) PROMPT "" SIZE 11,11 OF ODLG PIXEL

FINA070.PRX - FA070CAN*/() -> ACANCEL :=  EXECBLOCK("F070CANCEL",.F.,.F.,{NTOTABLIQ,NTOTABIMP,NVALORM1,NCM1,NDESCONT,NMULTA,NJUROS})

FINA070.PRX - FA070CAN*/() -> CSEQAUX := EXECBLOCK("F070HISCAN",.F.,.F.,{SE5->E5_TIPODOC,CCHAVE,CSEQUENCIA,CHISTCAN070,DBAIXA,CPADRAO,NHDLPRV,AFLAGCTB,LPADRAO,LCTBBAIXA})

FINA070.PRX - FA070CAN*/() -> EXECBLOCK("F070BXABT",.F.,.F., {CDESCRMO})

FINA070.PRX - FA070CAN*/() -> EXECBLOCK("F070EST",.F.,.F.,{NVALRETIR})

FINA070.PRX - FA070CAN*/() -> EXECBLOCK("F070EST2",.F.,.F.,{ SE5->E5_TIPODOC , CCHAVE })

FINA070.PRX - FA070CAN*/() -> EXECBLOCK("FA070CA2",.F.,.F.,{NOPCX})

FINA070.PRX - FA070CAN*/() -> EXECBLOCK('F070CCAN',.F.,.F.,ODLG:END()),.F.), ;

FINA070.PRX - FA070CAN*/() -> EXECBLOCK('F070CCAN',.F.,.F.,ODLG:END()),.F.),;

FINA070.PRX - FA070CAN*/() -> EXECBLOCK('FA070CAN',.F.,.F.,NVALOR)

FINA070.PRX - FA070CAN*/() -> EXECBLOCK('SE5FI70E',.F.,.F.,NOPCX)

FINA070.PRX - FA070CAN*/() -> LBLOQSA1 := EXECBLOCK("F070TRAVA",.F.,.F.)

FINA070.PRX - FA070CAN*/() -> LRET := EXECBLOCK('FA070CA4',.F.,.F.,NOPCX)

FINA070.PRX - FA070CAN*/() -> NAUX := EXECBLOCK("F070DCDESC",.F.,.F.,{CTYPE,CCHAVE,CSEQUENCIA,DBAIXA})

FINA070.PRX - FA070CAN*/() -> NAUX := EXECBLOCK("F070JRVLR",.F.,.F.,{CTYPE,CCHAVE,CSEQUENCIA,DBAIXA})

FINA070.PRX - FA070CAN*/() -> NOPBAIXA :=EXECBLOCK("F070BAUT",.F.,.F.,{ABAIXA,NOPBAIXA})

FINA070.PRX - FA070CAN*/() -> NTOTAL += EXECBLOCK("F070CTC",.F.,.F.,{CPADRAO,NHDLPRV})

FINA070.PRX - FA070CAN*/() -> NVALABT := EXECBLOCK("F070CANABT",.F.,.F.)

FINA070.PRX - FA070CHECF() -> CFILTRO += EXECBLOCK("F070OWN",.F.,.F.)

FINA070.PRX - FA070DATA() -> EXECBLOCK("F070ALTV",.F.,.F.,LHELP)

FINA070.PRX - FA070DATA() -> LRETPE := EXECBLOCK("FDATAUSE", .F. , .F. )

FINA070.PRX - FA070DESC() -> LRET := EXECBLOCK("F070DESC",.F.,.F.,{NDESCONT})

FINA070.PRX - FA070GRAVA() -> DDTCREDITO := EXECBLOCK("F070DTCR",.F.,.F.,DDTCREDITO)

FINA070.PRX - FA070GRAVA() -> EXECBLOCK("F070VSE5",.F.,.F.)

FINA070.PRX - FA070GRAVA() -> EXECBLOCK("FA070BXL",.F.,.F.)

FINA070.PRX - FA070INVERTE() -> LBXTITREC := EXECBLOCK("F110TIT",.F.,.F., { NVALORMARCA })

FINA070.PRX - FA070LIQ() -> NJUROS := EXECBLOCK("FCALCJUR",.F.,.F.)

FINA070.PRX - FA070LIQ() -> NTOTABIMP := EXECBLOCK("F070IRBX", .F., .F., {NVALREC, NTOTABIMP})

FINA070.PRX - FA070LOT() -> .AND. IIF(__LFA70BCO,EXECBLOCK("FA070BCO",.F.,.F.),.T.) .AND. IIF(LJFILBCO, JURVLDSA6("1", {CESCRIT, CBANCOLT, CAGENCIALT, CCONTALT}), .T.))

FINA070.PRX - FA070LOT() -> LPREMARK := EXECBLOCK("F070MARK",.F.,.F.)

FINA070.PRX - FA070TIT() -> ABUTTONS:= EXECBLOCK("FA070BTN",.F.,.F.,{ABUTTONS})

FINA070.PRX - FA070TIT() -> ACPOSDES:=EXECBLOCK("F070DCNB",.F.,.F.)

FINA070.PRX - FA070TIT() -> EXECBLOCK("F070ACRE",.F.,.F.)

FINA070.PRX - FA070TIT() -> IF !(EXECBLOCK("F070VLAD",.F.,.F.))

FINA070.PRX - FA070TIT() -> IF !(EXECBLOCK("FA070CHK",.F.,.F.))

FINA070.PRX - FA070TIT() -> LMULTNAT := EXECBLOCK("F070MNAT",.F.,.F.)

FINA070.PRX - FA070TIT*/() -> (IIF(__LFA70BCO,EXECBLOCK("FA070BCO",.F.,.F.),.T.) .AND.;

FINA070.PRX - FA070TIT*/() -> .AND. IF(CBXDTFIN == "2",DTMOVFIN(DBAIXA,,"2"),.T.) .AND. PCOVLDLAN("000004","01","FINA070") .AND. IIF(__LFA070MDB .AND. !LMDBOK,LMDBOK:=EXECBLOCK("FA070MDB",.F.,.F.) ,.T.) ,;

FINA070.PRX - FA070TIT*/() -> .AND. IF(CBXDTFIN == "2",DTMOVFIN(DBAIXA,,"2"),.T.) .AND. PCOVLDLAN("000004","01","FINA070") .AND. IIF(__LFA070MDB .AND. !LMDBOK,LMDBOK:=EXECBLOCK("FA070MDB",.F.,.F.) ,.T.) ;

FINA070.PRX - FA070TIT*/() -> @ NLINHA,204 MSGET OCM1 VAR NCM1  SIZE 66, 08 OF OPANEL2 PIXEL HASBUTTON WHEN IIF( IIF(EXISTBLOCK("PEBLQCM"), EXECBLOCK("PEBLQCM",.F.,.F.), .F.) .OR. SE1->E1_TIPO $ MVRECANT+"/"+MV_CRNEG .AND. !MOVBCOBX(CMOTBX, .T.), .F., .T.)  PICTURE PESQPICT( "SE1","E1_JUROS" ) ;

FINA070.PRX - FA070TIT*/() -> AADD(AVALIDGET,{'CMOTBX' ,AAUTOCAB[NT,2],"FA070BDEV().AND. EXECBLOCK('FA070MDB',.F.,.F.)",.T.})

FINA070.PRX - FA070TIT*/() -> EXECBLOCK( "F070BXPC", .F., .F. )

FINA070.PRX - FA070TIT*/() -> EXECBLOCK("F070ACONT",.F.,.F.)

FINA070.PRX - FA070TIT*/() -> EXECBLOCK("FA070POS",.F.,.F.)

FINA070.PRX - FA070TIT*/() -> EXECBLOCK("SACI008",.F.,.F.)

FINA070.PRX - FA070TIT*/() -> IIF(__LFA070MDB,LMDBOK:=EXECBLOCK("FA070MDB",.F.,.F.),.T.)

FINA070.PRX - FA070TIT*/() -> LBLOQSA1 := EXECBLOCK("F070TRAVA",.F.,.F.)

FINA070.PRX - FA070TIT*/() -> LLIBCM := EXECBLOCK("FA070BLQ",.F.,.F.)

FINA070.PRX - FA070TIT*/() -> LRET := EXECBLOCK("FA070TIT",.F.,.F.,{NPARCIAIS})

FINA070.PRX - FA070TIT*/() -> NAUX := EXECBLOCK("FA070ACR",.F.,.F.,{NDECRVLR})

FINA070.PRX - FA070TIT*/() -> NOPC1 := EXECBLOCK("F070TCTR",.F.,.F.,{NOPC1,NSOMACHEQ,NVALREC})

FINA070.PRX - FA070TIT*/() -> NTOTAL += EXECBLOCK("F070CTB",.F.,.F.,{CPADRAO,NHDLPRV})

FINA070.PRX - FA070TITW() -> EXECBLOCK("F070ACRE",.F.,.F.)

FINA070.PRX - FA070TITW() -> IF(LFA070MDB.AND. !LMDBOK,LMDBOK:=EXECBLOCK("FA070MDB",.F.,.F.),.T.) .AND. ;

FINA070.PRX - FA070TITW() -> LMULTNAT := EXECBLOCK("F070MNAT",.F.,.F.)

FINA070.PRX - FA070TITW() -> VALID IIF(LFA070MDB,LMDBOK:=EXECBLOCK("FA070MDB",.F.,.F.),.T.) ;

FINA070.PRX - FA070VAL() -> LRETORNO := EXECBLOCK("F070VDATA",.F.,.F., {NVAL,NTXMOEDA})

FINA070.PRX - FA070VALREC() -> LRET := EXECBLOCK("F070VREC",.F.,.F.,{NVALREC})

FINA070.PRX - FA070VLNAT() -> LTIPO:= EXECBLOCK("F070TPBA",.F.,.F.)

FINA070.PRX - FACALCIMP() -> AIMP := EXECBLOCK("F070IMP2",.F.,.F.,{@NIRRF,@NISS,@NORIGPIS,@NORIGCOFINS,@NORIGCSLL,@NINSS, @NVALORREC})

FINA070.PRX - FACALCIMP() -> EXECBLOCK("FA070IMP",.F.,.F.,{NIRRF,NISS,NPIS,NCOFINS,NCSLL,NINSS})

FINA070.PRX - FINA070() -> MBROWSE(6, 1, 22, 75, "SE1",,,,,, FA040LEGENDA("SE1"),,,,,,,, IIF(EXISTBLOCK("F070FILB"), EXECBLOCK("F070FILB", .F., .F.), NIL))

FINA070.PRX - MENUDEF() -> EXECBLOCK("FA070BUT",.F.,.F.)

FINA074.PRW - F074CANCELNF() -> CSERIE:= EXECBLOCK("F074CASE",.F.,.F.,{CTIPODOC,SE1->E1_CLIENTE,SE1->E1_LOJA})

FINA074.PRW - F074DIFMULTI() -> CQUERYADD := EXECBLOCK("FA074QRY",.F.,.F.)

FINA074.PRW - F074GRAVA() -> ATITULO:=EXECBLOCK('FA074CPO',.F.,.F.,ATITULO)

FINA074.PRW - F074GRAVA() -> CPREFIXO:= EXECBLOCK("FINALTSE",.F.,.F.,{CTIPODOC})

FINA074.PRW - F074GRAVA() -> EXECBLOCK("FA074GRV",.F.,.F.)

FINA080.PRX - () -> LRET:=EXECBLOCK("FA080CHQ",.F.,.F.)

FINA080.PRX - F080MTBX() -> LRET := EXECBLOCK("F080MTBX",.F.,.F.)

FINA080.PRX - F080TOTMES() -> AFIL10925 := EXECBLOCK( "MT103FRT", .F., .F. )

FINA080.PRX - F080TOTMES() -> AFOR10925 := EXECBLOCK("F080LOJA",.F.,.F.)

FINA080.PRX - F080TOTMES() -> CQUERY += EXECBLOCK("FIN080PCC", .F. , .F. , CQUERY)

FINA080.PRX - FA080ADIANT() -> CCAMPOSE5 := EXECBLOCK('SE5FI080',.F.,.F.,{CCAMPOSE5,OSUBFK2})

FINA080.PRX - FA080ADIANT() -> CCAMPOSE5 := EXECBLOCK('SE5FI080',.F.,.F.,{CCAMPOSE5,OSUBFK6})

FINA080.PRX - FA080ADIANT() -> EXECBLOCK("FA080ADTSE5",.F.,.F.)

FINA080.PRX - FA080BCOCX() -> LRET := EXECBLOCK("FA080BCO", .F., .F., {CBANCO,CAGENCIA,CCONTA})

FINA080.PRX - FA080BUT() -> EXECBLOCK("F080ACRE",.F.,.F.)

FINA080.PRX - FA080BUT() -> EXECBLOCK("FA080IMP",.F.,.F.)

FINA080.PRX - FA080BUT() -> EXECBLOCK("FA080PCC",.F.,.F.,{NPIS, NCOFINS, NCSLL, NIRRF, NSALIMP})

FINA080.PRX - FA080BUT() -> EXECBLOCK("FA080PE",.F.,.F.)

FINA080.PRX - FA080BUT() -> LMULTNAT := EXECBLOCK("F080MNAT",.F.,.F.)

FINA080.PRX - FA080BUT() -> LRET:= EXECBLOCK("FA080TIT",.F.,.F.)

FINA080.PRX - FA080CAN*/() -> EXECBLOCK("F080EST",.F.,.F.)

FINA080.PRX - FA080CAN*/() -> EXECBLOCK("F080EST2",.F.,.F.)

FINA080.PRX - FA080CAN*/() -> EXECBLOCK("F080EXEA", .F., .F., {CFILBOR, SE2->E2_NUMBOR, SE2->E2_FORNECE, SE2->E2_LOJA})

FINA080.PRX - FA080CAN*/() -> EXECBLOCK("F080PCAN",.F.,.F.)

FINA080.PRX - FA080CAN*/() -> EXECBLOCK("FA080CAN",.F.,.F.,{NOPCX})

FINA080.PRX - FA080CAN*/() -> EXECBLOCK("FA080REC",.F.,.F.,{NJUROS,NMULTA,DDATAANT})

FINA080.PRX - FA080CAN*/() -> EXECBLOCK('FA080EST',.F.,.F.)

FINA080.PRX - FA080CAN*/() -> IF (EXISTBLOCK("F080PCBX") .AND. EXECBLOCK("F080PCBX",.F.,.F.)==.F.)

FINA080.PRX - FA080CAN*/() -> LEST := EXECBLOCK('FA080OWN',.F.,.F.,{NOPCX})

FINA080.PRX - FA080CAN*/() -> LEST:= EXECBLOCK('FA080VEST',.F.,.F.,NOPCX)

FINA080.PRX - FA080CONTR() -> ABXVENDO := EXECBLOCK("F080BXVEND",.F.,.F.,{CCONTRATO})

FINA080.PRX - FA080CORR() -> NCM := EXECBLOCK("F080CM",.F.,.F.)

FINA080.PRX - FA080DATA() -> CNOMECPO := EXECBLOCK("F080FILEMI",.F.,.F.,{})

FINA080.PRX - FA080DATA() -> LRET := EXECBLOCK("FA080DT", .F., .F., DBAIXA)

FINA080.PRX - FA080DBEVA() -> LBXTIT := EXECBLOCK("F080BXLT",.F.,.F.)

FINA080.PRX - FA080DBEVA() -> LBXTITVL := EXECBLOCK("F080BXVL",.F.,.F.)

FINA080.PRX - FA080ESTRANG() -> EXECBLOCK("FA080CMI",.F.,.F.)

FINA080.PRX - FA080GRAVA() -> ACPOSDES := EXECBLOCK("F080DCNB",.F.,.F.)

FINA080.PRX - FA080GRV() -> LOCAL LDELPROVIS:= IF(LF50DELPR, EXECBLOCK("F50DELPR",.F.,.F.), .F.)

FINA080.PRX - FA080GRV*/() -> CCAMPOSE5 := EXECBLOCK('SE5FI080',.F.,.F.,{CCAMPOSE5,OSUBFK2})

FINA080.PRX - FA080GRV*/() -> CCAMPOSE5 := EXECBLOCK('SE5FI080',.F.,.F.,{CCAMPOSE5,OSUBFK6})

FINA080.PRX - FA080GRV*/() -> EXECBLOCK("F80PCNB",.F.,.F.)

FINA080.PRX - FA080GRV*/() -> EXECBLOCK("FA080SEF",.F.,.F.)

FINA080.PRX - FA080GRV*/() -> EXECBLOCK("FA080VIR",.F.,.F.)

FINA080.PRX - FA080GRV*/() -> OSUBFK5 := EXECBLOCK('F80GRVFK',.F.,.F.,{OSUBFK5,NI})

FINA080.PRX - FA080GRV*/() -> OSUBFK6 := EXECBLOCK('F80GRVFK',.F.,.F.,{OSUBFK6,NI})

FINA080.PRX - FA080GRVEN() -> EXECBLOCK("F080VEND",.F.,.F., { NREC } )

FINA080.PRX - FA080INVERTE() -> IF (EXECBLOCK("F080VLAD",.F.,.F.))

FINA080.PRX - FA080INVERTE() -> LBXTIT := EXECBLOCK("F080BXLT",.F.,.F.)

FINA080.PRX - FA080INVERTE() -> LBXTITVL := EXECBLOCK("F080BXVL",.F.,.F.)

FINA080.PRX - FA080IRRF() -> NF080TXIR := EXECBLOCK("F80L9816", .F., .F., {SE2->(E2_FILIAL+E2_PREFIXO+E2_NUM+E2_PARCELA+E2_TIPO+E2_FORNECE+E2_LOJA),;

FINA080.PRX - FA080LIB() -> LRETORNO := EXECBLOCK("FA080LIB",.F.,.F.)

FINA080.PRX - FA080LOT() -> CFIL080 := EXECBLOCK("F080FIL",.F.,.F.)

FINA080.PRX - FA080LOT() -> CLOTEFIN := EXECBLOCK ("F080BXLOTE",.F.,.F.)

FINA080.PRX - FA080TIT() -> LMULTNAT := EXECBLOCK("F080MNAT",.F.,.F.)

FINA080.PRX - FA080TIT() -> LUSACMC7 := EXECBLOCK("FA080CMC",.F.,.F.)

FINA080.PRX - FA080TIT*/() -> @ NULTLIN,065 MSGET OCHEQUE VAR CCHEQUESIZE 65, 08 OF ODLG PIXEL HASBUTTON PICTURE PESQPICT( "SEF","EF_NUM") WHEN IIF(__LLGPD, !RETGLBLGPD("EF_NUM"), .T.) .AND. ( IIF( !LF080VCHEQ, FA080DIGIT(), EXECBLOCK("F080VCHEQ", .F.,.F.)) .AND. FADIGICHQ());

FINA080.PRX - FA080TIT*/() -> ABUTTONS:= EXECBLOCK("FA080BTN",.F.,.F.,{ABUTTONS})

FINA080.PRX - FA080TIT*/() -> ACPOSDES := EXECBLOCK("F080DCNB",.F.,.F.)

FINA080.PRX - FA080TIT*/() -> CBENEF := EXECBLOCK("F080BENEF",.F.,.F.)

FINA080.PRX - FA080TIT*/() -> CNOMECPO := EXECBLOCK("F080FILEMI",.F.,.F.,{})

FINA080.PRX - FA080TIT*/() -> EXECBLOCK("F080ACONT",.F.,.F.)

FINA080.PRX - FA080TIT*/() -> EXECBLOCK("F080ACRE",.F.,.F.)

FINA080.PRX - FA080TIT*/() -> EXECBLOCK("FA080IMP",.F.,.F.)

FINA080.PRX - FA080TIT*/() -> EXECBLOCK("FA080PCC",.F.,.F.,{NPIS, NCOFINS, NCSLL, NIRRF, NSALIMP})

FINA080.PRX - FA080TIT*/() -> EXECBLOCK("FA080PE",.F.,.F.)

FINA080.PRX - FA080TIT*/() -> EXECBLOCK("FA080POS",.F.,.F.)

FINA080.PRX - FA080TIT*/() -> EXECBLOCK("FINA080",.F.,.F.)

FINA080.PRX - FA080TIT*/() -> IF !(EXECBLOCK("F080VLAD",.F.,.F.))

FINA080.PRX - FA080TIT*/() -> IF !(EXECBLOCK("FA080CHK",.F.,.F.))

FINA080.PRX - FA080TIT*/() -> IF (EXISTBLOCK("F080PCBX") .AND. EXECBLOCK("F080PCBX",.F.,.F.)==.F.)

FINA080.PRX - FA080TIT*/() -> LACESSIMP := EXECBLOCK("FA080ACES",.F.,.F.)

FINA080.PRX - FA080TIT*/() -> LMENSAGEM:=EXECBLOCK("F080MENS",.F.,.F.)

FINA080.PRX - FA080TIT*/() -> LRET := EXECBLOCK("FA080TIT",.F.,.F.)

FINA080.PRX - FA080TIT*/() -> NF080TXIR := EXECBLOCK("F80L9816", .F., .F., {SE2->(E2_FILIAL+E2_PREFIXO+E2_NUM+E2_PARCELA+E2_TIPO+E2_FORNECE+E2_LOJA),;

FINA080.PRX - FA080TITW() -> EXECBLOCK("F080ACRE",.F.,.F.)

FINA080.PRX - FA080TITW() -> EXECBLOCK("FA080IMP",.F.,.F.)

FINA080.PRX - FA080TITW() -> EXECBLOCK("FA080LT" ,.F.,.F.)

FINA080.PRX - FA080TITW() -> EXECBLOCK("FA080PCC",.F.,.F.,{NPIS, NCOFINS, NCSLL, NIRRF, NSALIMP})

FINA080.PRX - FA080TITW() -> LACESSIMP := EXECBLOCK("FA080ACES",.F.,.F.)

FINA080.PRX - FA080TITW() -> LMULTNAT := EXECBLOCK("F080MNAT",.F.,.F.)

FINA080.PRX - FA080TITW() -> LUSACMC7:=EXECBLOCK("FA080CMC",.F.,.F.)

FINA080.PRX - FA080TXIR() -> NRET := EXECBLOCK("F080TXIR", .F., .F., {CCHAVE, DDATAOP, NOPC})

FINA080.PRX - FA080VAL() -> EXECBLOCK("F080ACRE",.F.,.F.)

FINA080.PRX - FA080VAL() -> EXECBLOCK("FA080IMP",.F.,.F.)

FINA080.PRX - FA080VAL() -> EXECBLOCK("FA080PCC",.F.,.F.,{NPIS, NCOFINS, NCSLL, NIRRF, NSALIMP})

FINA080.PRX - FA080VALVR() -> EXECBLOCK("F080ACRE",.F.,.F.)

FINA080.PRX - FA080VALVR() -> EXECBLOCK("FA080IMP",.F.,.F.)

FINA080.PRX - FA080VALVR() -> EXECBLOCK("FA080PCC",.F.,.F.,{NPIS, NCOFINS, NCSLL, NIRRF, NSALIMP})

FINA080.PRX - FA080VDR() -> LRET := EXECBLOCK("F080TITV",.F.,.F.)

FINA080.PRX - FA080VERVD() -> LRET := EXECBLOCK("F080VDOK",.F.,.F.)

FINA080.PRX - FDELTXBX() -> CNATURS += EXECBLOCK("F241NAT",.F.,.F.)

FINA080.PRX - FDELTXINSS() -> CNATUINS := EXECBLOCK("F080NATINS",.F.,.F.)

FINA080.PRX - FINA080() -> MBROWSE( 6, 1,22,75,"SE2",,,,,, FA040LEGENDA("SE2"),,,,,,,,IIF(EXISTBLOCK("F080FILB"),EXECBLOCK("F080FILB",.F.,.F.),NIL))

FINA080.PRX - MENUDEF() -> EXECBLOCK("FA080BUT",.F.,.F.)

FINA084.PRW - F084DIFMULTI() -> CQUERYADD := EXECBLOCK("FA084QRY",.F.,.F.)

FINA084.PRW - F084GRAVA() -> ATITULO:=EXECBLOCK('FA084CPO',.F.,.F.,ATITULO)

FINA084.PRW - F084GRAVA() -> CPREFIXO:= EXECBLOCK("FINALTSE",.F.,.F.,{CTIPODOC})

FINA084.PRW - F084GRAVA() -> EXECBLOCK("FA084GRV",.F.,.F.)

FINA085A.PRW - A085AENCH() -> LRET:= EXECBLOCK("F85ASDBCO",.F.,.F.,{CBANCO,CAGENCIA,CCONTA,NVALORDENS})

FINA085A.PRW - A085AENCH() -> LRET:=EXECBLOCK('A085TUDOK',.F.,.F.,ACLONE(ASE2))

FINA085A.PRW - A085AGRAVRET() -> EXECBLOCK("A085ARET",.F.,.F.,"IGV")

FINA085A.PRW - A085AGRAVRET() -> EXECBLOCK("A085ARET",.F.,.F.,"IRC")

FINA085A.PRW - A085AGRAVRET() -> EXECBLOCK("A085ARET",.F.,.F.,"IRI")

FINA085A.PRW - A085AGRAVRET() -> EXECBLOCK("A085ARET",.F.,.F.,"IRIC")

FINA085A.PRW - A085AGRAVRET() -> EXECBLOCK("A085ARET",.F.,.F.,"ISR")

FINA085A.PRW - A085AGRAVRET() -> EXECBLOCK("A085ARET",.F.,.F.,"IVA")

FINA085A.PRW - A085ALNOK() -> LPERMITE :=EXECBLOCK("F085PER",.F.,.F.)

FINA085A.PRW - A085ALNOK() -> LRET:=EXECBLOCK("F085AVAL",.F.,.F.)

FINA085A.PRW - A085APAGOS() -> AHEADER2:=EXECBLOCK("A085CPOS",.F.,.F.)

FINA085A.PRW - A085APAGOS() -> EXECBLOCK("A085ACHQ",.F.,.F.,{AHEADER,ACOLS})

FINA085A.PRW - A085APAGOS() -> EXECBLOCK("A085DEFS",.F.,.F.,"2")

FINA085A.PRW - A085APAGOS() -> LOCULTA := EXECBLOCK("F85NOINFO",.F.,.F.)

FINA085A.PRW - A085APGADI() -> AHEADER2:=EXECBLOCK("A085CPOS",.F.,.F.)

FINA085A.PRW - A085APGADI() -> LALTNATU:=EXECBLOCK("A085ALNA",.F.,.F.)

FINA085A.PRW - A085APGADI() -> LOCULTA := EXECBLOCK("F85NOINFO",.F.,.F.)

FINA085A.PRW - A085APGAUT() -> AAUXSE2 := EXECBLOCK("F085ARRSE2",.F.,.F.,{ASE2})

FINA085A.PRW - A085ASHOW() -> AA085BTN := EXECBLOCK( "A085BTN" )

FINA085A.PRW - A085ATUDOK() -> LRET := EXECBLOCK("F085ANOPA",.F.,.F.,{ASALDOS[LEN(ASALDOS)]})

FINA085A.PRW - A085AVLDMD() -> LVLDNAT := EXECBLOCK("F085VLNAT",.F.,.F.,{CNATUREZA})

FINA085A.PRW - CALCRETCPR() -> LCALCGN:=EXECBLOCK("F0851IMP",.F.,.F.,{"GN"})

FINA085A.PRW - CALCRETIB() -> LCALCIB:=EXECBLOCK("F0851IMP",.F.,.F.,{"IB"})

FINA085A.PRW - CALCRETIRC() -> LCALCIMP:=EXECBLOCK("F0851IMP",.F.,.F.,{"IRC",NSIGNO})

FINA085A.PRW - CALCRETIRIC() -> LCALCIMP:=EXECBLOCK("F0851IMP",.F.,.F.,{"IRIC"})

FINA085A.PRW - CALCRETIV2() -> LCALCIMP:=EXECBLOCK("F0851IMP",.F.,.F.,{"IV2"})

FINA085A.PRW - CALCRETIVA() -> LCALCIMP:=EXECBLOCK("F0851IMP",.F.,.F.,{"IVA"})

FINA085A.PRW - CALCRETSL2() -> LCALCLIMP:=EXECBLOCK("F0851IMP",.F.,.F.,{"SL2"})

FINA085A.PRW - CALCRETSLI() -> LCALCLIMP:=EXECBLOCK("F0851IMP",.F.,.F.,{"SLI"})

FINA085A.PRW - CALRETCMR2() -> LCALCGN:=EXECBLOCK("F0851IMP",.F.,.F.,{"GN"})

FINA085A.PRW - CALRETCPR2() -> LCALCGN:=EXECBLOCK("F0851IMP",.F.,.F.,{"GN"})

FINA085A.PRW - F085GRAVTX() -> EXECBLOCK("F085CERTIVA",.F.,.F.,{ACERT})

FINA085A.PRW - F085MRKB() -> LRET := EXECBLOCK("A085MRKB",.F.,.F.,LALL)

FINA085A.PRW - F085TITIMP() -> EXECBLOCK("F085GER",.F.,.F.)

FINA085A.PRW - F085VFOR() -> LRET := EXECBLOCK("A085VFOR",.F.,.F.,{CFORNECE,CLOJA})

FINA085A.PRW - FA050CALCRET(CC() -> ASE2[X][1][Y]:=EXECBLOCK("F085AALE2",.F.,.F.,{ASE2[X][1][Y]})

FINA085A.PRW - FA085ACRE2() -> LCALCGAN:=EXECBLOCK("F0851IMP",.F.,.F.,{"GN2"})

FINA085A.PRW - FA085ACRET() -> LCALCGN:=EXECBLOCK("F0851IMP",.F.,.F.,{"GN"})

FINA085A.PRW - FA085ALT() -> ACAMPOS:=EXECBLOCK("F085HEAD",.F.,.F.)

FINA085A.PRW - FA085ATERC() -> ACHEQUES:= EXECBLOCK("FI85ACH",.F.,.F.,ACHEQUES)

FINA085A.PRW - FA085ATERC() -> ACHEQUES:=EXECBLOCK("A85CHPDT",.F.,.F.)

FINA085A.PRW - FA085ATERC() -> ADADOS := EXECBLOCK('FI85ATCH',.F.,.F.,{ATITS,ACHEQUES,BLINEPE})

FINA085A.PRW - FA085ATUVL() -> AAUXMDEM := ACLONE(EXECBLOCK("F085MDEM",.F.,.F.,{ACLONE(ASE2[NA][1][NC]),ACLONE(ATXMOEDAS)}))

FINA085A.PRW - FA085DTVENC() -> LRET := EXECBLOCK("FA085DTV",.F.,.F.,{DDATAVENC})

FINA085A.PRW - FA085GRAVA() -> CORDPAGO :=EXECBLOCK("A085NORP",.F.,.F.,CORDPAGO)

FINA085A.PRW - FA085GRAVA() -> EXECBLOCK("A085AFIM",.F.,.F.,ANUMS)

FINA085A.PRW - FA085GRAVA() -> EXECBLOCK("A085AFM2",.F.,.F.,{ANUMS})

FINA085A.PRW - FA085GRAVA() -> EXECBLOCK("A085ATIT",.F.,.F.)

FINA085A.PRW - FA085GRAVA() -> EXECBLOCK("FA085CERT",.F.,.F.,{ACERT,APAGOS[NI][H_TOTALVL]})

FINA085A.PRW - FA085GRAVA() -> LALTGRAVA := EXECBLOCK("F85ALTVAL",.F.,.F.)

FINA085A.PRW - FA085GRAVA() -> LF085NOSHW := EXECBLOCK("F085NOSHW",.F.,.F.)

FINA085A.PRW - FA085RETIR() -> NBASIR := EXECBLOCK("F085ABIRF",.F.,.F.)

FINA085A.PRW - FA085SEGF1() -> LCALCLIMP:=EXECBLOCK("F0851IMP",.F.,.F.,{"ZA1"})

FINA085A.PRW - FA085SEGF2() -> LCALCLIMP:=EXECBLOCK("F0851IMP",.F.,.F.,{"ZA2"})

FINA085A.PRW - FA085TELA() -> ABUTUSER := EXECBLOCK("F085ABPG", .F.,.F., ASE2)

FINA085A.PRW - FA085TELA() -> EXECBLOCK("A085DEFS",.F.,.F.,"1")

FINA085A.PRW - FA085TELA() -> EXECBLOCK('F85TELAOP',.F.,.F.,{NOPC})

FINA085A.PRW - FINA085A() -> CFLTUSR:=EXECBLOCK("A085ABRW",.F.,.F.)

FINA085A.PRW - GRAVAPAGOS() -> CNUMCHQ:=EXECBLOCK("A085ANUM",.F.,.F.,{NPAGAR,CFORNECE,CLOJA,DDTVCTO})

FINA085A.PRW - GRAVAPAGOS() -> CPREFIXO :=EXECBLOCK("A085PRECH",.F.,.F.,{CNUMCHQ,CFORNECE,CLOJA,CBANCO,CAGENCIA,CCONTA})

FINA085A.PRW - GRAVAPAGOS() -> EXECBLOCK("A085APAG",.F.,.F.)

FINA085A.PRW - GRAVAPAGOS() -> EXECBLOCK("F085GRA",.F.,.F.)

FINA085A.PRW - LRETCKPG() -> LRETCX := EXECBLOCK("F85ABCVLD",.F.,.F.,{CDEBINM,CBANCO,NPAGAR})

FINA085A.PRW - MENUDEF() -> AROTINA := EXECBLOCK ("F085ABT",.F.,.F.,AROTINA)

FINA085P.PRW - A085CANPRE() -> LRET:=EXECBLOCK("F085PVLD",.F.,.F.,{"M"})

FINA085P.PRW - A085PCONF() -> EXECBLOCK("F085E2E",.F.,.F.)

FINA085P.PRW - A085PCONF() -> EXECBLOCK("F085E2I",.F.,.F.)

FINA085P.PRW - A085PCONF() -> IF EXISTBLOCK("PAGA085P") .AND. !EXECBLOCK("PAGA085P",.F.,.F.)

FINA085P.PRW - A085PCONF() -> LRET:=EXECBLOCK("F085PVLD",.F.,.F.,{"I"})

FINA086.PRW - A086CHKSEF() -> LRET :=EXECBLOCK("A086SEF",.F.,.F.,LRET)

FINA086.PRW - A086CHSFE() -> LRET:=EXECBLOCK("A086SFE",.F.,.F.,LRET)

FINA086.PRW - A086CHSFE() -> LRET:=EXECBLOCK("A086SFEG",.F.,.F.,LRET)

FINA086.PRW - FA086CANCEL() -> EXECBLOCK("FA86CAN",.F.,.F.)

FINA086.PRW - FA086CANCEL() -> LEXCLUI := EXECBLOCK("FA086OK",.F.,.F.)

FINA086.PRW - FACANPAR() -> NREC := EXECBLOCK("FA86CAPR",.F.,.F.,{})

FINA086.PRW - FINA086() -> ACPOS := EXECBLOCK ("F086NP2",.F.,.F.,ACPOS)

FINA086.PRW - FINA086() -> CRESULTPE := EXECBLOCK("FA086FLT",.F.,.F.)

FINA086.PRW - FINA086() -> CRESULTPE:= EXECBLOCK("FA086FLT",.F.,.F.)

FINA086.PRW - GERATRB() -> EXECBLOCK ("F086NP3",.F.,.F.,"TRB")

FINA086.PRW - XATUASE2() -> EXECBLOCK("FA86ASE2",.F.,.F.,{ARECSE5})

FINA086.PRW - XDELSE5() -> EXECBLOCK("FA86ASE5",.F.,.F.,{ARECSE5})

FINA087A.PRW - A087APAGTOS() -> AVALORES:=EXECBLOCK("FA087VALBX",.F.,.F.,AVALORES)

FINA087A.PRW - A087ASUGERIR() -> ARET := EXECBLOCK("F087BTNSG",.F.,.F.,{ALINSE1,ALINMOED})

FINA087A.PRW - A087VERPE() -> LRET := EXECBLOCK("FA087PG",.F.,.F.,{NMOEDA,NVALOR})

FINA087A.PRW - FA087ABAIXAOK() -> LRET:= EXECBLOCK("F087ABXOK",.F.,.F.)

FINA087A.PRW - FA087ASALVAR() -> EXECBLOCK("FA087BAIXA",.F.,.F.)

FINA087A.PRW - FA087ASALVAR() -> EXECBLOCK("FA087GRV",.F.,.F.)

FINA087A.PRW - FA087ASALVAR() -> EXECBLOCK("FA087INC",.F.,.F.)

FINA087A.PRW - FA087ASALVAR() -> EXECBLOCK("FA087SEL",.F.,.F.)

FINA087A.PRW - FA087ATUDOOK() -> LRET := EXECBLOCK('A087TUDOK',.F.,.F.,NPANEL)

FINA087A.PRW - FA087AVLD() -> CCOBRADOR:= EXECBLOCK("F087ACOB",.F.,.F.)

FINA087A.PRW - FA087AVLNA() -> LVAZIO:=EXECBLOCK('A087NATVAZ',.F.,.F.)

FINA087A.PRW - FAGRVSE5() -> LGRVMOV := EXECBLOCK('F087GRSE5',.F.,.F.,{CTPCRED})

FINA087A.PRW - FVLDGENCFD() -> CTIPLOJA :=EXECBLOCK('A087TIPTI',.F.,.F.)

FINA087A.PRW - GETUUID() -> CTIPODOC +=EXECBLOCK('A087TIPTI',.F.,.F.)

FINA087A.PRW - MONTATELA() -> ACPOS := EXECBLOCK("FA087COL",.F.,.F.)

FINA087A.PRW - MONTATELA() -> CTIPOS+=EXECBLOCK('A087TIPTI',.F.,.F.)

FINA087A.PRW - MONTATELA() -> LWHENCOB:= EXECBLOCK("F087VLCO",.F.,.F.)

FINA087A.PRW - MOSTRARETS() -> ARETCOLS := ACLONE(EXECBLOCK('F087PRO',.F.,.F.,{ACOLS,AHEADER,ACOLSRET,AHEADERRET,CRET}))

FINA087A.PRW - REFDATA() -> AUSERFILSE1 := EXECBLOCK("F087ASE1",.F.,.F.)

FINA087A.PRW - REFDATA() -> AUSERFILTER := EXECBLOCK("F087AFIL",.F.,.F.)

FINA087A.PRW - REFDATA() -> CQUERY += EXECBLOCK("F087AQRY",.F.,.F.)

FINA087A.PRW - REFDATA() -> CQUERY := EXECBLOCK("F087AFCL", .F., .F., {CQUERY,CCPOSSA1})

FINA087A.PRW - SHOWPANEL() -> NLASTPAN:=EXECBLOCK("TELACON",.F.,.F.,{NLASTPAN})

FINA088.PRW - CANCELA() -> EXECBLOCK("FA088CAN",.F.,.F.)

FINA088.PRW - FA088CANCEL() -> LOK := EXECBLOCK("FA088OK",.F.,.F.)

FINA088.PRW - FINA088() -> ACPOS := EXECBLOCK ("F088NP2",.F.,.F.,ACPOS)

FINA088.PRW - FINA088() -> CCOND:=EXECBLOCK('F088FLT',.F.,.F.)

FINA088.PRW - GERATRB() -> EXECBLOCK ("F088NP3",.F.,.F.,"TRB")

FINA088.PRW - MENUDEF() -> AROTINA := EXECBLOCK("FA088BTN",.F.,.F.,AROTINA)

FINA089.PRW - A089CANCEL() -> ABUTTONS :=EXECBLOCK("FA89BUTA",.F.,.F.,{ABUTTONS})

FINA089.PRW - A089CANCEL() -> CCONDICOES+=EXECBLOCK("A089CONDS",.F.,.F.,3)

FINA089.PRW - A089CANCEL() -> CQUERY+=EXECBLOCK("A089CONDS",.F.,.F.,3)

FINA089.PRW - A089CANCEL() -> EXECBLOCK("A089CAMP",.F.,.F.,3)

FINA089.PRW - A089CANCEL() -> EXECBLOCK("F089SE1",.F.,.F.)

FINA089.PRW - A089CANRECH() -> CCONDICOES+=EXECBLOCK("A089CONDS",.F.,.F.,2)

FINA089.PRW - A089CANRECH() -> CQUERY+=EXECBLOCK("A089CONDS",.F.,.F.,2)

FINA089.PRW - A089CANRECH() -> EXECBLOCK("89RECHAZO",.F.,.F.)

FINA089.PRW - A089GRV() -> EXECBLOCK("F089ATU",.F.,.F.)

FINA089.PRW - A089RECHAZ() -> CCONDICOES+=EXECBLOCK("A089CONDS",.F.,.F.,2)

FINA089.PRW - A089RECHAZ() -> CQUERY+=EXECBLOCK("A089CONDS",.F.,.F.,2)

FINA089.PRW - A089RECHAZ() -> EXECBLOCK("A089CAMP",.F.,.F.,2)

FINA089.PRW - A089RECHAZ() -> EXECBLOCK("FA089001",.F.,.F.)

FINA089.PRW - A089RECIBE() -> ABUTTONS :=EXECBLOCK("FA89BUTL",.F.,.F.,{ABUTTONS})

FINA089.PRW - A089RECIBE() -> CCONDICOES+=EXECBLOCK("A089CONDS",.F.,.F.,1)

FINA089.PRW - A089RECIBE() -> CQUERY+=EXECBLOCK("A089CONDS",.F.,.F.,1)

FINA089.PRW - A089RECIBE() -> EXECBLOCK("A089CAMP",.F.,.F.,1)

FINA089.PRW - A089RECIBE() -> EXECBLOCK("F089ATU",.F.,.F.)

FINA089.PRW - FINA089() -> CCONDICAO+=" .AND. " + EXECBLOCK("A089FBROW",.F.,.F.,{CCONDICAO})

FINA089.PRW - FINA089() -> CCONDICAO+=" AND " + EXECBLOCK("A089FBROW",.F.,.F.,{CCONDICAO})

FINA089.PRW - MENUDEF() -> AROTINA:= EXECBLOCK("A089MENU",.F.,.F.,{AROTINA})

FINA090.PRX - F090BAIXA() -> CE5_HISTOR := EXECBLOCK("FA090SE5",.F.,.F., {CE5_HISTOR})

FINA090.PRX - F090BAIXA() -> CNATUR090 := EXECBLOCK("F091NATUR",.F.,.F.)

FINA090.PRX - F090BAIXA() -> EXECBLOCK("F090SE5",.F.,.F.,{AREC090SE5})

FINA090.PRX - F090BAIXA() -> EXECBLOCK("F90SE5GRV")

FINA090.PRX - F090BAIXA() -> EXECBLOCK("FA080SEF",.F.,.F.)

FINA090.PRX - F090BAIXA() -> EXECBLOCK("FA090TX",.F.,.F.)

FINA090.PRX - F090BAIXA() -> EXECBLOCK("FINA090",.F.,.F.)

FINA090.PRX - F090BAIXA() -> LRET:= EXECBLOCK("FA090TIT",.F.,.F.,{CBCO090,CAGE090,CCTA090,CCHEQ090})

FINA090.PRX - F090BAIXA() -> NCORREC := EXECBLOCK("FA090COR",.F.,.F.)

FINA090.PRX - F090BAIXA() -> NDESCONT := EXECBLOCK("FA090DES",.F.,.F.)

FINA090.PRX - F090BAIXA() -> NJUROS := EXECBLOCK("FA090JUR",.F.,.F.)

FINA090.PRX - F090BAIXA() -> NMULTA := EXECBLOCK("FA090MUL",.F.,.F.)

FINA090.PRX - F090BUSCAD() -> AINDREG := EXECBLOCK("F090ADFR", .F., .F., {CCONDICAO1,LMULTFIL})

FINA090.PRX - F090BUSCAD() -> LPABX := EXECBLOCK("F090PABX",.F.,.F.)

FINA090.PRX - F090CHQOK() -> LRETORNO := EXECBLOCK("F090CHOK",.F.,.F.)

FINA090.PRX - F090MTTMP() -> EXECBLOCK("F090VLEX", .F., .F., {CMOTBX, NTIPOBX, NMOEDABCO})

FINA090.PRX - F090NLOTE() -> EXECBLOCK ("F090NLOTE",.F.,.F.,{NTIPOBX,CBORD090I,CBORD090F})

FINA090.PRX - F090VLDBX() -> LRET := EXECBLOCK("F090TOK",.F.,.F.,{CBCODE,CBCOATE,CBCO090,CAGE090,CCTA090,CCHEQ090,CBORD090I,CBORD090F,DVENCINI,DVENCFIM,NTIPOBX,ORADIO})

FINA090.PRX - F090VLDMRK () -> LBXTIT := EXECBLOCK("F090TIT",.F.,.F.,{NVALORMARCA,ATITULOS})

FINA090.PRX - F090VLMARK() -> EXECBLOCK( "F090LOG",.F.,.F.)

FINA090.PRX - FA090AUT() -> ACAMPOS := EXECBLOCK("F090CPOS",.F.,.F.,ACAMPOS)

FINA090.PRX - FA090AUT() -> ADADOS:= EXECBLOCK("FA090POS",.F.,.F.,{CBCO090, CAGE090, CCTA090, CCHEQ090})

FINA090.PRX - FA090AUT() -> ARETADBTN := EXECBLOCK("F090ADBTN",.F.,.F., {ABUTTONS})

FINA090.PRX - FA090AUT() -> AVARS := EXECBLOCK("F090GAVE",.F.,.F.,AVARS)

FINA090.PRX - FA090AUT() -> CMOTBX := EXECBLOCK( "F090MTBX", .F., .F., { ADESCMOTBX } )

FINA090.PRX - FA090AUT() -> EXECBLOCK( "F090REST",.F.,.F.)

FINA090.PRX - FA090AUT() -> EXECBLOCK("F090POSTIT", .F., .F., { CALIASSE2 } )

FINA090.PRX - FA090AUT() -> EXECBLOCK("F90TOTGRV")

FINA090.PRX - FA090AUT() -> LF090FIL := EXECBLOCK("F091FBX",.F.,.F.,)

FINA090.PRX - FA090AUT() -> LMULTNAT := EXECBLOCK("F090MNAT",.F.,.F.)

FINA090.PRX - FA090AUT() -> LOCAL LF090NATLOT:= IF(EXISTBLOCK("F090NATLOT"),EXECBLOCK("F090NATLOT",.F.,.F.),.F.)

FINA090.PRX - FA090AUT() -> NDESCONT := EXECBLOCK("F090DESC",.F.,.F.)

FINA090.PRX - FA090BAVAL() -> EXECBLOCK("F090POSTIT", .F., .F., { CALIASSE2 } )

FINA090.PRX - FA090BCOCX() -> LRET := EXECBLOCK("FA090BCO", .F., .F., {CBCO090,CAGE090,CCTA090})

FINA090.PRX - FA090CHECF() -> CF090FIL := EXECBLOCK("F090FIL",.F.,.F.,{NTIPOBX,CBCO090,CAGE090,CCTA090,CBORD090I,CBORD090F,CFILTRO})

FINA090.PRX - FA090CHECF() -> CF090QFIL := EXECBLOCK("F090QFIL",.F.,.F.,{CFILTRO, NTIPOBX})

FINA090.PRX - FA090CHECF() -> CNOMECPO := EXECBLOCK("F090FILEMI",.F.,.F.,{})

FINA090.PRX - FA090CHECF() -> CTIPO := EXECBLOCK( 'F090TIPO' , .F. , .F. , { CTIPO } )

FINA090.PRX - FA090INVERTE() -> LBXTIT := EXECBLOCK("F090TIT",.F.,.F.,{NVALORMARCA,{}})

FINA090.PRX - FINA090() -> CFILTER := EXECBLOCK( "F090FILB",.F.,.F.,{CFILTER})

FINA090.PRX - FINA090() -> CFILTRO := EXECBLOCK( "F090FLBR",.F.,.F.,{CFILTRO})

FINA090.PRX - FINA090() -> EXECBLOCK( "F090BROW",.F.,.F.)

FINA091.PRX - F091MTTMP() -> EXECBLOCK("F090VLEX", .F., .F., {CMOTBX, NTIPOBX, NMOEDABCO})

FINA091.PRX - FA091AUT() -> ACAMPOS := EXECBLOCK("F090CPOS",.F.,.F.,ACAMPOS)

FINA091.PRX - FA091AUT() -> ADADOS:= EXECBLOCK("FA090POS",.F.,.F.,{CBCO090, CAGE090, CCTA090, CCHEQ090})

FINA091.PRX - FA091AUT() -> CE5_HISTOR := EXECBLOCK("FA090SE5",.F.,.F., {CE5_HISTOR})

FINA091.PRX - FA091AUT() -> CNATUR090 := EXECBLOCK("F091NATUR",.F.,.F.)

FINA091.PRX - FA091AUT() -> EXECBLOCK( "F090REST",.F.,.F.)

FINA091.PRX - FA091AUT() -> EXECBLOCK("F90SE5GRV")

FINA091.PRX - FA091AUT() -> EXECBLOCK("F90TOTGRV")

FINA091.PRX - FA091AUT() -> EXECBLOCK("FA080SEF",.F.,.F.)

FINA091.PRX - FA091AUT() -> EXECBLOCK("FA090TX",.F.,.F.)

FINA091.PRX - FA091AUT() -> EXECBLOCK("FINA090",.F.,.F.)

FINA091.PRX - FA091AUT() -> LF091FIL := EXECBLOCK("F091FBX",.F.,.F.,)

FINA091.PRX - FA091AUT() -> LRET:= EXECBLOCK("FA090TIT",.F.,.F.,{CBCO090,CAGE090,CCTA090,CCHEQ090})

FINA091.PRX - FA091AUT() -> NCORREC := EXECBLOCK("FA090COR",.F.,.F.)

FINA091.PRX - FA091AUT() -> NDESCONT := EXECBLOCK("FA090DES",.F.,.F.)

FINA091.PRX - FA091AUT() -> NJUROS := EXECBLOCK("FA090JUR",.F.,.F.)

FINA091.PRX - FA091AUT() -> NMULTA := EXECBLOCK("FA090MUL",.F.,.F.)

FINA091.PRX - FA091CAN() -> EXECBLOCK("F080EST",.F.,.F.)

FINA091.PRX - FA091CAN() -> EXECBLOCK('FA080CAN',.F.,.F.)

FINA091.PRX - FA091CAN() -> LRET :=EXECBLOCK('FA080OWN',.F.,.F.)

FINA091.PRX - FA091CHECF() -> CFILTRO := EXECBLOCK("F090FIL",.F.,.F.,{NTIPOBX,CBCO090,CAGE090,CCTA090,CBORD090I,CBORD090F,CFILTRO})

FINA091.PRX - FA091CHECF() -> CTIPO := EXECBLOCK( 'F090TIPO' , .F. , .F. , { CTIPO } )

FINA091.PRX - FA091INVERTE() -> LBXTIT := EXECBLOCK("F090TIT",.F.,.F.,{0,{}})

FINA091.PRX - FA091MARCA() -> LBXTIT := EXECBLOCK("F090TIT",.F.,.F.,{0,{}})

FINA091.PRX - FINA091() -> CFILTER := EXECBLOCK( "F090FILB",.F.,.F.,{CFILTER})

FINA091.PRX - FINA091() -> EXECBLOCK( "F090BROW",.F.,.F.)

FINA095.PRW - A095ANULAR() -> EXECBLOCK( "F095ALTSEF",.F.,.F.,AACAO)

FINA095.PRW - FA090CAN() -> EXECBLOCK( 'FA090RCH', .F., .F. )

FINA095.PRW - FA090CAN() -> EXECBLOCK("F080EST",.F.,.F.)

FINA095.PRW - FA090CAN() -> EXECBLOCK('FA080CAN',.F.,.F.)

FINA095.PRW - FA090CAN() -> LRET :=EXECBLOCK('FA080OWN',.F.,.F.)

FINA096.PRW - FA096PROTE() -> AMKBCAMPOS := EXECBLOCK("F096CPOS", .F., .F., { AMKBCAMPOS } )

FINA096.PRW - FA096RDSEL() -> @2.1,10 SAY OVALOR VAR NVALORSEL PICTURE "@E 999,999,999,999.99"

FINA096.PRW - FA096RDSEL() -> OMARK:BMARK := {|| RDMARK(CALIAS, OMARK, CMARCA, CCPOMARK, LINVERTE),NVALORSEL:=EXECBLOCK(CRDM,.F.,.F.),OVALOR:REFRESH()}

FINA096.PRW - FA096RDSEL() -> OMARK:OBROWSE:BALLMARK := {|| NVALORSEL:=EXECBLOCK(CRDM,.F.,.F.),OVALOR:REFRESH(),OMARK:OBROWSE:REFRESH(.T.)}

FINA098.PRW - FA098GRV03() -> EXECBLOCK("F098SUBS",.F.,.F.)

FINA098.PRW - FA098GRV04() -> EXECBLOCK("F098SUBS",.F.,.F.)

FINA098.PRW - MENUDEF() -> AROTINANEW := EXECBLOCK("FA098ROT",.F.,.F.,AROTINA)

FINA099.PRW - FA099GRV03() -> EXECBLOCK("F099SUBS",.F.,.F.)

FINA099.PRW - FA099GRV04() -> EXECBLOCK("F099SUBS",.F.,.F.)

FINA099.PRW - MENUDEF() -> AROTINANEW := EXECBLOCK("FA099ROT",.F.,.F.,AROTINA)

FINA100.PRX - F100DLGPMS() -> EXECBLOCK("PMSDLGMOV",.F.,.F.)

FINA100.PRX - F100VLPE() -> LRET:= EXECBLOCK("FA100OKP",.F.,.F.)

FINA100.PRX - F100VLPE() -> LRET:= EXECBLOCK("FA100OKR",.F.,.F.)

FINA100.PRX - FA100BCO() -> IF !(EXECBLOCK("F100TOK",.F.,.F.))

FINA100.PRX - FA100CAN() -> IF !EXECBLOCK( "FA100VLD", .F., .F., { LEXCLUI } )

FINA100.PRX - FA100CAN*/() -> EXECBLOCK("FA100CAN",.F.,.F.)

FINA100.PRX - FA100CAN*/() -> LRET := EXECBLOCK("FA100CA2",.F.,.F.,{NOPC})

FINA100.PRX - FA100DOCTRAN() -> CDOCTRAN := EXECBLOCK("FA100DOC", .F., .F., {CBCOORIG, CAGENORIG,CCTAORIG,CTIPOTRAN,CDOCTRAN})

FINA100.PRX - FA100EST() -> EXECBLOCK("F100DPRM",.F.,.F.)

FINA100.PRX - FA100EST() -> IF ! EXECBLOCK("FA100VET", .F., .F., { NREGORIGEM , NREGDESTINO } )

FINA100.PRX - FA100EST() -> LGRAVA := EXECBLOCK("FA100TRF", .F., .F., { CBCOORIG, CAGENORIG, CCTAORIG,;

FINA100.PRX - FA100GETCHEQUES() -> ACHEQUES:=EXECBLOCK("A85CHPDT",.F.,.F.)

FINA100.PRX - FA100GRAVA() -> EXECBLOCK("A100TR01",.F.,.F.,LESTORNO)

FINA100.PRX - FA100GRAVA() -> EXECBLOCK("A100TR02",.F.,.F.,LESTORNO)

FINA100.PRX - FA100GRAVA() -> EXECBLOCK("A100TR03",.F.,.F.,LESTORNO)

FINA100.PRX - FA100GRAVA() -> EXECBLOCK("A100TRA",.F.,.F.,{LESTORNO, CBCOORIG,  CBCODEST,  CAGENORIG, CAGENDEST, CCTAORIG,;

FINA100.PRX - FA100GRAVA() -> EXECBLOCK("A100TRB",.F.,.F.,{LESTORNO, CBCOORIG,  CBCODEST,  CAGENORIG, CAGENDEST, CCTAORIG,;

FINA100.PRX - FA100GRAVA() -> EXECBLOCK("A100TRC",.F.,.F.,{LESTORNO, CBCOORIG,  CBCODEST,  CAGENORIG, CAGENDEST, CCTAORIG,;

FINA100.PRX - FA100PAG() -> ABUTTONS:= EXECBLOCK("F100BTOP",.F.,.F.,{ABUTTONS})

FINA100.PRX - FA100PAG() -> EXECBLOCK("FA100PAG",.F.,.F.)

FINA100.PRX - FA100REC() -> ABUTTONS:= EXECBLOCK("F100BTOR",.F.,.F.,{ABUTTONS})

FINA100.PRX - FA100REC() -> EXECBLOCK("FA100REC",.F.,.F.)

FINA100.PRX - FA100REC() -> EXECBLOCK("FINATROC",.F.,.F.)

FINA100.PRX - FA100TRAN() -> AFA100GET:= EXECBLOCK ("FA100GET",.F.,.F.,{CBCOORIG,CAGENORIG,CCTAORIG,CNATURORI,CBCODEST,CAGENDEST,CCTADEST,CNATURDES,CTIPOTRAN,CDOCTRAN,NVALORTRAN,CHIST100,CBENEF100})

FINA100.PRX - FA100TRAN() -> CDOCTRAN := EXECBLOCK("F100DOC",.F.,.F.,{CBCOORIG, CAGENORIG, CCTAORIG,;

FINA100.PRX - FA100TRAN() -> EXECBLOCK("A100BL01",.F.,.F.,AVALORES)

FINA100.PRX - FA100TRAN() -> LGRAVA := EXECBLOCK("FA100TRF", .F., .F., { CBCOORIG, CAGENORIG, CCTAORIG,;

FINA100.PRX - FINA100() -> ABUTTONS:= EXECBLOCK("F100BTOV",.F.,.F.,{ABUTTONS})

FINA100.PRX - FINA100() -> EXECBLOCK("F100BROW",.F.,.F.)

FINA100.PRX - MENUDEF() -> AUSERBUTTON := EXECBLOCK( "FA100ROT",.F.,.F.,{AROTINA})

FINA100.PRX - VALNAT() -> LVALIDA := EXECBLOCK("FA100NAT",.F.,.F.,)

FINA110.PRX - F110BXBORD() -> LBXBORD := EXECBLOCK("F110BOR",.F.,.F.)

FINA110.PRX - F110TOTRB() -> EXECBLOCK("FA110ATCP",.F.,.F.,{CALIASTMP})

FINA110.PRX - FA110AUT() -> ABUTTONS := EXECBLOCK("FA110BUT",.F.,.F.,)

FINA110.PRX - FA110AUT() -> ACAMPOS := EXECBLOCK("F110CPOS",.F.,.F.,ACAMPOS)

FINA110.PRX - FA110AUT() -> CFIL110 := EXECBLOCK("F110FIL",.F.,.F.)

FINA110.PRX - FA110AUT() -> CQUERY := EXECBLOCK("F110QRCP",.F.,.F.,{CQUERY})

FINA110.PRX - FA110AUT() -> EXECBLOCK("F110REC",.F.,.F.)

FINA110.PRX - FA110AUT() -> EXECBLOCK("F110SE5",.F.,.F.,{ARECSE5})

FINA110.PRX - FA110AUT() -> EXECBLOCK("FA110SE5",.F.,.F.)

FINA110.PRX - FA110AUT() -> EXECBLOCK("FA110TOT",.F.,.F.)

FINA110.PRX - FA110AUT() -> EXECBLOCK("FINA110",.F.,.F.)

FINA110.PRX - FA110AUT() -> NDESCONT := EXECBLOCK("FA110DES",.F.,.F.)

FINA110.PRX - FA110AUT() -> NJUROS := EXECBLOCK("FA110JUR",.F.,.F.)

FINA110.PRX - FA110AUT() -> NMULTA := EXECBLOCK("FA110MUL",.F.,.F.)

FINA110.PRX - FA110BTOK() -> LRET := EXECBLOCK("F110BTOK",.F.,.F.)

FINA110.PRX - FA110INVERTE() -> ARETTIT2 := EXECBLOCK("F110TIT2",.F.,.F.,{NVALORMARCA,"D"})

FINA110.PRX - FA110INVERTE() -> ARETTIT2 := EXECBLOCK("F110TIT2",.F.,.F.,{NVALORMARCA,"M"})

FINA110.PRX - FA110INVERTE() -> EXECBLOCK("FCALDESC",.F.,.F.,{CMARCA,1,CALIASSE1},)

FINA110.PRX - FA110INVERTE() -> LBXTIT := EXECBLOCK("F110TIT",.F.,.F.,{NVALORMARCA})

FINA110.PRX - FA110MARCA() -> ARETTIT2 := EXECBLOCK("F110TIT2",.F.,.F.,{NVALORMARCA,"M"})

FINA110.PRX - FA110MARCA() -> EXECBLOCK("FCALDESC",.F.,.F.,{CMARCA,1,CALIASSE1},)

FINA110.PRX - FA110MARCA() -> LBXTIT := EXECBLOCK("F110TIT",.F.,.F.,{NVALORMARCA})

FINA110.PRX - FA110TUDOK() -> LRET := EXECBLOCK("F110TOK",.F.,.F.,{CBCO110,CAGE110,CCTA110})

FINA110.PRX - MENUDEF() -> AUSERMENU := EXECBLOCK( 'FI110ROT')

FINA150.PRX - ABREPAR() -> CARQSAIDA := EXECBLOCK("F150ARQ",.F.,.F.,CARQSAIDA)

FINA150.PRX - FA150GER() -> EXECBLOCK("F150GRV", .F., .F., { NHDLSAIDA } )

FINA150.PRX - FA150GER() -> EXECBLOCK("F150QTDT",.F.,.F.,{NQTDTOTTIT,NGRAVA})

FINA150.PRX - FA150GER() -> EXECBLOCK("FIN150",.F.,.F.)

FINA150.PRX - FA150GER() -> EXECBLOCK("FIN150_1",.F.,.F.)

FINA150.PRX - FA150GER() -> EXECBLOCK("FIN150_3",.F.,.F.)

FINA150.PRX - FA150GER() -> IF !(EXECBLOCK("F150EXC",.F.,.F.))

FINA150.PRX - FA150GER() -> IF !(EXECBLOCK("F150NOGRV",.F.,.F.))

FINA150.PRX - FA150GER() -> IF !(EXECBLOCK("FIN150_2",.F.,.F.))

FINA150.PRX - FA150GER() -> LBCOBORD := EXECBLOCK("F150BBCO",.F.,.F.)

FINA150.PRX - FA150GER() -> NSOMAACRES += EXECBLOCK("F150SUMA",.F.,.F.)

FINA150.PRX - FA150GER() -> NSOMADECRE += EXECBLOCK("F150SUMD",.F.,.F.)

FINA150.PRX - FA150GER() -> NVALOR := EXECBLOCK("F150SUM",.F.,.F.)

FINA150.PRX - FA150GRAVA() -> CIDCNAB := EXECBLOCK("F150ICNB",.F.,.F.,{CIDCNAB})

FINA150.PRX - FA150GRAVA() -> NSEQ := EXECBLOCK("FINCNAB2",.F.,.F.,{NHDLSAIDA,NSEQ,NTOTCNAB2})

FINA150.PRX - FA150PIX() -> NVLRPIX := EXECBLOCK("FINVLPIX")

FINA151.PRW - FA151GER() -> EXECBLOCK("FIN151",.F.,.F.)

FINA151.PRW - FA151GER() -> EXECBLOCK("FIN151_1",.F.,.F.)

FINA151.PRW - FA151GER() -> EXECBLOCK("FIN151_3",.F.,.F.)

FINA151.PRW - FA151GER() -> IF !(EXECBLOCK("FIN151_2",.F.,.F.))

FINA151.PRW - FA151GER() -> NSOMAVALOR += EXECBLOCK("F151SUM",.F.,.F.)

FINA151.PRW - FA151GRAVA() -> NSEQ := EXECBLOCK("FINCNAB2",.F.,.F.,{NHDLSAIDA,NSEQ,NTOTCNAB2})

FINA171.PRX - A171EXCLUI() -> EXECBLOCK("F171EXCL",.F.,.F.)

FINA171.PRX - FA171GRV() -> EXECBLOCK("FIN171",.F.,.F.)

FINA171.PRX - FA171GRV() -> LMOVBCO := EXECBLOCK("FA171BCO", .F., .F., )

FINA171.PRX - FA171TUDOK() -> LRETORNA := EXECBLOCK("F171OK",.F.,.F.)

FINA181.PRX - A181ESTAP() -> EXECBLOCK("FA181EAP", .F., .F. )

FINA181.PRX - A181ESTAP() -> EXECBLOCK("FA181EST",.F.,.F.)

FINA181.PRX - A181ESTEMP() -> EXECBLOCK("F181EPE",.F.,.F.)

FINA181.PRX - A181ESTEMP() -> EXECBLOCK("FA181EST",.F.,.F.)

FINA181.PRX - A181ESTOR() -> EXECBLOCK("F181EQT",.F.,.F.)

FINA181.PRX - A181RESGAPL() -> AFA181VLR := EXECBLOCK("FA181VLR",.F.,.F.,{NA181REGPRI /* VALOR RESGATE */, NA181REGJUR /* JUROS RESGATE */})

FINA181.PRX - A181RESGAPL() -> EXECBLOCK("F181RGBL",.F.,.F.)

FINA181.PRX - A181RESGAPL() -> EXECBLOCK("FA181RAP", .F., .F. )

FINA181.PRX - A181RESGAPL() -> IF !EXECBLOCK("FA181RES",.F.,.F.)

FINA181.PRX - A181RESGEMP() -> EXECBLOCK("F181VCBL",.F.,.F.)

FINA181.PRX - A181RESGEMP() -> EXECBLOCK("FA181REP", .F., .F. )

FINA181.PRX - FA181OK() -> LRET:=EXECBLOCK("F181VALID",.F.,.F.,{LRET})

FINA181.PRX - FA181VALOR() -> EXECBLOCK("FA181EMP",.F.,.F.)

FINA182.PRX - FA182PROCA() -> EXECBLOCK("FA182UPD", .F., .F.)

FINA183.PRX - A183ESTOR() -> EXECBLOCK("FA183EST",.F.,.F.)

FINA183.PRX - A183ESTOR() -> IF "EXECBLOCK" $ UPPER(CA183NAT) .OR. "IF(" $ UPPER(CA183NAT)

FINA183.PRX - A183RETER() -> IF !EXECBLOCK("FA183RES",.F.,.F.)

FINA183.PRX - FA183OK() -> LRETORNO := EXECBLOCK("F183VNAT",.F.,.F.,{CNATUREZA})

FINA183.PRX - FA183VLRCOTA() -> NTXAUX:= EXECBLOCK( "F183TXIR", .F., .F., { NTAXAIRF } )

FINA190.PRX - F190SETPERG() -> EXECBLOCK("F190PERG",.F.,.F.,{"AFI190"})

FINA190.PRX - FA190BANCO() -> LRET := EXECBLOCK("F190VBCO",.F.,.F.)

FINA190.PRX - FA190CLIB() -> EXECBLOCK("FA190CLIB",.F.,.F.)

FINA190.PRX - FA190DELE() -> EXECBLOCK("F190CAN",.F.,.F.)

FINA190.PRX - FA190DELE() -> EXECBLOCK("F190DEL5",.F.,.F.,NREGSE5)

FINA190.PRX - FA190DELE() -> EXECBLOCK("F190DELC",.F.,.F.)

FINA190.PRX - FA190DELE() -> EXECBLOCK("FA190DEL",.F.,.F.)

FINA190.PRX - FA190DELE() -> IF EXISTBLOCK("F190ICAN") .AND. !EXECBLOCK("F190ICAN",.F.,.F.)

FINA190.PRX - FA190EXIBE() -> IF EXECBLOCK("FA190MK",.F.,.F.)

FINA190.PRX - FA190FOR () -> LRET := (EXECBLOCK("F190FOR",.F.,.F.))

FINA190.PRX - FA190JUN() -> (!LF190VNAT .OR. EXECBLOCK("F190VNAT",.F.,.F.,{CNATUR190})),.T.);

FINA190.PRX - FA190JUN() -> CBENEF := EXECBLOCK("FA190BEN",.F.,.F.)

FINA190.PRX - FA190JUN() -> CFIL190 := EXECBLOCK("F190FIL",.F.,.F.)

FINA190.PRX - FA190JUN() -> EXECBLOCK("F190BROW",.F.,.F.)

FINA190.PRX - FA190JUN() -> EXECBLOCK("FA190CH",.F.,.F.)

FINA190.PRX - FA190JUN() -> EXECBLOCK("FA190POS",.F.,.F.)

FINA190.PRX - FA190LIB() -> CHIST190 := EXECBLOCK( "F190HIST", .F., .F., { CHIST190 } )

FINA190.PRX - FA190LIB() -> EXECBLOCK("F190SE5",.F.,.F.)

FINA190.PRX - FA190LIB() -> EXECBLOCK("FA190LIB",.F.,.F.)

FINA190.PRX - FA190NATURZ() -> LRET := EXECBLOCK("F190NATU",,,{CNATUREZ})

FINA190.PRX - FA190OK() -> LRET := EXECBLOCK("FA190TOK",.F.,.F.,ODLG)

FINA191.PRW - F191COMP() -> AALTBCO  :=  EXECBLOCK("F191ALTBCO",.F.,.F.,{CBANCO,CAGENCIA,CCONTA})

FINA191.PRW - F191COMP() -> EXECBLOCK("F191REGCMP",.F.,.F., NREG)

FINA191.PRW - F191COMP() -> LRET := EXECBLOCK("F191VLDCMP",.F.,.F.)

FINA191.PRW - F191ESCOMP () -> AALTBCO  := EXECBLOCK("F191ALTEST",.F.,.F.,{CBANCO,CAGENCIA,CCONTA})

FINA191.PRW - F191ESCOMP () -> EXECBLOCK("F191ESCHQ",.F.,.F., NESTCOMPCHQ)

FINA191.PRW - F191ESCOMP () -> LRET := EXECBLOCK("F191ESTC",.F.,.F.)

FINA191.PRW - F191PREP() -> EXECBLOCK("FA191GRV",.F.,.F.)

FINA191.PRW - F191PREP() -> IF !(EXECBLOCK( "F191ALTCH", .F., .F.))

FINA191.PRW - FA191LEG() -> ALEGENDA := EXECBLOCK("F191ALEGEN", .F., .F., ALEGENDA)

FINA191.PRW - FA191LEG() -> URETORNO := EXECBLOCK("F191URETOR",.F.,.F.,URETORNO)

FINA200.PRX - F200TRFCOB() -> EXECBLOCK("F060SEA", .F., .F.)

FINA200.PRX - FA200GER() -> EXECBLOCK("F200ABAT",.F.,.F.)

FINA200.PRX - FA200GER() -> EXECBLOCK("F200BXAG",.F.,.F.)

FINA200.PRX - FA200GER() -> EXECBLOCK("F200FIM",.F.,.F.)

FINA200.PRX - FA200GER() -> EXECBLOCK("F200IMP",.F.,.F.)

FINA200.PRX - FA200GER() -> EXECBLOCK("F200TIT",.F.,.F.)

FINA200.PRX - FA200GER() -> EXECBLOCK("FA200F1",.F.,.F.)

FINA200.PRX - FA200GER() -> EXECBLOCK("FA200FIL", .F., .F., AVALORES)

FINA200.PRX - FA200GER() -> EXECBLOCK("FA200_02",.F.,.F.)

FINA200.PRX - FA200GER() -> EXECBLOCK("FINA200",.F.,.F., { AVALORES, NTOTABAT, NTOTABIMP } )

FINA200.PRX - FA200GER() -> IF !(LBAIXATIT := EXECBLOCK("F200BXTI", .F., .F., {SE1->E1_FILIAL, SE1->E1_PREFIXO, SE1->E1_NUM, SE1->E1_PARCELA, SE1->E1_TIPO, SE1->E1_CLIENTE, SE1->E1_LOJA, NVALREC, DBAIXA}))

FINA200.PRX - FA200GER() -> IF LF200AVL .AND. !EXECBLOCK("F200AVL",.F.,.F.,{AVALORES} )

FINA200.PRX - FA200GER() -> LALTPORT := EXECBLOCK("F200PORT",.F.,.F.)

FINA200.PRX - FA200GER() -> LCUSTODIA := EXECBLOCK("F200CUS",.F.,.F.,XBUFFER)

FINA200.PRX - FA200GER() -> LPELOG := EXECBLOCK("F200GLOG",.F.,.F.)

FINA200.PRX - FA200GER() -> LPROCESSA := EXECBLOCK("FA200SEB",.F.,.F.)

FINA200.PRX - FA200GER() -> URET := EXECBLOCK("200GEMBX", .F., .F., {AVALORES})

FINA200.PRX - FA200GER() -> URET := EXECBLOCK("F200VAR",.F.,.F.,{AVALORES})

FINA200.PRX - FA200GER() -> URET := EXECBLOCK("FA200POS",.F.,.F.,{AVALORES})

FINA200.PRX - FA200OUTROS() -> EXECBLOCK("F200OCR",.F.,.F.)

FINA200.PRX - FA200REJEI() -> EXECBLOCK("FA200RE2",.F.,.F.)

FINA200.PRX - FA200REJEI() -> EXECBLOCK("FA200REJ",.F.,.F.)

FINA200.PRX - FA200TARIFA() -> EXECBLOCK("F200DB1",.F.,.F.)

FINA200.PRX - FA200TARIFA() -> EXECBLOCK("F200DB2",.F.,.F.)

FINA210.PRX - FA210PROCESSA() -> EXECBLOCK("FA210SE5",.F.,.F.)

FINA210.PRX - FA210PROCESSA() -> EXECBLOCK("FA210SE8",.F.,.F.)

FINA222.PRW - FN222RUN() -> EXECBLOCK( "FN222ABR", .F., .F., {CUSER,CCODCONTA,CNEXTLT,FIB->FIB_DTABR,FIB->FIB_HRABR,NTROCO,FIB->FIB_TPABRE,FIB->FIB_USABRE})

FINA222.PRW - FN222RUN() -> EXECBLOCK( "FN222FEC", .F., .F., {CUSER,CCODCONTA,FIB->FIB_LOTE,FIB->FIB_DTFCH,FIB->FIB_HRFCH,{NPDN,NPCH,NPCC,NPCD,NPNC},FIB->FIB_TPFECH,FIB->FIB_USFECH})

FINA225.PRW - FN225ALTOK() -> EXECBLOCK("FN225GRV", .F., .F.,{M->AE_COD,M->AE_CODCLI,M->AE_DESC})

FINA240.PRX - ABREPAR() -> CARQSAIDA := EXECBLOCK("FA240NAR",.F.,.F.,CARQSAIDA)

FINA240.PRX - F240CONF() -> LRETORNO := EXECBLOCK("F240CONF",.F.,.F.)

FINA240.PRX - F240MTTMP() -> LFA240PA := EXECBLOCK("FA240PA")

FINA240.PRX - F240QRYA() -> LBLOCKEASY := EXECBLOCK("F240EASY",.F.,.F.)

FINA240.PRX - F240QRYA() -> NF240IND := EXECBLOCK("F240IND", .F., .F., {.T., ACLONE(ANEWINDEX)})

FINA240.PRX - F240RESTR() -> AUSRSE2:= EXECBLOCK("F240ADCM",.F.,.F.)

FINA240.PRX - F240TUDOOK() -> URETPE := EXECBLOCK("F240OK2")

FINA240.PRX - FA240BORDE() -> AALTMARK := EXECBLOCK("F240MARK",.F.,.F.,ACAMPOS)

FINA240.PRX - FA240BORDE() -> AVARS := EXECBLOCK("F240GAVE",.F.,.F.,AVARS)

FINA240.PRX - FA240BORDE() -> CFIL240 := EXECBLOCK("F240FIL",.F.,.F.)

FINA240.PRX - FA240BORDE() -> EXECBLOCK("F240BORD",.F.,.F.)

FINA240.PRX - FA240BORDE() -> EXECBLOCK("F240TBOR",.F.,.F.,{COLDPORT240,CPORT240})

FINA240.PRX - FA240BORDE() -> IF EXECBLOCK("F240SEMA",.F.,.F.)

FINA240.PRX - FA240BORDE() -> LBLQBOR:= EXECBLOCK("F240BOR",.F.,.F.,{LBLQBOR})

FINA240.PRX - FA240BORDE() -> NOPCA := IF( EXECBLOCK( "F240TDOK", .F., .F., { CMARCA, CALIASSE2 } ),1,2)

FINA240.PRX - FA240BORDE() -> {|| NOPCA := 2,ODLG1:END()},,IIF(LF240BTN, ABUT240 := EXECBLOCK("F240BTN",.F.,.F.,ABUT240),ABUT240)),IIF(LF240IND,OMARK:OBROWSE:REFRESH(.T.),.T.)) CENTER

FINA240.PRX - FA240CANC() -> EXECBLOCK("F240CAN",.F.,.F.,{COLDPORTADO})

FINA240.PRX - FA240CANC() -> IF !EXECBLOCK("F240OK",.F.,.F.)

FINA240.PRX - FA240CANC() -> LDELETA := EXECBLOCK("F240PCB",.F.,.F.)

FINA240.PRX - FA240CHEC2() -> CFILTRO += EXECBLOCK("F240FPGT", .F., .F.)

FINA240.PRX - FA240CHEC2() -> CFILTRO := EXECBLOCK("F240AFIL", .F., .F., {CFILTRO})

FINA240.PRX - FA240CHEC2() -> LFA240PA := EXECBLOCK("FA240PA")

FINA240.PRX - FA240DBEVA() -> LBXTIT := EXECBLOCK("F240TIT",.F.,.F.,.F.)

FINA240.PRX - FA240DISP() -> LBXTIT := EXECBLOCK("F240DES",.F.,.F.,.T.)

FINA240.PRX - FA240DISP() -> LBXTIT := EXECBLOCK("F240TIT",.F.,.F.,.T.)

FINA240.PRX - FA240INVERTE() -> LBXTIT := EXECBLOCK("F240DES",.F.,.F.,.F.)

FINA240.PRX - FA240INVERTE() -> LBXTIT := EXECBLOCK("F240TIT",.F.,.F.,.F.)

FINA240.PRX - FA240NUM() -> LRETORNA := EXECBLOCK("F240NBOR",.F.,.F.,CNUMBOR)

FINA240.PRX - FA240SIS() -> IF !EXECBLOCK("F240GER",.F.,.F.)

FINA240.PRX - SISPAGGER() -> CFIL240TC := EXECBLOCK("F240FILTC",.F.,.F.)

FINA240.PRX - SISPAGGER() -> CIDCNAB := EXECBLOCK("F240ICNB",.F.,.F.,{CIDCNAB})

FINA240.PRX - SISPAGGER() -> CMODELO:= EXECBLOCK("F240ALMOD",.F.,.F.,{CMODELO})

FINA240.PRX - SISPAGGER() -> EXECBLOCK( "F240TGRV", .F., .F. )

FINA240.PRX - SISPAGGER() -> EXECBLOCK("F240ARQ",.F.,.F.)

FINA240.PRX - SISPAGGER() -> EXECBLOCK("F240GRV",.F.,.F.)

FINA240.PRX - SISPAGGER() -> LAUTLIBBOR := EXECBLOCK("F240LBDA",.F.,.F.)

FINA240.PRX - SISPAGGER() -> LISITAU := EXECBLOCK("F240BCO",.F.,.F.,SEA->EA_PORTADO)

FINA240.PRX - SISPAGGER() -> NSOMAACRES += EXECBLOCK("F240SUMA",.F.,.F.)

FINA240.PRX - SISPAGGER() -> NSOMADECRE += EXECBLOCK("F240SUMD",.F.,.F.)

FINA240.PRX - SISPAGGER() -> NSOMAVALOR += EXECBLOCK("F240SUM",.F.,.F.)

FINA241.PRX - F241CANIMP() -> AFIL10925 := EXECBLOCK( "MT103FRT", .F., .F. )

FINA241.PRX - F241CANIMP() -> CNATURS += EXECBLOCK("F241NAT",.F.,.F.)

FINA241.PRX - F241CONF() -> LRET := EXECBLOCK("F241CONF",.F.,.F.)

FINA241.PRX - F241DELTXIR() -> CNATIRF += EXECBLOCK("F241NAT",.F.,.F.)

FINA241.PRX - F241EXIRPF() -> CNATIRF += EXECBLOCK("F241NAT",.F.,.F.)

FINA241.PRX - F241IMPOST() -> ACONTAB := EXECBLOCK("F241AREC",.F.,.F.,{ACONTAB, "SE2"})

FINA241.PRX - F241IMPOST() -> ACONTAB := EXECBLOCK("F241REC1",.F.,.F.,{ACONTAB, "SE2"})

FINA241.PRX - F241IMPOST() -> AFIL10925 := EXECBLOCK( "MT103FRT", .F., .F. )

FINA241.PRX - F241IMPOST() -> AFOR10925 := EXECBLOCK("F080LOJA",.F.,.F.)

FINA241.PRX - F241IMPOST() -> ARECNOSSE2 := EXECBLOCK("F241AREC",.F.,.F.,{ARECNOSSE2, CALIASQRY})

FINA241.PRX - F241IMPOST() -> ARETORD := EXECBLOCK("F241ORD",.F.,.F.,{ARECNOSSE2, "SE2"})

FINA241.PRX - F241IMPOST() -> CQUERY+= EXECBLOCK("F241CMP2",.F.,.F., {CQUERY}) + ","

FINA241.PRX - F241IMPOST() -> CQUERY+= EXECBLOCK("F241QRY2",.F.,.F., {CQUERY})

FINA241.PRX - F241IMPOST() -> CQUERY:= EXECBLOCK("F241QRY3",.F.,.F.,{CQUERY})

FINA241.PRX - F241IMPOST() -> EXECBLOCK("F241IMP",.F.,.F.)

FINA241.PRX - F241IMPOST() -> EXECBLOCK("F241INC",.F.,.F.)

FINA241.PRX - F241IMPOST() -> EXECBLOCK("F241INC2",.F.,.F.)

FINA241.PRX - F241IMPOST() -> EXECBLOCK("F241INC5",.F.,.F.)

FINA241.PRX - F241IMPOST() -> LRESTAUM := EXECBLOCK("RESTAUM",.F.,.F.)

FINA241.PRX - F241QRYA() -> LBLOCKEASY := EXECBLOCK("F240EASY",.F.,.F.)

FINA241.PRX - F241QRYA() -> NF241IND := EXECBLOCK("F241IND",.F.,.F.)

FINA241.PRX - FA241BORDE() -> AALTMARK := EXECBLOCK("F241MARK",.F.,.F.,ACAMPOS)

FINA241.PRX - FA241BORDE() -> AVARS := ACLONE(EXECBLOCK("F241GAVE",.F.,.F.,AVARS))

FINA241.PRX - FA241BORDE() -> CFIL240 := EXECBLOCK("F240FIL",.F.,.F.)

FINA241.PRX - FA241BORDE() -> CFIL240 := EXECBLOCK("F240FIL",.F.,.F.,{LBORAUT})

FINA241.PRX - FA241BORDE() -> DDATABORD:=EXECBLOCK("F241DTBOR",.F.,.F.,{DDATABORD})

FINA241.PRX - FA241BORDE() -> EXECBLOCK("F240BORD",.F.,.F.)

FINA241.PRX - FA241BORDE() -> EXECBLOCK("F240TBOR",.F.,.F.,{COLDPORT240,CPORT240})

FINA241.PRX - FA241BORDE() -> EXECBLOCK("F241IRAN",.F.,.F.,{CNUMBOR})

FINA241.PRX - FA241BORDE() -> LBLQBOR:= EXECBLOCK("F241BOR",.F.,.F.,{LBLQBOR})

FINA241.PRX - FA241BORDE() -> LCONTABIL := EXECBLOCK("F241CTB",.F.,.F.)

FINA241.PRX - FA241BORDE() -> NOPCA := IF(EXECBLOCK("F240TDOK",.F.,.F., { CMARCA, CALIASSE2 } ),1,2)

FINA241.PRX - FA241BORDE() -> {|| NOPCA := 2,ODLG1:END()},, IIF(LF241BTN, ABUT240 := EXECBLOCK("F241BTN",.F.,.F.,ABUT240),ABUT240)),IIF(LF241IND,OMARK:OBROWSE:REFRESH(.T.),.T.)) CENTER

FINA241.PRX - FA241CANC() -> CTMPBORD := EXECBLOCK( "F241NBOR", .F., .F. )

FINA241.PRX - FA241CANC() -> EXECBLOCK("F240CAN",.F.,.F.,{COLDPORTADO})

FINA241.PRX - FA241CANC() -> IF !EXECBLOCK("F240OK",.F.,.F.)

FINA241.PRX - FA241CANC() -> LCONTABIL := EXECBLOCK("F241CTB",.F.,.F.)

FINA241.PRX - FA241CANC() -> LCPRET := EXECBLOCK("F241MPCC",.F.,.F.)

FINA241.PRX - FA241CANC() -> LDELBORD := EXECBLOCK("F241CBD",.F.,.F.)

FINA241.PRX - FA241CANC() -> LDELETA := EXECBLOCK("F240PCB",.F.,.F.)

FINA241.PRX - FA241REL() -> AFIL10925 := EXECBLOCK( "MT103FRT", .F., .F. )

FINA260.PRX - F260CANC() -> EXECBLOCK("F260COMP",.F.,.F.)

FINA260.PRX - F260GERA() -> EXECBLOCK("F260DUPL",.F.,.F.,{'AFTERBUILDTRB','TRB',NIL,NIL})

FINA260.PRX - F260GERA() -> EXECBLOCK("FA260GRFIG",.F.,.F.)

FINA260.PRX - F260GERA() -> EXECBLOCK("FA260GRSE2",.F.,.F.)

FINA260.PRX - F260GERA() -> LDUP := EXECBLOCK("F260DUPL",.F.,.F., {'ONBUILDTRB','TRB', TRB->SEQMOV, (CALIASSE2)->RECNOSE2} )

FINA260.PRX - MENUDEF() -> AROTINA := EXECBLOCK("F260BUT",.F.,.F.,AROTINA)

FINA280.PRW - F280SELFAT() -> EXECBLOCK( "F280PARC", .F., .F., {ACOLS, AHEADER} )

FINA280.PRW - FA280AUT() -> EXECBLOCK("F280PRE",.F.,.F.)

FINA280.PRW - FA280AUT() -> LBLQFAT:= EXECBLOCK("F280NFT",.F.,.F.,{LBLQFAT})

FINA280.PRW - FA280AUT*/() -> ABUT280 := EXECBLOCK( "F280REC",.F.,.F., {ABUT280})

FINA280.PRW - FA280AUT*/() -> ARETF280CON :=EXECBLOCK("F280CON",.F.,.F.,{NVALOR,CCONDICAO,CMARCA,CALIASSE1,CCOND})

FINA280.PRW - FA280AUT*/() -> CQUERYADD := EXECBLOCK("FA280QRY",.F.,.F.)

FINA280.PRW - FA280AUT*/() -> CRETQUERY := EXECBLOCK("F280CHQRY",.F.,.F.,{CQUERY})

FINA280.PRW - FA280AUT*/() -> EXECBLOCK("A280GERF",.F.,.F.,{CPREFIX,CFATURA,CPARCELA,CTIPO,DTOC(CVENCMTO),NW})

FINA280.PRW - FA280AUT*/() -> EXECBLOCK("F280SE5",.F.,.F.,{ARECSE5})

FINA280.PRW - FA280AUT*/() -> EXECBLOCK("FA280",.F.,.F.,NREGE1)

FINA280.PRW - FA280AUT*/() -> EXECBLOCK("FA280GRV",.F.,.F.)

FINA280.PRW - FA280BAIXA() -> EXECBLOCK("F280ORI",.F.,.F.)

FINA280.PRW - FA280CAN*/() -> EXECBLOCK("F280CAN",.F.,.F.)

FINA280.PRW - FA280CAN*/() -> LRET := EXECBLOCK("F280PCAN",.F.,.F.)

FINA280.PRW - FA280CHECF() -> CFILTROADD := EXECBLOCK("FA280FIL",.F.,.F.,CFILTRO)

FINA280.PRW - FA280DATA() -> LRET := EXECBLOCK("F280DTVC",.F.,.F.,{DDATAVC})

FINA280.PRW - FA280EXIBE() -> EXECBLOCK("FA280SHOW",.F.,.F.,{CALIASSE1,.F.})

FINA280.PRW - FA280GRFAT() -> EXECBLOCK("FA280",.F.,.F.,NREGE1)

FINA280.PRW - FA280INVERTE() -> EXECBLOCK("FA280SHOW",.F.,.F.,{CALIASSE1,.F.})

FINA280.PRW - FA280INVERTE() -> LMARC := IIF (LF280TIT,EXECBLOCK("F280TIT",.F.,.F.,{CALIASSE1}),.T.)

FINA280.PRW - FA280MARCA() -> EXECBLOCK("FA280SHOW",.F.,.F.,{CALIASSE1,.T.})

FINA280.PRW - FA280MOTBX() -> CFILE := EXECBLOCK("FILEMOT",.F.,.F.,{CFILE})

FINA280.PRW - FA280MOVIM() -> EXECBLOCK("FA280GRE5",.F.,.F.)

FINA280.PRW - FA280NAT() -> LRET := EXECBLOCK("FIN280NAT")

FINA280.PRW - FA280NUM() -> LF280VLFAT := EXECBLOCK("F280VLFAT",.F.,.F.,{CFATURA})

FINA280.PRW - FA280OK() -> LRET := EXECBLOCK("FA280OK",.F.,.F.,ODLG)

FINA280.PRW - FA280PEVQF() -> LRESULT := EXECBLOCK( "FA280VQF", .F., .F., { NQTDTIT } )

FINA280.PRW - FA280TUDOK() -> IF !(EXECBLOCK("FA280TOK",.F.,.F.))

FINA280.PRW - GRAVADP() -> EXECBLOCK("FA280AHEAD",.F.,.F.)

FINA280.PRW - MENUDEF() -> AROTINA := EXECBLOCK( "F280ADMENU", .F., .F., AROTINA )

FINA281.PRW - FA281ALTVALOR() -> EXECBLOCK("FA281VLR",.F.,.F.)

FINA281.PRW - FA281AUT() -> AVENC := EXECBLOCK("F280CON",.F.,.F.,{NVALOR,CCONDICAO})

FINA281.PRW - FA281AUT() -> CQUERY += EXECBLOCK("F281FIL",.F.,.F., {CQUERY})

FINA281.PRW - FA281AUT() -> EXECBLOCK("F280PRE",.F.,.F.)

FINA281.PRW - FA281LEGENDA() -> URETORNO := EXECBLOCK("FINALEG",.F.,.F.,{NREG,CALIAS})

FINA290.PRW - F290PRCCAN() -> EXECBLOCK("F290CAN",.F.,.F.)

FINA290.PRW - F290PRCCAN() -> EXECBLOCK("F290CN2",.F.,.F.)

FINA290.PRW - F290PRCCAN() -> EXECBLOCK("FA290C",.F.,.F.)

FINA290.PRW - F290PRCCAN() -> LRET:=EXECBLOCK("FA290OKC",.F.,.F.)

FINA290.PRW - FA290AUT() -> @ 085+NESPLIN, 120+NESPLARG MSGET CFORNPWHEN MV_PAR01 == 2 .AND. ( IIF( LF290FORNP , EXECBLOCK("F290FORNP",.F.,.F.) , .T. )) VALID IF(NOPCA<>0,FA290FOR(CFORNP,CLOJAP,.T.,.F.),.T.) F3 "FOR" SIZE 65, 11 OF OPANEL PIXEL HASBUTTON

FINA290.PRW - FA290AUT() -> @ 085+NESPLIN, 185+NESPLARG MSGET CLOJAPWHEN MV_PAR01 == 2 .AND. ( IIF( LF290FORNP , EXECBLOCK("F290FORNP",.F.,.F.) , .T. )) VALID IF(NOPCA<>0,FA290FOR(CFORNP,CLOJAP,.T.,.F.),.T.) SIZE 21, 11 OF OPANEL PIXEL

FINA290.PRW - FA290AUT() -> ABUT290 := EXECBLOCK( "F290FPG",.F.,.F., {ABUT290})

FINA290.PRW - FA290AUT() -> ACAMPOS:=EXECBLOCK("F290BTIT",.F.,.F.,ACAMPOS)

FINA290.PRW - FA290AUT() -> AVENC := EXECBLOCK("F290CON",.F.,.F.,{NVALOR,CCONDICAO,CMARCA,NBASEPCC,NPISFAT,NCOFFAT,NCSLFAT})

FINA290.PRW - FA290AUT() -> EXECBLOCK("F290PRE",.F.,.F.)

FINA290.PRW - FA290AUT() -> LMOSTRATELA:=EXECBLOCK("FI290MT",.F.,.F.)

FINA290.PRW - FA290BAVAL() -> EXECBLOCK("F290VAL",.F.,.F.,{ACHAVELBN})

FINA290.PRW - FA290CHECF() -> CFIL290 := EXECBLOCK("F290FIL",.F.,.F.,{.F.})

FINA290.PRW - FA290CHECF() -> CFIL290 := EXECBLOCK("F290FIL",.F.,.F.,{.T.})

FINA290.PRW - FA290CHECF() -> CFILTRO += EXECBLOCK("F290OWN",.F.,.F.)

FINA290.PRW - FA290CHECF() -> CFILTRO := EXECBLOCK("F290CHK",.F.,.F.,CFILTRO)

FINA290.PRW - FA290CHECF() -> LVERLIBTIT :=EXECBLOCK("F290LIBT",.F.,.F.)

FINA290.PRW - FA290EXIBE() -> LMARKTIT := EXECBLOCK("F290TIT",.F.,.F.,{.F.})

FINA290.PRW - FA290GRVFT() -> CHISTFAT := EXECBLOCK("FA290HPAD", .F., .F.)

FINA290.PRW - FA290GRVFT() -> EXECBLOCK("FA290",.F.,.F.)

FINA290.PRW - FA290GRVFT() -> EXECBLOCK("FAT290SE5", .F. ,.F., ATITSE5)

FINA290.PRW - FA290GRVFT() -> EXECBLOCK("FI290GE5",.F.,.F.)

FINA290.PRW - FA290GRVFT() -> STRLCTPAD += EXECBLOCK("F290BAIXA",.F., .F.)

FINA290.PRW - FA290INVERTE() -> LMARKTIT := EXECBLOCK("F290TIT",.F.,.F.,{.F.})

FINA290.PRW - FA290MARCA() -> LMARKTIT := EXECBLOCK("F290TIT",.F.,.F.,{.T.})

FINA290.PRW - FA290MOTBX() -> CFILE := EXECBLOCK("FILEMOT",.F.,.F.,{CFILE})

FINA290.PRW - FA290NAT() -> LRET := EXECBLOCK("FIN290NAT")

FINA290.PRW - FA290OK() -> LRET := EXECBLOCK("FA290OK",.F.,.F.)

FINA290.PRW - FA290TUDOK() -> IF !(EXECBLOCK("FA290TOK",.F.,.F.))

FINA290.PRW - FINA290() -> MBROWSE( 6, 1,22,75,"SE2",,,,,,FA040LEGENDA("SE2"),,,,,,,,IIF(LF290BFIL,EXECBLOCK("F290BFIL",.F.,.F.),NIL))

FINA290.PRW - GRAVADUP() -> ACOLS := EXECBLOCK("FI290COLS",.F.,.F.,{2,ACOLS,NI})

FINA290.PRW - GRAVADUP() -> AHEADER := EXECBLOCK("FI290COLS",.F.,.F.,{1,AHEADER,})

FINA300.PRX - FA300PROCESSA() -> EXECBLOCK( "F300FIL", .F., .F., ACPOS )

FINA300.PRX - FA300PROCESSA() -> EXECBLOCK( "FA300OCO", .F., .F. )

FINA300.PRX - FA300PROCESSA() -> EXECBLOCK( "FA300REJ", .F., .F., { CRETORNO } )

FINA300.PRX - FA300PROCESSA() -> EXECBLOCK("F300SE5",.F.,.F.)

FINA300.PRX - FA300PROCESSA() -> EXECBLOCK("FA300OCO", .F., .F.)

FINA300.PRX - FA300PROCESSA() -> EXECBLOCK("FA300PA", .F., .F.)

FINA300.PRX - FA300PROCESSA() -> EXECBLOCK("FA300REN", .F., .F.)

FINA300.PRX - FA300PROCESSA() -> IF !EXECBLOCK( "F300FLT" )

FINA300.PRX - FA300REJEI() -> EXECBLOCK("FA300REJ", .F., .F., {CRETORNO})

FINA310.PRW - F310RETARQ() -> ALOTES := EXECBLOCK(SA6->A6_FORMRET,.F.,.F.,APARAM)

FINA317.PRW - CNI317CAN() -> EXECBLOCK("F450SE1C",.F.,.F.)

FINA317.PRW - CNI317CAN() -> EXECBLOCK("F450SE2C",.F.,.F.)

FINA317.PRW - CNI317FCAN() -> CFILTRO += EXECBLOCK("F450FCA",.F.,.F.)

FINA317.PRW - CNIMOTBX() -> CFILE := EXECBLOCK("FILEMOT",.F.,.F.,{CFILE})

FINA330.PRX - FA330DESC() -> EXECBLOCK("F330AE5E",.F.,.F.)

FINA330.PRX - FA330DESC() -> EXECBLOCK("F330ESE5",.F.,.F.,{ALSTDOC,CTIPODOC,NTAMTIT,NTAMTIP,NI})

FINA330.PRX - FA330DESC() -> EXECBLOCK("F330VEEX",.F.,.F.,{NOPC})

FINA330.PRX - FA330DESC() -> EXECBLOCK("FA330EAC",.F.,.F.)

FINA330.PRX - FA330DESC() -> EXECBLOCK("FA330EXC",.F.,.F.)

FINA330.PRX - FA330DESC() -> IF LF330FLTC .AND. EXECBLOCK("F330FLTC",.F.,.F.)

FINA330.PRX - FA330DESC() -> LDESC := EXECBLOCK("F330DESC",.F.,.F.)

FINA330.PRX - FA330DESC() -> LF330EXCLUI := (EXECBLOCK( "F330EXCOMP", .F., .F.,{ATITULOS,AREGISTROS,NOPC}))

FINA330.PRX - FA330DESC() -> LGRVSA1 := EXECBLOCK("F070TRAVA", .F., .F.)

FINA330.PRX - FA330DESC() -> LVLDDTFIN := EXECBLOCK("F330DTFIN",.F.,.F.)

FINA330.PRX - FA330DESC() -> NOPCA := EXECBLOCK("FI330EST",.F.,.F.,{ NOPC, { CPREFIXO, CNUM, CPARCELA, CTIPOTIT, CCLIENTE, CLOJA }})

FINA330.PRX - FA330GRV() -> EXECBLOCK("F330AHE1",.F.,.F.)

FINA330.PRX - FA330GRV() -> EXECBLOCK("FA330SE1",.F.,.F.)

FINA330.PRX - FA330MOV() -> CCAMPOSE5 += ",{'E5_FILIAL','" + EXECBLOCK("SE5MTFIL",.F.,.F.,CFILANT) + "' } "

FINA330.PRX - FA330MOV() -> CCAMPOSE5 += ",{'E5_FILIAL','" + EXECBLOCK("SE5MTFIL",.F.,.F.,CFILANT)+"' } "

FINA330.PRX - FA330MOV() -> EXECBLOCK("F330AE5I",.F.,.F.)

FINA330.PRX - FA330MOV() -> EXECBLOCK("SE5FI330",.F.,.F.)

FINA330.PRX - FA330MOV() -> EXECBLOCK("SE5FI331",.F.,.F.)

FINA330.PRX - FA330OK() -> LRET := EXECBLOCK("FA330VLD")

FINA330.PRX - FA330TIT() -> ATITULOS:=EXECBLOCK("FI330ALT",.F.,.F.,{ATITULOS})

FINA330.PRX - FA330TIT() -> CQUERY := EXECBLOCK("FA330QRY",.F.,.F.,{ CQUERY }  )

FINA330.PRX - FA330TIT() -> IF !(EXECBLOCK("F330RIO",.F.,.F.))

FINA330.PRX - FA330TIT() -> NORDSE1 := EXECBLOCK("FA330ORD",.F.,.F.)

FINA330.PRX - FA330TIT() -> NVALCOMP:= EXECBLOCK("F330CMP",.F.,.F.)

FINA330.PRX - FA330TROCA() -> EXECBLOCK("F330ATLIS",.F.,.F., {  , 2 , NVALTOT, NVALOR } )

FINA330.PRX - FA330TUDOK() -> LRET := EXECBLOCK("F300VALID",.F.,.F.,NVLRCOMPE)

FINA330.PRX - FINA330() -> AROTINA := EXECBLOCK( "FA330MNU", .F., .F., { AROTINA } )

FINA330.PRX - FINA330() -> CBRWEXP := EXECBLOCK( "FA330FBRW", .F., .F. )

FINA330.PRX - FINA330FILT() -> EXECBLOCK("F330ATLIS",.F.,.F., { @OPANEL , 1, NVALTOT , NVALOR } )

FINA330.PRX - FINA330FILT() -> EXECBLOCK("F330BOTON",.F.,.F.)

FINA330.PRX - FINA330FILT() -> EXECBLOCK("F330SE5",.F.,.F.,{ARECSE5})

FINA330.PRX - FINA330FILT() -> EXECBLOCK("FA330BX",.F.,.F.)

FINA330.PRX - FINA330FILT() -> EXECBLOCK("FA330CMP",.F.,.F.)

FINA330.PRX - FINA330FILT() -> LVLDDTFIN := EXECBLOCK("F330DTFIN",.F.,.F.)

FINA330.PRX - GETDESC() -> IF EXECBLOCK("F330DESC",.F.,.F.)

FINA330.PRX - MENUDEF() -> ARETORNO := EXECBLOCK("FA330LIB",.F.,.F.,{AROTINA})

FINA340.PRX - F340GERDIC() -> A340GERNDF := EXECBLOCK("F340GERNDF",.F.,.F.,ATIT)

FINA340.PRX - F340GERDIC() -> EXECBLOCK("FA340NDFGRV",.F.,.F.,{CTITADT, CTITPRC, .F.})

FINA340.PRX - F340TITCAN() -> CQRYADD := EXECBLOCK("FA340QRY",.F.,.F.)

FINA340.PRX - FA340CAN() -> EXECBLOCK("F340CAN", .F., .F., AVETREG)

FINA340.PRX - FA340CAN() -> EXECBLOCK("F340FCAN",.F.,.F.)

FINA340.PRX - FA340CAN() -> EXECBLOCK("F340GREST",.F.,.F.)

FINA340.PRX - FA340CAN() -> IF LRET .AND. LF340ACAN .AND. !EXECBLOCK("F340ACAN",.F.,.F.)

FINA340.PRX - FA340CAN() -> LVLDDTFIN := EXECBLOCK("F340DTFIN", .F., .F.)

FINA340.PRX - FA340COMP() -> ATITULOS := EXECBLOCK("F340ATLIS", .F., .F.,{ATITULOS})

FINA340.PRX - FA340COMP() -> ATITULOS := EXECBLOCK("F340MKTIT",.F.,.F.,{ATITULOS})

FINA340.PRX - FA340COMP() -> EXECBLOCK("F340GRV",.F.,.F.,{NOPCA})

FINA340.PRX - FA340COMP() -> EXECBLOCK("F340NAT",.F.,.F.,__NRECPART)

FINA340.PRX - FA340COMP() -> EXECBLOCK("F340SE5",.F.,.F.,{ARECSE5})

FINA340.PRX - FA340COMP() -> EXECBLOCK("F340TAXA",.F.,.F.,{ATXMOEDAS})

FINA340.PRX - FA340COMP() -> EXECBLOCK("F340TOTCP",.F.,.F., { @OPANEL , 1, NVALTOT , NVALOR } )

FINA340.PRX - FA340COMP() -> EXECBLOCK("F340_PA",.F.,.F.)

FINA340.PRX - FA340COMP() -> IF !EXECBLOCK("F340COMP",.F.,.F.)

FINA340.PRX - FA340COMP() -> LVERLIBTIT :=EXECBLOCK("F340LIBT",.F.,.F.)

FINA340.PRX - FA340COMP() -> LVLDDTFIN := EXECBLOCK("F340DTFIN",.F.,.F.)

FINA340.PRX - FA340GRV() -> EXECBLOCK('F340CMP',.F.,.F.)

FINA340.PRX - FA340LEG() -> ALEGENDA := EXECBLOCK("F340LEGE",.F.,.F.,{ALEGENDA})

FINA340.PRX - FA340MOV() -> EXECBLOCK("SE5FI340",.F.,.F.)

FINA340.PRX - FA340MOV() -> EXECBLOCK("SE5FI341", .F., .F.)

FINA340.PRX - FA340OK() -> LRET := EXECBLOCK("F340VALOK", .F., .F., {ATITULOS})

FINA340.PRX - FA340QRYTI() -> CQRY += EXECBLOCK("F340FLCP",.F.,.F.) + " "

FINA340.PRX - FA340QRYTI() -> CQRY := EXECBLOCK("F340FCPTOP",.F.,.F.,{CQRY})

FINA340.PRX - FA340QRYTI() -> LF340LIBT  := IF(EXISTBLOCK("F340LIBT"), EXECBLOCK("F340LIBT",.F.,.F.), LF340LIBT)

FINA340.PRX - FA340TIT() -> LRET := EXECBLOCK("FA340FILT",.F.,.F.,{__NRECPART})

FINA340.PRX - FA340TIT() -> NSLDTIT := EXECBLOCK("F340CMP",.F.,.F.)

FINA340.PRX - FA340TIT1() -> SE2->(DBSETORDER(EXECBLOCK("FA340ORD",.F.,.F.)))

FINA340.PRX - FA340TROCA() -> EXECBLOCK("F340TOTCP",.F.,.F., {  , 2 , NVALTOT, NVALOR } )

FINA340.PRX - FA340TUDOK() -> LRET := EXECBLOCK("F340VLD",.F.,.F.)

FINA350.PRX - FA350CALC() -> EXECBLOCK ("F350GE1",.F.,.F.,VALOR)

FINA350.PRX - FA350CALC() -> EXECBLOCK ("F350GE2",.F.,.F.,VALOR)

FINA350.PRX - FA350CALC() -> IF !(EXECBLOCK("F350SE1",.F.,.F.))

FINA350.PRX - FA350CALC() -> IF !(EXECBLOCK("F350SE2",.F.,.F.))

FINA350.PRX - FA350CALC() -> VALOR += EXECBLOCK("F350CM",.F.,.F.,{NVALORM,NVALOR1,NTXCOMPRA})

FINA350.PRX - FA350CALC() -> VALOR += EXECBLOCK("F350CM2",.F.,.F.)

FINA350.PRX - FA350LIQ() -> EXECBLOCK ("F350GE1",.F.,.F.,VALOR)

FINA350.PRX - FA350LIQ() -> VALOR += EXECBLOCK("F350CM",.F.,.F.,{NVALORM,NVALOR1,NTXCOMPRA})

FINA370.PRX - FA370PROCESSA() -> CCHAVE := EXECBLOCK("F370E5K",.F.,.F.,CCHAVE)

FINA370.PRX - FA370PROCESSA() -> CCHAVE := EXECBLOCK("F370EFK",.F.,.F.,CCHAVE)

FINA370.PRX - FA370PROCESSA() -> CCONDWHILE := EXECBLOCK("F370E1W",.F.,.F.)

FINA370.PRX - FA370PROCESSA() -> CFILIALPESQ := EXECBLOCK("F370INFI",.F.,.F.,{CFILIALPESQ})

FINA370.PRX - FA370PROCESSA() -> CFOR := EXECBLOCK("F370E2F",.F.,.F.,CFOR)

FINA370.PRX - FA370PROCESSA() -> CFOR:= EXECBLOCK("F370E5CT",.F.,.F.)

FINA370.PRX - FA370PROCESSA() -> CQUERY += EXECBLOCK("F370EFF",.F.,.F.,CQUERY)

FINA370.PRX - FA370PROCESSA() -> EXECBLOCK("F370CTBUSR",.F.,.F.)

FINA370.PRX - FA370PROCESSA() -> EXECBLOCK("F370E5P",.F.,.F.)

FINA370.PRX - FA370PROCESSA() -> EXECBLOCK("F370E5R",.F.,.F.)

FINA370.PRX - FA370PROCESSA() -> EXECBLOCK("F370E5T",.F.,.F.)

FINA370.PRX - FA370PROCESSA() -> EXECBLOCK("F370NATP",.F.,.F.,{NHDLPRV,CLOTE})

FINA370.PRX - FA370PROCESSA() -> IF !EXECBLOCK("F370E1F",.F.,.F.)

FINA370.PRX - FA370PROCESSA() -> IF !EXECBLOCK("F370EUF",.F.,.F.)

FINA371.PRW - FA371PROCESSA() -> CFORAUX := EXECBLOCK( "FA371FIL", .F., .F., {"SEL"} )

FINA371.PRW - FA371PROCESSA() -> CFORAUX := EXECBLOCK( "FA371FIL", .F., .F., {"SFR"} )

FINA373.PRW - FA373BX() -> CORIGENS := EXECBLOCK("FINTPDARF",.F.,.F.)

FINA373.PRW - FA373CANC() -> @015,038MSGET OGET1 VAR CIDDARF :=(EXECBLOCK("F373CAN",.F.,.F.))SIZE 68,10 PICTURE "@!" OF OPANEL1 PIXEL

FINA373.PRW - FA373CONS() -> @015,038MSGET OGET1 VAR CIDDARF := (EXECBLOCK("F373CONS",.F.,.F.)) SIZE 68,10 PICTURE "@!" OF OPANEL1 PIXEL

FINA374.PRX - F374GERSE2() -> EXECBLOCK("F374CNCF",.F.,.F.,{CTIPONDF})

FINA375.PRX - F375GRVE2N () -> EXECBLOCK("F375CIRF",.F.,.F.)

FINA375.PRX - F375GRVE2N () -> EXECBLOCK("F375CNCF",.F.,.F.)

FINA375.PRX - F375GRVE2N () -> SE2->E2_CODRET := EXECBLOCK("F375IRF",.F.,.F.)

FINA375.PRX - FA375GRVE2() -> EXECBLOCK("F375IRFC",.F.,.F.)

FINA375.PRX - FA375GRVE2() -> EXECBLOCK("F375NDFC",.F.,.F.)

FINA375.PRX - FA375GRVE2() -> SE2->E2_CODRET := EXECBLOCK("F375IRF",.F.,.F.)

FINA375.PRX - FA375PAGAR() -> LRET := EXECBLOCK("RETIR375",.F.,.F.,{CFORNECE,CLOJA,DDATA,"IRRF",NVALBASE,NVALRETIDO,NRESULTADO,AREGS,ATITUSADO})

FINA375.PRX - FA375PAGAR() -> NIRRETER:= EXECBLOCK("F375IRPF",.F.,.F.,NVALBASE)

FINA376.PRX - F376CRIATMP() -> CF376QRY := EXECBLOCK("F376QRY",.F.,.F.)

FINA376.PRX - FA376BXE2() -> EXECBLOCK("F376BXTX",.F.,.F.,{ARECSE5})

FINA376.PRX - FA376CAN() -> EXECBLOCK("F376CANBX",.F.,.F.,{ARECCAN})

FINA376.PRX - FA376CAN() -> LRET:= EXECBLOCK('FA378POS',.F.,.F.,{LRET})

FINA376.PRX - FA376GRVE2() -> CPREFIXO := EXECBLOCK("F376PRF",.F.,.F.)

FINA376.PRX - FA376GRVE2() -> EXECBLOCK("F376GRV",.F.,.F.)

FINA376.PRX - FA376PAGAR() -> ARETPROJ := EXECBLOCK("F376PROJ", .F., .F.,{AREGS,AVALIMP})

FINA377.PRX - FA377GRVE2() -> EXECBLOCK("F377NDF",.F.,.F.,{SE2->(RECNO())})

FINA378.PRX - FA378CAN() -> EXECBLOCK("F378CANBX", .F., .F., {ARECCAN})

FINA378.PRX - FA378CAN() -> EXECBLOCK('FA378EST',.F.,.F.)

FINA378.PRX - FA378CAN() -> LRET := EXECBLOCK('FA378POS',.F.,.F.,{LRET})

FINA378.PRX - FA378EMISS() -> CQUERY += EXECBLOCK('FA378FLT',.F.,.F.,{.T.})

FINA378.PRX - FA378EMISS() -> EXECBLOCK("F378PROJ", .F., .F.,{AFORNEC,CALIAS})

FINA378.PRX - FA378GRVE2() -> EXECBLOCK("F378GRV",.F.,.F.)

FINA378.PRX - FA378PAGAR() -> EXECBLOCK("F378PROJ", .F., .F.,{AFORNEC,CALIAS})

FINA380.PRX - := ALLTRIM(FUNNAM() -> CFIL380 := UPPER(EXECBLOCK("F380FIL",.F.,.F.))

FINA380.PRX - A380INVERTE() -> EXECBLOCK("F380RECO",.F.,.F.)

FINA380.PRX - FA380BAR() -> AADD(ABUTTONS, {"AZUL", {|| EXECBLOCK("F380BUT",.F.,.F.) }, STR0068 } )

FINA380.PRX - FA380BAR() -> BACAO := {|| EXECBLOCK("F380BTCUST", .F., .F., {3, @ODLG, @OMARK})}

FINA380.PRX - FA380BAR() -> CTITULOPE := EXECBLOCK("F380BTCUST", .F., .F., {2, @ODLG, @OMARK})

FINA380.PRX - FA380BAR() -> SETKEY(18, {|| EXECBLOCK("F380BUT",.F.,.F.)} )

FINA380.PRX - FA380DISPL() -> EXECBLOCK("F380RECO",.F.,.F.)

FINA380.PRX - FA380EDIT() -> DEFINE SBUTTON FROM 60, 100 TYPE 1 ENABLE ACTION IIF( LF380DTC , (LDTOK := EXECBLOCK("F380DTC",.F.,.F.,DNEWDISPO), LCLICKOK := .T., ODLG1:END()) , (LDTOK := .T., LCLICKOK := .T., ODLG1:END()) ) OF ODLG1

FINA380.PRX - FA380EDIT() -> LDTCRDANT := EXECBLOCK("F380DTD",.F.,.F.)

FINA380.PRX - FA380REC() -> CCHAVE  := EXECBLOCK("FA380CHV", .F., .F.)

FINA380.PRX - FA380REC() -> EXECBLOCK("F380ATR",.F.,.F.)

FINA380.PRX - FA380REC() -> EXECBLOCK("F380GRV",.F.,.F.)

FINA380.PRX - FA380REC() -> EXECBLOCK("F380MTR",.F.,.F.)

FINA380.PRX - FA380REC() -> IF !(LALTDT := EXECBLOCK("F380ALDT",.F.,.F.))

FINA380.PRX - FA380REC() -> LL380VLD := EXECBLOCK("F380VLD", .F., .F., { DDTLIMREC, DINIDT380, DFIMDT380 } )

FINA380.PRX - FA380REC() -> __AF380IND := EXECBLOCK("F380IND",.F.,.F.)

FINA390.PRX - FA390AVU() -> CHIST390:=PADR(EXECBLOCK("A390HIST",.F.,.F.),TAMSX3("EF_HIST")[1])

FINA390.PRX - FA390AVU() -> EXECBLOCK("A390AVU",.F.,.F.)

FINA390.PRX - FA390CAN() -> EXECBLOCK("F390CBX",.F.,.F.)

FINA390.PRX - FA390CAN() -> IF !(EXECBLOCK("F390CANC",.F.,.F.))

FINA390.PRX - FA390EXIBE() -> LMARKTIT := EXECBLOCK("F390TIT",.F.,.F.)

FINA390.PRX - FA390EXIBE() -> NVALIMP := EXECBLOCK("F390VALOR",.F.,.F.,{NVALOR,ATITULOS})

FINA390.PRX - FA390FORNECE() -> CBENEF390 :=EXECBLOCK("F390BEN",.F.,.F.,CBENEF390)

FINA390.PRX - FA390INVERTE() -> LMARKTIT := EXECBLOCK("F390TIT",.F.,.F.)

FINA390.PRX - FA390INVERTE() -> NVALIMP := EXECBLOCK("F390VALOR",.F.,.F.,{NVALOR,ATITULOS})

FINA390.PRX - FA390NATUR() -> IF !( EXISTBLOCK("FA390NATUR") .AND. EXECBLOCK("FA390NATUR",.F.,.F.) )

FINA390.PRX - FA390NATUR() -> LRET := EXECBLOCK("F390NATU",.F.,.F.)

FINA390.PRX - FA390OK() -> LRET := EXECBLOCK("FA390TOK",.F.,.F.,ODLG)

FINA390.PRX - FA390RED() -> CHIST390:=PADR(EXECBLOCK("A390HIST",.F.,.F.),TAMSX3("EF_HIST")[1])

FINA390.PRX - FA390RED() -> EXECBLOCK("F390LSEF",.F.,.F.)

FINA390.PRX - FA390RED() -> EXECBLOCK("F390REDP",.F.,.F.)

FINA390.PRX - FA390TDOK() -> LRET := EXECBLOCK("F390FILUSU",.F.,.F.)

FINA390.PRX - FA390TIT() -> CFIL390 := EXECBLOCK("F390FIL",.F.,.F.)

FINA390.PRX - FA390TIT() -> CHIST390 :=PADR(EXECBLOCK("A390HIST",.F.,.F.),TAMSX3("EF_HIST")[1])

FINA390.PRX - FA390TIT() -> DDATAEMISS := EXECBLOCK("F390GCHE",.F.,.F.)

FINA390.PRX - FA390TIT() -> EXECBLOCK("A390CHEQ",.F.,.F.)

FINA390.PRX - FA390TIT() -> EXECBLOCK("A390SEF",.F.,.F.)

FINA390.PRX - FA390TIT() -> EXECBLOCK("F390BROW",.F.,.F.)

FINA390.PRX - FA390TIT() -> NACRESCIMO := EXECBLOCK("A390ACR",.F.,.F.)

FINA390.PRX - FA390VER() -> EXECBLOCK("F390CBX2",.F.,.F.)

FINA390.PRX - FA390VER() -> EXECBLOCK("F390GRV",.F.,.F.)

FINA390.PRX - FINA390() -> MBROWSE( 6, 1,22,75,"SE2",,"E2_IMPCHEQ",,,, F390LEGENDA(),,,,,,,,IIF(EXISTBLOCK("F390BFIL"),EXECBLOCK("F390BFIL",.F.,.F.),NIL) )

FINA401.PRX - F401BASEIR() -> CQUERY := EXECBLOCK("F401QRY2",.F.,.F.,{CQUERY})

FINA401.PRX - F401BASEIR() -> EXECBLOCK("FA401CMP", .F.,.F.)

FINA401.PRX - F401CMES() -> CQUERY := EXECBLOCK("F401QRY4",.F.,.F.,{CQUERY})

FINA401.PRX - FA401PROCESSA() -> EXECBLOCK("F401DCMP", .F.,.F.)

FINA401.PRX - FA401PROCESSA() -> EXECBLOCK("FA401CMP", .F.,.F.)

FINA401.PRX - FA401PROCESSA() -> EXECBLOCK("FA401PROC",.F.,.F.)

FINA401.PRX - FA401PROCESSA() -> LGRVDIRF := EXECBLOCK("LF401GRV",.F.,.F.,{CALIASTRB})

FINA401.PRX - FA401PROCESSA() -> LVLDPAI:= EXECBLOCK("F401VLDPAI",.F.,.F.,{(CALIASTRB)->RECNOPAI})

FINA401.PRX - FA401SEMIMP() -> EXECBLOCK("FA401CMP", .F.,.F.)

FINA401.PRX - FA401SEMRET() -> CQUERY := EXECBLOCK("F401QRY3",.F.,.F.,{CQUERY})

FINA401.PRX - FA401SEMRET() -> LAREC:= EXECBLOCK("F401AREC",.F.,.F.,)

FINA401.PRX - FA401SQLCIMP() -> CQUERY := EXECBLOCK("FA401QRY",.F.,.F.,{CQUERY})

FINA401.PRX - FA401SQLSIMP() -> CQUERY := EXECBLOCK("F401QRY5",.F.,.F.,{CQUERY})

FINA401.PRX - FA401ZRINSS() -> CQUERY := EXECBLOCK("FA401SR4",.F.,.F.,{CQUERY})

FINA401.PRX - ISCODRESEXT() -> ACODREX := EXECBLOCK("F401REX",.F.,.F.,{ACODREX})

FINA402.PRX - FA402PROCESSA() -> CCCUSTO:= EXECBLOCK("F402CCUS",.F.,.F.,{CALIASTRBA})

FINA402.PRX - FA402PROCESSA() -> CQUERY += EXECBLOCK("F402INS",.F.,.F.)

FINA402.PRX - FA402PROCESSA() -> EXECBLOCK("F402SRA",.F.,.F.,{.F.,CALIASTRBA})

FINA402.PRX - FA402PROCESSA() -> EXECBLOCK("F402SRA",.F.,.F.,{.T.,CALIASTRBA})

FINA402.PRX - FA402PROCESSA() -> EXECBLOCK("F402SRC",.F.,.F.,6)

FINA402.PRX - FA402PROCESSA() -> EXECBLOCK("F402SRC",.F.,.F.,7)

FINA402.PRX - FA402PROCESSA() -> EXECBLOCK("F402SRC",.F.,.F.,8)

FINA402.PRX - FA402PROCESSA() -> EXECBLOCK("F402SRC",.F.,.F.,NI)

FINA402.PRX - FA402PROCESSA() -> EXECBLOCK("F402SRC",.F.,.F.,NI+3)

FINA402.PRX - FA402PROCESSA() -> LGRAVASRC := EXECBLOCK("F402GRC",.F.,.F.)

FINA402A.PRX - FA402APROC() -> CNEXTPGTO := EXECBLOCK("F402SEMA",.F.,.F., {CNEXTPGTO, NRECNOSE2})

FINA402A.PRX - FA402APROC() -> CQUERY += EXECBLOCK("F402INS",.F.,.F.)

FINA402A.PRX - FA402APROC() -> EXECBLOCK("F402GRSRC",.F.,.F.)

FINA402A.PRX - FA402APROC() -> EXECBLOCK("F402SRA",.F.,.F.,{.F.})

FINA402A.PRX - FA402APROC() -> EXECBLOCK("F402SRA",.F.,.F.,{.T.})

FINA402A.PRX - FA402APROC() -> LGRAVARGB := EXECBLOCK("F402GRC",.F.,.F.)

FINA403.PRX - FA403PROCESSA() -> CQUERY := EXECBLOCK("FA401QRY",.F.,.F.,{CQUERY})

FINA403.PRX - FA403PROCESSA() -> EXECBLOCK("F401DCMP", .F.,.F.)

FINA403.PRX - FA403PROCESSA() -> EXECBLOCK("FA401CMP", .F.,.F.)

FINA403.PRX - FA403PROCESSA() -> EXECBLOCK("FA401PROC",.F.,.F.)

FINA403.PRX - FA403PROCESSA() -> LGRVDIRF := EXECBLOCK("LF401GRV",.F.,.F.)

FINA403.PRX - FA403SEMIMP() -> EXECBLOCK("FA401CMP", .F.,.F.)

FINA410.PRX - FA410PROCESSA() -> LRET := EXECBLOCK("FIN410FT",.F.,.F.,{MV_PAR01,"2"})

FINA410.PRX - FA410PROCESSA() -> LRET := EXECBLOCK("FIN410FT",.F.,.F.,{MV_PAR01,"3"})

FINA410.PRX - FA410PROCESSA() -> LRET := EXECBLOCK("FIN410FT",.F.,.F.,{MV_PAR01,"4"})

FINA415.PRW - F415PROC() -> LBAIXA := EXECBLOCK("F415BXPAG",.F.,.F.)

FINA420.PRX - F420IDCNAB() -> CIDCNAB := EXECBLOCK("F420ICNB",.F.,.F.,{CIDCNAB})

FINA420.PRX - FA420ABRE() -> CARQSAIDA := EXECBLOCK("FA420NAR",.F.,.F.,CARQSAIDA)

FINA420.PRX - FA420ABRE() -> LFA420CRI := EXECBLOCK("FA420CRI",.F.,.F.)

FINA420.PRX - FA420GER() -> CFILTRO := EXECBLOCK("F420FIL",.F.,.F.)

FINA420.PRX - FA420GER() -> EXECBLOCK("F420CRP",.F.,.F.)

FINA420.PRX - FA420GER() -> EXECBLOCK("F420FILIAL",.F.,.F.,{CFILANT})

FINA420.PRX - FA420GER() -> EXECBLOCK("F420PORT",.F.,.F.,{CBANCO,CAGENCIA,CCONTA})

FINA420.PRX - FA420GER() -> EXECBLOCK("FIN420_1",.F.,.F.)

FINA420.PRX - FA420GER() -> LBORBLOCK := EXECBLOCK("F420BLKBOR", .F., .F.)

FINA420.PRX - FA420GER() -> NSOMAACRES += EXECBLOCK("F420SUMA",.F.,.F.)

FINA420.PRX - FA420GER() -> NSOMAACRES -= EXECBLOCK("F420SUMA",.F.,.F.)

FINA420.PRX - FA420GER() -> NSOMADECRE += EXECBLOCK("F420SUMD",.F.,.F.)

FINA420.PRX - FA420GER() -> NSOMADECRE -= EXECBLOCK("F420SUMD",.F.,.F.)

FINA420.PRX - FA420GER() -> NSOMAVALOR  -= EXECBLOCK("F420SOMA",.F.,.F.)

FINA420.PRX - FA420GER() -> NSOMAVALOR += EXECBLOCK("F420SOMA",.F.,.F.)

FINA420.PRX - FA420GER() -> NSOMAVALOR -= EXECBLOCK("F420SOMA",.F.,.F.)

FINA420.PRX - FA420GER() -> NSOMAVLLOTE += EXECBLOCK("F420SOMA",.F.,.F.)

FINA420.PRX - FA420GER() -> NSOMAVLLOTE -= EXECBLOCK("F420SOMA",.F.,.F.)

FINA420.PRX - FA420GRAVA() -> EXECBLOCK("F420IDBP",.F.,.F.)

FINA420.PRX - FA420GRAVA() -> NRETORNO := EXECBLOCK("F420CHK",.F.,.F.)

FINA430.PRX - CHK430FILE() -> RETURN EXECBLOCK("F430CHK",.F.,.F.)

FINA430.PRX - FA430GER() -> CCGC := EXECBLOCK( "FA430FIG", .F., .F., { CCGC, CCODFORN,(CALIASTMP)->E2_PREFIXO,CNUMTIT,(CALIASTMP)->E2_PARCELA})

FINA430.PRX - FA430GER() -> EXECBLOCK( "F430GRAFIL", .F., .F., SM0->M0_CODFIL)

FINA430.PRX - FA430GER() -> EXECBLOCK("F430BXA",.F.,.F.)

FINA430.PRX - FA430GER() -> EXECBLOCK("F430COMP",.F.,.F.)

FINA430.PRX - FA430GER() -> EXECBLOCK("F430REJ",.F.,.F.)

FINA430.PRX - FA430GER() -> EXECBLOCK("F430VAR", .F., .F., {AVALORES})

FINA430.PRX - FA430GER() -> EXECBLOCK("FA430FIL", .F., .F., {XBUFFER})

FINA430.PRX - FA430GER() -> EXECBLOCK("FA430LRM",.F.,.F.,{XBUFFER})

FINA430.PRX - FA430GER() -> EXECBLOCK("FA430OCO", .F., .F., {AVALORES})

FINA430.PRX - FA430GER() -> EXECBLOCK("FA430REN",.F.,.F.)

FINA430.PRX - FA430GER() -> IF LFA430PA .AND. !(EXECBLOCK("FA430PA", .F., .F., CESPECIE))

FINA430.PRX - FA430GER() -> IF LFA430PA .AND. !(EXECBLOCK("FA430PA",.F.,.F.,CESPECIE))

FINA430.PRX - FA430GER() -> LALTPORT := EXECBLOCK("F430PORT",.F.,.F.)

FINA430.PRX - FA430GER() -> LPOSICTIT := EXECBLOCK("FA430SE2", .F., .F., {AVALORES})

FINA430.PRX - FA430GER() -> LTROCALP:= EXECBLOCK("FA430LP",.F.,.F.)

FINA430.PRX - FA430GER() -> NTXMOEDA := EXECBLOCK("F430TXBX", .F., .F., ATITULO)

FINA440.PRX - FA440CALCB() -> ABASES := EXECBLOCK("F440ABAS",.F.,.F.,ABASES)

FINA440.PRX - FA440CALCB() -> ARETBASES := EXECBLOCK("F440CBASE",.F.,.F.,{ABASES})

FINA440.PRX - FA440CALCB() -> ARETF440FALI := EXECBLOCK("F440FAL",.F.,.F.,{ABASES,LFATURA,LLIQUID})

FINA440.PRX - FA440CALCB() -> EXECBLOCK("MSE3440",.F.,.F.,{NDESCONT,NJUROS,CORIGEM})

FINA440.PRX - FA440CALCB() -> IF LFA440VLD .AND. ! EXECBLOCK( "FA440VLD", .F., .F., 2 )

FINA440.PRX - FA440CALCB() -> LCOMVDBLQ := EXECBLOCK("F440CVB",.F.,.F.)

FINA440.PRX - FA440CALCB() -> LPROCESS := EXECBLOCK("F440LIQ",.F.,.F.)

FINA440.PRX - FA440CALCE() -> ABASES := EXECBLOCK("F440BASE",.F.,.F.,ABASES)

FINA440.PRX - FA440CALCE() -> EXECBLOCK( "F440COM", .F., .F. )

FINA440.PRX - FA440CALCE() -> EXECBLOCK("MSE3440",.F.,.F.)

FINA440.PRX - FA440CALCE() -> IF LFA440VLD .AND. ! EXECBLOCK( "FA440VLD", .F., .F., 1 )

FINA440.PRX - FA440CALCE() -> LCOMVDBLQ := EXECBLOCK("F440CVB",.F.,.F.)

FINA440.PRX - FA440CALCE() -> LRET := EXECBLOCK("F440VEND",.F.,.F.,{ABASES[NCNTFOR,1],SE1->E1_NUM})

FINA440.PRX - FA440COMIS() -> NPERCOMIS := EXECBLOCK("FIN440PE",.F.,.F.,{ASD2VEND[NCNTFOR][1]})

FINA440.PRX - FA440DELEB() -> EXECBLOCK("F440DELB",.F.,.F., AVENDEDOR[NCNTFOR2])

FINA440.PRX - FA440DELEE() -> EXECBLOCK("F440DEL",.F.,.F., AVENDEDOR[NCNTFOR])

FINA450.PRX - F450TUDOK() -> LRET := EXECBLOCK("F450VLDCRP",.F.,.F.)

FINA450.PRX - FA450CAN() -> EXECBLOCK("F450SE1C",.F.,.F.)

FINA450.PRX - FA450CAN() -> EXECBLOCK("F450SE2C",.F.,.F.)

FINA450.PRX - FA450CAN() -> NOPCT := EXECBLOCK("F450CAES",.F.,.F.,{CCOMPCAN,NOPCT})

FINA450.PRX - FA450CHEC1() -> CSTRING += EXECBLOCK("F450FIL",.F.,.F.)

FINA450.PRX - FA450CHEC1() -> CSTRING += EXECBLOCK("F450OWN",.F.,.F.)

FINA450.PRX - FA450CHEC2() -> CSTRING += EXECBLOCK("F450FIL1",.F.,.F.)

FINA450.PRX - FA450CHEC2() -> CSTRING += EXECBLOCK("F450OWN1",.F.,.F.)

FINA450.PRX - FA450CMP() -> ABUT450:=EXECBLOCK("LFA450BU",.F.,.F.,{ABUT450})

FINA450.PRX - FA450CMP() -> EXECBLOCK("F450SE5",.F.,.F.,ASE5RECS)

FINA450.PRX - FA450CMP() -> NOPCA  := EXECBLOCK( "F450VALCON", .F., .F. )

FINA450.PRX - FA450GERARQ() -> CCHAVE := EXECBLOCK( "F450ORDEM", .F., .F., { CCHAVE } )

FINA450.PRX - FA450INVERTE() -> LCOMPENSA := EXECBLOCK("F450CONF",.F.,.F.,{CTIPO})

FINA450.PRX - FA450MOTBX() -> CFILE := EXECBLOCK("FILEMOT",.F.,.F.,{CFILE})

FINA450.PRX - FA450OK() -> LRET := EXECBLOCK("F450VALID",.F.,.F.)

FINA450.PRX - FA450REPL() -> EXECBLOCK("F450GRAVA",.F.,.F.,{"SE1"})

FINA450.PRX - FA450REPL() -> EXECBLOCK("F450GRAVA",.F.,.F.,{"SE2"})

FINA450.PRX - MENUDEF() -> AROTINA := EXECBLOCK("FA450BUT",.F.,.F.,{AROTINA})

FINA460.PRX - A460CHECF() -> CRET += EXECBLOCK("FA460FIL",.F.,.F.)

FINA460.PRX - F460BUSCSE1() -> EXECBLOCK("FA460OUT",.F.,.F.)

FINA460.PRX - F460CMC7() -> OMODELFO2  := EXECBLOCK("FA460CMC7", .F., .F., {OMODELFO2} )

FINA460.PRX - F460CMC7() -> OMODELFO2 := EXECBLOCK("FA460CMC7", .F., .F., {OMODELFO2} )

FINA460.PRX - F460CMC7TC() -> ACMC7TC := EXECBLOCK("F460CMTC",.F.,.F.,CCMC7)

FINA460.PRX - F460SELTIT() -> EXECBLOCK("F460GRV",.F.,.F.)

FINA460.PRX - FA460ECAN() -> EXECBLOCK("F460E5", .F., .F.,{CDADOSSE5})

FINA460.PRX - FA460ECAN() -> EXECBLOCK("FIN460E1",.F.,.F.)

FINA460.PRX - FA460ECAN() -> LATUCLI := EXECBLOCK("F070TRAVA",.F.,.F.)

FINA460.PRX - FA460ECAN() -> NOPCT := EXECBLOCK("F460CANC" ,.F.,.F.,{NOPCT})

FINA460.PRX - FA460MOTBX() -> CFILE := EXECBLOCK("FILEMOT",.F.,.F.,{CFILE})

FINA460.PRX - FA460OK1() -> LRET := EXECBLOCK("F460OK1",.F.,.F.)

FINA460.PRX - MENUDEF() -> AROTINA := EXECBLOCK("FA460ROT",.F.,.F.,AROTINA)

FINA460A.PRW - F460ACOMMIT() -> ACOMPLEM :=EXECBLOCK("F460SE1",.F.,.F.,ACOMPLEM)

FINA460A.PRW - F460ACOMMIT() -> EXECBLOCK( "F460GRVSEF" )

FINA460A.PRW - F460ACOMMIT() -> EXECBLOCK("F460CTB",.F.,.F.)

FINA460A.PRW - F460ACOMMIT() -> EXECBLOCK("F460NCC",.F.,.F.,{NSE1REC})

FINA460A.PRW - F460ACOMMIT() -> EXECBLOCK("F460VAL",.F.,.F.,ACOMPLEM)

FINA460A.PRW - F460ACOMMIT() -> EXECBLOCK('SE5FI460',.F.,.F.)

FINA460A.PRW - F460ACOMMIT() -> LATUCLI := EXECBLOCK("F070TRAVA",.F.,.F.)

FINA460A.PRW - F460ACOMMIT() -> LGERANCC := EXECBLOCK("F460GERNCC",.F.,.F.)

FINA460A.PRW - F460AINCL() -> LRET := EXECBLOCK("F460STI",.F.,.F.,{CALIASTMP,NOPCX,ACPOBRO})

FINA460A.PRW - MENUDEF() -> AROTAUX := EXECBLOCK("F460MNU",.F.,.F.,{AROTINA})

FINA460LOAD.PRW - F460MRKNEW() -> EXECBLOCK("F460PGE",.F.,.F.,{OSUBFO0,OSUBFO1,OSUBFO2})

FINA460LOAD.PRW - F460NUMLIQ() -> CLIQUID := EXECBLOCK("F460NUM",.F.,.F.,{CLIQUID})

FINA460LOAD.PRW - F460TITGER() -> EXECBLOCK("F460PGE",.F.,.F.,{OMODELFO0,OMODELFO1,OMODELFO2})

FINA460LOAD.PRW - F460TITGER() -> NDESCON := EXECBLOCK("F460DES",.F.,.F.)

FINA460LOAD.PRW - FA460LOAD() -> CNLIQUID := EXECBLOCK("F460NUM",.F.,.F.,{CNLIQUID})

FINA460LOAD.PRW - FA460REPL() -> CCHAVE:= EXECBLOCK("FA460LD",.F.,.F.,{"SE1->E1_FILIAL+SE1->E1_PREFIXO+SE1->E1_NUM+SE1->E1_PARCELA+SE1->E1_TIPO"})

FINA460LOAD.PRW - FA460REPL() -> NDESCON := EXECBLOCK("F460DES",.F.,.F.)

FINA460LOAD.PRW - FA460REPL() -> NJUROS := EXECBLOCK("F460JUR",.F.,.F.)

FINA471.PRW - FA471GER() -> ACONTA:= EXECBLOCK("FA471CTA", .F., .F., {CBANCO, CAGENCIA, CCONTA} )

FINA471.PRW - FA471GER() -> CQUERY += EXECBLOCK( "F471QRY",.F.,.F.)

FINA471.PRW - FA471GER() -> EXECBLOCK("F471ADDM",.F.,.F.)

FINA471.PRW - FA471GER() -> LATUDTDISP := EXECBLOCK("F471ATUDT",.F.,.F.)

FINA471.PRW - FA471GER() -> LGRAVA := EXECBLOCK("F471GRV",.F.,.F.)

FINA471.PRW - FA471GER() -> LGRAVA := EXECBLOCK("F471GRV",.F.,.F.,XBUFFER)

FINA471.PRW - FA471GER() -> NTIPODAT := EXECBLOCK("F471DAT",.F.,.F.)

FINA471.PRW - FA471GRVEF() -> EXECBLOCK("F471GRVEF",.F.,.F.,{"NEWSE5"})

FINA471.PRW - FA471NATUR() -> ACONTABIL := EXECBLOCK("FA471NAT",.F.,.F.,CNATUREZA)

FINA473.PRX - F473CONCIL() -> EXECBLOCK("FA473012",.F.,.F.,NOPC)

FINA473.PRX - F473IMPEXT() -> ACONTA:= EXECBLOCK("FA473CTA", .F., .F., {CBANCO, CAGENCIA, CCONTA} )

FINA473A.PRX - FA473CANEFET() -> EXECBLOCK( "F473CAGR", .F., .F. ,NRECSE5)

FINA473A.PRX - FA473EFET() -> EXECBLOCK( "F473EFE", .F., .F. ,{ODLG4} )

FINA473A.PRX - FA473EFET() -> LEFEOK := EXECBLOCK( "F473EFOK", .F., .F.,AEFEOK )

FINA473A.PRX - FA473GRVEF() -> EXECBLOCK( "F473EFGR", .F., .F. ,NRECNO)

FINA473A.PRX - FA473MARCA() -> EXECBLOCK("FA473003",.F.,.F.,{@OMODELDET})

FINA473A.PRX - FA473MARCA() -> LF473CAOK := EXECBLOCK("F473CAOK", .F., .F., NRECSE5)

FINA473A.PRX - FI473CSE5() -> ACPOSE5 := EXECBLOCK("FA473013",.F.,.F.,{ACPOSE5} )

FINA473A.PRX - FI473CSE5() -> CQUERY := EXECBLOCK("FA473002",.F.,.F.,CQUERY )

FINA473A.PRX - FI473CSIG() -> CQUERY := EXECBLOCK("FA473004",.F.,.F.,CQUERY)

FINA473A.PRX - FI473GRV() -> EXECBLOCK("FA473006",.F.,.F.)

FINA473A.PRX - FI473GRV() -> LATUDTDISP := EXECBLOCK("F473ATUDT",.F.,.F.)

FINA473A.PRX - FI473GRV() -> LGRVSIG := EXECBLOCK("FA473011",.F.,.F.,{CSEQCON,NRECSE5,LGRVSIG,CSTATUS,NLINHA})

FINA473A.PRX - FI473LITEM() -> AITCONC:= EXECBLOCK("FA473001",.F.,.F.,{AITCONC,ACPOSIG,CBANCO,CAGENCIA,CCONTA,DDATADE,DDATAATE})

FINA473A.PRX - FI473POS() -> LRET := EXECBLOCK("FA473005",.F.,.F.)

FINA473A.PRX - MODELDEF() -> ARETMOD:= EXECBLOCK("FA473MOD",.F.,.F.)

FINA473A.PRX - VIEWDEF() -> ARETVIEW := EXECBLOCK("F473VIEW",.F.,.F.,{__ARETE5E1,MVC_VIEW_ORDEM} )

FINA550.PRW - () -> LREGMOVBCO := EXECBLOCK("F55CMBCO",.F.,.F.)

FINA550.PRW - FA550ALTERA() -> AUSBUTTONS := EXECBLOCK( "FT550BUT", .F., .F. )

FINA550.PRW - FA550ALTERA() -> LRET := EXECBLOCK("F550ALTE",.F.,.F.)

FINA550.PRW - FA550BAIXA() -> LRET:= EXECBLOCK("F550FECH",.F.,.F.)

FINA550.PRW - FA550BCREP() -> DEFINE SBUTTON OBTNIMP FROM 180,130 PIXEL TYPE 6 ACTION (IIF(EXISTBLOCK("FA550CORP"),EXECBLOCK("FA550CORP",.F.,.F.,{NREGSEU}),IIF(!LAUTOMATO, MSGALERT(STR0064,STR0067),.T.))) ENABLE OF ODLGBCO

FINA550.PRW - FA550BCREP() -> IIF( LFA550VLDRP, EXECBLOCK( "FA550VLDRP", .F., .F., { NREGSEU, NVLRREP } ), .T. ),;

FINA550.PRW - FA550BCREP() -> LMOVBCO := EXECBLOCK("FA550CKBCO",.F.,.F.)

FINA550.PRW - FA550BCREP() -> ODLGAUX := EXECBLOCK( "FA550DLG", .F., .F., { ODLGBCO } )

FINA550.PRW - FA550CHREP() -> EXECBLOCK("F550ALDT",.F.,.F.)

FINA550.PRW - FA550COMABE() -> EXECBLOCK("F550VCBC",.F.,.F.)

FINA550.PRW - FA550DELETA() -> AUSBUTTONS := EXECBLOCK( "FT550BUT", .F., .F. )

FINA550.PRW - FA550DELETA() -> LRET := EXECBLOCK("F550AEXC",.F.,.F.)

FINA550.PRW - FA550DELETA() -> LRET := EXECBLOCK("F550EXCL",.F.,.F.)

FINA550.PRW - FA550FECHA() -> LREGMOVBCO := EXECBLOCK("F55CMBCO",.F.,.F.)

FINA550.PRW - FA550FECHA() -> LRESP := EXECBLOCK("F560FCAD",.F.,.F.)

FINA550.PRW - FA550INCLUI() -> AUSBUTTONS := EXECBLOCK( "FT550BUT", .F., .F. )

FINA550.PRW - FA550INCLUI() -> LRET := EXECBLOCK("F550INCL",.F.,.F.)

FINA550.PRW - FA550MOV() -> EXECBLOCK("F550MOV",.F.,.F.)

FINA550.PRW - FA550MVBC2() -> EXECBLOCK("F550BCO",.F.,.F.)

FINA550.PRW - FA550MVBCO() -> EXECBLOCK("F550BCO",.F.,.F.)

FINA550.PRW - FA550REP20*/() -> EXECBLOCK("F550BAIX",.F.,.F.)

FINA550.PRW - FA550REP20*/() -> EXECBLOCK("FA550CORP",.F.,.F.,{NRSEU})

FINA550.PRW - FA550REP20*/() -> EXECBLOCK("FA550REP",.F.,.F.)

FINA550.PRW - FA550REP20*/() -> LVERSALDO := EXECBLOCK("F550SBCO",.F.,.F.,{SET->ET_CODIGO,SET->ET_BANCO,SET->ET_AGEBCO,SET->ET_CTABCO})

FINA550.PRW - FA550REP20*/() -> NVLRREP := EXECBLOCK("F550VREP",.F.,.F.,{NVLRREP,NSALDOANT})

FINA550.PRW - FA550REPOR*/() -> EXECBLOCK("FA550REP",.F.,.F.)

FINA550.PRW - FA550REPOR*/() -> LSAI := EXECBLOCK("F550VRPS",.F.,.F.,{NVLRREP})

FINA550.PRW - FA550REPOR*/() -> LVERSALDO := EXECBLOCK("F550SBCO",.F.,.F.,{SET->ET_CODIGO,SET->ET_BANCO,SET->ET_AGEBCO,SET->ET_CTABCO})

FINA550.PRW - FA550REPOR*/() -> NVLRREP := EXECBLOCK("F550VREP",.F.,.F.,{NVLRREP,NSALDOANT})

FINA550.PRW - FA550REPOS() -> LRET := EXECBLOCK("F550REPOS",.F.,.F.,{CCAIXA})

FINA550.PRW - FA550VAL() -> LVERSALDO := EXECBLOCK("F550SBCO",.F.,.F.,{SET->ET_CODIGO,SET->ET_BANCO,SET->ET_AGEBCO,SET->ET_CTABCO})

FINA550.PRW - FA550VAL() -> LVLDUSER := EXECBLOCK("F550VLD",.F.,.F.,{ACMPVLDU})

FINA550.PRW - MENUDEF() -> AROTINA := EXECBLOCK("FA550BUT",.F.,.F.,{AROTINA})

FINA560.PRW - F560VERPE() -> LRET:= EXECBLOCK("F560VMOV",.F.,.F.)

FINA560.PRW - FA560ADIAN*/() -> ACMPPE := EXECBLOCK("FT560CPC",.F.,.F.)

FINA560.PRW - FA560ADIAN*/() -> CCAMPOS += EXECBLOCK("F560CPOS",.F.,.F.,CCAMPOS)

FINA560.PRW - FA560ADIAN*/() -> EXECBLOCK("F560ADIA",.F.,.F.)

FINA560.PRW - FA560ADIAN*/() -> EXECBLOCK("FA550ADF",.F.,.F.,{NOPCA==1})

FINA560.PRW - FA560ADIAN*/() -> LACESSO := EXECBLOCK("F560ACESSO",.F.,.F.)

FINA560.PRW - FA560ADIAN*/() -> LAPROVA := EXECBLOCK("F560APROV",.F.,.F.)

FINA560.PRW - FA560DELETA() -> EXECBLOCK("F560DEL1",.F.,.F.)

FINA560.PRW - FA560DELETA() -> EXECBLOCK("F560DEL2",.F.,.F.)

FINA560.PRW - FA560DELETA() -> EXECBLOCK("F560DEL3",.F.,.F.)

FINA560.PRW - FA560DELETA() -> EXECBLOCK("F560DEL4",.F.,.F.)

FINA560.PRW - FA560DELETA() -> LBLOCK:= EXECBLOCK("F560BLOCK",.F.,.F.)

FINA560.PRW - FA560DELETA() -> LPERMISS := EXECBLOCK("F560DEL",.F.,.F.)

FINA560.PRW - FA560FCADI() -> EXECBLOCK("F560FCADI",.F.,.F.,{CNROADIA, NSLDSOBRA, LESTORNO})

FINA560.PRW - FA560GRAVA() -> EXECBLOCK("F560DEL5",.F.,.F.,{})

FINA560.PRW - FA560GRAVA() -> EXECBLOCK("F560GRV2",.F.,.F.,{})

FINA560.PRW - FA560GRAVA() -> EXECBLOCK("F560PCCX",.F.,.F.,{})

FINA560.PRW - FA560GRAVA() -> LACESSO := EXECBLOCK("F560ACESSO",.F.,.F.)

FINA560.PRW - FA560INCLUI() -> EXECBLOCK("F560RECB",.F.,.F.)

FINA560.PRW - FA560INCLUI() -> EXECBLOCK("FA550INF",.F.,.F.,)

FINA560.PRW - FA560INCLUI() -> EXECBLOCK("FA550INI",.F.,.F.,)

FINA560.PRW - FA560INCLUI() -> LRESP := EXECBLOCK("F560IMRC",.F.,.F.)

FINA560.PRW - FA560LANC() -> EXECBLOCK("F560GRV",.F.,.F.)

FINA560.PRW - FA560LANC() -> LEXECMSG := IF(LFA550MSG,EXECBLOCK("FA550MSG",.F.,.F.),.T.) .AND. !LF560AUTO

FINA560.PRW - FA560LANC() -> LF560REP := EXECBLOCK("F560REP",.F.,.F.)

FINA560.PRW - FA560LINOK() -> LRET := EXECBLOCK("F560LOK",.F.,.F.)

FINA560.PRW - FA560TUDOK() -> LRET := EXECBLOCK("F560TOK",.F.,.F.)

FINA560.PRW - FA560VALOR() -> LRETVALOR:=EXECBLOCK("F560VALOR",.F.,.F.)

FINA560.PRW - FB560LANC() -> LEXECMSG := IF(LFA550MSG,EXECBLOCK("FA550MSG",.F.,.F.),.T.)

FINA560.PRW - FB560LANC() -> LF560REP := EXECBLOCK("F560REP",.F.,.F.)

FINA560.PRW - FB560VALOR() -> LRETVALOR := EXECBLOCK("F560VALOR",.F.,.F.)

FINA560.PRW - FINA560() -> CFILSEU := EXECBLOCK("FT560FIL",.F.,.F.)

FINA560.PRW - MENUDEF() -> AROTINA := EXECBLOCK("FA560BRW",.F.,.F.,{AROTINA})

FINA565.PRX - A565COND() -> EXECBLOCK("A565PARC", .F., .F. )

FINA565.PRX - A565GRAVA() -> ACOMPLEM :=EXECBLOCK("F565SE2",.F.,.F.,ACOMPLEM)

FINA565.PRX - A565GRAVA() -> EXECBLOCK("F565CTB",.F.,.F.)

FINA565.PRX - A565GRAVA() -> EXECBLOCK("F565NDF", .F., .F., {TRB->E2_REC})

FINA565.PRX - A565GRAVA() -> EXECBLOCK("F565SE5",.F.,.F.,{ARECSE5})

FINA565.PRX - A565GRAVA() -> EXECBLOCK("F565TPLIQ",.F.,.F.)

FINA565.PRX - A565GRAVA() -> EXECBLOCK("F565VAL",.F.,.F.,ACOMPLEM)

FINA565.PRX - A565GRAVA() -> EXECBLOCK('SE5FI565',.F.,.F.)

FINA565.PRX - A565GRAVA() -> LGERANDF := EXECBLOCK("F565GERNDF",.F.,.F.)

FINA565.PRX - A565LIQUID() -> CLIQUID := EXECBLOCK("F565NUM",.F.,.F.)

FINA565.PRX - A565LIQUID() -> EXECBLOCK("A565COL", .F., .F. )

FINA565.PRX - A565LIQUID() -> EXECBLOCK("F565CAN",.F.,.F.)

FINA565.PRX - A565LIQUID() -> EXECBLOCK("F565CON",.F.,.F.)

FINA565.PRX - A565LIQUID() -> EXECBLOCK("F565GRV",.F.,.F.)

FINA565.PRX - A565LIQUID() -> EXECBLOCK("F565SAID",.F.,.F.)

FINA565.PRX - A565LIQUID() -> EXECBLOCK("FA565OUT",.F.,.F.)

FINA565.PRX - A565LIQUID() -> NTXLIQ := EXECBLOCK("A565TXL", .F., .F. )

FINA565.PRX - A565OK() -> LRETPE := EXECBLOCK("A565VALLIN",.F.,.F.)

FINA565.PRX - A565OK() -> LRETPE := EXECBLOCK("FA565LOK",.F.,.F.)

FINA565.PRX - A565SELSE2() -> CQUERY += EXECBLOCK("FA565FIL",.F.,.F.)

FINA565.PRX - A565SELSE2() -> CQUERY := EXECBLOCK("FA565OWN",.F.,.F.)

FINA565.PRX - A565TUDOOK() -> LRET := EXECBLOCK("F565TOK",.F.,.F.)

FINA565.PRX - A565TUDOOK() -> LRETPE := EXECBLOCK("FA565LOK",.F.,.F.)

FINA565.PRX - FA565CAN() -> EXECBLOCK("F565E5", .F., .F.)

FINA565.PRX - FA565CAN() -> EXECBLOCK("FIN565E2",.F.,.F.)

FINA565.PRX - FA565CAN() -> NOPCT := EXECBLOCK("F565CANC" ,.F.,.F.)

FINA565.PRX - FA565MOTBX() -> CFILE := EXECBLOCK("FILEMOT",.F.,.F.,{CFILE})

FINA565.PRX - FA565OK1() -> LRET := EXECBLOCK("F565OK1",.F.,.F.)

FINA565.PRX - FA565REPL() -> EXECBLOCK("FA565GRVTRB", .F., .F.)

FINA565.PRX - FA565REPL() -> NDESCON := EXECBLOCK("F565DESC",.F.,.F.)

FINA565.PRX - FA565REPL() -> NJUROS := EXECBLOCK("F565JUR",.F.,.F.)

FINA565.PRX - MENUDEF() -> AROTINA := EXECBLOCK("FA565ROT",.F.,.F.,AROTINA)

FINA570.PRW - FA570COMP() -> NTOTCOMP := EXECBLOCK("F570CAL",.F.,.F.,{NTOTCOMP})

FINA570.PRW - FA570COMP() -> NTOTCOMP := EXECBLOCK("FA570SCX",.F.,.F.,{NTOTCOMP})

FINA570.PRW - FA570COMP() -> NTOTREP := EXECBLOCK( "F570REC", .F., .F., { (CALIASTMP)->EU_VALOR, SET->ET_SALANT, SET->ET_VALOR } )

FINA580.PRX - FA580AUT() -> ACAMPOS := EXECBLOCK("F580MNBR",.F.,.F.,ACAMPOS)

FINA580.PRX - FA580AUT() -> CCHAVE:= EXECBLOCK( "F580CHAV",.F.,.F.,{CCHAVE})

FINA580.PRX - FA580AUT() -> NVALOR := EXECBLOCK("F580AUTVL", .F.,.F.)

FINA580.PRX - FA580CAN() -> LGRVMOV := EXECBLOCK("F580CAN",.F.,.F.)

FINA580.PRX - FA580CAN() -> LRET := EXECBLOCK( "F580VLDPA",.F.,.F.)

FINA580.PRX - FA580CHECF() -> CFILTRO:= EXECBLOCK( "F580FAUT",.F.,.F.,{CFILTRO})

FINA580.PRX - FA580LEG() -> ATMP := ACLONE(EXECBLOCK( "F580EDLEG", .F., .F. ))

FINA580.PRX - FA580LEG() -> ATMP := ACLONE(EXECBLOCK( "F580LEGEN", .F., .F. ))

FINA580.PRX - FA580MAN() -> EXECBLOCK("FINA580",.F.,.F.,{.T.})

FINA580.PRX - FA580MAN() -> EXECBLOCK("FINA580A",.F.,.F.)

FINA580.PRX - FA580MAN() -> LRET := EXECBLOCK("FA580LIB",.F.,.F.)

FINA580.PRX - MENUDEF() -> AROTINA := EXECBLOCK( "F580ADDB",.F.,.F.,{AROTINA})

FINA580.PRX - PROCESSREG() -> EXECBLOCK("FINA580",.F.,.F.,{.T.})

FINA580.PRX - PROCESSREG() -> EXECBLOCK("FINA580A",.F.,.F.)

FINA580.PRX - PROCESSREG() -> LLIBER := EXECBLOCK("F580LBA",.F.,.F.)

FINA590.PRX - F590IMPOST() -> LCONTABIL := EXECBLOCK("F590CTB",.F.,.F.)

FINA590.PRX - FA590CANC() -> EXECBLOCK("F590CAN",.F.,.F.,{"P",CNUMBOR})

FINA590.PRX - FA590CANC() -> EXECBLOCK("F590CAN",.F.,.F.,{"R",CNUMBOR})

FINA590.PRX - FA590CANC() -> IF LF590COK .AND. !(EXECBLOCK("F590COK",.F.,.F.,{"P",CNUMBOR}))

FINA590.PRX - FA590CANC() -> IF LF590COK .AND. !(EXECBLOCK("F590COK",.F.,.F.,{"R",CNUMBOR}))

FINA590.PRX - FA590INCLU() -> EXECBLOCK("F590INC", .F., .F., {"P", CNUMBOR})

FINA590.PRX - FA590INCLU() -> EXECBLOCK("F590INC",.F.,.F.,{"R",CNUMBOR})

FINA590.PRX - FA590INCLU() -> EXECBLOCK("F590INCTX", .F., .F., {"P", CNUMBOR})

FINA590.PRX - FA590INCLU() -> IF LF590IOK .AND. !(EXECBLOCK("F590IOK",.F.,.F.,{"P",CNUMBOR}))

FINA590.PRX - FA590INCLU() -> IF LF590IOK .AND. !(EXECBLOCK("F590IOK",.F.,.F.,{"R",CNUMBOR}))

FINA590.PRX - FA590INCLU() -> IF LRET .AND. IF(L590INCPRV .AND. EXECBLOCK("F590INCPRV",.F.,.F.,{"P",CNUMBOR}),.F.,SE2->E2_TIPO $ MVPROVIS)

FINA590.PRX - FA590INCLU() -> LOCAL LPERMITEPA := IF(EXISTBLOCK("FA240PA"), EXECBLOCK("FA240PA",.F.,.F.), .F.)

FINA590.PRX - FA590NUMC() -> LRETORNA := EXECBLOCK( "FA590BOR", .F., .F., { CNUMBOR, CCART } )

FINA590.PRX - FIN590PAG() -> EXECBLOCK("F590PAG",.F.,.F.)

FINA590.PRX - FIN590REC() -> EXECBLOCK("F590REC",.F.,.F.)

FINA590.PRX - INCBORDIMP() -> EXECBLOCK("F590INC",.F.,.F.,{"R",CNUMBOR})

FINA590.PRX - INCBORDIMP() -> IF LF590IOK .AND. !(EXECBLOCK("F590IOK",.F.,.F.,{"R",CNUMBOR}))

FINA590.PRX - MENUDEF() -> AAUX := EXECBLOCK("FA590AROT",.F.,.F.,{AROTINA})

FINA621.PRW - FA621TOK() -> IF VALTYPE( LRET := EXECBLOCK("FA621TOK",.F.,.F.,{ACHECK,CFILDEB,CCLIDEB,CLOJADEB,LF621AUTO}) ) <> "L"

FINA621.PRW - MENUDEF() -> AROTINANEW := EXECBLOCK("FIN621MNU",.F.,.F.,AROTINA)

FINA630.PRW - FA630APV() -> CHIST:=EXECBLOCK("F630HIST",.F.,.F.)

FINA630.PRW - FA630EXC() -> LRET := EXECBLOCK("FA630EST",.F.,.F.)

FINA630.PRW - FA630REJ() -> LDTMOVFIN := EXECBLOCK( "FA630REJ", .F., .F. )

FINA631.PRW - FA631EXC() -> LRET := EXECBLOCK("FA631EST",.F.,.F.)

FINA631.PRW - FA631REJ() -> LDTMOVFIN := EXECBLOCK( "FA631REJ", .F., .F. )

FINA645.PRW - FA645ALTZ() -> CSITPDD:= EXECBLOCK("F645ALTS",.F.,.F.)

FINA645.PRW - FA645CLREV() -> CWHEREPE := EXECBLOCK("F645CLIF",.F.,.F.,{'2'})

FINA645.PRW - FA645LOADZ() -> AADD(AFILCPOS,IIF(__LF645JZ,EXECBLOCK('F645LDFJ',.F.,.F.,{CCAMPO,ATITULO}),CRIAVAR(CCAMPO)))

FINA645.PRW - FA645REV() -> EXECBLOCK("F645PERG",.F.,.F.,{"2"})

FINA645.PRW - FA645SIMU() -> EXECBLOCK("F645PERG",.F.,.F.,{"1"})

FINA645.PRW - FA645TICON() -> CQUERY +=  EXECBLOCK("F645QYABT",.F.,.F., CQUERY) + CRLF

FINA645.PRW - FA645TICON() -> CQUERY +=  EXECBLOCK("F645QYDT",.F.,.F., CQUERY) + CRLF

FINA645.PRW - FA645TICON() -> CWHEREPE := EXECBLOCK("F645TITF",.F.,.F.,{'1'})

FINA645.PRW - FA645TIREV() -> CWHEREPE := EXECBLOCK("F645TITF",.F.,.F.,{'2'})

FINA645.PRW - FA645TMPFWZ() -> AADD(AFILCPOS,IIF(__LF645WZ,EXECBLOCK('F645LDFW',.F.,.F.,{CCAMPO,ARATEIO}),CRIAVAR(CCAMPO)))

FINA655.PRW - FINA655JOB() -> EXECBLOCK("FA655ICC",.F.,.F.,AARRAYPE)

FINA661.PRW - F661PASSAG() -> IF EXECBLOCK( "FN661PASS", .F., .F., { OPASSAG[NX], CSESSAO, CAPROV, NTIPO } )

FINA665.PRW - F665INC() -> ARET := EXECBLOCK("FN665VLD",.F.,.F.,{OPEDIDOS})

FINA665.PRW - F665INC() -> EXECBLOCK("FN665COMPL",.F.,.F.,{OPEDIDOS})

FINA665.PRW - F665INC() -> LRET := EXECBLOCK("F665INC",.F.,.F.,{ NOPER })

FINA665.PRW - F665VINC() -> ARET := EXECBLOCK("F665PEVINC",.F.,.F.,{OPEDIDOS})

FINA665.PRW - FN665ASL() -> LRET := EXECBLOCK("F665ASL",.F.,.F.,{LRET})

FINA666.PRW - F666VLDVIEW() -> LRET := EXECBLOCK("F666VLDAP",.F.,.F.)

FINA666.PRW - F666VPARTI() -> LRET := EXECBLOCK( "F666VLDP" )

FINA666.PRW - FI666WF() -> AUSERS := EXECBLOCK("F666APFLU",.F.,.F.,{AUSERS})

FINA666.PRW - FI666WF() -> EXECBLOCK("WFFIN666",.F.,.F.,{CCHVFW3, CUSER, AUSERS})

FINA666.PRW - MENUDEF() -> AUSERMENU := EXECBLOCK('FA666MENU')

FINA667.PRW - F667APRADI() -> AAPRV := EXECBLOCK( "F667STRAPR", .F., .F., {AAPRV} )

FINA667.PRW - F667APRADI() -> LRET := EXECBLOCK("F667APROP",.F.,.F.)

FINA667.PRW - F667FILBROWSE () -> CFILTRO := EXECBLOCK("F667FILBRW",.F.,.F.,{CFILTRO})

FINA667.PRW - F667GERALIB() -> AFA677TIT := EXECBLOCK("F667TIT",.F.,.F.)

FINA667.PRW - FI667WF() -> EXECBLOCK("WFFIN667",.F.,.F.,{CVIAGEM, CPARTIC, CADIANT , CUSER, AUSERS})

FINA667A.PRW - F667AGRVMD() -> AAPRV := EXECBLOCK("F667STRAPR",.F.,.F.,{AAPRV})

FINA667A.PRW - FINA667LIB() -> CAPROV := EXECBLOCK("F667ALCAPR",.F.,.F.,{CPARTIC,CVIAGEM})

FINA677.PRW - F677AGRVMD() -> EXECBLOCK("WFFIN677",.F.,.F.,{CCHVFLF, CUSER, AUSERS})

FINA677.PRW - F677AVLMOD() -> LFA677UPR := EXECBLOCK("FA677UPR",.F.,.F.)

FINA677.PRW - F677CONFER() -> LRET := EXECBLOCK("F677VLDCF",.F.,.F.)

FINA677.PRW - F677FILBROWSE () -> CFILTRO := EXECBLOCK("F677FILBRW",.F.,.F.,{CFILTRO})

FINA677.PRW - F677GERAPR() -> AAPROV := EXECBLOCK("F677GERAPR",.F.,.F.)

FINA677.PRW - F677MSGMAIL() -> ARET := ACLONE(EXECBLOCK('F677MAIL',.F.,.F.,{NOPCAO,CASSUNTO,CMENSAGEM}))

FINA677.PRW - POLIDESP() -> NDSPLIMITE := EXECBLOCK('F677DSPLIM',.F.,.F.,{CALIASTRB})

FINA677APP.PRW - F667EXTERNO() -> ARET := EXECBLOCK("F677NFCOMP",.F.,.F.)

FINA677APP.PRW - FN677TCR() -> ACLIENTE := EXECBLOCK("FN677CLIP",.F.,.F.,{CCLIENTE,CLOJA,CCODPART})

FINA677APP.PRW - FN677TCR() -> EXECBLOCK('F677MDTIT',.F.,.F.,{NCURRENCY,'R',NTXMOEDA})

FINA693.PRW - FNA693GRID() -> ARET := EXECBLOCK("FA693GRD", .F., .F., {AFIELDS,ARET,OMODEL})

FINA693A.PRW - FN693PCLI() -> NVALMOED := EXECBLOCK("F693MOED", .F., .F., {(OAUXFLF:GETVALUE('FLF_TVLRE1') - OAUXFLF:GETVALUE('FLF_TDESC1'))})

FINA700.PRX - CREATERIGHTCOLUMN() -> AUSERREL := EXECBLOCK("FA700REL",.F.,.F.)

FINA700.PRX - FINLDSE1() -> CQUERY := EXECBLOCK("F700QRY1",.F.,.F.,{ CQUERY } )

FINA700.PRX - FINLDSE2() -> CQUERY := EXECBLOCK("F700QRY2",.F.,.F.,{ CQUERY } )

FINA701.PRX - INIT() -> ACOMBOS := EXECBLOCK("FIN701MR", .F., .F., {ACOMBO4, ACOMBO5})

FINA720.PRW - FI020UITE() -> ACABEC := EXECBLOCK("FI020CABEC", .F., .F., {ACABEC})

FINA720.PRW - FI020UITE() -> AITEM := EXECBLOCK("FI020ITENS", .F., .F., {AITEM})

FINA720.PRW - FI020UITE() -> EXECBLOCK("FI020POSNF", .F., .F., {ATITULOS} )

FINA720.PRW - FI720ESTNF() -> EXECBLOCK("SF2520E",.F.,.F.)

FINA740.PRW - FINA740() -> MBROWSE( 6, 1,22,75,"SE1",,,,,, FA040LEGENDA("SE1"),,,,,,,,IIF(EXISTBLOCK("F740FILB"),EXECBLOCK("F740FILB",.F.,.F.),NIL),,,,,{|OBRW|OBRW:SETMAINPROC("FINA740")})

FINA740.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("FA740BRW",.F.,.F.,{AROTINA})

FINA740.PRW - MENUDEF() -> AROTINANEW := EXECBLOCK("FI040ROT",.F.,.F.,AROT040)

FINA750.PRW - FINA750() -> CFILTROB := EXECBLOCK("F750FILB",.F.,.F.)

FINA750.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("FA750BRW",.F.,.F.,{AROTINA})

FINA750.PRW - MENUDEF() -> AROTINANEW := EXECBLOCK("F050ROT", .F., .F., AROT050)

FINA770.PRW - F770FILTIT() -> CRETORNO := EXECBLOCK('F770FILTIT',.F.,.F.)

FINA771.PRW - FINA771() -> EXECBLOCK("F771BRW",.F.,.F.,{OBROWSE})

FINA811.PRW - F811SENDMAIL() -> CMAILTO := EXECBLOCK('F811MAILTO',.F.,.F.,{APROCPE})

FINA811.PRW - GETQUERY() -> CQRYPE := EXECBLOCK('F811QRY',.F.,.F.)

FINA811.PRW - SETUP() -> ::CFIELDLIST += "," + EXECBLOCK("F811FL3",.F.,.F.)

FINA811.PRW - SETUP() -> ::CFIELDLIST += "," + EXECBLOCK("F811FL4",.F.,.F.)

FINA811.PRW - SETUP() -> ::CFIELDLIST += "," + EXECBLOCK("F811FL5",.F.,.F.)

FINA820.PRW - ARQTMP() -> AARETPE:= EXECBLOCK( "F820QRY",.F., .F., {CCOND, CCAMPOS, APARPE})

FINA820.PRW - GERAARQ() -> ATPREG:= EXECBLOCK('F820REG', .F., .F., { TRB100->REC, __ATPREG, LREGVALID } )

FINA820.PRW - GERAARQ() -> ATPREG:= EXECBLOCK('F820REG', .F., .F., { TRB100->REC, {}, LREGVALID} )

FINA840.PRW - A840PAGTOS() -> AVALORES:=EXECBLOCK("FA087VALBX",.F.,.F.,AVALORES)

FINA840.PRW - A840SUGERIR() -> ARETLINSE1 := EXECBLOCK("F087BTNSG",.F.,.F.,{ALINSE1,ALINMOED})

FINA840.PRW - A840VERPE() -> LRET := EXECBLOCK("FA087PG",.F.,.F.,{NMOEDA,NVALOR})

FINA840.PRW - FA840BAIXAOK() -> LRET:= EXECBLOCK("F087ABXOK",.F.,.F.)

FINA840.PRW - FA840SALVAR() -> EXECBLOCK("FA087BAIXA",.F.,.F.)

FINA840.PRW - FA840SALVAR() -> EXECBLOCK("FA087GRV",.F.,.F.)

FINA840.PRW - FA840SALVAR() -> EXECBLOCK("FA087INC",.F.,.F.)

FINA840.PRW - FA840SALVAR() -> EXECBLOCK("FA087SEL",.F.,.F.,{})

FINA840.PRW - FA840TUDOOK() -> LRET :=EXECBLOCK('A087TUDOK',.F.,.F.,NPANEL)

FINA840.PRW - FA840VLD() -> CCOBRADOR:= EXECBLOCK("F087ACOB",.F.,.F.)

FINA840.PRW - FIN840SE1() -> EXECBLOCK('F840SE1',.F.,.F.)

FINA840.PRW - FINTIPINT() -> CCOMBO:=EXECBLOCK("F840TPI",.F.,.F.,{CCOMBO})

FINA840.PRW - MONTATELA() -> NLASTPAN:=EXECBLOCK("TELACONMODII",.F.,.F.,{NLASTPAN})

FINA846.PRW - F846STRU() -> ACPOSNOUSR:=EXECBLOCK('F486CPOS',.F.,.F.,{ACPOSNO,NFOLDER})

FINA846.PRW - FINA846GRV() -> APE846DEL := EXECBLOCK("FIN846DEL", .F., .F., {FJT->FJT_RECIBO, FJT->FJT_SERIE, FJT->FJT_CANCEL, OMODEL})

FINA846.PRW - MENUDEF() -> ADD OPTION AROTINA TITLE STR0013 ACTION 'IIF(EXISTBLOCK("F486PRT"),EXECBLOCK("F486PRT",.F.,.F.),FINR087())' OPERATION 8 ACCESS 0

FINA846.PRW - MENUDEF() -> AROTINA := EXECBLOCK("F846ROT",.F.,.F.,{AROTINA})

FINA850.PRW - F850ACRE2() -> LCALCGAN:=EXECBLOCK("F0851IMP",.F.,.F.,{"GN2"})

FINA850.PRW - F850ACRET() -> LCALCGN:=EXECBLOCK("F0851IMP",.F.,.F.,{"GN"})

FINA850.PRW - F850ATUSFF() -> EXECBLOCK("CERTGAN",.F.,.F.,{ACERT[NX],CCODASS})

FINA850.PRW - F850ATUSFF() -> EXECBLOCK("CERTIB",.F.,.F.,{ACERT[NX],CCODASS,LINCPA})

FINA850.PRW - F850ATUSFF() -> EXECBLOCK("CERTIVSUS",.F.,.F.,{ACERT[NX],CCODASS,LINCPA})

FINA850.PRW - F850ATUSFF() -> EXECBLOCK("CERTRMUN",.F.,.F.,{ACERT[NX],CCODASS,LINCPA})

FINA850.PRW - F850DTVENC() -> LRET := EXECBLOCK("FA085DTV",.F.,.F.,{DDATAVENC})

FINA850.PRW - F850ENCH() -> LRET:= EXECBLOCK("F85ASDBCO",.F.,.F.,{CBANCO,CAGENCIA,CCONTA,NVALORDENS})

FINA850.PRW - F850ENCH() -> LRET:=EXECBLOCK('A085TUDOK',.F.,.F.,ACLONE(ASE2))

FINA850.PRW - F850FILDT() -> ADOF850:=EXECBLOCK("F850CHPDT",.F.,.F.)

FINA850.PRW - F850FILDT() -> CORDERQRY := EXECBLOCK("F850FILCH",.F.,.F.,{CORDERQRY})

FINA850.PRW - F850GRAVA() -> ATXMOEDAS := EXECBLOCK("F850TXMO",.F.,.F.,{APAGOS, ASE2,ATXMOEDAS,NI})

FINA850.PRW - F850GRAVA() -> CORDPAGO :=EXECBLOCK("A085NORP",.F.,.F.,CORDPAGO)

FINA850.PRW - F850GRAVA() -> EXECBLOCK("A085AFIM",.F.,.F.,ANUMS)

FINA850.PRW - F850GRAVA() -> EXECBLOCK("A085AFM2",.F.,.F.,{ANUMS})

FINA850.PRW - F850GRAVA() -> EXECBLOCK("A085AFOP",.F.,.F.,ANUMP)

FINA850.PRW - F850GRAVA() -> EXECBLOCK("A085ATIT",.F.,.F.)

FINA850.PRW - F850GRAVA() -> LF850NOSHW := EXECBLOCK("F085NOSHW",.F.,.F.)

FINA850.PRW - F850GRAVRET() -> EXECBLOCK("F850RET",.F.,.F.,"GAN")

FINA850.PRW - F850GRAVRET() -> EXECBLOCK("F850RET",.F.,.F.,"IB")

FINA850.PRW - F850GRAVRET() -> EXECBLOCK("F850RET",.F.,.F.,"IVA")

FINA850.PRW - F850GRAVRET() -> EXECBLOCK("F850RET",.F.,.F.,"SIL")

FINA850.PRW - F850GRAVRET() -> EXECBLOCK("F850RET",.F.,.F.,"SIS")

FINA850.PRW - F850GRAVRET() -> EXECBLOCK("F850RET",.F.,.F.,"SUSS")

FINA850.PRW - F850LNOK() -> LRET:=EXECBLOCK("F085AVAL",.F.,.F.)

FINA850.PRW - F850MRKB() -> LRET := EXECBLOCK("A085MRKB",.F.,.F.,LALL)

FINA850.PRW - F850PGADI() -> LOCULTA := EXECBLOCK("F85NOINFO",.F.,.F.)

FINA850.PRW - F850PGAUT() -> AAUXSE2 := EXECBLOCK("F085ARRSE2",.F.,.F.,{ASE2})

FINA850.PRW - F850PREOP() -> CFILTROUSR :=  EXECBLOCK("F850FLPRE",.F.,.F.)

FINA850.PRW - F850RETIR() -> NBASIR := EXECBLOCK("F085ABIRF",.F.,.F.)

FINA850.PRW - F850SE2() -> ATXMOEDAS := EXECBLOCK("F850TXPG",.F.,.F.,{AORDPG,NI,ATXMOEDAS})

FINA850.PRW - F850SE2TMP() -> CFLTUSR:=EXECBLOCK("A850ABRW",.F.,.F.)

FINA850.PRW - F850SHOW() -> A850BTN := EXECBLOCK( "A085BTN" )

FINA850.PRW - F850TELA() -> ACAMPOS:=EXECBLOCK("F085HEAD",.F.,.F.)

FINA850.PRW - F850TELA() -> EXECBLOCK("A085DEFS",.F.,.F.,"1")

FINA850.PRW - F850TUDOK() -> LRET := EXECBLOCK("F085ANOPA",.F.,.F.,{NSALDOPGOP})

FINA850.PRW - F850VFOR() -> LRET := EXECBLOCK("A085VFOR",.F.,.F.,{CFORNECE,CLOJA})

FINA850.PRW - F850VLDMD() -> LRET:= EXECBLOCK("F850OBNAT",.F.,.F.,{CNATUREZA})

FINA850.PRW - F850VLDOPS() -> LRET:=EXECBLOCK('A850PAOK',.F.,.F.,ACLONE(ASE2))

FINA850.PRW - FINA850() -> ACORES := EXECBLOCK("F850URET",.F.,.F.)

FINA850.PRW - GRAVAPAGOS() -> CNUMCHQ:=EXECBLOCK("A850NUM",.F.,.F.,{NPAGAR,CFORNECE,CLOJA,DDTVCTO})

FINA850.PRW - GRAVAPAGOS() -> CPREFIXO :=EXECBLOCK("A850PRECH",.F.,.F.,{CNUMCHQ,CFORNECE,CLOJA,CBANCO,CAGENCIA,CCONTA})

FINA850.PRW - GRAVAPAGOS() -> EXECBLOCK("A850PAG",.F.,.F.)

FINA850.PRW - GRAVAPAGOS() -> EXECBLOCK("F850GRA",.F.,.F.)

FINA850.PRW - PE850LEG() -> ALEG := EXECBLOCK("F850ADLE",.F.,.F.)

FINA855.PRW - A855APRV() -> EXECBLOCK("FA855APR",.F.,.F.)

FINA855.PRW - A855CANC() -> EXECBLOCK("FA855CAN",.F.,.F.)

FINA855.PRW - FA855INCLU() -> EXECBLOCK("FA855INC",.F.,.F.,{OGRIDPREOP , NLINPREOP})

FINA910A.PRW - A910THRLOTE() -> EXECBLOCK( 'FA110TOT', .F., .F. )

FINA910A.PRW - BUSCARBANCO() -> ADADOS := EXECBLOCK('FINA910F', .F., .F., {CBANCOFIF, CAGFIF, CCONTAFIF})

FINA910B.PRW - A910VLDARQ() -> ADFIF := EXECBLOCK("FINFIF",.F.,.F.,ADADOS)

FINA920A.PRW - A920THRLOTE() -> EXECBLOCK('FA110TOT', .F., .F.)

FINA940.PRW - F940ACOLCON() -> CQUERY += EXECBLOCK("F940PAR3",.F.,.F.,{ARETPER})

FINA940.PRW - F940WIZCON() -> APWIZ3 := EXECBLOCK("F940PAR1",.F.,.F.,{APWIZ3})

FINA940.PRW - F940WIZCON() -> ARETWIZ3  := EXECBLOCK("F940PAR2",.F.,.F.,{ARETWIZ3})

FINA950.PRW - F950ACOLCON() -> CQUERY += EXECBLOCK("F950PAR3",.F.,.F.,ARETPER)

FINA950.PRW - F950WIZCON() -> APWIZ3 := EXECBLOCK("F950PAR1",.F.,.F.,{APWIZ3})

FINA950.PRW - F950WIZCON() -> ARETWIZ3 := EXECBLOCK("F950PAR2",.F.,.F.,{ARETWIZ3})

FINA989.PRW - FATUCPT003() -> CQUERY += EXECBLOCK("F989CPIN",.F.,.F.,{CQUERY})

FINA989.PRW - FATUCRT003() -> CQUERY += EXECBLOCK("F989CRIN",.F.,.F., {CQUERY})

FINA989.PRW - MNTQRYPAG() -> CQUERY += EXECBLOCK("F989CPIN",.F.,.F.,{CQUERY})

FINA994.PRW - F994DIRF() -> ARETARR := EXECBLOCK("FA944ARR",.F.,.F.,ACLONE(ASCP))

FINA994.PRW - F994SRL() -> CCODRET := EXECBLOCK("FA944QRY",.F.,.F.)

FINA998.PRW - VALIDTITLES() -> ATIPOSDOC := STRTOKARR(EXECBLOCK('F998FLOTIT',.F.,.F.), "/")

FINANCIAL-TITLES.SERVICE.TLPP - FINANCIALTITLESISTMB() -> CTIPODOC +=EXECBLOCK('F998FLOTIT',.F.,.F.)

FINC010.PRW - FC010BROW() -> (CALIAS)->E1_ATR := EXECBLOCK("F010DATR",.F.,.F.,{CQRY,CALIAS})

FINC010.PRW - FC010BROW() -> AAUXCPO := ACLONE(EXECBLOCK("FC0101FAT",.F.,.F.,{ACPOS}))

FINC010.PRW - FC010BROW() -> AHEADER1 := EXECBLOCK("FC010HEAD",.F.,.F.,AHEADER1)

FINC010.PRW - FC010BROW() -> AHEADER1 :=EXECBLOCK("FC010BXHE",.F.,.F.,AHEADER1)

FINC010.PRW - FC010BROW() -> ARETAUX := ACLONE(EXECBLOCK("FC010PEDI",.F.,.F.,{ACLONE(AHEADER),ACLONE(ASTRU)}))

FINC010.PRW - FC010BROW() -> CORDEM := EXECBLOCK("F010ORD1",.F.,.F.)

FINC010.PRW - FC010BROW() -> CQUERY += ", " + EXECBLOCK("FC0102FAT",.F.,.F.) + " "

FINC010.PRW - FC010BROW() -> CQUERY += EXECBLOCK("F010FLPD",.F.,.F.)

FINC010.PRW - FC010BROW() -> CQUERY += EXECBLOCK("FO10FILT",.F.,.F.)

FINC010.PRW - FC010BROW() -> CQUERY += EXECBLOCK("FO10FLFT",.F.,.F.)

FINC010.PRW - FC010BROW() -> CQUERY += EXECBLOCK("FO10FLTR",.F.,.F.)

FINC010.PRW - FC010BROW() -> CQUERY := EXECBLOCK("F010CQFT",.F.,.F.,{CQUERY})

FINC010.PRW - FC010BROW() -> CQUERY := EXECBLOCK("F010CQPE",.F.,.F.,{CQUERY})

FINC010.PRW - FC010BROW() -> CQUERY := EXECBLOCK("F010CQTA",.F.,.F.,{CQUERY})

FINC010.PRW - FC010BROW() -> CQUERY := EXECBLOCK("F010CQTR",.F.,.F.,{CQUERY})

FINC010.PRW - FC010BROW() -> EXECBLOCK("FC0103FAT",.F.,.F.,{CALIAS, CQRY})

FINC010.PRW - FC010CLI() -> @ 001,272 BUTTON STR0025 SIZE 60,12 FONT ODLG:OFONT ACTION IF( LFC010BOL, EXECBLOCK( "FC010BOL", .F., .F., {1,AVETALIAS,APARAM,.T.,AGET} ), FC010BROW(1,@AALIAS,APARAM,.T.,AGET))  OF ODLG PIXEL

FINC010.PRW - FC010CLI() -> @ 015,272 BUTTON STR0122 SIZE 60,12 FONT ODLG:OFONT ACTION IF( LFC010BOL, EXECBLOCK( "FC010BOL", .F., .F., {2,AVETALIAS,APARAM,.T.,AGET} ), FC010BROW(2,@AALIAS,APARAM,.T.,AGET))  OF ODLG PIXEL

FINC010.PRW - FC010CLI() -> @ 043+NCONLIN,272 BUTTON EXECBLOCK("FC010BTN",.F.,.F.,{1}) SIZE 60,12 FONT ODLG:OFONT ACTION EXECBLOCK("FC010BTN",.F.,.F.,{3}) MESSAGE EXECBLOCK("FC010BTN",.F.,.F.,{2})  OF ODLG PIXEL

FINC010.PRW - FC010CLI() -> @ 043+NCONLIN,272 BUTTON STR0030 SIZE 60,12 FONT ODLG:OFONT ACTION EXECBLOCK("FC010CON",.F.,.F.) OF ODLG  PIXEL

FINC010.PRW - FC010CLI() -> ACOLS := EXECBLOCK ("FC010LIST",.F.,.F.,ACOLS)

FINC010.PRW - FINC010() -> CFILTER := EXECBLOCK( "FC010FIL",.F.,.F.,{CFILTER})

FINC021.PRW - FC021IMPFLX() -> EXECBLOCK("FC021TIT",.F.,.F.,TITULO)

FINC021.PRW - FC021IMPFLX() -> LRETIMP:=EXECBLOCK("FC021IMP",.F.,.F.)

FINC021.PRW - FC021PROC() -> AFLUXO := EXECBLOCK( "FC21CTRFLX", .F., .F., {AFLUXO} )

FINC021.PRW - FC021PROC() -> MENUITEM STR0236  ACTION EXECBLOCK("FC021MENU",.F.,.F.,OFLUXO)

FINC021.PRW - FC021PROJ() -> EXECBLOCK("FC021PROJ", .F. ,.F., { (AALIASANA[OFOLDER:NOPTION])->APELIDO, (AALIASANA[OFOLDER:NOPTION])->CHAVE, DDATAPROJ } )

FINC021.PRW - FC021VENCIDOS() -> CFILTERUSER := EXECBLOCK("FC021FIL", .F., .F., {CALIAS} )

FINC021.PRW - FLUXOANA() -> AHDNEW := EXECBLOCK( "FC021HDPC", .F., .F., { AHEADER } )

FINC021.PRW - FLUXOANA() -> AHDNEW := EXECBLOCK( "FC021HDPV", .F., .F., { AHEADER } )

FINC021.PRW - FLUXOANA() -> AHDNEW := EXECBLOCK("FC021HEAD",.F.,.F.,{AHEADER})

FINC021.PRW - FLUXOANA() -> AUSBUTTONS := EXECBLOCK( "FC021BUT", .F., .F.)

FINC021.PRW - FRVISAOGER() -> @ 32,386 BUTTON "SALVAR FLUXO" SIZE 68, 13 OF OPANEL PIXEL ACTION EXECBLOCK("FC021MENU",.F.,.F.,OFLUXO)

FINC021.PRW - FRVISAOGER() -> ACPOSA := EXECBLOCK("FC021CPO",.F.,.F.,{ACPOSANAP})

FINC021.PRW - FRVISAOGER() -> ACPOSA := EXECBLOCK("FC021CPO",.F.,.F.,{ACPOSANAR})

FINC021.PRW - FRVISAOGER() -> CFILTERUSER := EXECBLOCK("FC021FIL", .F., .F., {CALIAS} )

FINC021.PRW - FRVISAOGER() -> CQUERY :=  EXECBLOCK("FC021MAN",.F.,.F.,{CQUERY,"SE2","E2"})

FINC021.PRW - FRVISAOGER() -> EXECBLOCK("FC021ATRB",.F.,.F.,{CALIASANAP,CALIASSE2,CCAMPO})

FINC021.PRW - FRVISAOGER() -> EXECBLOCK("FC021ATRB",.F.,.F.,{CALIASANAR,CALIASSE1,CCAMPO})

FINC021.PRW - FRVISAOGER() -> MENUITEM STR0236  ACTION EXECBLOCK("FC021MENU",.F.,.F.,OFLUXO)

FINC021.PRW - GERATMP() -> ACPOSA := EXECBLOCK("FC021CPO",.F.,.F.,{ACPOSANA})

FINC021.PRW - GERATMP() -> CFILTERUSER := EXECBLOCK("FC021FIL", .F., .F., {CALIAS} )

FINC021.PRW - GERATMP() -> CQUERY :=  EXECBLOCK("FC021MAN",.F.,.F.,{CQUERY,CALIAS,CCAMPO})

FINC021.PRW - GERATMP() -> EXECBLOCK("FC021ATRB",.F.,.F.,{CALIASANA,CALIASTRB,CCAMPO})

FINC021.PRW - GERATMPJOB() -> CFILTERUSER := EXECBLOCK("FC021FIL", .F., .F., {CALIAS} )

FINC022.PRW - MOSTRAFLUXO() -> EXECBLOCK("FC022FLUXO",.F.,.F.,{AHEADER,CALIASTRB,APERIODOS})

FINC030.PRW - FC030CON() -> ACAMPOS1 := EXECBLOCK("F030TITABER",.F.,.F.,{1,ACAMPOS1})

FINC030.PRW - FC030CON() -> ACAMPOS2 := EXECBLOCK("F030TITPAGO",.F.,.F.,{1,ACAMPOS2})

FINC030.PRW - FC030CON() -> ACAMPOS3 := EXECBLOCK("F030TITCOM",.F.,.F.,{1,ACAMPOS3})

FINC030.PRW - FC030CON() -> ACAMPOS4 := EXECBLOCK("F030TITFAT",.F.,.F.,{1,ACAMPOS4})

FINC030.PRW - FC030CRIA() -> CCPOUSER := EXECBLOCK("FC030IND",.F.,.F.,{NCONT,ACAMPOS})

FINC030.PRW - FC030GERA() -> CORDCUSTOM := EXECBLOCK("FC030ORD",.F.,.F.,{CCPODISP,CORDER,NPROCESS})

FINC030.PRW - FC030GERA() -> CQUERY += +EXECBLOCK("FO30FLTP",.F.,.F.)

FINC030.PRW - FC030GERA() -> CQUERY += EXECBLOCK("FO30FILT",.F.,.F.)

FINC030.PRW - FC030GERA() -> CQUERY := EXECBLOCK( "F030FILT", .F., .F., { CQUERY, NPROCESS, CCPODISP } )

FINC030.PRW - FC030GERA() -> EXECBLOCK("F030TITABER",.F.,.F.,{2})

FINC030.PRW - FC030GERA() -> EXECBLOCK("F030TITCOM",.F.,.F.,{2})

FINC030.PRW - FC030GERA() -> EXECBLOCK("F030TITFAT",.F.,.F.,{2})

FINC030.PRW - FC030GERA() -> EXECBLOCK("F030TITPAGO",.F.,.F.,{2})

FINC030.PRW - FC030MOSTR() -> @ 028,160 BUTTON STR0072 SIZE 42,13 FONT ODLG:OFONT ACTION EXECBLOCK("FC030CON",.F.,.F.) OF ODLG  PIXEL

FINC030.PRW - FC030MOSTR() -> EXECBLOCK("F030TITABER",.F.,.F.,{3,APOSOBJ,STR0006,STR0007,STR0008,STR0009,STR0010,STR0011,STR0012,STR0013,STR0014,STR0015,STR0016,STR0017,STR0018,STR0019,STR0120,STR0121,STR0122})

FINC030.PRW - FC030MOSTR() -> EXECBLOCK("F030TITCOM",.F.,.F.,{3,APOSOBJ,STR0007,STR0010,STR0135,STR0029})

FINC030.PRW - FC030MOSTR() -> EXECBLOCK("F030TITFAT",.F.,.F.,{3,APOSOBJ,STR0007,STR0010,STR0030,STR0031,STR0041,STR0114})

FINC030.PRW - FC030MOSTR() -> EXECBLOCK("F030TITFAT",.F.,.F.,{3,APOSOBJ,STR0007,STR0010,STR0030,STR0031})

FINC030.PRW - FC030MOSTR() -> EXECBLOCK("F030TITPAGO",.F.,.F.,{3,APOSOBJ,STR0006,STR0007,STR0008,STR0010,STR0012,STR0021,STR0022,STR0022+" ("+CDESMOED1+")",STR0116,STR0117,STR0118,STR0115,STR0162,STR0023,STR0011,STR0014,STR0024,STR0025,STR0026,STR0027,STR0028,STR0019,STR0016,STR0017,STR0018})

FINC030.PRW - FC030MOSTR() -> EXECBLOCK("F030TITPAGO",.F.,.F.,{3,APOSOBJ,STR0006,STR0007,STR0008,STR0010,STR0012,STR0021,STR0022,STR0116,STR0117,STR0118,STR0115,STR0023,STR0011,STR0014,STR0024,STR0025,STR0026,STR0027,STR0028,STR0019,STR0016,STR0017,STR0018})

FINC030.PRW - FC030REL() -> NFN030IPC := EXECBLOCK("FN030IPC",.F.,.F.,{NVALITPED})

FINC030.PRW - FINC030() -> CFILTER := EXECBLOCK( "FC030FIL",.F.,.F.,{CFILTER})

FINC040.PRX - FC040CON() -> ABROWSE := EXECBLOCK("FI040CPTN",.F.,.F.)

FINC040.PRX - FC040CON() -> ABROWSE := EXECBLOCK("FI040MNCP",.F.,.F.,{ABROWSE})

FINC040.PRX - FC040CON() -> ABUT040 := EXECBLOCK("F040BOT",.F.,.F.)

FINC040.PRX - FC040CON() -> ACORRESP := EXECBLOCK("FI040CPCO",.F.,.F.,{ACORRESP})

FINC040.PRX - FC040CON() -> EXECBLOCK( "FI040CMPO", .F., .F. ,{OPANEL1} )

FINC040.PRX - FN040CRIA() -> ACAMPOS := EXECBLOCK("FI040TPCP",.F.,.F.,{ACAMPOS})

FINC040.PRX - FR040TEMP() -> CFILCMP := EXECBLOCK("FIN040CMP")

FINC040.PRX - FR040TEMP() -> EXECBLOCK("FI040GRCP", .F., .F., {'CNOMEARQ'})

FINC040.PRX - FR040TEMP() -> IF LF040FILTIT .AND. !EXECBLOCK("F040FILTIT")

FINC050.PRX - FC050CON() -> ABROWSE := EXECBLOCK("FC050BROWSE",.F.,.F.,ABROWSE)

FINC050.PRX - FN050CRIA() -> ACAMPOS := EXECBLOCK("FC050CAMPOS",.F.,.F.,ACAMPOS)

FINC050.PRX - FR050TEMP() -> URET := EXECBLOCK("FC050CPOVT", .F., .F., {ACAMPOS[NX,1]})

FINC060.PRW - RCONSCLI() -> @ 06, 200 BUTTON OEMTOANSI(STR0084) SIZE 40,11 ACTION EXECBLOCK("FC060CON",.F.,.F.)

FINI040.PRW - V2000() -> AAUXINC := EXECBLOCK("FI040SE1",.F.,.F.,{ATIT,NOPCX})

FINI040.PRW - V3000() -> AAUXINC := EXECBLOCK("FI040SE1",.F.,.F.,{ATIT,NOPCX})

FINI050.PRW - V2000() -> ARETPE := EXECBLOCK("F050E2",.F.,.F.,{ATIT,ARATCC})

FINI050.PRW - V3000() -> ARETPE := EXECBLOCK("F050E2",.F.,.F.,{ATIT,ARATCC})

FINI055.PRW - INCLUISE1() -> ARETPE := EXECBLOCK("F055E1",.F.,.F.,{ACAB,ARATEVEZ})

FINI055.PRW - INCLUISE2() -> ARETPE := EXECBLOCK("F055E2",.F.,.F.,{ACAB,ARATEVEZ})

FINR085A.PRW - IMPCERTIFICADO() -> EXECBLOCK("CERTCPR",.F.,.F.,{ACERT[I],ACERT[I][4],.F.})

FINR085A.PRW - IMPCERTIFICADO() -> EXECBLOCK("CERTIB",.F.,.F.,{ACERT[I],ACERT[I][4],.F.})

FINR085A.PRW - IMPCERTIFICADO() -> EXECBLOCK("CERTIVSUS",.F.,.F.,{ACERT[I],ACERT[I][4],.F.})

FINR127.PRW - PRINTREPORT() -> CTEXTO := EXECBLOCK("FIN127TXT", .F., .F., {CTEXTO,(CALIAS)->(NOME), CANO })

FINR127.PRW - PRINTREPORT() -> CTEXTO := EXECBLOCK("FIN127TXT", .F., .F., {CTEXTO})

FINR127.PRW - PRINTREPORT() -> CTITULO := EXECBLOCK("FIN127TIT", .F.,.F., {CTITULO})

FINR130.PRX - DA OSECTION1.() -> CCAMPOCLI := EXECBLOCK("FR130TELC",.F.,.F.)

FINR130.PRX - REPORTPRINT() -> CF130QRY := EXECBLOCK("F130QRY",.F.,.F.)

FINR460.PRW - AUTOCHECK2() -> EXECBLOCK("FINR460",.F.,.F.,NHDLL)

FINR460.PRW - AUTOCHECK3() -> EXECBLOCK("FINR460",.F.,.F.,NHDLL)

FINR460.PRW - AUTOCHECK5() -> EXECBLOCK("FINR460",.F.,.F.,NHDLL)

FINR460.PRW - AUTOCHECK6() -> EXECBLOCK("FINR460",.F.,.F.,NHDLL)

FINR460.PRW - AUTOCHECK8() -> EXECBLOCK("FINR460",.F.,.F.,NHDLL)

FINR460.PRW - AUTOCHECK9() -> EXECBLOCK("FINR460",.F.,.F.,NHDLL)

FINR460.PRW - AUTOCHECKD() -> EXECBLOCK("FINR460",.F.,.F.,NHDLL)

FINR460.PRW - AUTOCHECKP() -> CMENSAGEM := EXECBLOCK("F460MSG",.F.,.F.,{CNOME})

FINR460.PRW - AUTOCHECKP() -> CVERSO:=EXECBLOCK("F460VER",.F.,.F.,{CNOME})

FINR460.PRW - FINR460() -> ACHEQUE[3] := EXECBLOCK("F460BENEF", .F., .F.)

FINR460.PRW - FINR460() -> ACHEQUE[9] := EXECBLOCK("F460MSG",.F.,.F.,{CNOME})

FINR460.PRW - FINR460() -> EXECBLOCK("F460BXT",.F.,.F.)

FINR460.PRW - FINR460() -> LRET := EXECBLOCK("F460OK",.F.,.F.)

FINR480.PRX - FA480CH() -> IF !EXECBLOCK("FA480CH",.F.,.F.)

FINR480.PRX - FA480IMP() -> CMUNIC := EXECBLOCK("FA480MUN",.F.,.F.)

FINR480.PRX - FR480GRAV() -> EXECBLOCK("FA480COM",.F.,.F.)

FINR480.PRX - FR480GRAV() -> EXECBLOCK("FA480SAL",.F.,.F.)

FINR480.PRX - IMPCHEQOK() -> EXECBLOCK("FA480DAT",.F.,.F.)

FINR551.PRX - FINR551R3() -> CTIPOS:= EXECBLOCK("FARGTIP")

FINR650.PRX - REPORTPRINT() -> CDESCR := EXECBLOCK("F650DESCR",.F.,.F.,{CDESCR})

FINR650.PRX - REPORTPRINT() -> EXECBLOCK("F650VAR", .F., .F., {AVALORES})

FINR650.PRX - REPORTPRINT() -> LACHOUTIT := EXECBLOCK("FR650FIL",.F.,.F.,{AVALORES})

FINR650.PRX - REPORTPRINT() -> NTXMOEDA := EXECBLOCK("F430TXBX", .F., .F., ATITULO)

FINRETIBB.PRW - RETIBBCRE() -> LCALCIB:=EXECBLOCK("F0851IMP",.F.,.F.,{"IB2"})

FINRETIVA.PRW - RETIVACRE() -> LCALCIMP:=EXECBLOCK("F0851IMP",.F.,.F.,{"IV2"})

FINRETIVA.PRW - RETIVAMCR() -> LCALCIMP:=EXECBLOCK("F0851IMP",.F.,.F.,{"IV2"})

FINRETIVA.PRW - RETIVAMDB() -> LCALCIMP:=EXECBLOCK("F0851IMP",.F.,.F.,{"IVA"})

FINRETMUN.PRW - RETMUNCRE() -> LCALCLIMP:=EXECBLOCK("F0851IMP",.F.,.F.,{"M"})

FINRETSLI.PRW - RETSLICRE() -> LCALCLIMP:=EXECBLOCK("F0851IMP",.F.,.F.,{"SL2"})

FINRETSUS.PRW - RETSUSCRE() -> LCALCSUS:=EXECBLOCK("F0851IMP",.F.,.F.,{"SU2"})

FINRGPS.PRW - FGPSPROC() -> APROC := EXECBLOCK("FINGPSPRC",.F.,.F.,{CALIASSE2,AGPSINS,AGPSINA,LACHOUPAI})

FINRGPS.PRW - PRTGPS() -> ARETGPS := EXECBLOCK("FRGPSFOR",.F.,.F.,{CCGC,CRAZAO,CFONE,CENDERECO,CBAIRRO,CCEP,CMUNICIPIO,CUF,SA2->(RECNO())})

FINRSRF.PRX - IMPDET() -> AINFO := EXECBLOCK("FA373SCL", .F., .F.,{AINFO})

FINRSRF.PRX - PRTDARF() -> AINFO := EXECBLOCK("DARFVAL",.F.,.F.,{AINFO})

FINRSRF.PRX - PRTDARF() -> COBS := EXECBLOCK("DARFADOBS", .F. , .F.,{AINFO,NW,NY})

FINXAPI.PRX - := FUNNAME()() -> EXECBLOCK("F040CANVM", .F., .F.)

FINXAPI.PRX - ADUPCREDRT() -> EXECBLOCK("FPCCSE1",.F.,.F.)

FINXAPI.PRX - ADUPCREDRT() -> EXECBLOCK("FPCCSE2",.F.,.F.)

FINXAPI.PRX - FAAVALSE2() -> LATUSA2 := EXECBLOCK("MT103TRV",.F.,.F.,{SE2->E2_FORNECE,SE2->E2_LOJA,"F"})[2]

FINXAPI.PRX - FABAIXACR() -> EXECBLOCK("F070DISS",.F.,.F.)

FINXAPI.PRX - FABAIXACR() -> EXECBLOCK("F070EST",.F.,.F.)

FINXAPI.PRX - FABAIXACR() -> EXECBLOCK("F70E5ADT",.F.,.F.)

FINXAPI.PRX - FABAIXACR() -> EXECBLOCK("SE5FI460",.F.,.F.)

FINXAPI.PRX - FABAIXACR() -> EXECBLOCK('SE3FI070',.F.,.F.)

FINXAPI.PRX - FABAIXACR() -> EXECBLOCK('SE5FI070',.F.,.F.)

FINXAPI.PRX - FACMCP() -> NVLRCM := EXECBLOCK("F080CM",.F.,.F.)

FINXAPI.PRX - FACMCR() -> NVLRCM := EXECBLOCK("F070CM",.F.,.F.,{NTXMOEDA})

FINXAPI.PRX - FACMPCR() -> EXECBLOCK("FA330SE1",.F.,.F.)

FINXAPI.PRX - FACMPCR() -> EXECBLOCK("SE5FI330",.F.,.F.)

FINXAPI.PRX - FACMPCR() -> EXECBLOCK("SE5FI331",.F.,.F.)

FINXAPI.PRX - FACMPCR() -> IF LMAINTEST .AND. EXECBLOCK("MAINTEST",.F.,.F.)

FINXAPI.PRX - FACMPCR() -> LTRAVASA1:= !EXISTBLOCK("F070TRAVA") .OR. EXECBLOCK("F070TRAVA", .F., .F.)

FINXAPI.PRX - FAINCSE2() -> ATITCOMP  := EXECBLOCK("E2CAMPAD")

FINXAPI.PRX - FAINCSE2() -> CNATUREZ  := EXECBLOCK("E2MPNAT")

FINXAPI.PRX - FANXTSEQBX() -> EXECBLOCK("FANXTSEQ",.F.,.F.,{'1'})

FINXAPI.PRX - FANXTSEQBX() -> EXECBLOCK("FANXTSEQ",.F.,.F.,{'2'})

FINXAPI.PRX - FINCMPAFK() -> EXECBLOCK("FA330SE2",.F.,.F.)

FINXAPI.PRX - FINCMPAFK() -> IF (LRETMADEL := EXECBLOCK("MAINTDEL",.F.,.F.))

FINXAPI.PRX - FINCMPAUT() -> EXECBLOCK("FA330SE2",.F.,.F.)

FINXAPI.PRX - FINCMPAUT() -> IF (LRETMADEL := EXECBLOCK("MAINTDEL",.F.,.F.))

FINXAPI.PRX - FINCORREC() -> NVLRCM := EXECBLOCK("F080CM",.F.,.F.)

FINXAPI.PRX - FINMOVCMP() -> EXECBLOCK("SE5FI340",.F.,.F.)

FINXAPI.PRX - FINMOVCMP() -> EXECBLOCK("SE5FI341",.F.,.F.)

FINXAPI.PRX - FPEDADT() -> LBLQADIANT := EXECBLOCK("PVADTINC",.F.,.F.,{CPEDIDO,NVALLIMITE,CCLIFOR,CLOJA,CTES})

FINXAPI.PRX - FPEDADTTRC() -> NVALOR := EXECBLOCK("FINXVLAD", .F., .F., {NVALOR, NSELEC, AINFADTO })

FINXAPI.PRX - MAINTBXCR() -> ACOMPLEM := EXECBLOCK("F460SE1",.F.,.F.)

FINXAPI.PRX - MAINTBXCR() -> EXECBLOCK("F460NCC",.F.,.F.)

FINXAPI.PRX - MAINTBXCR() -> EXECBLOCK("F460VAL",.F.,.F.,ACOMPLEM)

FINXBX.PRX - FA070ADIANT() -> EXECBLOCK("FA070ADTSE5",.F.,.F.)

FINXBX.PRX - FA070ESTRANG() -> EXECBLOCK("FA070CMI",.F.,.F.)

FINXBX.PRX - FA070GRV() -> C070HIST := PADR(EXECBLOCK("F070HIST",.F.,.F.,{SE1->(E1_FILIAL+E1_PREFIXO+E1_NUM+E1_PARCELA+E1_TIPO),NRECNOW}),NTAMHIST)

FINXBX.PRX - FA070GRV() -> EXECBLOCK("F070DISS",.F.,.F.)

FINXBX.PRX - FA070GRV() -> EXECBLOCK("F070GRVHIS",.F.,.F.)

FINXBX.PRX - FA070GRV() -> EXECBLOCK("F70GRSE1",.F.,.F.,{COCORR})

FINXBX.PRX - FA070GRV() -> EXECBLOCK("FIN70BXIR", .F.,.F.)

FINXBX.PRX - FA070GRV() -> EXECBLOCK("FINAJURO",.F.,.F.)

FINXBX.PRX - FA070GRV() -> EXECBLOCK('SE3F070',.F.,.F.)

FINXBX.PRX - FA070GRV() -> EXECBLOCK('SE3FI070',.F.,.F.)

FINXBX.PRX - FA070GRV() -> NSALDO -= EXECBLOCK("F070GERAB",.F.,.F., {CCLIENTE+CLOJA+CPREFIXO+CNUM+CPARCELA, DBAIXA , CLOTEFIN , CTIPOOR, } )

FINXBX.PRX - FA070GRV() -> NVALPADRAO += EXECBLOCK("FINSALTIT")

FINXBX.PRX - FA070GRV() -> REPLACE E1_VALLIQ WITH NVALREC + EXECBLOCK("FINSALTIT", .F.,.F., 2)

FINXBX.PRX - FA070GRV() -> XF200GERA := EXECBLOCK("F200GERA",.F.,.F.,{NRECNOW,ATITULOS})

FINXBX.PRX - FA070GRVSE5() -> EXECBLOCK("F70E5ADT",.F.,.F.)

FINXBX.PRX - FA070MOV() -> AHDLAUX := EXECBLOCK("F070MV1", .F., .F., {NI, ABXACR, ABXDEC, CBANCO, CAGENCIA, CCONTA, DBAIXA, NVALMOV,;

FINXBX.PRX - FA070MOV() -> EXECBLOCK('SE5FI070',.F.,.F.)

FINXBX.PRX - FA070VALMO() -> LRET := EXECBLOCK("F070VMOT",.F.,.F.)

FINXBX.PRX - FAJUROS() -> NATRASO := EXECBLOCK("NEWJUROS",.F.,.F.,{DBAIXA,DVENCTO,NATRASO})

FINXBX.PRX - FAJUROS() -> NJUROS := EXECBLOCK("FJURCST",.F.,.F.,{DBAIXA,DVENCTO,NATRASO,NVALJUR,NPERJUR})

FINXBX.PRX - FAJUROS() -> NJUROS := EXECBLOCK("FJURREC",.F.,.F.,{DBAIXA,DVENCTO,NATRASO,NVALJUR,NPERJUR,NJUROS,CALIASSE1})

FINXBX.PRX - FCADMOTBX() -> CFILE := EXECBLOCK("FILEMOT",.F.,.F.,{CFILE})

FINXBX.PRX - FINGRVFI2() -> EXECBLOCK( "F040GRCOM", .F., .F., {AITEMSFI2} )

FINXBX.PRX - ULTILOTE() -> EXECBLOCK('ULTILOTE',.F.,.F.)

FINXFIN.PRX - A040DUPREC() -> CNATUREZA:= EXECBLOCK("NTFETHAB",.F.,.F.,{CORIGEM,CPREFIXO})

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("F040COF",.F.,.F.,NSAVREC)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("F040CSL",.F.,.F.,NSAVREC)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("F040FAB",.F.,.F.,NSAVREC)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("F040FAC",.F.,.F.,NSAVREC)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("F040FAM",.F.,.F.,NSAVREC)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("F040FET",.F.,.F.,NSAVREC)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("F040FMP",.F.,.F.,NSAVREC)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("F040GER",.F.,.F.,ARECIMPOS)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("F040IMA",.F.,.F.,NSAVREC)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("F040INS",.F.,.F.,NSAVREC)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("F040IRF",.F.,.F.,NSAVREC)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("F040ISS",.F.,.F.,NSAVREC)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("F040PIS",.F.,.F.,NSAVREC)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("M040CSSR",.F.,.F.)

FINXFIN.PRX - A040DUPREC() -> EXECBLOCK("M040SE1",.F.,.F.)

FINXFIN.PRX - A040DUPREC() -> IF !LINSMR .AND. ( SE1->E1_INSS < __NVLINSRET )  .AND. (IIF(__LFVLDINS, EXECBLOCK("FINVLDINS",.F.,.F., {} ), .T. ))

FINXFIN.PRX - A040DUPREC() -> LGRVSA1:= EXECBLOCK("F040TRVSA1",.F.,.F.)

FINXFIN.PRX - A040DUPREC() -> XMINRETIR := EXECBLOCK("F040MIRF",.F.,.F.,{SA2->A2_COD,SA2->A2_LOJA})

FINXFIN.PRX - A040DUPREC() -> __CCSSNAT := EXECBLOCK("NTFUNR",.F.,.F.,{CORIGEM,CPREFIXO})

FINXFIN.PRX - A040DUPREC() -> __NMINISS := EXECBLOCK("F040MISS",.F.,.F.,{CMUNISS})

FINXFIN.PRX - A050DUPPAG() -> CNATUREZA:= EXECBLOCK("NTFETHAB",.F.,.F.,{CORIGEM,CPREFIXO})

FINXFIN.PRX - A050DUPPAG() -> CNATUREZA:= EXECBLOCK("NTFUNR",.F.,.F.,{CORIGEM,CPREFIXO})

FINXFIN.PRX - A050DUPPAG() -> EXECBLOCK("ATUDPPAG",.F.,.F.,CORIGEM)

FINXFIN.PRX - A050DUPPAG() -> EXECBLOCK("F050GER",.F.,.F.,ARECIMPOS)

FINXFIN.PRX - A050DUPPAG() -> EXECBLOCK("F050ISS",.F.,.F.,NREGSE2)

FINXFIN.PRX - A050DUPPAG() -> EXECBLOCK("F050SES",.F.,.F.,NREGSE2)

FINXFIN.PRX - A050DUPPAG() -> EXECBLOCK("M050CSSP",.F.,.F.,NREGSE2)

FINXFIN.PRX - A050DUPPAG() -> IF LINSSS .AND. (IF(LFINVLDINS, EXECBLOCK("FINVLDINS",.F.,.F., {} ), .T. ))

FINXFIN.PRX - A050DUPPAG() -> XMINRETIR := EXECBLOCK("F040MIRF",.F.,.F.,{SA2->A2_COD,SA2->A2_LOJA})

FINXFIN.PRX - ATUSALBCO() -> EXECBLOCK("FAATUBCO",.F.,.F.,{CBANCO, CAGENCIA, CCONTA, DDATA, NVALOR, CSINAL,LRECONC , LSALATU})

FINXFIN.PRX - ATUSALBCO() -> IF !EXECBLOCK('ATUSLBCO',.F.,.F.,{CBANCO, CAGENCIA, CCONTA, DDATA, NVALOR, CSINAL})

FINXFIN.PRX - CARREGASA6() -> CNATUREZA := EXECBLOCK("PE_LOADSA6",.F.,.F.)

FINXFIN.PRX - CARREGASA6() -> LBENEFI := EXECBLOCK ("FINBENEF",.F.,.F.)

FINXFIN.PRX - DETCNAB2() -> CIDCNAB := EXECBLOCK("F420ICNB",.F.,.F.,{CIDCNAB})

FINXFIN.PRX - DTMOVFIN() -> LRET :=EXECBLOCK("FADTMOV",.F.,.F.,{DDATA})

FINXFIN.PRX - FA040LEGENDA() -> ALEGNEW := EXECBLOCK("F040ADLE",.F.,.F.,ALEGENDA)

FINXFIN.PRX - FA040LEGENDA() -> EXECBLOCK("FINALEG",.F.,.F.,{NREG,CALIAS,{},ALEGENDA})

FINXFIN.PRX - FA040LEGENDA() -> URETNEW := EXECBLOCK("F040URET",.F.,.F.,{URETORNO,ALEGENDA})

FINXFIN.PRX - FA040LEGENDA() -> URETORNO := EXECBLOCK("FINALEG",.F.,.F.,{NREG,CALIAS,URETORNO,{}})

FINXFIN.PRX - FA050NOME() -> NPERCISS := EXECBLOCK("F050PISS",.F.,.F.)

FINXFIN.PRX - FA080JUROS() -> NJUROS := EXECBLOCK("F080JUR",.F.,.F.)

FINXFIN.PRX - FA171CALAP() -> NDIASCTB := EXECBLOCK("FADIACTB",.F.,.F.,{NDIASCTB})

FINXFIN.PRX - FA171CALAP() -> NRENDAUX:= EXECBLOCK( "F171RDBR", .F., .F., { NRENDIMENTO } )

FINXFIN.PRX - FA171CALAP() -> NRENDAUX:= EXECBLOCK( "F171RDMN", .F., .F., { NRENDIMENTO } )

FINXFIN.PRX - FA171CALEP() -> NDIASCTB := EXECBLOCK("FADIACTB",.F.,.F.,{NDIASCTB})

FINXFIN.PRX - FA280VISUA() -> AUSBUTTONS := EXECBLOCK( "F040BUT", .F., .F. )

FINXFIN.PRX - FA280VISUA() -> EXECBLOCK("FA40PROT",.F.,.F.)

FINXFIN.PRX - FA390BANCO() -> CCHEQUE390 := PADR(EXECBLOCK("F390NCHQ",.F.,.F.,{CBANCO390,CAGENCIA390,CCONTA390}),TAMSX3("EF_NUM")[1])

FINXFIN.PRX - FA390CHEQ() -> LRET := EXECBLOCK("F390VCH",.F.,.F.)

FINXFIN.PRX - FADESCFIN() -> NDESCONTO := EXECBLOCK("F070DES",.F.,.F.,NDESCONTO)

FINXFIN.PRX - FADESCFIN() -> NDESCONTO := EXECBLOCK("F070DSCF",.F.,.F.,NDESCONTO)

FINXFIN.PRX - FAPRNUMCHQ() -> CCHQ := EXECBLOCK("PAGNUMCHEQ",.F.,.F.,{CBCO,CAG,CNUM,CCHQ})

FINXFIN.PRX - FAPRNUMCHQ() -> IF !EXECBLOCK("PAGOBJCH",.F.,.F.,{CBCO,CAG,CNUM,CCHQ,OCHQ,LRET})

FINXFIN.PRX - FAPRNUMCHQ() -> LRET := EXECBLOCK("F080KCO",.F.,.F.,{CBCO,CAG,CNUM})

FINXFIN.PRX - FC020COMPRA() -> AVENC := EXECBLOCK("FC020COM",.F.,.F.,{SC7->C7_NUM,SC7->C7_ITEM,NVALTOT,CCOND,NVALIPI,DDATA})

FINXFIN.PRX - FC020COMPRA() -> CQUERY += EXECBLOCK("FC020CQR",.F.,.F.)

FINXFIN.PRX - FC020COMPRA() -> DDATA := EXECBLOCK("FC021DTF",.F.,.F.,{"SC7","SC7"})

FINXFIN.PRX - FC020VENDA() -> AVENC := EXECBLOCK("FC020VDA",.F.,.F.,{(CALIASSC6)->C6_NUM,(CALIASSC6)->C6_ITEM,NVALTOT,CCOND,NVALIPI,DDATA})

FINXFIN.PRX - FC020VENDA() -> AVENC := EXECBLOCK("FC020VDB",.F.,.F.,{(CALIASSC6)->C6_NUM,(CALIASSC6)->C6_ITEM,NVALTOT,CCOND,NVALIPI,DDATA})

FINXFIN.PRX - FC020VENDA() -> AVENC := EXECBLOCK("FC020VDC",.F.,.F.,{(CALIASSC6)->C6_NUM})

FINXFIN.PRX - FC020VENDA() -> CQUERY += EXECBLOCK("FC020VQR",.F.,.F.)

FINXFIN.PRX - FC020VENDA() -> DDATA := EXECBLOCK("FC021DTF",.F.,.F.,{"SC6",CALIASSC6})

FINXFIN.PRX - FINADISPLAY() -> LBXTITPAG := EXECBLOCK("F090TIT",.F.,.F.,{ NVALORMARCA })

FINXFIN.PRX - FINADISPLAY() -> LBXTITREC := EXECBLOCK("F110TIT",.F.,.F., { NVALORMARCA })

FINXFIN.PRX - FINCMC7TC() -> ACMC7TC := EXECBLOCK("FINCMTC",.F.,.F.,{CCMC7})

FINXFIN.PRX - FINCMC7TC() -> CCMC7 := EXECBLOCK("FINLRCHQ",.F.,.F.,{})

FINXFIN.PRX - FINRETSIX() -> NF240IND := EXECBLOCK("F240IND", .F., .F., {.F., {}})

FINXFUMI.PRW - FINCALITF() -> LRETORNO:= EXECBLOCK("FINPROCITF",.F.,.F.,{NRECNOSE5,NOPC})

FINXIMP.PRW - FCALCIRBX() -> CQUERY += EXECBLOCK("FINXCALCIR", .F. , .F. , CQUERY)

FINXIMP.PRW - FCALCIRBX() -> NBASEIRRF := EXECBLOCK("F50CIRFF",.F.,.F.,NBASEIRRF)

FINXIMP.PRW - FCALCISS() -> NPERCISS := EXECBLOCK("F050PISS",.F.,.F.)

FINXIMP.PRW - FGRVINSS() -> EXECBLOCK("F050INS",.F.,.F.,NREGSE2)

FINXIMP.PRW - FGRVPCCREC() -> EXECBLOCK("F040COF",.F.,.F.,NREGSE1)

FINXIMP.PRW - FGRVPCCREC() -> EXECBLOCK("F040CSL",.F.,.F.,NREGSE1)

FINXIMP.PRW - FGRVPCCREC() -> EXECBLOCK("F040PIS",.F.,.F.,NREGSE1)

FINXIMP.PRW - GETCLIFOR() -> AFIL13137 := EXECBLOCK( "MT103FRT", .F., .F. )

FINXIMP.PRW - GETVALORTX() -> CQUERY+= EXECBLOCK("F241QRY2",.F.,.F., {CQUERY})

FINXIMP.PRW - SUMDAY() -> CQUERY+=  EXECBLOCK("FINCMP1",.F.,.F.,{CQUERY}) + " ,"

FINXIMP.PRW - SUMDAY() -> CQUERY+= " (" + EXECBLOCK("FINXORD",.F.,.F., {CQUERY})

FINXIMP.PRW - SUMDAY() -> CQUERY+= EXECBLOCK("F241CMP2",.F.,.F., {CQUERY}) + ","

FINXIMP.PRW - SUMDAY() -> CQUERY+= EXECBLOCK("F241QRY2",.F.,.F., {CQUERY})

FINXIMP.PRW - SUMDAY() -> CQUERY:= EXECBLOCK("F241QRY3",.F.,.F.,{CQUERY})

FINXIMP.PRW - SUMDAY() -> LRESTAUM := EXECBLOCK("RESTAUM",.F.,.F.)

FINXIMP.PRW - SUMDAY() -> LRET := EXECBLOCK("FINEXEC",.F.,.F.,{CALIASQRY})

FINXIMP.PRW - VERVRAR() -> LRESTAUM := EXECBLOCK("RESTAUM",.F.,.F.)

FINXINC.PRX - FA050DELPA() -> EXECBLOCK("F050EXCPA",.F.,.F.)

FINXINC.PRX - FA050DELPA() -> LCHEQSE5 := EXECBLOCK("F050CHPA",.F.,.F.)

FINXINC.PRX - FA050DELPA() -> LESTPASE5 := EXECBLOCK("F050DLPA",.F.,.F.)

FINXINC.PRX - FA050DIGPA() -> EXECBLOCK("FA050PA",.F.,.F.,{CBANCOADT,CAGENCIAADT,CNUMCON,CCHEQUEADT,CHISTOR,CBENEF}),;

FINXINC.PRX - FA050IRF() -> LAPLICATP := EXECBLOCK("F050ATP",.F.,.F.)

FINXINC.PRX - FA050IRF() -> M->E2_IRRF := EXECBLOCK("F050CIRF",.F.,.F.,NBASEIRRF)

FINXINC.PRX - FA050ISS() -> EXECBLOCK("F050AISS",.F.,.F.)

FINXINC.PRX - FA050NATUR() -> EXECBLOCK("FA050IMP",.F.,.F.)

FINXINC.PRX - FA050NATUR() -> IF ( M->E2_INSS < GETMV("MV_VLRETIN") ) .AND. SA2->A2_TIPO <> "F" .AND. (IIF(LFINVLDINS, EXECBLOCK("FINVLDINS",.F.,.F., {} ), .T. ))

FINXINC.PRX - FA050NATUR() -> LAPLICATP := EXECBLOCK("F050ATP",.F.,.F.)

FINXINC.PRX - FA050NATUR() -> M->E2_INSS := EXECBLOCK("F050INBR",.F.,.F.,NBASEINSS)

FINXINC.PRX - FA050NATUR() -> M->E2_IRRF := EXECBLOCK("F050CIRF",.F.,.F.,NBASEIRRF)

FINXINC.PRX - FA050NATUR() -> NPERCISS := EXECBLOCK("F050PISS",.F.,.F.)

FINXINC.PRX - FA050TIT2CC() -> EXECBLOCK("F050PROV",.F.,.F.)

FINXINC.PRX - FCLCIRPJ() -> LCALCIR := EXECBLOCK("F050CALIR",.F.,.F.)

FINXINC.PRX - FCLCIRPJ() -> NBASEIRRF := EXECBLOCK("F50CIRFF",.F.,.F.,NBASEIRRF)

FINXNAT.PRX - ATUSLDNAT() -> EXECBLOCK("F022GRA",.F.,.F.,{ CNATUREZA, DDATA, CMOEDA, CALIAS  })

FINXNAT.PRX - CCCARREXT() -> AFNATRTEX := EXECBLOCK("FNATRTEX",.F.,.F.,{AHEADER, ACOLS[NCOLS]})

FINXNAT.PRX - DELMULTSEV() -> EXECBLOCK("MULTSEV", .F., .F., { 5, SUBS(CCHAVE, 3), 0, 0, "" })

FINXNAT.PRX - DELMULTSEZ() -> EXECBLOCK("MULTSEZ", .F., .F., { 5, SUBS(CCHAVE, 3) })

FINXNAT.PRX - FAMNATOK() -> LRET := EXECBLOCK("FIXVALMNAT",.F.,.F.)

FINXNAT.PRX - GRVSEVSEZ() -> ARATRET := EXECBLOCK("FINRATAUT",.F.,.F.,{AHEADERSEV, ACOLSSEV})

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVE, ACOLSSEV[NX][2],;

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVECID,;

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVECOF,;

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVECSL,;

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVEINS,;

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVEIRF,;

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVEISS,;

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVEPIS,;

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEZ", .F., .F., { 3, CCHAVE })

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEZ", .F., .F., { 3, CCHAVECID })

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEZ", .F., .F., { 3, CCHAVECOF })

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEZ", .F., .F., { 3, CCHAVECSL })

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEZ", .F., .F., { 3, CCHAVEINS })

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEZ", .F., .F., { 3, CCHAVEIRF })

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEZ", .F., .F., { 3, CCHAVEISS })

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEZ", .F., .F., { 3, CCHAVEPIS })

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("MULTSEZ", .F., .F., { 3, SEZ->EZ_PREFIXO +;

FINXNAT.PRX - GRVSEVSEZ() -> EXECBLOCK("RATG050", .F., .F., { ACOLSSEV })

FINXNAT.PRX - MNATLINOK() -> LRET := EXECBLOCK("FAVALIDMNAT",.F.,.F.,{FUNNAME()})

FINXNAT.PRX - MNATLINOK() -> LRET := EXECBLOCK("FAVLDMNAT",.F.,.F.,{FUNNAME()})

FINXNAT.PRX - MNCCNOK() -> LRET := EXECBLOCK("MNCCNOK",.F.,.F.)

FINXNAT.PRX - MNCCTOK() -> LRET := EXECBLOCK("MNCCOK",.F.,.F.)

FINXNAT.PRX - MULNATCC() -> IF VALTYPE(ACOLSUSER:=EXECBLOCK("NATSEZLOAD",.F.,.F.,{ACOLS,AHEADER,CNATUR,NVALNAT})) == "A"

FINXNAT.PRX - MULNATCC() -> LCONFIRMA := EXECBLOCK("MNATCC",.F.,.F.)

FINXNAT.PRX - MULNATCC() -> { || NOPCC := 1, IF(MNCCTOK() .AND. IF(LF050VCMC,LVALF050C := EXECBLOCK("F050VCMC",.F.,.F.),.T.),ODLG1:END(),)},;

FINXNAT.PRX - MULNATCC() -> { || NOPCC := 2, IF(MNCCNOK() .AND. LCONFIRMA .AND. IF(!LF050VCMC, ODLG1:END(), IF(LVALF050C := EXECBLOCK("F050VCMC",.F.,.F.),ODLG1:END(),.T.)),,)},,;

FINXNAT.PRX - MULNATCC() -> {|| NOPCC := 1, IF(MNCCTOK() .AND. IF(LF050VCMC, LVALF050C := EXECBLOCK("F050VCMC",.F.,.F.),.T.), ODLG1:END(),)},;

FINXNAT.PRX - MULNATCC() -> {|| NOPCC := 2, IF(MNCCNOK() .AND. LCONFIRMA .AND. IF(!LF050VCMC,ODLG1:END(),IIF(LVALF050C := EXECBLOCK("F050VCMC",.F.,.F.),ODLG1:END(),.T.)),,)},;

FINXNAT.PRX - MULTNAT() -> ARETRAT := EXECBLOCK("RATF050", .F., .F., { ACOLS })

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVE, ACOLS[NX][2],;

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVECID,;

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVECOF,;

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVECSL,;

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVEINS,;

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVEIRF,;

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVEISS,;

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEV", .F., .F., { NX, CCHAVEPIS,;

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEV", .F., .F., { NX, SEV->EV_PREFIXO +;

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEZ", .F., .F., { NOPC, CCHAVE })

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEZ", .F., .F., { NOPC, CCHAVECID })

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEZ", .F., .F., { NOPC, CCHAVECOF })

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEZ", .F., .F., { NOPC, CCHAVECSL })

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEZ", .F., .F., { NOPC, CCHAVEINS })

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEZ", .F., .F., { NOPC, CCHAVEIRF })

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEZ", .F., .F., { NOPC, CCHAVEISS })

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEZ", .F., .F., { NOPC, CCHAVEPIS })

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("MULTSEZ", .F., .F., { NOPC, SEZ->EZ_PREFIXO +;

FINXNAT.PRX - MULTNAT() -> EXECBLOCK("RTNATTEL",.F.,.F.)

FINXNAT.PRX - MULTNAT2() -> ACTIVATE MSDIALOG ODLG ON INIT (ENCHOICEBAR(ODLG,{||NOPCA:=1,IF(OGET:TUDOOK() .AND. FAMNATOK() .AND. IIF(LF050VCMN,LVALF050 := EXECBLOCK("F050VCMN"),.T.),ODLG:END(),NOPCA := 0)},;

FINXNAT.PRX - MULTNAT2() -> ACTIVATE MSDIALOG ODLG ON INIT (FAMYBAR(ODLG,{||NOPCA:=1,IF(OGET:TUDOOK() .AND. FAMNATOK() .AND. IIF(LF050VCMN,LVALF050 := EXECBLOCK("F050VCMN"),.T.),ODLG:END(),NOPCA := 0)},;

FINXNAT.PRX - MULTNAT2() -> EXECBLOCK("RTNATTEL",.F.,.F.)

FINXNAT.PRX - MULTNAT2() -> IF VALTYPE(ACOLSUSER:=EXECBLOCK("NATSEVLOAD",.F.,.F.,{ACOLS,AHEADER})) == "A"

FINXNAT.PRX - MULTNAT2() -> {|| NOPCA:=0,IIF(!LF050VCMN,ODLG:END(),IIF(LVALF050 := EXECBLOCK("F050VCMN"),ODLG:END(),.T.))},,ABUTTON),OPANEL2:ALIGN := CONTROL_ALIGN_BOTTOM)

FINXNAT.PRX - MULTNAT2() -> {|| NOPCA:=0,IIF(!LF050VCMN,ODLG:END(),IIF(LVALF050 := EXECBLOCK("F050VCMN"),ODLG:END(),.T.))},ABUTTON),OPANEL2:ALIGN := CONTROL_ALIGN_BOTTOM)

FINXNAT.PRX - MULTNATB() -> EXECBLOCK("MULTNATB",.F.,.F., {CALIAS,LBXLOTE,CREPLICA} )

FINXNAT.PRX - MULTNATB() -> LMNBCANCEL := EXECBLOCK("MNBCANCEL",.F.,.F.,{ACOLS})

FINXNAT.PRX - MULTNATC() -> EXECBLOCK("MULTNATC",.F.,.F.)

FINXOLD.PRX - BX80BXSPB() -> ADADOSSPB := EXECBLOCK("FA080SPB",.F.,.F.,ASPB)

FINXOLD.PRX - FA050CARR() -> CHISTRAT :=EXECBLOCK("F050HST",.F.,.F.,{CHISTRAT})

FINXOLD.PRX - FA050CARR() -> CORIGEM := EXECBLOCK("F050ORI",.F.,.F.,{CORIGEM})

FINXOLD.PRX - FA050CODRAT() -> LRET := EXECBLOCK("F050VLCOD",.F.,.F.,{CCODRATEIO,NRADIO})

FINXOLD.PRX - FA050LINOK() -> LRET := EXECBLOCK("F050LRAT", .F., .F. )

FINXOLD.PRX - FA050RATE() -> NMOSTRA := EXECBLOCK("F050ACOL",.F.,.F.)

FINXOLD.PRX - FA050TUDOK() -> LRET := EXECBLOCK("F050RAT",.F.,.F.)

FINXOLD.PRX - FCAINPJBX() -> IF NINSSTOT+IIF(LACMPJ,NTOTRINS,0) < NVLMININSS .AND. (IIF(LFINVLDINS, EXECBLOCK("FINVLDINS",.F.,.F., {} ), .T. ))

FINXOLD.PRX - FCMPCPOLD() -> EXECBLOCK("FA330SE2",.F.,.F.)

FINXOLD.PRX - FCMPCPOLD() -> EXECBLOCK("SE5FI340",.F.,.F.)

FINXOLD.PRX - FCMPCPOLD() -> EXECBLOCK("SE5FI341",.F.,.F.)

FINXOLD.PRX - FCMPCPOLD() -> IF LMAINTDEL .AND. EXECBLOCK("MAINTDEL",.F.,.F.)

FINXOLD.PRX - FINNATVEN() -> NRETORNO := EXECBLOCK("FINNVP",.F.,.F.,NRETORNO)

FINXOLD.PRX - INSACMBX() -> AFILINSS := EXECBLOCK( "F50TFINS", .F., .F. )

FINXOLD.PRX - INSCAPFBX() -> AFILINSS := EXECBLOCK( "F50TFINS", .F., .F. )

FINXOLD.PRX - INSCAPJBX() -> AFILINSS := EXECBLOCK( "F50TFINS", .F., .F. )

FINXOLD.PRX - LIQORDEN() -> EXECBLOCK("COBA0124",.F.,.F.) )

FINXOLD.PRX - LIQORDEN() -> OGET := MSGETDADOS():NEW(75,1,150,312,NOPCX,"EXECBLOCK('PAGOLOK',.F.,.F.)","EXECBLOCK('PAGOTOK',.F.,.F.)","",.T.)

FINXOLD.PRX - LIQORDEN() -> VALID IF( CLIQ == "0",EXECBLOCK("PAGO0124",.F.,.F.),;

FINXOLD.PRX - OLDF070CMC7TC() -> ACMC7TC := EXECBLOCK("F460CMTC",.F.,.F.,CCMC7)

FINXOMD.PRX - A050MANSE2() -> CIDCNAB := EXECBLOCK("F240ICNB",.F.,.F.,{CIDCNAB})

FINXOMD.PRX - DETIGVFIN() -> ARET:=EXECBLOCK("F012DETIGV",.F.,.F.,{CFIL,CCODFOR,CLOJAFOR,DDATAINI,DDATAFIM,DDTDIGIT})

FINXRES.PRW - DATINTRES() -> ARETPERG := EXECBLOCK("FNXRESPAR",.F.,.F.)

FINXRET.PRW - FINGRVIMP() -> EXECBLOCK("FXIMPGR",.F.,.F.,ARECIMPOS)

FINXRET.PRW - FINGRVIMP() -> EXECBLOCK("FXIMPPG",.F.,.F.,NRECTITPAI)

FINXSE5.PRW - FNBAIXAE1() -> ASE5GRVFK := EXECBLOCK("SE5GRVFK",.F.,.F.,{"FK1", ACAMPOSFK1})

FINXSE5.PRW - FNBAIXAE1() -> ASE5GRVFK := EXECBLOCK("SE5GRVFK",.F.,.F.,{"FK5", ACAMPOSFK5})

FINXSE5.PRW - FNBAIXAE1() -> ASE5GRVFK := EXECBLOCK("SE5GRVFK",.F.,.F.,{"FK6", ACAMPOSFK6})

FINXSE5.PRW - FNBAIXAE2() -> ASE5GRVFK := EXECBLOCK("SE5GRVFK",.F.,.F.,{"FK2", ACAMPOSFK2})

FINXSE5.PRW - FNBAIXAE2() -> ASE5GRVFK := EXECBLOCK("SE5GRVFK",.F.,.F.,{"FK5", ACAMPOSFK5})

FINXSE5.PRW - FNBAIXAE2() -> ASE5GRVFK := EXECBLOCK("SE5GRVFK",.F.,.F.,{"FK6", ACAMPOSFK6})

FINXSE5.PRW - FNBUSCAEF() -> ASE5GRVFK := EXECBLOCK("SE5GRVFK",.F.,.F.,{"FK5", ACAMPOSFK5})

FINXSE5.PRW - FNBUSCASE5() -> ASE5GRVFK := EXECBLOCK("SE5GRVFK",.F.,.F.,{"FK5", ACAMPOSFK5})

FINXSE5.PRW - FNBUSCASE5() -> ASE5GRVFK := EXECBLOCK("SE5GRVFK",.F.,.F.,{"FK8", ACAMPOSFK8})

FINXSPD.PRX - F500TOP() -> CDTEMIS := EXECBLOCK ("SPDF500",.F.,.F.)

FINXSPD.PRX - F500TOP() -> CQUERY := EXECBLOCK("F500E5TQ", .F. , .F. , {CQUERY})

FINXSPD.PRX - F500TOP() -> CQUERY := EXECBLOCK("F500EITQ", .F. , .F. , {CQUERY})

FINXSPD.PRX - FINSPDF100() -> AF100[29] := EXECBLOCK("SPD10019",.F., .F., {AF100[29]})

FINXSPD.PRX - FINSPDF100() -> ARETURN := EXECBLOCK("SPD100FIN",.F., .F., {ARETURN})

FINXSPD.PRX - FINSPDF100() -> CNORIGEM := EXECBLOCK ("SPDF1005",.F.,.F.)

FINXSPD.PRX - FINSPDF100() -> CORIGEM := EXECBLOCK ("SPDF1003",.F.,.F.)

FINXSPD.PRX - FINSPDF100() -> LCODPART:=EXECBLOCK ("SPDF1004",.F.,.F.,{(CALIASQRY)})

FINXSPD.PRX - FINSPDF600() -> CPECODREC := EXECBLOCK ("SPDF6003",.F.,.F.)

FINXSPD.PRX - FINSPDF600() -> CPECODREC := EXECBLOCK ("SPDF6004",.F.,.F.,{AF600})

FINXSPD.PRX - FINSPDF600() -> CPEMBX := EXECBLOCK ("SPDF6001",.F.,.F.)

FINXSPD.PRX - FINSPDF600() -> CPENAT := EXECBLOCK ("SPDF6002",.F.,.F.)

FINXSPD.PRX - FINSPDM220() -> CORIGEM := EXECBLOCK ("SPDF1003",.F.,.F.)

FINXSPD.PRX - TRBF500() -> AIMPOST:= EXECBLOCK ("SPDF500I",.F.,.F., {AIMPOST})

FINXSPD.PRX - TRBF500() -> CORIGEM := EXECBLOCK ("SPDF1003",.F.,.F.)

FINXSPD.PRX - TRBF500() -> NBASE:= EXECBLOCK ("SPDF500B",.F.,.F.)

FIS828GRVFIN.PRW - FIS828GRVFIN() -> AF828G10  := EXECBLOCK("F828G10" ,.F.,.F.,{ACABSVEND,AITENSOPR})

FIS828GRVFIN.PRW - FIS828GRVFIN() -> AF828G2  := EXECBLOCK("F828G2" ,.F.,.F.,{ACABSVEND,AITENSDED})

FIS828GRVFIN.PRW - FIS828GRVFIN() -> AF828G3  := EXECBLOCK("F828G3" ,.F.,.F.,{ACABSVEND,AITENSDED})

FIS828GRVFIN.PRW - FIS828GRVFIN() -> AF828G4  := EXECBLOCK("F828G4" ,.F.,.F.,{ACABSCOMP,AITENSOPR})

FIS828GRVFIN.PRW - FIS828GRVFIN() -> AF828G5  := EXECBLOCK("F828G5" ,.F.,.F.,{ACABSVEND,AITENSDED})

FIS828GRVFIN.PRW - FIS828GRVFIN() -> AF828G6  := EXECBLOCK("F828G6" ,.F.,.F.,{ACABSVEND,AITENSDED})

FIS828GRVFIN.PRW - FIS828GRVFIN() -> AF828G7  := EXECBLOCK("F828G7" ,.F.,.F.,{ACABSCOMP,AITENSDED})

FIS828GRVFIN.PRW - FIS828GRVFIN() -> AF828G8  := EXECBLOCK("F828G8" ,.F.,.F.,{ACABSVEND,AITENSOPR})

FIS828GRVFIN.PRW - FIS828GRVFIN() -> AF828G9  := EXECBLOCK("F828G9" ,.F.,.F.,{ACABSCOMP,AITENSDED})

FISA001.PRW - A001CUPOM() -> CCONTA:=EXECBLOCK("SPDPIS07", .F., .F., {(CALIASSFT)->FT_FILIAL,;

FISA001.PRW - A001FOLHA() -> AM350AUX := EXECBLOCK("SPEDM350", .F., .F.,{FWGETCODFILIAL, DDATADE, DDATAATE})

FISA001.PRW - A001IMOB() -> ARETIMOB :=EXECBLOCK("SPDPCIMOB",.F.,.F.,{{},DDATADE,DDATAATE})

FISA001.PRW - A001PEDFAN() -> ASPDPCANT := EXECBLOCK("SPDPCANT", .F., .F., { AREGM300,AREGM700,DDATADE,DDATAATE } )

FISA001.PRW - A001PEDFAN() -> ASPDPCANT := EXECBLOCK("SPDPCANT", .F., .F., {AREGM300,AREGM700,DDATADE,DDATAATE } )

FISA001.PRW - A001PEDFAT() -> ASPDDIF := EXECBLOCK("SPDPCD", .F., .F., { DDATADE, DDATAATE } )

FISA001.PRW - A001PEF100() -> APEF100 := EXECBLOCK("SPDPIS09",.F.,.F.,{FWGETCODFILIAL,DDATADE,DDATAATE})

FISA001.PRW - A001PISSTR() -> ASPDPISTR := EXECBLOCK("SPDPISTR",.F.,.F.,{FWGETCODFILIAL,DDATADE,DDATAATE})

FISA001.PRW - A001SFTSAI() -> CCONTA:=EXECBLOCK("SPDPIS07", .F., .F., {(CALIASSFT)->FT_FILIAL,;

FISA001.PRW - A001SFTSAI() -> NBASECALC := EXECBLOCK("EFDCON02",.F.,.F.,{CALIASSFT})

FISA001.PRW - AJUSTECPRB() -> AREGPE210 := EXECBLOCK("SPEDCP210", .F., .F.,{ DDATADE, DDATAATE, ASM0,MV_PAR16  ,MV_PAR17 }  )

FISA001.PRW - EXEFDCON03() -> CCONTA:= EXECBLOCK("EFDCON03",.F.,.F.,{ CALIAS, SE1->E1_NUM, SE1->E1_PREFIXO, SE1->E1_PARCELA, SE1->E1_TIPO, SE1->E1_CLIENTE, SE1->E1_LOJA, SE1->E1_NATUREZ, NRECO })

FISA001.PRW - EXEFDCON03() -> CCONTA:= EXECBLOCK("EFDCON03",.F.,.F.,{ CALIAS, SE2->E2_NUM, SE2->E2_PREFIXO, SE2->E2_PARCELA, SE2->E2_TIPO, SE2->E2_FORNECE, SE2->E2_LOJA, SE2->E2_NATUREZ, NRECO })

FISA001.PRW - EXEFDCON03() -> CCONTA:= EXECBLOCK("EFDCON03",.F.,.F.,{ CALIAS, SE5->E5_NUMERO, SE5->E5_PREFIXO, SE5->E5_PARCELA, SE5->E5_TIPO, IIF( !EMPTY( ALLTRIM( SE5->E5_CLIENTE ) ) , SE5->E5_CLIENTE , SE5->E5_FORNECE ) , SE5->E5_LOJA, SE5->E5_NATUREZ, NRECO })

FISA001.PRW - QRYCDGCAIXA() -> APEF500 := EXECBLOCK("SPDF500C", .F. , .F. , {CFROM,CWHERE})

FISA001.PRW - SPEDFSFT() -> APEF500 := EXECBLOCK("SPDF500A", .F. , .F. , {CFROM,CWHERE})

FISA007.PRW - PRCC600() -> AREGC600 := EXECBLOCK("SPDPIS06",.F.,.F.,{AREGC600,CALIASSFT})

FISA007.PRW - PROCC100() -> ASPEDC100 := EXECBLOCK("SPDPIS05", .F., .F., {"SFT",ACMPANTSFT,0,CINDPAGTO,CFRETE})

FISA007.PRW - PROCC100() -> DDTENTRADA := EXECBLOCK("SPDPIS08", .F., .F., {"SFT", CCHAVE})

FISA007.PRW - PROCC170() -> ACST :=  EXECBLOCK("SPDFIS03", .F., .F., {(CALIASSFT)->FT_FILIAL,;

FISA007.PRW - PROCC170() -> CDESC := EXECBLOCK("SPDFIS04", .F., .F., {(CALIASSFT)->FT_FILIAL,;

FISA007.PRW - PROCSERIE() -> CNOVSERIE := EXECBLOCK("SPDFIS11",.F.,.F.,{CSERIE,CMODELO})

FISA008.PRW - BLOCOF() -> ARETIMOB := EXECBLOCK("SPDPCIMOB",.F.,.F.,{{},DDATADE,DDATAATE})

FISA008.PRW - FSA0080150() -> AREGAUX := EXECBLOCK( "SPED0150" , .F. , .F. , { APAR } )

FISA008.PRW - FSA0080200() -> AREGAUX:= EXECBLOCK("SPED0205", .F., .F., {OBLOCO0:GETDTDE(),OBLOCO0:GETDTATE(),SUBSTR(CPROD,1,TAMSX3("B1_COD")[1])})

FISA008.PRW - FSA0080200() -> ATIPO := EXECBLOCK("SPDFIS001", .F., .F., {ATIPO,CALIASSB1})

FISA008.PRW - FSA0080500() -> CCONTA:=EXECBLOCK("SPDPIS07", .F., .F., {(CALIASSFT)->FT_FILIAL,;

FISA008.PRW - FSA0080600() -> ARETCC := EXECBLOCK("SPDRA170", .F., .F., {CCUSTO,CALIASSFT})

FISA008.PRW - PRCCD5BLCC() -> APEIMPORT:=EXECBLOCK("SPDIMP",.F.,.F.,{ (CALIASSFT)->FT_NFISCAL,;

FISA008.PRW - PROCCDT() -> APEC110:=EXECBLOCK("SPDPISIC",.F.,.F.,{(CALIASSFT)->FT_NFISCAL, (CALIASSFT)->FT_SERIE, (CALIASSFT)->FT_CLIEFOR, (CALIASSFT)->FT_LOJA, (CALIASSFT)->FT_ENTRADA,(CALIASSFT)->FT_TIPOMOV})

FISA008.PRW - PROCECF() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {CALIASSFT})

FISA008.PRW - PROCEFD() -> PROC1800('1001000000001', OBLOCO1, EXECBLOCK("SPDPC1800",.F.,.F.,{{},MV_PAR01,MV_PAR02}))

FISA008.PRW - PROCNF() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {CALIASSFT})

FISA008.PRW - PROCNF() -> ASPDFIS02 := EXECBLOCK("SPDFIS02", .F., .F., {CALIASSFT,(CALIASSFT)->FT_TIPOMOV})

FISA008.PRW - REG0140() -> CNOME:= EXECBLOCK("SPDPC0140", .F., .F., {"SM0"})

FISA008.PRW - REG1900() -> ARETIMOB := EXECBLOCK("SPDPCIMOB",.F.,.F.,{{},DDATADE,DDATAATE})

FISA008.PRW - REG1900() -> CWHERE := EXECBLOCK("SPD1900A", .F. , .F. , {CWHERE})

FISA008.PRW - REGD350 () -> ASPDPISTR := EXECBLOCK("SPDPISTR",.F.,.F.,{NRELACFIL,MV_PAR01,MV_PAR02})

FISA010.PRX - FIS010EXL() -> AALIASADIC := EXECBLOCK("FS010ADEL", .F., .F.)

FISA010.PRX - FIS010EXL() -> LRETORNO := EXECBLOCK("FS010EXL",.F.,.F.)

FISA010.PRX - FIS010POS() -> AALIASADIC := EXECBLOCK("FS010ADEL", .F., .F.)

FISA010.PRX - FIS010POS() -> LRETORNO := EXECBLOCK("FS010EXL",.F.,.F.)

FISA022.PRW - FISA022TRS() -> EXECBLOCK("FISASQL01",.F.,.F.,{CALIASSF3,CSERIEINI,CSERIEFIM,CNOTAINI,CNOTAFIN,CWHERE,DDATAINI,DDATAFIM})

FISA022.PRW - FISA022TRS() -> IF !EXECBLOCK("FISVLNFSE",.F.,.F.,AVALNFE)

FISA022.PRW - FISMONITORX() -> EXECBLOCK("F022ATUNF",.F.,.F.,{CSERIE,CNUMERO,CPROTOCOLO,CRPS,CNOTA,AMSG,CURLNFSE})

FISA057.PRW - FIS57GERA() -> AXML := EXECBLOCK("FISA057XML",.F.,.F.,{CTIPO,ANOTAS[NX][3],ANOTAS[NX][4],ANOTAS[NX][5],ANOTAS[NX][6]})

FISA057.PRW - FIS57GERA() -> CNCAE:=EXECBLOCK("FIS57NCA",.F.,.F.,{CNCAE})

FISA057.PRW - MENUDEF() -> AROT := EXECBLOCK("FIS57MENU",.F.,.F.,{AROT})

FISA057.PRW - SINCBYFILE() -> EXECBLOCK("FIS57NOT",.F.,.F.,{1,CNUNNOTA,CSERNOTA,CTIPOCFE,CNUNDGI,CSERDGI,IIF(VAL(CTIPONOTA) < 500,'ENTRADA','SAIDA')})

FISA057.PRW - SINCBYWS() -> CNCAE:=EXECBLOCK("FIS57NCA",.F.,.F.,{CNCAE})

FISA057.PRW - SINCBYWS() -> EXECBLOCK("FIS57NOT",.F.,.F.,{1,CNROCAE,CSERCAE,CTIPOCFE,CNCAE,CSCAE,QRY->TYPE_NF})

FISA057XML.PRW - GERAXML() -> CREFGLOB := EXECBLOCK("FIS57XML",.F.,.F.,{2,APROD,NY,ADEST,ACABNF,APED,ARETMNTIV,CTIPO,CSTRING})

FISA057XML.PRW - GERAXML() -> CSTRING+= EXECBLOCK("FIS57XML",.F.,.F.,{3,APROD,1,ADEST,ACABNF,APED,ARETMNTIV,CTIPO,CSTRING})

FISA085.PRW - F085EXC() -> LEXCLUI:=EXECBLOCK("FIS85VLEX",.F.,.F.)

FISA085.PRW - F085GERA() -> APCAMPOS:=EXECBLOCK("FIS85APC",.F.,.F.,{APCAMPOS})

FISA085.PRW - F085GERA() -> EXECBLOCK("FIS85ARR",.F.,.F.)

FISA085.PRW - FIS85GERA() -> AXML := EXECBLOCK("FISA085XML",.F.,.F.,{ANOTAS[NX][1],ANOTAS[NX][2],ANOTAS[NX][3],ANOTAS[NX][4],ANOTAS[NX][5],ANOTAS[NX][6]})

FISA085.PRW - MENUDEF() -> ARET  := EXECBLOCK("FIS85MNU",.F.,.F.,ARET)

FISA088.PRW - FS088DEDUCC() -> CFILUSR:=EXECBLOCK("IETUFILP",.F.,.F.,{CQRYAUX})

FISA231.PRW - FISA231CMP() -> AFSA231UND := EXECBLOCK("FSA231UND", .F., .F., {CALIAS})

FISA234.PRW - REGPROD() -> ATIPO := EXECBLOCK("SPDFIS001", .F., .F., {ATIPO,CALIASMOV})

FISA800.PRW - TIMBRECFDI() -> EXECBLOCK( "FIS800T2" , .F. , .F. , {CNAMECFDI , CDOC , CSERIE , CESPECIE , CCLIEPROV , CLOJA} )

FISA800.PRW - TIMBRECFDI() -> EXECBLOCK( CCFDINC , .F. , .F. , {CDOC , CSERIE , CESPECIE , CCLIEPROV , CLOJA} )

FISA800.PRW - TIMBRECFDI() -> EXECBLOCK( CCFDINF , .F. , .F. , {CDOC , CSERIE , CESPECIE , CCLIEPROV , CLOJA} )

FISA804.PRW - ACTCXP() -> LOCAL CTIPOS := EXECBLOCK("FARGTIP",.F.,.F.)

FISA815.PRW - CREAXML() -> CNUMOP:=EXECBLOCK("F087ANUMOP",.F.,.F.,{APAGOS,NX})

FISA815.PRW - ENVRECMAIL() -> ABODYMAIL := EXECBLOCK("F998MAIL",.F.,.F.,AREC)

FISA815.PRW - FISA815() -> EXECBLOCK("F998IMPREC",.F.,.F.,ARECIBOS)

FISA815.PRW - FISA815() -> EXECBLOCK("FISA815I",.F.,.F.,ARECIBOS)

FISA815.PRW - FISA815() -> EXECBLOCK('A087TIPTI')

FISA815.PRW - FISA815() -> LLOGIMP := EXECBLOCK("FIS815PRG",.F.,.F.,{})

FISA815.PRW - FISA815() -> LLOGTIM := EXECBLOCK("FIS815LOG",.F.,.F.,{})

FISR012.PRW - GERARQ() -> LRETNSER:=EXECBLOCK("FISR12AS",.F.,.F.,{CSERIE,TRB4->F1_TPDOC})

FISX001.PRW - GRVAJUSTE() -> ARET := EXECBLOCK("EFDCON04", .F., .F.,APARAM)

FISX001.PRW - GRVTITULO() -> EXECBLOCK("CPCPOADC",.F.,.F.,{"SE2"})

FISXAPUR.PRX - AGETAPUR() -> AGETAPUR := EXECBLOCK("MGETAPUR",.F.,.F.,{"005",AGETAPUR})

FISXAPUR.PRX - AGETAPUR() -> AGETAPUR := EXECBLOCK("MGETAPUR",.F.,.F.,{"010",AGETAPUR})

FISXAPUR.PRX - AGETAPUR() -> AGETAPUR := EXECBLOCK("MGETAPUR",.F.,.F.,{"012",AGETAPUR})

FISXAPUR.PRX - CHECKAPUR() -> LPROCAPRET :=  EXECBLOCK("PROCAPUR", .F., .F.,{NANO,NMES})

FISXAPUR.PRX - CKAPURCDH() -> LPROCAPRET :=  EXECBLOCK("PROCAPUR", .F., .F.,{NANO,NMES})

FISXAPUR.PRX - FISICMF6() -> ADADOSTIT := EXECBLOCK("DADOSTIT", .F., .F., {CORIGEM})

FISXAPUR.PRX - FISSTF6() -> ADADOSTIT := EXECBLOCK("DADOSTIT", .F., .F., {CORIGEM})

FISXAPUR.PRX - GIARSVAB() -> CTABELA := EXECBLOCK("TABGIARS",.F.,.F.,{"SFT","SF4"})

FISXAPUR.PRX - GRAVATIT() -> ATITICMST := EXECBLOCK("TITICMST", .F., .F., {CORIGEM,CTIPOIMP, LDIFAL})

FISXAPUR.PRX - GRAVATIT() -> EXECBLOCK("CPAPUICMS",.F.,.F.,{"SE2"})

FISXAPUR.PRX - GRAVATIT() -> LGRAVASF6 := EXECBLOCK("INFOGNRE", .F., .F.)

FISXAPUR.PRX - LOADAPUR() -> ADEVOLUCOES := EXECBLOCK("APURDEV",.F.,.F.)

FISXAPUR.PRX - LOADAPUR() -> CCFO := EXECBLOCK("APURICM",.F.,.F.,{CCFO})

FISXAPUR.PRX - SF6TUDOOK() -> LAPURF6OK := EXECBLOCK("APURF6OK",.F.,.F.)

FISXAPUR.PRX - SHOWAPUR() -> AXNCM := EXECBLOCK("JOINCM",.F.,.F.)

FISXAPUR.PRX - XAPGRVSF6() -> SF6->F6_COBREC := EXECBLOCK("SPCOBREC",.F.,.F.,{SF6->F6_TIPOIMP,SF6->F6_EST})

FISXAPUR.PRX - XAPINCSF6() -> IF EXECBLOCK("APURF6CAN",.F.,.F.)

FISXAPURA.PRW - XAPURRF3() -> CCFO := EXECBLOCK("APURICM",.F.,.F.,{CCFO})

FISXATF.PRX - ATFPOPUTMP() -> EXECBLOCK("F120CUST",.F.,.F.,{CREG, CALIASTMP, CCODBEM, CITEM, CDESCR, DDATA, CDESCEXT, CTABORI, CNUMPRO, CINDPRO, NVALOR, CALIASSN1 })   

FISXATF.PRX - ATFPOPUTMP() -> NVLREXCL := EXECBLOCK("AF130EXC",.F.,.F.,{CALIASTMP})

FISXATF.PRX - DEPRECTMP() -> NVLREXCL := EXECBLOCK("AF120EXC",.F.,.F.,{CARQATIV,CCODBEM,CITEM,DDATA})

FISXATF.PRX - _ATFREGF130() -> CTMPWHERE := EXECBLOCK("ATFPR130",.F.,.F.,{LQUERY,CWHERE})

FISXATF.PRX - _ATFREGF130() -> NVLRBCPIS :=NVLRBCCOF := EXECBLOCK("DEPREATF",.F.,.F.,{CALIASSN1,CALIASSN1, "F130"})

FISXATF.PRX - _DEPRECATIVO() -> NBASECRED += EXECBLOCK("DEPREATF",.F.,.F.,{CALIASTMP,CALIASTMP, ""})/NMESES

FISXATF.PRX - _DEPRECATIVO() -> NBASECRED+= EXECBLOCK("DEPREATF",.F.,.F.,{"SN1","SN3",""})/NMESES

FISXATF.PRX - _DEPRECATIVO() -> NBASEITEM  := EXECBLOCK("DEPREATF",.F.,.F.,{"SN1","SN3",""})/NMESES

FISXATF.PRX - _DEPRECATIVO() -> NBASEITEM:= EXECBLOCK("DEPREATF",.F.,.F.,{CALIASTMP,CALIASTMP, ""})/NMESES

FISXATF.PRX - _DEPRECATIVO() -> NBASEITEM:= EXECBLOCK("DEPREATF",.F.,.F.,{CALIASTMP,CALIASTMP, "F120"})

FISXCOFINS.PRW - FISXCOFINS() -> AMACOFDIF := EXECBLOCK("MACOFDIF",.F.,.F.,{NITEM,NALIQCF2})

FISXCOFINS.PRW - FISXCOFINS() -> AMACOFVEIC := EXECBLOCK("MACOFVEIC",.F.,.F.,{NITEM,ANFITEM[NITEM][IT_BASECF2],ANFITEM[NITEM][IT_ALIQCF2],ANFITEM[NITEM][IT_VALCF2]})

FISXCOFINS.PRW - FISXCOFINS() -> EMPTY(ANFITEM[NITEM][IT_ALIQCF2]) .AND. ((APE[PE_MACSTPICO] .AND. !EXECBLOCK("MACSTPICO",.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$"04#06#73") .OR. (!APE[PE_MACSTPICO] .AND. ANFITEM[NITEM][IT_TS][TS_CSTCOF] $"04#06#73")) .AND. !LDC5602

FISXCOFINS.PRW - FISXCOFINS() -> IF ( APE[PE_MACSTPICO] .AND. EXECBLOCK("MACSTPICO",.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$"04#06#73") .OR. ( !APE[PE_MACSTPICO] .AND. ANFITEM[NITEM][IT_TS][TS_CSTCOF] $"04#06#73")

FISXCOFINS.PRW - FISXCOFINS() -> IF ( APE[PE_MACSTPICO] .AND. EXECBLOCK("MACSTPICO",.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$"04#06#73") .OR. (!APE[PE_MACSTPICO] .AND. (ANFITEM[NITEM][IT_TS][TS_CSTCOF] $"04#06#73" .OR. ANFITEM[NITEM][IT_TS][TS_PSCFST]== "3"))

FISXCOFINS.PRW - FISXCOFINS() -> IF EMPTY( ANFITEM[NITEM][IT_ALIQCF2] ) .AND. ((APE[PE_MACSTPICO] .AND. !EXECBLOCK("MACSTPICO",.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$"04#06#73") .OR. (!APE[PE_MACSTPICO] .AND. !ANFITEM[NITEM][IT_TS][TS_CSTCOF] $"04#06#73")) .AND. !LDC5602 .AND. !LZFMALQZ

FISXCOFINS.PRW - FISXCOFINS() -> LOCAL AMACCOFAPU := IIF( APE[PE_MACCOFAPU] .AND. !LTRIBCOF  .AND. "CF2" $ CTIPO, EXECBLOCK("MACCOFAPU", .F., .F., {NITEM, ANFITEM[NITEM][IT_PRODUTO], ANFITEM[NITEM][IT_TES], ANFCAB[NF_CLIFOR], ANFCAB[NF_CODCLIFOR], ANFCAB[NF_LOJA], ANFCAB[NF_OPERNF]}), ARRAY(3))

FISXFUN.PRX - AMODNOT() -> CCODIGO:= EXECBLOCK("MTMODNOT",.F.,.F.,CESPECIE)

FISXICMS.PRW - FISXBICMS() -> AMACALCICMS := EXECBLOCK("MACALCICMS",.F.,.F.,{ANFCAB[NF_OPERNF],NITEM,ANFITEM[NITEM][IT_BASEICM],ANFITEM[NITEM][IT_ALIQICM],ANFITEM[NITEM][IT_VALICM]})

FISXICMS.PRW - FISXBICMS() -> AMAICMVEIC := EXECBLOCK("MAICMVEIC",.F.,.F.,{NITEM,ANFITEM[NITEM][IT_BASEICM],ANFITEM[NITEM][IT_ALIQICM],ANFITEM[NITEM][IT_VALICM]})

FISXICMS.PRW - FISXBICMS() -> APAUTICMS := EXECBLOCK( "PAUTICMS" , .F. , .F. , { CALIASPROD , RIGHT(CALIASPROD,2)+"_INT_ICM" , NPAUTAICMS } )

FISXICMS.PRW - FISXVICMS() -> AMACALCICMS := EXECBLOCK("MACALCICMS",.F.,.F.,{ANFCAB[NF_OPERNF],NITEM,ANFITEM[NITEM][IT_BASEICM],ANFITEM[NITEM][IT_ALIQICM],ANFITEM[NITEM][IT_VALICM]})

FISXICMSST.PRW - FISVALSOL() -> AMASOLICMS := EXECBLOCK("MACSOLICMS",.F.,.F.,{ANFCAB[NF_OPERNF],NITEM,ANFITEM[NITEM][IT_BASESOL],ANFITEM[NITEM][IT_ALIQSOL],ANFITEM[NITEM][IT_VALSOL]})

FISXICMSST.PRW - FISXMARGEM() -> IF ( ANFITEM[NITEM][IT_PRD][SB_IVAAJU] == "1" .AND. (IIF(LRASTRO,LRASTROLOT := EXECBLOCK("MAFISRASTRO",.F.,.F.),ANFITEM[NITEM][IT_PRD][SB_RASTRO]=="S"))  )

FISXIPI.PRW - FISXIPI() -> AMAIPIVEIC := EXECBLOCK("MAIPIVEIC",.F.,.F.,{NITEM,ANFITEM[NITEM][IT_BASEIPI],ANFITEM[NITEM][IT_ALIQIPI],ANFITEM[NITEM][IT_VALIPI]})

FISXIR.PRW - XFISIRFPF() -> CADDWHERE := EXECBLOCK("MACALIRRF",.F.,.F., {CWHERE} )

FISXPIS.PRW - FISXPIS() -> AMAPISDIF := EXECBLOCK("MAPISDIF",.F.,.F.,{NITEM,NALIQPS2})

FISXPIS.PRW - FISXPIS() -> AMAPISVEIC := EXECBLOCK("MAPISVEIC",.F.,.F.,{NITEM,ANFITEM[NITEM][IT_BASEPS2],ANFITEM[NITEM][IT_ALIQPS2],ANFITEM[NITEM][IT_VALPS2]})

FISXPIS.PRW - FISXPIS() -> EMPTY(ANFITEM[NITEM][IT_ALIQPS2]) .AND. ((APE[PE_MACSTPICO] .AND. !EXECBLOCK("MACSTPICO",.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$"04#06#73") .OR. (!APE[PE_MACSTPICO] .AND. ANFITEM[NITEM][IT_TS][TS_CSTPIS] $"04#06#73")) .AND. !LDC5602

FISXPIS.PRW - FISXPIS() -> IF ( APE[PE_MACSTPICO] .AND. EXECBLOCK("MACSTPICO",.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$"04#06#73") .OR. ( !APE[PE_MACSTPICO] .AND. ANFITEM[NITEM][IT_TS][TS_CSTPIS] $"04#06#73")

FISXPIS.PRW - FISXPIS() -> IF ( APE[PE_MACSTPICO] .AND. EXECBLOCK("MACSTPICO",.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$"04#06#73") .OR. (!APE[PE_MACSTPICO] .AND. (ANFITEM[NITEM][IT_TS][TS_CSTPIS] $"04#06#73" .OR. ANFITEM[NITEM][IT_TS][TS_PSCFST]== "3"))

FISXPIS.PRW - FISXPIS() -> IF EMPTY( ANFITEM[NITEM][IT_ALIQPS2] ) .AND. ((APE[PE_MACSTPICO] .AND. !EXECBLOCK("MACSTPICO",.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$"04#06#73") .OR. (!APE[PE_MACSTPICO] .AND. !ANFITEM[NITEM][IT_TS][TS_CSTPIS] $"04#06#73")) .AND. !LDC5602 .AND. !LZFMALQZ

FISXPIS.PRW - FISXPIS() -> LOCAL AMACPISAPU := IIF( APE[PE_MACPISAPU] .AND. !LTRIBPIS .AND. "PS2" $ CTIPO , EXECBLOCK("MACPISAPU", .F., .F., {NITEM, ANFITEM[NITEM][IT_PRODUTO], ANFITEM[NITEM][IT_TES], ANFCAB[NF_CLIFOR], ANFCAB[NF_CODCLIFOR], ANFCAB[NF_LOJA], ANFCAB[NF_OPERNF]}), ARRAY(3))

FRTA010A.PRW - APOS O FECHAMENTO DO CUPOM FISCAL³() -> EXECBLOCK("FRTENTREG", .F., .F., { ACRDCLIENTE, CCODDEP, CNOMEDEP, APGTOS })

FRTA010A.PRW - FRT010PGPE() -> XRET := EXECBLOCK("FRTFPAG", .F., .F., {CFORMA, ;

FRTA010A.PRW - FRTA010() -> OCODPROD:BLOSTFOCUS := {|| IF(!_LOK .AND. !EMPTY(CCODPROD),(_LOK:=.T.,AKEYAUX:=FRTSETKEY(),IF(LUSALEITOR,LEITORFOCO(NHDLLEITOR,.F.),),FRTPRODOK(,,,.T.),IF(LFRTGETPR,EXECBLOCK("FRTGETPR",.F.,.F.,{CCODPROD}),),FRTSETKEY(AKEYAUX),_LOK:=.F.),)}

FRTA010A.PRW - FRTA010() -> {|| IF(EXISTBLOCK("FRTCTRLT"),EXECBLOCK("FRTCTRLT",.F.,.F.),)},;

FRTA010A.PRW - FRTA010() -> {|| IF(EXISTBLOCK("FRTCTRLU"),EXECBLOCK("FRTCTRLU",.F.,.F.),)},;

FRTA010A.PRW - FRTA010() -> {|| IF(EXISTBLOCK("FRTCTRLV"),EXECBLOCK("FRTCTRLV",.F.,.F.),)},;

FRTA010A.PRW - FRTA010() -> {|| IF(EXISTBLOCK("FRTCTRLW"),EXECBLOCK("FRTCTRLW",.F.,.F.),)},;

FRTA010A.PRW - FRTABRECX() -> CSTRING := EXECBLOCK("FRTABRCX", .F., .F., {CSUPERVISOR})

FRTA010A.PRW - FRTALTCLI() -> @ 13, 15 MSGET OCLIFRT VAR CCLIFRT SIZE 40, 10 OF ODLGALTCLI F3 "FCL" PIXEL VALID ( EXISTCPO("SA1",CCLIFRT+CLOJFRT), IIF( EXISTBLOCK( "FRT010BL" ), EXECBLOCK( "FRT010BL", .F., .F., { CCLIFRT + CLOJFRT } ), NIL ) )

FRTA010A.PRW - FRTALTCLI() -> @ 13, 60 MSGET OLOJFRT VAR CLOJFRT SIZE 15, 10 OF ODLGALTCLI PIXELVALID ( EXISTCPO("SA1",CCLIFRT+CLOJFRT), IIF( EXISTBLOCK( "FRT010BL" ), EXECBLOCK( "FRT010BL", .F., .F., { CCLIFRT + CLOJFRT } ), NIL ) )

FRTA010A.PRW - FRTALTCLI() -> EXECBLOCK("FRT010CL")

FRTA010A.PRW - FRTCANCCUP() -> EXECBLOCK("FRTCANCELA",.F.,.F.,{2,CSUPERVISOR})

FRTA010A.PRW - FRTCANCCUP() -> XRET := EXECBLOCK("FRTCANCCF",.F.,.F.,{CNUMCUP})

FRTA010A.PRW - FRTCANCIT() -> AAUX := EXECBLOCK("FRTCODB2",.F.,.F.,AAUX)

FRTA010A.PRW - FRTCANCIT() -> EXECBLOCK("FRTCANCELA",.F.,.F.,{1,CSUPERVISOR})

FRTA010A.PRW - FRTCANCIT() -> NI := EXECBLOCK("FRTCODBR",.F.,.F.,{AITENS})

FRTA010A.PRW - FRTCONDNEG() -> ARETNEG := EXECBLOCK("L10RETNG",.F.,.F.,{ARETNEG})

FRTA010A.PRW - FRTCONDNEG() -> EXECBLOCK("L10NEGOC",.F.,.F.)

FRTA010A.PRW - FRTCONDPAG() -> CCONDPAG := EXECBLOCK( "FRTCONDPAG", .F., .F. )

FRTA010A.PRW - FRTCONDPAG() -> EXECBLOCK("FRTPGTODP", .F., .F., { CTMPCONDPAG })

FRTA010A.PRW - FRTDESCTOT() -> IF ! EXECBLOCK("FRTDESCTOT",.F.,.F.)

FRTA010A.PRW - FRTENCERRA() -> AAUX := EXECBLOCK("FORMSTRC",.F.,.F.)

FRTA010A.PRW - FRTENCERRA() -> ARETPE := EXECBLOCK("FRTFINVEN", .F., .F., {NTOTDEDICMS, AITENS, CCLIENTE, CLOJACLI,;

FRTA010A.PRW - FRTENCERRA() -> ASL4 := EXECBLOCK("FRTGRSL4",.F.,.F.,{ASL4,NI})

FRTA010A.PRW - FRTFIMVEND() -> ASETKEY := { {|| IF(EXISTBLOCK("FRTF4ENC"),EXECBLOCK('FRTF4ENC ',.F.,.F.,{AFORMPAG}),)},;

FRTA010A.PRW - FRTFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK("FRTALTPG",.F.,.F.,{,,CHR(NZ)}),.T.))

FRTA010A.PRW - FRTFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK("FRTALTPG",.F.,.F.,{AFORMPAG[LEN(AFORMPAG)-1][1], AFORMPAG[LEN(AFORMPAG)-1][2],}),.T.))

FRTA010A.PRW - FRTFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK("FRTALTPG",.F.,.F.,{AFORMPAG[LEN(AFORMPAG)][1], AFORMPAG[LEN(AFORMPAG)][2],}),.T.))

FRTA010A.PRW - FRTFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK("FRTALTPG",.F.,.F.,{AFORMPAG[NI][1],AFORMPAG[NI][2],}),.T.))

FRTA010A.PRW - FRTFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK("FRTALTPG",.F.,.F.,{AFORMPAG[NPOSSIMB][1], AFORMPAG[NPOSSIMB][2],}),.T.))

FRTA010A.PRW - FRTFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK("FRTALTPG",.F.,.F.,{EVAL(BDSCMOEDA), EVAL(BSMBMOEDA),}),.T.))

FRTA010A.PRW - FRTFORMPAG() -> ARETFORMPAG := EXECBLOCK( "FRTFORMPAG" , .F., .F., {AFORMPAG, CDESC, CFORMA, CGRUPO, NVLRTOTAL, NVLRDESCTOT} )

FRTA010A.PRW - FRTFORMPAG() -> SL1->(FIELDPOS("L1_TROCO1"))>0),.T.,IF(EXISTBLOCK("FRTVMAX"),EXECBLOCK("FRTVMAX",.F.,.F.,{ CFORMA ,CDESC ,NVALOR ,NVALMAX }),NVALOR <= NVALMAX))),.T.)), ;

FRTA010A.PRW - FRTFUNCOES() -> AFUNCOES := EXECBLOCK("FRTFUNCOES",.F.,.F.,AFUNCOES)

FRTA010A.PRW - FRTFUNCOES() -> EXECBLOCK("FRTFUNCSAI",.F.,.F.)

FRTA010A.PRW - FRTHORA() -> CDOC := EXECBLOCK("FRTNUMCF",.F.,.F.,APARAM)

FRTA010A.PRW - FRTPRODOK() -> AAUX := EXECBLOCK( "FRTCODB2", .F., .F., AAUX )

FRTA010A.PRW - FRTPRODOK() -> AAUX := EXECBLOCK("FRTCODB3",.F.,.F.,AAUX)

FRTA010A.PRW - FRTPRODOK() -> AAUX := EXECBLOCK("FRTQUANT",.F.,.F.,{NTMPQUANT,NVLRUNIT,NQUANT,CBCONTA,NVLRTOTAL,CCODPROINI})

FRTA010A.PRW - FRTPRODOK() -> AFRTCLICHE := EXECBLOCK("FRTCLICHE", .F., .F.)

FRTA010A.PRW - FRTPRODOK() -> AFRTKIT := EXECBLOCK("FRTKIT",.F.,.F.,{CCODPROD,NTMPQUANT})

FRTA010A.PRW - FRTPRODOK() -> ARET := EXECBLOCK("FRTDESCIT",.F.,.F.,{CCODPROD, NVLRPERCIT, NVLRDESCIT, NVLRITEM})

FRTA010A.PRW - FRTPRODOK() -> ATMPPROD := EXECBLOCK("FRTPRODOK",.F.,.F.,{CCODPROD, NQUANT})

FRTA010A.PRW - FRTPRODOK() -> CFRTCODB := EXECBLOCK("FRTCODB1",.F.,.F.,{CCODPROD})

FRTA010A.PRW - FRTPRODOK() -> LSTATUSIMP13 := EXECBLOCK("FRTECF13",.F.,.F.,{CCODPROD, NVLRUNIT, NQUANT})

FRTA010A.PRW - FRTRECEB() -> AFRTCLICHE := EXECBLOCK("FRTCLICHE", .F., .F.)

FRTA010A.PRW - FRTRESUME() -> AAUX := EXECBLOCK("FRTCODB2",.F.,.F.,AAUX)

FRTA010A.PRW - FRTRESUME() -> AAUX := EXECBLOCK("FRTCODB3",.F.,.F.,AAUX)

FRTA010A.PRW - FRTRESUME() -> AFRTCLICHE := EXECBLOCK("FRTCLICHE", .F., .F.)

FRTA010A.PRW - FRTSTART() -> EXECBLOCK("FRTABRECF",.F.,.F.,{NHDLECF,CIMPRESSORA,CPORTA})

FRTA010C.PRW - FRTCLIENTE() -> ACAMPOSINC := EXECBLOCK("FRTCPSA1", .F., .F., ACAMPOSINC)

FRTA010C.PRW - FRTCLIENTE() -> ASA1 := EXECBLOCK("FRTGRSA1", .F., .F., ASA1)

FRTA010C.PRW - FRTRPCORC() -> LUSASL1 := EXECBLOCK( "FRTL1RPC", .F., .F.,{"SL1"} )

FRTA020.PRW - FRTGRAVASZ() -> AFILES := EXECBLOCK("FRTGRVSZ",.F.,.F.,{OSERVER})

FRTA040.PRW - FRTARQUIVOS() -> AFILES := EXECBLOCK("FRTCARGA",.F.,.F.,{AFILES})

FRTA040.PRW - GERACARGA() -> LREGAT := EXECBLOCK("FRTREGAT",.F.,.F., {CARQUIVO})

FRTA050.PRW - FRT050CONF() -> EXECBLOCK("FRT050ST",.F.,.F.,{NCHECK,CCAIXASUP,NDINHEIR,NCHEQUES,NCARTAO,NVLRDEBI,NFINANC,NCONVENI,NVALES,NOUTROS})

FRTA050.PRW - FRT050CONF() -> LVLDPE := EXECBLOCK("FRT050SB",.F.,.F.,{NCHECK,CCAIXASUP,NDINHEIR,NCHEQUES,NCARTAO,NVLRDEBI,NFINANC,NCONVENI,NVALES,NOUTROS,CCODORIGEM,CCODDESTIN})

FRTA050.PRW - FRT050GRV () -> EXECBLOCK("LJ7050GRV",.F.,.F.,{NRECNOSE5})

FRTA271.PRW - FRTRESUME() -> EXECBLOCK("FRTCANCELA",.F.,.F.,{1,CSUPERVISOR})

FRTA271A.PRW - FR271AABRECX() -> CSTRING := EXECBLOCK("FRTABRCX", .F., .F., {CSUPERVISOR})

FRTA271A.PRW - FR271APRODOK() -> AAUX := EXECBLOCK( "FRTCODB2", .F., .F., AAUX )

FRTA271A.PRW - FR271APRODOK() -> AAUX := EXECBLOCK("FRTCODB3",.F.,.F.,AAUX)

FRTA271A.PRW - FR271APRODOK() -> AAUX := EXECBLOCK("FRTQUANT",.F.,.F.,{NTMPQUANT,NVLRUNIT,NQUANT,CBCONTA,NVLRTOTAL,CCODPROD,CCODPROINI})

FRTA271A.PRW - FR271APRODOK() -> AFRTCLICHE := EXECBLOCK("FRTCLICHE", .F., .F., {CVENDLOJA})

FRTA271A.PRW - FR271APRODOK() -> AFRTKIT := EXECBLOCK("FRTKIT",.F.,.F.,{CCODPROD,NTMPQUANT})

FRTA271A.PRW - FR271APRODOK() -> ARET := EXECBLOCK("FRTDESCIT",.F.,.F.,{ CCODPROD,NVLRPERCIT,NVLRDESCIT,NVLRITEM,;

FRTA271A.PRW - FR271APRODOK() -> CFRTCODB := EXECBLOCK("FRTCODB1",.F.,.F.,{CCODPROD})

FRTA271A.PRW - FR271APRODOK() -> LSTATUSIMP13 := EXECBLOCK("FRTECF13",.F.,.F.,{CCODPROD, NVLRUNIT, NQUANT})

FRTA271C.PRW - FR271CCLIENTE() -> ACAMPOSINC := EXECBLOCK("FRTCPSA1", .F., .F., ACAMPOSINC)

FRTA271C.PRW - FR271CCLIENTE() -> ASA1 := EXECBLOCK("FRTGRSA1", .F., .F., ASA1)

FRTA271C.PRW - FR271CMYCALL() -> XRET := EXECBLOCK( "FRTCALLRPC", .F.,.F.,{CFUNCAO})

FRTA271C.PRW - FR271CRPCORC() -> LUSASL1 := EXECBLOCK( "FRTL1RPC", .F., .F.,{"SL1"} )

FRTA271C.PRW - FR271CRPCORC() -> LUSASL1 := EXECBLOCK( "FRTL1RPC", .F.,.F.,{CSL1TEMP,CVENDLOJA} )

FRTA271D.PRW - FR271CSAN() -> AFRT272BASS := EXECBLOCK("FRT272BASS", .F., .F.)

FRTA271D.PRW - FR271D050CONF() -> EXECBLOCK("FRT050ST",.F.,.F.,{NCHECK,CCAIXASUP,NDINHEIR,NCHEQUES,NCARTAO,NVLRDEBI,NFINANC,NCONVENI,NVALES,NOUTROS,NVLRPAGDIG,NVLRPAGPIX})

FRTA271D.PRW - FR271D050CONF() -> EXECBLOCK(CROTCOMPR,.F.,.F.,{NCHECK,CCODORIGEM,CCODDESTIN,NDINHEIR,NCHEQUES,NCARTAO,NVLRDEBI,NFINANC,NCONVENI,NVALES,NOUTROS,ASIMBS,NVLRPAGDIG,NVLRPAGPIX})

FRTA271D.PRW - FR271D050CONF() -> LVLDPE := EXECBLOCK("FRT050SB",.F.,.F.,{NCHECK,CCAIXASUP,NDINHEIR,NCHEQUES,NCARTAO,NVLRDEBI,NFINANC,NCONVENI,NVALES,NOUTROS,CCODORIGEM,CCODDESTIN,NVLRPAGDIG,NVLRPAGPIX})

FRTA271D.PRW - FR271D050GRV () -> EXECBLOCK("FRTDGRE5",.F.,.F.,{ SE5->(RECNO()) })

FRTA271E.PRW - FR271EALTCLI() -> @ 13, 15 MSGET OCLIFRT VAR CCLIFRT SIZE 40, 10 OF ODLGALTCLI F3 "FCL" PIXEL VALID ( EXISTCPO("SA1",CCLIFRT+CLOJFRT), IIF( LFRT010BL, EXECBLOCK( "FRT010BL", .F., .F., { CCLIFRT + CLOJFRT } ), NIL ) )

FRTA271E.PRW - FR271EALTCLI() -> @ 13, 60 MSGET OLOJFRT VAR CLOJFRT SIZE 15, 10 OF ODLGALTCLI PIXELVALID ( EXISTCPO("SA1",CCLIFRT+CLOJFRT), IIF( LFRT010BL, EXECBLOCK( "FRT010BL", .F., .F., { CCLIFRT + CLOJFRT } ), NIL ) )

FRTA271E.PRW - FR271EALTCLI() -> ACTION  IIF((IIF( LFRT010BL, EXECBLOCK( "FRT010BL", .F., .F., { CCLIFRT + CLOJFRT } ), .T. ),EXISTCPO("SA1",CCLIFRT+CLOJFRT)), ;

FRTA271E.PRW - FR271EALTCLI() -> EXECBLOCK("FRT010CL")

FRTA271E.PRW - FR271EFIMVEND() -> ADESCTOT := EXECBLOCK("FRTDESCVEN")

FRTA271E.PRW - FR271EFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK("FRTALTPG",.F.,.F.,{"",CHR(NZ),LRECEBE}),.T.))

FRTA271E.PRW - FR271EFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK("FRTALTPG",.F.,.F.,{AFORMPAG[LEN(AFORMPAG)-1][1], AFORMPAG[LEN(AFORMPAG)-1][2],LRECEBE}),.T.))

FRTA271E.PRW - FR271EFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK("FRTALTPG",.F.,.F.,{AFORMPAG[LEN(AFORMPAG)][1], AFORMPAG[LEN(AFORMPAG)][2],LRECEBE}),.T.) )

FRTA271E.PRW - FR271EFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK("FRTALTPG",.F.,.F.,{AFORMPAG[NI][1],AFORMPAG[NI][2],LRECEBE}),.T.))

FRTA271E.PRW - FR271EFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK("FRTALTPG",.F.,.F.,{AFORMPAG[NPOSSIMB][1], AFORMPAG[NPOSSIMB][2],LRECEBE}),.T.))

FRTA271E.PRW - FR271EFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK("FRTALTPG",.F.,.F.,{EVAL(BDSCMOEDA), EVAL(BSMBMOEDA),LRECEBE}),.T.))

FRTA271F.PRW - FR271FCANCCUP() -> EXECBLOCK("FRTCANCELA",.F.,.F.,{2,CSUPERVISOR,NIL,UPRODTPL})

FRTA271F.PRW - FR271FCANCCUP() -> XRET := EXECBLOCK("FRTCANCCF",.F.,.F.,{CNUMCUP})

FRTA271F.PRW - FR271FDESCTOT() -> IF ! EXECBLOCK("FRTDESCTOT",.F.,.F.)

FRTA271F.PRW - FR271FFORMPAG() -> ARETFORMPAG := EXECBLOCK( "FRTFORMPAG" , .F., .F., {AFORMPAG, CDESC, CFORMA, CGRUPO, NVLRTOTAL, NVLRDESCTOT,APGTOS} )

FRTA271F.PRW - FR271FFUNCOES() -> EXECBLOCK("FRTFUNCSAI",.F.,.F.)

FRTA271F.PRW - FR271FREDUCAO() -> EXECBLOCK("LOJA160",.F.,.F.)

FRTA271G.PRW - := "ATTISMEMBEROF"() -> EXECBLOCK("LJ7079", .F.,.F., {NREFADMS,APGTOS})

FRTA271G.PRW - APÓS O FECHAMENTO DO CUPOM FISCAL*/() -> EXECBLOCK("FRTENTREG", .F., .F., { ACRDCLIENTE, CCODDEP , CNOMEDEP  , APGTOS,;

FRTA271G.PRW - FR271GENCERRA() -> AAUX := EXECBLOCK("FORMSTRC",.F.,.F.)

FRTA271G.PRW - FR271GENCERRA() -> AFRTCLICHE := EXECBLOCK("FRTCLICHE", .F., .F.)

FRTA271G.PRW - FR271GENCERRA() -> ASL4 := EXECBLOCK("FRTGRSL4",.F.,.F.,{ASL4,NI})

FRTA271G.PRW - FR271GENCERRA() -> CMSGNCM  := SUBSTR( EXECBLOCK("LJ7078",.F.,.F.,{NTOTVLRNCM,NTOTIMPNCM,NTOTIMPFED,NTOTIMPEST,NTOTIMPMUN}),1,56)

FRTA271G.PRW - FR271GENCERRA() -> LGERTROCO := EXECBLOCK("FRTTROCO", .F.,.F., {LDINHEIRO, NVALES, APGTOS})

FRTA271G.PRW - FR271GVLDOKVP() -> LRET := EXECBLOCK( "LJ7094",.F.,.F.,{ACOLS,NVALOR,NSOMAVP} )

FRTA271H.PRW - FR271HCONDPAG() -> XRET  := EXECBLOCK("FRTPGTODP", .F., .F., { CTMPCONDPAG, APGTOS })

FRTA271H.PRW - FR271HNEGCOND () -> ARETNEG := EXECBLOCK("L10RETNG",.F.,.F.,{ARETNEG})

FRTA271H.PRW - FR271HNEGCOND () -> EXECBLOCK("L10NEGOC",.F.,.F.)

FRTA271I.PRW - FR271IEFCANC() -> AAUX := EXECBLOCK("FRTCODB2",.F.,.F.,AAUX)

FRTA271I.PRW - FR271IEFCANC() -> EXECBLOCK("FRTCANCELA",.F.,.F.,{1,CSUPERVISOR,AITENS[NI][AIT_ITEM],UPRODTPL})

FRTA271I.PRW - FR271IRCEL() -> AFRTCLICHE := EXECBLOCK("FRTCLICHE", .F., .F.)

FRTA272A.PRW - "FRT010CL", QUALQUER TIPO DE VALOR. O TRATAMENTO DA VARIÁVEL DEVERÁ SER REALIZADO  ³() -> IF(LFRTGETPR,EXECBLOCK("FRTGETPR",.F.,.F.,{CCODPROD}),),FRTSETKEY(AKEYAUX),_LOK:=.F.),)}

FRTA272A.PRW - "FRT010CL", QUALQUER TIPO DE VALOR. O TRATAMENTO DA VARIÁVEL DEVERÁ SER REALIZADO  ³() -> {|| IF(EXISTBLOCK("FRTCTRLT"),EXECBLOCK("FRTCTRLT",.F.,.F.,{LOCIOSO, CCLIENTE, CLOJACLI}),)},;

FRTA272A.PRW - "FRT010CL", QUALQUER TIPO DE VALOR. O TRATAMENTO DA VARIÁVEL DEVERÁ SER REALIZADO  ³() -> {|| IF(EXISTBLOCK("FRTCTRLU"),EXECBLOCK("FRTCTRLU",.F.,.F.,{LOCIOSO, CCLIENTE, CLOJACLI}),)},;

FRTA272A.PRW - "FRT010CL", QUALQUER TIPO DE VALOR. O TRATAMENTO DA VARIÁVEL DEVERÁ SER REALIZADO  ³() -> {|| IF(EXISTBLOCK("FRTCTRLV"),EXECBLOCK("FRTCTRLV",.F.,.F.,{LOCIOSO, CCLIENTE, CLOJACLI}),)},;

FRTA272A.PRW - "FRT010CL", QUALQUER TIPO DE VALOR. O TRATAMENTO DA VARIÁVEL DEVERÁ SER REALIZADO  ³() -> {|| IF(EXISTBLOCK("FRTCTRLW"),EXECBLOCK("FRTCTRLW",.F.,.F.,{LOCIOSO, CCLIENTE, CLOJACLI}),)},;

FRTA272A.PRW - FR272AALTPGSI() -> XRET := EXECBLOCK( "FRT272ATP", .F., .F.,{NLINHA ,APGTOS ,APGTOSSINT ,NVLRTOTAL} )

FRTA272A.PRW - FRTX272DESC() -> IF LFRTDESCITT .AND. !EXECBLOCK("FRTITDESC")

FRTA272A.PRW - FRTX272T02() -> NI := EXECBLOCK("FRTCODBR",.F.,.F.,{AITENS})

FRTA272A.PRW - FRTX272T03() -> IF(EXISTBLOCK("FRTVMAX"),EXECBLOCK("FRTVMAX",.F.,.F.,{ CFORMA ,CDESC ,NVALOR ,NVALMAX }),NVALOR <= NVALMAX)),.T.)), ;

FRTA272A.PRW - FRTX272T03() -> OKEYB:SETENTER({|| IF(IF(EXISTBLOCK("FRTFPAG"),EXECBLOCK("FRTFPAG",.F.,.F.,{CFORMA,CDESC,DDATA,NNUMPARC,NTXJUROS,NINTERVALO,NVALOR}),.T.),(NOPC:=1, OFORMPAG:END()),)})

FRTA273A.PRW - DISPARAPRODUTO() -> IF(LFRTGETPR,EXECBLOCK("FRTGETPR",.F.,.F.,{CCODPROD}),),;

FRTA273A.PRW - FRT273TS() -> IF(LFRTGETPR,EXECBLOCK("FRTGETPR",.F.,.F.,{CCODPROD}),),FRTSETKEY(AKEYAUX),_LOK:=.F.),)}

FRTA273A.PRW - FRT273TS() -> OOPGER:ADD("O", BTNITEM():NEW( "012", SUPERGETMV("MV_TITBOT",.F.,"BOTAO"), { || EXECBLOCK( "FRTFUNCCLI", .F., .F. ) } ) )

FRTA273A.PRW - FRT273TS() -> OOPVEN:ADD("O", BTNITEM():NEW( "001", SUPERGETMV("MV_TITBOT",.F.,"BOTAO"), { || EXECBLOCK( "FRTFUNCCLI", .F., .F. ) } ) )

FRTA273A.PRW - FRT273TS() -> { || EXECBLOCK( "FRTFUNCCLI", .F., .F. ) },;

FRTA273A.PRW - FRT273TS() -> {|| IF(EXISTBLOCK("FRTCTRLT"),EXECBLOCK("FRTCTRLT",.F.,.F.),)},;

FRTA273A.PRW - FRT273TS() -> {|| IF(EXISTBLOCK("FRTCTRLU"),EXECBLOCK("FRTCTRLU",.F.,.F.,{LOCIOSO}),)},;

FRTA273A.PRW - FRT273TS() -> {|| IF(EXISTBLOCK("FRTCTRLV"),EXECBLOCK("FRTCTRLV",.F.,.F.,{LOCIOSO}),)},;

FRTA273A.PRW - FRT273TS() -> {|| IF(EXISTBLOCK("FRTCTRLW"),EXECBLOCK("FRTCTRLW",.F.,.F.),)},;

FRTA273A.PRW - FRTVBUT() -> IF(LFRTGETPR,EXECBLOCK("FRTGETPR",.F.,.F.,{CCODPROD}),),;

GCPA009.PRW - GCPA009() -> NGCP9QTD := EXECBLOCK('GCP9QTD',.F.,.F.,{CALIASQRY})

GCPA100.PRW - MENUDEF() -> IF VALTYPE(AGCP100MN := EXECBLOCK( "GCP100MN", .F., .F., {AROTINA}) ) == "A"

GCPA200.PRW - MENUDEF() -> AUSERBUTT := EXECBLOCK( 'GCPA200', .F., .F., { NIL , "MENUDEF" , 'GCPA200' } )

GCPXFUN.PRW - GCPSELSC() -> CFILTRO := EXECBLOCK("GCPXSCFIL",.F.,.F.)

GCPXFUN.PRW - GCPXATA() -> AGCP9QRY := EXECBLOCK('GCP9QRY',.F.,.F.)

GCPXFUN.PRW - GCPXCOMCEN() -> AVETTST := EXECBLOCK("GCP2HEAD",.F.,.F. ,{ARQTRB->C1_NUMPR,AVETOR})

GCPXFUN.PRW - GCPXEDITAL() -> AGCP9QRY := EXECBLOCK('GCP9QRY',.F.,.F.)

GCPXFUN.PRW - GCPXGERCT() -> EXECBLOCK("GCP13GRV",.F.,.F.,{ALOGREG})

GCPXFUN.PRW - GCPXGERPED() -> ARET := EXECBLOCK("GCP011PED",.F.,.F.,{ACAB,AITENS,ARATCTB})

GCPXFUN.PRW - GCPXPEDCV() -> NGCP9QTD := EXECBLOCK('GCP9QTD',.F.,.F.,{CALIASTMP})

GEMA102.PRW - GEMA102(CALIAS,N() -> EXECBLOCK("GEM102RE",.F.,.F.,{M->LIZ_NCONTR, APONTOENTRA})

GEMA120.PRW - A120GRAVA() -> ARETCPOS := EXECBLOCK("GM120DISTR", .F.,.F.,{ACAMPOS})

GEMA120.PRW - A120GRAVA() -> EXECBLOCK("GM120LJD", .F.,.F.)

GEMA120.PRW - A120VLDFORN() -> LEXISTE := EXECBLOCK("GM120SA2", .F., .F. )

GEMA120.PRW - GMA120FORNEC( CCODFOR() -> LEXISTE := EXECBLOCK("GM120SA2", .F., .F. )

GEMA120.PRW - GMDISTRAPROV(CCONTRAT() -> LRETORNO := EXECBLOCK("GM120APROV", .F.,.F.,{CCONTRATO})

GEMA143.PRW - GEMA143INC() -> CCODNEW := EXECBLOCK( "GEMA143INC", .F., .F., APARAM )

GEMA160.PRW - A160GRAVA() -> EXECBLOCK("GEMA160GRV",.F.,.F.)

GEMXFIN.PRW - GMGERPRITIT( CSISTEM() -> ATITULOS := EXECBLOCK("GMFIN02",.F.,.F.,{CSISTEMA ,NTAXA ,NINDCM ,NINTERVALO ,NQTDTITULOS ,NCAPITAL })

GEMXFUN.PRW - AUXCMCONTR() -> ACUSTOMCM := EXECBLOCK("GMCALCCM",.F.,.F.,{NVLRTITULO,NAMORBASE,NDECINDCM})

GEMXFUN.PRW - AUXGEMXIPCON() -> EXECBLOCK("GEMVCON", .F., .F. )

GEMXFUN.PRW - GEMDLGCON()() -> EXECBLOCK("GEMCMCONTR",.F., .F., { SF2->(RECNO()), LIT->(RECNO()) } )

GEMXFUN.PRW - GMBLQCM() -> LRET := EXECBLOCK("PEBLQCM",.F.,.F.)

GEOXFUN.PRX - GEOMAPROUTE() -> AUSBUTTONS := ACLONE( EXECBLOCK( "GEOMRBUT", .F., .F. ) )

GFEA032.PRW - CANCREGENTR() -> EXECBLOCK( "GFEA0515",.F.,.F.,{2})

GFEA032.PRW - GFE32REGET() -> EXECBLOCK( "GFEA0513",.F.,.F.,{CDTOCOR,CHROCOR,3})

GFEA032.PRW - GFEA032APR() -> LRET := EXECBLOCK("GFEA032E",.F.,.F.,)

GFEA032.PRW - GFEA032CA() -> NREENTREGA := EXECBLOCK("GFEA032F",.F.,.F.,{CNUMOCOR,CNUMCALC})

GFEA032.PRW - GFEA032CAN() -> EXECBLOCK("GFEA032C",.F.,.F.)

GFEA032.PRW - GFEA032CMT() -> EXECBLOCK("GFEA032B",.F.,.F.,{NROCO,"2",2})

GFEA032.PRW - GFEA032GWL() -> ARET := EXECBLOCK("GFEA0327",.F.,.F.,{APOS,LEN(APOS),ASTRUCT})

GFEA032.PRW - GFEA32CAL() -> ACALC := EXECBLOCK("GFEA0328",.F.,.F.,{ACALC,LEN(ACALC[1])})

GFEA032.PRW - GFEA32FDC() -> CFILTER := EXECBLOCK("GFEA0326",.F.,.F.,{CFILTER})

GFEA032.PRW - GFEA32LOAD() -> CQUERY := EXECBLOCK("GFEA0324",.F.,.F.,{(CQUERY)})

GFEA032.PRW - GFEA32LOAD() -> EXECBLOCK("GFEA0325",.F.,.F.,{(CALIGWU),(CGWUFIL)})

GFEA032.PRW - GFEA32LOAD() -> EXECBLOCK("GFEA0329",.F.,.F.,{(CALIGWU),ACALC ,NI})

GFEA032.PRW - GFEA32LOAD() -> EXECBLOCK("GFEA0329",.F.,.F.,{(CALIGWU),AROM,NI})

GFEA032.PRW - GFEA32REL() -> AROM := EXECBLOCK("GFEA0328",.F.,.F.,{AROM,LEN(AROM[1])})

GFEA032.PRW - GFEA519BRP()() -> EXECBLOCK("GFEA0321",.F.,.F.)

GFEA032.PRW - GFEAPROV() -> EXECBLOCK("GFEA032B",.F.,.F.,{GWD->GWD_NROCO,CSITUACAO,1})

GFEA044.PRW - GFE44POST() -> NRETPE := EXECBLOCK("GFEA0441",.F.,.F.,{NQTDE_GWB})

GFEA044.PRW - GFEA44NVR() -> EXECBLOCK("GFEA0443",.F.,.F.,{GWN->GWN_FILIAL,GWN->GWN_NRROM,GW1->GW1_CDTPDC,GW1->GW1_EMISDC,GW1->GW1_SERDC,GW1->GW1_NRDC})

GFEA044.PRW - VIEWDEF() -> EXECBLOCK("XINCGW1",.F.,.F.,{OSTRUCTGW1, "GRPID", OSTRUCTGW1:GETPROPERTY("GW1_ORIGEM" , MVC_VIEW_ORDEM) , OSTRUCTGW1:GETPROPERTY("GW1_SIT" , MVC_VIEW_ORDEM) })

GFEA050.PRW - GF50ARCLC() -> ACTCPE := EXECBLOCK("GFE05014",.F.,.F.,{ATRCHDOC})

GFEA050.PRW - GFE050AJUS() -> EXECBLOCK("GFE05017",.F.,.F., {GWN->GWN_FILIAL, GWN->GWN_NRROM})

GFEA050.PRW - GFE050AJUS() -> IF EXECBLOCK("GFEA0506",.F.,.F.,{"6"})

GFEA050.PRW - GFE050CALC() -> AITDOC := EXECBLOCK("GFE05010",.F.,.F.,{GWN->GWN_PLACAD,AITDOC})

GFEA050.PRW - GFE050CALC() -> AROTADIC := EXECBLOCK("XGFECALF",.F.,.F.,{GWN->GWN_NRROM})

GFEA050.PRW - GFE050CALC() -> AROTADIC := EXECBLOCK("XGFECALI",.F.,.F.,{GWN->GWN_NRROM})

GFEA050.PRW - GFE050CALC() -> EXECBLOCK("GFEA0508",.F.,.F.)

GFEA050.PRW - GFE050VLRED() -> LESP := EXECBLOCK("GFEA0509",.F.,.F.,{NOPC})

GFEA050.PRW - GFE50GRAVR() -> ARET := EXECBLOCK("GFE05015",.F.,.F., {GWN->GWN_FILIAL, GWN->GWN_NRROM, CDATARET, CHORARET, NHOD})

GFEA050.PRW - GFE50GRAVR() -> EXECBLOCK("GFE05016",.F.,.F., )

GFEA050.PRW - GFE50NRROM() -> CNEWCOD := EXECBLOCK("GFE05011",.F.,.F.)

GFEA050.PRW - GFEA050ALT() -> IF EXECBLOCK("GFEA0506",.F.,.F.,{"4"})

GFEA050.PRW - GFEA050BLO() -> IF EXECBLOCK("GFEA0506",.F.,.F.,{"5"})

GFEA050.PRW - GFEA050ENT() -> IF EXECBLOCK("GFEA0504",.F.,.F.,{GWN->GWN_FILIAL, GWN->GWN_NRROM})

GFEA050.PRW - GFEA050EXC() -> IF EXECBLOCK("GFEA0506",.F.,.F.,{"3"})

GFEA050.PRW - GFEA050LIB() -> ARETPE := EXECBLOCK('GFE05013',.F.,.F.)

GFEA050.PRW - GFEA050LIB() -> EXECBLOCK("GFEA0505",.F.,.F.)

GFEA050.PRW - GFEA050REA() -> ARETPE := EXECBLOCK('GFEA0502',.F.,.F.)

GFEA050.PRW - GFEA050REA() -> EXECBLOCK("GFEA0507",.F.,.F.)

GFEA050.PRW - GFEA050REA() -> IF EXECBLOCK("GFEA0506",.F.,.F.,{"2"})

GFEA050.PRW - GFEA50REDP() -> IF EXECBLOCK("GFEA0506",.F.,.F.,{"7"})

GFEA050.PRW - GFEABTOK() -> APONTENT := EXECBLOCK("GFEA0501",.F.,.F.,{GWN->GWN_FILIAL, GWN->GWN_NRROM})

GFEA050.PRW - GFEDOCCAR() -> IF EXECBLOCK("GFEA0506",.F.,.F.,{"1"})

GFEA050.PRW - GFEDOCCAR() -> LPEDHD := EXECBLOCK("XALIMKB2",.F.,.F.,NIL)

GFEA050.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("XGFEA050 ",.F.,.F.)

GFEA050.PRW - VIEWDEF() -> ARETPE := EXECBLOCK('GFE05012',.F.,.F.)

GFEA050A.PRW - GFE050AMB() -> CQUERY += EXECBLOCK("GFEA05A1",.F.,.F.)

GFEA050A.PRW - GFE50ASORT() -> CORDEMPE1 := EXECBLOCK("GFEA05A2",.F.,.F., {"1"})

GFEA050A.PRW - GFE50ASORT() -> CORDEMPE2 := EXECBLOCK("GFEA05A2",.F.,.F., {"2"})

GFEA050A.PRW - GFE50AVLIB() -> ARET := EXECBLOCK("GFEA05A4",.F.,.F., {CFILROM, CROM, DDTLIB, DHRLIB, NHODO, CRASTR})

GFEA050A.PRW - GFEA050ALI() -> ARET := EXECBLOCK("GFEA05A6",.F.,.F.,{GWH->GWH_FILIAL, GWH->GWH_NRCALC, CNRROMAN})

GFEA050A.PRW - GFEA050ALI() -> ARETPE := EXECBLOCK("GFEA05A5",.F.,.F.,{GWH->GWH_FILIAL, GWH->GWH_NRCALC, LCALCSIMU, LDIFSIMU})

GFEA050A.PRW - GFEA50AOK() -> LRETPE := EXECBLOCK("GFEA0503",.F.,.F.,{GWN->GWN_NRROM,GW1->GW1_CDTPDC,GW1->GW1_EMISDC,GW1->GW1_SERDC,GW1->GW1_NRDC})

GFEA050B.PRW - GFE50BMKB() -> CQUERY += EXECBLOCK("XQRYMKB",.F.,.F.,NIL)

GFEA050B.PRW - GFEA050B() -> ACPMKB := EXECBLOCK("XACPMKB",.F.,.F.,{ACPMKB, '3'})

GFEA050B.PRW - GFEA050B() -> ACPMKB2 := EXECBLOCK("XACPMKB",.F.,.F.,{ACPMKB2, '2'})

GFEA050B.PRW - GFEA050B() -> AMKB2:= EXECBLOCK("XGFEAMKB",.F.,.F.,{AMKB2, '2'})

GFEA050B.PRW - GFEA050B() -> LPEDHD := EXECBLOCK("XALIMKB2",.F.,.F.,NIL)

GFEA050B.PRW - GFEA50BOK() -> AROTADIC := EXECBLOCK("XGFERELD",.F.,.F.,{GWN->GWN_NRROM,(CALIMKB)->TPDC,(CALIMKB)->CDEMIS,(CALIMKB)->SERIE,(CALIMKB)->NRDC})

GFEA051.PRW - GFEA051TL() -> IF !EXECBLOCK( "GFEA0514",.F.,.F.)

GFEA051.PRW - GFEA51STED() -> EXECBLOCK( "GFEA0511",.F.,.F.)

GFEA051.PRW - GFEA51STED() -> EXECBLOCK( "GFEA0513",.F.,.F.,{CGWU_DTENT,CGWU_HRENT,1})

GFEA051.PRW - GFEA51STEN() -> EXECBLOCK( "GFEA0512",.F.,.F.)

GFEA051.PRW - GFEA51STEN() -> EXECBLOCK( "GFEA0515",.F.,.F.,{1})

GFEA055.PRW - ATUPREFAT() -> ORETPE := EXECBLOCK("GFE055IN",.F.,.F.,{APREFAT, ARATALL})

GFEA055.PRW - DESATUPREFAT() -> ORETPE := EXECBLOCK("GFE055IN",.F.,.F.,{APREFAT, ARATALL})

GFEA055.PRW - GFEA055PRE() -> LEXEC := EXECBLOCK("GFEA0551",.F.,.F.,{(CALIAS)->GWF_NRCALC, (CALIAS)->GWF_TPCALC})

GFEA061A.PRW - GFEA61AVLD() -> LEXECVALID := EXECBLOCK("GFEA0613",.F.,.F.,{NOPC})

GFEA061F.PRW - GFEA061FA() -> LEXECVALID := EXECBLOCK("GFEA0613",.F.,.F.,{NOPC})

GFEA061F.PRW - VIEWDEF() -> EXECBLOCK("GFEA61F2",.F.,.F.,{OSTRUCTGV6})

GFEA065.PRW - ATUDOCFRET() -> ACUSTFIS := EXECBLOCK("GFEA0655",.F.,.F.,{ADOCFRETE, AITENSDOC, COPERPE})

GFEA065.PRW - ATUDOCFRET() -> ACUSTREC := EXECBLOCK("GFEA0654",.F.,.F., {ADOCFRETE, ANOTASFIS, COPERPE})

GFEA065.PRW - ATUDOCFRET() -> CCPDGFE :=  EXECBLOCK("GFEA0653",.F.,.F.,{3})

GFEA065.PRW - DESATUDOCFRET() -> CCPDGFE :=  EXECBLOCK("GFEA0653",.F.,.F.,{5})

GFEA065.PRW - GETITENSDOC() -> CPRDFRETE := EXECBLOCK("GFEA0651",.F.,.F.,{NOP})

GFEA065.PRW - GETITENSDOC() -> CRETPE := EXECBLOCK( "GFEA0658",.F.,.F.,{CCENCUS} )

GFEA065.PRW - GETITENSDOC() -> CTES := EXECBLOCK( "GFEA0652",.F.,.F.,{NOP} )

GFEA065.PRW - GFEA065GFF() -> DDTVENC := EXECBLOCK("GFE06501",.F.,.F.,{DDTVENC})

GFEA065.PRW - GFEA065VP() -> AGFEA659 := EXECBLOCK("GFEA0659",.F.,.F.,{ALLTRIM(OMODELGW3:GETVALUE("GW3_EMISDF"))})

GFEA065.PRW - GFEA065VP() -> CRET := EXECBLOCK("XGFEMODE",.F.,.F.,{OMODELGW3, OMODELGW4})

GFEA065.PRW - GFEA065VP() -> LRETPE := EXECBLOCK("GFEA0656",.F.,.F.)

GFEA065.PRW - GFEA065XD() -> IF ! EXECBLOCK( "GFEA65XD" , .F. , .F. , {COP} )

GFEA065.PRW - GFEA065XF() -> AROTADIC := EXECBLOCK("XGFEENOF",.F.,.F.,{GW3->GW3_FILIAL, GW3->GW3_CDESP, GW3->GW3_EMISDF, GW3->GW3_SERDF, GW3->GW3_NRDF, DTOS(GW3->GW3_DTEMIS)})

GFEA065.PRW - MENUDEF() -> ARETPE := EXECBLOCK("GFEA0657 ",.F.,.F.)

GFEA065.PRW - VIEWDEF() -> EXECBLOCK("XGFEINC",.F.,.F.,{OSTRUCTGW3, "GRPID"})

GFEA066.PRW - GFEA066AP() -> EXECBLOCK("GFEA0663",.F.,.F.,{OPNLA,OPANELB})

GFEA066.PRW - GFEA066OK() -> EXECBLOCK("GFEA0661",.F.,.F.)

GFEA066.PRW - GFEA066OK() -> LRET := EXECBLOCK("GFEA0664",.F.,.F.,{GW3->GW3_FILIAL, GW3->GW3_CDESP, GW3->GW3_EMISDF, GW3->GW3_SERDF, GW3->GW3_NRDF, GW3->GW3_DTEMIS})

GFEA070.PRW - ATUFATURA() -> EXECBLOCK("GFEA0704",.F.,.F.,{})

GFEA070.PRW - ATUFATURA() -> NMSGFATATUFIN := EXECBLOCK("GFEA70A6",.F.,.F.)

GFEA070.PRW - ATUFATURA() -> ORETPE := EXECBLOCK("GFE070IN",.F.,.F.,{AFATURA, ARATALL, APREALL, NOPERACAO})

GFEA070.PRW - DESATUFATURA() -> AFATURARET := EXECBLOCK("GFEA0705",.F.,.F.,{AFATURA})

GFEA070.PRW - GFEA070ADF() -> LRETPE := EXECBLOCK("GFEA0702",.F.,.F.)

GFEA070.PRW - GFEA070DX() -> ARETORNO := EXECBLOCK("XGFEINTF",.F.,.F.,{GW6->GW6_FILIAL, GW6->GW6_EMIFAT, GW6->GW6_SERFAT, GW6->GW6_NRFAT, GW6->GW6_DTEMIS})

GFEA070.PRW - GFEA070IPG() -> EXECBLOCK("GFEA0703",.F.,.F.,{})

GFEA070.PRW - GFEA070X() -> AINTEGR := EXECBLOCK("GFEA0707",.F.,.F.)

GFEA070.PRW - GFEA070X() -> ARETORNO := EXECBLOCK("XGFEENFN",.F.,.F.,{GW6->GW6_FILIAL, GW6->GW6_EMIFAT, GW6->GW6_SERFAT, GW6->GW6_NRFAT, GW6->GW6_DTEMIS})

GFEA070.PRW - MENUDEF() -> AROTINA := EXECBLOCK("GFEA0706",.F.,.F.,{AROTINA})

GFEA070A.PRW - GFE070MKB() -> CQUERY += EXECBLOCK("GFEA70A3",.F.,.F.,{ CQUERY })

GFEA070A.PRW - GFE070MKB() -> CQUERY += EXECBLOCK("GFEA70A4",.F.,.F.,{ CQUERY })

GFEA070A.PRW - GFE70DELDC() -> ARETORNO := EXECBLOCK("XGFE70DE",.F.,.F.,{GW6->GW6_FILIAL, GW6->GW6_EMIFAT, GW6->GW6_SERFAT, GW6->GW6_NRFAT, GW6->GW6_DTEMIS})

GFEA070A.PRW - GFE70DELDC() -> EXECBLOCK("GFEA0701",.F.,.F.)

GFEA070A.PRW - GFEA070A() -> ACPPE := EXECBLOCK("GFEA70A5",.F.,.F.,{ ACPMKB })

GFEA070A.PRW - GFEA070AOK() -> AROTADIC := EXECBLOCK("XGFE070A",.F.,.F.,{GW6->GW6_FILIAL, GW6->GW6_EMIFAT, GW6->GW6_SERFAT, GW6->GW6_NRFAT, GW6->GW6_DTEMIS, CALIMKB})

GFEA071.PRW - GFEA071CF() -> ABUTTONS := EXECBLOCK("GFEA0711",.F.,.F.)

GFEA071.PRW - GFEA071CF() -> NQTDTOTDOC := EXECBLOCK("GFEA0712",.F.,.F.)

GFEA071.PRW - GFEA071ED() -> EXECBLOCK("GFEA0713",.F.,.F.)

GFEA071.PRW - GFEA071PR() -> LRET := EXECBLOCK("GFEA0715",.F.,.F.)

GFEA071.PRW - GFEA071RA() -> ABLOCK := EXECBLOCK("GFEA0717",.F.,.F.)

GFEA071.PRW - GFEA071RA() -> CSITMLA := EXECBLOCK("GFEA0716",.F.,.F.,{GW6->GW6_SITMLA})

GFEA071.PRW - GFEA071RA() -> IF LEXECBLOCK == .F.

GFEA071.PRW - GFEA071RA() -> LEXECBLOCK := EXECBLOCK("XGFEAPRF",.F.,.F.,{GW6->GW6_FILIAL, GW6->GW6_EMIFAT, GW6->GW6_SERFAT, GW6->GW6_NRFAT, GW6->GW6_DTEMIS})

GFEA079.PRW - GFEA79CTR() -> CMSG := EXECBLOCK("GFEA0792",.F.,.F.,{CFILCTR, CNRCT})

GFEA095.PRW - CONTABFATURA() -> AINTEGR := EXECBLOCK("GFE09502",.F.,.F.,{(CALIASGW6)->GW6_FILIAL, (CALIASGW6)->GW6_EMIFAT, (CALIASGW6)->GW6_SERFAT, (CALIASGW6)->GW6_NRFAT, STOD((CALIASGW6)->GW6_DTEMIS)})

GFEA100.PRW - GFEA100CA() -> LRET := EXECBLOCK("GFEA1002",.F.,.F.,{10})

GFEA100.PRW - GFEA100VA() -> LRET := EXECBLOCK("GFEA1002",.F.,.F.,{NOPC})

GFEA100.PRW - GFEA100X() -> XRET := EXECBLOCK("GFEA1003",.F.,.F.)

GFEA110.PRW - CONSSQL() -> ARETQUERY := EXECBLOCK("GFEA1101",.F.,.F.)

GFEA110.PRW - CONSSQL() -> CADD := EXECBLOCK("GFE11007",.F.,.F.,{"3.1",-1,1,""})

GFEA110.PRW - CONSSQL() -> CADD := EXECBLOCK("GFE11007",.F.,.F.,{"3.1",-1,2,""})

GFEA110.PRW - DEFINEDIR() -> CNOMARQ := EXECBLOCK("GFEA1102",.F.,.F.,{CCDTRP})

GFEA110.PRW - GFEARATDC() -> NQTVOL := EXECBLOCK("GFEA1105",.F.,.F.)

GFEA110.PRW - PROCESSNOT() -> CRETXPTO := EXECBLOCK("GFE11007",.F.,.F.,{"3.1",GW1->(RECNO()),3,CALIASQRY})

GFEA110.PRW - PROCESSNOT() -> EXECBLOCK("GFEA1103",.F.,.F.,{CDIRETORIO,AEMAILPENT[NI]})

GFEA110.PRW - PROCESSNOT() -> EXECBLOCK("GFEA1103",.F.,.F.,{CDIRETORIO,CCDTRPPENT})

GFEA110.PRW - REG311() -> CCDEMIS := EXECBLOCK("GFE11006",.F.,.F.,{"3.1",GW1->(RECNO())})

GFEA110.PRW - REG313() -> NQTVOL := EXECBLOCK("GFEA1104",.F.,.F.)

GFEA110.PRW - REG314() -> NQTVOL := EXECBLOCK("GFEA1105", .F., .F.)

GFEA110.PRW - REG314AGR() -> NQTVOL := EXECBLOCK("GFEA1105",.F.,.F.)

GFEA110.PRW - REG317() -> CRET := EXECBLOCK("GFEA1106",.F.,.F.,{})

GFEA110.PRW - REG317() -> CRET := EXECBLOCK("GFEA1108",.F.,.F.,{317})

GFEA110B.PRW - BUSCADADOSNF() -> NQTDVOLPE := EXECBLOCK("GFEA1104",.F.,.F.)

GFEA110B.PRW - BUSCASQL() -> ACPPE := EXECBLOCK("GFE11011",.F.,.F.)

GFEA110B.PRW - REG505() -> ARET109 := EXECBLOCK("GFEA1109",.F.,.F.,{(CALIASSQL)->GW1_FILIAL, (CALIASSQL)->GW1_CDTPDC, (CALIASSQL)-> GW1_EMISDC, (CALIASSQL)->GW1_SERDC, (CALIASSQL)->GW1_NRDC})

GFEA110B.PRW - REG515() -> CRET := EXECBLOCK("GFEA1107",.F.,.F.,{(CALIASSQL)->GW1_FILIAL,;

GFEA110B.PRW - REG515() -> CRET := EXECBLOCK("GFEA1108",.F.,.F.,{515})

GFEA110B.PRW - SALVAREDI() -> EXECBLOCK("GFEA1103",.F.,.F.,{CFILE,CTRANSP})

GFEA115A.PRW - CRIATAB() -> ACAMPOSCTRC := EXECBLOCK("GFEA1156",.F.,.F.,{ACAMPOSCTRC})

GFEA115A.PRW - LAYOUTPRO3() -> ARET := EXECBLOCK("GFEA1154",.F.,.F.,{CFILIALCTRC,CCNPJEMISS,CCNPJEMBARC,CCNPJDEST,CUFREMETENTE,CUFDESTP,AGXH,AGXG[07],CBUFFER })

GFEA115A.PRW - LAYOUTPRO3() -> EXECBLOCK("GFEA1158",.F.,.F.,{(TTABCTRC),CBUFFER})

GFEA115A.PRW - LAYOUTPRO3() -> LBUSCADC := EXECBLOCK("GFEA1151",.F.,.F.,{})

GFEA115A.PRW - LAYOUTPRO3() -> LTODOSDC := EXECBLOCK("GFEA1151",.F.,.F.,{})

GFEA115A.PRW - LAYOUTPRO3() -> TTABCTRC := EXECBLOCK("GFEA1153",.F.,.F.,{TTABCTRC, CBUFFER, CBUFFER329 })

GFEA115A.PRW - PROCESSAMENTO() -> ARET := EXECBLOCK("GFE11501",.F.,.F.,)

GFEA115A.PRW - PROCESSAMENTO() -> ARET := EXECBLOCK("GFEA1159",.F.,.F.,{LOK,LMSGERR})

GFEA115A.PRW - PROCESSAMENTO() -> EXECBLOCK("GFEA1157",.F.,.F.,{OMODEL})

GFEA115A.PRW - PROCESSAMENTO() -> LNRDF := EXECBLOCK("GFEA1155",.F.,.F.,{LNRDF})

GFEA115A.PRW - PROCESSAMENTO() -> LVALDC := EXECBLOCK("GFEA1151",.F.,.F.,{})

GFEA115A.PRW - REPROCESSDOCTOCARGA() -> LVALDC := EXECBLOCK("GFEA1151",.F.,.F.,{})

GFEA116A.PRW - PROCESSAMENTO() -> LRETPE := EXECBLOCK("GFE116A1",.F.,.F.,{NCONTDF})

GFEA116A.PRW - PROCESSAMENTO() -> LSCHEDULE := EXECBLOCK("GFEA1601",.F.,.F.,{})

GFEA117A.PRW - IMPORTACAO() -> EXECBLOCK("GFEA1172",.F.,.F.,NIL)

GFEA117A.PRW - PROCESSAMENTO() -> EXECBLOCK( "GFEA0513",.F.,.F.,{GXL->GXL_DTOCOR,GXL->GXL_HROCOR,2})

GFEA117A.PRW - PROCESSAMENTO() -> EXECBLOCK("GFEA1171",.F.,.F.,NIL)

GFEA117A.PRW - PROCESSAMENTO() -> LRET := EXECBLOCK("GFEA1173",.F.,.F.)

GFEA118.PRW - CTETPDF() -> ARET := EXECBLOCK("GFEA1184",.F.,.F.,{OCTE})

GFEA118.PRW - GFEA118XML() -> CDIROK := EXECBLOCK("GFEA1182",.F.,.F.)

GFEA118.PRW - GFEA118XML() -> EXECBLOCK("GFEA1181",.F.,.F.,{OCTE})

GFEA118.PRW - GFEA118XML() -> LRETEDISIT := EXECBLOCK("GFEA1185",.F.,.F.,{OCTE, OPROTCTE})

GFEA517.PRW - GFECAEMAIL() -> ARETMAIL := EXECBLOCK("GFEA5172", .F., .F., { GWV->GWV_FILIAL, GWV->GWV_NRAGEN, CPARA, CMENSAGEM, CASSUNTO, GWV->GWV_SIT})

GFEA517.PRW - GFEENEMAIL() -> ARETMAIL := EXECBLOCK("GFEA5172", .F., .F., { GWV->GWV_FILIAL, GWV->GWV_NRAGEN, CPARA, CMENSAGEM, CASSUNTO, GWV->GWV_SIT})

GFEA519.PRW - GFEA519CAN() -> LRET := EXECBLOCK("GFEA5193",.F.,.F., {GX3->GX3_NRMOV,GX3->GX3_CDOPER})

GFEA519.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("GFEA5194 ",.F.,.F.)

GFEA519.PRW - MONTASTRU() -> CCPOADIC := EXECBLOCK("GFEA5192", .F., .F., {})

GFEA519B.PRW - GFEA519BDT() -> LHAB := EXECBLOCK("GFE519B2",.F.,.F.,{})

GFEA519B.PRW - GFEA519BVI() -> NRETPESO := EXECBLOCK("GFEA5237", .F., .F., {GX4->GX4_FILIAL, _CMOV, _CPTCT, CPLACA, GX4->GX4_QTPESO})

GFEA522.PRW - E1_NEXT() -> LRET := EXECBLOCK("GFEA5223", .F., .F., {AETAPA1})

GFEA522.PRW - E2_SAVPLACA() -> ARET := EXECBLOCK("GFEA5224", .F., .F., {AETAPA2, ACAMPOS})

GFEA522.PRW - E3_SAVMOT() -> ARET := EXECBLOCK("GFEA5225", .F., .F., {AETAPA3, ACAMPOS})

GFEA522.PRW - E4_LOAD() -> ARET := EXECBLOCK("GFEA5226", .F., .F., {AETAPA4})

GFEA522.PRW - E4_LSTREFRESH() -> ARET := EXECBLOCK("GFEA5222",.F.,.F.,{,,,AOETAPA4,,})

GFEA522.PRW - E5_NEXT() -> ARET := EXECBLOCK("GFEA5227", .F., .F., {AETAPA5, ACAMPOSGX3})

GFEA522.PRW - E5_NEXT() -> LEXECPROG := EXECBLOCK("GFEA5221",.F.,.F.,{})

GFEA522.PRW - GFEVLDGX6() -> LRET5228 := EXECBLOCK("GFEA5228", .F., .F., {AETAPA2})

GFEA523.PRW - A523MD() -> ARET := EXECBLOCK("GFEA5231", .F., .F., {(CALIASVEIC), NCONT})

GFEA523.PRW - A523VVMN() -> ARET  := EXECBLOCK("GFEA5232", .F., .F., {})

GFEA523.PRW - MNU1_CLICK() -> LRET5233 := EXECBLOCK("GFEA5233", .F., .F., {GX3->GX3_FILIAL,_CMOV,GX3->GX3_SIT,GX4->GX4_SIT})

GFEA523.PRW - MNU1_CLICK() -> LRET5235 := EXECBLOCK("GFEA5235", .F., .F., {CFILGX3,_CMOV,_COPER,_CSEQ,_CPTCT,NCLICK,CSEQGX4})

GFEA523.PRW - MNU1_CLICK() -> NRETPESO := EXECBLOCK("GFEA5237", .F., .F., {GX4->GX4_FILIAL, _CMOV, _CPTCT, CPLACA, GX4->GX4_QTPESO})

GFEA523.PRW - MNU2_CLICK() -> LRET5236 := EXECBLOCK("GFEA5236", .F., .F.,{CFILGX3,_CMOV,_COPER,_CSEQ,_CPTCT,NCLICK,CSEQGX4})

GFEA523.PRW - MONTAPAINEIS() -> OMENUBTN := EXECBLOCK("GFEA5234", .F., .F., { OMENUBTN, .F. })

GFEA523.PRW - MONTAPAINEIS() -> OMENUBTN := EXECBLOCK("GFEA5234", .F., .F., { OMENUBTN, .T. })

GFEA523.PRW - MONTASTRU() -> ARET := EXECBLOCK("GFEA5231", .F., .F., {})

GFEC041.PRW - CARREGADADOS() -> CQRYPE := EXECBLOCK("GFEC0413",.F.,.F.)

GFEC041.PRW - CRIATAB() -> ACPOPE := EXECBLOCK("GFEC0414",.F.,.F.)

GFEC041.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("GFEC0411",.F.,.F.)

GFEM011.PRW - GFEM011NFS() -> CCDCLFRETE := EXECBLOCK("OM11CLF",.F.,.F.)

GFEM011.PRW - GFEM011NFS() -> EXECBLOCK("OMSM0113",.F.,.F.,{OMODELITENS})

GFEM011.PRW - GFEM011NFS() -> EXECBLOCK("OMSM0114",.F.,.F.,{OMODELUNIT})

GFEM011.PRW - GFEM011NFS() -> EXECBLOCK("OMSM0115",.F.,.F.,{OMODELNFS})

GFEM011.PRW - SETTRECHOS() -> CF2_TPFRETE := EXECBLOCK("OMSM0111",.F.,.F.,{SF2->F2_TPFRETE,"2",NI,ATRECHOS[NI,1]})

GFEXFBE.PRW - GETQUERY() -> CQRYCON := EXECBLOCK("GFEXFB21",.F.,.F., CQRYCON)

GFEXFBE.PRW - GETQUERY() -> LGFEXFB14 := EXECBLOCK("GFEXFB14")

GFEXFBE.PRW - GETTABQRY() -> LGFEXFB14 := EXECBLOCK("GFEXFB14")

GFEXFBE.PRW - SELTABGR() -> ARETFILSQL := EXECBLOCK("GFEXFB12",.F.,.F.,{GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE1, 7,"ORIGEM"),;

GFEXFBE.PRW - SELTABGR() -> LGFEXFB14 := EXECBLOCK("GFEXFB14")

GFEXFBE.PRW - SELTABGR() -> LSMLVEI := EXECBLOCK("GFEXFB03",.F.,.F.,{LSIMULACAO})

GFEXFBE.PRW - SELTABGR() -> LTARIVALI := EXECBLOCK("GFEXFB01",.F.,.F.,{CCODFAIXA})

GFEXFBE.PRW - SELTABGR() -> LTARIVALI := EXECBLOCK("GFEXFB01",.F.,.F.,{GV7->GV7_CDFXTV})

GFEXFBG.PRW - SELTABFRETE() -> LSMLVEI := EXECBLOCK("GFEXFB03",.F.,.F.,{LSIMULACAO})

GFEXFBG.PRW - SELTABFRETE() -> LTARIVALI := EXECBLOCK("GFEXFB01",.F.,.F.,{CCODFAIXA})

GFEXFBG.PRW - SELTABFRETE() -> LTARIVALI := EXECBLOCK("GFEXFB01",.F.,.F.,{GV7->GV7_CDFXTV})

GFEXFBH.PRW - GFECALCFRETE() -> LERROR  := EXECBLOCK("GFEXFB19",.F.,.F.,{ @APARAMCOMP, LSIMULACAO })

GFEXFBH.PRW - GFECALCIMP() -> NNEWVLIMP := EXECBLOCK("GFEXFBH1",.F.,.F.,{ NBASEIMP, NVLIMP, ARETICMS[1], XFILIAL("GWU"),;

GFEXFBH.PRW - GFECALCTABINF() -> NVALCPN := EXECBLOCK("GFEXFB02",.F.,.F.,{ NVALCPN })

GFEXFUNA.PRW - GFETABPRAZO() -> ARETPE := EXECBLOCK("GFEXFA03",.F.,.F.,{(CALIASGUN)->GUN_CODTAB,(CALIASGUN)->GUN_TPPRAZ,(CALIASGUN)->GUN_PRAZO,ARET})

GFEXFUNA.PRW - PREVDTENT() -> ARETPE := EXECBLOCK("GFEXFA04",.F.,.F.,{ARET})

GFEXFUNA.PRW - PREVENTREG() -> ARETPE := EXECBLOCK("GFEXFA01",.F.,.F.,{DDATAREF,CHORAREF})

GFEXFUNB.PRW - ADDCOMPSGUC() -> LRETPE := EXECBLOCK("GFEXFB04",.F.,.F.)

GFEXFUNB.PRW - CALCRATPED() -> ACPPE := EXECBLOCK("GFEXFB16",.F.,.F.)

GFEXFUNB.PRW - DEFUNIDCALC() -> AROTADIC := EXECBLOCK("XGFEAGRU",.F.,.F.,{NMAXDOC,GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE3, 7,"CDTPDC"),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE3, 7,"EMISDC"),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE3, 7,"SERDC"),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE3, 7,"NRDC")})

GFEXFUNB.PRW - DEFUNIDCALC() -> CNUMGRUP := EXECBLOCK("GFEXFB10",.F.,.F.,{GFEXFB_5CMP(LTABTEMP, CTRBDOC, @ADOCCARG, 1,"EMISDC"),;

GFEXFUNB.PRW - DEFUNIDCALC() -> _APE15 := EXECBLOCK("GFEXFB15",.F.,.F.,{GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE3, 7,"CDTPDC"),;

GFEXFUNB.PRW - GFEATUPESC() -> EXECBLOCK("GFEXFB22",.F.,.F.,{ CAGRUPC, CQUERY })

GFEXFUNB.PRW - GFECALCCOMP() -> NVALCPN := EXECBLOCK("GFEXFB02",.F.,.F.,{ NVALCPN })

GFEXFUNB.PRW - GFECALCCOMP() -> NVALOR := EXECBLOCK("GFEXFB17",.F.,.F.,{ NVALOR })

GFEXFUNB.PRW - GFECALCCOMP() -> NVLPE20  := EXECBLOCK("GFEXFB20",.F.,.F.,{ NVLFRETE, ACOMPCALC })

GFEXFUNB.PRW - GFECALCMAN() -> AGFEOCOVL := EXECBLOCK("GFEOCOVL",.F.,.F.,{XFILIAL("GWF"), CNRCALC, "", "", "", "", AGFEOCOVL})

GFEXFUNB.PRW - GFECALCMAN() -> AGFEOCOVL := EXECBLOCK("GFEOCOVL",.F.,.F.,{XFILIAL("GWF"), CNRCALC, GWD->GWD_FILIAL, GWD->GWD_NROCO, GWD->GWD_CDTIPO, GWD->GWD_CDMOT, AGFEOCOVL})

GFEXFUNB.PRW - GFECALCMAN() -> CCOMPSERV := EXECBLOCK("XGFEOCSV",.F.,.F.,{GWD->GWD_FILIAL, GWD->GWD_NROCO, GWD->GWD_CDTIPO, GWD->GWD_CDMOT})

GFEXFUNB.PRW - GFECLCFRT() -> EXECBLOCK("GFEXFB07",.F.,.F.,{LERROR})

GFEXFUNB.PRW - GFEESCTAB() -> ARET := EXECBLOCK("GFEXFB05",.F.,.F.,{ GFEXFB_5CMP(LTABTEMP, CTRBSTF, @ATRBSTF1, 2,"NRROM"), LTABTEMP, CTRBSTF, @ATRBSTF1})

GFEXFUNB.PRW - GFEPESOCUB() -> NPESOCUBADO := EXECBLOCK("XGFEPESC",.F.,.F.,{NPESOCUBADO,(CTRBITE),(CTRBTRE), CNRCALC, CCDCLFR})

GFEXFUNB.PRW - GFEQTDECOMP() -> ARETPE  := EXECBLOCK("GFEXFB11",.F.,.F.,{CCDCLFR,NPESOCUBADO,NPESOREAL})

GFEXFUNB.PRW - GFEQTDECOMP() -> ARETPE  := EXECBLOCK("GFEXFB23",.F.,.F.,{(CTRBITE),(CTRBTRE), CNRCALCULO, CCDCLFR, NFATORCUB})

GFEXFUNB.PRW - GFEVLCOMP() -> NVALOR := EXECBLOCK("GFEXFB18",.F.,.F.,{ (NVALOR), (ADADOSCOMP[1])})

GFEXFUNB.PRW - GFEVLSERV() -> CCOMPSERV := EXECBLOCK("XGFEOCSV",.F.,.F.,{GWD->GWD_FILIAL, GWD->GWD_NROCO, GWD->GWD_CDTIPO, GWD->GWD_CDMOT})

GFEXFUNB.PRW - GFEXFBETVL() -> ARET := EXECBLOCK("GFEXFB05",.F.,.F.,{ GFEXFB_5CMP(LTABTEMP, CTRBSTF, @ATRBSTF1, 2,"NRROM"), LTABTEMP, CTRBSTF, @ATRBSTF1})

GFEXFUNB.PRW - RUNPROC() -> LNAOPAGOPTO := EXECBLOCK("GFEXFB08",.F.,.F.,{GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE2, 7,"CDTPDC"),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE2, 7,"EMISDC"),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE2, 7,"SERDC"),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE2, 7,"NRDC"),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE2, 7,"SEQ")})

GFEXFUNC.PRW - GFEA94GMC() -> EXECBLOCK("GFEXFC05",.F.,.F.,{GWM->GWM_FILIAL, GWM->GWM_CDESP, GWM->GWM_CDTRP, GWM->GWM_NRDOC, GWM->GWM_SERDOC, GWM->GWM_DTEMIS, GWM->GWM_TPDOC})

GFEXFUNC.PRW - GFEA94GMC() -> LRETPE := EXECBLOCK("GFEXFC06",.F.,.F.)

GFEXFUNC.PRW - GFEGERRAT() -> CRET := EXECBLOCK("XGFECTCC",.F.,.F.,{CTPDOCTO, CFIL, CIDFEDERAL, CSERIE, NNRDOC, DDTEMISS})

GFEXFUNC.PRW - GFEGERRAT() -> CRET := EXECBLOCK("XGFERATE",.F.,.F.,{CTPDOCTO, CFIL, CIDFEDERAL, CSERIE, NNRDOC, DDTEMISS})

GFEXFUNC.PRW - GFEGERRAT() -> LRET :=  EXECBLOCK("GFEXFC02",.F.,.F.,{CTPDOCTO})

GFEXFUNC.PRW - GFEGERRAT() -> LRET :=  EXECBLOCK("GFEXFC03",.F.,.F.,{CTPDOCTO, RETTOTAIS})

GFEXFUNC.PRW - GFERATEIO() -> EXECBLOCK("GFEXFC04",.F.,.F.,{})

GFEXINTA.PRW - ATUDOCINT() -> ACUSTFIS := EXECBLOCK("GFEA0655",.F.,.F.,{ADOCFRETE, AITENSDOC, COPERPE})

GFEXINTA.PRW - ATUDOCINT() -> ACUSTREC := EXECBLOCK("GFEA0654",.F.,.F., {ADOCFRETE, ANOTASFIS, COPERPE})

GFEXINTA.PRW - ATUDOCINT() -> CCPDGFE :=  EXECBLOCK("GFEA0653",.F.,.F.,{3})

GFEXINTA.PRW - DESATDCINT() -> CCPDGFE :=  EXECBLOCK("GFEA0653",.F.,.F.,{5})

GFEXWSFUN.PRW - GFEDELGWN() -> LRET := EXECBLOCK("GFEXWS14",.F.,.F.,{ADADOS, OMODEL})

GFEXWSFUN.PRW - GFEINSGW1() -> CNRCIDORI := EXECBLOCK("GFEXWS19",.F.,.F.,{XFILIAL("GU3"),ALLTRIM(ADADOS[16])})

GFEXWSFUN.PRW - GFEINSGW1() -> EXECBLOCK("GFEXWS01",.F.,.F.,{NLENADADOS,ADADOS})

GFEXWSFUN.PRW - GFEINSGW1() -> EXECBLOCK("GFEYWS02",.F.,.F.,{ADADOS})

GFEXWSFUN.PRW - GFEINSGW1() -> EXECBLOCK("GFEYWS03",.F.,.F.,{ADADOS})

GFEXWSFUN.PRW - GFEINSGW1() -> LRET := EXECBLOCK("GFEXWS04",.F.,.F.,{ADADOS})

GFEXWSFUN.PRW - GFEINSGW1ENT() -> CNRCIDORI := EXECBLOCK("GFEXWS19",.F.,.F.,{XFILIAL("GU3"),ALLTRIM(ADADOS[7])})

GFEXWSFUN.PRW - GFEINSGW1ENT() -> EXECBLOCK("GFEXWS10",.F.,.F.,{NLENADADOS,ADADOS})

GFEXWSFUN.PRW - GFEINSGW1ENT() -> EXECBLOCK("GFEYWS04",.F.,.F.,{ADADOS})

GFEXWSFUN.PRW - GFEINSGWN() -> EXECBLOCK("GFEYWS01",.F.,.F.,{ADADOS})

GFEXWSFUN.PRW - GFEWSDELD() -> CRETORNO  := EXECBLOCK("GFEXWS11",.F.,.F.,{CTABELA,ADADOS})

GFEXWSFUN.PRW - GFEWSGETDATA() -> CQUERY += EXECBLOCK("GFEXWS07",.F.,.F.,{CTABELA,CCODINT})

GFEXWSFUN.PRW - GFEWSGETDATA() -> CQUERY := EXECBLOCK("GFEXWS17",.F.,.F.,{CTABELA,CFIL,CCODINT,CQUERY})

GFEXWSFUN.PRW - GFEWSGETDATA() -> CSTRING += EXECBLOCK("GFEXWS06",.F.,.F.,{(CTMP)->GW3_CDREM , (CTMP)->GW3_CDDEST })

GFEXWSFUN.PRW - GFEWSGETDATA() -> CSTRING += EXECBLOCK("GFEXWS12",.F.,.F.,{(CTMP)->GW6_FILIAL, (CTMP)->GW6_EMIFAT, (CTMP)->GW6_SERFAT, (CTMP)->GW6_NRFAT, (CTMP)->GW6_DTEMIS})

GFEXWSFUN.PRW - GFEWSGETDATA() -> CSTRING += EXECBLOCK("GFEXWS16",.F.,.F.,{(CTMP)->GW3_FILIAL, (CTMP)->GW3_CDESP, (CTMP)->GW3_EMISDF, (CTMP)->GW3_SERDF, (CTMP)->GW3_NRDF, (CTMP)->GW3_DTEMIS, CSTRING })

GFEXWSFUN.PRW - GFEWSGETDATA() -> CSTRING := EXECBLOCK("GFEXWS08",.F.,.F.,{CTABELA,CQUERY})

GFEXWSFUN.PRW - GFEWSPUTD () -> ADADOS := EXECBLOCK("GFEXWS05",.F.,.F.,{CTABELA,ADADOS})

GFEXWSFUN.PRW - GFEWSPUTD () -> CRETORNO := EXECBLOCK("GFEXWS02",.F.,.F.,{ADADOS,CTABELA})

GFEXWSFUN.PRW - GFEWSSETDATA() -> AROTADIC := EXECBLOCK("XGFEWGW6",.F.,.F.,{GW6->GW6_FILIAL, GW6->GW6_EMIFAT, GW6->GW6_SERFAT, GW6->GW6_NRFAT, GW6->GW6_DTEMIS, ADADOS[5]})

GFEXWSFUN.PRW - GFEWSSETDATA() -> EXECBLOCK("GFEXWS09",.F.,.F.,{CTABELA,ADADOS,CCODINT})

GFEXWSFUN.PRW - GFEWSSIMULATION() -> ACPPE := EXECBLOCK("GFEXWS18",.F.,.F.,{ADADOSGW1})

GFEXWSFUN.PRW - GFEWSSIMULATION() -> APARAMSIM := EXECBLOCK("GFEXWS13",.F.,.F.,{APARAMSIM})

GFEXWSFUN.PRW - SIM_GERAMSGRETORNO() -> CCOMPONENTES := EXECBLOCK("GFEXWS15",.F.,.F.,{CCOMPONENTES, CNRCALC, GFEXFB_5CMP(LTABTEMP, CTRBTCF, @ATRBTCF, 5, "CDTRP"), GFEXFB_5CMP(LTABTEMP, CTRBTCF, @ATRBTCF, 5, "NRTAB"),  GFEXFB_5CMP(LTABTEMP, CTRBTCF, @ATRBTCF, 5, "NRNEG"),  GFEXFB_5CMP(LTABTEMP, CTRBTCF, @ATRBTCF, 5, "CDFXTV"), GFEXFB_5CMP(LTABTEMP, CTRBTCF, @ATRBTCF, 5, "NRROTA") })

GFIN.BILLS.EMAIL.TLPP - GETBOLPDF() -> AAUXPE := EXECBLOCK("NGFBXBOL", .F., .F., {AGERBOL, CFILEPRINT, CPDFNAME})

GPEA010.PRX - FCHKIMG() -> NTAMMAX := EXECBLOCK("MRHLOADIMG", .F. , .F. ,{ CCODFIL, CCODMAT, CBMPPICT } )

GPEA010.PRX - FFINDSRC() -> LRET := !(EXECBLOCK("GP010RES",.F.,.F.))

GPEA010.PRX - FGRAVASR3() -> EXECBLOCK("GPALTSAL",.F.,.F.,)

GPEA010.PRX - GP010ALTSAL() -> BCONDAUX := EXECBLOCK("GPE10HIST",.F.,.F.,{NTIPOOPER,BCOND,CCOND})

GPEA010.PRX - GP010ALTSAL() -> BRETPE := EXECBLOCK( "GPE10ALTS", .F., .F. )

GPEA010.PRX - GPEA010EXCL() -> LRET := EXECBLOCK("GP010EXCLU",.F.,.F.)

GPEA010.PRX - GPEA010GRV() -> BCONDAUX := EXECBLOCK("GPE10HIST",.F.,.F.,{NTIPOOPER,BCOND,CCOND})

GPEA010.PRX - GPEA010GRV() -> LNEWRELRD0 := EXECBLOCK("GP010RELRD0",.F.,.F.)

GPEA010.PRX - GPEA010MNT() -> ABTN10 := EXECBLOCK("GPE10BTN",.F.,.F.)

GPEA010.PRX - GPEA010MNT() -> EXECBLOCK("GP010FIMPE",.F.,.F.)

GPEA010.PRX - GPEA010MNT() -> EXECBLOCK('GP010AGRV',.F.,.F.,{NOPC,LGRAVA})

GPEA010.PRX - GPEA010VALPE() -> LRET := EXECBLOCK("GP010VALPE",.F.,.F.)

GPEA011.PRX - MENUDEF() -> AROTPE := EXECBLOCK( "GPE11ROT", .F., .F. )

GPEA020.PRX - GP020PEGRV() -> EXECBLOCK("GP020GRV",.F.,.F.)

GPEA090.PRX - GPEA090LINOK() -> LLINOK := EXECBLOCK( "GP090OK", .F., .F., {ACOLS[N]} )

GPEA090.PRX - GPEA090MNT() -> EXECBLOCK("GP090ALT",.F.,.F.)

GPEA090.PRX - GPEA090MNT() -> IF GPEA090LINOK() .AND. IF(CPAISLOC $ "PTG", GPEA090TUDOK(), .T.) .AND. (IF(LGP090CHK, EXECBLOCK( "GP090CHK", .F., .F., {CCODUSER, CGRUPOS, ACLONE( ACOLSANT ), ACLONE( ACOLS )} ),.T.))

GPEA090.PRX - GPEA090MNT() -> IF( EXISTBLOCK("GP090VLD"), EXECBLOCK("GP090VLD",.F.,.F.), .T.) .AND. ;

GPEA090.PRX - GPEA090MNT() -> IF( EXISTBLOCK("GP090VLD"), EXECBLOCK("GP090VLD",.F.,.F.), .T.) .AND. ;

GPEA090.PRX - GPEA090MNT() -> MSAGUARDE( { || IF(GPEA090LINOK() .AND. IF(CPAISLOC $ "PTG",GPEA090TUDOK(),.T.) .AND. (IF(LGP090CHK,EXECBLOCK( "GP090CHK", .F., .F., {CCODUSER, CGRUPOS, ACLONE( ACOLSANT ), ACLONE( ACOLS )} ),.T.)), LDELOK := GPEA090GRAVA(CALIAS,CFIL,CMAT,AVIRTUAL,ACOLSREC,NOPCX,.F.,.F.), LRET := .F.) }, OEMTOANSI(STR0024))

GPEA100.PRX - GP100GRAVA() -> LRET := EXECBLOCK( "GP100CHK", .F., .F., {CCODUSER, CGRUPOS, SRV->RV_COD} )

GPEA100.PRX - GP100LINOK() -> LRET := EXECBLOCK( "GP100OK", .F., .F., {ACOLS[N]} )

GPEA100.PRX - GP100MNT() -> EXECBLOCK("GP100ALT",.F.,.F.)

GPEA110.PRX - GP110CHKDEL() -> LRET := EXECBLOCK("GPA110EXC",.F.,.F.)

GPEA110.PRX - GP110GRAVA() -> EXECBLOCK("GPA110GRV",.F.,.F.)

GPEA110.PRX - GP110LINOK() -> LRET := EXECBLOCK("GP110LNOK", .F., .F.)

GPEA180.PRX - FGRAVANOVO() -> AGP180CPOS := EXECBLOCK("GP180CPOS", .F., .F., {CALIAS, ACONTEUDO})

GPEA180.PRX - FMONTAHEADER() -> IF ( VALTYPE( ARET := EXECBLOCK("GP180HEA", .F. , .F. ,{AHEADER_AUX,AHEADER1_AUX}) ) == "A" ) .AND. LEN(ARET) > 1

GPEA180.PRX - GP180LINOK() -> IF LGP180VDPTO .AND. !EXECBLOCK("GP180VDP", .F., .F., {OGETSRA2:OBROWSE:NAT, OGETSRA2:ACOLS})

GPEA180.PRX - GPEA180FLT() -> CFILTRO := EXECBLOCK("GP18FILT", .F., .F.)

GPEA180.PRX - GPEA180LOT() -> EXECBLOCK("GP180MEN",.F.,.F.)

GPEA180.PRX - GPEA180PRC() -> EXECBLOCK( "GP180TRA" , .F. , .F. )

GPEA180.PRX - GPEA180PRC() -> IF !( EXECBLOCK("GP180VALID",.F.,.F.) )

GPEA180.PRX - GPEA180TRF() -> EXECBLOCK('GP010AGRV',.F.,.F.,{NOPC,LGRAVA})

GPEA190.PRX - GP190TUDOK() -> LRET := EXECBLOCK("GP190TOK", .F., .F.)

GPEA240.PRX - GP240COMMIT() -> EXECBLOCK("GP240EXC",.F.,.F.,{NOPERATION})

GPEA240.PRX - GP240COMMIT() -> EXECBLOCK("GP240GRV",.F.,.F.)

GPEA240.PRX - GP240COMMIT() -> EXECBLOCK("GP240MAN",.F.,.F.,{NOPERATION})

GPEA240.PRX - GP240LINOK() -> ELSEIF EMPTY(OGRID:GETVALUE("R8_MATSUB")) .AND. OGRID:GETVALUE("R8_DURACAO") > RCM->RCM_DSUBST .AND. IIF(LGP240VSUB, !EXECBLOCK("GP240VSUB",.F.,.F.), .T.)

GPEA240.PRX - GP240LINOK() -> LRET := EXECBLOCK("GP240VAL", .F., .F., {OGRID})

GPEA260.PRX - GPEFOTO() -> EXECBLOCK("GP260FOTO",.F.,.F.)

GPEA260.PRX - MENUDEF() -> EXECBLOCK("FIMPFCH",.F.,.F.)

GPEA265.PRX - GPEA265VALPE() -> LRET := EXECBLOCK("GP265VALPE",.F.,.F.)

GPEA280.PRX - GP280GRAVA() -> EXECBLOCK( "GP280G01", .F., .F., {CCPF} )

GPEA280.PRX - GP280GRAVA() -> EXECBLOCK("GP280GRV",.F.,.F.)

GPEA415.PRX - GP415RCKLINOK() -> LLINOK := LLINOK .AND. EXECBLOCK("G415RCKLOK", .F.,.F.)

GPEA415.PRX - GP415SRKLINOK() -> LLINOK := LLINOK .AND. EXECBLOCK("G415SRKLOK", .F., .F.)

GPEA415.PRX - GPEA415GRAVA() -> EXECBLOCK("GP415GRV", .F., .F.)

GPEA810.PRX - GP810VALPE() -> LRET := EXECBLOCK("GP810CONF",.F.,.F.)

GPECONV.PRW - FTRATAAFAS() -> EXECBLOCK("GPALTCFE",.F.,.F.)

GPEM015.PRX - FRGBVRA() -> EXECBLOCK("GPM19RGB", .F. , .F., { CROTBEN, (CALIASSRA)->RA_FILIAL, (CALIASSRA)->RA_MAT, CPER015, CPAG015 } )

GPEM016.PRW - FCALCPLANO() -> NBUSCA := EXECBLOCK("GPM016TM", .F., .F., {NBUSCA})

GPEM016.PRW - FCALCPLANO() -> NVALOR := EXECBLOCK("GPM016PL",.F.,.F.,{NVALOR, CTPPLAN})

GPEM019.PRW - FINTEGRARTF() -> EXECBLOCK("GPM19RGB", .F. , .F., { CROTBEN, SRA->RA_FILIAL, SRA->RA_MAT, CPERFOL, CSEMFOL } )

GPEM019.PRW - FINTEGRAVEX() -> EXECBLOCK("GPM19RGB", .F. , .F., { CROTFOL, SRC->RC_FILIAL, SRC->RC_MAT, CPERFOL, CSEMFOL } )

GPEM020.PRX - GPEM020GRD() -> CROTINTER := EXECBLOCK("GPM020ROT", .F., .F., {CROTINTER})

GPEM020.PRX - GPEM020PROCESSA() -> EXECBLOCK("VERLOGFL", .F., .F.)

GPEM020.PRX - GPEM020PROCESSA() -> IF !EXECBLOCK("GP690FIL", .F., .F., {3, CAXTABMESTRA} )

GPEM022.PRX - LOADMEMO() -> CRETORNO += EXECBLOCK("GPM022LOG",.F.,.F.,{ CPATH, CARQUIVO,CRETORNO } )

GPEM030.PRX - FM030CAN() -> EXECBLOCK("GPM030EX",.F.,.F.)

GPEM030.PRX - GP030RSTDAT() -> NEXECROT := EXECBLOCK("SAL_USUA",.F.,.F.)

GPEM030.PRX - M030INICALC() -> EXECBLOCK("GP030FER",.F.,.F.)

GPEM030.PRX - M030VLDCALC() -> LOKFER := EXECBLOCK("GPM030CO",.F.,.F.)

GPEM040.PRX - FCHKDTGER() -> EXECBLOCK("GPESALAR",.F.,.F.)

GPEM040.PRX - GPM040FIN() -> EXECBLOCK( "GPM040AR",.F.,.F.,{CROTEIR, CPER, CNPGTO, CPROCESSO, SRA->RA_MAT})

GPEM040.PRX - GPM040FIN() -> LRETGPM040APL := EXECBLOCK("GPM040RA")

GPEM040.PRX - VLDTPRES() -> LRET := EXECBLOCK("VLDTPRESP",.F.,.F.)

GPEM060.PRX - FVERMED() -> EXECBLOCK("GP060FAL",.F.,.F.)

GPEM060.PRX - GPM060PROC() -> APROFERP := EXECBLOCK("GP060MULT",.F.,.F.)

GPEM060.PRX - GPM060PROC() -> EXECBLOCK("GP030FER",.F.,.F.)

GPEM070.PRX - FBUSCODBX() -> EXECBLOCK("GP070COD",.F.,.F.)

GPEM070.PRX - FBXA13OPROV() -> EXECBLOCK("GP090B13",.F.,.F.)

GPEM070.PRX - FBXA13OPROV() -> EXECBLOCK("GP090BIF",.F.,.F.)

GPEM070.PRX - FBXAFERPROV() -> EXECBLOCK("GP070BIF",.F.,.F.)

GPEM070.PRX - FBXAFERPROV() -> LACHOU := EXECBLOCK("GP070FBX",.F.,.F.)

GPEM070.PRX - FGERASRT() -> EXECBLOCK("GP070CHK",.F.,.F.)

GPEM070.PRX - FGERASRT() -> EXECBLOCK("GP070GRV", .F., .F., {(CTBLXPROV)->PR_FILIAL, (CTBLXPROV)->PR_MAT, NTIPOPROV})

GPEM070.PRX - FPROV13O() -> EXECBLOCK("GP090DEC",.F.,.F.)

GPEM070.PRX - FPROV13O() -> EXECBLOCK("GP090DIF",.F.,.F.)

GPEM070.PRX - FPROV13O() -> EXECBLOCK("GP090F13",.F.,.F.)

GPEM070.PRX - FPROVFER() -> ADADOS:=EXECBLOCK('GP070ANT',.F.,.F.,{DDTBASFER,DDATAREF,NDFERANT})

GPEM070.PRX - FPROVFER() -> EXECBLOCK("GP070P13",.F.,.F.)

GPEM070.PRX - FPROVFER() -> EXECBLOCK("GP070PIF",.F.,.F.)

GPEM070.PRX - FPROVFER() -> EXECBLOCK("GP070PRO",.F.,.F.)

GPEM070.PRX - FPROVFER() -> EXECBLOCK("GP070V13",.F.,.F.)

GPEM070.PRX - FPROVFER() -> EXECBLOCK("GP070VEN",.F.,.F.)

GPEM070.PRX - FPROVFER() -> EXECBLOCK("GP070VIF",.F.,.F.)

GPEM070.PRX - GPM070CALG() -> APLR:=EXECBLOCK('GP070PLR',.F.,.F.,{(CTBLXPROV)->PR_FILIAL,(CTBLXPROV)->PR_MAT,APLRSALAR[_ANTER,_PROV],DDATAREF})

GPEM070.PRX - GPM070PROCESSA() -> EXECBLOCK("GP070FIM",.F.,.F.)

GPEM080.PRX - GPM080PROCESSA() -> EXECBLOCK("GP410CRP",.F.,.F.)

GPEM080.PRX - GPM080PROCESSA() -> EXECBLOCK("GP450CRP",.F.,.F.)

GPEM080.PRX - GPM080PROCESSA() -> EXECBLOCK("GPM080HDR",.F.,.F.)

GPEM080.PRX - GPM080PROCESSA() -> IF !(EXECBLOCK("GP410DES",.F.,.F.))

GPEM080.PRX - GPM080PROCESSA() -> IF !(EXECBLOCK("GP450DES",.F.,.F.))

GPEM080.PRX - GPM080PROCESSA() -> IF !(EXECBLOCK("GP450VAL",.F.,.F.))

GPEM080.PRX - GPM080PROCESSA() -> URET := EXECBLOCK("GP080US1",.F.,.F.,{NTOTVAL})

GPEM080.PRX - SETARQNOME() -> CARQSAIDA := EXECBLOCK( "GP410ARQ", .F., .F., {CARQSAIDA} )

GPEM080.PRX - SETARQNOME() -> CARQSAIDA := EXECBLOCK( "GP450ARQ", .F., .F., {CARQSAIDA} )

GPEM110.PRX - FGERACTAB() -> ARATEIO := EXECBLOCK("GP110SRZ",.F.,.F.,{"FER",DDATAREF})

GPEM110.PRX - FGERACTAB() -> ARATEIO:= EXECBLOCK("GP110SRZ",.F.,.F.,{"13",DDATAREF})

GPEM110.PRX - FGERACTAB() -> ARATEIO:= EXECBLOCK("GP110SRZ",.F.,.F.,{"14",DDATAREF})

GPEM110.PRX - FGERACTAB() -> ARATEIO:= EXECBLOCK("GP110SRZ",.F.,.F.,{"PLR",DDATAREF})

GPEM110.PRX - FGERACTAB() -> EXECBLOCK("GP110APP",.F.,.F.)

GPEM110.PRX - FGERAFOLSRZ() -> EXECBLOCK("GP110APL",.F.,.F.)

GPEM110.PRX - GPEM110PROCESSA() -> AFILCONTAB := EXECBLOCK( "GP110ACT" , .F. , .F. )

GPEM110.PRX - GPEM110PROCESSA() -> EXECBLOCK("GP110ANL",.F.,.F.)

GPEM120.PRX - FGRAVAACUM() -> EXECBLOCK("GP120CMP",.F.,.F.)

GPEM120.PRX - FGRAVAACUM() -> EXECBLOCK("GP120INC",.F.,.F.)

GPEM120.PRX - GP120FECFOL() -> LATUALIZA := EXECBLOCK("GPRAM120",.F.,.F.)

GPEM120.PRX - GPM120PROCESSA() -> EXECBLOCK("GP120END",.F.,.F., AROTEIROS)

GPEM120.PRX - GRVVALFUTURO() -> EXECBLOCK("GP120PRE",.F.,.F.)

GPEM160.PRX - GPM160PROCESSA() -> IF EXECBLOCK("GPROXFUN",.F.,.F.)

GPEM170.PRX - GPM170PROCESSA() -> IF EXECBLOCK("GPROXFUN",.F.,.F.)

GPEM240.PRX - CARIMPGPS() -> EXECBLOCK("IMPGPS",.F.,.F.)

GPEM550.PRX - FGRAVAINF() -> EXECBLOCK( "GPE550GRV", .F., .F., { 3 } )

GPEM550.PRX - GPE550ICD()  ³() -> EXECBLOCK("GPM550GR",.F.,.F.)

GPEM550.PRX - GPE550ICD()  ³() -> URETBLOCK := EXECBLOCK( "GPE550ICD", .F., .F., { ACLONE(ABENEF) } )

GPEM550.PRX - GRAVASR4() -> EXECBLOCK( "GPE550GRV", .F., .F., { 2 } )

GPEM580.PRX - IMP_JURIDICA() -> EXECBLOCK("IMPIRPJ",.F.,.F.)

GPEM590.PRX - FDDIRF() -> CFILE := EXECBLOCK("GP590ARQ",.F.,.F.,CFILE)

GPEM590.PRX - FGERAINFORME() -> LLEVAFUNC := (EXECBLOCK("GP590FUN",.F.,.F.))

GPEM590.PRX - GERPSTEMP() -> EXECBLOCK("GP590TAB")

GPEM590.PRX - GPM590NEW() -> LLEVAFUNC := (EXECBLOCK("GP590FUN",.F.,.F.))

GPEM610.PRX - DBF_TIPO10() -> EXECBLOCK("GP610SALMAT",.F.,.F.,{CAUXFIL})

GPEM610.PRX - DBF_TIPO10() -> EXECBLOCK("GPM610SALFAM",.F.,.F.,{CAUXFIL})

GPEM610.PRX - DBF_TIPO20() -> EXECBLOCK("GPM610SALFAM",.F.,.F.,{CAUXFIL})

GPEM610.PRX - DBF_TIPO20() -> EXECBLOCK("GPM610TP20",.F.,.F.)

GPEM610.PRX - DBF_TIPO30() -> NREMRET := EXECBLOCK("GPE610REM",.F.,.F.)

GPEM610.PRX - F13SAL() -> NSALMATV := EXECBLOCK("GPM610V",.F.,.F.)

GPEM610.PRX - FCENTRO() -> EXECBLOCK("GPM610TOM" ,.F.,.F.,{AINFO,CCUSTO,CAUXFIL})

GPEM610.PRX - FMATRICULA() -> EXECBLOCK("GP610NMV", .F., .F.,{CFILANTERIOR,ACLONE(AINFO)} )

GPEM610.PRX - FMONTASR8() -> CTIPO1 := EXECBLOCK("GPM610Q",.F.,.F.)

GPEM610.PRX - FMONTASR8() -> LGP610AFAS:= EXECBLOCK('GP610AFAS',.F.,.F.)

GPEM630.PRX - FGRAVARES() -> EXECBLOCK("GPM040GR",.F.,.F.)

GPEM630.PRX - GP630EFETIVA() -> EXECBLOCK("GPM040GR",.F.,.F.)

GPEM630.PRX - GP630EXCLUI() -> EXECBLOCK("GPM040EX",.F.,.F.)

GPEM630.PRX - GP630EXCLUI() -> IF EXECBLOCK("GP630C",.F.,.F.)

GPEM630.PRX - GPEM630PROCESSA() -> ALOG := EXECBLOCK("GPLOG040",.F.,.F.)

GPEM630.PRX - GPEM630PROCESSA() -> EXECBLOCK("GPDAV040",.F.,.F.)

GPEM650.PRX - FGRAVTIT() -> ADADOSPE := EXECBLOCK("GP650CFO",.F.,.F.,ADADOSAUTO)

GPEM650.PRX - FGRAVTIT() -> ARET1 := EXECBLOCK("GP650CHK",.F.,.F.,{NRECAGRUP,.T.})

GPEM650.PRX - FGRAVTIT() -> EXECBLOCK("GP650CPO",.F.,.F.)

GPEM660.PRX - FMOSTLEG() -> IF VALTYPE( URET := EXECBLOCK('GP660COR',.F.,.F.,ACOR) ) == "A"

GPEM660.PRX - FPROCEXC() -> IF EXECBLOCK("GPM060EX",.F.,.F.)

GPEM660.PRX - GPM660ALT() -> AGPM660 :=  EXECBLOCK("GP660BUA",.F.,.F.)

GPEM660.PRX - GPM660INC() -> AGPM660 :=  EXECBLOCK("GP660BUI",.F.,.F.)

GPEM660.PRX - GPM660VLD() -> LRET := EXECBLOCK("GPM60VLD",.F.,.F.,{NTIPO})

GPEM660.PRX - MENUDEF() -> AROTINA := EXECBLOCK( "GP660ROT" ,.F.,.F.,{AROTINA}, .F. )

GPEM670.PRX - GPM670GRAVA() -> ACPOSUSR :=EXECBLOCK("GP670ARR",.F.,.F.)

GPEM670.PRX - GPM670GRAVA() -> EXECBLOCK("GP670CPO",.F.,.F.)

GPEM670.PRX - GPM670GRAVA() -> LRETPE := EXECBLOCK( "GPM670VAL", .F., .F. )

GPEM680.PRX - DBF_TIPO10() -> EXECBLOCK("GPM680FPAS",.F.,.F.)

GPEM690.PRX - GP690CAL() -> CEXPFILTRO := EXECBLOCK("GP690FIL", .F., .F., {2, CEXPFILTRO} )

GPEM690.PRX - GP690CAL() -> EXECBLOCK("GPM690PERC",.F.,.F.)

GPEM690.PRX - GP690CAL() -> EXECBLOCK("GPREAJPROP",.F.,.F.,NBASEMESAUX)

GPEM690.PRX - GP690CAL() -> LCONSIDERA := EXECBLOCK("GP690SAL",.F.,.F.)

GPEM690.PRX - GP690PROC() -> EXECBLOCK("GPALTSAL",.F.,.F.,)

GPER020.PRX - FROM OSECTION:CELL("VALOR() -> EXECBLOCK("GPR020FIN",.F.,.F.)

GPER020.PRX - GP020BUSCALIQ() -> EXECBLOCK("GPCHKLIQ",.F.,.F.)

GPER030.PRX - FSENDDPGTO() -> CHTMLAUX := EXECBLOCK("GP30BASEHTM",.F.,.F.)

GPER050.PRX - PROCESDARF() -> LRETPE := EXECBLOCK( "GP050FIL", .F., .F. )

GPER080.PRX - FIMPMEDN() -> EXECBLOCK("GPM04MED",.F.,.F.)

GPER080.PRX - FIMPR_MEDN() -> EXECBLOCK("GP080ALT",.F.,.F.)

GPER130.PRX - FIMPRAVI() -> EXECBLOCK("IMPFER",.F.,.F.)

GPER130.PRX - GP130IMP() -> EXECBLOCK("IMPFER",.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK("IMPRESDOM",.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK("IMPRESGEN",.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK("IMPRESGSP" , .F. , .F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK("IMPRESMEX",.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK('IMPGRFC',.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK('IMPGRFC1',.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK('IMPLIFIN',.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK('IMPRESAN',.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK('IMPRESBOL',.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK('IMPRESC',.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK('IMPRESC1',.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK('IMPRESCOL',.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK('IMPRESG',.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK('IMPRESG1',.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK('IMPRESH',.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK('IMPRESH1',.F.,.F.)

GPER140.PRX - IMPFUNC() -> EXECBLOCK('IMPRESZ',.F.,.F.)

GPER200.PRX - GR200IMP() -> EXECBLOCK("GPALTSAL",.F.,.F.,)

GPER200.PRX - GR200IMP() -> EXECBLOCK("GPM690PERC",.F.,.F.)

GPER200.PRX - GR200IMP() -> EXECBLOCK("GPR200ATU",.F.,.F.,)

GPER200.PRX - GR200IMP() -> EXECBLOCK("GPREAJPROP",.F.,.F.)

GPER280.PRX - GPR280PROCESSA() -> EXECBLOCK("GP280CHQ",.F.,.F.)

GPER564.PRW - GERATIPO12() -> ADADOS:=EXECBLOCK('GPR564',.F.,.F.,{'4',ADADOS})

GPER564.PRW - GERATIPO2() -> ADADOS:=EXECBLOCK('GPR564',.F.,.F.,{'2',ADADOS})

GPER564.PRW - GERATIPO4() -> ADADOS:=EXECBLOCK('GPR564',.F.,.F.,{'4',ADADOS})

GPER564.PRW - GERATIPO5() -> ADADOS:=EXECBLOCK('GPR564',.F.,.F.,{'3',ADADOS})

GPER564.PRW - GERATIPO5D() -> ADADOS:=EXECBLOCK('GPR564',.F.,.F.,{'5D',ADADOS})

GPER564.PRW - GERATIPO5V() -> ADADOS:=EXECBLOCK('GPR564',.F.,.F.,{'5V',ADADOS})

GPER564.PRW - GERATIPO6() -> ADADOS:=EXECBLOCK('GPR564',.F.,.F.,{'4',ADADOS})

GPER564.PRW - GERATIPO7() -> ADADOS:=EXECBLOCK('GPR564',.F.,.F.,{'4',ADADOS})

GPER564.PRW - GERATIPO7CESS() -> ADADOS:=EXECBLOCK('GPR564',.F.,.F.,{'4',ADADOS})

GPER564.PRW - GERATIPO7IRP() -> ADADOS:=EXECBLOCK('GPR564',.F.,.F.,{'4',ADADOS})

GPER564.PRW - GERATIPO7M() -> ADADOS:=EXECBLOCK('GPR564',.F.,.F.,{'4',ADADOS})

GPER564.PRW - GERATIPO8() -> ADADOS:=EXECBLOCK('GPR564',.F.,.F.,{'4',ADADOS})

GPER930.PRW - R3FIMPFIL() -> EXECBLOCK("IMPDARF",.F.,.F.)

GPER930.PRW - R3GR930IMP() -> LRETPE := EXECBLOCK( "GP050FIL", .F., .F. )

GPER986.PRW - FREQEPI() -> EXECBLOCK( "FREQEPI", .F., .F. )

GPER986.PRW - FRESPONSA() -> EXECBLOCK( "FRESPONSA", .F., .F. )

GPER987.PRW - FOPTPPIS() -> EXECBLOCK( "FOPTPPIS", .F., .F. )

GPEXCADI.PRX - PERICUL() -> EXECBLOCK("CALCPERIC",.F.,.F.)

GPEXCAL3.PRX - FATUCALC() -> IF !EXECBLOCK("INCORPSL",.F.,.F.)

GPEXCBEN.PRX - CUSTOVALES() -> EXECBLOCK("GP210SAL", .F. , .F. )

GPEXCBEN.PRX - FINTEGRAOUT() -> EXECBLOCK("GPM19RGB", .F. , .F., { CROTBEN, RIQ->RIQ_FILIAL, RIQ->RIQ_MAT, CPERFOL, CSEMFOL } )

GPEXCBEN.PRX - FVTRCALC() -> AVTRDIAS := EXECBLOCK("GPVTRDIAS",.F.,.F.)

GPEXCBEN.PRX - FVTRCALCN() -> AVTRDIAS := EXECBLOCK("GPVTRDIAS",.F.,.F.)

GPEXCBEN.PRX - FVTRCALCN() -> EXECBLOCK("GP210SAL", .F. , .F. )

GPEXCBEN.PRX - FVTRGRV() -> EXECBLOCK("GPM5001",.F.,.F.)

GPEXCBEN.PRX - FVTRGRVN() -> EXECBLOCK("GPM5001",.F.,.F.)

GPEXFERE.PRX - CALC_FER() -> EXECBLOCK("CALCDFER",.F.,.F.)

GPEXFERE.PRX - CALC_FER() -> EXECBLOCK("GPALTCFE",.F.,.F.)

GPEXFGEN.PRX - FMONTAMAIL() -> IF !(VALTYPE(LVLDPE := EXECBLOCK( "GPM040MAIL", .F.,.F. )) == "L")

GPEXFGEN.PRX - GPEGETLEGEND() -> IF VALTYPE( URET := EXECBLOCK( "GPBWLEG", .F., .F., ALEGEND ) ) == "A"

GPEXFGEN.PRX - GPLEGEND() -> IF VALTYPE( URET := EXECBLOCK('GP010BWLEG',.F.,.F.,ALEGENDA) ) == "A"

GPEXFGEN.PRX - TABFALTAS() -> EXECBLOCK("GPTABFAL", .F., .F., {APERAQ})

GPEXFORM.PRX - GPECBLOCK() -> RETURN( EXECBLOCK( P1 , .F. , .F. , P4 ) )

GPEXFORM.PRX - SETGPEBLOCK() -> RETURN( STRTRAN( UPPER( CFORM ) , "EXECBLOCK" , "GPECBLOCK" ) )

GPEXFORM.PRX - SETGPEBLOCK() -> ³DESCRI‡…O ³FORCA A PASSAGEM DOS PARAMETROS NA CHAMADA DO EXECBLOCK. ³

GPEXLOC1.PRX - FVALORIZA() -> IF !EXECBLOCK("INCORPSL",.F.,.F.)

GPEXMED.PRX - FCARGAPRO() -> URET:= EXECBLOCK("GPXPDMED",.F.,.F.,PD)

GPEXMED.PRX - GPEXMED() -> CPDCOMISS:= EXECBLOCK("GPXCOMIS",.F.,.F.)

GPEXMED.PRX - GPEXMED() -> EXECBLOCK("GPDERSRD",.F.,.F.)

GPEXMED.PRX - GPEXMED() -> EXECBLOCK("GPMEDARR",.F.,.F.)

GPEXMED.PRX - GPEXMED() -> EXECBLOCK("GPMEDPER",.F.,.F.)

GPEXMED.PRX - GPEXMED() -> NQUALMEDPE := EXECBLOCK("GPAVOSMED",.F.,.F.,NQUALMED)

GPEXMED.PRX - GPEXMED() -> URET:= EXECBLOCK("GPXMEDPD",.F.,.F.,{SUBSTR(PD[X],1,3),PD})

GPEXMED.PRX - GRA_MED() -> EXECBLOCK("GPALTTRP",.F.,.F.)

GPEXMED.PRX - GRA_MED() -> EXECBLOCK("GPMEDTRP",.F.,.F.)

GPEXMED.PRX - GRA_MED() -> IF ( VALTYPE( NRET := EXECBLOCK('GPMEDTAR' , .F. , .F. , { CPD , NVALOR , NHORAS } ) ) == "N" )

GPEXRDM.PRX - GPEXETIQAS() -> EXECBLOCK( "ETIQAS", .F., .F. )

GPEXRDM.PRX - GPEXETIQCT() -> EXECBLOCK( "ETIQCT", .F., .F. )

GPEXRDM.PRX - GPEXETIQFE() -> EXECBLOCK( "ETIQFER", .F., .F. )

GPEXRDM.PRX - GPEXETIQMD() -> EXECBLOCK( "ETIQMD", .F., .F. )

GPEXRDM.PRX - GPEXETIQOP() -> EXECBLOCK( "ETIQOPC", .F., .F. )

GPEXRDM.PRX - GPEXIMPCAT() -> EXECBLOCK( "IMPCAT", .F., .F. )

GPEXRDM.PRX - GPEXIMPMOD() -> EXECBLOCK( "IMPMODEL", .F., .F. )

GPEXRDM.PRX - GPEXIMPRPA() -> EXECBLOCK( "IMPRPA", .F., .F. )

GPEXRDM.PRX - GPEXREAJTA() -> EXECBLOCK( "REAJTAR", .F., .F. )

GPEXRDM.PRX - GPEXRECBRA() -> EXECBLOCK( "RECBRAD", .F., .F. )

GPEXRDM.PRX - GPEXRECITA() -> EXECBLOCK( "RECITAU", .F., .F. )

GPEXRDM.PRX - GPEXRECSAN() -> EXECBLOCK( "RECSANT", .F., .F. )

GPEXRDM.PRX - GPEXRPPP() -> EXECBLOCK( "GPERPPP", .F., .F. )

GPEXRDM.PRX - GPEXSEGDES() -> EXECBLOCK( "SEGDES", .F., .F. )

GPEXRDM.PRX - GPEXWORD() -> EXECBLOCK( "GPEWORD", .F., .F. )

GPEXUSUA.PRX - FCOMPL13() -> IF !EXECBLOCK("GPCOMPL13",.F.,.F.)

GPEXUSUA.PRX - GRAVADISSIDIO() -> EXECBLOCK( "GP020VBDI" ,.F.,.F. )

GTPA800.PRW - RETFUN() -> EXECBLOCK("GTPR801ENC", .F., .F., {G99->(RECNO())})

GTPA800.PRW - RETFUN() -> FWMSGRUN(, {|| EXECBLOCK("ENCDACTE", .F., .F.)  }, , STR0043)

GTPA803.PRW - G803IMPR() -> EXECBLOCK("ENCDACTE", .F., .F.)

GTPA803.PRW - GERAAVERBACAO() -> ADADOSAVB := EXECBLOCK("GTPENVATM",.F.,.F.,{CTIPO, CFILDOC, CNUMDOC, CSERIE, CSEGPADRAO})

GTPA818.PRW - GTPA818() -> APARAM :=  EXECBLOCK("G818EMAIL", .F., .F., {CNOMREM, CNOMDES, CTOMADOR, CTITEMAIL, CCOREMAIL, CCHVCTE, CNROCTE})

HCMGP.PRW - HCMGPALTERA() -> EXECBLOCK("HCMGRV02",.F.,.F.,{4,XB2->XB2_DESCR})

HHMOBEXP.PRX - HHEXPACO() -> ADADOS[01] := EXECBLOCK("HEXPACOA", .F., .F., {ADADOS[01]})

HHMOBEXP.PRX - HHEXPACO() -> ADADOS[02] := EXECBLOCK("HEXPACPA", .F., .F., {ADADOS[02]})

HHMOBEXP.PRX - HHEXPACO() -> CQUERY := EXECBLOCK("HEXPACOB", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPACO() -> CQUERY := EXECBLOCK("HEXPACPB", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPACQ() -> ADADOS[01] := EXECBLOCK("HEXPACQA", .F., .F., {ADADOS[01]})

HHMOBEXP.PRX - HHEXPACQ() -> ADADOS[02] := EXECBLOCK("HEXPACRA", .F., .F., {ADADOS[02]})

HHMOBEXP.PRX - HHEXPACQ() -> CQUERY := EXECBLOCK("HEXPACQB", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPACQ() -> CQUERY := EXECBLOCK("HEXPACRB", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPACS() -> ADADOS[01] := EXECBLOCK("HEXPACSA", .F., .F., {ADADOS[01]})

HHMOBEXP.PRX - HHEXPACS() -> ADADOS[02] := EXECBLOCK("HEXPACTA", .F., .F., {ADADOS[02]})

HHMOBEXP.PRX - HHEXPACS() -> CQUERY := EXECBLOCK("HEXPACSB", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPACS() -> CQUERY := EXECBLOCK("HEXPACTB", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPACU() -> ADADOS[01] := EXECBLOCK("HEXPACUA", .F., .F., {ADADOS[01]})

HHMOBEXP.PRX - HHEXPACU() -> ADADOS[02] := EXECBLOCK("HEXPACVA", .F., .F., {ADADOS[02]})

HHMOBEXP.PRX - HHEXPACU() -> CQUERY := EXECBLOCK("HEXPACUB", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPACU() -> CQUERY := EXECBLOCK("HEXPACVB", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPAD7() -> ADADOS := EXECBLOCK("HEXPAD7A", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPAD7() -> CQUERY := EXECBLOCK("HEXPAD7B", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPDA0() -> ADADOSCAB := EXECBLOCK("HEXPDA0C", .F., .F., {ADADOSCAB})

HHMOBEXP.PRX - HHEXPDA0() -> ADADOSITE := EXECBLOCK("HEXPDA0A", .F., .F., {ADADOSITE})

HHMOBEXP.PRX - HHEXPDA0() -> CDELUPD := EXECBLOCK("HEXPDA0E", .F., .F., {CDELUPD})

HHMOBEXP.PRX - HHEXPDA0() -> CQUERY := EXECBLOCK("HEXPDA0B", .F., .F., {CQUERY,CID})

HHMOBEXP.PRX - HHEXPDA0() -> CQUERY := EXECBLOCK("HEXPDA0D", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPDA0() -> EXECBLOCK("HEXPDA0F", .F., .F.)

HHMOBEXP.PRX - HHEXPSA1() -> ADADOS := EXECBLOCK("HEXPSA101", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPSA1() -> CQUERY := EXECBLOCK("HEXPSA1B", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPSA4() -> ADADOS := EXECBLOCK("HEXPSA4A", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPSA4() -> CQUERY := EXECBLOCK("HEXPSA4B", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPSA5() -> ADADOS := EXECBLOCK("HEXPSA5A", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPSA5() -> CQUERY := EXECBLOCK("HEXPSA5B", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPSB1() -> ADADOS := EXECBLOCK("HEXPSB101", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPSB1() -> CQUERY := EXECBLOCK("HEXPSB1A", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPSB2() -> ADADOS := EXECBLOCK("HEXPSB2A", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPSB2() -> CQUERY := EXECBLOCK("HEXPSB2B", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPSB2() -> EXECBLOCK("HEXPSB2C", .F., .F.)

HHMOBEXP.PRX - HHEXPSBM() -> ADADOS := EXECBLOCK("HEXPSBMA", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPSBM() -> CQUERY := EXECBLOCK("HEXPSBMB", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPSC5() -> ADADOS := EXECBLOCK("HEXPSC5A", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPSC5() -> ADADOS1 := EXECBLOCK("HEXPSC6A", .F., .F., {ADADOS1})

HHMOBEXP.PRX - HHEXPSC5() -> CQUERY := EXECBLOCK("HEXPSC5B", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPSC5() -> CQUERY := EXECBLOCK("HEXPSC6B", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPSC5() -> EXECBLOCK("HEXPSC6C", .F., .F.,{CID, CCPO, NOPER})

HHMOBEXP.PRX - HHEXPSCT() -> ADADOS := EXECBLOCK("HEXPSCTA", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPSCT() -> CQUERY := EXECBLOCK("HEXPSCTB", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPSE1() -> ADADOS := EXECBLOCK("HEXPSE1A", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPSE1() -> CQUERY := EXECBLOCK("HEXPSE1B", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPSE4() -> ADADOS := EXECBLOCK("HEXPSE4A", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPSE4() -> CDELUPD := EXECBLOCK("HEXPSE4C", .F., .F., {CDELUPD})

HHMOBEXP.PRX - HHEXPSE4() -> CQUERY := EXECBLOCK("HEXPSE4B", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPSF4() -> ADADOS := EXECBLOCK("HEXPSF4A", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPSF4() -> CQUERY := EXECBLOCK("HEXPSF4B", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPSU5() -> ADADOS := EXECBLOCK("HEXPSU5A", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPSU5() -> CQUERY := EXECBLOCK("HEXPSU5B", .F., .F., {CQUERY})

HHMOBEXP.PRX - HHEXPSX5() -> ADADOS := EXECBLOCK("HEXPSX5A", .F., .F., {ADADOS})

HHMOBEXP.PRX - HHEXPSX5() -> CQUERY := EXECBLOCK("HEXPSX5B", .F., .F., {CQUERY})

HHMOBEXP.PRX - XEXPHCF() -> ACFGUSER := EXECBLOCK("HEXPHCF01", .F., .F.)

HHMOBEXP.PRX - XEXPHCF() -> EXECBLOCK("HEXPSX501", .F., .F.)

HHMOBEXP.PRX - XEXPHCN() -> CQUERY := EXECBLOCK("HEXPSA1B", .F., .F., {CQUERY})

HHMOBEXP.PRX - XEXPHCN() -> NPADCPO := EXECBLOCK("HEXPHCNA", .F., .F.,{ACONS,NX,@NPADCPO})

HHMOBIMP.PRX - HHIMPHA1() -> APE := EXECBLOCK("HHHA1PRE",.F.,.F.,{ACAB})

HHMOBIMP.PRX - HHIMPHC5() -> EXECBLOCK("HHHC5POS", .F., .F., {CPROXPED,LEN(AITENS)})

HHMOBIMP.PRX - HHIMPHD5() -> APE := EXECBLOCK("HHHD5PRE",.F.,.F.,{ACAB})

HHMOBIMP.PRX - HHIMPHU5() -> APE := EXECBLOCK("HHHU5PRE",.F.,.F.,{ACAB})

HHSFAEXP.PRW - XEXPDA0(CSB1() -> CQUERY += EXECBLOCK("HANHPR01",.F.,.F.)

HHSFAEXP.PRW - XEXPDA0(CSB1() -> CQUERYDA0 += EXECBLOCK("HANHTC01",.F.,.F.)

HHSFAEXP.PRW - XEXPDA0(CSB1() -> LOKTAB := EXECBLOCK("HANHPR02",.F.,.F.)

HHSFAEXP.PRW - XEXPSA1()() -> CFILTRO += EXECBLOCK("PLMCLI01",.F.,.F.)

HHSFAEXP.PRW - XEXPSA1()() -> CQUERYSE1 += EXECBLOCK("PLMFIN01",.F.,.F.)

HHSFAEXP.PRW - XEXPSB1()() -> CFILTRO += EXECBLOCK("PLMPRD01",.F.,.F.)

HHSFAEXP.PRW - XEXPSB1()() -> CQUERY += EXECBLOCK("PLMPRD01",.F.,.F.)

HHSFAEXP.PRW - XEXPSB1()() -> CQUERYSB1 += EXECBLOCK("PLMPRD01",.F.,.F.)

HHSFAEXP.PRW - XEXPSB1()() -> LOKPRD := EXECBLOCK("PLMPRD02",.F.,.F.)

HHSFAEXP.PRW - XEXPSE4()() -> LOKCND := EXECBLOCK("PLMCND01",.F.,.F.)

HHSFAEXP.PRW - XEXPSE4()() -> LOKTES := EXECBLOCK("PLMTES01",.F.,.F.)

HHSFAEXP.PRW - XEXPSF2(ACON() -> ACPOCONS := EXECBLOCK("PLMHCN01",.F.,.F.)

HHTFAEXP.PRW - PPROD() -> CFILTRO += EXECBLOCK("PLMPRD01",.F.,.F.)

HHTRIGGER.PRW - HHDA0(CCPO() -> LOKTAB := EXECBLOCK("HANHPR02",.F.,.F.)

HHTRIGGER.PRW - HHDA1(CCPO() -> LOKTAB := EXECBLOCK("HANHPR02",.F.,.F.)

HHTRIGGER.PRW - HHSB1(CCPO() -> LOKPRD := EXECBLOCK("PLMPRD03",.F.,.F.)

HHTRIGGER.PRW - HHSF4(CCPO() -> LOKTES := EXECBLOCK("PLMTES01",.F.,.F.)

HHXAPI.PRX - HHMAIL() -> ATO := EXECBLOCK("HHMAIL02",.F.,.F.,{ATO})

HHXFUN.PRW - PUPDHHCTR() -> EXECBLOCK("HHTRG02",.F.,.F.)

HSPAHA08.PRW - MENUDEF() -> AA08ROT := EXECBLOCK("HSA08ROT", .F., .F., {AROTINA})

HSPAHA53.PRW - HSPAH531() -> EXECBLOCK("HSP53PGRV",.F.,.F.,{M->B1_COD, M->GBI_CODUNI})

HSPAHA58.PRW - FS_TUDOOK() -> LRET := EXECBLOCK("HSP58OK1", .F., .F.)

HSPAHA58.PRW - HS_INCSA1() -> LGRAVACLI := EXECBLOCK("HSP58GCL",.F.,.F.,{LGRAVACLI})

HSPAHAB7.PRW - HSPAHAB7() -> LOCAL CVLDEXC := "HS_AB7VLD()"

HSPAHABQ.PRW - FS_TRATFUN() -> EXECBLOCK("HSABQRPR",.F.,.F.,{AMNTIMP})

HSPAHAIH.PRW - HS_VLDAIH() -> LRET := EXECBLOCK("HSVPAM24",.F.,.F.,NIL)

HSPAHM04.PRW - HS_MNTM04() -> ACTIVATE MSDIALOG ODLG ON INIT ( ENCHOICEBAR(ODLG, {|| NOPCDLG := 1, IIF(IIF(EXISTBLOCK("HSPM04OK"),EXECBLOCK("HSPM04OK",.F.,.F.),.T.) .AND. OBRIGATORIO(AGETS, ATELA) .AND. OGDGAJ:TUDOOK() .AND. HS_VALSET(OGDGAJ), ODLG:END(), NOPCDLG := 0)}, ;

HSPAHM04.PRW - HS_MNTM04() -> EXECBLOCK("HSGCFM04", .F., .F.,NIL)

HSPAHM04.PRW - HS_MNTM04() -> EXECBLOCK("HSPHRAP03", .F., .F., {GAI->GAI_SOLICI})

HSPAHM05.PRW - FS_GRVM05() -> CREGATEN := EXECBLOCK("HSREGSD3", .F., .F., {M->GAI_REGATE, M->GAI_REQUIS})

HSPAHM05.PRW - HS_ATEM05() -> ACPOSUSU:=EXECBLOCK("HM05CPOS",.F.,.F.,{NOPCM05})

HSPAHM05.PRW - HS_ATEM05() -> ENCHOICEBAR(ODLGM05, {|| NOPCDLG := 1,IIF(EXISTBLOCK("HM05TOK"),EXECBLOCK("HM05TOK", .F.,.F.,{CALIASM05, NREGM05, NOPCM05}) ,.T.) .AND. IIF( IIF( NOPCM05 == 5 .OR. NOPCM05 == 6,FS_VLDDEV(),(OBRIGATORIO(AGETS, ATELA) .AND. OGDGAJ:TUDOOK() .AND. FS_VERGUIA() .AND. HS_VALSET(OGDGAJ, .T., NOPCM05) .AND. FS_VLDSALD(OGDGAJ, NOPCM05))), ODLGM05:END(), NOPCDLG := 0)}, ;

HSPAHM05.PRW - HS_ATEM05() -> EXECBLOCK("HSPHRAP03", .F., .F., {GAI->GAI_SOLICI})

HSPAHM05.PRW - HS_ATEM05() -> IF EXECBLOCK("HM05VLD",.F.,.F.,{CALIASM05, NREGM05, NOPCM05}) == .F.

HSPAHM05.PRW - HS_LEGM05() -> ACORES2 := EXECBLOCK("HSPM05LEG", .F., .F., {"BR_VERDE", "BR_AMARELO", "BR_VERMELHO", "BR_MARRON", "BR_CINZA", "BR_PRETO"})

HSPAHM05.PRW - HS_RELM05() -> EXECBLOCK("HSPHRAP03", .F., .F., {GAI->GAI_SOLICI})

HSPAHM17.PRW - HS_DGLAUDO() -> EXECBLOCK("HSDTHO31", .F., .F., NIL)

HSPAHM17.PRW - HS_M17RESU() -> EXECBLOCK("HSGCFP31", .F., .F.,NIL)

HSPAHM17.PRW - HS_M17RESU() -> LRET := EXECBLOCK("HSCFGP31", .F., .F.,NIL)

HSPAHM17.PRW - HS_RETGUIA() -> CRET := EXECBLOCK("HSAHM17RTG",.F.,.F.,{DDATAATE,CLOCATE,CCODPLA,CCODTPG,BFNGERGUI})

HSPAHM24.PRW - FS_INCMEDS() -> CMATSRA := EXECBLOCK("HSM24MSO",.F.,.F.,{CMATSRA})

HSPAHM24.PRW - HS_LEGM24() -> ALEGM24 := EXECBLOCK("HSM24LEG", .F., .F., ALEGM24)

HSPAHM24.PRW - HS_RECM24() -> EXECBLOCK("HSM24ATE",.F.,.F.,{.T.})

HSPAHM24.PRW - HS_RECM24() -> EXECBLOCK("HSM24BTR", .F., .F.,{NOPCM24})

HSPAHM24.PRW - HS_RECM24() -> EXECBLOCK("HSM24ETR", .F., .F.,{NOPCM24})

HSPAHM24.PRW - HS_RECM24() -> EXECBLOCK("HSM24FCH",.F.,.F.,{.T.})

HSPAHM24.PRW - HS_RELM24() -> EXECBLOCK("HSM24FCH",.F.,.F.,{.F.})

HSPAHM24.PRW - HS_VLDM24() -> EXECBLOCK("HSM24VLP", .F., .F., {CCHAVE, NVLD, LVLDEMPTY, CCPODESC, DDATAMM})

HSPAHM24.PRW - HS_VLDM24() -> LRET := EXECBLOCK("HSVPAM24",.F.,.F.,NIL)

HSPAHM30.PRW - FS_VLDALTA() -> EXECBLOCK("HSCUSGCY", .F., .F.)

HSPAHM30.PRW - FS_VLDALTA() -> LRET := EXECBLOCK("HSVALALT", .F., .F.,{GCY->GCY_REGATE})

HSPAHM30.PRW - HS_M30ALT() -> APROCPLS := EXECBLOCK("HSM30GCNT", .F., .F.,{GCZ->GCZ_NRSEQG, APROCPLS})

HSPAHM34.PRW - FS_GRCPM34() -> ALBTIT := EXECBLOCK("HSP34NAT",.F.,.F.,{ALBTIT})

HSPAHM34.PRW - FS_GRCPM34() -> LRETORNO := EXECBLOCK("HSPM34TIT",.F.,.F.,{CTITULO, GDX->GDX_NREXTM})

HSPAHM34.PRW - HS_EXCM34() -> EXECBLOCK("HSPHM34EX",.F.,.F.)

HSPAHM34.PRW - HS_EXCM34() -> LTUDOOK := EXECBLOCK("HSP34VXM",.F.,.F.)

HSPAHM34.PRW - HS_PLAM34() -> NVALORPLT := EXECBLOCK("HSP34VLR",.F.,.F.,{NVALORPLT})

HSPAHM37.PRW - MENUDEF() -> CFUNDIETA := "'" + EXECBLOCK("HSAHM37REL", .F., .F.) + "'"

HSPAHM37.PRW - MENUDEF() -> CFUNETIQ := "'" + EXECBLOCK("HSAHM37ETQ", .F., .F.) + "'"

HSPAHM50.PRW - HS_M50ATRI() -> LRET := EXECBLOCK("HSPM50ILO",.F.,.F.,{GCZ->GCZ_REGATE, CNOVLOT, GCZ->GCZ_NRSEQG})

HSPAHM50.PRW - HS_M50RETI() -> LRET := EXECBLOCK("HSPM50RET", .F., .F., {GCZ->GCZ_REGATE, GCZ->GCZ_NRLOTE})

HSPAHM54.PRW - HSPM29FILBRW() -> CFILM29 := EXECBLOCK("HSPAFLM54",.F.,.F.,{CFILM29} )

HSPAHM54.PRW - HSPM29FILTRO() -> AM54BRW := EXECBLOCK("HSM54BRW", .F., .F., {3, NPOSAGE, AAGENDA[NPOSAGE][1][NITEAGE], NOPC, LREGATU})

HSPAHM54.PRW - HSPM29FILTRO() -> CQUERY += EXECBLOCK("HSM54BRW", .F., .F., {2, NOPC, LREGATU})

HSPAHM54.PRW - HSPM29MARCA() -> ELSEIF IIF(EXISTBLOCK("HSM54VLD"), EXECBLOCK("HSM54VLD", .F., .F.), .T.)

HSPAHM54.PRW - HSPM29MARCA() -> EXECBLOCK("HSM54DES", .F., .F., {AOBJETOS, NLASTHOUR, NSTATUS, NLASTFLD, NLASTDAY})

HSPAHM54.PRW - HSPM29MARCA() -> EXECBLOCK("HSM54MAR", .F., .F., {CEVENTO, AOBJETOS, NLASTHOUR, NSTATUS, NLASTFLD, NLASTDAY})

HSPAHM54.PRW - HSPM29NAVEGA() -> EXECBLOCK("HSM54FOL", .F., .F., {4})

HSPAHM54.PRW - HSPM54ATU() -> ABUTTONS := EXECBLOCK("HSM54BOT", .F., .F., {ABUTTONS})

HSPAHM54.PRW - HSPM54ATU() -> AM54FOL := EXECBLOCK("HSM54FOL", .F., .F., {1, ATITULOS, APAGINAS})[1]

HSPAHM54.PRW - HSPM54ATU() -> EXECBLOCK("HSM54FOL", .F., .F., {2, APMEMO, NOPC})

HSPAHM54.PRW - HSPM54ATU() -> LOCAL BCANCEL:= {||FS_BCANCEL(ASIZE)/*,ODLGM54:END()*/ .AND. IIF(EXISTBLOCK("HSM54CAN"),IIF(EXECBLOCK("HSM54CAN",.F.,.F.),ODLGM54:END(),),ODLGM54:END())}

HSPAHM54.PRW - HSPM54BRW() -> AM54BRW := EXECBLOCK("HSM54BRW", .F., .F., {1, NFOLDER, ACAMPOS, ASIZE})

HSPAHM54.PRW - HSPM54CONSFIL() -> IF EXISTBLOCK("HSM54FIN") .AND. !EXECBLOCK("HSM54FIN", .F., .F.)

HSPAHM54.PRW - HSPM54CONSFIL() -> LFICTRAT := EXECBLOCK("HSM54FCTRA", .F., .F.)

HSPAHM54.PRW - HSPM54CONSFIL() -> LRETORNO := EXECBLOCK("HSM54FOL", .F., .F., {3})[2]

HSPAHM54.PRW - HSPM54GRV() -> EXECBLOCK("HSM54CNF", .F., .F., {CPESQUISA})

HSPAHM54.PRW - HS_VLDM54() -> LRET := EXECBLOCK("HSM54OK", .F., .F., {NOPC})

HSPAHM54.PRW - HS_VPROPLS() -> LRET := EXECBLOCK("HS54CRIOK", .F., .F.,{AHISCRI,CCODAGEPE})

HSPAHM57.PRW - FS_ATUORC() -> AVIGORC := EXECBLOCK("HSFUSVIG", .F., .F., {ASCJ[NL,1], SA1->A1_COD})

HSPAHM57.PRW - FS_GERORC() -> AVIGORC := EXECBLOCK("HSFUSVIG", .F., .F., {CORCATU, SA1->A1_COD})

HSPAHM57.PRW - FS_GRVM57() -> EXECBLOCK("HSIMPANAM", .F., .F., ACPOSGRV)

HSPAHM57.PRW - FS_OPCPLNTRAT() -> EXECBLOCK("HS57PLAOK", .F., .F.,{CNUMORC,CPROCED,CCODITEM,NOPCAO})

HSPAHM57.PRW - FS_OPCPLNTRAT() -> LRET := EXECBLOCK("HM57VLDOPC", .F., .F.,{NOPCAO})

HSPAHM57.PRW - FS_OPPLNTRAT() -> AITENSADD := EXECBLOCK("HM57ADDOPC", .F., .F.)

HSPAHM57.PRW - FS_VERORC() -> LRETVLD := EXECBLOCK("HSPVLDUSR")

HSPAHM57.PRW - HSPAHM57() -> ACPOGTC := EXECBLOCK("HM57GTCORD", .F., .F., {ACPOGTC})

HSPAHM57.PRW - HSPAHM57() -> ACPOSCKPLN:= EXECBLOCK("HM57GTJORD", .F., .F., { ACPOSCKPLN } )

HSPAHM57.PRW - HSPAHM57() -> AGTJADD := EXECBLOCK("HM57ADDGTJ", .F., .F.)

HSPAHM57.PRW - HSPAHM57() -> LODONTO := EXECBLOCK("HSGODON", .F., .F., {})

HSPAHMA7.PRW - HS_MNTMA7() -> ABUTTONS := ACLONE(EXECBLOCK("HSPMA7MA", .F., .F., {ABUTTONS}))

HSPAHMA7.PRW - HS_MNTMA7() -> EXECBLOCK("HSMA7ANT", .F., .F., {NOPCMA7, CCDQUES})

HSPAHMA7.PRW - HS_MNTMA7() -> EXECBLOCK("HSPMA7OK", .F., .F., {NOPCDLG, LCONFIRMA})

HSPAHMA7.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("HSMA7ROT", .F., .F., {})

HSPAHP12.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("HSP12ROT", .F., .F.)

HSPAHP18.PRW - FS_DESPESA() -> CTESITEM := EXECBLOCK("HSPROP18", .F., .F., CTESPROC)

HSPAHP18.PRW - FS_GERANF() -> EXECBLOCK("HSP18APNF",.F.,.F.,{CNUMNFS, CSERIE})

HSPAHP18.PRW - HS_P18MAN() -> LRET := EXECBLOCK("HSP18EXC", .F., .F., NIL)

HSPAHP18.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("HSP18ROT", .F., .F.)

HSPAHP31.PRW - HSPAHP31() -> EXECBLOCK("HSGCFP31", .F., .F.,NIL)

HSPFFSXB.PRW - FS_MTGDGM8() -> CORDERBY := EXECBLOCK("HSORDGM8", .F., .F., {})

HSPFFSXB.PRW - HS_PESQGD4() -> @ NPOSINI + 014, 035 MSGET OCHVP VAR CCHVP F3 "BY2PLS" VALID IIF(EXISTBLOCK("HSM24MAT"), EXECBLOCK("HSM24MAT", .F., .F., {CCHVP}), .T.) PICTURE CPICT SIZE 120, 010 OF ODLGPESQ PIXEL COLOR CLR_BLACK

HSPFUNCA.PRW - FS_GRVGD6() -> EXECBLOCK("HSDSPFIX",.F.,.F.,{XFILIAL("GD6"),GCY->GCY_CODLOC,DDATDES,IIF(GCY->GCY_ATENDI <> "2", CHORDES, GCY->GCY_HORATE),GB5->GB5_QTDTXD,GB5->GB5_CODTXD,ARVALTD[2],ARVALTD[3],IIF(ARVALTD[4][1], "2", "0"),M->GD6_SEQDES,GCZ->GCZ_NRSEQG,GB5->GB5_REGATE,ARVALTD[4][2],ARVALTD[7],ARVALTD[8],HS_LOGARQ()})

HSPFUNCA.PRW - HS_RVALPR() -> VVNDPRO:= EXECBLOCK("HSVALPRO",.F.,.F.,{VVNDPRO,CCODPR,CCODPLA,CCODLOC,CCODCRM,CCODATO,DVIGENCIA})

HSPFUNCA.PRW - HS_VPROCED() -> URETEXEC:=EXECBLOCK("HSVPR", .F., .F.,{CCODPLA, CCODLOC, CCODPR, LVLDPRC, LVLDCUS, CHORDES, CURGDES, CCODCRM, CCODATO, AATENDI, LMSG, DVIGENCIA, APRORIGINC})

HSPFUNCA.PRW - HS_VTAXDIA() -> URETEXEC:=EXECBLOCK("HSVTD", .F., .F.,{CCODPLA, CCODLOC, CCODTD, LVLDPRC, LVLDCUS, LMSG, DVIGENCIA, CCODCRM, CHORDES, AATENDI})

HSPFUNCE.PRW - HS_GERTITPG() -> CE2_NUM := EXECBLOCK("HSPADCSE2",.F.,.F.,{CNUMORC,NITEM,ATITULO})

HSPFUNCE.PRW - HS_GFORNPAC() -> AFORNEC := EXECBLOCK("HSPFORN",.F.,.F.,{AFORNEC})

HSPFUNCE.PRW - HS_GORCAUT() -> APRODBLOCK := EXECBLOCK("HSPGERORC", .F., .F., {APRODBLOCK})

HSPFUNCS.PRW - HS_ATULOJA() -> ASLRET := EXECBLOCK("HSATL1L2", .F., .F., {ASL1, ASL2, ASL4})

HSPFUNCS.PRW - HS_ATULOJA() -> AVIGORC := EXECBLOCK("HSFUSVIG", .F., .F., {AORC[NL,1], SA1->A1_COD})

HSPFUNCS.PRW - HS_INTLOJA() -> EXECBLOCK("HSGEROR", .F., .F., {CNUMORC})

IMPGENER.PRX - POSSFH() -> ASFF := EXECBLOCK("IMPINCID",.F.,.F.,{_CTES,_CIMPUESTO,_CCFO,_CZFISCAL,_CNOMEPROG})

IMPGENER.PRX - POSSFZ() -> ¦¦¦USO ¦AARRAY:=EXECBLOCK("POSSFH",.F.,.F.,{CCLIENTE,CLOJA,CZONA,.F.)¦¦¦

IMPXFIS.PRW - QRYCDVLDEC() -> CWHEREPE := EXECBLOCK("MAVLDCQRY",.F.,.F.,{CWHERE,CCST,CCFOP,CPRODUTO,CGRPTRBPD,CGRPCLIFOR,CCLIFOR})

IMPXFIS.PRW - XFISATUSF3() -> EXECBLOCK("M520SF3",.F.,.F.)

IMPXFIS.PRW - XFISATUSF3() -> EXECBLOCK("M520SFT",.F.,.F.)

IMPXFIS.PRW - XFISATUSF3() -> EXECBLOCK("MTA920L",.F.,.F.)

IMPXFIS.PRW - XFISATUSF3() -> EXECBLOCK("XFCD2SFT",.F.,.F.)

IMPXFIS.PRW - XFISLF() -> AMACSTPICO := EXECBLOCK("MACSTPICO",.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})

IMPXFIS.PRW - XFISLF() -> ANFITEM[NITEM][IT_LIVRO] := EXECBLOCK(ANFITEM[NITEM][IT_TS][TS_LIVRO],.F.,.F.,{ANFITEM[NITEM][IT_LIVRO],NITEM})

IMPXFIS.PRW - XFISLF() -> EXECBLOCK( "XFISLF", .F., .F.,{NITEM})

IMPXFIS.PRW - XFISLF() -> EXECBLOCK("MXTOTIT",.F.,.F.,{NITEM})

IMPXFIS.PRW - XFSEXCECAO() -> AEXCEAUX :=  EXECBLOCK("MAEXCEFISC",.F.,.F.,{ AEXCECAO, {NITEM, CGRTRIB, CUFORIDES, CORIGEM,CSITTRIB, ANFCAB[NF_ESPECIE], ANFCAB[NF_TIPONF], ANFCAB[NF_OPERNF], ANFCAB[NF_CLIFOR], ANFCAB[NF_CLIEFAT]}})

IMPXFIS.PRW - XFSEXCECAO() -> AEXCEAUX :=  EXECBLOCK("MAEXCEFISC",.F.,.F.,{ AEXCEFAT, {NITEM, CGRTRIB, CUFORIDES, CORIGEM,CSITTRIB, ANFCAB[NF_ESPECIE], ANFCAB[NF_TIPONF], ANFCAB[NF_OPERNF], ANFCAB[NF_CLIFOR],ANFCAB[NF_CLIEFAT]} })

IMPXFIS.PRW - XFSEXCECAO() -> LEXECUTA  := EXECBLOCK("MFISEXCE",.F.,.F.,{ALIAS(),RECNO()})

IMPXFIS.PRW - XLFTOLIVRO() -> CNFORI := EXECBLOCK( "MAFISOBS", .F., .F., { CNFORI, ACLONE( ANOTASORI ) } )

INFOFIN.PRW - RETNCPS() -> CFILUSR:=EXECBLOCK(CPEFILUSR,.F.,.F.,{CQRYAUX,"NCP"})

INFOFIN.PRW - RETPAGFIL() -> ADETPAGPE := EXECBLOCK("DIOTSF1P",.F.,.F.,{(CALIAS)->R_E_C_N_O_,ATITULOS[NTIT], ADETPAG})

JURA002.PRW - JURA002() -> EXECBLOCK("JA002CSQL",.F.,.F.,{AATUALIZAR[NY],ACODIGOS[NX][1]})

JURA063.PRW - JA063NVY() -> EXECBLOCK( 'JA063DES', .F., .F., {CCLIORI, CLOJORI, CCASO, CCLIDES, CLOJDES} )

JURA069.PRW - J069QRYFIL() -> CSQLPE := EXECBLOCK("J069QRY", .F., .F., {CSQL, CTIPO})

JURA069.PRW - JA069FIN() -> AAUX := EXECBLOCK('JA069TIT', .F., .F.)

JURA069.PRW - JA069IPR() -> AAUX := EXECBLOCK('JA069TIT',.F.,.F.)

JURA069.PRW - JA069REC() -> EXECBLOCK('JURR069', .F., .F.)

JURA070.PRW - BEFORE() -> EXECBLOCK("JA070BEFO", .F., .F., {OSUBMODEL:GETMODEL()})

JURA070.PRW - J070AFTCOM() -> EXECBLOCK("JA070SOEX", .F., .F., {OMODEL})

JURA070.PRW - J070SHEET() -> ASHEET := EXECBLOCK("J070SHEET", .F., .F.)

JURA070.PRW - JA070NUMER() -> CQUERY := EXECBLOCK('J070NUM', .F., .F., { '1', CCLIENTE, '', CNUMCLIEN, LUSALACUNA } )

JURA070.PRW - JA070VNCAS() -> CQUERY := EXECBLOCK('J070NUM', .F., .F., { '2', CCLIENTE, CCASO, CNUMCLIEN, .F. } )

JURA074.PRW - JA074BQRY() -> EXECBLOCK('JURR074B', .F., .F.)

JURA094.PRW - JA094VLDIS() -> NTOTAL := EXECBLOCK("J94VLDIS", .F., .F., {CPROCESSO, CTIPOPROV, LATUAL})

JURA094.PRW - JA094VLENV() -> AVLENVOLVI := EXECBLOCK("J94VLENV", .F., .F., {CPROCESSO})

JURA094.PRW - VIEWDEF() -> ABOTOES := EXECBLOCK('JA94RETBOT', .F., .F.)

JURA095.PRW - JURA095TOK() -> EXECBLOCK("JA095SOEX",.F.,.F.,{FWFLDGET('NSZ_NUMCAS')})

JURA095.PRW - JURA095TOK() -> EXECBLOCK("JA162SOEX",.F.,.F.,{OMODEL:GETVALUE('NSZMASTER','NSZ_NUMCAS'),OMODEL:GETVALUE('NSZMASTER','NSZ_COD'),NOPC})

JURA095.PRW - MODELDEF() -> EXECBLOCK( 'JA95MOD', .F., .F., OMODEL )

JURA095.PRW - VIEWDEF() -> EXECBLOCK( 'JA95VIEW', .F., .F., OVIEW )

JURA095_P.PRW - JA095DEL() -> LERRO := EXECBLOCK('J95DELPE', .F., .F.,{CFILDES, CCAJUR, CFILORI, CCAJURPAI, CTELA})

JURA095_P.PRW - LISTACOL() -> CWHERE += EXECBLOCK('J95FVINC',.F.,.F.,{CTELA})

JURA098.PRW - JURA098TOK() -> LJXINTVAL := EXECBLOCK("J98XINTVAL", .F., .F., {OMODEL})

JURA098.PRW - VIEWDEF() -> ABOTOES := EXECBLOCK('JA98RETBOT', .F., .F.)

JURA099.PRW - JURA099TOK() -> LJXINTVAL := EXECBLOCK("J99XINTVAL", .F., .F., {OMODEL})

JURA099.PRW - MENUDEF() -> AAUX := EXECBLOCK("JA99MDEF", .F., .F.)

JURA099.PRW - VIEWDEF() -> ABOTOES := EXECBLOCK('JA99RETBOT', .F., .F.)

JURA106.PRW - VIEWDEF() -> ABOTOES := EXECBLOCK('J106RETBOT', .F., .F.)

JURA132.PRW - J132REAJ2() -> RLRET := EXECBLOCK('132REJBL', .F., .F.)

JURA132.PRW - JA132NU4() -> LRET := EXECBLOCK('JA132DNU4',.F.,.F.,{OMODELGRID,NLINE,NOPC})

JURA132.PRW - JA132TOK() -> IF EXISTBLOCK("J132UPST") .AND. !EXECBLOCK("J132UPST",.F.,.F.,{OMODEL})

JURA132.PRW - SE LRET = .T.() -> LRET := EXECBLOCK('JA132NENV',.F.,.F.,{OMODEL})

JURA143.PRW - J143VLRREC() -> AVALID := EXECBLOCK( 'J143VLRC', .F., .F. , {CALIAS} )

JURA143.PRW - JA143ALT2() -> EXECBLOCK( 'JA143LOT', .F., .F., {LRET, LCHKCLI, CCLIOR, CLOJAOR, CCASOOR, LCHKADV, CSIGLA, LCHKDESP, CDESP, LCHKCOB, CCOBRA, COBSCOB} )

JURA143.PRW - JA143ALT2() -> LRET := EXECBLOCK( 'JA143CAN', .F., .F., {OBRW143, LCHKCLI, CCLIOR, CLOJAOR, CCASOOR, LCHKADV, CSIGLA, LCHKDESP, CDESP, LCHKCOB, CCOBRA, COBSCOB} )

JURA144.PRW - JA144VLCPO() -> LRETPTOE  := EXECBLOCK("PE144VLC", .F., .F., {CCAMPO, OMODEL, CIDNUE})

JURA144.PRW - MENUDEF() -> AAUX := EXECBLOCK('JA144BTN', .F., .F.)

JURA144.PRW - MENUDEF() -> AUSERBUTT := EXECBLOCK( 'JURA144', .F., .F., { NIL, "MENUDEF", 'JURA144' } )

JURA148.PRW - J148SHEET() -> ASHEET := EXECBLOCK("J148SHEET", .F., .F.)

JURA148.PRW - VIEWDEF() -> ACAMPOS := EXECBLOCK('JA148FLDS', .F., .F.)

JURA202.PRW - J202FILTRO() -> CQRY += " AND " + EXECBLOCK('J201BDPF', .F., .F.)

JURA202.PRW - J202TRANSF() -> EXECBLOCK('JA202TR', .F., .F., {CCLIOLD, CLOJOLD, CCASOLD, CGETCLIE, CGETLOJA, CGETCASO, CCODLAN } )

JURA202.PRW - JA202CKDSP() -> LALTDESP := EXECBLOCK("PNAPFS06", .F., .F., { LALTDESP, OMODEL} )

JURA202.PRW - JA202PSIT() -> ARETPE := EXECBLOCK("J202SIT", .F., .F., {NX0->NX0_COD, NX0->NX0_SITUAC, CNOVASIT})

JURA202.PRW - JA202RCASO() -> LRET := EXECBLOCK ("JA202REVIS", .F., .F., {OMODEL, LRET } )

JURA202.PRW - JA202VIEW() -> EXECBLOCK( "J202RESPF", .F., .F., {AVALORES} )

JURA202.PRW - JA202WHEN() -> LRET := EXECBLOCK ("JA202REVIS", .F., .F., {OMODEL, LRET } )

JURA202.PRW - MODELDEF() -> ACAMPOS := EXECBLOCK('JA202FLDS', .F., .F.)

JURA202.PRW - VIEWDEF() -> ACAMPOS := EXECBLOCK('JA202FLDS', .F., .F.)

JURA202B.PRW - JA202BASS() -> EXECBLOCK('JA202ILT',.F.,.F.,{CPREFT} )

JURA202B.PRW - JA202BASS() -> EXECBLOCK('JA202ITS', .F., .F., {CPREFT} )

JURA202D.PRW - JA202DASS() -> EXECBLOCK('JA202ITS',.F.,.F.,{CPREFT} )

JURA203.PRW - J203ACTBT3() -> LRETPE := EXECBLOCK("J203ADIB", .F., .F.)

JURA203.PRW - J203ADTUSER() -> ADADOSPE := EXECBLOCK("J203ADT", .F., .F., {CESCRIT, CNUMFAT, CFILA, NVLFATURA})

JURA203.PRW - J203FILTRO() -> CQRY += EXECBLOCK('J203FILT', .F., .F., {CTAB, CQRY})

JURA203.PRW - J203FILTRO() -> CQRY += EXECBLOCK('J203FILT',.F.,.F.,{CTAB,CQRY})

JURA203.PRW - J203GRVADT() -> EXECBLOCK("JA203ADI", .F., .F., { ARECRA } )

JURA203.PRW - J203GRVADT() -> IIF( LJA203CMP, { |X,Y| EXECBLOCK( 'JA203CMP', .F., .F., { X, Y } ) },),;

JURA203.PRW - J203NPARC() -> EXECBLOCK('JA203NT1', .F., .F.)

JURA203.PRW - JA203CARTA() -> EXECBLOCK('J203CRT', .F., .F., { APARAMS, CPARAMS, APARAMS[19] } )

JURA203.PRW - JA203EMITE() -> EXECBLOCK("JA203BOL",.F.,.F.,{ ARECSE1, APARAMS } )

JURA203.PRW - JA203EMITE() -> EXECBLOCK("JA203GRV", .F., .F., { CTIPO, NXA->NXA_CESCR, NXA->NXA_COD} )

JURA203.PRW - JA203RELAT() -> EXECBLOCK('J203CRYS', .F., .F., { APARAMS, CPARAMS, APARAMS[19] } )

JURA203.PRW - JA203TIT() -> CNATDESPE := EXECBLOCK("J203NDES", .F., .F., {CESCRIT, CFATURA, CNATDES})

JURA203.PRW - JA203TIT() -> EXECBLOCK( "JA203SE1", .F., .F. )

JURA203.PRW - JA203TIT() -> XPARCELAS := EXECBLOCK('JA203CN1', .F., .F., {"1", APARCHON})

JURA203.PRW - JA203TIT() -> XPARCELAS := EXECBLOCK('JA203CN1', .F., .F., {"2", APARCDES})

JURA203.PRW - JA203VLDIN() -> ARETPE := EXECBLOCK('J203VLIN', .F., .F., {CCONTR, CCODIGO, CTIPO})

JURA203.PRW - JA203VLDIN() -> LRET := EXECBLOCK('J203PARC', .F., .F., { CTIPO, (CQRYRES2)->COD, (CQRYRES2)->PARC } )

JURA204.PRW - J204CPOUSR() -> CRET := EXECBLOCK( "J204CNT1", .F., .F. )

JURA204.PRW - J204CPOUSR() -> CRET := EXECBLOCK( "J204CNUE", .F., .F. )

JURA204.PRW - J204CPOUSR() -> CRET := EXECBLOCK( "J204CNV4", .F., .F. )

JURA204.PRW - J204CPOUSR() -> CRET := EXECBLOCK( "J204CNVV", .F., .F. )

JURA204.PRW - J204CPOUSR() -> CRET := EXECBLOCK( "J204CNVY", .F., .F. )

JURA204.PRW - J204GETDOCS() -> EXECBLOCK( "JA204GDOC", .F., .F., { AVKEY(CESCRI, "NXM_CESCR" ), AVKEY(CCODFAT, "NXM_CFATUR"), APARJ203, ARELJ203 } )

JURA204.PRW - J204JOIN() -> ARETORNO:= EXECBLOCK('J204JOIN', .F., .F., { CESCRI, CCODFAT, ACLONE(ARELATS), CNEWFILE, LOPENFILE })

JURA204.PRW - J204LEGTIT() -> ALEGPE := EXECBLOCK("J204SETLEG", .F., .F., {ACLONE(ALEGTIT)})

JURA204.PRW - JA204CANFA() -> EXECBLOCK('JA204CFA', .F., .F.)

JURA204.PRW - JA204CANFT() -> CERROMSG := EXECBLOCK( "J204FCAN", .F., .F. )

JURA204.PRW - JA204REIMP() -> ARETORNO  := EXECBLOCK('J204REFAZ', .F., .F.)

JURA204.PRW - JA204REIMP() -> EXECBLOCK("JA203BOL", .F., .F., { ARECSE1, APARAMS } )

JURA204.PRW - JA204REIMP() -> EXECBLOCK('J203CRT', .F., .F., { APARAMS, CPARAMS, APARAMS[19], LRETORNO })

JURA204.PRW - JA204REIMP() -> LRETORNO := EXECBLOCK('J203SUB', .F., .F., {CCARTA, CPARAMS, APARAMS[1]+CARQUIVO, APARAMS})

JURA204.PRW - PREVALCFAT() -> JA204CODMOT := EXECBLOCK( "J204MCAN", .F., .F. )

JURA246.PRW - J246EFD() -> LGRAVACF8 := EXECBLOCK("J241EFD", .F., .F., {CNATUREZA})

JURA273.PRW - J273LOADVAR() -> CPENOCOPY := EXECBLOCK("J273NCOP", .F. ,.F., {CSE2NOCOPY})

JURSXB.PRW - JSXBRA() -> ARETPE := EXECBLOCK("JSXBRA", .F., .F., {ACAMPOS, LVISUALIZA, LINCLUI, CFILTRO, CFONTE, CSQL} )

JURXFUN.PRW - FEXP_PROV () -> NTOTAL := EXECBLOCK("J94VLDIS", .F., .F., {CPROCESSO, CTIPOPROV, LATUAL})

JURXFUN.PRW - JURF3TAB() -> IF (EXECBLOCK('JUF3BTNINC', .F., .F.))

JURXFUNB.PRW - JURATCTB() -> ARATCTB := EXECBLOCK("JURATCTB", .F., .F., {CTABELA, CCODLAN, CCAJURI, ACABSE2})

JURXFUNB.PRW - JURCONTALC() -> ACMPCUSTOM := EXECBLOCK( "PEJURCOM", .F., .F. , {CCAJURI,CCODLAN,CTABELA,ACABSC7,ACAMPOS})

JURXFUNB.PRW - JURGERPAG() -> ACMPCUSTOM := EXECBLOCK( "PEJURFIN", .F., .F. ,  {CCAJURI, CCODLAN, CTABELA, ACABSE2})

JURXFUNB.PRW - JURHISCONT() -> LRET := EXECBLOCK( 'JAGERPAG',,, { NOPC, CPREFIXO, NVALOR, CCAJURI, CCOD, CTIPOL, 'NV3' } )

JURXFUNB.PRW - JURHISCONT() -> LRET := EXECBLOCK( 'JAGERPAG',,, { NOPERA, CPREFIXO, NVALOR, CCAJURI, CCOD, CTIPOL, CPEDIDO } )

JURXFUNB.PRW - JURPARPG() -> APARCOND := EXECBLOCK("JURPARPG", .F., .F., {CTABELA, CCONDIC, NVALOR, DEMITE})

LJRETAILAPP.PRW - LJRENTREGA() -> CJSONOBJ += '"CATEGORY":"'+LJRLIMPA(NOACENTO(OEMTOANSI(ALLTRIM(EXECBLOCK("LJRACATG",.F.,.F.,{ALLTRIM((CALIASTMP)->(B1_FILIAL)),(CALIASTMP)->(B1_COD)})))))+'",'

LJRETAILAPP.PRW - LJRINVENT() -> CJSONOBJ += '"CATEGORY":"'+LJRLIMPA(LJRMVACENT(NOACENTO(OEMTOANSI(ALLTRIM(EXECBLOCK("LJRACATG",.F.,.F.,{ALLTRIM((CTEMPDB)->(B1_FILIAL)),(CTEMPDB)->(B1_COD)})))))) +'",'

LJRETAILAPP.PRW - LJRINVENT() -> CRETLJRAQR := EXECBLOCK("LJRAQRYI",.F.,.F.)

LJRETAILAPP.PRW - LJRORDERS() -> CJSONOBJ += '"CATEGORY":"'+LJRLIMPA(NOACENTO(OEMTOANSI(ALLTRIM(EXECBLOCK("LJRACATG",.F.,.F.,{ALLTRIM((CALIASTMP)->(FILIAL)),(CALIASTMP)->(COD)})))))+'",'

LJSCRPED.PRW - LJRUNSCRPD() -> LRET:= EXECBLOCK("LJPRTPDLOC" ,.F.,.F.)

LJSUBNFE.PRW - GETFILTRO() -> CFILTROUSR := EXECBLOCK("LJFLTNFE",.F.,.F.)

LJTER01.PRW - TERCODPROD() -> CPRODUTO := EXECBLOCK("LJTCODPRO",.F.,.F.,{CPRODUTO})

LJTER01.PRW - TERGRAVAORC() -> EXECBLOCK("LJIMPCUP",.F.,.F.,{CNUMORC,APRODS,NDESCTOTAL,CCODVEND,CCODCPG})

LOCA001.PRW - FCANCMAN() -> _LRET := EXECBLOCK("LC01CMAN" , .T. , .T. , {CSTSATU})

LOCA001.PRW - FCFOLDER() -> ATITLES := EXECBLOCK("LC01ATIT",.T.,.T.,{ATITLES})

LOCA001.PRW - FCOLSDOCUM() -> ACOLS := EXECBLOCK("LC001DOC",.T.,.T.,{ACOLS, AHEADER})

LOCA001.PRW - FFOLDERCAR() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"ZA7",NOPCMANU, NSTYLE})

LOCA001.PRW - FFOLDERCNJ() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"FPS",NOPCMANU, NSTYLE})

LOCA001.PRW - FFOLDERCNP() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"FQ7",NOPCMANU, NSTYLE})

LOCA001.PRW - FFOLDERCON() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"FP8",NOPCMANU, NSTYLE})

LOCA001.PRW - FFOLDERCUS() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"FQ8",NOPCMANU,NSTYLE})

LOCA001.PRW - FFOLDERDOC() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"FPB",NOPCMANU, NSTYLE})

LOCA001.PRW - FFOLDERFOL() -> ARET := EXECBLOCK("LC001FST",.T.,.T.,{ARET})

LOCA001.PRW - FFOLDERFOL() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"FP9",NOPCMANU, NSTYLE})

LOCA001.PRW - FFOLDERGUI() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"FP4",NOPCMANU, NSTYLE})

LOCA001.PRW - FFOLDEROBR() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"FP1",NOPCMANU, NSTYLE})

LOCA001.PRW - FFOLDERPLA() -> EXECBLOCK("LC001LOC",.F.,.T.,{ "TELA"})

LOCA001.PRW - FFOLDERPLA() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"FPA",NOPCMANU, NSTYLE})

LOCA001.PRW - FFOLDERPLA() -> ODLGPLA:OBROWSE:BDELETE := {|| EXECBLOCK("LC01DPLA",.T.,.T.,{ODLGPLA:NAT, ODLGPLA:ACOLS, ODLGPLA:AHEADER  }) }

LOCA001.PRW - FFOLDERRES() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"FP6",NOPCMANU, NSTYLE})

LOCA001.PRW - FFOLDERROT() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"ZA4",NOPCMANU, NSTYLE})

LOCA001.PRW - FFOLDERTRA() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"ZA6",NOPCMANU, NSTYLE})

LOCA001.PRW - FFOLDERTRE() -> NSTYLE := EXECBLOCK("LC001EDT",.T.,.T.,{"FPD",NOPCMANU, NSTYLE})

LOCA001.PRW - FMANU1() -> ABUTTONS := EXECBLOCK("LC001BUT" , .T. , .T. , {ABUTTONS,POPC})

LOCA001.PRW - FOBRA() -> CSEQGRU := EXECBLOCK("LC01ORDP",.T.,.T.,{ CSEQGRU, ODLGPLA, ODLGPLA:NAT, _NANT})

LOCA001.PRW - FSALVAR001() -> EXECBLOCK("LC001GP",.T.,.T.,{FP0->FP0_PROJET, NOPC})

LOCA001.PRW - FSALVAR001() -> EXECBLOCK("LC001GRV",.T.,.T.,{ODLGCAR:AHEADER, ODLGCAR:ACOLS, FP0->FP0_PROJET,.T.})

LOCA001.PRW - FSALVAR001() -> EXECBLOCK("LC001GRV",.T.,.T.,{ODLGGUI:AHEADER, ODLGGUI:ACOLS, FP0->FP0_PROJET,.T.})

LOCA001.PRW - FSALVAR001() -> EXECBLOCK("LC001GRV",.T.,.T.,{ODLGPLA:AHEADER, ODLGPLA:ACOLS, FP0->FP0_PROJET,.T.})

LOCA001.PRW - FSALVAR001() -> EXECBLOCK("LCTURGRV",.T.,.T.,{ ODLGGUI })

LOCA001.PRW - FSALVAR001() -> ODLGCAR:ACOLS := EXECBLOCK("LC001GA",.T.,.T.,{ODLGCAR:AHEADER, ODLGCAR:ACOLS, FP0->FP0_PROJET,_LALT})

LOCA001.PRW - FSALVAR001() -> ODLGGUI:ACOLS := EXECBLOCK("LC001GA",.T.,.T.,{ODLGGUI:AHEADER, ODLGGUI:ACOLS, FP0->FP0_PROJET,_LALT})

LOCA001.PRW - FSALVAR001() -> ODLGPLA:ACOLS := EXECBLOCK("LC001GA",.T.,.T.,{ODLGPLA:AHEADER, ODLGPLA:ACOLS, FP0->FP0_PROJET,_LALT})

LOCA001.PRW - FSALVAR001() -> _LRET := EXECBLOCK("LC001GRU",.T.,.T.,{ODLGCAR:AHEADER,ODLGCAR:ACOLS})

LOCA001.PRW - FSALVAR001() -> _LRET := EXECBLOCK("LC001GRU",.T.,.T.,{ODLGGUI:AHEADER,ODLGGUI:ACOLS})

LOCA001.PRW - FSALVAR001() -> _LRET := EXECBLOCK("LC001GRU",.T.,.T.,{ODLGPLA:AHEADER,ODLGPLA:ACOLS})

LOCA001.PRW - FSALVAR900() -> IF !EXECBLOCK("LC001VAL" , .T. , .T. , {ODLGCAR:ACOLS,ODLGCAR:AHEADER})

LOCA001.PRW - FSALVAR900() -> IF !EXECBLOCK("LC001VAL" , .T. , .T. , {ODLGGUI:ACOLS,ODLGGUI:AHEADER})

LOCA001.PRW - FSALVAR900() -> IF !EXECBLOCK("LC001VAL" , .T. , .T. , {ODLGPLA:ACOLS,ODLGPLA:AHEADER})

LOCA001.PRW - FSTATUS() -> ARET := EXECBLOCK("LC001LEG" , .T. , .T. , {ARET})

LOCA001.PRW - LOCA00101() -> EXECBLOCK("LC001COR" , .T. , .T. , {ALEGENDA,ACORES})

LOCA001.PRW - LOCA00103() -> CTUDOOK += ' EXECBLOCK("FP0TDOK",.F.,.F.)'

LOCA001.PRW - LOCA00103() -> EXECBLOCK("LC001GRV" , .T. , .T. , {,,FP0->FP0_PROJET,.T.})

LOCA001.PRW - LOCA00104() -> EXECBLOCK("LC001INC" , .T. , .T. , {FP0->FP0_FILIAL,FP0->FP0_PROJET})

LOCA001.PRW - LOCA00105() -> EXECBLOCK("LC001AJU" , .T. , .T. , {FP0->FP0_FILIAL,FP0->FP0_PROJET,COPC})

LOCA001.PRW - LOCA00105() -> LRET := EXECBLOCK("LC001MAN" , .T. , .T. , {FP0->FP0_FILIAL,FP0->FP0_PROJET,COPC})

LOCA001.PRW - LOCA00140() -> CCOD := EXECBLOCK("LC001NUM",.T.,.T.,{CCOD})

LOCA001.PRW - LOCA00141() -> EXECBLOCK("LC001LOC",.F.,.T.,{ "ATUALIZA"})

LOCA001.PRW - LOCA00141() -> _CCPONAO := EXECBLOCK("LC001CPN",.T.,.T.,{_CCPONAO})

LOCA001.PRW - LOCA00157() -> LRET := EXECBLOCK("LC00157" , .T. , .T. , {ODLGPLA})

LOCA001.PRW - LOCA00162() -> EXECBLOCK("LCPOSCAN",.T.,.T.,NIL)

LOCA001.PRW - LOCA00162() -> _LCANC := EXECBLOCK("LC001CAN",.T.,.T.,NIL)

LOCA001.PRW - LOCA00163() -> EXECBLOCK("LC001REV",.T.,.T.,{ CPROJET, CPROJETNEW })

LOCA001.PRW - LOCA00172() -> _LRET := EXECBLOCK("LC01ADD",.F.,.F.)

LOCA001.PRW - LOCA00174() -> LRET := EXECBLOCK("LC001VCT",.T.,.T.,{CPROJET})

LOCA001.PRW - LOCA00174() -> LRET := EXECBLOCK("LC001VML",.T.,.T.,{})

LOCA001.PRW - LOCA00190() -> _LRET := EXECBLOCK("LC01DEL5",.T.,.T.,{ODLGGUI})

LOCA001.PRW - LOCA00195() -> EXECBLOCK("LOCA017" , .T. , .T. , {ODLGPLA, _NX })

LOCA001.PRW - MUDAGUIB() -> _CCPONAO := EXECBLOCK("LC001CPN",.T.,.T.,{_CCPONAO})

LOCA001.PRW - RETGETD() -> EXECBLOCK("LCTURFIM",.T.,.T.,{})

LOCA001.PRW - TURVAL() -> ACOLS := EXECBLOCK("LCTURINI",.T.,.T.,{ ACOLS, ODLGGUI })

LOCA001.PRW - TURVAL() -> ACPOALTER := EXECBLOCK("LCTURCPO",.T.,.T.,{ ACPOALTER } )

LOCA001.PRW - TURVAL() -> NSTYLE := EXECBLOCK("LCTURALT",.T.,.T.,{ } )

LOCA001.PRW - VALFP0() -> _LRET := EXECBLOCK("FP0TDOK",.F.,.F.)

LOCA001.PRW - VALID() -> IF !EXECBLOCK("LC001VAL",.T.,.T.,{ODLGCAR:ACOLS, ODLGCAR:AHEADER})

LOCA001.PRW - VALID() -> IF !EXECBLOCK("LC001VAL",.T.,.T.,{ODLGGUI:ACOLS, ODLGGUI:AHEADER})

LOCA001.PRW - VALID() -> IF !EXECBLOCK("LC001VAL",.T.,.T.,{ODLGPLA:ACOLS, ODLGPLA:AHEADER})

LOCA001.PRW - VALID() -> LEXCLZUC := EXECBLOCK("LOCA008",.T.,.T.,{FQ5->FQ5_FILORI, FQ5->FQ5_SOT, FQ5->FQ5_OBRA, FQ5->FQ5_AS, FQ5->FQ5_VIAGEM})

LOCA001.PRW - XMENUDEF() -> AROTINA := EXECBLOCK("LC001ROT" , .T. , .T. , {AROTINA,AROTINA1})

LOCA003.PRW - REMOVEITEM() -> EXECBLOCK("_LOCA03PE" , .T. , .T. , {OERROR})

LOCA003.PRW - SETDATA() -> EXECBLOCK("_LOCA03PE" , .T. , .T. , {OERROR})

LOCA003.PRW - SETORDER() -> EXECBLOCK("_LOCA03PE" , .T. , .T. , {OERROR})

LOCA005.PRW - ACEIT2() -> ACPOSIM := EXECBLOCK("ZBXACTEL",.T.,.T.,{ACPOSIM})

LOCA005.PRW - FACEITAM() -> LGRAVA := EXECBLOCK("ZBXACVLD",.T.,.T.,{GDFIELDGET("FPF_DATA", NI), GDFIELDGET("FPF_DATA", NI), GDFIELDGET("FPF_STATUS", NI), GDFIELDGET("FPF_HORAI", NI), GDFIELDGET("FPF_HORAF", NI)})

LOCA005.PRW - FACEITM2() -> LGRAVA := EXECBLOCK("ZBXACVLD",.T.,.T.,{GDFIELDGET("FPF_DATA", NI), GDFIELDGET("FPF_DATA", NI), GDFIELDGET("FPF_STATUS", NI), GDFIELDGET("FPF_HORAI", NI), GDFIELDGET("FPF_HORAF", NI)})

LOCA005.PRW - FBAIXAM() -> EXECBLOCK("ZBXBXFIM",.T.,.T.,{FPF->FPF_MINUTA, OBROWSE})

LOCA005.PRW - FBAIXAM() -> IF !EXECBLOCK("ZBXBXVLD",.T.,.T.,{ATABAUX, ARECNOSZBX})

LOCA005.PRW - FCANCELAM() -> EXECBLOCK("ZBXCANMI",.T.,.T.,{FPF->FPF_MINUTA, FPF->FPF_STATUS, FPF->FPF_AS})

LOCA005.PRW - FESTORNAM() -> EXECBLOCK("ZBXESTMI",.T.,.T.,{FPF->FPF_MINUTA, CSTATUS, ATABAUX[NPOS,NPOSSTA], FPF->FPF_AS})

LOCA005.PRW - FESTORNAM() -> LESTOK := EXECBLOCK("ZBXESTVL",.T.,.T.,{CSTATUS, ATABAUX[NPOS,NPOSSTA]})

LOCA005.PRW - FMONTAZBX() -> CQRY += EXECBLOCK("ZBXQRYWH",.T.,.T.,{NRECNOATU, CPERG})

LOCA005.PRW - FMONTAZBX() -> CQRY := EXECBLOCK("ZBXQRY",.T.,.T.,{CQRY})

LOCA005.PRW - FTROCAFRO() -> EXECBLOCK("ZBXTEQFM",.T.,.T.,{CFROTAP})

LOCA005.PRW - FZBXBAIX() -> ABUTTONS := EXECBLOCK("ZBXBXBUT",.T.,.T.,{ABUTTONS,ODLG,ACOLS})

LOCA005.PRW - FZBXBAIX() -> EXECBLOCK("ZBXCANBX",.T.,.T.,{ACOLS})

LOCA005.PRW - LOCA005() -> AROTINAUSU := EXECBLOCK("LOCA006",.F.,.F.,AROTINA)

LOCA005.PRW - LOCA00520() -> _LBLOQ := EXECBLOCK("ZBXBXVHR",.T.,.T.,{ACOLS, AHEADER})

LOCA005.PRW - LOCA00521() -> AFILT9QRY := EXECBLOCK("FILT9QRY", .T., .T., {_DDATA, _CHRINI, _CHRFIM, _CFROTAD})

LOCA007.PRW - LOCA007() -> AROTINA := EXECBLOCK("LCZC1ROT",.T.,.T.,{AROTINA})

LOCA007.PRW - LOCA007() -> CFILTRO += EXECBLOCK("LC007FIL" , .T. , .T. , {CFILTRO})

LOCA007.PRW - LOCA007() -> CFILTRO := EXECBLOCK("LCZC1FIL",.T.,.T.)

LOCA007.PRW - LOCA00701() -> ASTATUS := EXECBLOCK("ZC1ADLEG",.T.,.T.,{ASTATUS})

LOCA007.PRW - LOCA00715() -> ANOVO := EXECBLOCK("ZC1NOCOP",.T.,.T.,{ANOVO})

LOCA007.PRW - LOCA00717() -> ABUTTONS := EXECBLOCK("LOCA007A" , .T. , .T. , {ABUTTONS})

LOCA007.PRW - LOCA00717() -> EXECBLOCK("LOCA007D" , .T. , .T. , {NRET,3})

LOCA007.PRW - LOCA00718() -> ABUTTONS := EXECBLOCK("LOCA007B" , .T. , .T. , {ABUTTONS})

LOCA007.PRW - LOCA00718() -> EXECBLOCK("LOCA007D" , .T. , .T. , {NRET  ,4})

LOCA007.PRW - LOCA00718() -> IF !EXECBLOCK("LC0718VL", .F., .F.)

LOCA007.PRW - LOCA00719() -> EXECBLOCK("LCZC1EXC",.T.,.T.,{_NRECNO, _CTIPO, _CDOCORI, _NRECORI})

LOCA007.PRW - LOCA00719() -> EXECBLOCK("LOCA007D" , .T. , .T. , {NRET  ,5})

LOCA007.PRW - LOCA00722() -> ABUTTONS := EXECBLOCK("LOCA007C" , .T. , .T. , {ABUTTONS})

LOCA010.PRW - GERPED() -> ACAMPOSSC5 := EXECBLOCK("GERREMC5" , .T. , .T. , {ACAMPOSSC5})

LOCA010.PRW - GERPED() -> CTESLF := EXECBLOCK("GERREMTES",.T.,.T.,{CTESLF})

LOCA010.PRW - GERPED() -> EXECBLOCK("GERREFLOG",.T.,.T.,{ZAGTMP->FPA_GRUA, NVALPROD, ZAGTMP->FPA_PRODUT})

LOCA010.PRW - GERPED() -> EXECBLOCK("GERREMFIM",.T.,.T.,{_CNOTA,_CPEDIDO,ACAMPOSSC5,ACAMPOSSC6})

LOCA010.PRW - GERPED() -> EXECBLOCK("LOCA10Z",.T.,.T.,{})

LOCA010.PRW - GERPED() -> _CTXT += EXECBLOCK("GRVC5OBS",.T.,.T.,{_CTXT, IIF(LNFREMBE, ZAGTMP->FILTRAB,ZAGTMP->FPA_FILIAL)})

LOCA010.PRW - ITENSPED() -> CQUERY := EXECBLOCK("NFREMQRY" , .T. , .T. , {CQUERY})

LOCA010.PRW - LOCA010() -> _LGERA := EXECBLOCK("LOCA012" , .T. , .T. , NIL)

LOCA010.PRW - MARCAITEM() -> LTEM := EXECBLOCK("TEMROMAN",.T.,.T.,{.F., _AARRAY, NAT, NPOS, .F.})

LOCA010.PRW - MARCATUDO() -> LTEM:= EXECBLOCK("TEMROMAN",.T.,.T.,{.F., _AARRAY, NX, NPOS,IIF(LFIRST,.T.,.F.)})

LOCA010.PRW - NFREMBE() -> XCQUERY := EXECBLOCK("NFREMQR2",.T.,.T.,{XCQUERY, ANFREMLB })

LOCA011.PRW - EXECDE() -> LFORCA := EXECBLOCK("LOCA11A",.T.,.T.,{})

LOCA011.PRW - GRVNFE() -> ALINHA := EXECBLOCK("NFRTITEM",.T.,.T.,{ALINHA})

LOCA011.PRW - LOCA01101() -> LFORCA := EXECBLOCK("LOCA11B",.T.,.T.,{})

LOCA011.PRW - LOCA01101() -> LFORCA := EXECBLOCK("LOCA11C",.T.,.T.,{})

LOCA011.PRW - LOCA01101() -> LFORCA := EXECBLOCK("LOCA11D",.T.,.T.,{})

LOCA011.PRW - LOCA01101() -> LFORCA := EXECBLOCK("LOCA11F",.T.,.T.,{})

LOCA011.PRW - LOCA01101() -> _NZUC := EXECBLOCK("LOCA11E",.T.,.T.,{})

LOCA011.PRW - LOCA01102() -> LFORCA := EXECBLOCK("LOCA11G",.T.,.T.,{})

LOCA011.PRW - LOCA01102() -> LFORCA := EXECBLOCK("LOCA11H",.T.,.T.,{})

LOCA013.PRW - LOCA01301() -> IF !EXECBLOCK("GRCANVLD",.T.,.T.,{ST9->T9_STATUS,TQY->TQY_STATUS,FPA->FPA_PROJET,"",""})

LOCA013.PRW - LOCA01301() -> _LGERAR := EXECBLOCK("GRCTVLD",.T.,.T.,{})

LOCA013.PRW - LOCA01302() -> EXECBLOCK("GRCTLFIM",.T.,.T.,{AASNOVA})

LOCA013.PRW - LOCA01302() -> XRET := EXECBLOCK( "GRCONTR_", .T., .T., { "ANTESDTQ", @ADTQ, "FP4" } )

LOCA013.PRW - LOCA01302() -> XRET := EXECBLOCK( "GRCONTR_", .T., .T., { "ANTESDTQ", @ADTQ, "FPA" } )

LOCA013.PRW - LOCA01302() -> XRET := EXECBLOCK( "GRCONTR_", .T., .T., { "ANTESDTQ", @ADTQ, "ZA6" } )

LOCA021.PRW - GERAPV() -> ACOMPLEX := EXECBLOCK("LOCA021P" , .T. , .T. , {1} )

LOCA021.PRW - GERAPV() -> ACOMPLEX := EXECBLOCK("LOCA021P" , .T. , .T. , {3} )

LOCA021.PRW - GERAPV() -> ACOMPLEX := EXECBLOCK("LOCA021Q" , .T. , .T. , {1} )

LOCA021.PRW - GERAPV() -> ACOMPLEX := EXECBLOCK("LOCA021Q" , .T. , .T. , {3} )

LOCA021.PRW - GERAPV() -> EXECBLOCK("LCJATFIM" , .T. , .T. , NIL)

LOCA021.PRW - GERAPV() -> EXECBLOCK("LCJATFPG" , .T. , .T. , {})

LOCA021.PRW - GERAPV() -> EXECBLOCK("LCJATZAG" , .T. , .T. , {})

LOCA021.PRW - GERAPV() -> EXECBLOCK("LCJLFFIM" , .T. , .T. , {CPAR09,CPAR10})

LOCA021.PRW - GERAPV() -> EXECBLOCK("LCJLFFRT" , .T. , .T. , {_LPRIMFAT , _NVLRFRETE})

LOCA021.PRW - GERAPV() -> EXECBLOCK("LCJLFINI" , .T. , .T. , NIL)

LOCA021.PRW - GERAPV() -> EXECBLOCK("LOCA061Z" , .T. , .T. , {_ACABPV,_AITENSPV,_AZC1FAT,LGERAPVX})

LOCA021.PRW - GERAPV() -> NDIASTRB := EXECBLOCK("LOCA021C" , .T. , .T. )

LOCA021.PRW - GERAPV() -> NFORCA := EXECBLOCK("LOCA021F" , .T. , .T. , {} )

LOCA021.PRW - GERAPV() -> NFORCA := EXECBLOCK("LOCA021G" , .T. , .T. , {} )

LOCA021.PRW - GERAPV() -> NFORCA := EXECBLOCK("LOCA021H" , .T. , .T. , {} )

LOCA021.PRW - GERAPV() -> NFORCA := EXECBLOCK("LOCA021I" , .T. , .T. , {} )

LOCA021.PRW - GERAPV() -> NFORCA := EXECBLOCK("LOCA021J" , .T. , .T. , {} )

LOCA021.PRW - GERAPV() -> NFORCA := EXECBLOCK("LOCA021K" , .T. , .T. , {} )

LOCA021.PRW - GERAPV() -> NFORCA := EXECBLOCK("LOCA021L" , .T. , .T. , {} )

LOCA021.PRW - GERAPV() -> NFORCA := EXECBLOCK("LOCA021M" , .T. , .T. , {} )

LOCA021.PRW - GERAPV() -> NFORCA := EXECBLOCK("LOCA021N" , .T. , .T. , {} )

LOCA021.PRW - GERAPV() -> NFORCA := EXECBLOCK("LOCA021O" , .T. , .T. , {} )

LOCA021.PRW - GERAPV() -> _ACABPV := EXECBLOCK("LCJLFCAB" , .T. , .T. , {_ACABPV,"C"})

LOCA021.PRW - GERAPV() -> _AITEMTEMP := EXECBLOCK("LCJLFITE" , .T. , .T. , {_AITEMTEMP})

LOCA021.PRW - GERAPV() -> _AITENSPV := EXECBLOCK("LCJLFCAB" , .T. , .T. , {_AITENSPV,"I"})

LOCA021.PRW - GERAPV() -> _CDESCXA := EXECBLOCK("LOCA021A" , .T. , .T. , {FPG->(RECNO()),2})

LOCA021.PRW - GERAPV() -> _CDESCXA := EXECBLOCK("LOCA021A" , .T. , .T. , {TRBFPG->ZC1RECNO,2})

LOCA021.PRW - GERAPV() -> _CNATUREZ := EXECBLOCK("LCJNAT" , .T. , .T. , {_CNATUREZ})

LOCA021.PRW - GERAPV() -> _CPERLOC := EXECBLOCK("LOCA021D" , .T. , .T., {_CPERLOC} )

LOCA021.PRW - GERAPV() -> _CPRODXA := EXECBLOCK("LOCA021A" , .T. , .T. , {FPG->(RECNO()),1})

LOCA021.PRW - GERAPV() -> _CPRODXA := EXECBLOCK("LOCA021A" , .T. , .T. , {TRBFPG->ZC1RECNO,1})

LOCA021.PRW - GERAPV() -> _CQUERY := EXECBLOCK("LCJLFQRY" , .T. , .T. , {_CQUERY})

LOCA021.PRW - GERAPV() -> _CTES := EXECBLOCK("LCJTES" , .T. , .T. , {_CTES})

LOCA021.PRW - GERAPV() -> _NDIASX  := EXECBLOCK("LOCA021C" , .T. , .T. )

LOCA021.PRW - GRAVANFS() -> _CSERIE := EXECBLOCK("LCJSER" , .T. , .T. , {_CSERIE})

LOCA021.PRW - VALPROC() -> LRET := EXECBLOCK("LCJF1VLD" , .T. , .T. , NIL)

LOCA029.PRW - GERNFINSU() -> CTESLF := EXECBLOCK("GERREMTES",.T.,.T.,{CTESLF})

LOCA029.PRW - LOCA02903() -> LRET := EXECBLOCK("LOCA064" , .T. , .T. , {"L0501_GNFE"})

LOCA029.PRW - LOCA02903() -> LRET := EXECBLOCK("LOCA064",.T.,.T.,{"L0501_VAL_ANT_NFREM"})

LOCA029.PRW - LOCA02903() -> LRET := EXECBLOCK("LOCA064",.T.,.T.,{"L0501_VAL_ANT_NFRET"})

LOCA029.PRW - LOCA02903() -> LRET := EXECBLOCK("LOCA064",.T.,.T.,{"L0501_VAL_POS_NFRET"})

LOCA029.PRW - LOCA02904() -> IF EXECBLOCK("CLIBLOQ" , .T. , .T. , {FP0->FP0_CLI, FP0->FP0_LOJA, .T.})

LOCA029.PRW - LOCA02905() -> EXECBLOCK("LOCA029B" , .T. , .T. , {LRET})

LOCA029.PRW - LOCA02905() -> LRET := EXECBLOCK("LOCA029A" , .T. , .T. , {FQ3->(RECNO())})

LOCA029.PRW - LOCA02907() -> _ALEGENDA := EXECBLOCK("LOCA029E" , .T. , .T. , {_ALEGENDA})

LOCA029.PRW - LOCA02908() -> _NCOR := EXECBLOCK("LOCA029D" , .T. , .T. , {_NCOR})

LOCA040.PRW - FCANCELAR() -> EXECBLOCK("LC145ACE",.T.,.T.,{LVERZBX,_LEXCZAG,FP4->FP4_PROJET,FQ5->FQ5_AS,FQ5->FQ5_VIAGEM,FP4->FP4_OBRA, FP4->FP4_SEQGUI})

LOCA040.PRW - FCANCELAR() -> EXECBLOCK("LC145ACE",.T.,.T.,{LVERZBX,_LEXCZAG,FPA->FPA_PROJET,FQ5->FQ5_AS,FQ5->FQ5_VIAGEM})

LOCA040.PRW - FSELECIONA() -> AITENS := EXECBLOCK("LC145SEL",.T.,.T.,{AITENS, NAT, LQUIET, LACAO})

LOCA044.PRW - FFOLDERDES() -> ACAMPOSSIM := EXECBLOCK("LOCT002A",.T.,.T.,{ACAMPOSSIM})

LOCA048.PRW - FCOLS() -> ACOLS := EXECBLOCK("LC035COL",.T.,.T.,{AHEADER,ACOLS})

LOCA048.PRW - FSALVAR() -> LRET := EXECBLOCK("LC035TOK",.T.,.T.,{ODLG})

LOCA048.PRW - FSALVAR001() -> AROTINA := EXECBLOCK("LC035GRV",.T.,.T.)

LOCA048.PRW - FSALVAR001() -> EXECBLOCK("LC35PGRV",.T.,.T.,{ CAS })

LOCA048.PRW - FSALVARZLF() -> EXECBLOCK("LC035ZLF",.T.,.T.,{FQ5->FQ5_AS})

LOCA048.PRW - FSALVARZLM() -> EXECBLOCK("LC35PZLM",.T.,.T.,{ FPF->FPF_AS, FPF->FPF_DATA, FPF->FPF_HORAI, FPF->FPF_HORAF, "DELETA" })

LOCA048.PRW - FSALVARZLM() -> EXECBLOCK("LC35PZLM",.T.,.T.,{ FPF->FPF_AS, FPF->FPF_DATA, FPF->FPF_HORAI, FPF->FPF_HORAF, "GRAVA" })

LOCA048.PRW - LOCA048() -> AROTINA := EXECBLOCK("LC035ROT" ,.T.,.T.,{AROTINA})

LOCA048.PRW - LOCA048() -> CFILTRO := EXECBLOCK("LOC035FIL",.T.,.T.,{CPROJECT})

LOCA048.PRW - LOCA04801() -> ABNTENCHOI := EXECBLOCK("LC035MBT",.T.,.T.,{ABNTENCHOI})

LOCA048.PRW - LOCA04801() -> ABNTENCHOI := EXECBLOCK("LC035OBS" , .T. , .T. , {ABNTENCHOI})

LOCA048.PRW - LOCA04801() -> ACAMPOSSIM := EXECBLOCK("LC035CPI",.T.,.T.,{ACAMPOSSIM})

LOCA048.PRW - LOCA04801() -> AITENS := EXECBLOCK("LC035BRW",.T.,.T.)

LOCA048.PRW - LOCA04801() -> EXECBLOCK("LC035BRW",.T.,.T.)

LOCA048.PRW - LOCA04801() -> EXECBLOCK("LC035TEL",.F.,.F.,NIL)

LOCA048.PRW - LOCA04801() -> _CTIPOX := EXECBLOCK("LOCA018",.T.,.T., {LINCLUI})

LOCA048.PRW - LOCA04804() -> _CTIPOX := EXECBLOCK("LOCA018",.T.,.T., {.F.})

LOCA048.PRW - LOCA04805() -> EXECBLOCK("LOC035LEG",.T.,.T.)

LOCA048.PRW - LOCA04816() -> EXECBLOCK("LC35PCAN",.T.,.T.,{FPN->FPN_AS})

LOCA052.PRW - FFOLDERFRO() -> ACAMPOSSIM := EXECBLOCK("LC049FRO",.T.,.T.,{ ACAMPOSSIM })

LOCA052.PRW - LOCA05227() -> _LRET := EXECBLOCK("LC49DZLG",.T.,.T.,{ODLGFRO})

LOCA053.PRW - LOCA05312() -> _LRET := EXECBLOCK("LC53DZLO",.T.,.T.,{ODLGLO})

LOCA059.PRW - CARGAFQ5() -> EXECBLOCK("LOCA59H",.T.,.T.,{})

LOCA059.PRW - CARGAFQ5() -> LFORCA := EXECBLOCK("LOCA59G",.T.,.T.,{})

LOCA059.PRW - CARGAFQ5() -> LFORCA := EXECBLOCK("LOCA59I",.T.,.T.,{})

LOCA059.PRW - CRIAZLG() -> EXECBLOCK("LC111ZLG",.T.,.T.,{ LZLT })

LOCA059.PRW - EXCLUISC() -> LFORCA := EXECBLOCK("LOCA59N",.T.,.T.,{})

LOCA059.PRW - EXCLUISC() -> LFORCA := EXECBLOCK("LOCA59O",.T.,.T.,{})

LOCA059.PRW - FACEMINUTA() -> EXECBLOCK("LC111ACE",.T.,.T.,{FQ5->FQ5_AS , CTITULO , CMSG})

LOCA059.PRW - FACEMINUTA() -> LANTACE := EXECBLOCK("LC111ANT",.T.,.T.,{ FQ5->FQ5_AS, CTITULO, CMSG, CLOTE })

LOCA059.PRW - FAJUSTAZBX() -> EXECBLOCK("LC111ZBX",.T.,.T., NIL)

LOCA059.PRW - GERASC() -> LFORCA := EXECBLOCK("LOCA59J",.T.,.T.,{})

LOCA059.PRW - GERASC() -> LFORCA := EXECBLOCK("LOCA59K",.T.,.T.,{})

LOCA059.PRW - GERASC() -> LFORCA := EXECBLOCK("LOCA59L",.T.,.T.,{})

LOCA059.PRW - LGERPRG() -> LRET := EXECBLOCK("LC111MSG",.T.,.T.,)

LOCA059.PRW - LOCA059() -> ACORES := EXECBLOCK("LC111COR",.T.,.T.,{ACORES})

LOCA059.PRW - LOCA059() -> AROTINA := EXECBLOCK("LC111ROT",.T.,.T.,{AROTINA})

LOCA059.PRW - LOCA059() -> CEXPFILTRO += EXECBLOCK("LC059FIL" , .T. , .T. , {CEXPFILTRO})

LOCA059.PRW - LOCA05901() -> ALEGENDA := EXECBLOCK("LC111LEG",.T.,.T.,{ALEGENDA})

LOCA059.PRW - LOCA05907() -> EXECBLOCK("LC111REJ",.T.,.T.,{FQ5->FQ5_FILIAL, FQ5->FQ5_FILORI, FQ5->FQ5_SOT, FQ5->FQ5_OBRA, FQ5->FQ5_AS})

LOCA059.PRW - LOCA05907() -> _LREJ := EXECBLOCK("LC111VRJ",.T.,.T.,NIL)

LOCA059.PRW - LOCA05908() -> EXECBLOCK("LC111ACE",.T.,.T.,{FQ5->FQ5_AS , "" , ""})

LOCA059.PRW - LOCA05908() -> EXECBLOCK("LC111ACE",.T.,.T.,{FQ5->FQ5_AS , CTITULO , CMSG , CLOTE})

LOCA059.PRW - LOCA05908() -> EXECBLOCK("LC111ACE",.T.,.T.,{FQ5->FQ5_AS , CTITULO , CMSG})

LOCA059.PRW - LOCA05908() -> LANTACE := EXECBLOCK("LC111ANT",.T.,.T.,{ FQ5->FQ5_AS, CTITULO, CMSG, CLOTE })

LOCA059.PRW - LOCA05908() -> LFORCA := EXECBLOCK("LOCA59B",.T.,.T.,{})

LOCA059.PRW - LOCA05908() -> LFORCA := EXECBLOCK("LOCA59C",.T.,.T.,{})

LOCA059.PRW - LOCA05908() -> LFORCA := EXECBLOCK("LOCA59D",.T.,.T.,{})

LOCA059.PRW - LOCA05908() -> LFORCA := EXECBLOCK("LOCA59Z",.T.,.T.,{})

LOCA059.PRW - LOCA05908() -> _LRET := EXECBLOCK("LC111AC1",.T.,.T.,{FQ5->FQ5_GUINDA, FQ5->FQ5_AS, FQ5->FQ5_VIAGEM, CLOTE })

LOCA059.PRW - LOCA05908() -> _LRET := EXECBLOCK("LOCA59A",.T.,.T.,{})

LOCA059.PRW - LOCA05916() -> ALINHA := EXECBLOCK("LC111LFL",.T.,.T.,{ALINHA})

LOCA059.PRW - LOCA05916() -> CMSG += EXECBLOCK("LC111USR", .T., .T., {_NTPACE, CACAO}) + CRLF + CRLF

LOCA059.PRW - LOCA05916() -> CTITULO := EXECBLOCK("LC111TIT", .T., .T., {_NTPACE, _CPRJOLD})

LOCA059.PRW - LOCA05916() -> EXECBLOCK("LC111LBT",.T.,.T.,{_CQUERY, _NTPACE})

LOCA059.PRW - LOCA05916() -> _AALX := EXECBLOCK("LC111LQR",.T.,.T.,{_CQUERY})

LOCA059.PRW - LOCA05920() -> ACAB := EXECBLOCK("LTREQCAB",.T.,.T.,{ACAB})

LOCA059.PRW - LOCA05921() -> EXECBLOCK("LC111TEQ",.T.,.T.,{ATROCA[NX,ASCAN(OLBX1:AHEADER,{|X|ALLTRIM(X[2])=="EQUIPNV"})]})

LOCA059.PRW - LOCA05925() -> LFORCA := EXECBLOCK("LOCA59E",.T.,.T.,{})

LOCA059.PRW - LOCA05925() -> LFORCA := EXECBLOCK("LOCA59F",.T.,.T.,{})

LOCA059.PRW - LOCA05929() -> LFORCA := EXECBLOCK("LOCA59P",.T.,.T.,{})

LOCA059.PRW - LOCA05930() -> NFORCA := EXECBLOCK("LOCA59M",.T.,.T.,{})

LOCA059.PRW - MARCARREGI() -> LTEM := EXECBLOCK("MARKREG",.T.,.T.,{LTODOS, ALINHA, NI, ASCAN(ALINHA , { |X| X[1] == .T. } ),IIF(LFIRST,.T.,.F.)})

LOCA059.PRW - MARCARREGI() -> LTEM := EXECBLOCK("MARKREG",.T.,.T.,{LTODOS, ALINHA, OLBX:NAT, ALINHA[OLBX:NAT,1], .F.})

LOCA059.PRW - VALIDLIN() -> LRET := EXECBLOCK("LCVLDLIN",.T.,.T.,{})

LOCA059.PRW - VALIDTROCAEQ() -> LRET := EXECBLOCK("VALGRUA",.T.,.T.,{.T.,ATROCA[NX,ASCAN(OLBX1:AHEADER,{|X|ALLTRIM(X[2])=="EQUIPNV"})]})

LOCA079.PRW - CSVPROCESS() -> CTEMP := EXECBLOCK("LOCA7903" , .T. , .T. , {CTEMP})

LOCA079.PRW - CSVPROCESS() -> LCABQUEBRA := EXECBLOCK("LOCA7904" , .T. , .T. , {_ADADOS[1]})

LOCA079.PRW - CSVPROCESS() -> _ADADOS[NX] := EXECBLOCK("LOCA7902" , .T. , .T. , {_ADADOS[NX]})

LOCARG.PRW - P_IBBA() -> CQRYSF3 := EXECBLOCK ("LCARGSIAP",.F.,.F.,{"PERC",CPROV})

LOCARG.PRW - R_IBBA() -> CQRYSF3 := EXECBLOCK ("LCARGSIAP",.F.,.F.,{"RET",CPROV})

LOCXARG.PRW - LOCX2TIPSER() -> CCODSERIE := EXECBLOCK(CPE,.F.,.F.,{CTIPODOC, CTIPO, CCODSERIE})

LOCXARG.PRW - XCLIFORARG() -> LALTPROV := EXECBLOCK(CPE,.F.,.F.,{READVAR(),CPROVANT,CPROV})

LOCXFAT.PRX - A460ATUARG() -> EXECBLOCK( "M468SD2" )

LOCXFUN.PRX - A100TESXIP() -> AIMPOSTO := EXECBLOCK( CFILERDMK,.F.,.F., { AIMPVARSD1, AIMPOSTO,;

LOCXFUN.PRX - A460TESXIP() -> AIMPOSTO := EXECBLOCK( CFILERDMK,.F.,.F., { AIMPVARSD2, AIMPOSTO,;

LOCXFUN.PRX - A460TESXIP() -> AIMPOSTO := EXECBLOCK( CFILERDMK,.F.,.F., { AIMPVARSD2, AIMPOSTO,NPOSCOLS, AIMPOSTO[6],0} ,.T. )

LOCXFUN.PRX - CALCIMPGER() -> AIMPOSTO := EXECBLOCK( ALLTRIM(SFB->FB_FORMENT),.F.,.F., { AIMPVAR, AIMPOSTO,NIL;

LOCXFUN.PRX - CALCTESXIP() -> AIMPOSTO := EXECBLOCK( CFILERDMK,.F.,.F., { AIMPVARSD2, AIMPOSTO,;

LOCXFUN.PRX - GETBOOK() -> PRIVATE NTAXA := NTAXAL

LOCXFUN.PRX - GRVORIGEM() -> CORIGEM := EXECBLOCK("CA050ORI",.F.,.F.)

LOCXFUN.PRX - GRVTITLOC() -> ACPOPE := EXECBLOCK("FS011CPO",.F.,.F.)

LOCXFUN.PRX - MAFISF3EIC() -> EXECBLOCK("MAF3EIC",.F.,.F.)

LOCXFUN.PRX - OLDTESXIP() -> AIMPOSTO := EXECBLOCK( CFILERDMK,.F.,.F., { AIMPVARSD2, AIMPOSTO,;

LOCXFUN.PRX - RETCF() -> CNIT := EXECBLOCK("PARCDCTR",.F.,.F.,{ADADOS[2],ADADOS[4]})

LOCXFUNA.PRX - A410CALCDESC() -> ACOLS[NCNTFOR][NPOSPRUNIT] :=  EXECBLOCK("CLIXART",.F.,.F., {ACOLS[NCNTFOR][NPOSPROD],M->CJ_CLIENTE+M->CJ_LOJA,M->CJ_TABELA,1}  )

LOCXFUNA.PRX - A410CALCDESC() -> ACOLS[N][NPOSPRUNIT] := EXECBLOCK("CLIXART",.F.,.F.,  {ACOLS[N][NPOSPROD],M->CJ_CLIENTE+M->CJ_LOJA,M->CJ_TABELA,1} )

LOCXFUNA.PRX - A410CALCDESC() -> ACOLS[N][NPOSPRUNIT] := EXECBLOCK("CLIXART",.F.,.F.,{ACOLS[N][NPOSPROD],M->C5_CLIENTE+M->C5_LOJACLI,M->C5_TABELA,1} )

LOCXFUNA.PRX - A410CALCDESC() -> NPERCITEM := EXECBLOCK("CLIXART",.F.,.F.,  {M->CK_PRODUTO,M->CJ_CLIENTE+M->CJ_LOJA,M->CJ_TABELA,2} )

LOCXFUNA.PRX - A410CALCDESC() -> NPERCITEM :=EXECBLOCK("CLIXART",.F.,.F.,{ACOLS[N][NPOSPROD],M->C5_CLIENTE+M->C5_LOJACLI,M->C5_TABELA,2 })

LOCXFUNA.PRX - A467CALCDESC() -> ACOLS[NCNTFOR][NPOSPRUNIT] := EXECBLOCK("CLIXART",.F.,.F.,{ACOLS[NCNTFOR][NPOSPROD],CA467CLI+CLOJA,STRZERO(NLISTA,1),1} )

LOCXFUNA.PRX - A467CALCDESC() -> ACOLS[NCNTFOR][NPOSPRUNIT] :=EXECBLOCK("CLIXART",.F.,.F.,  {ACOLS[NCNTFOR][NPOSPROD],CA467CLI+CLOJA,STRZERO(NLISTA,1),1} )

LOCXFUNA.PRX - A467CALCDESC() -> ACOLS[N][NPOSPRUNIT] := EXECBLOCK("CLIXART",.F.,.F.,  {ACOLS[N][NPOSPROD],CA467CLI+CLOJA,STRZERO(NLISTA,1),1} )

LOCXFUNA.PRX - A467CALCDESC() -> NPERCITEM := EXECBLOCK("CLIXART",.F.,.F.,  {ACOLS[N][NPOSPROD],CA467CLI+CLOJA,STRZERO(NLISTA,1),2} )

LOCXFUNA.PRX - CALCVALTRC() -> AAUX := EXECBLOCK("FORMSTRC",.F.,.F.)

LOCXFUNA.PRX - CFDGERXML() -> PROCESSA({ |LEND| EXECBLOCK("M475IMPPER",.F.,.F.,{CESPECIE, CSERIE, CFATURA, CTIPODOC, CCODIGO, CLOJA, .T.})}, STR0130)

LOCXFUNA.PRX - FXMLFUN() -> ACONCEPTO := EXECBLOCK("LOCXCONCEP",.F.,.F.,{SUBSTR(ADETFAC[NX][2],CTAMANO+1),SUBSTR(ADETFAC[NX][2],1,CTAMANO)})

LOCXGEN.PRW - LOCKCLICK() -> LM485PE := EXECBLOCK("M465DORIFE",.F.,.F.,{SF2->F2_FILIAL, SF2->F2_DOC, SF2->F2_SERIE, SF2->F2_CLIENTE, SF2->F2_LOJA})

LOCXGEN.PRW - LOCXGRID() -> EXECBLOCK(APECOLS[SCFIMACOLS],.F.,.F.)

LOCXGEN.PRW - LOCXGRID() -> EXECBLOCK(APECOLS[SCLINACOLS],.F.,.F.)

LOCXGEN.PRW - LOCXHEAD() -> EXECBLOCK(APEHEADER[SCFIMAHEADER],.F.,.F.)

LOCXGEN.PRW - LOCXMOD() -> LA465CANC:= EXECBLOCK("A465CANC",.F.,.F.,ACFGNF[8])

LOCXGEN.PRW - LOCXVLDTP9() -> LRET := EXECBLOCK("A410VTIP",.F.,.F.,{LRET})

LOCXGEN.PRW - LOCXVLDTP9() -> LRET := EXECBLOCK("M410TIP9",.F.,.F.)

LOCXGEN.PRW - LOCXVLDTP9() -> NPARCELAS := EXECBLOCK("MT410PC",.F.,.F.)

LOCXITU.PRW - LOCXITU17() -> EXECBLOCK("LOCXIT01" , .T. , .T. , {2, FQ9->FQ9_XATUIN})

LOCXITU.PRW - LOCXITU21() -> EXECBLOCK("LOCX21A",.T.,.T.,{})

LOCXITU.PRW - PROCREAJ() -> EXECBLOCK("LOCXIT01" , .T. , .T. , {1,_AITENS[_NX,15]})

LOCXMEX.PRW - LXALQIMP() -> NVALTMP := EXECBLOCK('LXD2FILT', .F., .F., {NVAL,TRBSFB->CAMPO})

LOCXNF.PRW - ATUARQNF() -> EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - ATUDIFCUSREM() -> LATUCUSREM  := EXECBLOCK("LOCCUSREM",.F.,.F.,{ACUSTO,NQUANT,NSIGNO,CALIASTMP,ACUNITREM,AVALDIF})

LOCXNF.PRW - ATUNUMNF() -> IF VALTYPE(LRETPE := EXECBLOCK(CPE, .F., .F.,{CTABELA,CCHAVE}) ) == "L"

LOCXNF.PRW - CARREGADESP() -> CQUERYPE := EXECBLOCK(CPE, .F., .F., {CQUERY,NTIPNOTA})

LOCXNF.PRW - CARREGADESP() -> EXECBLOCK(CPE,.F.,.F.,{NX})

LOCXNF.PRW - CARREGATECLAS() -> BTECLAF4 := IIF(!EMPTY(CPE),{ || EXECBLOCK(CPE,.F.,.F.)},{|| A103F4()})

LOCXNF.PRW - CPOSAUTONF() -> AADD(ACPAD, { "EXECBLOCK('LXHORANFIS',.F.,.F.)",.T. })

LOCXNF.PRW - CPOSAUTONF() -> AADD(ACPAD, { "IF(EXECBLOCK('MT46205',.F.,.F.),'1','2')",.T. })

LOCXNF.PRW - CPOSOBRIGNF() -> AOBRIGSX3:=EXECBLOCK(CPE,.F.,.F.,{AOBRIGSX3,ACFGNF[SNTIPO]})

LOCXNF.PRW - ESTQNOTA() -> EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - GERSD3TRF() -> ARETPE:= EXECBLOCK(CPE,.F.,.F.,{ACPOSSD3,NEVENTO})

LOCXNF.PRW - GERTRFRET() -> ACPOSUSR := EXECBLOCK(CPE,.F.,.F.,{ACPOSSD1})

LOCXNF.PRW - GETDESCREM() -> CDESCREM :=EXECBLOCK("LOCXDREM",.F.,.F.)

LOCXNF.PRW - GRAVACABNF() -> EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - GRAVAFINA() -> ADUPLORI :=EXECBLOCK("MATA475DP",.F.,.F.,{ADUPLORI,AFIN})

LOCXNF.PRW - GRAVAFINA() -> ADUPLORI:=EXECBLOCK(CPE,.F.,.F.,{ADUPLORI,AFIN})

LOCXNF.PRW - GRAVAFINA() -> EXECBLOCK(CPE,.F.,.F., ARET[1])

LOCXNF.PRW - GRAVANFGERAL() -> ARETPE72:=EXECBLOCK(CPE,.F.,.F.,{ACABNOTA,AAUTOCAB})

LOCXNF.PRW - GRAVANFGERAL() -> EXECBLOCK( "LOCXS367" , .F. , .F. )

LOCXNF.PRW - GRAVANFGERAL() -> EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - GRAVANFGERAL() -> LHASHPTG := EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - GRAVANFGERAL() -> NVALOR := EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - GRAVANFGERAL() -> XRET  := EXECBLOCK(CPE,.F.,.F.,{"1",NIL})

LOCXNF.PRW - INICIALIZAFIS() -> AC[NI,NPOSTES] := EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - LOCXAVCRED() -> NVALAV:=EXECBLOCK("MTVALAVC",.F.,.F.,{'LOCXNF',NVLRTOTAL,NIL})

LOCXNF.PRW - LOCXDELNF() -> EXECBLOCK( "LOCXS327" , .F. , .F. )

LOCXNF.PRW - LOCXDELNF() -> EXECBLOCK( "LOCXS329" , .F. , .F. )

LOCXNF.PRW - LOCXDELNF() -> EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - LOCXDELNF() -> EXECBLOCK(CPE,.F.,.F.,ACFGNF[SLCONFRDP])

LOCXNF.PRW - LOCXDELNF() -> IF !EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - LOCXDELNF() -> URET := EXECBLOCK( "LOCXVLDDEL" , .F. , .F. , {CALIAS} )

LOCXNF.PRW - LOCXDELNF() -> URET := EXECBLOCK("LOCCADEL" , .F. , .F.)

LOCXNF.PRW - LOCXDLGNF() -> CLOCXNFPV :=EXECBLOCK("DESAPV",.F.,.F.,)

LOCXNF.PRW - LOCXDLGNF() -> IF VALTYPE(AUSBUTTONS := EXECBLOCK(CPE, .F., .F.) ) == "A"

LOCXNF.PRW - LOCXDLGNF() -> LHASHPTG := EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - LOCXDLGNF() -> XRET  := EXECBLOCK(CPE,.F.,.F.,NOPCA)

LOCXNF.PRW - LOCXDLGNF() -> __CEXPF4 := EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - LOCXFATAUT() -> ANUMNF := EXECBLOCK(APE[31][1],.F.,.F.)

LOCXNF.PRW - LOCXFATAUT() -> ANUMNF := EXECBLOCK(APE[31][2],.F.,.F.)

LOCXNF.PRW - LOCXGRVCUSIMP() -> EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - LOCXGRVPED() -> EXECBLOCK('LOCXGRPV',.F.,.F.,SC5->C5_NUM)

LOCXNF.PRW - LOCXNF() -> ARETPE:= EXECBLOCK(CPE,.F.,.F.,{IIF(VALTYPE(CFUNCNAME)=="C",CFUNNAME,""),NOPCAUTO,NTIPO,ACFGNF[SALIASHEAD],ACFGNF[SACPOSBR]})

LOCXNF.PRW - LOCXNF() -> CLOCXFIL := EXECBLOCK("LOCXFILT",.F.,.F.,{PREFIXOCPO(ACFGNF[SALIASHEAD]),ACFGNF[SCFILROT],CFILD1D2} )

LOCXNF.PRW - LOCXNF() -> CPDVFIJO := EXECBLOCK("LOCXPDV",.F.,.F.,{CFUNNAME, NTIPO})

LOCXNF.PRW - LOCXNF() -> CRETPE := EXECBLOCK('LOCXOKPG',.F.,.F.,{CNOTATIP})

LOCXNF.PRW - LOCXNF() -> EXECBLOCK("MT462MNU",.F.,.F.)

LOCXNF.PRW - LOCXNF() -> IF VALTYPE(AMEMUSER := EXECBLOCK( CPE, .F., .F. ) ) == "A"

LOCXNF.PRW - LOCXNFDESP() -> CCONDPE := EXECBLOCK(CPE,.F.,.F.,{CCONDICAO})

LOCXNF.PRW - LOCXSTOCK() -> EXECBLOCK('A440STK',.F.,.F.)

LOCXNF.PRW - LOCXSX5NF() -> AFILTRO := EXECBLOCK('FILSERPV',.F.,.F.,{AFILTRO})

LOCXNF.PRW - LOCXSX5NF() -> CFILTRO := EXECBLOCK(CPE,.F.,.F.,{CFILTRO})

LOCXNF.PRW - LXDOCORI() -> CQUERY := EXECBLOCK( "LXDOCORI", .F., .F., { CQUERY } )

LOCXNF.PRW - LXDOCORI() -> EXECBLOCK( "LXDORIG", .F., .F. )

LOCXNF.PRW - NFLINOK() -> LRET:= EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - NFNUMNOTA() -> CFILSX5 := EXECBLOCK("CHGX5FIL",.F.,.F.)

LOCXNF.PRW - NFNUMNOTA() -> IF !EXECBLOCK("SX5NOTA",.F.,.F.)

LOCXNF.PRW - NFTRFORI() -> ARETPE:= EXECBLOCK("LOCXREME",.F.,.F.,{ACPOS})

LOCXNF.PRW - NFTRFORI() -> ARETPE:= EXECBLOCK(CPE,.F.,.F.,{ACFGNF[SNTIPO],ACOLS})

LOCXNF.PRW - NFTRFORI() -> CQUERY :=EXECBLOCK("LOCXM462",.F.,.F.,{CQUERY,CCODFORTRF,CLOJFORTRF,CNUMFIL} )

LOCXNF.PRW - NFTRFORI() -> EXECBLOCK('LOCXD2D1',.F.,.F.)

LOCXNF.PRW - NFTUDOK() -> LBLOCKPED:=EXECBLOCK(CPE,.F.,.F.,{})

LOCXNF.PRW - NFTUDOK() -> LHASHPTG := EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - NFTUDOK() -> LRET:=EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - PREPGRAVANF() -> IF VALTYPE(LRETPE := EXECBLOCK(CPE,.F.,.F.) ) == "L"

LOCXNF.PRW - SCMTONF() -> ACPOEXTRA := EXECBLOCK(CPE,.F.,.F.,)

LOCXNF.PRW - SCMTONF() -> CCONDICAO2 := EXECBLOCK('LOCXCOND',.F.,.F.,{CCONDICAO2,"I"})

LOCXNF.PRW - SCMTONF() -> CCONDUSER:=IIF(EMPTY(CCONDUSER),""," .AND. ") + EXECBLOCK(CPE,.F.,.F.,)

LOCXNF.PRW - SCMTONF() -> EXECBLOCK(CPE,.F.,.F.,)

LOCXNF.PRW - SCMTONF() -> LFILDATA:=EXECBLOCK("LOCFDTR",.F.,.F.,)

LOCXNF.PRW - SCMTONF2() -> CCONDUSER := EXECBLOCK(CPE,.F.,.F.,)

LOCXNF.PRW - SCMTONF2() -> EXECBLOCK(CPE,.F.,.F.,)

LOCXNF.PRW - SCMTOREM() -> CCONDICAO2 := EXECBLOCK('LOCXCOND',.F.,.F.,{CCONDICAO2,"R"})

LOCXNF.PRW - SCMTOREM() -> CRETPE := EXECBLOCK(CPE,.F.,.F.,{"__LOCXSF1"})

LOCXNF.PRW - SCMTOREM() -> EXECBLOCK(CPE,.F.,.F.,)

LOCXNF.PRW - SCMTOREM() -> LFILDATA:=EXECBLOCK("LOCFDTR",.F.,.F.,)

LOCXNF.PRW - SCMTOREM() -> LRETPE69 := EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - SCMTOREM2() -> CRETPE := EXECBLOCK(CPE,.F.,.F.,{"__LOCXSF2"})

LOCXNF.PRW - SCMTOREM2() -> EXECBLOCK(CPE,.F.,.F.,)

LOCXNF.PRW - SHOULD BE HERE, BECAUSE IT IS IN THE X3_WHEN OF THE F2_MOEDA FIELD, BUT WE CANNOT COMPLETELY INHERIT THE CONTENTS OF THE X3_WHEN OF THE F2_MOEDA FIELD. */() -> ACPOSNF :=EXECBLOCK( "LOCXS333" , .F. , .F. , {ACPOSNF,ACFGNF[SNTIPO]} )

LOCXNF.PRW - SHOULD BE HERE, BECAUSE IT IS IN THE X3_WHEN OF THE F2_MOEDA FIELD, BUT WE CANNOT COMPLETELY INHERIT THE CONTENTS OF THE X3_WHEN OF THE F2_MOEDA FIELD. */() -> ACPOSNF:=EXECBLOCK(CPE,.F.,.F.,{ACPOSNF,ACFGNF[SNTIPO]})

LOCXNF.PRW - SHOULD BE HERE, BECAUSE IT IS IN THE X3_WHEN OF THE F2_MOEDA FIELD, BUT WE CANNOT COMPLETELY INHERIT THE CONTENTS OF THE X3_WHEN OF THE F2_MOEDA FIELD. */() -> ACPOSPE  := EXECBLOCK("NFCPOSRODPE",.F.,.F.,{ACPOSPE})

LOCXNF.PRW - SHOULD BE HERE, BECAUSE IT IS IN THE X3_WHEN OF THE F2_MOEDA FIELD, BUT WE CANNOT COMPLETELY INHERIT THE CONTENTS OF THE X3_WHEN OF THE F2_MOEDA FIELD. */() -> AUSOBJNF :=EXECBLOCK(CPE,.F.,.F.,{AOBJSNF})

LOCXNF.PRW - VALIDVEND() -> EXECBLOCK(CPE,.F.,.F.)

LOCXNF.PRW - VARREITNF() -> EXECBLOCK(CPE,.F.,.F., { SD1->D1_REMITO, SD1->D1_ITEMREM, SD1->D1_DOC, SD1->D1_SERIE, NI })

LOCXNF.PRW - VARREITNF() -> EXECBLOCK(CPE,.F.,.F.,{NI})

LOCXNF.PRW - VARREITNF() -> NQTD2UM := EXECBLOCK(CPE,.F.,.F.,SC9->(RECNO()))

LOCXNF2.PRW - A103DELTX() -> EXECBLOCK("M103DSE2",.F.,.F.)

LOCXNF2.PRW - F4FORTOK() -> LRET := EXECBLOCK(CPE,.F.,.F.,{AF4FOR})

LOCXNF2.PRW - LOCNUMIT2() -> NITENS := EXECBLOCK("LOCITEM2",.F.,.F.,{NITENS,CSERIE,CNOMEFUN})

LOCXNF2.PRW - LOCPROVEN2T() -> LALTPROV := EXECBLOCK(CPE,.F.,.F.,{CCPO,CPROV,CPROV})

LOCXNF2.PRW - LOCXLEGCOR() -> AUSR := EXECBLOCK(CPE,.F.,.F.,{AELEM,CALIAS})

LOCXNF2.PRW - LXA103CHKQUALI() -> LPERET := EXECBLOCK(CPE76,.F.,.F.,{LENVIACQ,CTIPONF})

LOCXNF2.PRW - LXA103CUSTO() -> URET := EXECBLOCK(CPE,.F.,.F.,{ARET})

LOCXNF2.PRW - LXA103DUPL() -> A103CND2:=EXECBLOCK("A103CND2",.F.,.F.,{AVENC})

LOCXNF2.PRW - LXA103DUPL() -> DDEMISPE62:=EXECBLOCK(CPE,.F.,.F.,{DDEMISSAO})

LOCXNF2.PRW - LXA103FINANC() -> NBASEDUP:=EXECBLOCK("A103VLR",.F.,.F.)

LOCXNF2.PRW - LXA103FORF4() -> CFILTRAQRY+=IIF(!EMPTY(CFILTRAQRY)," AND ","")+EXECBLOCK(CPE,.F.,.F.)

LOCXNF2.PRW - LXA103FORF4() -> EXECBLOCK(CPE,.F.,.F.)

LOCXNF2.PRW - LXA103FORF4() -> IF VALTYPE(AUSCONT:= EXECBLOCK('MA103F4I', .F., .F. )) == 'A'

LOCXNF2.PRW - LXA103FORF4() -> IF VALTYPE(AUSTITU:=EXECBLOCK('MA103F4H', .F., .F. )) == 'A'

LOCXNF2.PRW - LXA103FORF4() -> LRETMT103CPC:=EXECBLOCK("MT103CPC",.F.,.F.,{})

LOCXNF2.PRW - LXA103ITEMPC() -> ANEW := EXECBLOCK("MT100C7C", .F., .F., ACAB)

LOCXNF2.PRW - LXA103ITEMPC() -> ANEW := EXECBLOCK("MT100C7D", .F., .F., AARRAYF4[LEN(AARRAYF4)])

LOCXNF2.PRW - LXA103ITEMPC() -> CFILTRAQRY+= IIF(!EMPTY(CFILTRAQRY)," AND ","") + EXECBLOCK(CPE,.F.,.F.)

LOCXNF2.PRW - LXA103ITEMPC() -> EXECBLOCK(CPE,.F.,.F.)

LOCXNF2.PRW - LXA103NFORI() -> EXECBLOCK("PNEU002",.F.,.F.)

LOCXNF2.PRW - LXA103RATCC() -> EXECBLOCK(CPE,.F.,.F.,{ASAVCOLS,ASAVHEADER,NSAVN,LNOVO})

LOCXNF2.PRW - LXA103SC7TOACOLS() -> LMT103M:=EXECBLOCK( "MT103IPC", .F., .F.,{NITEM})

LOCXNF2.PRW - LXA103SD1TOACOLS() -> EXECBLOCK( "MT103INF", .F., .F., { NITEM } )

LOCXNF2.PRW - LXA103SD1TOACOLS() -> LALTPROV := EXECBLOCK(CPE74,.F.,.F.)

LOCXNF2.PRW - LXA103SD2TOACOLS() -> EXECBLOCK( "MT103INF", .F., .F., { NITEM } )

LOCXNF2.PRW - LXA103SE2() -> ARETIRRF := EXECBLOCK( "MT100IR",.F.,.F., {NITMIRRF,NVALDUP,NX} )

LOCXNF2.PRW - LXA103SE2() -> EXECBLOCK("M103DSE2",.F.,.F.)

LOCXNF2.PRW - LXA103SE2() -> EXECBLOCK("MT100GE2",.F.,.F.)

LOCXNF2.PRW - LXA103SE2() -> NITMINSS := EXECBLOCK( "MT100INS",.F.,.F., {NITMINSS} )

LOCXNF2.PRW - LXADDSDORI() -> EXECBLOCK( "LXDORIG", .F., .F. )

LOCXNF2.PRW - LXMACANDELF1() -> CASE L100DEL .AND. !(EXECBLOCK("A100DEL",.F.,.F.))

LOCXNF2.PRW - LXN466FORF6() -> EXECBLOCK(CPE,.F.,.F.)

LOCXNF2.PRW - LXN466FORF6() -> EXECBLOCK(CPE54,.F.,.F.,{NTIPO})

LOCXNF2.PRW - LXN466FORF6() -> LALTPROV := EXECBLOCK(CPE74,.F.,.F.)

LOCXNF2.PRW - LXN466FORF6() -> LPE66 := EXECBLOCK(CPE,.F.,.F.,{MV_PAR04})

LOCXNF2.PRW - LXVLDDOCIT() -> LM485PE := EXECBLOCK("M465DORIFE",.F.,.F.,{XFILIAL("SF2"),CNUMERODOC,CSERIE,CCLIFORE,CLOJAE})

LOCXNF2.PRW - MALOCATUSF3() -> EXECBLOCK("MTA920L",.F.,.F.)

LOCXNF2.PRW - NCPRATCC() -> EXECBLOCK(CPE,.F.,.F.,{ASAVCOLS,ASAVHEADER,NSAVN,LNOVO})

LOJA010A.PRW - E DA USER FUNCTION() -> ACPOENCHOICE := EXECBLOCK("LJMOD3",.F.,.F.,ACPOENCHOICE)

LOJA010A.PRW - E DA USER FUNCTION() -> CCONDICAO := EXECBLOCK("LJFLTSL1")

LOJA010A.PRW - E DA USER FUNCTION() -> CTMPCLI  := EXECBLOCK("LJCLIPAD",.F.,.F.,)

LOJA010A.PRW - E DA USER FUNCTION() -> CVENDLOJA := IIF(EXISTBLOCK("LJVENDPAD"),EXECBLOCK("LJVENDPAD",.F.,.F.,),IIF(LEN(GETMV("MV_VENDPAD"))<=6,GETMV("MV_VENDPAD")+SPACE(6-LEN(GETMV("MV_VENDPAD"))),SPACE(6)))

LOJA010A.PRW - E DA USER FUNCTION() -> IF(EXISTBLOCK("LJ10ORC"),EXECBLOCK("LJ10ORC",.F.,.F.,CNUMORC),.T.)}

LOJA010A.PRW - E DA USER FUNCTION() -> IF(EXISTBLOCK("LJKEYF10"),SETKEY(VK_F10,{ || EXECBLOCK("LJKEYF10",.F.,.F.)}),NIL)

LOJA010A.PRW - E DA USER FUNCTION() -> IF(EXISTBLOCK("LJKEYF7") ,SETKEY(VK_F7 ,{ || EXECBLOCK("LJKEYF7" ,.F.,.F.)}),NIL)

LOJA010A.PRW - E DA USER FUNCTION() -> IF(EXISTBLOCK("LJKEYF8") ,SETKEY(VK_F8 ,{ || EXECBLOCK("LJKEYF8" ,.F.,.F.)}),NIL)

LOJA010A.PRW - E DA USER FUNCTION() -> IF(EXISTBLOCK("LJKEYF9") ,SETKEY(VK_F9 ,{ || EXECBLOCK("LJKEYF9" ,.F.,.F.)}),NIL)

LOJA010A.PRW - E DA USER FUNCTION() -> IF(LLJDESC,EXECBLOCK("LJDESC",.F.,.F.,{NDESCLOJ,"V"}),.T.);

LOJA010A.PRW - E DA USER FUNCTION() -> IF(LLJDESC,EXECBLOCK("LJDESC",.F.,.F.,{NDESCPER,"P"}),.T.)

LOJA010A.PRW - E DA USER FUNCTION() -> IIF(NOPCX = 4,(EVAL(OGET:OBROWSE:BLOSTFOCUS),OFOLDER:SETOPTION(NFLDFVENDA),IF(EXISTBLOCK("LJATV01") ,EXECBLOCK("LJATV01" ,.F.,.F.),NIL)), .T. ) ) }),ODLGLOJA:END());

LOJA010A.PRW - E DA USER FUNCTION() -> LVEND:=EXECBLOCK("LJVEN010",.F.,.F.)

LOJA010A.PRW - E DA USER FUNCTION() -> NCHECK:=EXECBLOCK("LJ010CHK",.F.,.F.)

LOJA010A.PRW - E DA USER FUNCTION() -> NDESCPER := EXECBLOCK( "L010PERDES" , .F. , .F. )

LOJA010A.PRW - E DA USER FUNCTION() -> NREG := EXECBLOCK("LJ010ATE",.F.,.F.,{NOPCX,NREG})

LOJA010A.PRW - E DA USER FUNCTION() -> SETKEY(VK_F6 ,{ || ( EXECTEMPLATE("LJKEYF6" ,.F.,.F.), EXECBLOCK("LJKEYF6" ,.F.,.F.) ) })

LOJA010A.PRW - E DA USER FUNCTION() -> SETKEY(VK_F6 ,{ || EXECBLOCK("LJKEYF6" ,.F.,.F.)})

LOJA010A.PRW - E DA USER FUNCTION() -> UTEMPUNIF := EXECBLOCK("UNIF001",.F.,.F.)

LOJA010A.PRW - LJ010ATE() -> LOCAL BCAMPO

LOJA010A.PRW - LJ010ATE() -> LRET := EXECBLOCK("LJCOBFRT",.F.,.F.,{ NVLRFSD, SL1->L1_TPFRET  } )

LOJA010A.PRW - LJ010CANC() -> EXECBLOCK("L010CAN",.F.,.F.,{LCANCELOU})

LOJA010A.PRW - LJ010CANIT() -> CELEMEN := EXECBLOCK("LJ220REG",.F.,.F.)

LOJA010A.PRW - LJ010DEL() -> ALJPRDRES := EXECBLOCK("LJPRDRES",.F.,.F.,{NPOSPRODUTO,NPOSDESCPRO} )

LOJA010A.PRW - LJ010DEL() -> LRET := EXECBLOCK("L010DEL",.F.,.F.)

LOJA010A.PRW - LJ010PRCC() -> ARETITEM := EXECBLOCK("LJRGITCC",.F.,.F.,{CCODPROD,CDESCPROD,CQUANT,CUNIT,CDESCONTO,CELEMEN,CTOTIT})

LOJA010A.PRW - LJ010PRCC() -> CELEMEN := EXECBLOCK("LJ220REG",.F.,.F.)

LOJA010A.PRW - LJAVALCRED() -> LUSAANCRED := EXECBLOCK( "LJANCRED" , .F. , .F. , {CCLIENTE, CLOJA, NVLRLIQ, ARECEB } )

LOJA010A.PRW - LJCONTVEND() -> LRET := EXECBLOCK("LJCONVEN",.F.,.F.)

LOJA010B.PRW - ATUVEND() -> APGTOS:=EXECBLOCK("LJATUCMB",.F.,.F.,{APGTOS})

LOJA010B.PRW - ATUVEND() -> LOCAL LLJATUCMB:= EXISTBLOCK("LJATUCMB")

LOJA010B.PRW - IMPFATWIN() -> EXECBLOCK("IMPFATOR",.F.,.F.)

LOJA010B.PRW - LJ010CHEQ() -> EXECBLOCK("LJIMPCHQ",.F.,.F.)

LOJA010B.PRW - LJ010EVALI() -> LRET := EXECBLOCK("LJ010EVALI",.F.,.F.,{LRET})

LOJA010B.PRW - LJ010FISC() -> LJMSGRUN(STR0096,,{ || LRET := EXECBLOCK(SUPERGETMV("MV_SCRFIS"),.F.,.F.,{NDESCLOJ,NDINHEIRO,NCHEQUES,NVALORCART,;

LOJA010B.PRW - LJ010IMP() -> EXECBLOCK( CSCRCUP ,.F.,.F.,{NTROCO} )

LOJA010B.PRW - LJ010JUROS() -> ARETNEG:=EXECBLOCK("L10RETNG",.F.,.F.,{ARETNEG})

LOJA010B.PRW - LJ010JUROS() -> EXECBLOCK("L10NEGOC",.F.,.F.)

LOJA010B.PRW - LJ010JUROS() -> IF !EXECBLOCK("LJCONDNEG",.F.,.F.)

LOJA010B.PRW - LJ010NFISCA() -> LRET := EXECBLOCK("LJ010SER",.F.,.F.,{CSERIE,CNFISCAL})

LOJA010B.PRW - LJ010NOTA() -> CFILTSER :=EXECBLOCK("LJ010FILT",.F.,.F.)

LOJA010B.PRW - LJ010NOTA() -> LRETORNO := EXECBLOCK("LJ010SNF",.F.,.F.)

LOJA010B.PRW - LJ010OPTION() -> ACOND010RUN := EXECBLOCK("LJ010RUN",.F.,.F.)

LOJA010B.PRW - LJ010OPTION() -> ARECJUR := EXECBLOCK( "L010RECJUR", .F. , .F. )

LOJA010B.PRW - LJ010OPTION() -> AVALORES:=EXECBLOCK("AJUSTA",.F.,.F.)

LOJA010B.PRW - LJ010OPTION() -> EXECBLOCK("LJ010FOL",.F.,.F.,{NDESCPER,NNEWOPTION,OFOLDER})

LOJA010B.PRW - LJ010OPTION() -> EXECBLOCK("LJ010NCC", .F., .F.)

LOJA010B.PRW - LJ010OPTION() -> LRET:=EXECBLOCK("BLOQLOMB",.F.,.F.,{CNUMORC, NDESCLOJ, NDESCPER})

LOJA010B.PRW - LJ010OPTION() -> LRETFRETE := EXECBLOCK( "L10HABFR", .F. , .F. )

LOJA010B.PRW - LJ010OPTION() -> LRETNEW:=EXECBLOCK("LJ010NEW",.F.,.F.,{NDESCPER,NNEWOPTION,OFOLDER,APGTOS,NDESCLOJ,CCONDICAO,NLIQ})

LOJA010B.PRW - LJ010OPTION() -> LUSAACRS := EXECBLOCK( "LJ020ACRS" , .F. , .F. )

LOJA010B.PRW - LJ010ORC() -> LRET := EXECBLOCK("LJORCADO",.F.,.F.)

LOJA010B.PRW - LJ010ORC() -> { || EXECBLOCK( SUPERGETMV("MV_SCRORC"),.F.,.F. ) } )

LOJA010B.PRW - LJ010ORC() -> { || EXECBLOCK( SUPERGETMV("MV_SCRPED"),.F.,.F. ) } )

LOJA010B.PRW - LJ010VALID() -> ALJPRDRES := EXECBLOCK("LJPRDRES",.F.,.F.,{NPOSCODPROD,NPOSDESCPRO} )

LOJA010B.PRW - LJ010VALID() -> EXECBLOCK("L10CANC",.F.,.F.,LINCLUI)

LOJA010B.PRW - LJ010VALID() -> EXECBLOCK("L10OK",.F.,.F.,LINCLUI)

LOJA010B.PRW - SAYWINSUB() -> LOCAL LAJUSTA:= (EXISTBLOCK("AJUSTA"))

LOJA010B.PRW - SAYWINSUB() -> NDESCPER := EXECBLOCK( "LJ010KRM", .F., .F., { NDESCPER, CORIGEM } )

LOJA010B.PRW - SHOWFATOR() -> NTAXAJUR := EXECBLOCK("LJADMFIN",.F.,.F.,{CCODADM})

LOJA010C.PRW - CALCFATWIN() -> NADMTAX:= EXECBLOCK("LJADMTAX",.F.,.F.,{CCODADM})

LOJA010C.PRW - LJ010BOX() -> APGTOS:=EXECBLOCK("LJATUCMB",.F.,.F.,{APGTOS})

LOJA010C.PRW - LJ010CONDP() -> ACONDICOES:= EXECBLOCK("LJ010CON",.F.,.F.)

LOJA010C.PRW - LJ010DADPG() -> @ 37.0 , 60.5 MSGET CNUMCART RIGHT SIZE 62,10 OF ODLGLOJADADPAG PIXEL VALID IIF(EXISTBLOCK("LJVNCART"),EXECBLOCK("LJVNCART",.F.,.F.,{CNUMCART}),.T.)

LOJA010C.PRW - LJ010DADPG() -> CNUMCART:=EXECBLOCK("LJBILING",.F.,.F.)

LOJA010C.PRW - LJ010DADPG() -> EXECBLOCK("LJADMINS",.F.,.F.)

LOJA010C.PRW - LJ010DESCV() -> LDESCOK := EXECBLOCK("LJDESCNV",.F.,.F.,{NDESCPER,NDESCLOJ,NVLRTOT})

LOJA010C.PRW - LJ010GRLOJ() -> IF EXECBLOCK( "LJPSWSUP", .F., .F., { NDESCPER, NDESCLOJ, LFINALVEND } )

LOJA010C.PRW - LJ010GRLOJ() -> IF EXISTBLOCK("LJCNFGRV") .AND. ! EXECBLOCK("LJCNFGRV",.F.,.F.,{LFINALVEND,CNUMORC})

LOJA010C.PRW - LJ010GRLOJ() -> LFINALVEND:= EXECBLOCK("LJCKSALD",.F.,.F.)

LOJA010C.PRW - LJ010GRLOJ() -> LRET:=EXECBLOCK("SACI003",.F.,.F.)

LOJA010C.PRW - LJVISCHQ() -> AOK := EXECBLOCK("LJ010CHQ",.F.,.F.,{NVLRCART,DDTVENC,NPARC,CBANCO,CAGENCIA,CCONTA,CCHEQUE,CCOMP,CRG,CTELEFONE,LCHECKCH,LCHECKTE,CSERCHQ,LTIPOCHQ,CCGCCHQ,CDDDCLI,CPRETELCLI,CSUFTELCLI,CNOMECLI,CMESACTA,CANOACTA})

LOJA010C.PRW - LJW010DESC() -> AVALORES:=EXECBLOCK("AJUSTA",.F.,.F.)

LOJA010C.PRW - LJW010DESC() -> LDESCOK := EXECBLOCK("LJDESCNV",.F.,.F.,{NDESCPER,NDESCLOJ,NVLRTOT,CAUTORDESC,ADESC})

LOJA010C.PRW - LJW10TUDOK() -> LRET := EXECBLOCK( "LJ010OK", .F., .F. , {LRET})

LOJA010D.PRW - LCHOICBAR() -> ARETB3 := EXECBLOCK( "LJ010BU3", .F., .F. )

LOJA010D.PRW - LCHOICBAR() -> ARETB4 := EXECBLOCK( "LJ010BU4", .F., .F. )

LOJA010D.PRW - LCHOICBAR() -> DEFINE BUTTON OBTNTAB RESOURCE "PRECO" OF OBAR ACTION IF(LLJ010BU2,EXECBLOCK("LJ010BU2",.F.,.F.), LJ010TABELA());

LOJA010D.PRW - LCHOICBAR() -> DEFINE BUTTON OBTNTRANSP RESOURCE "CARGA" OF OBAR ACTION IF(LLJ010FRT,EXECBLOCK("LJ010FRT",.F.,.F.,{BNUMORC}), LJ010FRETE(BNUMORC,BVLRTOT,BVLRACRS,BVLRDESC,NDESCPER));

LOJA010D.PRW - LCHOICBAR() -> LRETFRETE := EXECBLOCK( "L10HABFR", .F. , .F. )

LOJA010D.PRW - LJ010CBFRM() -> LRET := EXECBLOCK("LJ010DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"COMBOPAG",OPGTOS,APGTOS})

LOJA010D.PRW - LJ010CBFRM() -> LRET := EXECBLOCK("LJ220DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"COMBOPAG",OLISTFORMA,AFORMAS})

LOJA010D.PRW - LJ010DADOS() -> .AND. IF(EXISTBLOCK("LJTES",,.T.),EXECBLOCK("LJTES",.F.,.F.,CTES),.T.)

LOJA010D.PRW - LJ010DADOS() -> AGRVPAR := EXECBLOCK("LJGRVPAR",.F.,.F.,{SE1->E1_PARCELA,SE1->E1_TIPO})

LOJA010D.PRW - LJ010DADOS() -> CSERIE:=EXECBLOCK("LJ10SER",.F.,.F.)

LOJA010D.PRW - LJ010DADOS() -> EXECBLOCK("L10D2FIM",.F.,.F.)

LOJA010D.PRW - LJ010DADOS() -> EXECBLOCK("LJ010SF3",.F.,.F.)

LOJA010D.PRW - LJ010DADOS() -> EXECBLOCK("LJ10D2",.F.,.F.)

LOJA010D.PRW - LJ010DADOS() -> EXECBLOCK("VABE001",.F.,.F., {CNUMORC, CNUMNOTA, CSERIE})

LOJA010D.PRW - LJ010DADOS() -> IF NVALORCRED > 0 .AND. LFINANCEIRO .AND. IF(EXISTBLOCK("LJTES",,.T.),EXECBLOCK("LJTES",.F.,.F.,CTES),.T.)

LOJA010D.PRW - LJ010DADOS() -> IF(EXISTBLOCK("LJTES",,.T.),EXECBLOCK("LJTES",.F.,.F.,CTES),.T.)

LOJA010D.PRW - LJ010DADOS() -> LRETORNO := EXECBLOCK("LJTES",.F.,.F.,CTES)

LOJA010D.PRW - LJ010DIN() -> CFORMAS := EXECBLOCK("LJ010VAL",.F.,.F.)

LOJA010D.PRW - LJ010DIN() -> EXECBLOCK("LJ010PGT",.F.,.F.)

LOJA010D.PRW - LJ010DINV() -> LRET := EXECBLOCK("LJ010VAL",.F.,.F.,{NVALOR,CCOMBOPAG,DDATAFORM})

LOJA010D.PRW - LJ010DTEMIS() -> LRET := EXECBLOCK("LJ010DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"DDATAEMIS",OPGTOS,APGTOS})

LOJA010D.PRW - LJ010DTEMIS() -> LRET := EXECBLOCK("LJ220DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"DDATAEMIS",OLISTFORMA,AFORMAS})

LOJA010D.PRW - LJ010DTVCTO() -> LRET := EXECBLOCK("LJ010DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"DDATAFORM",OPGTOS,APGTOS})

LOJA010D.PRW - LJ010DTVCTO() -> LRET := EXECBLOCK("LJ220DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"DDATAEMIS",OLISTFORMA,AFORMAS})

LOJA010D.PRW - LJ010FRETE() -> AVLRFRETE := EXECBLOCK("L10FRETE",.F.,.F.,{ NVLRTOT,NVLRACRS,NVLRDESC } )

LOJA010D.PRW - LJ010FRETE() -> DEFINE SBUTTON FROM 190,185 TYPE 1 ACTION (LOPCA:=IF(LLJDFRTOK,EXECBLOCK("LJDFRTOK",.F.,.F.,{CNUMORC}),.T.),IF(LOPCA,ODLGPAGTO:END(),.F.)) ENABLE OF ODLGPAGTO

LOJA010D.PRW - LJ010FRETE() -> LRET := EXECBLOCK("LJCOBFRT",.F.,.F.,{ NVLRFSD, M->L1_TPFRET } )

LOJA010D.PRW - LJ010GRAVA() -> EXECBLOCK( "SACI001", .F., .F., { LFINALVEND } )

LOJA010D.PRW - LJ010GRAVA() -> LRET := EXECBLOCK( "TLSP001", .F., .F., { CNUMORC, LFINALVEND } )

LOJA010D.PRW - LJ010MONTP() -> EXECBLOCK("LJMONTP",.F.,.F.,{NVALORBASE,NFINANCIADO,NENTRADA})

LOJA010D.PRW - LJ010PJUR() -> ARET:= EXECBLOCK("LJ010PROR",.F.,.F.,{NVALOR,CCOMBOPAG,DDATAFORM})

LOJA010D.PRW - LJ010TABELA() -> EXECBLOCK("BLOMB1",.F.,.F.)

LOJA010D.PRW - LJDTRANSP() -> EXECBLOCK( "LJDADOSFRE", .F. , .F. , {OCLIENTE:CTEXT, OLOJA:CTEXT} )

LOJA010D.PRW - LJENTRY() -> EXECBLOCK("LJ010FIN",.F.,.F.)

LOJA010D.PRW - _LJ010PAR() -> XRET := EXECBLOCK("LJ010PAR", .F., .F., { DDATAFORM, NVALOR, CCOMBOPAG, CCONDICAO })

LOJA010T.PRX - L010ATVDISC() -> CDRVTEFDSC := EXECBLOCK("LJDRVTEF",.F.,.F.)

LOJA010T.PRX - L010CHEQUE() -> CTDADOS:=EXECBLOCK("LJTEFDCH",.F.,.F.,{CTDADOS})

LOJA010T.PRX - L010CREDITO() -> CTDADOS := EXECBLOCK("LJTEFDADO",.F.,.F.,{CTDADOS})

LOJA010T.PRX - L010CRTCHQ() -> CMSG530 := SUBS(EXECBLOCK("LJTEFMSG",.F.,.F.),1,12)

LOJA010T.PRX - L010CTEFMULT() -> ATEFMULT:=EXECBLOCK("LJTEFCNC",.F.,.F.,{ATEFMULT,COPERA})

LOJA010T.PRX - L010SERVICOS() -> ALETEF := EXECBLOCK("LJLETEF",.F.,.F.)

LOJA010T.PRX - L010SERVICOS() -> IF ! EXECBLOCK("L010TCPF",.F.,.F.,{CTIPOPESSOA,CCGC_CPF})

LOJA010T.PRX - L010STRVAR() -> CMSG530 := SUBS(EXECBLOCK("LJTEFMSG",.F.,.F.),1,12)

LOJA010T.PRX - LJ025TCK() -> ATICKTMP := ACLONE(EXECBLOCK("LJTEFTCK",.F.,.F.,{ATICKTMP,AINFO}))

LOJA010T.PRX - LOJA011T() -> EXECBLOCK("LJ011DC", .F., .F., { CSERIE, CNOTA })

LOJA010T.PRX - LOJA011T() -> IF ! EXECBLOCK("LJ011AC", .F., .F., { CSERIE, CNOTA })

LOJA010T.PRX - LOJA017T() -> EXECBLOCK("LOTETEF")

LOJA010T.PRX - LOJA018T() -> EXECBLOCK("RECEBTEF")

LOJA020A.PRW - A020FORM() -> LFORMPRO := EXECBLOCK( "LJ020FORM", .F., .F. )

LOJA020A.PRW - LCHOICEBAR() -> ARETB1 := EXECBLOCK( "LJ020BU1" )

LOJA020A.PRW - LCHOICEBAR() -> ARETB2 := EXECBLOCK( "LJ020BU2" )

LOJA020A.PRW - LJ020DEVOL() -> EXECBLOCK("LOJA020",.F.,.F.,{NTROC})

LOJA020A.PRW - LJ020TROCL() -> @ 24,030 MSGET OCLIENTE VAR CCLIENTE  SIZE  90, 8OF ODLG1 PIXEL F3 "SA1"  PICTURE "@!" VALID LJCRECLI(CCLIENTE, CLOJA, @CCLIANT, @CLOJANT, ODLG1, , .T.) .AND. LJ020DESC(@CDESCCLI,ODESC,CCLIENTE,CLOJA) .AND. IF(EXISTBLOCK("LJ020CLI"),EXECBLOCK("LJ020CLI",.F.,.F.),.T.)

LOJA020A.PRW - LJ020TROCL() -> SETKEY(122,{ ||EXECBLOCK('LJ020F11', .F., .F.)})

LOJA020A.PRW - T020TROCA() -> ABOTOES := EXECBLOCK("L20VLTRO",.F.,.F.)

LOJA020A.PRW - T020TROCA() -> ANFORI := IF(EXISTBLOCK("LJ020ORI"),EXECBLOCK("LJ020ORI",.F.,.F.,{PROCNAME(3)}),NIL)

LOJA020B.PRW - A020WTROCA() -> EXECBLOCK('LJ020TES',.F.,.F.)

LOJA020B.PRW - LJ020ENTRA() -> ARET := EXECBLOCK("LJD1TEST",.F.,.F.,{CTESTROCA,CPRODUTO,NX})

LOJA020B.PRW - LJ020ENTRA() -> CTESTROCA :=EXECBLOCK("LJD1TSP",.F.,.F.,{CNUMNOTA,CSERIE})

LOJA020B.PRW - LJ020ENTRA() -> EXECBLOCK( "LJ020SD1" , .F. , .F. , {NQUANT,NPRCTAB,NVUNIT} )

LOJA020B.PRW - LJ020ENTRA() -> EXECBLOCK("LJD1TES",.F.,.F.)

LOJA020B.PRW - LJ020ENTRA() -> LCONFNCC := EXECBLOCK('LJCFGNCC',.F.,.F.,{CNUMANT,CSERANT})

LOJA021A.PRW - LJ021BAR() -> XRETB1 := EXECBLOCK( "LJ020BU1" )

LOJA021A.PRW - LJ021BAR() -> XRETB2 := EXECBLOCK( "LJ020BU2" )

LOJA021A.PRW - LJ021DEVLOCAL() -> EXECBLOCK("LOJA020",.F.,.F.,{NVLRTRAN})

LOJA021A.PRW - LJ021GRAVA() -> EXECBLOCK("LJ021GRV",.F.,.F.)

LOJA021A.PRW - LJ021GRAVA() -> EXECBLOCK("LOJA021",.F.,.F.)

LOJA021A.PRW - LJ021GRAVA() -> EXECBLOCK('LJ021ANTGR',.F.,.F.)

LOJA021A.PRW - LJ021GRAVA() -> LAVALTIT  := EXECBLOCK("LJ021AVAL",.F.,.F.,{NVLRBAIXA})

LOJA021A.PRW - LJ021GRAVA() -> LGERANCC := EXECBLOCK("LJ021FPAGO",.F.,.F.)

LOJA021A.PRW - LJ021GRAVA() -> LGRAVAR := EXECBLOCK("LJ021IMP",.F.,.F.,{NMODOPRINT})

LOJA021A.PRW - LJ021GRVNFE() -> EXECBLOCK('LJ021SD1',.F.,.F.,{ACOLS,NC})

LOJA021A.PRW - LJ021QTDE() -> ACOLS[N][NPOSTES] := EXECBLOCK("LJ021TES",.F.,.F.)

LOJA021B.PRW - LJ021ACOLS() -> ACOLS[NCNT][NPOSTES] := EXECBLOCK("LJ021TES",.F.,.F.)

LOJA021B.PRW - LJ021ACOLS() -> EXECBLOCK('LJ020TES',.F.,.F.)

LOJA021B.PRW - LJ021DEVOUT() -> XRET  := EXECBLOCK("LJ021INI",.F.,.F.)

LOJA021B.PRW - LJ021IMP.() -> LRET := EXECBLOCK("LJ021DEL",.F.,.F.)

LOJA021B.PRW - LJ021LINOK() -> LRET := EXECBLOCK("LJ021LOK",.F.,.F.)

LOJA021B.PRW - LJ021TUDOK() -> LRET := EXECBLOCK("LJ021TOK",.F.,.F.)

LOJA021B.PRW - LJ021VLDDEV() -> LRETORNO := EXECBLOCK("LJ021PGT",.F.,.F.,{NVALORDEV})

LOJA021B.PRW - LJ021VLDFORMA() -> LRET := EXECBLOCK("LJ021DEV",.F.,.F.)

LOJA030.PRX - LA030PROC() -> EXECBLOCK("LJ030REC",.F.,.F.,{AANTES,ADEPOIS})

LOJA030.PRX - LJ030ALT() -> EXECBLOCK("LJ030ALT",.F.,.F.,{NRET})

LOJA030.PRX - LJ030CANCEL() -> EXECBLOCK("LJ030ALT",.F.,.F.,{2})

LOJA030.PRX - LJ030CANCEL() -> EXECBLOCK("LJ030INC",.F.,.F.,{2})

LOJA030.PRX - LJ030GRAVA() -> EXECBLOCK("LJ030ALT",.F.,.F.,{1})

LOJA030.PRX - LJ030GRAVA() -> EXECBLOCK("LJ030INC",.F.,.F.,{1})

LOJA030.PRX - LJ030INC() -> EXECBLOCK("LJ030INC",.F.,.F.,{NRET})

LOJA057.PRW - LJ057CONF() -> OBOT04 := TBUTTON():NEW(183,198,STR0097,OTELA02,{|| EXECBLOCK('LJ7092', .F., .F.,{OGET01})},NLARGB,NALTBOT,,,,.T.,,,,{|| .T.})

LOJA057.PRW - MONTAGD() -> ADADOS[NPOS][NX] :=  EXECBLOCK("LJ057MEM",.F.,.F.,{ADADOS})

LOJA057.PRW - OPCCANC() -> EXECBLOCK("LJ057CAN",.F.,.F.,{ADADOS})

LOJA077.PRW - LOJA077() -> LOCAL CVLDEXC := ".T."

LOJA110.PRX - LJ110ALTERA() -> EXECBLOCK("CONFSX8",.F.,.F.)

LOJA110.PRX - LJ110ALTERA() -> IF(EXISTBLOCK("LJ110GRV") .AND. !EXECBLOCK("LJ110GRV", .F., .F.))

LOJA110.PRX - LJ110ALTERA() -> IIF( EXISTBLOCK("LJ110GRV") .AND. ! EXECBLOCK("LJ110GRV", .F., .F.), NIL, ;

LOJA110.PRX - LJ110COPIA() -> EXECBLOCK("CONFSX8",.F.,.F.)

LOJA110.PRX - LJ110COPIA() -> IIF( EXISTBLOCK("LJ110GRV") .AND. ! EXECBLOCK("LJ110GRV", .F., .F.), NIL, ;

LOJA110.PRX - LJ110DELETA() -> EXECBLOCK("ATUB0FIL",.F.,.F.,{NOPC})

LOJA110.PRX - LJ110DELETA() -> XRET := EXECBLOCK("LJ110EOK",.F.,.F.)

LOJA110.PRX - LJ110F10() -> EXECBLOCK("LJ110F10",.F.,.F.)

LOJA110.PRX - LJ110INCLUI() -> EXECBLOCK("ATUB0FIL",.F.,.F.,{NOPC})

LOJA110.PRX - LJ110INCLUI() -> EXECBLOCK("CONFSX8",.F.,.F.)

LOJA110.PRX - LJ110INCLUI() -> IF(EXISTBLOCK("LJ110GRV") .AND. !EXECBLOCK("LJ110GRV", .F., .F.))

LOJA110.PRX - LJ110INCLUI() -> IIF( EXISTBLOCK("LJ110GRV") .AND. ! EXECBLOCK("LJ110GRV", .F., .F.), NIL, ;

LOJA1146.PRW - EXPORTCOMPLETE() -> IF !EMPTY(EXECBLOCK("LJ1170MM",.F.,.F.,{OCOMPLETETABLE:CTABLE,ASTRUCT[NCOUNT2][1]}))

LOJA1166.PRW - EXECUTE() -> ANEWFIELD := EXECBLOCK( "LJ1166EX", .F., .F., {"SB1TMP"} )

LOJA1170.PRW - GETFULLQUERY() -> CSYNTAXSQL := EXECBLOCK( "LJ1170MM", .F., .F., {SELF:OTABLE:CTABLE, ASTRUCT[NI][1]} )

LOJA1222.PRW - LOJA1222() -> LOCAL CVLDEXC := ".T."

LOJA140.PRX - LJ140CHKRES() -> ALJPRDRES := EXECBLOCK("LJPRDRES",.F.,.F.,{NPOSPRODUTO,NPOSDESCPRO} )

LOJA140.PRX - LJ140CNSD2() -> ARET := EXECBLOCK("LJD1TEST",.F.,.F.,{CTESTROCA,SD2->D2_COD,0})

LOJA140.PRX - LJ140CNTEF() -> EXECBLOCK("LJ140DEL",.F.,.F.)

LOJA140.PRX - LJ140CNTEF() -> EXECBLOCK("LOJA140",.F.,.F.)

LOJA140.PRX - LJ140EXC() -> EXECBLOCK("LJ140EXC",.F.,.F.)

LOJA140.PRX - LJ140EXC() -> LLJ140CAN := EXECBLOCK("LJ140CAN",.F.,.F.)

LOJA140.PRX - LJ140EXCORC() -> EXECBLOCK("LJ140FIM",.F.,.F.)

LOJA140.PRX - LJ140VALIDA() -> LLJ140VLC := EXECBLOCK("LJ140VLC",.F.,.F.)

LOJA190.PRX - FA190OK() -> LRET := EXECBLOCK("LJ190VLD",.F.,.F.)

LOJA190.PRX - LJ190DEV() -> EXECBLOCK("LJ190DCH")

LOJA190.PRX - LJ190EST() -> EXECBLOCK("LJ190ECH")

LOJA190.PRX - LJ190EST() -> XRET := EXECBLOCK("LJ7ESTDV",.F.,.F.,{NOPCA})

LOJA220A.PRW - ACUMULAITEM() -> CSITUACAO := EXECBLOCK("LJ220REG",.F.,.F.)

LOJA220A.PRW - ACUMULAITEM() -> LCONFIRMAFIS:=EXECBLOCK("LJ220FIS",.F.,.F.,{CPRODUTO})

LOJA220A.PRW - ACUMULAITEM() -> LOCAL CTESPE := IF( EXISTBLOCK( "LJ220TS" ), EXECBLOCK( "LJ220TS" , .F., .F., {CPRODUTO}), "" )

LOJA220A.PRW - ACUMULAITEM() -> NDESCITEM := EXECBLOCK("VALPROD5",.F.,.F.,{CPRODUTO,ROUND(( NPRECO* NQUANT ),2)})

LOJA220A.PRW - ACUMULAITEM() -> NICMS, NIPI, NISS, CCF, IF(LL220TABPAD,EXECBLOCK("L220TABPAD",.F.,.F.,{SUBSTR(CPRODUTO,1,_TAMCPROD)}),CTABPAD), NBSICMS, NVLRUNIT, NBSICMS, NBSICMS, CSITUACAO, CVENDLOJA,;

LOJA220A.PRW - L220DESCITEM() -> IF !EXECBLOCK("LJ220PDE",.F.,.F.)

LOJA220A.PRW - L220DESCITEM() -> WHEN IF( EXISTBLOCK("LJDESCVR"), EXECBLOCK("LJDESCVR",.F.,.F.,{NDESCPERTMP,NDESCTMP,NVLRTOT}), .T. )

LOJA220A.PRW - L220DESCITEM() -> WHEN NDESCTMP == 0 .AND. IF( EXISTBLOCK("LJDESCVR"), EXECBLOCK("LJDESCVR",.F.,.F.,{NDESCPERTMP,NDESCTMP,NVLRTOT}), .T. )

LOJA220A.PRW - L220TOOLBAR() -> ALJ220BU1 := EXECBLOCK( "LJ220BU1" )

LOJA220A.PRW - LJ220ATE() -> CTMPCLI  := EXECBLOCK("LJCLIPAD",.F.,.F.,)

LOJA220A.PRW - LJ220ATE() -> EXECBLOCK("LJ22001",.F.,.F.)

LOJA220A.PRW - LJ220ATE() -> IF(EXISTBLOCK("LJ220KE"),SETKEY(5,{|| EXECBLOCK("LJ220KE",.F.,.F.,)}),NIL)

LOJA220A.PRW - LJ220CLIENTE() -> ACLIENTE := EXECBLOCK("L220SCLI",.F.,.F.,{CCLIENTE,CLOJACLI})

LOJA220A.PRW - LJ220CLIENTE() -> CTMPCLI := EXECBLOCK("LJCLIPAD",.F.,.F.,)

LOJA220A.PRW - LJ220CLIENTE() -> EXECBLOCK("LJ220CLI",.F.,.F.)

LOJA220A.PRW - LJ220DIN() -> AADM := EXECBLOCK("LJ220ADM",.F.,.F.,)

LOJA220A.PRW - LJ220DIN() -> AMATRIZ := EXECBLOCK("LJ220FORMA",.F.,.F.,{AMATRIZ})

LOJA220A.PRW - LJ220DIN() -> CFORMAS := EXECBLOCK("LJ220VAL",.F.,.F.)

LOJA220A.PRW - LJ220DIN() -> LRET := EXECBLOCK( "LJ220APARC", .F., .F., ;

LOJA220A.PRW - LJ220PROD() -> ARETCP:=EXECBLOCK("LJ220CP",.F.,.F.,{CTMPPROD,NQUANT,NPRECO})

LOJA220A.PRW - LJ220PROD() -> ARETVALPROD3 := EXECBLOCK("VALPROD3",.F.,.F.,{CTELESP,NQUANT})

LOJA220A.PRW - LJ220PROD() -> CLOCAL:=EXECBLOCK("LJ220LOC",.F.,.F.)

LOJA220A.PRW - LJ220PROD() -> CTABPAD:= EXECBLOCK( "L220TABPAD", .F., .F., {SB1->B1_COD} )

LOJA220A.PRW - LJ220PROD() -> CTES := EXECBLOCK( "LJ220TS" , .F., .F., {CTMPPROD})

LOJA220A.PRW - LJ220PROD() -> NPRECO:= EXECBLOCK("LJ220ALTPRC", .F., .F., { CTMPPROD, NQUANT, NPRECO })

LOJA260.PRX - CX_ABRE_FECHA() -> EXECBLOCK("LJ260ANT",.F.,.F.,CTIPO)

LOJA260.PRX - CX_ABRE_FECHA() -> EXECBLOCK("LJ260DEP",.F.,.F.,CTIPO)

LOJA260.PRX - LJ260ABRE() -> EXECBLOCK("LJ260ABC",.F.,.F.)

LOJA260.PRX - LJ260ABRE() -> LRET:=EXECBLOCK("LJ260TRA",.F.,.F.)

LOJA260.PRX - LJ260CHEC1() -> CRET := EXECBLOCK("LJ260FIL",.F.,.F.)

LOJA260.PRX - LJ260FECHA() -> LRET:=EXECBLOCK("LJ260FEC",.F.,.F.)

LOJA260.PRX - LJ260GMVA() -> EXECBLOCK("LJ260SLW",.F.,.F.)

LOJA300.PRX - R930MRESUMO() -> EXECBLOCK("LJGRVSF3", .F. , .F. , { AMAPARESUMO , "2" })

LOJA340.PRW - LJ340TROC() -> ARET := EXECBLOCK("FRT050SA",.F.,.F.,{NCHECK,CCODORIGEM,CCODDESTIN})

LOJA340.PRW - LJ340TROC() -> EXECBLOCK("FRT050ST",.F.,.F.,{NCHECK,CSUPCAIXA,NVALOR,0,0,0,0,0,0,0})

LOJA350.PRW - (OVLTO() -> XRET:=EXECBLOCK("LJ7070", .F. , .F.)

LOJA350.PRW - LJ350MONSA() -> ARET := EXECBLOCK("FRT050SA",.F.,.F.,{1,CCODORIGEM,CCODDESTIN})

LOJA350.PRW - LJ350MOVIM() -> EXECBLOCK("LJ350IMP",.F.,.F.,{AVENDAS,ASANGRIAS,ADIGITADO,NTOTVEND,;

LOJA350.PRW - LJ350PANEL() -> LRET :=EXECBLOCK( "LJ35001", .F., .F. )

LOJA350.PRW - LJ350PROC() -> EXECBLOCK("FRT050ST",.F.,.F.,{NCHECK ,CSUPCAIXA  ,ADIGSAN[1][1],ADIGSAN[1][2],;

LOJA350.PRW - LJ350PROC() -> XRET:=EXECBLOCK("LJ7071",.F.,.F.,{NACUDIARIO})

LOJA430.PRW - LJ430BAR() -> DEFINE BUTTON OBTNEST RESOURCE "PLNPROP" OF OBAR ACTION IF(LLJ430BU1,EXECBLOCK("LJ430BU1",.F.,.F.), LJXDPROD( ACOLS[N,ASCAN(AHEADER,{|X|ALLTRIM(X[2])=="LN_COD"})],ACOLS[N,ASCAN(AHEADER,{|X|ALLTRIM(X[2])=="LN_LOCAL"})] ));

LOJA430.PRW - LJ430EXC() -> EXECBLOCK("LJ7430EXC", .F., .F.,{ CPEDIDO, CCLIENTE, CLOJA })

LOJA430.PRW - LJ430GER() -> EXECBLOCK("LJ430NF" ,.F.,.F.,{CNOTA,CSERIE,SLM->LM_LOJA})

LOJA430.PRW - LJ430GER() -> LGERADIST := EXECBLOCK("LJ430DIS",.F.,.F., {SLM->LM_NUM, SLM->LM_CLIENTE, SLM->LM_LOJA})

LOJA430.PRW - LJ430GRV() -> EXECBLOCK("LJ430GRAVA",.F.,.F.)

LOJA430.PRW - LJ430GRV() -> XRET := EXECBLOCK( "LJ7430VDGR", .F., .F., {NCHECK, LCHECK3, NOPC } )

LOJA440.PRX - LJ440PROCB() -> IF EXISTBLOCK( "LJ440VLD" ) .AND. ! EXECBLOCK( "LJ440VLD", .F., .F., 2 )

LOJA440.PRX - LJ440PROCE() -> IF EXISTBLOCK( "LJ440VLD" ) .AND. !EXECBLOCK( "LJ440VLD", .F., .F., 1 )

LOJA460.PRW - LJ460GRAVA() -> EXECBLOCK("LJ460MAN",.F.,.F.,{NOPC})

LOJA470.PRW - LJ470REC() -> AFORNEC := EXECBLOCK("LJ470ACT",.F.,.F.,{ ALLTRIM( AARQ[ NPOINTER ][1] ) } )

LOJA470.PRW - LJ470REC() -> ALJ470CAB := EXECBLOCK("LJ470CAB",.F.,.F.,{ACAB})

LOJA470.PRW - LJ470REC() -> ALJ470ITE := EXECBLOCK("LJ470ITE",.F.,.F.,{AITENS})

LOJA470.PRW - LJ470REC() -> ALJ470REC:= EXECBLOCK("LJ470REC",.F.,.F.,{AFIELDSSF2,AFIELDSSD2,ADADOSSD2})

LOJA701.PRW - () -> LRET := EXECBLOCK("FTVD7003",.F.,.F.,{LRET, ACOLS[N][NPOSITEM] })

LOJA701.PRW - () -> LRETPE := EXECBLOCK( "LJ7037", .F., .F. )

LOJA701.PRW - CARRLOTORC() -> CFILQRY := ALLTRIM(EXECBLOCK("LJ7105", .F., .F., { CWHERE }))

LOJA701.PRW - LJ7AVALCRED() -> LANCRED := EXECBLOCK("FTVD7014" , .F., .F., {CCLILOJA, CLOJACLI, NSALDUP, AFORMAS})

LOJA701.PRW - LJ7AVALCRED() -> LANCRED := EXECBLOCK("LJ7014" , .F., .F., {CCLILOJA, CLOJACLI, NSALDUP, AFORMAS})

LOJA701.PRW - LJ7CALL003() -> LRET := EXECBLOCK("LJ7003",.F.,.F.,{LRET, ACOLS[N][NPOSITEM] })

LOJA701.PRW - LJ7CANC() -> EXECBLOCK("L7CAN",.F.,.F.,{LCANCELA})

LOJA701.PRW - LJ7CANC() -> EXECBLOCK("L7CAN",.F.,.F.,{LCANCELOU})

LOJA701.PRW - LJ7CORLEGE() -> ALEGENDA:= EXECBLOCK("FTVD70LG",.F.,.F.,{@ALEGENDA,"1"})

LOJA701.PRW - LJ7CPGRVOR() -> ALJ7106 := EXECBLOCK("LJ7106",.F.,.F., {ASLQDESC, ASLRDESC})

LOJA701.PRW - LJ7DEFLEG() -> ACORES := EXECBLOCK("FTVD70LG",.F.,.F.,{@ACORES,"2"})

LOJA701.PRW - LJ7ELIPRODPED() -> EXECBLOCK( "FTVD7057", .F., .F., { AB6->AB6_NUMOS } )

LOJA701.PRW - LJ7ELIPRODPED() -> EXECBLOCK( "LJ7057", .F., .F., { AB6->AB6_NUMOS } )

LOJA701.PRW - LJ7ESTOQUE() -> XRET  := EXECBLOCK("FTVD7045",.F.,.F.)

LOJA701.PRW - LJ7ESTOQUE() -> XRET  := EXECBLOCK("LJ7045",.F.,.F.)

LOJA701.PRW - LJ7LANCITEM() -> EXECBLOCK( "LJ70101", .F., .F., {"2"} )

LOJA701.PRW - LJ7LANCITEM() -> LCONTINUA := EXECBLOCK( "LJ70101", .F., .F., {"1"} )

LOJA701.PRW - LJ7LINOK() -> LRET := EXECBLOCK( "FTVD7030", .F., .F., { 1 ,NLJ7030 } )

LOJA701.PRW - LJ7LINOK() -> LRET := EXECBLOCK( "LJ7030", .F., .F., { 1 ,NLJ7030 } )

LOJA701.PRW - LJ7ORCAM() -> EXECBLOCK(CSCRORC,.F.,.F.)

LOJA701.PRW - LJ7SAIR() -> EXECBLOCK("FTVD7033", .F., .F., {LGRAVACAO, NOPC})

LOJA701.PRW - LJ7SAIR() -> EXECBLOCK("LJ7033", .F., .F., {LGRAVACAO, NOPC})

LOJA701.PRW - LJ7TUDOK() -> LRESERVA := EXECBLOCK( "FTVD7048", .F., .F., {ACOLS[NX]})

LOJA701.PRW - LJ7TUDOK() -> LRESERVA := EXECBLOCK( "LJ7048", .F., .F., {ACOLS[NX]})

LOJA701.PRW - LJ7TUDOK() -> LRET := EXECBLOCK( "FTVD7030", .F., .F., { 2 , NTIPO } )

LOJA701.PRW - LJ7TUDOK() -> LRET := EXECBLOCK( "LJ7030", .F., .F., { 2 , NTIPO } )

LOJA701.PRW - LJ7VALDEL() -> LRETPE := EXECBLOCK( "FTVD7037", .F., .F. )

LOJA701.PRW - LJ7VENDA() -> AFUNC := EXECBLOCK( "FTVD7016", .F., .F., {NOPC, NATALHO} )

LOJA701.PRW - LJ7VENDA() -> AFUNC :=EXECBLOCK( "LJ7016", .F., .F., {NOPC, NATALHO} )

LOJA701.PRW - LJ7VENDA() -> ANOFUNCS := EXECBLOCK( "LJNOFUNC", .F., .F., {AFUNCOES, NOPC} )

LOJA701.PRW - LJ7VENDA() -> ARET := EXECBLOCK("FT701BTN",.F.,.F.)

LOJA701.PRW - LJ7VENDA() -> LCONTATEND := EXECBLOCK( "FTVD7032", .F., .F., { NOPC } )

LOJA701.PRW - LJ7VENDA() -> LCONTATEND := EXECBLOCK( "LJ7032", .F., .F., { NOPC } )

LOJA701.PRW - LJ7VENDA() -> LOCAL CVENDPAD  := IIF(LFTVDVER12,IF(EXISTBLOCK("FT701VP"), EXECBLOCK("FT701VP",.F.,.F.), SUPERGETMV( "MV_VENDPAD" )),SUPERGETMV( "MV_VENDPAD" ))

LOJA701.PRW - LJ7VLDCARREGA() -> LRET :=EXECBLOCK("LJ7073",.F.,.F.,{ASL1, ASL2, ASL4})

LOJA701.PRW - LJ7XSL1() -> EXECBLOCK( "LJ70110", .F., .F., {CTIPO} )

LOJA701.PRW - LJKEYFUNCS() -> LRET := EXECBLOCK( "LJ701KEY", .F., .F. )

LOJA701.PRW - LOJA701() -> XRET := EXECBLOCK( "LJ7060", .F., .F. )

LOJA701.PRW - MENUDEF() -> ANROTINA :=EXECBLOCK( "FTVD7053", .F., .F. )

LOJA701.PRW - MENUDEF() -> ANROTINA :=EXECBLOCK( "LJ7053", .F., .F. )

LOJA701.PRW - SELORCLOT() -> CFILQRY := ALLTRIM(EXECBLOCK("LJ7105", .F., .F., { CWHERE }))

LOJA7010.PRW - REALIZAESTORNO() -> EXECBLOCK("LJ7103",.F.,.F.,{LPROSSEGUE,SELF:CORC_CUPOM,SELF:CORCAMENTO,SELF:LJOB,SELF:CSERIE,SELF:AORC_PAGTOS})

LOJA701A.PRW - () -> M->LR_DESC:= EXECBLOCK( "LJ8099", .F., .F. )

LOJA701A.PRW - LJ7CANCIT() -> NALIQRED := EXECBLOCK("FTVD7017",.F.,.F.)

LOJA701A.PRW - LJ7CANCIT() -> NALIQRED := EXECBLOCK("LJ7017",.F.,.F.)

LOJA701A.PRW - LJ7FRETE() -> ACPOUSER := EXECBLOCK( "FTVD7006", .F., .F. )

LOJA701A.PRW - LJ7FRETE() -> ACPOUSER := EXECBLOCK( "LJ7006", .F., .F. )

LOJA701A.PRW - LJ7FRETE() -> ALJ7086 := EXECBLOCK( "LJ7086", .F., .F., {ACAMPOSALT} )

LOJA701A.PRW - LJ7PROD() -> LRETPE := EXECBLOCK( "FTVD7036", .F., .F. )

LOJA701A.PRW - LJ7PROD() -> LRETPE := EXECBLOCK( "LJ7036", .F., .F. )

LOJA701A.PRW - LJ7PROD() -> XLOCAL := EXECBLOCK( "FTVD7041", .F., .F., { CLOCAL, ACOLSDET } )

LOJA701A.PRW - LJ7PROD() -> XLOCAL := EXECBLOCK( "LJ7041", .F., .F., { CLOCAL, ACOLSDET } )

LOJA701A.PRW - LJ7PROD() -> XRET := EXECBLOCK("LJ7061",.F.,.F.)

LOJA701A.PRW - LJ7TABELA() -> XRET := EXECBLOCK( "FTVD7043", .F., .F., {NTABELA} )

LOJA701A.PRW - LJ7TABELA() -> XRET := EXECBLOCK( "FTVD7044", .F., .F., {NX} )

LOJA701A.PRW - LJ7TABELA() -> XRET := EXECBLOCK( "LJ7043", .F., .F., {NTABELA} )

LOJA701A.PRW - LJ7TABELA() -> XRET := EXECBLOCK( "LJ7044", .F., .F., {NX} )

LOJA701A.PRW - LJ7VEREST() -> LVALIDAEST := EXECBLOCK("LJVLDEST",.F.,.F.,{ ACOLS[NX][NPOSPROD], CARMAZEM, NQTDAUX, CTESPAD, NX })

LOJA701A.PRW - LJ7VLDDESC() -> ALJ7104 :=EXECBLOCK( "LJ7104", .F., .F., {NPERDESC ,NVLRDESC} )

LOJA701A.PRW - LJ7VLDDESC() -> ALJ7107 := EXECBLOCK("LJ7107", .F., .F., { LJ7T_TOTAL(2), APGTOS, ADESCONTO } )

LOJA701A.PRW - LJ7VLITEM() -> ACOLS[N][NPOSDESC]:= EXECBLOCK( "LJ8099", .F., .F. )

LOJA701A.PRW - LJ7VLITEM() -> LSTATUSIMP13 := EXECBLOCK("FRTECF13",.F.,.F.,{ACOLS[N][NPOSPROD],ACOLS[N][NPOSVLUNIT], NQUANT})

LOJA701A.PRW - LJ7VLITEM() -> NDIASGAR := EXECBLOCK("LJ7080",.F.,.F.,{ACOLS[N][NPOSPROD]})

LOJA701A.PRW - LJ7_VALDESC() -> LRET := EXECBLOCK("FTVD7018",.F.,.F.,{ NPERDESC , NVLRDESC, NTIPO })

LOJA701A.PRW - LJ7_VALDESC() -> LRET := EXECBLOCK("LJ7018",.F.,.F.,{ NPERDESC , NVLRDESC, NTIPO })

LOJA701A.PRW - LJNFFIMVD() -> NRETLJ7087 := EXECBLOCK( "LJ7087", .F., .F.)

LOJA701B.PRW - "TPLDRO_PGTO", PARA QUE O ARRAY DE FORMAS DE PAGAMENTO SEJA LIMPO E ³() -> LDISABLEBT := EXECBLOCK("LJ7027", .F., .F.,{ALLTRIM(UPPER(AFORMPGTOS[NX][2]))})

LOJA701B.PRW - "TPLDRO_PGTO", PARA QUE O ARRAY DE FORMAS DE PAGAMENTO SEJA LIMPO E ³() -> LHIDEBTN := EXECBLOCK("FTVD7023", .F., .F.,{ALLTRIM(UPPER(AFORMPGTOS[NX][2]))})

LOJA701B.PRW - "TPLDRO_PGTO", PARA QUE O ARRAY DE FORMAS DE PAGAMENTO SEJA LIMPO E ³() -> LHIDEBTN := EXECBLOCK("LJ7023", .F., .F.,{ALLTRIM(UPPER(AFORMPGTOS[NX][2]))})

LOJA701B.PRW - LJ7AJUSTATROCO() -> AMOEDAS:=EXECBLOCK("LJ7076",.F.,.F.)

LOJA701B.PRW - LJ7ALTPGSI() -> ACOLCUSTOM := EXECBLOCK( "FTVD7012",.F.,.F. )

LOJA701B.PRW - LJ7ALTPGSI() -> ACOLCUSTOM := EXECBLOCK( "LJ7012",.F.,.F. )

LOJA701B.PRW - LJ7ALTPGT() -> XRET  := EXECBLOCK("FTVD7009",.F.,.F.,{AFTVD7009[1],AFTVD7009[2]})

LOJA701B.PRW - LJ7ALTPGT() -> XRET  := EXECBLOCK("LJ7009",.F.,.F.,{ALJ7009[1],ALJ7009[2]})

LOJA701B.PRW - LJ7CALCFATWIN() -> NADMTAX:= EXECBLOCK("FTVD7034",.F.,.F.,{CCODADM})

LOJA701B.PRW - LJ7CALCFATWIN() -> NADMTAX:= EXECBLOCK("LJ7034",.F.,.F.,{CCODADM})

LOJA701B.PRW - LJ7CONDNEG() -> ARET := EXECBLOCK('FTVD7004',.F.,.F.)

LOJA701B.PRW - LJ7CONDNEG() -> ARET := EXECBLOCK('LJ7004',.F.,.F.)

LOJA701B.PRW - LJ7CONDNEG() -> CFTVD7015 := EXECBLOCK("FTVD7015", .F., .F., {LRECEBE,"CN"})

LOJA701B.PRW - LJ7CONDNEG() -> CLJ7015 := EXECBLOCK("LJ7015", .F., .F., {LRECEBE,"CN"})

LOJA701B.PRW - LJ7CONDPG COM A CONFICÃO DE CALTERCOND==.T. .AND. EMPTY(AL() -> ACOLCUSTOM := EXECBLOCK( "FTVD7012",.F.,.F. )

LOJA701B.PRW - LJ7CONDPG COM A CONFICÃO DE CALTERCOND==.T. .AND. EMPTY(AL() -> ACOLCUSTOM := EXECBLOCK( "LJ7012",.F.,.F. )

LOJA701B.PRW - LJ7CONDPG COM A CONFICÃO DE CALTERCOND==.T. .AND. EMPTY(AL() -> EXECBLOCK( "FTVD7031",.F.,.F., { LCRIA, LPANVA3 } )

LOJA701B.PRW - LJ7CONDPG COM A CONFICÃO DE CALTERCOND==.T. .AND. EMPTY(AL() -> EXECBLOCK( "LJ7031",.F.,.F., { LCRIA, LPANVA3 } )

LOJA701B.PRW - LJ7CONDPG COM A CONFICÃO DE CALTERCOND==.T. .AND. EMPTY(AL() -> LCONTINUA := EXECBLOCK("FTVD7011",.F.,.F.)

LOJA701B.PRW - LJ7CONDPG COM A CONFICÃO DE CALTERCOND==.T. .AND. EMPTY(AL() -> LCONTINUA := EXECBLOCK("LJ7011",.F.,.F.)

LOJA701B.PRW - LJ7CONDPG() -> CFTVD7015 := EXECBLOCK("FTVD7015", .F., .F., {LRECEBE,CCONDICAO})

LOJA701B.PRW - LJ7CONDPG() -> CLJ7015 := EXECBLOCK("LJ7015", .F., .F., {LRECEBE,CCONDICAO})

LOJA701B.PRW - LJ7CONDPG() -> EXECBLOCK( "LJ7063",.F.,.F., { NTIPO, CCONDICAO, NOPC, LRECAL } )

LOJA701B.PRW - LJ7DETITEM() -> XRET := EXECBLOCK("FTVD7005",.F.,.F.)

LOJA701B.PRW - LJ7DETITEM() -> XRET := EXECBLOCK("LJ7005",.F.,.F.)

LOJA701B.PRW - LJ7IMPFATWIN() -> EXECBLOCK("FTVD7035",.F.,.F.,{APARFATOR})

LOJA701B.PRW - LJ7IMPFATWIN() -> EXECBLOCK("LJ7035",.F.,.F.,{APARFATOR})

LOJA701B.PRW - LJ7IMPFATWIN() -> LOCAL APARFATOR := {}

LOJA701B.PRW - LJ7INFPGTOS() -> ADADOSCHQ[1] := ACLONE(EXECBLOCK("FTVD7054",.F.,.F.,{ADADOSCHQ[1]}))

LOJA701B.PRW - LJ7INFPGTOS() -> ADADOSCHQ[1] := ACLONE(EXECBLOCK("LJ7054",.F.,.F.,{ADADOSCHQ[1]}))

LOJA701B.PRW - LJ7INFPGTOS() -> CRETLJ7028 := EXECBLOCK("LJ7028",.F.,.F.,{APGTOSSINT[NX][1], GETDTOVAL(STRTRAN(ADADOSADM[1][1],".",",")), ADADOSADM[1][2], ADADOSADM[1][3], ADADOSADM[1][5], ADADOSADM[1][7]})

LOJA701B.PRW - LJ7INFPGTOS() -> EXECBLOCK("FTVD7039",.F.,.F.)

LOJA701B.PRW - LJ7INFPGTOS() -> EXECBLOCK("LJ7039",.F.,.F.)

LOJA701B.PRW - LJ7INFPGTOS() -> LCANCELA := EXECBLOCK("FTVD7021",.F.,.F.,{LCANCELA, NTIPO})

LOJA701B.PRW - LJ7INFPGTOS() -> LCANCELA := EXECBLOCK("LJ7021",.F.,.F.,{LCANCELA, NTIPO})

LOJA701B.PRW - LJ7MONTPG() -> ARET := EXECBLOCK("FTVD7007",.F.,.F.)

LOJA701B.PRW - LJ7MONTPG() -> ARET := EXECBLOCK("LJ7007",.F.,.F.)

LOJA701B.PRW - LJ7MONTPG() -> ELSEIF ((! LFTVD7020 .AND. LFTVDVER12) .OR. (LFTVDVER12 .AND. LFTVD7020 .AND. EXECBLOCK("FTVD7020", .F., .F., { UPPER(STR0034) }) ))

LOJA701B.PRW - LJ7MONTPG() -> IF (! LLJ7020) .OR. ( LLJ7020 .AND. EXECBLOCK("LJ7020", .F., .F., { UPPER(ALLTRIM(X5DESCRI())) }) )

LOJA701B.PRW - LJ7MONTPG() -> IF ((! LLJ7020 .AND. !LFTVDVER12) .OR. ( !LFTVDVER12 .AND. LLJ7020 .AND. EXECBLOCK("LJ7020", .F., .F., { UPPER(STR0034) }) ))

LOJA701B.PRW - LJ7MONTPG() -> IF ((! LLJ7020 .AND. !LFTVDVER12) .OR. ( LLJ7020 .AND. EXECBLOCK("LJ7020", .F., .F., { UPPER(STR0033) }) )) .AND. (!"CN" $ CMNFORMPG)

LOJA701B.PRW - LJ7MONTPG() -> IF ((!LFTVD7020 .AND. LFTVDVER12) .OR. (LFTVD7020 .AND. EXECBLOCK("FTVD7020", .F., .F., { UPPER(STR0033) }))) .AND. (!"CN" $ CMNFORMPG)

LOJA701B.PRW - LJ7MONTPG() -> LADDBTN := EXECBLOCK("FTVD7020", .F., .F., { UPPER(ALLTRIM(X5DESCRI())) })

LOJA701B.PRW - LJ7MONTPG() -> LADDBTN := EXECBLOCK("LJ7020", .F., .F., { UPPER(ALLTRIM(X5DESCRI())) })

LOJA701B.PRW - LJ7MONTPGT() -> ARETLJORDFP := EXECBLOCK( "LJORDFP", .F., .F., { APARCSINT } )

LOJA701B.PRW - LJ7SELENCC() -> EXECBLOCK("FTVD7026", .F., .F.)

LOJA701B.PRW - LJ7SELENCC() -> EXECBLOCK("LJ7026", .F., .F., {NOPC})

LOJA701B.PRW - LJ7SERIAL() -> LRETFTVD7055 := EXECBLOCK("FTVD7055")

LOJA701B.PRW - LJ7SERIAL() -> LRETLJ7055 := EXECBLOCK("LJ7055")

LOJA701B.PRW - LJ7SHOWFATOR() -> NTAXAJUR := EXECBLOCK("FTVD7034",.F.,.F.,{CCODADM})

LOJA701B.PRW - LJ7SHOWFATOR() -> NTAXAJUR := EXECBLOCK("LJ7034",.F.,.F.,{CCODADM})

LOJA701B.PRW - LJ7VLDOKVP() -> LRET := EXECBLOCK("LJ7094",.F.,.F.,{ACOLS,NVALOR,NSOMA})

LOJA701B.PRW - LJVLDPGTO() -> LRET := EXECBLOCK( "LJVLDPGT",.F.,.F., { DDATA,NVALOR,CFORMA,NPARC } )

LOJA701C.PRW - LJ701ATCARTAO() -> IF ALLTRIM(APGTOS[NI,03]) $ _FORMATEF .AND. ! ( IF( EXISTBLOCK("FTVD7022") .AND. EXECBLOCK("FTVD7022", .F., .F.), ;

LOJA701C.PRW - LJ701ATCARTAO() -> XRET := IIF(CTIPTEF == TEF_CLISITEF,.T.,EXECBLOCK("LJ7022", .F., .F.))

LOJA701C.PRW - LJ7CAULCUP() -> EXECBLOCK("FRTCANCELA",.F.,.F.,{2,CSUPERVISOR,NIL,UPRODTPL})

LOJA701C.PRW - LJ7CAULCUP() -> XRET := EXECBLOCK("FRTCANCCF",.F.,.F.,{CNUMCUP})

LOJA701C.PRW - LJ7CONFADM() -> LOCAL XRET

LOJA701C.PRW - LJ7CONFADM() -> XRET := EXECBLOCK("FTVD7022", .F., .F.)

LOJA701C.PRW - LJ7CONFADM() -> XRET := EXECBLOCK("LJ7022", .F., .F.,{CADMVER,CADMRET,NNUMTRANS,CREDERET,CCODREDE,CFORMACART,NPARCELAS})

LOJA701C.PRW - LJ7DOCSCF() -> ADADOSCFPE := EXECBLOCK( "LJDOCCF", .F., .F., {ADADOSCFPE, ATIPODOC, ATIPOCI} )

LOJA701C.PRW - LJ7GERAENT() -> ARET := EXECBLOCK("FTVD7046", .F., .F., {CFILBKP})

LOJA701C.PRW - LJ7GERAENT() -> ARET := EXECBLOCK("LJ7046", .F., .F., {CFILBKP , ASL1 , ASL2 })

LOJA701C.PRW - LJ7GERAENT() -> CTES := EXECBLOCK("LJTESPED",.F.,.F.,{CTES,ASL1,ASL2,NI})

LOJA701C.PRW - LJ7GERAENT() -> CTESENT := EXECBLOCK("LJTESSFA",.F.,.F.,{CTES,ASL1,ASL2,NI})

LOJA701C.PRW - LJ7GERAENT() -> EXECBLOCK("LJ7065",.F.,.F., { NI } )

LOJA701C.PRW - LJ7GERAENT() -> EXECBLOCK("LJ7066",.F.,.F.)

LOJA701C.PRW - LJ7GRVVENDA() -> ARET[1]:= EXECBLOCK( "LJ7074", .F., .F., {} )

LOJA701C.PRW - LJ7GRVVENDA() -> BIMPNF := {|| EXECBLOCK(GETMV("MV_SCRNOTA"),.F.,.F.,{SL1->L1_DOC,SL1->L1_SERIE,{},ADADOSTEFNF })}

LOJA701C.PRW - LJ7GRVVENDA() -> EXECBLOCK( "FTVDGRT", .F., .F. )

LOJA701C.PRW - LJ7GRVVENDA() -> EXECBLOCK("FTVD7040",.F.,.F.)

LOJA701C.PRW - LJ7GRVVENDA() -> EXECBLOCK("LJ7040",.F.,.F.)

LOJA701C.PRW - LJ7GRVVENDA() -> EXECBLOCK('LOJR860A',.F.,.F.,{ ANEWNCC, ANCCITENS , (NNCCUSADA - NNCCGERADA) })

LOJA701C.PRW - LJ7GRVVENDA() -> LOCAL XRET

LOJA701C.PRW - LJ7GRVVENDA() -> XRET := EXECBLOCK( "FTVD7019",.F.,.F.,{CTOTRECNFIS, ATITULO[NI][10], &(SUPERGETMV("MV_NATRECE")), NI} )

LOJA701C.PRW - LJ7GRVVENDA() -> XRET := EXECBLOCK( "LJ7019",.F.,.F.,{CTOTRECNFIS, ATITULO[NI][10], &(SUPERGETMV("MV_NATRECE")), NI} )

LOJA701C.PRW - LJ7RUNGRV() -> EXECBLOCK( "EMAILPARCEIRO", .F., .F., { CNUMORC , APARCENVIAR } )

LOJA701C.PRW - LJ7RUNGRV() -> EXECBLOCK( "FTVD7002", .F., .F., { 3 } )

LOJA701C.PRW - LJ7RUNGRV() -> EXECBLOCK( "FTVD7002", .F., .F., { NPARAMTIPO, ADOCDEV } )

LOJA701C.PRW - LJ7RUNGRV() -> EXECBLOCK( "FTVD7002", .F., .F., { NTIPO } )

LOJA701C.PRW - LJ7RUNGRV() -> EXECBLOCK( "LJ7002", .F., .F., { 3 } )

LOJA701C.PRW - LJ7RUNGRV() -> EXECBLOCK( "LJ7002", .F., .F., { NPARAMTIPO, ADOCDEV, 1 } )

LOJA701C.PRW - LJ7RUNGRV() -> EXECBLOCK( "LJ7002", .F., .F., { NTIPO } )

LOJA701C.PRW - LJ7RUNGRV() -> EXECBLOCK("LJ7083",.F., .F., {ACOLS[NX][NPOSPROD], ACOLSDET[NX][NPOSDTLOCAL], ACOLS[NX][NPOSQUANT]} )

LOJA701C.PRW - LJ7RUNGRV() -> LFTVD7042:=EXECBLOCK( "FTVD7042", .F., .F., { M->LQ_CLIENTE,M->LQ_LOJA } )

LOJA701C.PRW - LJ7RUNGRV() -> LLJ7042:=EXECBLOCK( "LJ7042", .F., .F., { M->LQ_CLIENTE,M->LQ_LOJA } )

LOJA701C.PRW - LJ7RUNGRV() -> LRET := EXECBLOCK( "FTVD7001", .F., .F., {NPARAMTIPO, ADOCDEV, NDOCSAI} )

LOJA701C.PRW - LJ7RUNGRV() -> LRET := EXECBLOCK( "LJ7001", .F., .F., {NPARAMTIPO, ADOCDEV, NDOCSAI} )

LOJA701C.PRW - LJ7VLDCF() -> LRET := !EXECBLOCK( "LJVLDCF", .F., .F., { ADADOSCF  })

LOJA701C.PRW - LJREABREVA() -> LREABRETELA := EXECBLOCK( "LJ701MBR", .F., .F., {NTIPO, NOPC} )

LOJA701C.PRW - LJRECALFIS() -> LSTATUSIMP13 := EXECBLOCK("FRTECF13")

LOJA701D.PRW - LJ7IMPCF() -> ARETLJ7013 := EXECBLOCK("LJ7013",.F.,.F.,{CCODPROD, CDESCRIPROD, CQUANT, CVRUNIT, CDESCONTO, CSITTRIB, CVLRITEM })

LOJA701D.PRW - LJ7IMPCF() -> CMENIMPNCM:= EXECBLOCK("LJ7078",.F.,.F.,{NTOTVLRNCM,NTOTIMPNCM,NTOTIMPFED,NTOTIMPEST,NTOTIMPMUN})

LOJA701D.PRW - LJ7IMPCFARG() -> ARETLJ7013 := EXECBLOCK("LJ7013",.F.,.F.,{CPRODUTO, CDESCPROD, CQUANT, CUNIT, CVALDESCIT, CSITTRIB, CVLRITEM })

LOJA701D.PRW - LJ7IMPCFARG() -> CRETLJ7093 := EXECBLOCK("LJ7093",.F.,.F.)

LOJA701D.PRW - LJ7IMPITCC() -> ARETFTVD7013 := EXECBLOCK("FTVD7013",.F.,.F.,{CCODPROD, CDESCRIPROD, CQUANT, CVRUNIT, CDESCONTO, CSITTRIB, CVLRITEM })

LOJA701D.PRW - LJ7IMPITCC() -> ARETLJ7013 := EXECBLOCK("LJ7013",.F.,.F.,{CCODPROD, CDESCRIPROD, CQUANT, CVRUNIT, CDESCONTO, CSITTRIB, CVLRITEM })

LOJA701D.PRW - LJ7IMPLOC() -> EXECBLOCK(CLJCUPNFIS,.F.,.F.)

LOJA701D.PRW - LJ7IMPLOC() -> LJMSGRUN(STR0066 + ARETCNF[2][1],,{ ||LRET:=  EXECBLOCK("SCRPED", .F., .F., {ARETCNF[2][1],ARETCNF[2][3]})})

LOJA701D.PRW - LJ7IMPRTOT() -> LABORTACF:= EXECBLOCK("LJ701DAC",.F.,.F.,{NTOTPAG,LJ7T_TOTAL(2)})

LOJA701D.PRW - LJ7STRIB() -> NALIQRED := EXECBLOCK("FTVD7017",.F.,.F.)

LOJA701D.PRW - LJ7STRIB() -> NALIQRED := EXECBLOCK("LJ7017",.F.,.F.)

LOJA701D.PRW - LJDRETALIQ() -> NALIQRED := EXECBLOCK("FTVD7017",.F.,.F.)

LOJA701D.PRW - LJDRETALIQ() -> NALIQRED := EXECBLOCK("LJ7017",.F.,.F.)

LOJA701D.PRW - LJPRTFIS() -> CTEXTO := EXECBLOCK( "SCRPED", .F., .F., APARAMS )

LOJA701D.PRW - LJPRTFIS() -> CTEXTO := EXECBLOCK("SCRCGIFT", .F., .F. )

LOJA701D.PRW - LJPRTFIS() -> CTEXTO := EXECBLOCK("SCRVPRES", .F., .F. )

LOJA701D.PRW - LJPRTNFIS() -> CTEXTO := EXECBLOCK( "SCRPED", .F., .F., APARAMS )

LOJA701D.PRW - LJPRTNFIS() -> CTEXTO := EXECBLOCK( "SCRVPRES", .F., .F. )

LOJA701D.PRW - LJPRTNFIS() -> EXECBLOCK("SCRPED", .F., .F., APARAMS )

LOJA701D.PRW - LJPRTNFIS() -> EXECBLOCK("SCRVPRES", .F., .F. )

LOJA701E.PRW - LJ7BTNRES() -> AFTVD7025 := EXECBLOCK("FTVD7025",.F.,.F.,{NPOSPROD,NPOSDESCRI} )

LOJA701E.PRW - LJ7BTNRES() -> AITENS := EXECBLOCK("FTVD7008",.F.,.F.)

LOJA701E.PRW - LJ7BTNRES() -> AITENS := EXECBLOCK("LJ7008",.F.,.F.)

LOJA701E.PRW - LJ7RESERVA() -> ALJRESERV := EXECBLOCK("LJRESERV",.F.,.F., {"1", ALOJAS, APRODUTOS, AESTOQUE} )

LOJA701E.PRW - LJ7RESERVA() -> ALJRESERV := EXECBLOCK("LJRESERV",.F.,.F., {"2", ALOJAS, APRODUTOS, AESTOQUE} )

LOJA701G.PRW - LJ7LGREVFE() -> APEDAUX := EXECBLOCK("LJ7097",.F., .F., {ASC5, ASC6} )

LOJA701G.PRW - LJ7LGREVFE() -> EXECBLOCK("LJ7100", .F., .F., {ARET[1]})

LOJA7030.PRW - LOJA7030() -> CVALIDXML := EXECBLOCK( "LJDRPEP", .F., .F., {TMPDRP->(C7_FILIAL+C7_NUM+C7_ITEM)} )

LOJA720.PRW - L720NEXTPN() -> LRET  := EXECBLOCK("LJ720NEXT",.F.,.F.,{NTPPROC, NPANEL, NNFORIG, CCODCLI, CLOJACLI })

LOJA720.PRW - L720NEXTPN() -> LRET  := EXECBLOCK("LJ720PROX",.F.,.F.,{NTPPROC, NPANEL, NNFORIG, CCODCLI, CLOJACLI,LDEVFRETE })

LOJA720.PRW - LJ720CONCLUIR() -> APRINTNCC := EXECBLOCK("LJR860CB",.F.,.F.,{ADOCDEV, ARECSD2, !LRECNAOFIS})

LOJA720.PRW - LJ720CONCLUIR() -> EXECBLOCK("LJ720FIM",.F.,.F.,{ADOCDEV})

LOJA720.PRW - LJ720CONCLUIR() -> EXECBLOCK("LOJR860",.F.,.F.,{ADOCDEV,ARECSD2,ADADOSNCC,ARECSD1})

LOJA720.PRW - LJ720CONCLUIR() -> EXECBLOCK("LOJR860A",.F.,.F.,{ANEWNCC, ANCCITENS , NTOTALSERV})

LOJA720.PRW - LJ720DEVSD2() -> ACAB := EXECBLOCK("LJ720CABEC",.F.,.F.,{ACAB, ADOCDEV})

LOJA720.PRW - LJ720DEVSD2() -> CSERIE := EXECBLOCK("LJ720SER",.F.,.F., {LTROCA, NNFORIG} )

LOJA720.PRW - LJ720DEVTRB() -> ACAB := EXECBLOCK("LJ720CABEC",.F.,.F.,{ACAB, ADOCDEV})

LOJA720.PRW - LJ720DEVTRB() -> ALINHA := EXECBLOCK("LJ720LDV",.F.,.F.,{ALINHA})

LOJA720.PRW - LJ720DEVTRB() -> CRETTESDEV := EXECBLOCK( "LJ720TES",.F.,.F., {LTROCA, NNFORIG} )

LOJA720.PRW - LJ720DEVTRB() -> CSERIE := EXECBLOCK("LJ720SER",.F.,.F., {LTROCA, NNFORIG} )

LOJA720.PRW - LJ720DEVTRB() -> LLJ7042:=EXECBLOCK( "LJ7042", .F., .F., { CCLIENTE, CLOJA, "D" } )

LOJA720.PRW - LJ720ESTTROC() -> EXECBLOCK("LJ720ESTOR",.F.,.F.,{ADOCDEV})

LOJA720.PRW - LJ720ESTTROC() -> LLJ7042:=EXECBLOCK( "LJ7042", .F., .F., { CCLIENTEDEV, CLOJADEV, "E" } )

LOJA720.PRW - LJ720ESTTROC() -> XRET  := EXECBLOCK("LJ720ANT",.F.,.F.,{ADOCDEV})

LOJA720.PRW - LJ720FILSD2() -> XRET  := EXECBLOCK("LJ720FLT",.F.,.F.,{ DDATADE, DDATAATE, CCODCLI, CLOJACLI, NFILTROPOR, CNUMNF, CSERIENF })

LOJA720.PRW - LJ720GTD1() -> ALINHA := EXECBLOCK("LJ720LDV",.F.,.F.,{ALINHA})

LOJA720.PRW - LJ720GTD1() -> CRETTESDEV := EXECBLOCK( "LJ720TES",.F.,.F., {LTROCA, NNFORIG} )

LOJA720.PRW - LJ720VALDEV() -> XRET := EXECBLOCK("LJ720VLFIN",.F.,.F.,{ LCOMPCR, NFORMADEV, NTPPROC, NNFORIG, LFORMUL, ARECSD2 })

LOJA764.PRW - LJ164MNEG() -> AMNCAD :=EXECBLOCK( "LJ764MN1", .F., .F., {ARET ,CUSER} )

LOJA764.PRW - LJ764CALPAR() -> ARET := EXECBLOCK("LJ701A3",.F.,.F.,ARETFORLIST)

LOJA764.PRW - LJ764CALPAR() -> ARET:= (EXECBLOCK("LJ701A2",.F.,.F.,APARPEA2))

LOJA764.PRW - LJ764CALPAR() -> ARETPE := EXECBLOCK("LJ701A4",.F.,.F.,{ARET,ACONNENG,NVLRFIN, NVLRENT, NDESCONT})

LOJA782.PRW - FILTRASFISD2() -> CLJ782WHERE := EXECBLOCK("LJ782WHERE",.F.,.F., {2})

LOJA782.PRW - FILTRASL1SD2() -> CLJ782WHERE := EXECBLOCK("LJ782WHERE",.F.,.F., {3})

LOJA800.PRW - A800DELETA() -> ABASE := EXECBLOCK("LJ800MLT",.F.,.F.)

LOJA800.PRW - A800EXCTIT() -> EXECBLOCK("LJ800CTI",.F.,.F.)

LOJA800.PRW - A800LINOK() -> LRET := EXECBLOCK("LJ800LOK",.F.,.F.)

LOJA800.PRW - A800PAGTOS() -> EXECBLOCK("LJ800PGTO",.F.,.F.,{NVALPARC,CPAGTOS})

LOJA800.PRW - A800PRODUTO() -> CPRODUTO  := EXECBLOCK("LJ800PROD",.F.,.F.,{CPRODUTO})

LOJA800.PRW - A800TITULO() -> EXECBLOCK("LJ800TIT",.F.,.F.)

LOJA800.PRW - A800TUDOK() -> LRET  := EXECBLOCK("LJ800TOK",.F.,.F.)

LOJA843.PRW - LJ843ATPRD() -> LRET := EXECBLOCK('LJ843VPR', .F., .F., {CCODPROD,.T.})

LOJA843.PRW - LJ843ENCLS() -> LRET :=EXECBLOCK("LJ843ENC",.F.,.F.,{FWGETCODFILIAL,CNUMLST})

LOJA843.PRW - LOJA843() -> IF VALTYPE(LBTENCLST := EXECBLOCK("LJ843HBENC",.F.,.F.,{})) # "L"

LOJA843.PRW - LOJA843GRV() -> EXECBLOCK("LJ843GRV",.F.,.F.,{FWGETCODFILIAL,M->ME1_CODIGO,NOPERACAO})

LOJA845.PRW - LJ845INCIT() -> XRET := EXECBLOCK( "LJ845LPI", .F., .F. )

LOJA845.PRW - LOJA845() -> IIF(!EMPTY(CTMP),IIF(EXISTBLOCK("LJ845REL"),EXECBLOCK("LJ845REL",.F.,.F.,{FWGETCODFILIAL,CTMP}),LOJR847(FWGETCODFILIAL,CTMP)),.T.)},ATAMOBJ[3],ATAMOBJ[4],,/*FONT*/,,.T.,,,,{|| .T.}/*WHEN*/)

LOJA846.PRW - LJ8CANCRED() -> IF !EXECBLOCK("LJ846CAN",.F.,.F.,{COBS})

LOJA846.PRW - LJ8GERCRED() -> EXECBLOCK("LJ846NCC",.F.,.F.)

LOJA862.PRW - LJ862ENPED() -> ADADOSEND := EXECBLOCK("LJ862DEND", .F., .F., {OOBJPED})

LOJA900A.PRW - LJ900APR() -> LPROCPROD := EXECBLOCK("LJ900AGP",.F.,.F., {(CALIAS)->B1_COD, (CALIAS)->B1_PRODPAI, LVARIANTE ,  "2"})

LOJA901A.PRW - () -> EXECBLOCK("LJ901SC5",.F., .F., { SC5->C5_FILIAL, SC5->C5_NUM })

LOJA901A.PRW - () -> EXECBLOCK("LJ901SL1",.F., .F., { SL1->L1_FILIAL, SL1->L1_NUM })

LOJA901A.PRW - :TEXT  //MÉTODO DE ENTREGA() -> ALJ901DES := EXECBLOCK("LJ901DES",.F., .F., { OAPED, ORETEXTRA, NDESCONTO, NVLRBRUTO, NTOTALPED})

LOJA901A.PRW - :TEXT  //MÉTODO DE ENTREGA() -> EXECBLOCK("LJ901CL1",.F., .F., {SA1->A1_COD, SA1->A1_LOJA,OAPED })

LOJA901A.PRW - :TEXT() -> ARETPVCAB := EXECBLOCK("LJ901APV",.F., .F., { OAPED, ORETEXTRA, ACABPV,  AITEMPV})

LOJA901A.PRW - LJ901AE1G() -> ARETSE1 := EXECBLOCK("LJ901SE1",.F., .F., { ASE1, OAPED, ORETEXTRA })

LOJA901A.PRW - LJ901AENT() -> ACLIPE := EXECBLOCK("LJ901SA1",.F., .F., { 2, ACLI,NIL ,OAPED })

LOJA901A.PRW - LJ901APR() -> ARET901AVL := EXECBLOCK("LJ901AVL",.F., .F., { APEDIDOS[NIND], CSEQ, OWS })

LOJA901A.PRW - LJ901APR() -> EXECBLOCK("LJ91ANEC",.F., .F., { APEDIDOS[NIND], CSEQ, OWS })

LOJA901A.PRW - LJ901APR() -> EXECBLOCK("LJ91DEEC",.F., .F., { APEDIDOS[NIND], CSEQ, OWS })

LOJA901A.PRW - LJ901APR() -> EXECBLOCK("LJDEPINTPD",.F.,.F.,{APEDOKC})

LOJA901A.PRW - LJ901ASCAN() -> CSTATUS := EXECBLOCK("LJ901APS",.F.,.F.)

LOJA901A.PRW - LJ901DTRAN() -> ADADOSTRAN := EXECBLOCK("LJ901ADT",.F.,.F., {OAPED, ORETEXTRA})

LOJA901A.PRW - LJ901DTRAN() -> ADADOSTRAN := EXECBLOCK("LJ901ANBOL",.F.,.F., {OAPED, ORETEXTRA})

LOJA901A.PRW - LJ901GIT() -> ARETITPV := EXECBLOCK("LJ901PIT",.F., .F., { OAITEM, ORETEXTRA, AITEM })

LOJA920X.PRX - LJ920GRAVA() -> EXECBLOCK( "NOTATXT", .F., .F., { CNUMNOTA } )

LOJATER.PRW - LJINICTERM() -> CFUNCNAME := EXECBLOCK("LJFUNCTERM",.F.,.F.)

LOJATER.PRW - TER02() -> EXECBLOCK("LJTM001",.F.,.F.)

LOJATER.PRW - TER04() -> EXECBLOCK("LJTM003",.F.,.F.)

LOJC030.PRX - LJ030REFRESH() -> EXECBLOCK("LJ7C030RC", .F., .F., { ACAIXA ,DDEDATA ,DATEDATA })

LOJC030.PRX - LOJC030() -> ACTION EXECBLOCK("LJ030ECF",.F., .F.,{LMV_LJTROCO,NTROCOSAIDA, ACAIXA,NTROCO,;

LOJC030.PRX - MOVIMCAIXA() -> ADEV := EXECBLOCK ("LJ030DEV",.F.,.F.)

LOJC030.PRX - MOVIMCAIXA() -> ARET := EXECBLOCK("LJ030TES", .F., .F., {AAUX, 1})

LOJC030.PRX - MOVIMCAIXA() -> ARET := EXECBLOCK("LJ030TES", .F., .F., {AAUX, 2})

LOJC031.PRW - MOVIMCXLOC() -> IF !EXECBLOCK("LJC031SD1",.F.,.F.)

LOJC031.PRW - MOVIMCXLOC() -> IF !EXECBLOCK("LJC031SE1",.F.,.F.)

LOJC031.PRW - MOVIMCXLOC() -> IF !EXECBLOCK("LJC031SE5",.F.,.F.)

LOJC031.PRW - MOVIMCXLOC() -> IF !EXECBLOCK("LJC031SL1",.F.,.F.)

LOJC060.PRW - LJ060COD() -> CTEXTO := EXECBLOCK("MV_L060SB5",.F.,.F.)

LOJC060.PRW - LJ060PR() -> CPRECO := EXECBLOCK( "L060PRC", .F., .F., {NTMPPRECO,CCOD} )

LOJC060.PRW - LJ060PR_1() -> CPRECO := EXECBLOCK( "L060PRC", .F., .F., {NTMPPRECO,CCOD} )

LOJI701O.PRW - V2000() -> OITENS := EXECBLOCK( "LJI701O1", .F., .F., {OITENS} )

LOJNFCE.PRW - LJDANFENFE() -> EXECBLOCK( "SPNFESETUP" , .F. , .F. , {ODANFE, OSETUP} )

LOJNFCE.PRW - LJNFCEDANFE() -> LLJ7084 := EXECBLOCK( "LJ7084", .F., .F., {ONFCE, OPROT} )

LOJNFCE.PRW - LJNFCEDET() -> ARETLJ7013 := EXECBLOCK("LJ7013",.F.,.F.,{CCODPROD, CDESCRIPROD, ALLTRIM(STR(NQUANT)), ALLTRIM(STR(NVRUNIT)), ALLTRIM(STR(NDESCONTO)), CSITTRIB, ALLTRIM(STR(NVLRITEM)), NI-1 })

LOJNFCE.PRW - LJNFCEDET() -> CXMLGRUPOJ := EXECBLOCK("LJ7099",.F.,.F.)

LOJNFCE.PRW - LJNFCEINFA() -> AINFADIC := EXECBLOCK( "LJ7085", .F., .F. )

LOJR110.PRX - LOJR110() -> EXECBLOCK( CMV_SCRNOTA, .F., .F.,{CNFENTRADA,CSERENTRADA,AREGSF2,ADADOSTEFNF})

LOJR110.PRX - LOJR110() -> EXECBLOCK( GETMV("MV_SCRTROC"), .F., .F.,{CNFENTRADA,CSERENTRADA})

LOJR110.PRX - LOJR110() -> EXECBLOCK(CMV_SCRNOTA, .F., .F.,{CNFENTRADA,CSERENTRADA})

LOJR130.PRX - LJ131PROC() -> CCONDICAO := EXECBLOCK("LOCXL130",.F.,.F.,{CCONDICAO})

LOJR130.PRX - LJIMPSCRIPT() -> EXECBLOCK(CSCRIPT, .F., .F.,{CNUMNOTA,CSERIE,AREGSF2})

LOJR130.PRX - LJR130ESTORN() -> EXECBLOCK( "LJ7072", .F., .F., { ANFSSF2 } )

LOJR130.PRX - LJR130EXEC() -> ACONDIC := EXECBLOCK("LOCXR130",.F.,.F.,{})

LOJR130.PRX - LJR130EXEC() -> EXECBLOCK("LJR130GR",.F.,.F.)

LOJR130.PRX - LJR130EXEC() -> EXECBLOCK("LJR130IT",.F.,.F.)

LOJR210.PRW - IMPRELECF() -> ADAV := EXECBLOCK( "LJR210DAV", .F., .F. )

LOJR7018.PRW - L70181PRT() -> CCFOPDEV := EXECBLOCK("LJRCFOP",.F.,.F.,{!LSAI})

LOJSAT.PRW - LJSATOBSCONT() -> AINFADIC := EXECBLOCK( "LJ7085", .F., .F. )

LOJSAT.PRW - LJSATXDET() -> CXMLPE := EXECBLOCK("LJ7099",.F.,.F.)

LOJX904.PRW - LJ904XPR() -> LRET := EXECBLOCK("LJX904PR",.F., .F., { CCODPROD,CTABPROM,LATUPRC })

LOJX904.PRW - LJ904XPR() -> NVLPROM := EXECBLOCK("LJX904VP",.F., .F., { CCODPROD,CTABPROM,LATUPRC, NVLPROM })

LOJXECF.PRX - IFFECHACUP() -> EXECBLOCK( "LJJOURNAL", .F., .F., { CBUFFER } )

LOJXECF.PRX - LJCMC7DIRETO() -> XRET  := EXECBLOCK( "LJLECMC7", .F., .F., { CBUFCMC7 } )

LOJXECF.PRX - LJLECMC7() -> XRET  := EXECBLOCK( "LJLECMC7", .F., .F., { CBUFCMC7 } )

LOJXECF.PRX - LJXLJ7101() -> ARETPE := EXECBLOCK( "LJ7101", .F., .F., {CTEXTO} )

LOJXECF.PRX - MSGDISPLAY() -> CMSG := EXECBLOCK("MSGDISPLAY",.F.,.F.,{NTIPO,APARAMIXB})

LOJXECF.PRX - MSGDISPTOR() -> CMSG := EXECBLOCK("MSGDISPLAY",.F.,.F.,{NTIPO,APARAMIXB})

LOJXFUNA.PRX - GETVALDEV() -> CPREFDEV:= EXECBLOCK("FTVDPRFDEV",.F.,.F.)

LOJXFUNA.PRX - GETVALDEV() -> CPREFDEV:= EXECBLOCK("LJPRFDEV",.F.,.F.)

LOJXFUNA.PRX - GETVALDEV() -> LOCAL LFTVDTRNCC := EXISTBLOCK("FTVDTRNCC")

LOJXFUNA.PRX - GETVALDEV() -> LRET := EXECBLOCK("FTVDGRVDEV",.F.,.F.,{NVALORDEV } )

LOJXFUNA.PRX - GETVALDEV() -> LRET := EXECBLOCK("FTVDTRNCC",.F.,.F.)

LOJXFUNA.PRX - GETVALDEV() -> LRET := EXECBLOCK("LJGRVDEV",.F.,.F.,{NVALORDEV } )

LOJXFUNA.PRX - GETVALDEV() -> LRET := EXECBLOCK("LJTRNCC",.F.,.F.)

LOJXFUNA.PRX - GETVALDEV() -> NVLRTROCA := EXECBLOCK("FTVDVALDV",.F.,.F.,{ CPREFIXO, CE1NUM, NVALORORI, NVLRTROCA } )

LOJXFUNA.PRX - GETVALDEV() -> NVLRTROCA := EXECBLOCK("GETVALDV",.F.,.F.,{ CPREFIXO, CE1NUM, NVALORORI, NVLRTROCA } )

LOJXFUNA.PRX - LJCONFCAIXA() -> CCHAVE := EXECBLOCK("FTVDUSRCHV",.F.,.F.,{AINLOJA})

LOJXFUNA.PRX - LJCONFCAIXA() -> CCHAVE := EXECBLOCK("LJUSRCHV",.F.,.F.,{AINLOJA, NOPCAO, CNOME})

LOJXFUNA.PRX - LJENVEMLP() -> CCABEC += EXECBLOCK("LJEMAILLP",.F.,.F.,{CNUMLST,CNUMORC,"CAB"})

LOJXFUNA.PRX - LJSB1SLK() -> ARET := EXECBLOCK("FTVDSLKINI",.F.,.F.,{CPRODUTO,NQUANT} )

LOJXFUNA.PRX - LJSB1SLK() -> ARET := EXECBLOCK("LJSLKINI",.F.,.F.,{CPRODUTO,NQUANT} )

LOJXFUNA.PRX - LOJALTPED() -> LRET := EXECBLOCK("LJI701O2",.F.,.F.)

LOJXFUNA.PRX - LOJXDIN() -> AADM := EXECBLOCK("FTVD220ADM",.F.,.F.,)

LOJXFUNA.PRX - LOJXDIN() -> AADM := EXECBLOCK("LJ220ADM",.F.,.F.,)

LOJXFUNA.PRX - LOJXDIN() -> AMATRIZ := EXECBLOCK("FTVD220FORMA",.F.,.F.,{AMATRIZ})

LOJXFUNA.PRX - LOJXDIN() -> AMATRIZ := EXECBLOCK("LJ220FORMA",.F.,.F.,{AMATRIZ})

LOJXFUNA.PRX - LOJXDIN() -> CFORMAS := EXECBLOCK("FTVD220VAL",.F.,.F.)

LOJXFUNA.PRX - LOJXDIN() -> CFORMAS := EXECBLOCK("LJ220VAL",.F.,.F.)

LOJXFUNA.PRX - LOJXDIN() -> XRET := EXECBLOCK( "FTVD220APARC", .F., .F., ;

LOJXFUNA.PRX - LOJXDIN() -> XRET := EXECBLOCK( "LJ220APARC", .F., .F., { APGTOS,;

LOJXFUNB.PRX - ABREGAVETA() -> LABRE := EXECBLOCK( "LJGAVETA" , .F., .F. )

LOJXFUNB.PRX - ANALISAMOV() -> LRET := EXECBLOCK('LJEXCSNH',.F.,.F.,{CUSERNAME})

LOJXFUNB.PRX - DIGITO() -> LRET := EXECBLOCK("FTVDLJ220DAC",.F.,.F.,{CCODVER,NNIVEL})

LOJXFUNB.PRX - DIGITO() -> LRET := EXECBLOCK("LJ220DAC",.F.,.F.,{CCODVER,NNIVEL})

LOJXFUNB.PRX - LJ010CLIEN() -> LRET := EXECBLOCK("FTVDLOJCLI",.F.,.F.)

LOJXFUNB.PRX - LJ010CLIEN() -> LRET := EXECBLOCK("LOJCLI",.F.,.F.)

LOJXFUNB.PRX - LJCHECADLLS() -> EXECBLOCK( 'LJ7109',.F.,.F., )

LOJXFUNB.PRX - LJCRECLI() -> CMOTIVO := EXECBLOCK( "FTVDIMPCL",.F.,.F.,{CMOTIVO} )

LOJXFUNB.PRX - LJICMSSOL() -> CTIPOCLI := EXECBLOCK( "FTVDLJTIPCLI" , .F., .F. )

LOJXFUNB.PRX - LJICMSSOL() -> CTIPOCLI := EXECBLOCK( "LJTIPCLI" , .F., .F. )

LOJXFUNB.PRX - LJIMPCHEQUE() -> ARET := EXECBLOCK('FTVDCHEQUE',.F.,.F.,{CBANCO,NVALOR,CFAVOREC,DEMISSAO,COBS,CVERSO,CCHEQUE,CCONTA,NPARC,CCIDADE})

LOJXFUNB.PRX - LJIMPCHEQUE() -> ARET := EXECBLOCK('LJCHEQUE',.F.,.F.,{CBANCO,NVALOR,CFAVOREC,DEMISSAO,COBS,CVERSO,CCHEQUE,CCONTA,NPARC,CCIDADE})

LOJXFUNB.PRX - LJPROFILE() -> CRETLJ7110 := EXECBLOCK("LJ7110",.F.,.F.,{NACESSO})

LOJXFUNB.PRX - LJSENHASUP() -> EXECBLOCK('FTVDSUPAPR',.F.,.F.,{ CIDSUP, CCAIXASUP, LRET })

LOJXFUNB.PRX - LJSENHASUP() -> EXECBLOCK('LJSUPAPR',.F.,.F.,  { CIDSUP, CCAIXASUP, LRET })

LOJXFUNC.PRW - FRTPROCSZ() -> AFILES := EXECBLOCK("FRTGRVSZ",.F.,.F.)

LOJXFUNC.PRW - FRTPROCSZ() -> AFILES := EXECBLOCK("FTFRTGRVSZ",.F.,.F.)

LOJXFUNC.PRW - FRTPROCSZ() -> IF EXECBLOCK("FRTPROSZ",.F.,.F.,{CALIAS})

LOJXFUNC.PRW - FRTPROCSZ() -> IF EXECBLOCK("FTFRTPROSZ",.F.,.F.,{CALIAS})

LOJXFUNC.PRW - LJ010RESERVA() -> AFTVDPRDRES := EXECBLOCK("FTVDPRDRES",.F.,.F.,{NPOSCODPROD,NPOSDESCPRO} )

LOJXFUNC.PRW - LJ010RESERVA() -> ALJPRDRES := EXECBLOCK("LJPRDRES",.F.,.F.,{NPOSCODPROD,NPOSDESCPRO} )

LOJXFUNC.PRW - LJCANCRES() -> EXECBLOCK( "FTVDECANCRES" , .F., .F., ARESERVA )

LOJXFUNC.PRW - LJCANCRES() -> EXECBLOCK( "LJCANCRES" , .F., .F., ARESERVA )

LOJXFUNC.PRW - LJCHKRESERVA() -> LGERAFIN := EXECBLOCK("FTVDRESFIN",.F.,.F.)

LOJXFUNC.PRW - LJCHKRESERVA() -> LGERAFIN := EXECBLOCK("LJRESFIN",.F.,.F.)

LOJXFUNC.PRW - LJECFXDATA() -> LRET := EXECBLOCK( "FTVDTUDATA" , .F. , .F. )

LOJXFUNC.PRW - LJECFXDATA() -> LRET := EXECBLOCK( "LATUDATA" , .F. , .F. )

LOJXFUNC.PRW - LJFILSX5() -> CFILSX5 := EXECBLOCK("CHGX5FIL",.F.,.F.)

LOJXFUNC.PRW - LJGERAE5() -> APARAMLJ := EXECBLOCK("LJ7113",.F.,.F.)

LOJXFUNC.PRW - LJGRVBATCH() -> AFILES := EXECBLOCK("FTVDGRVOPEN", .F., .F.)

LOJXFUNC.PRW - LJGRVBATCH() -> AFILES := EXECBLOCK("LJGRVOPEN", .F., .F.)

LOJXFUNC.PRW - LJGRVBATCH() -> EXECBLOCK( "LJ7002", .F., .F., { 2, NIL, 2 } )

LOJXFUNC.PRW - LJGRVBATCH() -> EXECBLOCK("LJ7064", .F., .F., {SL1->(RECNO())})

LOJXFUNC.PRW - LJGRVBATCH() -> LRETLJ7082 := EXECBLOCK("LJ7082",.F.,.F.)

LOJXFUNC.PRW - LJGRVBATCH() -> LRETLJ7095 := EXECBLOCK("LJ7095",.F.,.F.)

LOJXFUNC.PRW - LJGRVFIN() -> APARAMLJ := EXECBLOCK("LJ7113",.F.,.F.)

LOJXFUNC.PRW - LJGRVFIN() -> ARETRECEB := EXECBLOCK( "LJGRFIN",.F.,.F., {ARECEB} )

LOJXFUNC.PRW - LJGRVFIN() -> EXECBLOCK("FTVDDEPSE1",.F.,.F.)

LOJXFUNC.PRW - LJGRVFIN() -> EXECBLOCK("LJDEPSE1",.F.,.F.,{ARECEB[I]})

LOJXFUNC.PRW - LJGRVFIN() -> EXECBLOCK("LJDEPSE1",.F.,.F.,{ARECEB[NPOSDIN]})

LOJXFUNC.PRW - LJGRVFIN() -> EXECBLOCK("LJDEPSE1",.F.,.F.,{NIL})

LOJXFUNC.PRW - LJGRVFIN() -> LFINANCEIRO := IF(EXISTBLOCK("FTVDTES",,.T.),EXECBLOCK("FTVDTES",.F.,.F.),LFINANCEIRO)

LOJXFUNC.PRW - LJGRVFIN() -> LRETFTVDTES := EXECBLOCK("FTVDTES",.F.,.F.)

LOJXFUNC.PRW - LJGRVFIN() -> UVALUE := EXECBLOCK("LJTES",.F.,.F.)

LOJXFUNC.PRW - LJGRVJOB() -> AFILES := EXECBLOCK("FTVDGRVOPEN", .F., .F.)

LOJXFUNC.PRW - LJGRVJOB() -> AFILES := EXECBLOCK("LJGRVOPEN", .F., .F.)

LOJXFUNC.PRW - LJGRVTRAN() -> EXECBLOCK( "FTVDGRVAD2", .F., .F. )

LOJXFUNC.PRW - LJGRVTRAN() -> EXECBLOCK( "LJGRVAD2", .F., .F. )

LOJXFUNC.PRW - LJGRVTRAN() -> EXECBLOCK( "LJGRVFISC", .F., .F. )

LOJXFUNC.PRW - LJGRVTRAN() -> EXECBLOCK( "LJGRVSL2", .F., .F., {NITENS} )

LOJXFUNC.PRW - LJGRVTRAN() -> EXECBLOCK("FTVD010SF3",.F.,.F.)

LOJXFUNC.PRW - LJGRVTRAN() -> EXECBLOCK("FTVDFIMGRV",.F.,.F.)

LOJXFUNC.PRW - LJGRVTRAN() -> EXECBLOCK("LJ010SF3",.F.,.F.)

LOJXFUNC.PRW - LJGRVTRAN() -> EXECBLOCK("LJFIMGRV",.F.,.F.)

LOJXFUNC.PRW - LJGRVTRAN() -> LSTATUSIMP13 := EXECBLOCK("FRTECF13",.F.,.F.,{SL2->L2_PRODUTO,SL2->L2_VRUNIT, SL2->L2_QUANT})

LOJXFUNC.PRW - LJGRVVP() -> EXECBLOCK("FTVDVENVP",.F.,.F.)

LOJXFUNC.PRW - LJGRVVP() -> EXECBLOCK("LJVENVP",.F.,.F.)

LOJXFUND.PRW - LJXDATUTROCO() -> LRET:=EXECBLOCK("FTVD220TRC",.F.,.F.,{NVLRPAG,NPAGAR,LDINHEIRO})

LOJXFUND.PRW - LJXDATUTROCO() -> LRET:=EXECBLOCK("LJ220TRC",.F.,.F.,{NVLRPAG,NPAGAR,LDINHEIRO})

LOJXFUND.PRW - LJXDCBFRM() -> LRET := EXECBLOCK("FTVD010DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"COMBOPAG",OPGTOS,APGTOS})

LOJXFUND.PRW - LJXDCBFRM() -> LRET := EXECBLOCK("FTVD220DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"COMBOPAG",OLISTFORMA,AFORMAS})

LOJXFUND.PRW - LJXDCBFRM() -> LRET := EXECBLOCK("LJ010DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"COMBOPAG",OPGTOS,APGTOS})

LOJXFUND.PRW - LJXDCBFRM() -> LRET := EXECBLOCK("LJ220DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"COMBOPAG",OLISTFORMA,AFORMAS})

LOJXFUND.PRW - LJXDCHEQ() -> @ 145,200 BUTTON OBUTTON2 PROMPT CCAPBUT2 SIZE 40,13 PIXEL ACTION IIF(EXECBLOCK("LJXVLDCHEQ",.F.,.F.,{NVLRCHEQ,DDTVENC,NPARC,NVEZES,;

LOJXFUND.PRW - LJXDCHEQ() -> @ 150,150 BUTTON OBUTTON2 PROMPT CCAPBUT2 SIZE 40,13 PIXEL ACTION IIF(EXECBLOCK("LJXVLDCHEQ",.F.,.F.,{NVLRCHEQ,DDTVENC,NPARC,NVEZES,;

LOJXFUND.PRW - LJXDCLIENTE() -> ARETPE := EXECBLOCK( "FTVDRETCLI",.F.,.F. )

LOJXFUND.PRW - LJXDCLIENTE() -> ARETPE := EXECBLOCK( "LJRETCLI",.F.,.F. )

LOJXFUND.PRW - LJXDCONDP() -> ACONDICOES:= EXECBLOCK("LJ010CON",.F.,.F.)

LOJXFUND.PRW - LJXDDINV() -> LRET := EXECBLOCK("FTVD010VAL",.F.,.F.,{NVALOR,CCOMBOPAG,DDATAFORM})

LOJXFUND.PRW - LJXDDINV() -> LRET := EXECBLOCK("LJ010VAL",.F.,.F.,{NVALOR,CCOMBOPAG,DDATAFORM})

LOJXFUND.PRW - LJXDDTEMIS() -> LRET := EXECBLOCK("FTVD010DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"DDATAEMIS",OPGTOS,APGTOS})

LOJXFUND.PRW - LJXDDTEMIS() -> LRET := EXECBLOCK("FTVD220DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"DDATAEMIS",OLISTFORMA,AFORMAS})

LOJXFUND.PRW - LJXDDTEMIS() -> LRET := EXECBLOCK("LJ010DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"DDATAEMIS",OPGTOS,APGTOS})

LOJXFUND.PRW - LJXDDTEMIS() -> LRET := EXECBLOCK("LJ220DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"DDATAEMIS",OLISTFORMA,AFORMAS})

LOJXFUND.PRW - LJXDDTVCTO() -> LRET := EXECBLOCK("FTVD010DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"DDATAFORM",OPGTOS,APGTOS})

LOJXFUND.PRW - LJXDDTVCTO() -> LRET := EXECBLOCK("FTVD220DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"DDATAEMIS",OLISTFORMA,AFORMAS})

LOJXFUND.PRW - LJXDDTVCTO() -> LRET := EXECBLOCK("LJ010DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"DDATAFORM",OPGTOS,APGTOS})

LOJXFUND.PRW - LJXDDTVCTO() -> LRET := EXECBLOCK("LJ220DATE",.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,"DDATAEMIS",OLISTFORMA,AFORMAS})

LOJXFUND.PRW - LJXDGETCH() -> ACMC7 := EXECBLOCK("FTVDCMC7TC", .T., .T.)

LOJXFUND.PRW - LJXDGETCH() -> ACMC7 := EXECBLOCK("LJCMC7TC", .T., .T.)

LOJXFUND.PRW - LJXDGETCH() -> ADADOSCHEQ := ACLONE(EXECBLOCK("FTVD020CHQ",.F.,.F.,ADADOSCHEQ))

LOJXFUND.PRW - LJXDGETCH() -> ADADOSCHEQ := ACLONE(EXECBLOCK("LJ020CHQ",.F.,.F.,ADADOSCHEQ))

LOJXFUND.PRW - LJXDGETCH() -> XRETCHQ := EXECBLOCK("FTVDIMPCHQ",.F.,.F.,{ADADOSCHEQ})

LOJXFUND.PRW - LJXDGETCH() -> XRETCHQ := EXECBLOCK("LJIMPCHQ",.F.,.F.,{ADADOSCHEQ})

LOJXFUND.PRW - LJXDGETTROCO() -> NVALOR := EXECBLOCK("FTVDGETTRC",.F.,.F.,{NVALOR,LDINHEIRO})

LOJXFUND.PRW - LJXDGETTROCO() -> NVALOR := EXECBLOCK("LJGETTRC",.F.,.F.,{NVALOR,LDINHEIRO})

LOJXFUND.PRW - LJXDNFISCA() -> LRET := EXECBLOCK("FTVD010SER",.F.,.F.,{CSERIE,CNFISCAL})

LOJXFUND.PRW - LJXDNFISCA() -> LRET := EXECBLOCK("LJ010SER",.F.,.F.,{CSERIE,CNFISCAL})

LOJXFUND.PRW - LJXDNOTA() -> CFILTSER :=EXECBLOCK("FTVD010FILT",.F.,.F.)

LOJXFUND.PRW - LJXDNOTA() -> CFILTSER :=EXECBLOCK("LJ010FILT",.F.,.F.)

LOJXFUND.PRW - LJXDNOTA() -> LRETORNO := EXECBLOCK("FVD10SNF",.F.,.F.)

LOJXFUND.PRW - LJXDNOTA() -> LRETORNO := EXECBLOCK("LJ010SNF",.F.,.F.)

LOJXFUND.PRW - LJXDNOTA() -> XRET  := EXECBLOCK("LJXNUMDOC",.F.,.F., {CMVSERIE})

LOJXFUND.PRW - LJXDSELNCC() -> ACTIVATE DIALOG ONCCWINDOW CENTERED VALID IIF(!LFTVDVER12 .AND. LLJ7038,EXECBLOCK("LJ7038",.F.,.F.),IIF(LFTVDVER12 .AND. LFTVD7038,EXECBLOCK("FTVD7038",.F.,.F.) ,.T.))

LOJXFUND.PRW - LJXDSELNCC() -> ACTIVATE DIALOG ONCCWINDOW CENTERED VALID IIF(!LFTVDVER12 .AND. LLJ7038,EXECBLOCK("LJ7038",.F.,.F.),IIF(LFTVDVER12 .AND. LFTVD7038,EXECBLOCK("FTVD7038",.F.,.F.),.T.))

LOJXFUND.PRW - LJXDVACAMP() -> LRET := EXECBLOCK("LJVLDCPF",.F., .F., {CCGC,CNOME,CEND,NVALOR} )

LOJXFUNK.PRW - LJ7NUMTIT() -> CE1NUMPE := EXECBLOCK( "LJNUMTIT", .F., .F., { CMVLJE1NUM, CE1NUM } )

LOJXFUNK.PRW - LJFIGETEND() -> CENDALTE := EXECBLOCK( 'FISATEND',.F.,.F., {CENDERECO, CUF} )

LOJXFUNK.PRW - LJGRVDIFAL() -> ARETPARAM := EXECBLOCK("LJRETGUIA",.F.,.F.)

LOJXFUNK.PRW - LJVLDBATCH() -> LRETLJ7082 := EXECBLOCK("LJ7082",.F.,.F.)

LOJXLOG.PRW - LJLOGORC() -> EXECBLOCK( "LJLOG_01", .F., .F., { LCANCCUP, CNUMORC } )

LOJXLOG.PRW - LJLOGORC() -> EXECBLOCK( "LJLOG_02", .F., .F., { CNUMORC } )

LOJXLOG.PRW - LJLOGORC() -> EXECBLOCK( "LJLOG_03", .F., .F., { CCUPOM, CNUMORC } )

LOJXLOG.PRW - LJRELOGT() -> EXECBLOCK( "LJLOG_05", .F., .F., { CORC } )

LOJXPED.PRW - LJ7CRIAENTRMONT() -> ANRSSERIE := EXECBLOCK( "FTVD7059", .F., .F. )

LOJXPED.PRW - LJ7CRIAENTRMONT() -> ANRSSERIE := EXECBLOCK( "LJ7059", .F., .F. )

LOJXPED.PRW - LJ7CRIAENTRMONT() -> EXECBLOCK( "FTVD7056", .F., .F., { CNUMOS } )

LOJXPED.PRW - LJ7CRIAENTRMONT() -> EXECBLOCK( "LJ7056", .F., .F., { CNUMOS } )

LOJXPED.PRW - LJ7GRVFILH() -> LVALIDVFE := EXECBLOCK("LJ7096",.F., .F., {AARQUIVOS, ALOJAS})

LOJXPED.PRW - LJ7PEDIDO() -> CE1NUMPE := EXECBLOCK( "LJNUMTIT", .F., .F., { SUPERGETMV("MV_LJE1NUM",,"1"), CNUMTIT } )

LOJXREC.PRW - 'S³() -> (IIF(LLJDESBALT,IIF(EXECBLOCK("LJBALTTI", .F., .F., { ATITULO , OTITULO:NAT }), OBTNEDIT:ENABLE(), OBTNEDIT:DISABLE()),;

LOJXREC.PRW - 'S³() -> (IIF(LLJDESBALT,IIF(EXECBLOCK("LJBALTTI", .F., .F., { ATITULO , OTITULO:NAT }),;

LOJXREC.PRW - 'S³() -> ABUTTONUSR := EXECBLOCK("LJRCBTUS",.F.,.F.)

LOJXREC.PRW - 'S³() -> ACTION EXECBLOCK(ABUTTONUSR[2], .F., .F., {ATITULO, CCODCLI, CLOJCLI})

LOJXREC.PRW - 'S³() -> DEFINE SBUTTON FROM 25,310 TYPE 17 ENABLE ONSTOP STR0016 ACTION EXECBLOCK("LJRECUSR",.F.,.F.,ATITULO)

LOJXREC.PRW - 'S³() -> IF( LLJDESBALT , IF ( EXECBLOCK( "LJBALTTI", .F., .F.,  { ATITULO , OTITULO:NAT } ), OBTNEDIT:ENABLE(), OBTNEDIT:DISABLE() ) ,OBTNEDIT:ENABLE() ) ,;

LOJXREC.PRW - 'S³() -> XRET  := EXECBLOCK( "LJRECVAL", .F., .F., {CMV_LJRECEB})

LOJXREC.PRW - LJ7VNSUDIG() -> LRET := EXECBLOCK("LJVNSUAU",.F.,.F.,{APARAMS[1],APARAMS[2],APARAMS[3],CNSU,CAUTORIZ})

LOJXREC.PRW - LJBOLETO() -> EXECBLOCK("LJIMPBOL", .F., .F., ATITULO[NI])

LOJXREC.PRW - LJEMSEXTRA() -> ARET := EXECBLOCK( "LJLAYTEMS" , .F. , .F., {CCARTAO, CCPF } )

LOJXREC.PRW - LJMTSEEK() -> LRETRECPSQ := EXECBLOCK( "LJRECPSQ", .F., .F., {NIDXSE1, CSEEKE1})

LOJXREC.PRW - LJRECBTNOK() -> EXECBLOCK("LJRECFIM",.F.,.F.,{COPER, LRET, NVALORTOT, ATITULO, ADADOSEST})

LOJXREC.PRW - LJRECBTNOK() -> LRET := EXECBLOCK("LJRECCONF", .F., .F.,{COPER, NTOTAL, ATITULO})

LOJXREC.PRW - LJRECBTNOK() -> XRET := EXECBLOCK("LJRECALT",.F.,.F.,{NTOTAL,ATITULO})

LOJXREC.PRW - LJRECBXSE1() -> EXECBLOCK( "LJRECBXFIM", .F., .F., { ASE5BXAS } )

LOJXREC.PRW - LJRECBXSE1() -> LRET := EXECBLOCK("LJBXEMS", .F., .F., {CPREFIXO,CNUM,CPARCELA,DVENCIMENTO, ;

LOJXREC.PRW - LJRECBXSE1() -> LTRAVASA1 := EXECBLOCK("F070TRAVA", .F., .F.) .OR. EXECBLOCK("F040TRVSA1", .F., .F.)

LOJXREC.PRW - LJRECDBLCLICK() -> IF( LLJDESBALT , IF ( EXECBLOCK( "LJBALTTI", .F., .F., { ATITULO , OTITULO:NAT }  ), OBTNEDIT:ENABLE(), OBTNEDIT:DISABLE() ) ,OBTNEDIT:ENABLE() )

LOJXREC.PRW - LJRECEDBT() -> XRET := EXECBLOCK("LJRECEDIT",.F.,.F.)

LOJXREC.PRW - LJRECESTORNA() -> ATITULO := EXECBLOCK( "LJRECVER" ,.F.,.F.,{ATITULO} )

LOJXREC.PRW - LJRECGRVCH() -> EXECBLOCK("LJRECCHQ",.F.,.F.)

LOJXREC.PRW - LJRECHEADE() -> ACAMPOS := EXECBLOCK("LJRECHEAD",.F.,.F.,{AREFCPOS})

LOJXREC.PRW - LJRECLOAD() -> AFERIADOS := EXECBLOCK( "LJRECFER", .F., .F., { AFERIADOS } )

LOJXREC.PRW - LJRECLOAD() -> IF IIF(LLJRECFILT,EXECBLOCK("LJRECFILT",.F.,.F.,{COPER,CPDV,CUSRCAIXA}),.F.)

LOJXREC.PRW - LJRECLOAD() -> NDIAS := EXECBLOCK( "LJJUROS", .F., .F., {ARET[4], NDIAS, AFERIADOS} )

LOJXREC.PRW - LJRECLOAD() -> NVALJUROS := EXECBLOCK( "LJVLJURO", .F., .F., { ARET[4][NX] , NVALJUROS , NMV_LJJUROS , NDIAS } )

LOJXREC.PRW - LJRECLOAD() -> NVALMULTA := EXECBLOCK( "LJVLMULT", .F., .F., { ARET[4][NX] , NVALMULTA , NMV_LJMULTA } )

LOJXREC.PRW - LJRECPESQ() -> ATITULO := EXECBLOCK( "LJRECVER" ,.F.,.F.,{ATITULO} )

LOJXREC.PRW - LJRECVAL() -> XRET := EXECBLOCK("LJRECVLD",.F.,.F., { CTIPO , NVAL , ATITULO, OTITULO })

LOJXREC.PRW - LJRETENTRA() -> XRET := EXECBLOCK("LJRECSELE",.F.,.F.,{ATITULO,OTITULO,COPER})

LOJXREC.PRW - LJXGRVMDX() -> EXECBLOCK( "LJRECSE1", .F., .F., { ASE1,ATIT} )

LOJXREC.PRW - LJXGRVSLV() -> EXECBLOCK("LJRECSLV",.F.,.F.,{ASE5DADOS,LRET,LCONFIRMA})

LOJXREC.PRW - LJXTELANSU() -> URETLJ7114 := EXECBLOCK("LJ7114",.F.,.F.,APARAMS)

LOJXREC.PRW - RECEBNFIS() -> EXECBLOCK( "FRTRECTIT", .F., .F., { NI, ATITBXNCC } )

LOJXREC.PRW - _LJGRVREC() -> EXECBLOCK( "FRTRECTIT", .F., .F., { NI, ATITULO } )

LOJXREC.PRW - _LJGRVREC() -> EXECBLOCK( "FRTRECTIT", .F., .F., { NI, ATITULO, NRELTROCO } )

LOJXREC.PRW - _LJGRVREC() -> EXECBLOCK( "LJRECCOMP", .F., .F., {CMSGCOMPROVANTE, NTOTCOMPROVANTE, CTOTRECNFIS, ATITULO, APGTOS, ASE5BXAS })

LOJXREC.PRW - _LJGRVREC() -> EXECBLOCK( "LJRECCOMP", .F., .F., {CMSGCOMPROVANTE, NTOTCOMPROVANTE, CTOTRECNFIS, ATITULO, APGTOS, ASE5BXAS} )

LOJXREC.PRW - _LJGRVREC() -> EXECBLOCK( CROTPAG, .F., .F., {CCLIENTE,CLOJA,ATITULO, APGTOS,CMSGCOMPROVANTE, NTOTCOMPROVANTE, CTOTRECNFIS,  ASE5BXAS} )

LOJXREC.PRW - _LJGRVREC() -> LRET := EXECBLOCK("LJXRECVLD", .F., .F.,{COPER, NTOTAL, ATITULO,LRET })

LOJXREC.PRW - _LJGRVREC() -> XRET := EXECBLOCK("LJRECIMP", .F., .F., {ATITULO, CMSGRECIBO })

LOJXTEF.PRW - LJGRVBAIXACEL() -> EXECBLOCK("LJRCNF1", .F., .F. )

LOJXTEF.PRW - LJTEFCONFADM() -> XRET :=EXECBLOCK("LJADMTEF",.F.,.F.)

LOJXTEF.PRW - LJVLDBIN() -> LBINVALIDO := EXECBLOCK("LJFIMTEF", .F., .F., {CBINCART, NVALTRAN})

M100ICE.PRW - M100ICE() -> AIMPOSTO := EXECBLOCK( "M100ICE",.F.,.F., PARAMIXB ,.T. )

M100ICE.PRW - M100ICE() -> IF PROCNAME(1)=="EXECBLOCK"

M100ICE.PRW - M100ICEQU() -> ELSEIF PROCNAME(1)=="EXECBLOCK"

M100IMPM.PRX - M100IMPM() -> AFISCAL:= EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M100IRF.PRW - M100IRFCO() -> LXFIS:=(MAFISFOUND() .AND. PROCNAME(1)<>"EXECBLOCK")

M100ISCI.PRW - M100ISIPA() -> LXFIS := (MAFISFOUND() .AND. PROCNAME(1)!="EXECBLOCK")

M100PCO.PRW - M100PCO() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M100RFTE.PRW - M100RFTCO() -> LXFIS:=(MAFISFOUND() .AND. PROCNAME(1)<>"EXECBLOCK")

M100RIV.PRW - M100RIV() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS,},.T.)

M100XIB2.PRX - M100XIB2() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,CPROVENT,LXFIS,CXFISRAP},.T.)

M100XIBP.PRX - M100XIBP() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,CPROVENT,LXFIS,CXFISRAP},.T.)

M100XII.PRX - M100XII() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M100XIII.PRW - M100XIII() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M100XIV2.PRX - M100XIV2() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M100XIVA.PRX - M100XIVA() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M100XIVP.PRX - M100XIVP() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M100XIVP.PRX - M100XIVP() -> _LRETORN:= EXECBLOCK("MAGENTE",.F.,.F.,{SUBSTR(GETMV("MV_AGENTE"),4,1)})

M100XPYP.PRX - M100XPYP() -> AFISCAL:= EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M330JCTB.PRX - A330TT2B2() -> CNEWQUERY:=EXECBLOCK("MA330UNI",.F.,.F.,{TRT->TRB_FILIAL,TRT->TRB_COD,CQUERY})

M330JCTB.PRX - M330JOBCM() -> ACM:=EXECBLOCK("M330CD2",.F.,.F.,{ACM,.F.})

M330JCTB.PRX - M330JOBCM() -> ACUSTO:=EXECBLOCK("MA330C3",.F.,.F.,ACUSTO)

M330JCTB.PRX - M330JOBCM() -> ARETCPUS := EXECBLOCK("M330CD1",.F.,.F.,{LCSTPART,AREGRACP,ACUSTO})

M330JCTB.PRX - M330JOBCM() -> ARETPARTES :=EXECBLOCK("MA330P3",.F.,.F.,{ACUSTO,LCSTPART,AREGRACP,ACLONE(ARETPARTES)})

M330JCTB.PRX - M330JOBCM() -> EXECBLOCK("MA330D2",.F.,.F.)

M330JCTB.PRX - M330JOBCM() -> EXECBLOCK("MA330D3",.F.,.F.)

M330JCTB.PRX - M330JOBCM() -> IF LA330CDEV .AND. SF4->F4_PODER3 <> "R" .AND. EXECBLOCK("A330CDEV",.F.,.F.)

M460IC1.PRW - M460IC1() -> AIMPOSTO := EXECBLOCK( "M460IC1",.F.,.F., PARAMIXB ,.T. )

M460IC1.PRW - M460IC1() -> IF PROCNAME(1)=="EXECBLOCK"

M460ICE.PRW - M460ICEEQU() -> ELSEIF PROCNAME(2)=="EXECBLOCK"

M460IMPM.PRX - M460IMPM() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M460IRF.PRX - M460IRFCO() -> LXFIS:=(MAFISFOUND() .AND. PROCNAME(1)<>"EXECBLOCK")

M460ISC.PRW - M460ISCPA() -> LXFIS := (MAFISFOUND() .AND. PROCNAME(1)!="EXECBLOCK")

M460ISCI.PRW - M460ISIPA() -> LXFIS := (MAFISFOUND() .AND. PROCNAME(1)!="EXECBLOCK")

M460IVA.PRX - M460IVAME() -> NDECS := EXECBLOCK("MT410DECS",.F.,.F.)

M460PCO.PRW - M460PCO() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M460XIB2.PRX - M460XIB2() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M460XIBP.PRX - M460XIBP() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS,CXFISRAP},.T.)

M460XII.PRX - M460XII() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M460XIV2.PRX - M460XIV2() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M460XIVA.PRX - M460XIVA() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M460XIVP.PRX - M460XIVP() -> AFISCAL := EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M460XIVP.PRX - M460XIVP() -> _LRETORN:= EXECBLOCK("MAGENTE",.F.,.F.,{SUBSTR(GETMV("MV_AGENTE"),4,1)})

M460XPYP.PRX - M460XPYP() -> AFISCAL:= EXECBLOCK("IMPGENER",.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)

M486NCCXML.PRW - FGENXMLNCC() -> CXML += EXECBLOCK("M486NCC",.F.,.F.,{SF1->F1_FILIAL,SF1->F1_DOC,SF1->F1_SERIE,SF1->F1_ESPECIE,CCLIE,CTIENDA})

M486NDCXML.PRW - FGENXMLNDC() -> CXML += EXECBLOCK("M486NDC",.F.,.F.,{SF2->F2_FILIAL,SF2->F2_DOC,SF2->F2_SERIE,SF2->F2_ESPECIE,CCLIE,CTIENDA})

M486NFXML.PRW - FGENXMLNF() -> CXML += EXECBLOCK("M486EBV",.F.,.F.,{SF2->F2_FILIAL,SF2->F2_DOC,SF2->F2_SERIE,SF2->F2_ESPECIE,CCLIE,CTIENDA})

M486NFXML.PRW - FGENXMLNF() -> CXML += EXECBLOCK("M486ENFE",.F.,.F.,{SF2->F2_FILIAL,SF2->F2_DOC,SF2->F2_SERIE,SF2->F2_ESPECIE,CCLIE,CTIENDA})

M486NFXML.PRW - FGENXMLNF() -> CXML += EXECBLOCK("M486FECVEN",.F.,.F.)

M486NFXML.PRW - FGENXMLNF() -> CXML += EXECBLOCK("M486NF",.F.,.F.,{SF2->F2_FILIAL,SF2->F2_DOC,SF2->F2_SERIE,SF2->F2_ESPECIE,CCLIE,CTIENDA})

M486NFXML.PRW - FGENXMLNF() -> CXML += EXECBLOCK("M486NFE",.F.,.F.,{SF2->F2_FILIAL,SF2->F2_DOC,SF2->F2_SERIE,SF2->F2_ESPECIE,CCLIE,CTIENDA})

M486XFUN.PRW - M486REF() -> AREFPE := EXECBLOCK("M486PEREF",.F.,.F.,{CESPECIE,CDOC,CSERIE,CCLI,CLOJA})

M486XFUN.PRW - M486VLDPER() -> LVLDCMPREM := FUNNAME() $ UPPER(ALLTRIM(EXECBLOCK("M486VLDCMP", .F., .F.)))

M486XFUN.PRW - M486XMLIMP() -> AM486DET:= EXECBLOCK("M486DETNF",.F.,.F.,{(CALIASSD)->&(CFILIALSD),(CALIASSD)->&(CDOCSD),(CALIASSD)->&(CSERIESD),ALLTRIM(CESPECIE),(CALIASSD)->&(CCLIESD),(CALIASSD)->&(CLOJASD),(CALIASSD)->D2_ITEM,CCODPROD})

M486XFUN.PRW - M486XMLIMP() -> AM486DET:= EXECBLOCK("M486DNCC",.F.,.F.,{(CALIASSD)->&(CFILIALSD),(CALIASSD)->&(CDOCSD),(CALIASSD)->&(CSERIESD),ALLTRIM(CESPECIE),(CALIASSD)->&(CCLIESD),(CALIASSD)->&(CLOJASD),(CALIASSD)->D1_ITEM,CCODPROD})

M486XFUN.PRW - M486XMLIMP() -> AM486DET:= EXECBLOCK("M486DNDC",.F.,.F.,{(CALIASSD)->&(CFILIALSD),(CALIASSD)->&(CDOCSD),(CALIASSD)->&(CSERIESD),ALLTRIM(CESPECIE),(CALIASSD)->&(CCLIESD),(CALIASSD)->&(CLOJASD),(CALIASSD)->D2_ITEM,CCODPROD})

M486XFUN.PRW - M486XMLIMP() -> CDESPRO := EXECBLOCK("MT486AGDES",.F.,.F.,{(CALIASSD)->&(CCODPROSD)})

M486XFUNBO.PRW - CFDGERJSON() -> CJSON:= EXECBLOCK("M486EJSON",.F.,.F.,{CJSON})

M486XFUNBO.PRW - CFDGERJSON() -> CJSON:= EXECBLOCK("M486SJSON",.F.,.F.,{CJSON})

M486XFUNBO.PRW - CHCKURLV() -> CURL:= EXECBLOCK("M486PEURL",.F.,.F.,{CURLTYPE})

M486XFUNBO.PRW - FACTONBOL() -> AM486EBOL := EXECBLOCK("M486EBOL",.F.,.F.,{AFACT, CESPECIE})

M486XFUNCO.PRW - M486DETDOC() -> EXECBLOCK("M486OWSCOL",.F.,.F.,{AFACT[NPOSDOC,1],AFACT[NPOSDOC,2],AFACT[NPOSDOC,3],AFACT[NPOSDOC,4],&(COBJXML),2,@OWSDET})

M486XFUNPAR.PRW - XMLPARENT() -> CXML:= EXECBLOCK("M486PEEXML",.F.,.F.,{SF1->F1_FILIAL, SF1->F1_SERIE, SF1->F1_FORNECE, SF1->F1_LOJA, SF1->F1_DOC, SF1->F1_ESPECIE, CXML})

M710JCTB.PRW - A710JOBAFJ() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"AFJ", CQUERY})

M710JCTB.PRW - A710JOBC1() -> CA710FIL := EXECBLOCK("A710FIL", .F., .F., {"SC1", CQUERY})

M710JCTB.PRW - A710JOBC2() -> CA710FIL := EXECBLOCK("A710FIL", .F., .F., {"SC2", CQUERY})

M710JCTB.PRW - A710JOBC2() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SC2", CQUERY})

M710JCTB.PRW - A710JOBC4() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SC4", CQUERY})

M710JCTB.PRW - A710JOBC6() -> CA710FIL := EXECBLOCK("A710FIL", .F., .F., {"SC6", CQUERY})

M710JCTB.PRW - A710JOBC6() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SC6", CQUERY})

M710JCTB.PRW - A710JOBC7() -> CA710FIL := EXECBLOCK("A710FIL", .F., .F., {"SC7", CQUERY})

M710JCTB.PRW - A710JOBC7() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SC7", CQUERY})

M710JCTB.PRW - A710JOBD4() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SD4", CQUERY})

M710JCTB.PRW - A710JOBINI() -> AFILALMOX := RETEXECBLOCK("A710FILALM", { SB1->B1_COD, CALMOXD, CALMOXA }, "A", NIL,NIL,NIL,LEXISTBB1)

M710JCTB.PRW - A710JOBINI() -> AOPC := EXECBLOCK('M710NOPC',.F.,.F.,{SB1->B1_COD,NSALDO})

M710JCTB.PRW - A710JOBINI() -> CMT710B2  := RETEXECBLOCK("MT710B2", { SB1->B1_COD, CALMOXD, CALMOXA }, "C", NIL,NIL,NIL,LEXISTBB2)

M712JCTB.PRW - A712JOBAFJ() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"AFJ", CQUERY})

M712JCTB.PRW - A712JOBC2() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SC2", CQUERY})

M712JCTB.PRW - A712JOBC4() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SC4", CQUERY})

M712JCTB.PRW - A712JOBC6() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SC6", CQUERY})

M712JCTB.PRW - A712JOBC7() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SC7", CQUERY})

M712JCTB.PRW - A712JOBD4() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SD4", CQUERY})

M712JCTB.PRW - A712JOBINI() -> AFILALMOX := RETEXECBLOCK("A710FILALM",{SB1->B1_COD,CALMOXD,CALMOXA},"A",NIL,NIL,NIL,LEXISTBB1)

M712JCTB.PRW - A712JOBINI() -> AOPC := EXECBLOCK('M710NOPC',.F.,.F.,{SB1->B1_COD,NSALDO})

M712JCTB.PRW - A712JOBINI() -> CMT710B2 := RETEXECBLOCK("MT710B2",{SB1->B1_COD,CALMOXD,CALMOXA},"C", NIL,NIL,NIL,LEXISTBB2)

MATA010.PRX - A010ALTERA() -> EXECBLOCK("MT010ALT",.F.,.F.)

MATA010.PRX - A010ALTERA() -> EXECBLOCK("MT010CAN",.F.,.F.,{NOPCA})

MATA010.PRX - A010ALTERA() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA010BUT", .F., .F. ) ) == "A"

MATA010.PRX - A010COPIA() -> EXECBLOCK("MT010CPCAN",.F.,.F.,{NOPCPE})

MATA010.PRX - A010COPIA() -> LCONTINUA := EXECBLOCK("MT010VLD",.F.,.F.)

MATA010.PRX - A010INCLUI() -> EXECBLOCK("MT010CAN",.F.,.F.,{NOPCA})

MATA010.PRX - A010INCLUI() -> EXECBLOCK("MT010INC",.F.,.F.)

MATA010.PRX - A010INCLUI() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA010BUT", .F., .F. ) ) == "A"

MATA010.PRX - A010INCPEC() -> LB5DESCRI:= EXECBLOCK("M010B5CP",.F.,.F.)

MATA010.PRX - A010LEREG() -> IF VALTYPE( ACPONOT := EXECBLOCK( "MTA010NC", .F., .F. ) ) <> "A"

MATA010.PRX - A010TUDOOK() -> LRET:= EXECBLOCK("A010TOK",.F.,.F.)

MATA010.PRX - A010VISUL() -> ACPOS:= EXECBLOCK("MT010VCP",.F.,.F.)

MATA010.PRX - A010VISUL() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA010BUT", .F., .F. ) ) == "A"

MATA010.PRX - A010VLSTR () -> LRET:= EXECBLOCK( "A010BPE", .F., .F.,{READVAR(),CCONTEUDO} )

MATA010.PRX - FLDNOCOPY() -> ARET := EXECBLOCK( "MTA010NC", .F., .F. )

MATA010.PRX - MATA010() -> ACORES := EXECBLOCK("MT010COR",.F.,.F.)

MATA010.PRX - MATA010() -> CFILPE := EXECBLOCK("M010FILB",.F.,.F.)

MATA010.PRX - MATA010() -> UFILPE := EXECBLOCK("MA010FIL",.F.,.F.)

MATA010.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("MT010BRW",.F.,.F.)

MATA010.PRX - MENUDEF() -> EXECBLOCK("MTA010MNU",.F.,.F.)

MATA010.PRX - MODELDEF() -> IF LMA010MEM .AND. VALTYPE(AMEMUSER := EXECBLOCK("MT010MEM", .F., .F.)) == "A"

MATA010.PRX - VIEWDEF() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA010BUT", .F., .F. ) ) == "A"

MATA010ALTERNATIVO.PRW - A010ALTPCP() -> OTELANEW:=EXECBLOCK("MT010GETD",.F.,.F.,{OTELA})

MATA010ALTERNATIVO.PRW - PCPALTLIOK() -> LRET := EXECBLOCK("MT010LIN",.F.,.F.)

MATA010EVPE.PRW - ACTIVATE() -> LRET :=EXECBLOCK( 'M010B5CP',.F.,.F., { XMODEL, NOPCX, LCOPY } )

MATA010EVPE.PRW - BEFORETTS() -> EXECBLOCK("MT010EXC",.F.,.F.)

MATA010EVPE.PRW - FIELDPOSVLD() -> LRET := EXECBLOCK("MTA010OK",.F.,.F.)

MATA010EVPE.PRW - GRIDLINEPOSVLD() -> LRET := EXECBLOCK("MT010LIN",.F.,.F.)

MATA010EVPE.PRW - INTTS() -> EXECBLOCK("MT010ALT",.F.,.F.)

MATA010EVPE.PRW - INTTS() -> EXECBLOCK("MT010INC",.F.,.F.)

MATA010EVPE.PRW - INTTS() -> EXECBLOCK("MTA010E",.F.,.F.)

MATA010M.PRX - A010AUTO() -> EXECBLOCK("MT010CAN",.F.,.F.,{NOK})

MATA010M.PRX - A010COPIA() -> LRETPE:=EXECBLOCK("MT010VLD",.F.,.F.)

MATA010M.PRX - A010DELETA() -> EXECBLOCK("MT010CAN",.F.,.F.,{NOK})

MATA010M.PRX - BROWSEDEF() -> ACORES := EXECBLOCK("MT010COR",.F.,.F.)

MATA010M.PRX - BROWSEDEF() -> CFILPE := EXECBLOCK("M010FILB",.F.,.F.)

MATA010M.PRX - MA010ALTER() -> EXECBLOCK("MT010CAN",.F.,.F.,{NOK})

MATA010M.PRX - MA010INCLU() -> EXECBLOCK("MT010CAN",.F.,.F.,{NOK})

MATA010M.PRX - REMOVEFIELDS() -> AAUX := EXECBLOCK("MT010VCP",.F.,.F.)

MATA015.PRX - A015FILTGR() -> IF LMT15FGRA .AND. VALTYPE(LRETPE:=EXECBLOCK('MT15FGRA', .F., .F.))=='L' .AND. !LRETPE

MATA015.PRX - A015TOK() -> LRET := EXECBLOCK('MT015TOK',.F.,.F.,{NOPC})

MATA018.PRX - A018DELETA() -> LCONTINUA:= EXECBLOCK("MT018DEL",.F.,.F.)

MATA018.PRX - A018TUDOOK() -> LMT018TOK:= EXECBLOCK("MT018TOK",.F.,.F.)

MATA018.PRX - MENUDEF() -> EXECBLOCK("MTA018MNU",.F.,.F.)

MATA019EVPE.PRW - AFTER() -> EXECBLOCK("M019GRV",.F.,.F.,{OSUBMODEL:AHEADER,OSUBMODEL:ACOLS})

MATA020.PRX - A020ALTERA() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA020BUT", .F., .F. ) ) == "A"

MATA020.PRX - A020DELETA() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA020BUT", .F., .F. ) ) == "A"

MATA020.PRX - A020INCLUI() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA020BUT", .F., .F. ) ) == "A"

MATA020.PRX - A020TUDOOK() -> LRETBKP := EXECBLOCK("MA020TDOK",.F.,.F.)

MATA020.PRX - A020VISUAL() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA020BUT", .F., .F. ) ) == "A"

MATA020.PRX - BROWSEDEF() -> CFILTRASA2 := ALLTRIM(EXECBLOCK("MA020FIL",.F.,.F.))

MATA020.PRX - FAVALSA2() -> EXECBLOCK("M020ALT",.F.,.F.,{CBCKFIL} )

MATA020.PRX - FAVALSA2() -> EXECBLOCK("M020EXC",.F.,.F.)

MATA020.PRX - FCANAVALSA2() -> LRETORNO := EXECBLOCK("A020DELE",.F.,.F.)

MATA020.PRX - FCANAVALSA2() -> LRETORNO := EXECBLOCK("A020EOK",.F.,.F.)

MATA020.PRX - FCANAVALSA2() -> LRETORNO := EXECBLOCK("EICPMS01",.F.,.F.,"CADFAB")

MATA020.PRX - FCANAVALSA2() -> LRETORNO := EXECBLOCK("MA020ALT",.F.,.F.)

MATA020.PRX - FCANAVALSA2() -> LRETORNO := EXECBLOCK("MA020TOK",.F.,.F.)

MATA020.PRX - FPOSINCFOR() -> EXECBLOCK("MT20FOPOS",.F.,.F.,{NOPCA})

MATA020.PRX - MATA020() -> CFILTRASA2 := ALLTRIM(EXECBLOCK("MA020FIL",.F.,.F.))

MATA020.PRX - MATA020IPG() -> LRETIPG := EXECBLOCK( 'MATA020IPG' , .F. , .F. , {NOPERATION} )

MATA020.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("MA020ROT", .F., .F.)

MATA020.PRX - MNTGET() -> AMT020FIL := EXECBLOCK("MT020FIL", .F.,.F.)

MATA020.PRX - MODELDEF() -> IF VALTYPE( AMEMUSER := EXECBLOCK( "MA020MEM", .F., .F. ) ) == "A"

MATA020.PRX - VIEWDEF() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA020BUT", .F., .F. ) ) == "A"

MATA020EVPE.PRW - AFTERTTS() -> EXECBLOCK("MT20FOPOS",.F.,.F.,{::NOPC})

MATA020EVPE.PRW - INTTS() -> EXECBLOCK("M020ALT",.F.,.F.,{CFILANT} )

MATA020EVPE.PRW - INTTS() -> EXECBLOCK("M020EXC",.F.,.F.)

MATA020EVPE.PRW - INTTS() -> EXECBLOCK("M020INC",.F.,.F.)

MATA020EVPE.PRW - MODELPOSVLD() -> LVALID := EXECBLOCK("A020DELE",.F.,.F.)

MATA020EVPE.PRW - MODELPOSVLD() -> LVALID := EXECBLOCK("A020EOK",.F.,.F.)

MATA020EVPE.PRW - MODELPOSVLD() -> LVALID := EXECBLOCK("EICPMS01",.F.,.F.,"CADFAB")

MATA020EVPE.PRW - MODELPOSVLD() -> LVALID := EXECBLOCK("MA020ALT",.F.,.F.)

MATA020EVPE.PRW - MODELPOSVLD() -> LVALID := EXECBLOCK("MA020TOK",.F.,.F.)

MATA022.PRW - VIEWDEF() -> ABUTTONS := EXECBLOCK("MA022BUT",.F.,.F.)

MATA030.PRX - BROWSEDEF() -> ACORES := EXECBLOCK( "MA030COR", .F., .F. )

MATA030.PRX - BROWSEDEF() -> CFILTRASA1 := EXECBLOCK("MA030BRW",.F.,.F.)

MATA030.PRX - MATA030REF() -> ANAOGD := EXECBLOCK( "MA030REF", .F., .F. )

MATA030.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("MA030ROT", .F., .F.)

MATA035.PRW - A035ALTERA() -> EXECBLOCK( "MA035ALT", .F., .F. )

MATA035.PRW - A035ALTERA() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA035BUT", .F., .F. ) ) == "A"

MATA035.PRW - A035DELETA() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA035BUT", .F., .F. ) ) == "A"

MATA035.PRW - A035INCLUI() -> EXECBLOCK( "MA035INC", .F., .F.)

MATA035.PRW - A035INCLUI() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA035BUT", .F., .F. ) ) == "A"

MATA035.PRW - A035POSVLD() -> EXECBLOCK( "MA035DEL", .F., .F. )

MATA035.PRW - MA035VALID() -> LRET := IF(VALTYPE(LRETPE := EXECBLOCK('MA035VLD',.F.,.F., { NOPC }))=='L', LRETPE, LRET)

MATA035.PRW - MATA035EX() -> LRET := EXECBLOCK("MT035EXC",.F.,.F.)

MATA035.PRW - MENUDEF() -> EXECBLOCK("MTA035MNU",.F.,.F.)

MATA035.PRW - MT035GRV() -> EXECBLOCK( CNAMEBLOCK, .F., .F.)

MATA035.PRW - VIEWDEF() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA035BUT", .F., .F. ) ) == "A"

MATA035EVDEF.PRW - AFTERTTS() -> IIF( LEXISTBLK, EXECBLOCK( CNAMEBLOCK, .F., .F. ), NIL )

MATA040.PRX - A040ALTERA() -> LRET := EXECBLOCK("MA040VLD",.F.,.F.,NOPC)

MATA040.PRX - A040EXCLUI() -> LRET := EXECBLOCK("MA040VLD",.F.,.F.,NOPC)

MATA040.PRX - A040INCLUI() -> LRET := EXECBLOCK("MA040VLD",.F.,.F.,NOPC)

MATA040.PRX - A040TUDOOK() -> LRET := EXECBLOCK("MA040TOK")

MATA040.PRX - BROWSEDEF() -> CFILTRO := EXECBLOCK("MA040BRW",.F.,.F.)

MATA040.PRX - FCANDELSA3() -> LRETORNO := EXECBLOCK("MT040VDE",.F.,.F.)

MATA040.PRX - MA040BUT() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA040BUT", .F., .F. ) ) == "A"

MATA040.PRX - MA040PAR() -> IIF(NOPC==3.AND. EXISTBLOCK("MA040DIN"),EXECBLOCK("MA040DIN",.F.,.F.),.F.)} }

MATA040.PRX - MA040PAR() -> LOCAL APARAM :={{|NOPC| IIF(NOPC==4.AND.EXISTBLOCK("MA040AAL"),EXECBLOCK("MA040AAL",.F.,.F.),.F.)},;

MATA040.PRX - MA040PAR() -> {|NOPC| IIF(NOPC==4.AND. EXISTBLOCK("MA040DAL"),EXECBLOCK("MA040DAL",.F.,.F.,NOPCA),.F.), MA40INTFIM(NOPC),;

MATA040.PRX - MA040PAR() -> {|NOPC| IIF(NOPC==5 .AND. EXISTBLOCK("MT040DEL"),EXECBLOCK("MT040DEL",.F.,.F.),.F.)},;

MATA050.PRX - M050TUDOK() -> LRETPT := EXECBLOCK( "M050TOK",.F.,.F.)

MATA050.PRX - MA050BUT() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA050BUT", .F., .F. ) ) == "A"

MATA050.PRX - MA050PRE() -> EXECBLOCK("MA050PRE",.F.,.F.,NOPC)

MATA050.PRX - MA050TTS() -> EXECBLOCK("MA050TTS",.F.,.F.)

MATA050.PRX - MENUDEF() -> AROTUSER := EXECBLOCK( "MA050ROT",.F.,.F.)

MATA060.PRX - A060MANUT() -> EXECBLOCK("MT060GRV",.F.,.F.)

MATA060.PRX - A060VALID() -> LRET := IF(VALTYPE(LRETPE := EXECBLOCK('MT060VLD', .F., .F.))=='L', LRETPE, LRET)

MATA060.PRX - MA060DELET() -> NOPCA := EXECBLOCK("MT060DEL",.F.,.F.,NOPCA)

MATA060.PRX - MENUDEF() -> EXECBLOCK ("MTA060MNU",.F.,.F.)

MATA065.PRX - A065DELOK() -> EXECBLOCK("MA065DEL",.F.,.F.)

MATA065.PRX - A065TUDOOK() -> LRET := EXECBLOCK("MA065TOK",.F.,.F.)

MATA070.PRX - A070ALTERA() -> LRET:= EXECBLOCK("M070VLUS",.F.,.F.,NOPC)

MATA070.PRX - A070INCLUI() -> EXECBLOCK("M070INFC",.F.,.F.)

MATA070.PRX - A070INCLUI() -> LRET:= EXECBLOCK("M070VLUS",.F.,.F.,NOPC)

MATA070.PRX - BROWSEDEF() -> CFILT := EXECBLOCK("M070BROW",.F.,.F.)

MATA070.PRX - M070CLIFOR() -> LRETURN := EXECBLOCK("MAT070OK")

MATA070.PRX - M070TUDOOK() -> LRET := EXECBLOCK("M070VEXC")

MATA070.PRX - M070VLDDEL() -> LRET := EXECBLOCK( "M070VLUS" , .F. , .F. , NOPC )

MATA070.PRX - MA070CPOS() -> ACMPS:= EXECBLOCK("FLDMA070",.F.,.F.)

MATA070.PRX - MATA070() -> EXECBLOCK("M070BROW",.F.,.F.)

MATA070.PRX - MENUDEF() -> EXECBLOCK("MTA070MNU",.F.,.F.)

MATA070.PRX - MT070COMM() -> EXECBLOCK("M070INFC",.F.,.F.)

MATA070.PRX - PE070VLUS() -> LRET := EXECBLOCK("M070VLUS",.F.,.F.,NOPC)

MATA080.PRX - A080DELETA() -> ABUTTONUSR := EXECBLOCK("MA080BUT",.F.,.F.,{NOPC})

MATA080.PRX - A080DELETA() -> EXECBLOCK("MT080EXC",.F.,.F.)

MATA080.PRX - A080MANUT() -> ABUTTONUSR := EXECBLOCK("MA080BUT",.F.,.F.,{NOPC})

MATA080.PRX - A081ALTERA() -> ABUTTONUSR := EXECBLOCK("MA080BUT",.F.,.F.,{NOPC})

MATA080.PRX - A081DELETA() -> ABUTTONUSR := EXECBLOCK("MA080BUT",.F.,.F.,{NOPC})

MATA080.PRX - A081DELETA() -> EXECBLOCK("MT081EXC",.F.,.F.)

MATA080.PRX - A081DELETA() -> LRET := EXECBLOCK("MA080VLD",.F.,.F., { NOPCA } )

MATA080.PRX - A081FORM() -> IF "EXECBLOCK" $ UPPER( CFORM )

MATA080.PRX - A081GRAVA() -> EXECBLOCK("MT080GRV",.F.,.F.)

MATA080.PRX - A081INCLUI() -> ABUTTONUSR := EXECBLOCK("MA080BUT",.F.,.F.,{NOPC})

MATA080.PRX - A081TUDOK() -> LRET := EXECBLOCK("MA081VLD",.F.,.F., { NOPC } )

MATA080.PRX - A081VISUAL() -> ABUTTONUSR := EXECBLOCK("MA080BUT",.F.,.F.,{NOPC})

MATA080.PRX - AJUSTELOK() -> LRET := EXECBLOCK("MA080VLD",.F.,.F., { NPOS } )

MATA080.PRX - AJUSTELOK() -> LRET := EXECBLOCK("MA080VLD",.F.,.F., { NPOSCLANAP } )

MATA080.PRX - AJUSTELOK() -> LRET := EXECBLOCK("MA080VLD",.F.,.F., { NPOSIPI } )

MATA080.PRX - COPIAVLD() -> LRET := EXECBLOCK("MA080VLD",.F.,.F., { 3 } )

MATA080.PRX - COPYSF4() -> LRET := EXECBLOCK("MA080VLD",.F.,.F., { 3 } )

MATA080.PRX - IPMLOK() -> LRET := EXECBLOCK("MA080VLD",.F.,.F., { NPOS } )

MATA080.PRX - MA080VALID() -> LRET := EXECBLOCK("MA080VLD",.F.,.F., { NOPC } )

MATA080.PRX - MENUDEF() -> AROTINA := EXECBLOCK("MA080MNU",.F.,.F.,{AROTINA})

MATA080.PRX - MT080GRV() -> EXECBLOCK("MT080GRV",.F.,.F.)

MATA089.PRW - A089TUDOK() -> CUNICO  :=  EXECBLOCK("MT089UNC",.F.,.F.,{CUNICO})

MATA089.PRW - A089TUDOK() -> LRET := EXECBLOCK("MT089TOK",.F.,.F.,{NOPCX})

MATA089.PRW - MATESINT() -> ARET:= EXECBLOCK("MT089CD",.T.,.T.,{BCOND,BSORT,BIRWHILE,BADDTES,CTABELA,CTPOPER})

MATA089.PRW - MATESINT() -> CRET := EXECBLOCK("MT089TES",.F.,.F.,{NENTSAI,CTPOPER,CCLIEFOR,CLOJA,CPRODUTO})

MATA089.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("MA089MNU",.F.,.F.)

MATA089.PRW - MENUDEF() -> EXECBLOCK("MA089MNU",.F.,.F.)

MATA089.PRW - MT089PREVAL() -> LRET := EXECBLOCK("MT089DEL",.F.,.F.)

MATA089.PRW - MT089PREVAL() -> LRET := EXECBLOCK("MT089TOK",.F.,.F.,{NOPCX})

MATA090.PRW - A090ALTERA() -> EXECBLOCK("MA090ATU",.F.,.F.,{ NOPC })

MATA090.PRW - A090COMMIT() -> EXECBLOCK("MA090ATU",.F.,.F.,{ NOPC })

MATA090.PRW - A090DELETA() -> EXECBLOCK("MA090ATU",.F.,.F.,{ NOPC })

MATA090.PRW - CALCINFLAC() -> EXECBLOCK("MA090ATU",.F.,.F.,{ 4 })

MATA090.PRW - CALCLINEAR() -> EXECBLOCK("MA090ATU",.F.,.F.,{ 4 })

MATA090.PRW - MENUDEF() -> EXECBLOCK("MTA090MNU",.F.,.F.)

MATA091.PRX - A091ALTERA() -> EXECBLOCK("MT091ALT",.F.,.F.)

MATA091.PRX - A091TUDOOK() -> LRET:= EXECBLOCK("A091TOK",.F.,.F.)

MATA093.PRX - A093F3OPT() -> ARET := EXECBLOCK("MT093OPT",.F.,.F.,{BWHILE, AFIELDS, BFOR, BINIT})

MATA093.PRX - A093INCLOK() -> IF LRUN093GERA .AND. VALTYPE(LRET093GERA := EXECBLOCK("A093GERA", .F., .F., {CBASE})) == "L" .AND. ! LRET093GERA

MATA093.PRX - A093MONTACOD() -> BVALID:= &('{|| (VAZIO() .OR. A093EXISTCPO("SBX", "' + SBQ->BQ_CONJUNT + '" + ' + "M->_" + A093IDREC(CBASE,SBQ->BQ_ID) + ')) .AND. IF(EXISTBLOCK("MT093VCR"),EXECBLOCK("MT093VCR",.F.,.F.,{"'+SBQ->BQ_ID+'",M->'+CVAR+'}),.T.) .AND. A093INIDSC ("'+SBQ->BQ_ID+'",AOBJ)}')

MATA093.PRX - A093MONTACOD() -> BVALID:= &('{|| (VAZIO() .OR. A098VLDGETIN(' + ALLTRIM(STR(SBQ->BQ_INTDE)) + ', ' + ALLTRIM(STR(SBQ->BQ_INTATE)) + ', ' + ALLTRIM(STR(SBQ->BQ_INTSTEP)) + ', M->_' + A093IDREC(CBASE,SBQ->BQ_ID) + ')) .AND. IF(EXISTBLOCK("MT093VCR"),EXECBLOCK("MT093VCR",.F.,.F.,{"'+SBQ->BQ_ID+'",M->'+CVAR+'}),.T.) .AND. A093INIDSC ("'+SBQ->BQ_ID+'",AOBJ)}')

MATA093.PRX - A093PADSBP() -> EXECBLOCK("A093SBR", .F., .F.)

MATA093.PRX - A093PROD() -> CCOD := EXECBLOCK("MT093CFG",.F.,.F.,{CCONTVAR})

MATA093.PRX - A093VLDCOD() -> CCODNEW := EXECBLOCK("A093ACOD",.F.,.F.,{CCODPRD, CDESPRD, ACOD,ACODGRD,LGERA})

MATA093.PRX - A093VLDCOD() -> EXECBLOCK("MT093B1",.F.,.F.)

MATA093.PRX - A093VLDCOD() -> IF VALTYPE(CRETDESC := EXECBLOCK("A093DESC", .F., .F., {CCODPRD, CDESPRD, ACOD})) == "C" .AND. ! EMPTY(CRETDESC)

MATA093.PRX - A093VLDSBU() -> CMSG := EXECBLOCK("A093MSG",.F.,.F.,{CCONDOLD})

MATA093.PRX - A093ZERESTR() -> EXECBLOCK("MT093G1",.F.,.F.)

MATA093.PRX - MENUDEF() -> EXECBLOCK("MTA093MNU", .F., .F.)

MATA094.PRW - A094COMMIT() -> EXECBLOCK("CNALCFLG", .F., .F., {LEFT(SCR->CR_NUM,NTAMX3),,"IR"})

MATA094.PRW - A094COMMIT() -> EXECBLOCK("CNALCFLG", .F., .F., {LEFT(SCR->CR_NUM,NTAMX3),,"RV"})

MATA094.PRW - A094COMMIT() -> EXECBLOCK("MT094END",.F.,.F.,{(OFIELDSCR:GETVALUE("CR_NUM")),(OFIELDSCR:GETVALUE("CR_TIPO")),VAL(SUBSTR(CIDOPTION,3,1)),(OFIELDSCR:GETVALUE("CR_FILIAL"))})

MATA094.PRW - A094COMMIT() -> EXECBLOCK("MTSOLICAT", .F., .F., {"IR",AFLUIGIR[NI],"CN9","CR_NUM"})

MATA094.PRW - A094FILPRD() -> CCAMPOSPE := EXECBLOCK("MT094CPC",.F.,.F.)

MATA094.PRW - A094PCOLAN() -> LLANPCO := EXECBLOCK("A097PCO",.F.,.F.,{SC7->C7_NUM,CNAME,LLANPCO})

MATA094.PRW - A094TUDOOK() -> (LCNCLRAGFLG .AND. !EXECBLOCK("CNCLRAGFLG", .F., .F., {SCR->CR_FLUIG})) ;

MATA094.PRW - A094TUDOOK() -> AAGLUTFLG := EXECBLOCK("CNVERAGFLG", .F., .F., {SCR->CR_TIPO,SCR->CR_NUM,SCR->CR_FLUIG})

MATA094.PRW - A094VLDEST() -> EXECBLOCK("MT094END",.F.,.F.,{SCR->CR_NUM,SCR->CR_TIPO,VAL(SUBSTR(CIDOPTION,3,1)),SCR->CR_FILIAL})

MATA094.PRW - A94EXLIBER() -> LRET := EXECBLOCK("MT094LOK",.F.,.F.)

MATA094.PRW - MATA094() -> IF VALTYPE( AMT094LEG := EXECBLOCK("MT094LEG",.F.,.F.,{ALEGENDA}) ) == "A"

MATA094.PRW - MATA094() -> XFILTROUS := EXECBLOCK( "MT094FIL", .F., .F. )

MATA094.PRW - MENUDEF() -> IF VALTYPE(AACOES := EXECBLOCK( "MTA094RO", .F., .F., {AROTINA}) ) == "A"

MATA094.PRW - MODELDEF() -> CCAMPOPC := EXECBLOCK( "MT094CCR", .F., .F.)

MATA094.PRW - MODELDEF() -> CCAMPOPC := EXECBLOCK( "MT094CPC", .F., .F.)

MATA094.PRW - VIEWDEF() -> CCAMPOPC := EXECBLOCK( "MT094CCR", .F., .F.)

MATA094.PRW - VIEWDEF() -> CCAMPOPC := EXECBLOCK( "MT094CPC", .F., .F.)

MATA097.PRX - A097APROV() -> LCONTINUA := IF (VALTYPE(LCONTINUA:= EXECBLOCK("MT097AUS",.F.,.F.)) == "L",LCONTINUA,.T.)

MATA097.PRX - A097ESTORNA() -> EXECBLOCK("MT097EST",.F.,.F.)

MATA097.PRX - A097ESTORNA() -> EXECBLOCK("MT97EXPOS",.F.,.F.)

MATA097.PRX - A097LIBVAL() -> (LA097APRFLG .AND. EXECBLOCK("A097APRFLG", .F., .F., {SCR->CR_TIPO})) ;

MATA097.PRX - A097PROCLIB() -> EXECBLOCK("MT097APR",.F.,.F.)

MATA097.PRX - A097PROCLIB() -> IF EXECBLOCK("MTA097",.F.,.F.)

MATA097.PRX - A097PROCLIB() -> LLANPCO := EXECBLOCK("A097PCO",.F.,.F.,{SC7->C7_NUM,CNAME,LLANPCO})

MATA097.PRX - A097PROCSUP() -> IF EXECBLOCK("MTA097S",.F.,.F.)

MATA097.PRX - A097PROCTF() -> IF EXECBLOCK("MTA097S",.F.,.F.)

MATA097.PRX - A097VALOBS() -> LOBS := EXECBLOCK("MT097OBS",.F.,.F.,{COBS})

MATA098.PRX - MENUDEF() -> EXECBLOCK("MTA098MNU",.F.,.F.)

MATA100.PRW - A100CLASSI() -> EXECBLOCK("MT100AGR",.F.,.F.)

MATA100.PRW - A100CLASSI() -> EXECBLOCK("MT100CLA",.F.,.F.)

MATA100.PRW - A100DELETA() -> CTPTIT := EXECBLOCK("A100TPTI",.F.,.F.)

MATA100.PRW - A100DELETA() -> EXECBLOCK("SD1100E",.F.,.F.)

MATA100.PRW - A100DELETA() -> EXECBLOCK("SF1100E",.F.,.F.)

MATA100.PRW - A100DELETA() -> IF !(EXECBLOCK("A100DEL",.F.,.F.))

MATA100.PRW - A100DELETA() -> IF !(EXECBLOCK("A100EXC",.F.,.F.))

MATA100.PRW - A100F4() -> ANEW := EXECBLOCK("MT100C7C", .F., .F., ACAB)

MATA100.PRW - A100F4() -> ANEW := EXECBLOCK("MT100C7D", .F., .F., AARRAYF4[LEN(AARRAYF4)])

MATA100.PRW - A100INCLUI() -> EXECBLOCK("MT100AGR",.F.,.F.)

MATA100.PRW - A100INCLUI() -> NAUXITENS:= EXECBLOCK("A100ITNF",.F.,.F.)

MATA100.PRW - A100INCLUI() -> SETKEY( VK_F4, { || EXECBLOCK("A100F4PC",.F.,.F.) } )

MATA100A.PRX - A100DNATU() -> NIRRF := EXECBLOCK("MT100NAT",.F.,.F.,NIRRF)

MATA100A.PRX - A100DUPL() -> A100CND2:=EXECBLOCK("A100CND2",.F.,.F.,{AHEADAUX,ACOLSAUX})

MATA100A.PRX - A100DUPL() -> ARETORNO := EXECBLOCK("MT100DP",.F.,.F.,{ CPREFIXO,CNUMERO })

MATA100A.PRX - A100GRAVA() -> ARETIRRF := EXECBLOCK( "MT100IR",.F.,.F., {NITMIRRF,NVALDUP,NX} )

MATA100A.PRX - A100GRAVA() -> EXECBLOCK("GQREENTR",.F.,.F.)

MATA100A.PRX - A100GRAVA() -> EXECBLOCK("M100GRAV",.F.,.F., { SD1->D1_REMITO, SD1->D1_ITEMREM, CNFISCAL, CSERIE, NX },.T. )

MATA100A.PRX - A100GRAVA() -> EXECBLOCK("MT100GE2",.F.,.F.)

MATA100A.PRX - A100GRAVA() -> EXECBLOCK("SD1100I",.F.,.F.,{LCONFRETE,LCONIMP})

MATA100A.PRX - A100GRAVA() -> EXECBLOCK("SF1100I",.F.,.F.)

MATA100A.PRX - A100GRAVA() -> EXECBLOCK('QIEA210T', .F., .F., {'EST'})

MATA100A.PRX - A100GRAVA() -> NVALINSS := EXECBLOCK( "MT100INS",.F.,.F., {NVALINSS} )

MATA100A.PRX - A100GRVCMIMP() -> EXECBLOCK("MREM002",.F.,.F.)

MATA100A.PRX - A100GRVCMIMP() -> EXECBLOCK("MT102SB2",.F.,.F.)

MATA100A.PRX - A100VRODAPE() -> NSEGURO:=EXECBLOCK("A100BD",.F.,.F.)

MATA100A.PRX - DOCONTABIL() -> A100CND1:=EXECBLOCK("A100CND1",.F.,.F.)

MATA100A.PRX - DOCONTABIL() -> NBASEDUP:=EXECBLOCK("A100VLR",.F.,.F.)

MATA100B.PRX - A100CALC() -> EXECBLOCK("SF3COMPL",.F.,.F.)

MATA100B.PRX - A100CALC() -> NVALIPI := EXECBLOCK("M100IPI",.F.,.F.,{NVALIPI,NX})

MATA100B.PRX - A100TUDOK() -> LRET := EXECBLOCK("MT100TOK",.F.,.F.,{LRET})

MATA100C.PRX - A100CALCSOLIT() -> ARET := EXECBLOCK("MT100RET",.F.,.F.,{N})

MATA100C.PRX - A100CALCSOLIT() -> NBSICMSRET := EXECBLOCK("MT100SOL",.F.,.F.,{NBASEITEM+IF(SF4->F4_INCIDE!='S',NVIPI,0)})

MATA103.PRW - A103ATUSE2() -> AMT103ISS:=EXECBLOCK( "MT103ISS" , .F. , .F. , { CFORNISS , CLOJAISS , CDIRF , CCODRET , DVENCISS })

MATA103.PRW - A103ATUSE2() -> ARETIRRF := EXECBLOCK( "MT100IR",.F.,.F., {SE2->E2_IRRF,ACOLSSE2[NX][NPVALOR],NX} )

MATA103.PRW - A103ATUSE2() -> EXECBLOCK("M103DSE2",.F.,.F.)

MATA103.PRW - A103ATUSE2() -> EXECBLOCK("MT100GE2",.F.,.F.,{ACOLSSE2[NX],NOPCA,AHEADSE2,NX,ACOLSSE2})

MATA103.PRW - A103ATUSE2() -> SE2->E2_COFINS := EXECBLOCK( "MT100COF",.F.,.F.,{SE2->E2_COFINS})

MATA103.PRW - A103ATUSE2() -> SE2->E2_CSLL := EXECBLOCK( "MT100CSL",.F.,.F.,{SE2->E2_CSLL})

MATA103.PRW - A103ATUSE2() -> SE2->E2_FETHAB := EXECBLOCK( "MT100FET",.F.,.F.,{SE2->E2_FETHAB})

MATA103.PRW - A103ATUSE2() -> SE2->E2_INSS := EXECBLOCK( "MT100INS",.F.,.F.,{SE2->E2_INSS})

MATA103.PRW - A103ATUSE2() -> SE2->E2_PIS := EXECBLOCK( "MT100PIS",.F.,.F.,{SE2->E2_PIS})

MATA103.PRW - A103BAR() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA103BUT", .F., .F.,{AINFO} ) ) == "A"

MATA103.PRW - A103CUSTO() -> URET := EXECBLOCK("A103CUST",.F.,.F.,{ARET})

MATA103.PRW - A103FORF4() -> CQUERYQPC := EXECBLOCK("MT103QPC",.F.,.F.,{CQUERYC7,1})

MATA103.PRW - A103FORF4() -> EXECBLOCK("MA103F4L", .F., .F., { AF4FOR, ARECSC7 } )

MATA103.PRW - A103FORF4() -> IF VALTYPE( AUSCONT := EXECBLOCK( "MA103F4I", .F., .F. ) ) == "A"

MATA103.PRW - A103FORF4() -> IF VALTYPE( AUSTITU := EXECBLOCK( "MA103F4H", .F., .F. ) ) == "A"

MATA103.PRW - A103FORF4() -> LRET103VPC := EXECBLOCK("MT103VPC",.F.,.F.)

MATA103.PRW - A103FORF4() -> LRETAPC := EXECBLOCK("MT103APC",.F.,.F.)

MATA103.PRW - A103GRAVA() -> AMT103RTC := EXECBLOCK( "MT103RTC", .F., .F.,{AHEADSDE,ACOLSSDE})

MATA103.PRW - A103GRAVA() -> AMT103RTE := EXECBLOCK( "MT103RTE", .F., .F.,{AHEADSDE,ACOLSSDE,NX})

MATA103.PRW - A103GRAVA() -> CMT103APV := EXECBLOCK("MT103APV",.F.,.F.)

MATA103.PRW - A103GRAVA() -> EXECBLOCK("CONAUXNF",.F.,.F.,{"SF1"})

MATA103.PRW - A103GRAVA() -> EXECBLOCK("GQREENTR",.F.,.F.)

MATA103.PRW - A103GRAVA() -> EXECBLOCK("M103GERT",.F.,.F.,{1,ARECSE2,AHEADSE2,ACOLSSE2,AHEADSEV,ACOLSSEV,CFORNISS,CLOJAISS,CDIRF,CCODRET,CMODRETPIS,NINDEXSE2,ASEZ,DVENCISS,CMDRTISS,SF1->F1_TXMOEDA,LTXNEG,ARECGERSE2,CA2FRETISS,CB1FRETISS,AMULTAS,LRATLIQ,LRATIMP,ACODR,CRECISS})

MATA103.PRW - A103GRAVA() -> EXECBLOCK("M103GERT",.F.,.F.,{2,ARECSE2})

MATA103.PRW - A103GRAVA() -> EXECBLOCK("M103L665",.F.,.F.,{CLOTE,NHDLPRV,CARQUIVO,LDIGITA,LAGLUTINA})

MATA103.PRW - A103GRAVA() -> EXECBLOCK("QIEIMPRL",.F.,.F.,{NOPER})

MATA103.PRW - A103GRAVA() -> EXECBLOCK("SD1100E",.F.,.F.,{LCONFRETE,LCONIMP})

MATA103.PRW - A103GRAVA() -> EXECBLOCK("SD1100I",.F.,.F.,{LCONFRETE,LCONIMP,NOPER})

MATA103.PRW - A103GRAVA() -> EXECBLOCK("SDE100I",.F.,.F.,{LCONFRETE,LCONIMP,NOPER,LEN(ACOLSSDE[NY][2])})

MATA103.PRW - A103GRAVA() -> EXECBLOCK("SF1100E",.F.,.F.)

MATA103.PRW - A103GRAVA() -> EXECBLOCK("SF1100I",.F.,.F.)

MATA103.PRW - A103GRAVA() -> EXECBLOCK("SF1TTS",.F.,.F.)

MATA103.PRW - A103GRAVA() -> LCHKDUP:= EXECBLOCK("A1031DUP",.F.,.F.)

MATA103.PRW - A103GRAVA() -> LEXCMSDOC:=EXECBLOCK("MT103MSD",.F.,.F.,{})

MATA103.PRW - A103GRAVA() -> LGERAGUIA := EXECBLOCK("MT103GUIA",.F.,.F.,{"SF1","SA2",XFILIAL("SA2"),SF1->F1_FORNECE,SF1->F1_LOJA,SF1->F1_ESPECIE})

MATA103.PRW - A103GRAVA() -> LRETGRV := EXECBLOCK("MT100GRV",.F.,.F.,{LDELETA})

MATA103.PRW - A103GRAVA() -> LRETGRV := EXECBLOCK("MT103DIRF",.F.,.F.,{ACODR})

MATA103.PRW - A103GRAVA() -> LRETMT103BXCR := EXECBLOCK("MT103BXCR",.F.,.F.,{NTOTALDEV,ARECSE1,ARECNCC})

MATA103.PRW - A103GRVATF() -> AATFPMS := EXECBLOCK("MT103AFN",.F.,.F.,{APARAMAFN,SF4->F4_ATUATF,SF4->F4_BENSATF,LATFDCBA})

MATA103.PRW - A103GRVATF() -> APE := EXECBLOCK("MA103ATF",.F.,.F.,{ACAB,AITENS})

MATA103.PRW - A103GRVATF() -> ARETATF:=EXECBLOCK ("ATFA006102", .F., .F., {NOPC, CBASE, CITEM, CCODCIAP, NVLRCIAP})

MATA103.PRW - A103GRVCLA() -> EXECBLOCK("MT103CLAS",.F.,.F.,{ACOLSSE2,CNATUREZA})

MATA103.PRW - A103GRVCLA() -> LMT103MSG:=EXECBLOCK("MT103MSG",.F.,.F.)

MATA103.PRW - A103IMPRI() -> EXECBLOCK( CPRINTER, .F., .F., { CALIAS, NRECNO, NOPC } )

MATA103.PRW - A103ITEMPC() -> AMT103FRE := EXECBLOCK("MT103FRE",.F.,.F.,ARATEIO)

MATA103.PRW - A103ITEMPC() -> ANEW := EXECBLOCK("MT100C7C", .F., .F., ACAB)

MATA103.PRW - A103ITEMPC() -> ANEW := EXECBLOCK("MT100C7D", .F., .F., AARRAYF4[LEN(AARRAYF4)])

MATA103.PRW - A103ITEMPC() -> ASIZEC7T := EXECBLOCK("MT103C7T",.F.,.F.,{ASIZEPED})

MATA103.PRW - A103ITEMPC() -> CQUERYQPC := EXECBLOCK("MT103QPC",.F.,.F.,{CQUERY,2})

MATA103.PRW - A103ITEMPC() -> EXECBLOCK("M103PCIT",.F.,.F.)

MATA103.PRW - A103ITEMPC() -> EXECBLOCK("MT100C7L", .F., .F., { AARRAYF4, AARRSLDO })

MATA103.PRW - A103ITEMPC() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MTIPCBUT", .F., .F. ) ) == "A"

MATA103.PRW - A103ITEMPC() -> LRET103VPC := EXECBLOCK("MT103VPC",.F.,.F.)

MATA103.PRW - A103ITEMPC() -> LRETBPC := EXECBLOCK("MT103BPC",.F.,.F.)

MATA103.PRW - A103ITEMPC() -> N103TXPC := EXECBLOCK("MT103TXPC",.F.,.F.)

MATA103.PRW - A103ITEMPC() -> NOPCA := IF(VALTYPE(NMT103SEL:=EXECBLOCK("MT103SEL",.F.,.F.,{AARRSLDO[NX][2]}))=='N',NMT103SEL,NOPCA)

MATA103.PRW - A103LEGENDA() -> ALEGEUSR := EXECBLOCK("MT103LEG",.F.,.F.,{ALEGENDA})

MATA103.PRW - A103LINOK() -> CRETTES := EXECBLOCK("MT103TPC",.F.,.F.,{CTESPCNF})

MATA103.PRW - A103LINOK() -> LRET := EXECBLOCK("MT100LOK",.F.,.F.,{LRET})

MATA103.PRW - A103LINOK() -> LRET := EXECBLOCK("MTA103OK",.F.,.F.,{LRET})

MATA103.PRW - A103MNAT() -> ACR := EXECBLOCK("MT103MNT",.F.,.F.,{AHEADSEV, ACOLSSEV})

MATA103.PRW - A103NFISCAL() -> AADD(AVLDBLOCK,{||VAZIO(CNATUREZA).OR.(EXISTCPO('SED',CNATUREZA).AND.NFEVLDREF("NF_NATUREZA",CNATUREZA)) .AND. IF(LMT103NAT,EXECBLOCK("MT103NAT",.F.,.F.,CNATUREZA),.T.)})

MATA103.PRW - A103NFISCAL() -> ACOLSSDE := EXECBLOCK( "MT103RCC", .F., .F.,{AHEADSDE,ACOLSSDE})

MATA103.PRW - A103NFISCAL() -> ADIRFRT := EXECBLOCK("MT103DRF",.F.,.F.,{NCOMBO,CCODRET,@OCOMBO,@OCODRET})

MATA103.PRW - A103NFISCAL() -> AMT103BCLA := EXECBLOCK("MT103BCLA",.F.,.F.)

MATA103.PRW - A103NFISCAL() -> AMT103CTB := EXECBLOCK("MT103CTB",.F.,.F.,{ACTBINF,L103EXCLUI,LEXCCMPADT})

MATA103.PRW - A103NFISCAL() -> EXECBLOCK("MT100AG",.F.,.F.)

MATA103.PRW - A103NFISCAL() -> EXECBLOCK("MT100AGR",.F.,.F.)

MATA103.PRW - A103NFISCAL() -> EXECBLOCK("MT100CLA",.F.,.F.)

MATA103.PRW - A103NFISCAL() -> EXECBLOCK("MT103CAN",.F.,.F.)

MATA103.PRW - A103NFISCAL() -> EXECBLOCK("MT103FIM",.F.,.F.,{AROTINA[NOPCX,4],NOPC})

MATA103.PRW - A103NFISCAL() -> EXECBLOCK("MT103NFE",.F.,.F.,NOPCX)

MATA103.PRW - A103NFISCAL() -> IF !EXECBLOCK("MT103PN",.F.,.F.,)

MATA103.PRW - A103NFISCAL() -> IF VALTYPE(AMEMUSER := EXECBLOCK( "MT103MEM", .F., .F. ) ) == "A"

MATA103.PRW - A103NFISCAL() -> LVLDEXC := EXECBLOCK("MT103EXC",.F.,.F.)

MATA103.PRW - A103NFORI() -> EXECBLOCK("PNEU002",.F.,.F.)

MATA103.PRW - A103PROCPC() -> AMT103FRE := EXECBLOCK("MT103FRE",.F.,.F.,ARATEIO)

MATA103.PRW - A103PROCPC() -> AMT103NPC := EXECBLOCK("MT103NPC",.F.,.F.,{AHEADSEV,ACOLSSEV})

MATA103.PRW - A103PROCPC() -> LPEVLDPC := EXECBLOCK("M120VLPC",.F.,.F.,{@AF4FOR,LNFMEDIC,LUSAFISCAL})

MATA103.PRW - A103PROCPC() -> LRET103VPC := EXECBLOCK("MT103VPC",.F.,.F.)

MATA103.PRW - A103PROCPC() -> N103TXPC := EXECBLOCK("MT103TXPC",.F.,.F.)

MATA103.PRW - A103RATVEI() -> ACPOSSDG := EXECBLOCK("MA103SDG",.F.,.F.,CCPOSSDG)

MATA103.PRW - A103TEMBLQ() -> LRET:= EXECBLOCK("A103BLOQ",.F.,.F.,{LRET})

MATA103.PRW - A103TEMBLQ() -> LVERIFICA := EXECBLOCK("MT103NBL",.F.,.F.,{})

MATA103.PRW - A103TRFIL() -> LRET := EXECBLOCK("A103VLQT",.F.,.F.,{LRET})

MATA103.PRW - A103TRFSLD() -> EXECBLOCK("MT103TRF",.F.,.F.,{NTIPO,SD1->D1_FILIAL,SD1->D1_DOC,SD1->D1_SERIE,SD1->D1_FORNECE,SD1->D1_LOJA,SD1->D1_COD,SD1->D1_ITEM})

MATA103.PRW - A103TRFSLD() -> LVLDPE:= EXECBLOCK("A103TRFVLD",.F.,.F.,{NTIPO,LDELETA})

MATA103.PRW - A103TUDOK() -> AMT103GCT := EXECBLOCK("MT103GCT",.F.,.F.,{ACOLS,NX,NPOSMED})

MATA103.PRW - A103TUDOK() -> LMT103PBLQ:=EXECBLOCK("MT103PBLQ",.F.,.F.,{APRDBLQ})

MATA103.PRW - A103TUDOK() -> LPE := EXECBLOCK("MT100TOK",.F.,.F.,{LRET})

MATA103.PRW - A103VALSD4() -> LVALIDA:=EXECBLOCK("A103VSG1",.F.,.F.)

MATA103.PRW - A103VLDDANFE() -> LRETDANFE := EXECBLOCK("MT103DNF",.F.,.F.,{ANFEDANFE,ANFELETR})

MATA103.PRW - A103VLDEXC() -> LCONTINUA := EXECBLOCK("A103VLEX",.F.,.F.)

MATA103.PRW - A103VLDEXC() -> LVLDEXC := EXECBLOCK("MT103EXC",.F.,.F.)

MATA103.PRW - A103VLDGER() -> LRETVLDGER := EXECBLOCK("MTCHKNFE",.F.,.F.,{ANFELETR})

MATA103.PRW - DIGENDLOK() -> LMT103END:=EXECBLOCK("MT103END",.F.,.F.,{CPROD,CLOCAL,GDFIELDGET("DB_LOCALIZ",OGETSDB:NAT,,OGETSDB:AHEADER,OGETSDB:ACOLS)})

MATA103.PRW - FATIVA() -> EXECBLOCK("MT103SX1",.F.,.F.)

MATA103.PRW - M103FILDV() -> ALINHA := EXECBLOCK("MT103LDV",.F.,.F.,{ALINHA,CALIASSD2})

MATA103.PRW - M103FILDV() -> IF !LMT103FDV .OR. EXECBLOCK("MT103FDV",.F.,.F.,{CALIASSD2})

MATA103.PRW - MATA103() -> ACORESUSR := EXECBLOCK("MT103COR",.F.,.F.,{ACORES})

MATA103.PRW - MATA103() -> CFILTRO := EXECBLOCK("M103FILB",.F.,.F.)

MATA103.PRW - MATA103() -> EXECBLOCK("M103BROW",.F.,.F.)

MATA103.PRW - MENUDEF() -> EXECBLOCK("MTA103MNU",.F.,.F.)

MATA103.PRW - MONTAACOLS() -> A103CLASIMP := EXECBLOCK("A103CLAS",.F.,.F.,{CALIASSD1})

MATA103.PRW - NFECALCRET() -> AFIL10925 := EXECBLOCK( "MT103FRT", .F., .F. )

MATA103A.PRX - NFENFECOB() -> APE := EXECBLOCK("MT103SDH",.F.,.F.,{ACAB,AITENS})

MATA103R.PRX - A103FLDBRW() -> CCAMPOS := EXECBLOCK("MT103CAM",.F.,.F.)

MATA103X.PRX - A103ALERT() -> LRET:=EXECBLOCK("M103XLERT",.F.,.F.)

MATA103X.PRX - A103CALCRT() -> EXECBLOCK("MT103RET", , ,{NRADIO,NOPCA})

MATA103X.PRX - A103CHWHEN() -> LRET:=EXECBLOCK("MT103CWH",.F.,.F.,{CCAMPO,CCONTEUDO,LCLASSIF})

MATA103X.PRX - A103CODR() -> LCODR := EXECBLOCK("M103CODR",.F.,.F.,{ACODR})

MATA103X.PRX - A103COMPDANFE() -> ACOMPDANFE:=EXECBLOCK("MT103DCF",.F.,.F.,{INCLUI,ALTERA,L103VISUAL,ADANFECOMP})

MATA103X.PRX - A103DIVIMP() -> ACOLSIMP := EXECBLOCK("COLDVIMP",.F.,.F.,{"MATA103",ACOLSIMP})

MATA103X.PRX - A103EXSTNF() -> ASERALTERN := EXECBLOCK("M103ALTS",.F.,.F.,{CNFISCAL,CSERIE,CA100FOR,CLOJA})

MATA103X.PRX - A103INICPO() -> ATRIGGERCPO:= EXECBLOCK("MT103CPO",.F.,.F.,{ATRIGGERCPO})

MATA103X.PRX - A103INICPO() -> URET := EXECBLOCK( 'MT103DTLT', .F., .F., {ACOLS[N][NPOSCOD], ;

MATA103X.PRX - A103ITDEV() -> EXECBLOCK("MT103SF1",.F.,.F.,{ ACOLS , NPOSNFORI , NPOSSERORI })

MATA103X.PRX - A103ITDEV() -> EXECBLOCK("MT103SF2",.F.,.F.,{ ACOLS , NPOSNFORI , NPOSSERORI })

MATA103X.PRX - A103LCF() -> LRET103 := EXECBLOCK("MT103LCF",.F.,.F.,{CCAMPO})

MATA103X.PRX - A103NFELET() -> ARETPE := EXECBLOCK("M103NFEL",.F.,.F.,{CCAMPOVLD,CUF,ANFELETR,ANFEDANFE,AINFADIC})

MATA103X.PRX - A103RECAL() -> AFIL10925 := EXECBLOCK( "MT103FRT", .F., .F. )

MATA103X.PRX - A103TRAVA() -> ARETORNO  := EXECBLOCK("MT103TRV",.F.,.F.,{CA100FOR,CLOJA,IIF(CTIPO$"DB","C","F")})

MATA103X.PRX - A103VALESTNEG() -> LRET:=EXECBLOCK("MT103ENEG",.F.,.F.,{CALIASSD1})

MATA103X.PRX - A103VLDCC() -> AMUDA := EXECBLOCK("MT103VCC",.F.,.F.,AMUDA)

MATA103X.PRX - COLLOADDIV() -> ACOLSIMP := EXECBLOCK("COLDVIMP",.F.,.F.,{"MATA103",ACOLSIMP})

MATA103X.PRX - MAAVALSD1() -> EXECBLOCK("QIEA210T",.F.,.F.,{"EST"})

MATA103X.PRX - MAAVALSD1() -> LENVCQPE := EXECBLOCK("ENVCQMAT",.F.,.F.,{LENVIACQ})

MATA103X.PRX - MAAVALSD1() -> LENVIACQ := EXECBLOCK("ENVCQQUA",.F.,.F.)

MATA103X.PRX - MAAVALSD1() -> LOCAL LTPNFQIE  := IIF(EXISTBLOCK("MT103QIETP"),EXECBLOCK("MT103QIETP",.F.,.F.),.F.)

MATA103X.PRX - MAAVALSD1() -> NPCOCOMPRA := EXECBLOCK("MT103UPC",.F.,.F.)

MATA103X.PRX - MAAVALSD1() -> NPCOCOMPRA := EXECBLOCK("MT103UPC",.F.,.F.,)

MATA103X.PRX - MAAVALSD1() -> STATIC LINSPEC  := IIF(EXISTBLOCK("Q103INSP"),EXECBLOCK("Q103INSP",.F.,.F.),.F.)

MATA103X.PRX - MAAVALSF1() -> LATUSA2 := EXECBLOCK("MT103TRV",.F.,.F.,{SF1->F1_FORNECE,SF1->F1_LOJA,"F"})[2]

MATA103X.PRX - MACANDELF1() -> ARETXFIN:= EXECBLOCK ("M103XFIN", .F., .F. , {LAVISO,LAVISOISS})

MATA103X.PRX - MACANDELF1() -> CASE L100DEL .AND. !(EXECBLOCK("A100DEL",.F.,.F.))

MATA103X.PRX - MACANDELF1() -> CNATGILRAT:= EXECBLOCK("NTFUNR",.F.,.F.,{SE2->E2_ORIGEM,SE2->E2_PREFIXO})

MATA103X.PRX - MACANDELF1() -> LRETAPO := EXECBLOCK("M103APO",.F.,.F.)

MATA103X.PRX - MACANDELF1() -> LRETORNO:=EXECBLOCK ("M103XATF", .F., .F., {CALIASSD1})

MATA103X.PRX - NFECARCC() -> AMT103PRE := EXECBLOCK( "MT103PRE", .F., .F.,{AHEADER,ACOLS})

MATA103X.PRX - NFECOMPLFF() -> LGRAVA := EXECBLOCK("M103NFC",.F.,.F.,{LGRAVA .AND. NTIPO == 1,NPROPORC})

MATA103X.PRX - NFEFLDFIN() -> ACOLSPE:= EXECBLOCK("MTCOLSE2",.F.,.F.,{ACOLSSE2,0})

MATA103X.PRX - NFEFLDFIN() -> ACPOSPE:= EXECBLOCK("MT103SE2",.F.,.F.,{AHEADSE2,LVISUAL})

MATA103X.PRX - NFEFLDFIN() -> ANFEGDSEV := EXECBLOCK("NFEGDSEV", .F., .F.)

MATA103X.PRX - NFEFLDFIN() -> L103BDP:=EXECBLOCK("MT103BDP",.F.,.F.,{})

MATA103X.PRX - NFEFLDFIN() -> OCONDICAO:LREADONLY := (IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK("MT103GET",.F.,.F.),!LALTERA) .AND. MAFISFOUND("NF") .AND. CTIPO <> "D") .OR. CTIPO == 'D'

MATA103X.PRX - NFEFLDFIN() -> OMOEDA:LREADONLY := IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK("MT103GET",.F.,.F.),!LALTERA)

MATA103X.PRX - NFEFLDFIN() -> ONATUREZA:LREADONLY := IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK("MT103GET",.F.,.F.),!LALTERA)

MATA103X.PRX - NFEFLDFIN() -> OTAXA:LREADONLY := IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK("MT103GET",.F.,.F.),!LALTERA .AND. NMOEDACOR <> 1)

MATA103X.PRX - NFEFLDFIN() -> VALID IF(LMT103NAT, IF(EXECBLOCK("MT103NAT",.F.,.F.,CNATUREZA),NFEVLDREF("NF_NATUREZA",CNATUREZA),.F.),;

MATA103X.PRX - NFEFORMUL() -> CXESPECIE := EXECBLOCK("MT103ESP",.F.,.F.,{CFORMUL})

MATA103X.PRX - NFEFORNECE() -> ADIRFRT := EXECBLOCK("MT103DRF",.F.,.F.,{NCOMBO,CCODRET,@OCOMBO,@OCODRET})

MATA103X.PRX - NFELOKSE2() -> LRETORNO := EXECBLOCK("M103LSE2",.F.,.F.)

MATA103X.PRX - NFEMULTNAT() -> ACOLSSEV := EXECBLOCK("MT103SEV",.F.,.F.,{AHEADSEV,ACOLSSEV})

MATA103X.PRX - NFENEXTDOC() -> CMT103SRI := EXECBLOCK("MT103SRI",.F.,.F.,{CNFISCAL,CNFSERIE})

MATA103X.PRX - NFENEXTDOC() -> CNUM103 := EXECBLOCK("M103NUM",.F.,.F.,{CNUMERO})

MATA103X.PRX - NFENFS2ACOLS() -> EXECBLOCK( "MT103INF", .F., .F., { NITEM } )

MATA103X.PRX - NFEPC2ACOL() -> ACOLSSDE := EXECBLOCK( "MT103RCC", .F., .F.,{AHEADSDE,ACOLSSDE})

MATA103X.PRX - NFEPC2ACOL() -> EXECBLOCK( "MT103IP2", .F., .F.,{NITEM})

MATA103X.PRX - NFEPC2ACOL() -> EXECBLOCK( "MT103IPC", .F., .F.,{NITEM})

MATA103X.PRX - NFERATCC() -> ABUTTONUSR := EXECBLOCK("A103BRCC",.F.,.F.,{{|X|AHEADSDE}})

MATA103X.PRX - NFERATCC() -> ACOLSCC:= EXECBLOCK("MT100RTX",.F.,.F.,{AHEADSDE,ACOLSCC})

MATA103X.PRX - NFERATCC() -> ACOLSSDECPY:=EXECBLOCK("MA103REPRAT",.F.,.F.,{AHEADSDE,ACOLSSDE})

MATA103X.PRX - NFERATCC() -> LMT103LRAT := EXECBLOCK("MT103LRAT",.F.,.F.,{AHEADSDE,ACOLSSDE})

MATA103X.PRX - NFERATCC() -> LRET := EXECBLOCK("NFEINICC",.F.,.F.)

MATA103X.PRX - NFERATLOK() -> LRETORNO := EXECBLOCK("MT103LOK",.F.,.F.)

MATA103X.PRX - NFERATTOK() -> LRETORNO := EXECBLOCK("MT103ROK",.F.,.F.)

MATA103X.PRX - NFERFLDFIN() -> A103CND2 := EXECBLOCK("A103CND2",.F.,.F.,A103CND2)

MATA103X.PRX - NFERFLDFIN() -> ACOLSPE:= EXECBLOCK("MTCOLSE2",.F.,.F.,{ACOLSSE2,1})

MATA103X.PRX - NFERFLDFIN() -> ADADOSPC:=EXECBLOCK("A103VCTO",.F.,.F.,{ ACLONE(ACOLSSE2),NVALOR,CCONDICAO,NVALIPI,DDEMISSAO,NVALSOL})

MATA103X.PRX - NFERFLDFIN() -> CMT103NTZ  := EXECBLOCK("MT103NTZ",.F.,.F.,{CNATUREZA})

MATA103X.PRX - NFERFLDFIN() -> LCHKDUP:= EXECBLOCK("A1031DUP",.F.,.F.)

MATA103X.PRX - NFERFLDFIN() -> LDUPNEW:= EXECBLOCK("MT103DUP",.F.,.F.,{ACOLSDUP,AVENCTO,NVALOR})

MATA103X.PRX - NFERFLDFIN() -> NVALOR := EXECBLOCK("A103VLR",.F.,.F.)

MATA103X.PRX - NFERFLDFIN() -> OCONDICAO:LREADONLY  := (IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK("MT103GET",.F.,.F.), NVALOR == 0) .AND. CTIPO <> "D") .OR. CTIPO == 'D'

MATA103X.PRX - NFERFLDFIN() -> OMOEDA:LREADONLY := IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK("MT103GET",.F.,.F.), NVALOR == 0)

MATA103X.PRX - NFERFLDFIN() -> ONATUREZA:LREADONLY  := IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK("MT103GET",.F.,.F.), NVALOR == 0)

MATA103X.PRX - NFERFLDFIN() -> OTAXA:LREADONLY := IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK("MT103GET",.F.,.F.),NMOEDACOR == 1 .OR. ( CTIPO=="D" .AND. GETNEWPAR("MV_TXMOENC","1")=="1" .AND. IIF(TYPE('LBLQTXNEG')=='L',LBLQTXNEG,.T.) .AND. IIF(TYPE('NVALFAT')=='N' .AND. NVALFAT > 0,NVALOR == NVALFAT,.T.) ))

MATA103X.PRX - NFETOTFIN() -> LRETORNO := EXECBLOCK("MT103FIN",.F.,.F.,{AHEADER,ACOLS,LRETORNO})

MATA103X.PRX - NFEVLDINI() -> LRET := IF(VALTYPE(LRETPE:=EXECBLOCK('MT103INC',.F.,.F.,LCLASS))=='L',LRETPE,.T.)

MATA103X.PRX - NFEVLDREF() -> LPEDIDOS := IF(VALTYPE(LRETPE:=EXECBLOCK("MT103VCN",.F.,.F.,{AHEADER,ACOLS,CREFERENCIA,XVALOR}))=='L',LRETPE,.T.)

MATA103X.PRX - NFEVLDREF() -> LRETORNO := IF(VALTYPE(LRETPE:=EXECBLOCK('MT103DSP',.F.,.F.,{AHEADER,ACOLS,CREFERENCIA,XVALOR}))=='L',LRETPE,.T.)

MATA103X.PRX - NFEVLDSEV() -> ARETSEV := EXECBLOCK('NFECTSEV', .F., .F., {AHEADSEV,ACOLSSEV})

MATA103X.PRX - NFEVLDSEV() -> LRETORNO := EXECBLOCK("NFEVLSEV",.F.,.F.,{AHEADER,ACOLS,AHEADSEV,ACOLSSEV})

MATA105.PRX - A105ALTERA() -> ABUT105 := EXECBLOCK( "A105BUT", .F., .F., { NOPCX, ABUT105 } )

MATA105.PRX - A105ALTERA() -> ABUTTONS:=EXECBLOCK("M105BUT",.F.,.F.)

MATA105.PRX - A105ALTERA() -> EXECBLOCK("MT105SCR",.F.,.F.,{@ODLG,NOPCX,OGET})

MATA105.PRX - A105DELETA() -> ABUT105 := EXECBLOCK( "A105BUT", .F., .F., { NOPCX, ABUT105 } )

MATA105.PRX - A105DELETA() -> ABUTTONS:=EXECBLOCK("M105BUT",.F.,.F.)

MATA105.PRX - A105DELETA() -> EXECBLOCK("MT105SCR",.F.,.F.,{@ODLG,NOPCX,OGET})

MATA105.PRX - A105DELETA() -> LRET := EXECBLOCK("A105DELOK",.F.,.F.)

MATA105.PRX - A105IMPRIM() -> EXECBLOCK( CPRINTER, .F., .F., { SCP->CP_EMISSAO,SCP->CP_NUM } )

MATA105.PRX - A105INCLUI() -> ABUT105 := EXECBLOCK( "A105BUT", .F., .F., { NOPCX, ABUT105 } )

MATA105.PRX - A105INCLUI() -> ABUTTONS:=EXECBLOCK("M105BUT",.F.,.F.)

MATA105.PRX - A105INCLUI() -> CMT105COP := EXECBLOCK("MT105COP",.F.,.F.)

MATA105.PRX - A105INCLUI() -> EXECBLOCK("MT105SCR",.F.,.F.,{@ODLG,NOPCX,OGET})

MATA105.PRX - A105INCLUI() -> LVIEWF4 := EXECBLOCK("M105F4",.F.,.F.)

MATA105.PRX - A105LEGENDA() -> AMT105LEG := EXECBLOCK("MT105LEG",.F.,.F., {AITLEG} )

MATA105.PRX - A105LINOK() -> LRET := EXECBLOCK("MTA105LIN",.F.,.F.)

MATA105.PRX - A105SELEES() -> EXECBLOCK("MT105EXP",.F.,.F.)

MATA105.PRX - A105TUDOK() -> LRET := EXECBLOCK("MTA105OK",.F.,.F.)

MATA105.PRX - A105VISUAL() -> ABUT105 := EXECBLOCK( "A105BUT", .F., .F., { NOPCX, ABUT105 } )

MATA105.PRX - A105VISUAL() -> ABUTTONS:=EXECBLOCK("M105BUT",.F.,.F.)

MATA105.PRX - A105VISUAL() -> EXECBLOCK("MT105SCR",.F.,.F.,{@ODLG,NOPCX,OGET})

MATA105.PRX - MA105GRAVA() -> EXECBLOCK("MT105FIM",.F.,.F.,NOPCAO)

MATA105.PRX - MA105GRAVA() -> EXECBLOCK("MT105GRV",.F.,.F.,NOPCAO)

MATA105.PRX - MATA105() -> AMT105COR := EXECBLOCK("MT105COR",.F.,.F., {ACORES} )

MATA105.PRX - MATA105() -> AROTADIC := EXECBLOCK("MT105MNU",.F.,.F.)

MATA105.PRX - MATA105() -> CFILQUERY := ALLTRIM(EXECBLOCK("MT105QRY",.F.,.F.))

MATA105.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("MT105MNU",.F.,.F.)

MATA105.PRX - MENUDEF() -> EXECBLOCK("MTA105MNU",.F.,.F.)

MATA106.PRX - A106PREREQ() -> ACPAGL := EXECBLOCK("MT106SCA",.F.,.F.)

MATA106.PRX - A106PREREQ() -> C106QRY := EXECBLOCK("MT106QRY",.F.,.F.,{LAUTO})

MATA106.PRX - A106PREREQ() -> EXECBLOCK("MASAVLOP",.F.,.F.)

MATA106.PRX - A106PREREQ() -> EXECBLOCK("MT106GRV",.F.,.F.)

MATA106.PRX - A106PREREQ() -> EXECBLOCK("MT106PRE",.F.,.F.,AMT106SCQ)

MATA106.PRX - A106PREREQ() -> EXECBLOCK("MT106SC1",.F.,.F.,{"CND",CND->CND_NUMMED,,CND->(RECNO())})

MATA106.PRX - A106PREREQ() -> EXECBLOCK("MT106SC1",.F.,.F.,{"SC1",SC1->C1_NUM,SC1->C1_ITEM,SC1->(RECNO())})

MATA106.PRX - A106PREREQ() -> EXECBLOCK("MT106SC1",.F.,.F.,{"SC7",SC7->C7_NUM,SC7->C7_ITEM,SC7->(RECNO())})

MATA106.PRX - A106PREREQ() -> EXECBLOCK("MT106SC1",.F.,.F.,{"SW1",SW1->W1_SI_NUM,SW1->W1_COD_I,SW1->(RECNO())})

MATA106.PRX - A106PREREQ() -> IF (VALTYPE(LCONTINUA := EXECBLOCK("MT106VGR",.F.,.F.,{LAMZSA,NSALDO,LCONSEMP,LCONSSPED}))=='L') .AND. !LCONTINUA

MATA106.PRX - A106PREREQ() -> LVLDPE := EXECBLOCK("MASAVLSC",.F.,.F.,{SB1->B1_COD,SB1->B1_LOCPAD,SB1->B1_CONTRAT})

MATA106.PRX - A106PREREQ() -> ULOTESC := EXECBLOCK("MA106SCQ",.F.,.F.)

MATA106.PRX - A106PROC() -> EXECBLOCK("MA106GER",.F.,.F.,{BBLOCO})

MATA106.PRX - A106PROC() -> LRET :=EXECBLOCK( "MA106VLG", .F., .F.)

MATA106.PRX - MENUDEF() -> EXECBLOCK("MTA106MNU",.F.,.F.)

MATA107.PRW - A107LIB() -> EXECBLOCK("MT107GRV",.F.,.F.)

MATA107.PRW - A107LIB() -> LRET:= EXECBLOCK("MT107LIB",.F.,.F.)

MATA107.PRW - MATA107() -> CFILPE := ALLTRIM(EXECBLOCK("MT107QRY",.F.,.F.))

MATA107.PRW - MENUDEF() -> EXECBLOCK("MTA107MNU",.F.,.F.)

MATA110.PRX - A110ALTERA() -> ABUT110 := EXECBLOCK( "MA110BUT", .F., .F., { NOPCX, ABUT110 } )

MATA110.PRX - A110ALTERA() -> ABUTTONUSR := EXECBLOCK("MA110BAR",.F.,.F.,{NOPCX})

MATA110.PRX - A110ALTERA() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK("MT110GET",.F.,.F.,{APOSOBJ,NOPCX}))== "A",APOSOBJPE,APOSOBJ)

MATA110.PRX - A110ALTERA() -> CMTA110EC := EXECBLOCK("MTA110EC",.F.,.F.)

MATA110.PRX - A110ALTERA() -> EXECBLOCK("M110STTS",.F.,.F.,{CA110NUM,2,LCOPIA,_LBLQ})

MATA110.PRX - A110ALTERA() -> EXECBLOCK("MT110TEL",.F.,.F.,{@ODLG, APOSGET, NOPCX, NREG} )

MATA110.PRX - A110ALTERA() -> LRET := EXECBLOCK("MT110VLD",.F.,.F.,{NOPCX})

MATA110.PRX - A110APROV() -> ACPOSNEW := EXECBLOCK("MT110CPO",.F.,.F.,{ACPOS})

MATA110.PRX - A110APROV() -> EXECBLOCK("MT110CFM",.F.,.F.,{CNUMSC,NOPCA})

MATA110.PRX - A110APROV() -> EXECBLOCK("MT110CP2",.F.,.F.,{AITENS,OQUAL})

MATA110.PRX - A110APROV() -> EXECBLOCK("MT110END",.F.,.F.,{CNUMSC,NOPCA})

MATA110.PRX - A110APROV() -> L110APV := EXECBLOCK("MT110APV",.F.,.F.,{CALIAS, NREG})

MATA110.PRX - A110APROV() -> LRET := EXECBLOCK("MT110BLO",.F.,.F.,{NOPCA})

MATA110.PRX - A110DELETA() -> ABUT110 := EXECBLOCK( "MA110BUT", .F., .F., {NOPCX, ABUT110 } )

MATA110.PRX - A110DELETA() -> ABUTTONUSR := EXECBLOCK("MA110BAR",.F.,.F.,{NOPCX})

MATA110.PRX - A110DELETA() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK("MT110GET",.F.,.F.,{APOSOBJ,NOPCX}))== "A",APOSOBJPE,APOSOBJ)

MATA110.PRX - A110DELETA() -> EXECBLOCK("M110STTS",.F.,.F.,{CA110NUM,3,LCOPIA,.F.})

MATA110.PRX - A110DELETA() -> EXECBLOCK("MT110TEL",.F.,.F.,{@ODLG, APOSGET, NOPCX, NREG} )

MATA110.PRX - A110DELETA() -> LMSC1110D := EXECBLOCK("MSC1110D",.F.,.F.)

MATA110.PRX - A110DELETA() -> LRET := EXECBLOCK("MT110VLD",.F.,.F.,{NOPCX})

MATA110.PRX - A110DTNEC() -> LRETORNO := EXECBLOCK("MT110DTN",.F.,.F.)

MATA110.PRX - A110DTVLD() -> LMT110DTV := EXECBLOCK("MT110DTV",.F.,.F.,{NOPCX,LCOPIA})

MATA110.PRX - A110EXIT() -> LRETORNO := EXECBLOCK("M110EXIT",.F.,.F.)

MATA110.PRX - A110GRAVA() -> EXECBLOCK("MT110GRV",.F.,.F.,{LCOPIA})

MATA110.PRX - A110GRAVA() -> LCONTINUA := (EXECBLOCK("MT110CON",.F.,.F.,{CA110NUM,CSOLIC,DA110DATA,CCCUSTO,CUNIDREQ,CCODCOMPR}))

MATA110.PRX - A110IMPRI() -> EXECBLOCK( CPRINTER, .F., .F., { CALIAS, NRECNO, NOPC } )

MATA110.PRX - A110INCLUI() -> ABUT110 := EXECBLOCK( "MA110BUT", .F., .F., { NOPCX, ABUT110 } )

MATA110.PRX - A110INCLUI() -> ABUTTONUSR := EXECBLOCK("MA110BAR",.F.,.F.,{NOPCX})

MATA110.PRX - A110INCLUI() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK("MT110GET",.F.,.F.,{APOSOBJ,NOPCX}))== "A",APOSOBJPE,APOSOBJ)

MATA110.PRX - A110INCLUI() -> CMTA110EC := EXECBLOCK("MTA110EC",.F.,.F.)

MATA110.PRX - A110INCLUI() -> EXECBLOCK("M110STTS",.F.,.F.,{CA110NUM,1,LCOPIA,.F.})

MATA110.PRX - A110INCLUI() -> EXECBLOCK("MT110TEL",.F.,.F.,{@ODLG, APOSGET, NOPCX, NREG, @ADLGFIELDS} )

MATA110.PRX - A110INCLUI() -> LRET := EXECBLOCK("MT110VLD",.F.,.F.,{8})

MATA110.PRX - A110INCLUI() -> LRET := EXECBLOCK("MT110VLD",.F.,.F.,{NOPCX})

MATA110.PRX - A110LEGENDA() -> ACORESNEW := EXECBLOCK("MT110LEG",.F.,.F.,{ACORES,LGSPINUSEM})

MATA110.PRX - A110LINOK() -> CQUERY := EXECBLOCK("MTA110CP",.F.,.F.,{ACOLS[N][NPPROD],CHOJE,NQUANT})

MATA110.PRX - A110LINOK() -> LRET := EXECBLOCK("MT110LOK",.F.,.F.,{LRET,DA110DATA})

MATA110.PRX - A110MONTA() -> EXECBLOCK("M110MONT",.F.,.F.,{CNUMSC1,NOPC,LCOPIA})

MATA110.PRX - A110RATCC() -> ABUTTONUSR:=EXECBLOCK("MT110BTR",.F.,.F.,{ABUTTONS})

MATA110.PRX - A110RATLOK() -> LRETORNO := EXECBLOCK("MA110VLRAT",.F.,.F.,{AHEADER,ACOLS,.T.,.F.})

MATA110.PRX - A110RATTOK() -> LRETORNO := EXECBLOCK("MA110VLRAT",.F.,.F.,{AHEADER,ACOLS,.F.,.T.})

MATA110.PRX - A110TUDOK() -> LRET110OK := EXECBLOCK("MTA110OK",.F.,.F.,{CA110NUM,CSOLIC,DA110DATA})

MATA110.PRX - A110TUDOK() -> LRETORNO := EXECBLOCK("MT110TOK",.F.,.F.,{LRETORNO,DA110DATA})

MATA110.PRX - A110VISUAL() -> ABUT110 := EXECBLOCK( "MA110BUT", .F., .F., { NOPCX, ABUT110 } )

MATA110.PRX - A110VISUAL() -> ABUTTONUSR := EXECBLOCK("MA110BAR",.F.,.F.,{NOPCX})

MATA110.PRX - A110VISUAL() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK("MT110GET",.F.,.F.,{APOSOBJ,NOPCX}))== "A",APOSOBJPE,APOSOBJ)

MATA110.PRX - A110VISUAL() -> EXECBLOCK("MT110TEL",.F.,.F.,{@ODLG, APOSGET, NOPCX, NREG} )

MATA110.PRX - A110WHEN() -> LRET := EXECBLOCK('MT110WHEN', .F., .F.)

MATA110.PRX - MATA110() -> ACORESNEW := EXECBLOCK("MT110COR",.F.,.F.,{ACORES})

MATA110.PRX - MATA110() -> CFILQUERY := ALLTRIM(EXECBLOCK("MT110QRY",.F.,.F.))

MATA110.PRX - MATA110() -> CMT110FIL := EXECBLOCK("MT110FIL",.F.,.F.)

MATA110.PRX - MENUDEF() -> EXECBLOCK("MTA110MNU",.F.,.F.)

MATA112.PRX - A112GSC1() -> CNUMSI := EXECBLOCK("MT112NUM", .F., .F.)

MATA112.PRX - A112GSC1() -> EXECBLOCK("MT112GRV", .F., .F.)

MATA112.PRX - A112GSC1() -> EXECBLOCK("MT112IT", .F., .F.)

MATA112.PRX - A112GSC1() -> LGERASC := EXECBLOCK("MT112OK", .F., .F.)

MATA112.PRX - MATA112() -> IF VALTYPE( CFILTROUS := EXECBLOCK( "MT112FILSC3", .F., .F., {CFILTER}) ) == "C"

MATA113.PRX - A113AFTERH() -> AHEADERNEW := EXECBLOCK("M113POSC",.F.,.F.,{AHEADER})

MATA113.PRX - A113APROV() -> ACPOSNEW := EXECBLOCK("MT113CPO",.F.,.F.,{ACPOS})

MATA113.PRX - A113APROV() -> EXECBLOCK("MT113END",.F.,.F.,{CNUMSC,NOPCA})

MATA113.PRX - A113APROV() -> LRET := EXECBLOCK("MT113BLO",.F.,.F.,{NOPCA})

MATA113.PRX - A113EXIT() -> LRETORNO := EXECBLOCK("M113EXIT",.F.,.F.)

MATA113.PRX - A113GRAVA() -> EXECBLOCK("MT113GRV",.F.,.F.)

MATA113.PRX - A113GRAVA() -> LCONTINUA := (EXECBLOCK("MT113CON",.F.,.F.,{CA110NUM,CSOLIC,DA113DATA,CCODCOMPR}))

MATA113.PRX - A113IMPORT() -> ABUTTONUSR := EXECBLOCK("MA113BAR",.F.,.F.,{NOPCX})

MATA113.PRX - A113IMPORT() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK("MT113GET",.F.,.F.,{APOSOBJ,NOPCX}))== "A",APOSOBJPE,APOSOBJ)

MATA113.PRX - A113IMPORT() -> EXECBLOCK("M113STTS",.F.,.F.,{CA110NUM,NOPCX})

MATA113.PRX - A113IMPORT() -> EXECBLOCK("MT113FOL",.F.,.F.,{NOPCX,APOSGET})

MATA113.PRX - A113IMPORT() -> EXECBLOCK("MT113TEL",.F.,.F.,{@ODLG, APOSGET, NOPCX, NREG} )

MATA113.PRX - A113IMPORT() -> IF !EXECBLOCK("MTA113OK",.F.,.F.,{CA110NUM,CSOLIC,DA113DATA,NOPCX})

MATA113.PRX - A113IMPRI() -> EXECBLOCK( CPRINTER, .F., .F., { CALIAS, NRECNO, NOPC } )

MATA113.PRX - A113LEGENDA() -> ACORESNEW := EXECBLOCK("MT113LEG",.F.,.F.,{ACORES,LGSPINUSEM})

MATA113.PRX - A113LINOK() -> LRET := EXECBLOCK("MT113LOK",.F.,.F.,{LRET,DA113DATA})

MATA113.PRX - A113MONTA() -> EXECBLOCK("M113MONT",.F.,.F.,{CNUMSC1,NOPC,LCOPIA})

MATA113.PRX - A113TUDOK() -> LRETORNO := EXECBLOCK("MT113TOK",.F.,.F.,{LRETORNO,DA113DATA})

MATA113.PRX - MATA113() -> CMT113FIL := EXECBLOCK("MT113FIL",.F.,.F.)

MATA113.PRX - MENUDEF() -> AROTINANEW := EXECBLOCK("MT113ROT",.F.,.F.,AROTINA)

MATA113.PRX - MENUDEF() -> EXECBLOCK("MTA113MNU",.F.,.F.)

MATA114.PRW - LOADUSRCPO() -> CUSRCAMPOS := EXECBLOCK("MT114CAB",.F.,.F.)

MATA114.PRW - LOADUSRCPO() -> CUSRCPOGRID := EXECBLOCK("MT114GRID",.F.,.F.)

MATA116.PRW - A116CHKNFE() -> LMT116VLD := EXECBLOCK("MT116VLD",.F.,.F.,{NFORMUL,CNFISCAL,CSERIE,CFORNECE,CCODLOJA})

MATA116.PRW - A116INCLUI() -> ABUTTONS := EXECBLOCK( "MA116BUT", .F., .F., { NOPCX, ABUTTONS } )

MATA116.PRW - A116INCLUI() -> EXECBLOCK("M116ACOL",.F.,.F.,{CALIASSD1,NX,AM116ACOL})

MATA116.PRW - A116INCLUI() -> EXECBLOCK("MT116AGR",.F.,.F.)

MATA116.PRW - A116INCLUI() -> EXECBLOCK("MT116CUST",.F.,.F.,{L116INCLUI,L116EXCLUI})

MATA116.PRW - A116INCLUI() -> EXECBLOCK("MT116GRV",.F.,.F.)

MATA116.PRW - A116INCLUI() -> LRET := EXECBLOCK("MT116OK",.F.,.F.,{L116EXCLUI})

MATA116.PRW - A116INCLUI() -> LRET116SD1 := EXECBLOCK("MT116SD1",.F.,.F.,{(CALIASSD1)})

MATA116.PRW - A116LINOK() -> LRET := EXECBLOCK("MT100LOK",.F.,.F.,{LRET})

MATA116.PRW - A116MARK() -> EXECBLOCK('M116MARK', .F., .F.)

MATA116.PRW - A116NCF() -> CPECNFISCAL := EXECBLOCK("MT116NCF",.F.,.F.,{C116NUMNF})

MATA116.PRW - A116SETUP() -> A116F3 := EXECBLOCK("MT116F3",.F.,.F.)

MATA116.PRW - A116SETUP() -> C116COMBO4 := EXECBLOCK("MT116AGL", .F., .F., {ACOMBO4})

MATA116.PRW - A116SETUP() -> LMT116VTP:= EXECBLOCK("MT116VTP",.F.,.F.,{APARAMETROS} )

MATA116.PRW - A116SETUP() -> N116VALOR := EXECBLOCK("MT116VAL",.F.,.F.,{N116VALOR})

MATA116.PRW - A116TUDOK() -> LRET := EXECBLOCK("MT116TOK",.F.,.F.)

MATA116.PRW - A116VLDEXC() -> CASE L100DEL .AND. VALTYPE(LRETPE := EXECBLOCK("A100DEL",.F.,.F.) ) == "L" .AND. ! LRETPE

MATA116.PRW - MATA116A() -> CRETPE := EXECBLOCK("MT116FTR",.F.,.F.,)

MATA116.PRW - MATA116A() -> CRETPE := EXECBLOCK("MT116QRY",.F.,.F.,)

MATA116.PRW - MATA116A() -> EXECBLOCK('MT115MRK', .F., .F.)

MATA116.PRW - MENUDEF() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MT116BUT", .F., .F.)) == "A"

MATA116I.PRW - A116ICLIFOR() -> AAUXFOR := EXECBLOCK("A116IFOR",.F.,.F.,{OXML, C116ALIAS, CBUSCA116})

MATA116I.PRW - CTE_RETTES() -> AAUX := EXECBLOCK("A116TECT",.F.,.F.,{OXML})

MATA116I.PRW - IMPXMLCTEOS() -> AA116IDOC := EXECBLOCK("A116IDOC",.F.,.F.,{CDOC, CSERIE, CFORNCTE, CLOJACTE})

MATA116I.PRW - IMPXMLCTEOS() -> AITENSCOMP := EXECBLOCK("A116ICOMP",.F.,.F.,{OXML})

MATA116I.PRW - IMPXMLCTEOS() -> CPRDFRETE := EXECBLOCK("A116PRDF",.F.,.F.,{OXML})

MATA116I.PRW - IMPXMLCTEOS() -> CRETPRD := EXECBLOCK("A116ITPCT",.F.,.F.,{APARAMPE, OXML})

MATA116I.PRW - IMPXMLCTEOS() -> EXECBLOCK("MT116XMLCT",.F.,.F.,{OXML,CDOC,CSERIE,CFORNCTE,CLOJACTE,"T","PF"})

MATA116I.PRW - IMPXMLCTEOS() -> EXECBLOCK("MT116XMLCT",.F.,.F.,{OXML,CDOC,CSERIE,CFORNCTE,CLOJACTE,"T","PN"})

MATA116I.PRW - IMPXML_CTE() -> AA116IDOC := EXECBLOCK("A116IDOC",.F.,.F.,{CDOC, CSERIE, CFORNCTE, CLOJACTE})

MATA116I.PRW - IMPXML_CTE() -> AITENSCOMP := EXECBLOCK("A116ICOMP",.F.,.F.,{OXML})

MATA116I.PRW - IMPXML_CTE() -> CPRDFRETE := EXECBLOCK("A116PRDF",.F.,.F.,{OXML})

MATA116I.PRW - IMPXML_CTE() -> CRETPRD := EXECBLOCK("A116ICTEN",.F.,.F.,{APARAMPE, OXML})

MATA116I.PRW - IMPXML_CTE() -> CRETPRD := EXECBLOCK("A116ITPCT",.F.,.F.,{APARAMPE, OXML})

MATA116I.PRW - IMPXML_CTE() -> EXECBLOCK("MT116XMLCT",.F.,.F.,{OXML,CDOC,CSERIE,CFORNCTE,CLOJACTE,"T","PF"})

MATA116I.PRW - IMPXML_CTE() -> EXECBLOCK("MT116XMLCT",.F.,.F.,{OXML,CDOC,CSERIE,CFORNCTE,CLOJACTE,"T","PN"})

MATA119.PRW - A119INCLUI() -> CFILTRASD1 := EXECBLOCK("MT119QRY",.F.,.F.)

MATA119.PRW - A119INCLUI() -> CNFISCAL := EXECBLOCK("MT119SX5",.F.,.F.,{CSERIE})

MATA119.PRW - A119INCLUI() -> EXECBLOCK("M119ACOL",.F.,.F.,{CALIASSD1,NX,ACHAVE})

MATA119.PRW - A119INCLUI() -> EXECBLOCK("MT119AGR",.F.,.F.)

MATA119.PRW - A119INCLUI() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA119BUT", .F., .F. ) ) == "A"

MATA119.PRW - A119INCLUI() -> LPROCSD1 := EXECBLOCK("MT119FIL",.F.,.F.)

MATA119.PRW - A119LINOK() -> LRET := EXECBLOCK("MT100LOK",.F.,.F.,{LRET})

MATA119.PRW - A119TUDOK() -> LRET := EXECBLOCK("MT100LOK",.F.,.F.,{LRET})

MATA119.PRW - A119TUDOK() -> LRET := EXECBLOCK("MT119TOK",.F.,.F.,{LRET})

MATA119.PRW - MATA119A() -> EXECBLOCK('MT115MRK', .F., .F.)

MATA120.PRX - A120DEL() -> EXECBLOCK("MT120DEL",.F.,.F.)

MATA120.PRX - A120DESCMOED() -> CRET:= EXECBLOCK("MT120MOE",.F.,.F.)

MATA120.PRX - A120DESCMOED() -> LTXMOEDA := EXECBLOCK("MT120TXMD",.F.,.F.)

MATA120.PRX - A120F4() -> AFILUSR := EXECBLOCK( "A120F4FI", .F., .F. )

MATA120.PRX - A120F4() -> AMT120VIT  := EXECBLOCK( "MT120VIT", .F., .F.,{ACAMPOS,NTIPOPED})

MATA120.PRX - A120F4() -> ANEW := EXECBLOCK("MT120C1D", .F., .F., AARRAYF4[LEN(AARRAYF4)])

MATA120.PRX - A120F4() -> EXECBLOCK("A120F4CP",.F.,.F.)

MATA120.PRX - A120F4() -> IF VALTYPE( ANEW := EXECBLOCK( "MT120C1C", .F., .F., AHEADUSER ) ) == "A"

MATA120.PRX - A120F4() -> UMT120LCT:=EXECBLOCK("MT120LCT",.F.,.F.)

MATA120.PRX - A120FORN() -> LMT120CND := EXECBLOCK("MT120CND",.F.,.F.)

MATA120.PRX - A120GRAVA() -> ARETG1 := EXECBLOCK("MTA120G1",.F.,.F.,{CA120NUM,INCLUI,ALTERA,LDELETA})

MATA120.PRX - A120GRAVA() -> CMT120APV := EXECBLOCK("MT120APV",.F.,.F.)

MATA120.PRX - A120GRAVA() -> EXECBLOCK("MT120F",.F.,.F.,XFILIAL("SC7")+CA120NUM)

MATA120.PRX - A120GRAVA() -> EXECBLOCK("MTA120G2",.F.,.F.,ARETG1)

MATA120.PRX - A120GRAVA() -> EXECBLOCK("WFW120P",.F.,.F.,XFILIAL("SC7")+CA120NUM)

MATA120.PRX - A120GRAVA() -> LGERACRG3 := EXECBLOCK("MTA120G3",.F.,.F.,{ARETG1,LGERASCR})

MATA120.PRX - A120GRAVA() -> LOCAL LA120QUJE := EXISTBLOCK("A120QUJE") .AND. EXECBLOCK("A120QUJE",.F.,.F.)

MATA120.PRX - A120IMPRI() -> EXECBLOCK( CPRINTER, .F., .F., { CALIAS, NRECNO, NOPC } )

MATA120.PRX - A120LEGEND() -> ALEGEUSR := EXECBLOCK("MT120LEG",.F.,.F.,{ALEGENDA})

MATA120.PRX - A120LINOK() -> CXUSR := EXECBLOCK("MT120CUR",.F.,.F.)

MATA120.PRX - A120LINOK() -> LMT120USR:= EXECBLOCK( "MT120USR", .F., .F., {EMPTY(ACOLS[N][NPOSNUMSC])})

MATA120.PRX - A120LINOK() -> LRET := EXECBLOCK("M120FGCT", .F., .F., {CFILSEEKC1, ACOLS[N][NPOSNUMSC], ACOLS[N][NPOSITEMSC]})

MATA120.PRX - A120LINOK() -> LRET120L := EXECBLOCK("MT120PCOL",.F.,.F., {1})

MATA120.PRX - A120LINOK() -> LRET120LOK := EXECBLOCK("MT120LOK",.F.,.F.)

MATA120.PRX - A120LINOK() -> LRET120LOK := EXECBLOCK("MT120VLD",.F.,.F.)

MATA120.PRX - A120MOVCAMPOS() -> EXECBLOCK( "MT120ISC", .F., .F. )

MATA120.PRX - A120PEDIDO() -> ACPED:=EXECBLOCK("MT120PED",.F.,.F.,{})

MATA120.PRX - A120PEDIDO() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK("MT120GET",.F.,.F.,{APOSOBJ,NOPCX}))== "A",APOSOBJPE,APOSOBJ)

MATA120.PRX - A120PEDIDO() -> EXECBLOCK("MT120CPE",.F.,.F.,{NOPCX,LCOPIA})

MATA120.PRX - A120PEDIDO() -> EXECBLOCK("MT120FIM",.F.,.F.,{AROTINA[NOPCX,4], CA120NUM,NOPCA})

MATA120.PRX - A120PEDIDO() -> EXECBLOCK("MT120FOL",.F.,.F.,{NOPCX,APOSGET})

MATA120.PRX - A120PEDIDO() -> EXECBLOCK("MT120GOK",.F.,.F.,{CA120NUM,L120INCLUI,L120ALTERA,L120DELETA})

MATA120.PRX - A120PEDIDO() -> EXECBLOCK("MT120SCR",.F.,.F.,@ODLG)

MATA120.PRX - A120PEDIDO() -> EXECBLOCK("MT120TEL",.F.,.F.,{@ODLG, APOSGET, AOBJ, NOPCX, NREG, @ADLGFIELDS} )

MATA120.PRX - A120PEDIDO() -> IF AT(UPPER("EXEC"),X5DESCRI()) > 0

MATA120.PRX - A120PEDIDO() -> IF VALTYPE( AALTBUTTONS := EXECBLOCK( "MT120ABU", .F., .F., {ABUTTONS}) ) == "A"

MATA120.PRX - A120PEDIDO() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA120BUT", .F., .F. ) ) == "A"

MATA120.PRX - A120PEDIDO() -> IF VALTYPE(EXECBLOCK("MT120PED",.F.,.F.,{})) == 'A'

MATA120.PRX - A120PEDIDO() -> LCONTINUA := EXECBLOCK("MT120RES",.F.,.F.,{AROTINA[NOPCX,4]})

MATA120.PRX - A120PEDIDO() -> LEXCPED := EXECBLOCK("MTA120EX",.F.,.F.)

MATA120.PRX - A120PEDIDO() -> LMT120ALT := EXECBLOCK("MT120ALT",.F.,.F.,{AROTINA[NOPCX,4]})

MATA120.PRX - A120PEDIDO() -> LMT120GRV := EXECBLOCK("MT120GRV",.F.,.F.,{CA120NUM,L120INCLUI,L120ALTERA,L120DELETA,ARECNOSE2RA})

MATA120.PRX - A120PEDIDO() -> LMTA120E := EXECBLOCK("MTA120E",.F.,.F.,{NOPCA,CA120NUM})

MATA120.PRX - A120PID() -> AFILTRO := EXECBLOCK( "A120AEFL", .F., .F.,{CFILSC3} )

MATA120.PRX - A120PID() -> AFILTRO := EXECBLOCK( "A120PIDF", .F., .F. )

MATA120.PRX - A120PID() -> AMARK := EXECBLOCK("MT120MAK",.F.,.F.,{IF(NTIPOPED == 1 , "SC1" , "SC3" )})

MATA120.PRX - A120PID() -> AMT120VSC := EXECBLOCK( "MT120VSC", .F., .F.,{ACAMPOS,NTIPOPED})

MATA120.PRX - A120PRODUTO() -> ATRIGGERCPO:= EXECBLOCK("MT120CPO",.F.,.F.,{ATRIGGERCPO})

MATA120.PRX - A120RATCC() -> AAUXRAT := EXECBLOCK("MT120RCC",.F.,.F.,{AHEADSCH,ACOLSCC})

MATA120.PRX - A120RATCC() -> AAUXRAT:= EXECBLOCK("MT120RAT",.F.,.F.,{ACOLSSCH,AHEADSCH,N})

MATA120.PRX - A120RATCC() -> ABUTTONUSR:=EXECBLOCK("MT120BTR",.F.,.F.,{ABUTTONS})

MATA120.PRX - A120RATLOK() -> LVLDLRAT := EXECBLOCK("MT120VLRAT",.F.,.F.,{ACOLS,AHEADER,N})

MATA120.PRX - A120TABELA() -> EXECBLOCK("MT120TAB",.F.,.F.)

MATA120.PRX - A120TUDOK() -> LM120PGAN:= EXECBLOCK("M120PGAN",.F.,.F.,{NTOTPAG,XMOEDA(NTOTPED,SC7->C7_MOEDA,1,SC7->C7_EMISSAO,,NTXMOEDA)})

MATA120.PRX - A120TUDOK() -> LRET := EXECBLOCK("M120TGCT", .F., .F., {CFILSEEKC1, ACOLS[N][NPOSNUMSC], ACOLS[N][NPOSITEMSC]})

MATA120.PRX - A120TUDOK() -> LRET120OK := EXECBLOCK("MT120OK",.F.,.F.)

MATA120.PRX - A120TUDOK() -> LRET120OK := EXECBLOCK("MT120PCOK",.F.,.F., {2})

MATA120.PRX - A120VALCOND() -> LRET1 := EXECBLOCK("MT120VCP9",.F.,.F.)

MATA120.PRX - INTPCSSERV() -> EXECBLOCK("A120SSER",.F.,.F.)

MATA120.PRX - MATA120() -> ACORESUSR := EXECBLOCK("MT120COR",.F.,.F.,{ACORES})

MATA120.PRX - MATA120() -> CFILQUERY := ALLTRIM(EXECBLOCK("MT120QRY",.F.,.F.))

MATA120.PRX - MATA120() -> CMT120FIL := EXECBLOCK("MT120FIL",.F.,.F.)

MATA120.PRX - MATA120() -> EXECBLOCK("MT120BRW",.F.,.F.)

MATA120.PRX - MATA120() -> NORDERSC7 := EXECBLOCK("A120FILT",.F.,.F., NTIPOPED)

MATA120.PRX - MATA120() -> UMT120DFT:=EXECBLOCK("MT120DFT",.F.,.F.)

MATA120A.PRW - MT120AAPROV() -> CMT120APV := EXECBLOCK("MT120APV",.F.,.F.)

MATA123.PRX - A123F4() -> AFILUSR := EXECBLOCK( "A123F4FI", .F., .F. )

MATA123.PRX - A123F4() -> ANEW := EXECBLOCK("MT123C1D", .F., .F., AARRAYF4[LEN(AARRAYF4)])

MATA123.PRX - A123F4() -> EXECBLOCK("A123F4CP",.F.,.F.)

MATA123.PRX - A123F4() -> IF VALTYPE( ANEW := EXECBLOCK( "MT123C1C", .F., .F., AHEADUSER ) ) == "A"

MATA123.PRX - A123GRAVA() -> ARETG1 := EXECBLOCK("MTA123G1",.F.,.F.)

MATA123.PRX - A123GRAVA() -> CMT123APV := EXECBLOCK("MT123APV",.F.,.F.)

MATA123.PRX - A123GRAVA() -> EXECBLOCK("MT123F",.F.,.F.,XFILIAL("SC7")+CA120NUM)

MATA123.PRX - A123GRAVA() -> EXECBLOCK("MTA123G2",.F.,.F.,ARETG1)

MATA123.PRX - A123GRAVA() -> EXECBLOCK("MTA123G3",.F.,.F.,{ARETG1,LGERASCR})

MATA123.PRX - A123GRAVA() -> EXECBLOCK("WFW123P",.F.,.F.,XFILIAL("SC7")+CA120NUM)

MATA123.PRX - A123IMPRI() -> EXECBLOCK( CPRINTER, .F., .F., { CALIAS, NRECNO, NOPC } )

MATA123.PRX - A123LEGEND() -> ALEGEUSR := EXECBLOCK("MT123LEG",.F.,.F.,{ALEGENDA})

MATA123.PRX - A123LINOK() -> LRET123LOK := EXECBLOCK("MT123LOK",.F.,.F.)

MATA123.PRX - A123MOVCAMPOS() -> EXECBLOCK( "MT123ISC", .F., .F. )

MATA123.PRX - A123PEDIDO() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK("MT123GET",.F.,.F.,{APOSOBJ,NOPCX}))== "A",APOSOBJPE,APOSOBJ)

MATA123.PRX - A123PEDIDO() -> EXECBLOCK("MT123FOL",.F.,.F.,{NOPCX,APOSGET})

MATA123.PRX - A123PEDIDO() -> EXECBLOCK("MT123GOK",.F.,.F.,{CA120NUM,L123INCLUI,L123ALTERA,L123DELETA})

MATA123.PRX - A123PEDIDO() -> EXECBLOCK("MT123TEL",.F.,.F.,{@ODLG, APOSGET, AOBJ, NOPCX, NREG} )

MATA123.PRX - A123PEDIDO() -> IF AT(UPPER("EXEC"),X5DESCRI()) > 0

MATA123.PRX - A123PEDIDO() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA123BUT", .F., .F. ) ) == "A"

MATA123.PRX - A123PEDIDO() -> LMT123ALT := EXECBLOCK("MT123ALT",.F.,.F.,{AROTINA[NOPCX,4]})

MATA123.PRX - A123PEDIDO() -> LMT123GRV := EXECBLOCK("MT123GRV",.F.,.F.,{CA120NUM,L123INCLUI,L123ALTERA,L123DELETA })

MATA123.PRX - A123PEDIDO() -> LMTA123E := EXECBLOCK("MTA123E",.F.,.F.,{NOPCA})

MATA123.PRX - A123PID() -> AFILTRO := EXECBLOCK( "A123PIDF", .F., .F. )

MATA123.PRX - A123PID() -> AMARK := EXECBLOCK("MT123MAK",.F.,.F.,{"SC1"})

MATA123.PRX - A123TUDOK() -> LRET123OK := EXECBLOCK("MT123OK",.F.,.F.)

MATA123.PRX - MATA123() -> ACORESUSR := EXECBLOCK("MT123COR",.F.,.F.,{ACORES})

MATA123.PRX - MATA123() -> CMT123FIL := EXECBLOCK("MT123FIL",.F.,.F.)

MATA123.PRX - MATA123() -> EXECBLOCK("MT123BRW",.F.,.F.)

MATA125.PRX - A125CONTRATO() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK("MT125GET",.F.,.F.,{APOSOBJ,NOPCX}))== "A",APOSOBJPE,APOSOBJ)

MATA125.PRX - A125CONTRATO() -> EXECBLOCK("MT125TEL",.F.,.F.,{@ODLG, APOSGET, AOBJ, NOPCX, NREG} )

MATA125.PRX - A125CONTRATO() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA125BUT", .F., .F., { AROTINA[NOPCX][4] } ) ) == "A"

MATA125.PRX - A125CONTRATO() -> SETKEY( VK_F4,{ || EXECBLOCK("MT125F4",.F.,.F., 0 ) } )

MATA125.PRX - A125DELOK() -> LRET:=EXECBLOCK("MT125DELOK",.F.,.F.)

MATA125.PRX - A125GRAVA() -> CGRUPO := EXECBLOCK("MT125APV",.F.,.F.)

MATA125.PRX - A125GRAVA() -> EXECBLOCK("MT125EXC",.F.,.F.)

MATA125.PRX - A125GRAVA() -> EXECBLOCK("MT125F",.F.,.F.,XFILIAL("SC3")+CA125NUM)

MATA125.PRX - A125GRAVA() -> EXECBLOCK("MT125GRV",.F.,.F.)

MATA125.PRX - A125IMPRI() -> LRET := EXECBLOCK( CPRINTER, .F., .F., { CALIAS, NRECNO, NOPCX } )

MATA125.PRX - A125LEGEND() -> ALEGEUSR := EXECBLOCK("MT125LEG",.F.,.F.,{ALEGENDA})

MATA125.PRX - A125LINOK() -> LRETPE:= EXECBLOCK("MT125LOK",.F.,.F.,{LRET})

MATA125.PRX - A125TUDOK() -> LRET := EXECBLOCK("MT125OK",.F.,.F.)

MATA125.PRX - MATA125() -> CFILQUERY := ALLTRIM(EXECBLOCK("MT125QRY",.F.,.F.))

MATA125.PRX - MATA125() -> CM125FIL := EXECBLOCK("MT125FIL",.F.,.F.)

MATA125.PRX - MATA125() -> EXECBLOCK("MT125BRW",.F.,.F.)

MATA125.PRX - MENUDEF() -> EXECBLOCK("MTA125MNU",.F.,.F.)

MATA126.PRX - A126AGLUT() -> CFILTRO := EXECBLOCK("MA126FIL",.F.,.F.,{CCOND})

MATA126.PRX - A126MAKE() -> ANEWCAMPOS := EXECBLOCK("MA126CPO",.F.,.F.,{ACAMPOS} )

MATA126.PRX - A126MAKE() -> EXECBLOCK("MA126GRV",.F.,.F.,{CNUMSC,AREGS})

MATA126.PRX - A126MAKE() -> LAPAGA := EXECBLOCK("MA126ASC",.F.,.F.,{CNUMSC})

MATA130.PRX - A130GERA() -> EXECBLOCK("MT130GER",.F.,.F.)

MATA130.PRX - A130GRAVA() -> ABUTTONUSR := EXECBLOCK("MT130BUTTONS",.F.,.F.)

MATA130.PRX - A130GRAVA() -> AFORNEC:= EXECBLOCK("MT130FOR",.F.,.F.,AFORNEC)

MATA130.PRX - A130GRAVA() -> CNEWCODTAB:=EXECBLOCK("A130CODTAB",.F.,.F.,{SC1->C1_PRODUTO,SB1->B1_GRUPO,AFORNEC[NCNTFOR,1],AFORNEC[NCNTFOR,2],CCODTAB})

MATA130.PRX - A130GRAVA() -> EXECBLOCK("MTA130C8",.F.,.F.)

MATA130.PRX - A130GRAVA() -> IF VALTYPE(ACOLSUSER:=EXECBLOCK("MT130COL",.F.,.F.,{ACOLS})) == "A"

MATA130.PRX - A130GRAVA() -> IF VALTYPE(AHEADUSER:=EXECBLOCK("MT130HED",.F.,.F.,{AHEADER})) == "A"

MATA130.PRX - A130IMPRI() -> EXECBLOCK( CPRINTER, .F., .F., { CNUMERO } )

MATA130.PRX - A130LEGENDA() -> ACORESNEW := EXECBLOCK("MT130LEG",.F.,.F.,{ACORES})

MATA130.PRX - A130LINOK() -> LRET := EXECBLOCK("MT130LOK",.F.,.F.)

MATA130.PRX - A130LOCK() -> AGRUPOS := EXECBLOCK("A130LOCK",.F.,.F.,{LTRAVA})

MATA130.PRX - A130PROCES() -> BQUEBRA := EXECBLOCK("MA130QSC",.F.,.F.,{BQUEBRA})

MATA130.PRX - A130PROCES() -> CFILQRY := ALLTRIM(EXECBLOCK("M130PROC",.F.,.F., {CFILQRY} ))

MATA130.PRX - A130PROCES() -> CKEY130 := EXECBLOCK("MA130KEY",.F.,.F.,{CKEY})

MATA130.PRX - A130PROCES() -> EXECBLOCK("MT130WF",.F.,.F.,{ASC8NUM[1],ASC8NUM})

MATA130.PRX - A130PROCES() -> LNUMCOT:=EXECBLOCK("MA130QNR",.F.,.F.,{})

MATA130.PRX - A130PROCES() -> LPROCESSA:= EXECBLOCK("MTA130SK",.F.,.F.)

MATA130.PRX - A130TUDOK() -> LRET := EXECBLOCK("MT130TOK",.F.,.F.,{NPOSFORN,NPOSLOJ})

MATA130.PRX - MATA130() -> ACORESNEW := EXECBLOCK("MT130COR",.F.,.F.,{ACORES})

MATA130.PRX - MATA130() -> AFILTRA := EXECBLOCK("MT130IFC",.F.,.F.)

MATA130.PRX - MATA130() -> AFILTRA := EXECBLOCK("MT130IFR",.F.,.F.)

MATA130.PRX - MATA130() -> CAUXFIL := ALLTRIM(EXECBLOCK("M130FIL",.F.,.F.))

MATA130.PRX - MENUDEF() -> EXECBLOCK("MTA130MNU",.F.,.F.)

 

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima