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