Salve salve....
Pontos de Entrada P12.2210
PMSXFUNA.PRW - AUXDELAF9() -> EXECBLOCK("PMSDEAF9",.F.,.F.,{CPROJETO,CREVISAO,CTAREFA})
PMSXFUNA.PRW - AUXRECODI() -> EXECBLOCK("PMSREVISA",.F.,.F.,{NEVENTO,CVERATU,CNEXTVER})
PMSXFUNA.PRW - AUXREVISA() -> EXECBLOCK("PMSREVISA",.F.,.F.,{NEVENTO,CVERATU,CNEXTVER})
PMSXFUNA.PRW - CCTAJUQUANT()() -> NRET := EXECBLOCK("CCTQTAJU",.F.,.F.,PARAMIXB)
PMSXFUNA.PRW - GERALAPP() -> AALIAS := EXECBLOCK("PMSAPONT", .F., .F., {AALIAS})
PMSXFUNA.PRW - PMSAF8SIMU() -> IF EXECBLOCK("PMAF8SIM", .F., .F., {AF8->AF8_PROJET,ATAREFS})
PMSXFUNA.PRW - PMSAFOTOK() -> LRET := EXECBLOCK("PMSAFOV", .F., .F.)
PMSXFUNA.PRW - PMSATUNEC() -> EXECBLOCK("PMSAF9DT",.F.,.F.)
PMSXFUNA.PRW - PMSATUNEC() -> EXECBLOCK("PMSCHGDT",.F.,.F.)
PMSXFUNA.PRW - PMSAVALAFA() -> CEDT := EXECBLOCK("PMSGAFA",.F.,.F.,{NEVENTO})
PMSXFUNA.PRW - PMSAVALAFA() -> EXECBLOCK("PMGRAFV",.F.,.F.)
PMSXFUNA.PRW - PMSAVALAFG() -> EXECBLOCK("PMSEXCSC",.F.,.F.)
PMSXFUNA.PRW - PMSAVALEVENT() -> CASSUNAUX:= EXECBLOCK("PMSMSGEA", .F., .F.)
PMSXFUNA.PRW - PMSAVALEVENT() -> EXECBLOCK("PMSNEWMSG",.F.,.F.)
PMSXFUNA.PRW - PMSAVALEVENT() -> EXECBLOCK(AFP->AFP_USRFUN,.F.,.F.)
PMSXFUNA.PRW - PMSCALCNEC() -> ANEWLOC := EXECBLOCK("PMS220LOC",.F.,.F.,{CLOCPAD})
PMSXFUNA.PRW - PMSCALCNEC() -> IF EXECBLOCK("PMS220FL",.F.,.F.)
PMSXFUNA.PRW - PMSCHKNINS() -> ANEWLOC := EXECBLOCK("PMS220LOC",.F.,.F.,{CLOCPAD})
PMSXFUNA.PRW - PMSCHKNINS() -> LAUX := !EXECBLOCK("PMS220FL",.F.,.F.)
PMSXFUNA.PRW - PMSINIFIN() -> AARRAYTRB := EXECBLOCK("PMSINIFIN",.F.,.F.,{CPROJETO,CREVISA,CEDT,AARRAYTRB,LFLUXO,NMOEDA,DDATAREF})
PMSXFUNA.PRW - PMSNUMAF2() -> CTAREFA:= EXECBLOCK("PMSNOAF2",.F.,.F.,{CTAREFA})
PMSXFUNA.PRW - PMSNUMAF2() -> CTAREFA:= EXECBLOCK("PMSNUMAF2",.F.,.F.,{CTAREFA})
PMSXFUNA.PRW - PMSNUMAF5() -> CEDT := EXECBLOCK("PMSNOAF5",.F.,.F.,{CEDT})
PMSXFUNA.PRW - PMSNUMAF5() -> CEDT := EXECBLOCK("PMSNUMAF5",.F.,.F.,{CEDT})
PMSXFUNA.PRW - PMSNUMAF9() -> CTAREFA := EXECBLOCK("PMSNOAF9",.F.,.F.,{CTAREFA,CPROJETO,CREVISA,COLDNIVELTRF,CEDTPAI,LLIBERACOD})
PMSXFUNA.PRW - PMSNUMAF9() -> CTAREFA := EXECBLOCK("PMSNUMAF9",.F.,.F.,{CTAREFA,CPROJETO,CREVISA,COLDNIVELTRF,CEDTPAI,LLIBERACOD})
PMSXFUNA.PRW - PMSNUMAFC() -> CEDT := EXECBLOCK("PMSNOAFC",.F.,.F.,{CEDT,CPROJETO,CREVISA,COLDNIVELTRF,CEDTPAI,LLIBERACOD})
PMSXFUNA.PRW - PMSNUMAFC() -> CEDT := EXECBLOCK("PMSNUMAFC",.F.,.F.,{CEDT,CPROJETO,CREVISA,COLDNIVELTRF,CEDTPAI,LLIBERACOD})
PMSXFUNA.PRW - PMSORCCOPY() -> CEDT := EXECBLOCK("PMSCPAF5",.F.,.F.,{ CEDT ,"AF5" ,AF5->(RECNO()) })
PMSXFUNA.PRW - PMSORCCOPY() -> CEDT := EXECBLOCK("PMSCPAF5",.F.,.F.,{ CEDT ,"AFC" ,AFC->(RECNO()) })
PMSXFUNA.PRW - PMSORCCOPY() -> CTAREFA := EXECBLOCK("PMSCPAF2",.F.,.F.,{ CTAREFA ,"AF2" ,AF2->(RECNO()) })
PMSXFUNA.PRW - PMSORCCOPY() -> CTAREFA := EXECBLOCK("PMSCPAF2",.F.,.F.,{ CTAREFA ,"AF9" ,AF9->(RECNO()) })
PMSXFUNA.PRW - PMSORCCOPY() -> EXECBLOCK("PMAOCPY", .F., .F., {"E", AF5->AF5_ORCAME, AF5->AF5_EDT, CORCCODE, COLDCODE})
PMSXFUNA.PRW - PMSORCCOPY() -> EXECBLOCK("PMAOCPY", .F., .F., {"T", AF2->AF2_ORCAME, AF2->AF2_TAREFA, CORCCODE, COLDCODE})
PMSXFUNA.PRW - PMSORCCOPY() -> EXECBLOCK("PMP2BCPY", .F., .F., {"E", AF5->AF5_ORCAME, AF5->AF5_EDT, AFC->AFC_PROJET, ;
PMSXFUNA.PRW - PMSORCCOPY() -> EXECBLOCK("PMP2BCPY", .F., .F., {"T", AF2->AF2_ORCAME, AF2->AF2_TAREFA, AF9->AF9_PROJET, ;
PMSXFUNA.PRW - PMSPRJCOPY() -> ACPYFRMFIL :=EXECBLOCK("PMCPYFIL",.F.,.F.,{ACPYFRMFIL})
PMSXFUNA.PRW - PMSPRJCOPY() -> CEDT := EXECBLOCK("PMSCPAFC",.F.,.F.,{ CEDT ,"AFC" ,AFC->(RECNO()) })
PMSXFUNA.PRW - PMSPRJCOPY() -> CTAREFA := EXECBLOCK("PMSCPAF9",.F.,.F.,{ CTAREFA ,"AF9" ,AF9->(RECNO()) })
PMSXFUNA.PRW - PMSPRJCOPY() -> EXECBLOCK("PM200CPPR", .F., .F., {ADESTCPY[1], ADESTCPY[2], ADESTCPY[3], ARETCOPY[1], ARETCOPY[2], ARETCOPY[3]})
PMSXFUNA.PRW - PMSPRJCOPY() -> EXECBLOCK("PMAPCPY", .F., .F., {"E", AFC->AFC_PROJET, AFC->AFC_REVISA, AFC->AFC_EDT, CPRJCODE, CREVCODE, COLDCODE})
PMSXFUNA.PRW - PMSPRJCOPY() -> EXECBLOCK("PMAPCPY", .F., .F., {"T", AF9->AF9_PROJET, AF9->AF9_REVISA, AF9->AF9_TAREFA, CPRJCODE, CREVCODE, COLDCODE})
PMSXFUNA.PRW - PMSPRJCOPY() -> EXECBLOCK("PMB2PCPY", .F., .F., {"E", AFC->AFC_PROJET, AFC->AFC_REVISA, ;
PMSXFUNA.PRW - PMSPRJCOPY() -> EXECBLOCK("PMB2PCPY", .F., .F., {"T", AFC->AFC_PROJET, AFC->AFC_REVISA, AFC->AFC_EDT, ;
PMSXFUNA.PRW - PMSPRJCOPY() -> EXECBLOCK("PMSINCAFP",.F.,.F.,{NRECORIG})
PMSXFUNA.PRW - PMSPRJCOPY() -> LCALC := EXECBLOCK("PMACPYCAL", .F., .F.)
PMSXFUNA.PRW - PMSRETFIN() -> LCONSIDERA := EXECBLOCK("PMSRETPV",.F.,.F.,{LFLUXO})
PMSXFUNB.PRW - DLGTOEXCEL() -> LRET := EXECBLOCK("DLGEXCEL",.F.,.F.,AEXPORT)
PMSXFUNB.PRW - PMSAJ7TOK() -> LRET := EXECBLOCK("PMSAJ7MB", .F., .F., {LRET})
PMSXFUNB.PRW - PMSAVALAJ7() -> EXECBLOCK("PMSEXCPC",.F.,.F.)
PMSXFUNB.PRW - PMSDLGPC() -> AALTER := ACLONE(EXECBLOCK("PMSAJ7CPO", .F.,.F.,{AALTER,AHEADER,ACOLS}))
PMSXFUNB.PRW - PMSDLGPC() -> AUSERCOLS := EXECBLOCK("PMSAJ7COLS", .F.,.F.,{CITEMPC,CNUMSC,CITEMSC,NQUANTPC,NVLRTOTAL,AHEADER,ACOLS})
PMSXFUNB.PRW - PMSDLGPC() -> EXECBLOCK("PMSPCSCR",.F.,.F.,{ODLG,NOPCAO})
PMSXFUNB.PRW - PMSDLGRS() -> EXECBLOCK("PMSDLGRC", .F., .F.)
PMSXFUNB.PRW - PMSDLGRS() -> EXECBLOCK("PMSRSSCR",.F.,.F.,{ODLG,NOPCAO})
PMSXFUNB.PRW - PMSINCSD2() -> EXECBLOCK("PMSNFINC", .F., .F., {CPROJPMS, CEDTPMS, CTASK})
PMSXFUNB.PRW - PMSSETF3() -> CEOFF3AF9 := EXECBLOCK("PMSSET92",.F.,.F.)
PMSXFUNB.PRW - PMSSETF3() -> CEOFF3AFC := EXECBLOCK("PMSSET91",.F.,.F.)
PMSXFUNB.PRW - PMSVLDSC() -> LOK := EXECBLOCK("PMSALTSC",.F.,.F., {AHEADER,ACOLS,CNUMSC,LEXCLUI} )
PMSXSOLUM.PRW - PMSEXCPROD() -> ACOLIG:= EXECBLOCK("PMRMCOLIG",.F.,.F.,{"SB1",ACOLIG})
PMSXSOLUM.PRW - PMSEXCPROD() -> ACOLIG:= EXECBLOCK("PMRMCOLIG",.F.,.F.,{"SE4",ACOLIG})
PMSXSOLUM.PRW - PMS_SA1() -> ACOLIG:= EXECBLOCK("PMRMCOLIG",.F.,.F.,{"SA1",ACOLIG})
PMSXSOLUM.PRW - PMS_SA2() -> ACOLIG:= EXECBLOCK("PMRMCOLIG",.F.,.F.,{"SA2",ACOLIG})
PMSXSOLUM.PRW - PMS_SB2() -> ACOLIG := EXECBLOCK("PMRMCOLIG",.F.,.F.,{"SB2",ACOLIG})
PMSXSOLUM.PRW - PMS_SE4() -> ACOLIG:= EXECBLOCK("PMRMCOLIG",.F.,.F.,{"SE4",ACOLIG})
PONA020.PRW - AT020CHGDIA() -> EXECBLOCK("PNA020GRV",.F.,.F.,{ CFILSP3, DDATA, CDESCRICAO, 3 } )
PONA040.PRX - MENUDEF() -> EXECBLOCK("PNA040MNU", .F., .F.)
PONA040.PRX - PN040ATU() -> IF ( VALTYPE( LRET := EXECBLOCK( "PNA040GRV",.F.,.F., { CALIAS, (PREFIXOCPO( IF( LPONA180 , "SPG" , "SP8" ) ) + "_" ), NOPCX } ) ) == "L" )
PONA040.PRX - PN040ATU() -> IF ( VALTYPE( LRET := EXECBLOCK( "PNA040GRV",.F.,.F., { CALIAS, CPREFIX, NOPCX } ) ) == "L" )
PONA040.PRX - PN040LINOK() -> LRET:=EXECBLOCK( "PNA040VAL" , .F. , .F. , { ACLONE( ACOLS1 ) , ACLONE( AOLDCOLS1 ), ACLONE( ATABCALEND ), NVAL } )
PONA040.PRX - PNA040EDITCEL() -> EXECBLOCK("PNA040CEL",.F.,.F.,{CPREFIXO})
PONA040.PRX - PONCHOIBAR() -> ABAR40 := EXECBLOCK( "PNA040BAR", .F., .F., {ABUTTONS} )
PONA040.PRX - PONCHOIBAR() -> ABTN40 := EXECBLOCK ( "PNA040BTN",.F.,.F. )
PONA040.PRX - PREPARACLA() -> EXECBLOCK( "PONAPO3" , .F. , .F. , { ACLONE( AMARCACOES ) , ACLONE( ATABCALEND ) } , .F. )
PONA120.PRX - PONA120DEL() -> LOCAL BVALDEL := {||EXECBLOCK("PN120OK", .F., .F.)}
PONA130.PRX - APONT130OK() -> LRET := EXECBLOCK("PN130VAL", .F., .F., {ACOLS[N]})
PONA130.PRX - PN130ATU() -> IF ( VALTYPE( LRET := EXECBLOCK("PNA130GRV",.F.,.F.,{ CALIAS, CPREFIX, NOPCX } ) ) == "L" )
PONA160.PRX - PN160TUDOK() -> LTUDOOK := EXECBLOCK("PN160VAL", .F., .F., {ACOLS[N]})
PONA160.PRX - PON160LOT() -> EXECBLOCK('PONAP160' , .F., .F.)
PONA161.PRX - PONA161DUV() -> ARETPEDT := EXECBLOCK("PN161VALDT", .F., .F., {DDATATRA})
PONA161.PRX - PONA161TRFALL() -> EXECBLOCK("PONAP161", .F., .F., {DDATATRA})
PONA161.PRX - PONA161TRFALL() -> EXECBLOCK('PONAP160' , .F., .F.)
PONA170.PRX - PONA170MNT() -> IF ( VALTYPE( LRET := EXECBLOCK("PNA170GRV",.F.,.F.,{CALIAS,CPREFIXO,AHEADER,NOPCX})) == "L" )
PONA200.PRX - PN200GRAVA() -> EXECBLOCK("PNA200GRV",.F.,.F.,{NOPCX,AHEADER,ACOLS})
PONA200.PRX - PONA200DELE() -> EXECBLOCK("PNA200GRV",.F.,.F.,{5,AHEADER,ACOLS})
PONA210.PRX - APONT210OK() -> LRET := EXECBLOCK( "PN210VAL", .F., .F., {ACOLS[N]} )
PONA210.PRX - PN210GRAVA() -> EXECBLOCK("PNA210GRV",.F.,.F.,{ LARQUIVO } )
PONA230.PRX - PN230ATU() -> IF ( VALTYPE( LRET := EXECBLOCK("PNA230GRV",.F.,.F.,{ CALIAS, CPREFIX, NOPCX } ) ) == "L" )
PONA230.PRX - PN230ATU() -> IF ( VALTYPE( URET := EXECBLOCK("PNA230CEL",.F.,.F.,{ AARRAYMAIN } ) ) == "A" )
PONA280.PRX - FMARCGOTFOCUS() -> LLINEDIT := EXECBLOCK("PNA280LIN",.F.,.F., { DDATAPEND } )
PONA280.PRX - MENUDEF() -> AROTINA := EXECBLOCK( "PNA280ROT" ,.F.,.F.,{AROTINA}, .F. )
PONA280.PRX - PN280ATU() -> EXECBLOCK( "PNAPOSPC" , .F. , .F. , { CFILANT , CMATVAR } , .F. )
PONA280.PRX - PN280ATU() -> IF ( VALTYPE( LRET := EXECBLOCK("PNA280GRV",.F.,.F.,{ CALIAS, CPREFIX, AHEADER, NOPCX } ) ) == "L" )
PONA280.PRX - PN280ATU() -> IF ( VALTYPE( NRET := EXECBLOCK("PONOPCX3",.F.,.F., { NOPCX } ) ) == "N" )
PONA280.PRX - PN280ATU() -> IF ( VALTYPE( URET := EXECBLOCK( "PNA280BAR" , .F. , .F. , {NOPCX} ) ) ="A" )
PONA280.PRX - PN280CHOIBAR() -> IF ( VALTYPE( URET := EXECBLOCK( "PNA280BAR" , .F. , .F. , {NOPCX} ) ) ="A" )
PONA280.PRX - PN280DIVERGE() -> EXECBLOCK( "PNA280DIV", .F., .F. )
PONA280.PRX - PN280MOVIMENTA() -> EXECBLOCK( "PNA280POS" , .F. , .F. , {{|CACAO|PN280POSICIONA(CACAO) }, CACAO} )
PONA330.PRX - PN330ROT() -> IIF ( L330VALID , EXECBLOCK("PN330VALID" , .F. , .F.) , .T. ) .AND. ;
PONA340.PRX - FAGENDCOR() -> ACORES := EXECBLOCK( "P340LEG" ,.F.,.F.,{ACORES,2}, .F. )
PONA340.PRX - FCFGETIQUETA() -> EXECBLOCK( "ETQVIST", .F. , .F., {1}, .F. )
PONA340.PRX - FEMISSAO() -> EXECBLOCK( "ETQVIST", .F., .F., {3}, .F. )
PONA340.PRX - FIMPRIME() -> EXECBLOCK( "ETQVIST" , .F. , .F. ,{2}, .F. )
PONA340.PRX - FVALIDGET() -> LRET:= EXECBLOCK("PN340VALID" , .F. , .F.)
PONA340.PRX - PN340LEG() -> ACORES := EXECBLOCK( "P340LEG" ,.F.,.F.,{ACORES,1}, .F. )
PONA340.PRX - PN340ROT() -> IF !(EXECBLOCK( "P340VLD" ,.F.,.F.,{NOPC}, , .F. ))
PONA340.PRX - PONA340() -> IF (VALTYPE(URET := EXECBLOCK( "P340FILT" ,.F.,.F.,{CEXPFILTRO}, .F. )) == "C")
PONA350.PRX - FVLDPEGRV() -> LRETPE := EXECBLOCK("PN350GRV" , .F. , .F. , {ACOLS})
PONM010.PRX - FGERAREF() -> IF ( VALTYPE( URET := EXECBLOCK("PNM010REF1",.F.,.F.,ACLONE(ACAMPOS) ) ) == "A" )
PONM010.PRX - GETMRBYSP0() -> EXECBLOCK( "PONAPO6" , .F. , .F. )
PONM010.PRX - GETMRBYSRA() -> EXECBLOCK( "PONAPO6" , .F. , .F. )
PONM010.PRX - PONM010APONTA() -> EXECBLOCK( "PONAPO3" , .F. , .F. , { ACLONE( AMARCACOES ) , ACLONE( ATABCALEND ) } , .F. )
PONM010.PRX - PONM010APONTA() -> IF ( VALTYPE( URET := EXECBLOCK( "PONAPO1" , .F. , .F. , AMARCACOES ) ) == "A" )
PONM010.PRX - PONM010APONTA() -> IF ( VALTYPE( URET := EXECBLOCK( "PONAPO2" , .F. , .F. , { AMARCACOES , ATABCALEND } ) ) == "A" )
PONM010.PRX - PONM010APONTA() -> IF ( VALTYPE( URET := EXECBLOCK("PONAPO5" , .F. , .F. , { AMARCACOES , ATABCALEND } ) ) == "A" )
PONM010.PRX - PONM010PROCESSA() -> EXECBLOCK( "PONAPO8" , .F. , .F. , { AABREARQREL , CLOGFILE } )
PONM010.PRX - PONM010REF() -> EXECBLOCK( "PONAPO7" , .F. , .F. , SP5->( RECNO() ) )
PONM010.PRX - PONM010REF() -> IF ( VALTYPE( URETBLOCK := EXECBLOCK("PNM010R2",.F.,.F.,;
PONM010.PRX - SELECTSRA() -> IF ( VALTYPE( URET := EXECBLOCK("PNM010CPOS",.F.,.F.,ACPOSSRA) ) == "A" )
PONM040.PRX - PNM040PROCESSA() -> EXECBLOCK("PNM40SR8",.F.,.F.,APARAMDAT)
PONM040.PRX - PNM040PROCESSA() -> EXECBLOCK("PNM40SRF",.F.,.F.,ACOLSSPL)
PONM070.PRX - FCALCBH() -> IF ( VALTYPE( ARETBLOCK := EXECBLOCK("PNM070BH01",.F.,.F.,{DDATA, CPERAPUR, AEVEBH[NT,1], ACLONE(ATOTAIS), ACLONE(ABHACUM), ACLONE(AEVEBH), LACUMBH, NTBHORAS}) ) == "A" )
PONM070.PRX - FCONTAEVENTO() -> URETBLOCK := EXECBLOCK(;
PONM070.PRX - FDESCDSR() -> IF ( VALTYPE( ARETBLOCK := EXECBLOCK("PNMDDSR01",.F.,.F.,{DDATA, NHORAS, NNUMOCORR, NNUMATRA, 1 }) ) == "A" )
PONM070.PRX - FDESCDSR() -> IF ( VALTYPE( ARETBLOCK := EXECBLOCK("PNMDDSR01",.F.,.F.,{DDATA, NHORAS, NNUMOCORR, NNUMATRA, 2 }) ) == "A" )
PONM070.PRX - FDESCDSR() -> IF ( VALTYPE( ARETBLOCK := EXECBLOCK("PNMDDSR2",.F.,.F.,;
PONM070.PRX - O //() -> EXECBLOCK("PN070LOG" , .F. , .F. , {ALOGDET,CTIMEINI,CUSRLOG,DDATAINI})
PONM070.PRX - PNM070PROC() -> EXECBLOCK("PONCALD" , .F. , .F. )
PONM070.PRX - PNM070PROC() -> EXECBLOCK("PONCALM" , .F., .F.)
PONM070.PRX - PNM070PROC() -> IF ( VALTYPE( ARETBLOCK := EXECBLOCK("PNM07001",.F.,.F.,{ACLONE(ATOTAIS), ACLONE(ABHACUM)}) ) == "A" )
PONM070.PRX - PNM070PROC() -> IF ( VALTYPE( URETBLOCK := EXECBLOCK( "PONCALR" , .F. , .F. , { ATOTAIS , ACODREF } ) ) == "A" )
PONM070.PRX - PNM070PROC() -> URETBLOCK := EXECBLOCK(;
PONM070.PRX - PONCALHE() ³() -> URETBLOCK := EXECBLOCK(;
PONM080.PRX - FGRAVA_BH() -> EXECBLOCK( "PN80GRBH", .F., .F., {CEVEPROV, CEVEDESC, ASPI, ADELSPI, DDATAGRV, CEVERESC} )
PONM080.PRX - FGRAVA_BH() -> IF ( VALTYPE( URETBLOCK := EXECBLOCK("PNM80GRV",.F.,.F.,{CEVEPROV,CEVEDESC,ASPI,ADELSPI,DDATAGRV,CEVERESC}) ) == "L" )
PONM080.PRX - PNM080PROCESSA() -> EXECBLOCK("PNM08001",.F.,.F.,{CEVEPROV,CEVEDESC,ASPI,ADELSPI,DDTPAGTO, NSALDO, NTPFECH})
PONM090.PRX - PNM090PROCESSA() -> EXECBLOCK( "PNM090END", .F., .F. )
PONM090.PRX - PNM090PROCESSA() -> IF ( VALTYPE( URET := EXECBLOCK("PNM090CPOS",.F.,.F.,ACPOSSRA) ) == "A" )
PONM090.PRX - PONM090() -> ELSEIF LPNM090PNM090OK .AND. (VALTYPE( LRETPE := EXECBLOCK( "PNM090OK", .F., .F. ) ) == "L")
PONXAPO.PRX - APONTA() -> IF( VALTYPE( ARETPE := EXECBLOCK( "PNMTABHE", .F., .F., {.F., OAPONTA:ATABEXTRA} ) ) == "A" )
PONXAPO.PRX - APONTA() -> IF(VALTYPE(LPFERHEVAL := EXECBLOCK( "PONFERHE", .F.,.F.,{ACLONE(OAPONTA:ATABCALEND),OAPONTA:NPOSCALEND,LAPHEDTM} ))== "L")
PONXAPO.PRX - FHEMOVEL() -> AHORASNEW := EXECBLOCK( "PONAPO9", .F., .F., {AONLYMARKINGS, NHORASTRAB, @OAPONTA} )
PONXAPO.PRX - PONAPO4() ³() -> EXECBLOCK(;
PONXFUN.PRX - CALENDCRIA() -> IF ( VALTYPE( URET := EXECBLOCK("PNMTAB01",.F.,.F., { CFILSRA , CMAT , DDATA, CNEWTNO, ACLONE(ATABTNO[NPOS]) }) ) == "A" )
PONXFUN.PRX - CARREGACALEND() -> IF ( VALTYPE( URET := EXECBLOCK("PNMTAB01",.F.,.F., { CFIL, CMAT , DDATAAPO, CTURNO, ACLONE(ATABTNO[NPOS]) }) ) == "A" )
PONXFUN.PRX - FADDEXCE() -> IF EXECBLOCK("PNMEXCFI",.F.,.F.,{AARRAY, LARRAY, AEXCEPER, NPOS, DDATA, CREGRA, NRECNO, GETAREA()[1]}, .F.)
PONXFUN.PRX - FBSCEVEN() -> LRET := EXECBLOCK("PNMAUTEVEN", .F., .F., {CEVENTO, NTPEVENTO} )
PONXFUN.PRX - FTOLERANCIA() -> IF ( VALTYPE( CRET := EXECBLOCK( "PNMTOLALT", .F. , .F. , {DDATA, NTPTOL, CSTRING} ) ) == "C" )
PONXFUN.PRX - FTROCATNO() -> ASPF:=EXECBLOCK( "PONAPO11" , .F. , .F. , { DPERINI , DPERFIM, CSEQ } )
PONXFUN.PRX - GRAVASPC() -> EXECBLOCK( "PNAPOSPC" , .F. , .F. , { CFIL , CMAT } , .F. )
PONXFUN.PRX - PUTMARCAUTO() -> IF ( VALTYPE( CRET := EXECBLOCK( "PNMMOTMARC", .F. , .F. , ) ) == "C" )
PONXFUN.PRX - PUTMARCAUTO() -> IF ( VALTYPE( URET := EXECBLOCK("PNMCAUT01" , .F. , .F. , {ATAB_MARC, ATDIA, AMDIA, CNEWMARCAUT } ) ) == "A" )
PONXFUN.PRX - PUTMARCAUTO() -> URET := EXECBLOCK("MARCAUT2" , .F. , .F. , {CNEWMARCAUT,CMARCSOBRIGA,CMARCSEFE,NMARCSGER,LMARCSOBRIGA})
PONXFUN.PRX - PUTMARCAUTO() -> URET := EXECBLOCK("MARCAUT3" , .F. , .F. , {ACLONE(AMARCDIA)})
PONXRDM.PRX - PONXEXTRBH() -> EXECBLOCK( "EXTRABH", .F., .F. )
PONXRDM.PRX - PONXQDHR() -> EXECBLOCK( "PONQDHR", .F., .F. )
PPLMFUN.PRW - PPCBOSPSAU()() -> ARET := EXECBLOCK('PLSPROF',.F.,.F.,{HTTPGET->CPROSAUD,HTTPGET->CMATRIC})
PPLMFUN.PRW - PPCBOSPSAU()() -> ARET :=EXECBLOCK('PLSPROF',.F.,.F.,{HTTPGET->CPROSAUD,HTTPGET->CMATRIC})
PPLMFUN.PRW - PPLCHAATE()() -> HTTPSESSION->COBRCPGUIA := EXECBLOCK('PLSCPGUI',.F.,.F.,{HTTPSESSION->CTP})
PPLMFUN.PRW - PPLCHAELE()() -> HTTPSESSION->AMATELEG := EXECBLOCK("PPLEXIELE",.F.,.F.)
PPLMFUN.PRW - PPLIMPGUIA()() -> CRET := EXECBLOCK("PPLMFUN1",.F.,.F.,{})
PPLMFUN.PRW - PPLPROCGUI()() -> ADADB7B := EXECBLOCK("PLB7BGRV",.F.,.F.,{})
PPLMFUN.PRW - PPLPROCGUI()() -> LRET := EXECBLOCK("PPLSVPTU",.F.,.F.,{CMATRICULA,CNUMAUT})
PPLMFUN.PRW - PPLSDADUSR()() -> CRESULT := EXECBLOCK("PLSVLDC",.F.,.F.,{HTTPGET->TRILHACARD,HTTPSESSION->CTIPCAR,AMATRCARTAO,CRESULT})
PPLMFUN.PRW - PPLSDADUSR()() -> IF EXECBLOCK('PPLBIOMET',.F.,.F.,{CNUMCARTAO})
PPLMFUN.PRW - PPLSMATREI()() -> CRET := EXECBLOCK("PPLMFUN1",.F.,.F.,{})
PPLMFUN.PRW - PPSDADPSAU()() -> ARET :=EXECBLOCK('PLSPROF',.F.,.F.,{HTTPGET->CPROSAUD,HTTPGET->CMATRIC})
PPLMFUN.PRW - PPSVLDESP()() -> ARET := EXECBLOCK( "PPLREGBTN",.F.,.F.,{CCODRDA,CMATRIC,CCODPAD,CCODPRO,DDATPRO,APROCS} )
PPLMFUN.PRW - PPSVLDESP()() -> ARET := EXECBLOCK( "PPLREGBTN",.F.,.F.,{CCODRDA,CMATRIC,CCODPAD,CCODPRO,DDATPRO} )
PPLSRDBRW.PRW - PLB4FB7D()() -> ACUSTOM := EXECBLOCK("PLRDITUSOC",.F.,.F.,{ })
PPLSRDBRW.PRW - PLBRWB4D()() -> CWHERE += EXECBLOCK("PLRETB4D",.F.,.F.)
PPLSRDBRW.PRW - PLBRWB4F()() -> ACUSTOM := EXECBLOCK("PLRDUSOCON",.F.,.F.,{ AFIELDCUSTOM })
PPLSRDBRW.PRW - PLBRWBCI()() -> ARET := EXECBLOCK("BRWFILPRO",.F.,.F.,{CALIAS,APAR,CSQL,CWHERE,CCAMPOS,CFIELDJ})
PPLSRDBRW.PRW - PLBRWBD5()() -> ARET := EXECBLOCK("BRWFILPRO",.F.,.F.,{CALIAS,APAR,CSQL,CWHERE,CCAMPOS,CFIELDJ})
PPLSRDBRW.PRW - PLGCLOGUIR()() -> ADADOS := EXECBLOCK("PLSMOSSOL", .F., .F., { PARAMIXB[1], PARAMIXB[2] } )
PPLSRDBRW.PRW - PLSGETBA1()() -> CCAMPOS := EXECBLOCK("PLGETBA1",.F.,.F.,{CCAMPOS})
PPLSRDF3.PRW - PLF3PROF()() -> CSQL += EXECBLOCK("PLFILBC1",.F.,.F.)
PPLSRDREL.PRW - PLSIMPBEN()() -> ARET := EXECBLOCK("PLSR956U",.F.,.F.,{NRECNO,.T.,__RELIMP})
PPLSRDREL.PRW - PPLSRECB()() -> ARET := EXECBLOCK("PLRRN360",.F.,.F.,{CMATRIC,{},.T.,__RELIMP})
PPLSRDREL.PRW - PPRELST()() -> AGUIAGEN := EXECBLOCK("PLR430INT",.F.,.F.,{AGUIAGEN})
PPLSRDREL.PRW - PPRELST()() -> AGUIAGEN := EXECBLOCK("PLR430SADT",.F.,.F.,{AGUIAGEN})
PPLSSADT.APH - -> CTEXCLI := EXECBLOCK("PPLSTEXT",.F.,.F.,{})
PRAA802.PRW - MENUDEF() -> XRET := EXECBLOCK('A802MNU')
PRODUCTIONAPPOINTMENT.PRW - GET -> CJSON := EXECBLOCK("PAPGETOP", .F., .F., {"3", CJSON, CFORMCODE})
PRODUCTIONAPPOINTMENT.PRW - GET -> CJSON := EXECBLOCK("PAPGETOP", .F., .F., {"4", CJSON, CFORMCODE})
PRODUCTIONAPPOINTMENT.PRW - POST -> AARRAYRET := EXECBLOCK("PAPAPOSAP", .F., .F., {SD3->(RECNO()), OJSON, CRESPONSE})
PRODUCTIONAPPOINTMENT.PRW - POST -> AMATA250 := EXECBLOCK("PAPPOSAP", .F., .F., {"1", AMATA250, NIL, NIL, OJSON['CODEFORM']})
PRODUCTIONAPPOINTMENT.PRW - POST -> AMATA681 := EXECBLOCK("PAPPOSAP", .F., .F., {"3", AMATA681, NIL, NIL, OJSON['CODEFORM']})
PRODUCTIONAPPOINTMENT.PRW - POST -> EXECBLOCK("PAPPOSAP", .F., .F., {"4", NIL, OMODEL, "1", OJSON['CODEFORM']})
PRODUCTIONAPPOINTMENT.PRW - POST -> EXECBLOCK("PAPPOSAP", .F., .F., {"4", NIL, OMODEL, "2", OJSON['CODEFORM']})
PRODUCTIONAPPOINTMENT.PRW - POST -> EXECBLOCK("PAPPOSAP", .F., .F., {"4", NIL, OMODEL, "3", OJSON['CODEFORM']})
PRODUCTIONORDERAPPAPI.PRW - POST -> ARETVLD := EXECBLOCK("POPOSTVLD", .F., .F., {CJSON})
PRODUCTIONORDERAPPAPI.PRW - POST -> CJSON := EXECBLOCK("POPOSTMNT", .F., .F., {CJSON})
PRODUCTIONORDERSSEARCH.PRW - FRETOPEROP() -> LCONSOP:= EXECBLOCK("POSFILOP",.F.,.F.,{CAPPOINTMENTTYPE,COP,CSTATUSOP,(CALIASOPER)->SPLIT,(CALIASOPER)->OPERACAO,CFORMCODE})
PRODUCTIONORDERSSEARCH.PRW - FRETOPEROP() -> LCONSOP:= EXECBLOCK("POSFILOP",.F.,.F.,{CAPPOINTMENTTYPE,COP,CSTATUSOP,NIL,(CALIASOPER)->OPERACAO,CFORMCODE})
PTSREPOBJ.PRW - WSEXCEPTION() -> OSRVCNT:NEXCEPTIONTYPE := EXECBLOCK("PTSABDNT",.F.,.F. )
PTSREPOBJ.PRW - WSUSER() -> OSRVCNT:CNATURALPERSONEXTERNALKEY:= EXECBLOCK("PTSACODU",.F.,.F. )
PTSREPOBJ.PRW - WSUSER() -> OSRVCNT:LCONTROLDOUBLEMARKING := EXECBLOCK("PTSADMAR",.F.,.F. )
PTSREPOBJ.PRW - WSUSER() -> OSRVCNT:LFREEACCESS := EXECBLOCK("PTSAAFAS",.F.,.F. )
PURCHASEORDERAPPROVAL.PRW - ADDFIELDSBYPE() -> CRESULT := EXECBLOCK( "MT094CPC", .F., .F. )
PURCHASEREQUESTAPPROVAL.PRW - GET -> SELF:EXECBLOCK := 'TESTECPO2'
PURCHASEREQUESTAPPROVAL.PRW - QUERYMODEL() -> OSERVICE:SETEXECBLOCK( OSELF:EXECBLOCK )
PWSA110.PRW - PWSA116()() -> ARETORNO := EXECBLOCK("PONTORH",.F.,.F.,{"3", HTTPSESSION->OREQUESTS[1]:CBRANCH, COD, HTTPPOST->TXTVISAO,NIL,NIL,HTTPPOST->TXTOBS,OORG:OWSGETSTRUCTURERESULT:OWSLISTOFEMPLOYEE:OWSDATAEMPLOYEE[1]:CEMPLOYEEFILIAL,OORG:OWSGETSTRUCTURERESULT:OWSLISTOFEMPLOYEE:OWSDATAEMPLOYEE[1]:CREGISTRATION})
PWSC020.PRW - PWSC022()() -> AWEBCOLS := EXECBLOCK( "PEC022", .F., .F., {} )
PWSC020.PRW - PWSC023()() -> AWEBCOLS := EXECBLOCK( "PEC023", .F., .F., {} )
PWSC030.PRW - PWSC030()() -> AWEBCOLS := EXECBLOCK( "PEC030", .F., .F., {2} )
PWSC030.PRW - PWSC030()() -> AWEBCOLS := EXECBLOCK( "PEC030", .F., .F., {3} )
PWSC030.PRW - PWSC031()() -> AWEBCOLS := EXECBLOCK( "PEC031", .F., .F., {1} )
PWSC030.PRW - PWSC031()() -> AWEBCOLS := EXECBLOCK( "PEC031", .F., .F., {2} )
PWSC030.PRW - PWSC031()() -> AWEBCOLS := EXECBLOCK( "PEC031", .F., .F., {3} )
PWSC030.PRW - PWSC032()() -> AWEBCOLS := EXECBLOCK( "PEC032", .F., .F., {1} )
PWSC030.PRW - PWSC032()() -> AWEBCOLS := EXECBLOCK( "PEC032", .F., .F., {2} )
PWSC030.PRW - PWSC032()() -> AWEBCOLS := EXECBLOCK( "PEC032", .F., .F., {3} )
PWSC030.PRW - PWSC033()() -> AWEBCOLS := EXECBLOCK( "PEC033", .F., .F., {1} )
PWSC030.PRW - PWSC033()() -> AWEBCOLS := EXECBLOCK( "PEC033", .F., .F., {2} )
PWSC030.PRW - PWSC033()() -> AWEBCOLS := EXECBLOCK( "PEC033", .F., .F., {3} )
PWSC030.PRW - PWSC033()() -> AWEBCOLS := EXECBLOCK( "PEC033", .F., .F., {4} )
PWSC040.PRW - PWSC041()() -> AWEBCOLS := EXECBLOCK( "PEC041", .F., .F., {2} )
PWSC040.PRW - PWSC041()() -> AWEBCOLS := EXECBLOCK( "PEC041", .F., .F., {3} )
PWSC040.PRW - PWSC041()() -> AWEBCOLS := EXECBLOCK( "PEC041", .F., .F., {4} )
PWSC040.PRW - PWSC041()() -> AWEBCOLS := EXECBLOCK( "PEC041", .F., .F., {5} )
PWSC040.PRW - PWSC041()() -> AWEBCOLS := EXECBLOCK( "PEC041", .F., .F., {6} )
PWSC040.PRW - PWSC044()() -> AWEBCOLS := EXECBLOCK( "PEC044", .F., .F., {} )
PWSC040.PRW - PWSC045()() -> AWEBCOLS := EXECBLOCK( "PEC045", .F., .F., { 1 } )
PWSC040.PRW - PWSC045()() -> AWEBCOLS := EXECBLOCK( "PEC045", .F., .F., { 2 } )
PWSC040.PRW - PWSC045()() -> AWEBCOLS := EXECBLOCK( "PEC045", .F., .F., { 3 } )
PWSC040.PRW - PWSC045()() -> AWEBCOLS := EXECBLOCK( "PEC045", .F., .F., { 4 } )
PWSC050.PRW - PWSC053()() -> AWEBCOLS := EXECBLOCK( "PEC053", .F., .F., { 1 } )
PWSC050.PRW - PWSC053()() -> AWEBCOLS := EXECBLOCK( "PEC053", .F., .F., { 2 } )
PWSC050.PRW - PWSC054()() -> AWEBCOLS := EXECBLOCK( "PEC054", .F., .F., { 1 } )
PWSC050.PRW - PWSC054()() -> AWEBCOLS := EXECBLOCK( "PEC054", .F., .F., { 2 } )
PWSC060.PRW - PWSC061()() -> AWEBCOLS := EXECBLOCK( "PEC061", .F., .F., {2} )
PWSC060.PRW - PWSC061()() -> AWEBCOLS := EXECBLOCK( "PEC061", .F., .F., {3} )
PWSC060.PRW - PWSC063()() -> AWEBCOLS := EXECBLOCK( "PEC063", .F., .F., {1} )
PWSC060.PRW - PWSC063()() -> AWEBCOLS := EXECBLOCK( "PEC063", .F., .F., {2} )
PWSC060.PRW - PWSC063()() -> AWEBCOLS := EXECBLOCK( "PEC063", .F., .F., {3} )
PWSC060.PRW - PWSC063()() -> AWEBCOLS := EXECBLOCK( "PEC063", .F., .F., {4} )
PWSC070.PRW - PWSC073()() -> AWEBCOLS := EXECBLOCK( "PEC073", .F., .F., { 1 } )
PWSC070.PRW - PWSC073()() -> AWEBCOLS := EXECBLOCK( "PEC073", .F., .F., { 2 } )
PWSC070.PRW - PWSC073()() -> AWEBCOLS := EXECBLOCK( "PEC073", .F., .F., { 3 } )
PWSC070.PRW - PWSC074()() -> AWEBCOLS := EXECBLOCK( "PEC074", .F., .F., {} )
PWSC070.PRW - PWSC075()() -> AWEBCOLS := EXECBLOCK( "PEC075", .F., .F., { 1 } )
PWSC070.PRW - PWSC075()() -> AWEBCOLS := EXECBLOCK( "PEC075", .F., .F., { 2 } )
PWSC070.PRW - PWSC076()() -> AWEBCOLS := EXECBLOCK( "PEC076", .F., .F., {} )
PWSC070.PRW - PWSC078()() -> AWEBCOLS := EXECBLOCK( "PEC078", .F., .F., {} )
PWSC070.PRW - PWSC079()() -> AWEBCOLS := EXECBLOCK( "PEC079", .F., .F., {} )
PWSC080.PRW - PWSC083()() -> AWEBCOLS := EXECBLOCK( "PEC083", .F., .F., { 1 } )
PWSC080.PRW - PWSC083()() -> AWEBCOLS := EXECBLOCK( "PEC083", .F., .F., { 2 } )
PWSC080.PRW - PWSC084()() -> AWEBCOLS := EXECBLOCK( "PEC084", .F., .F., { 1 } )
PWSC080.PRW - PWSC084()() -> AWEBCOLS := EXECBLOCK( "PEC084", .F., .F., { 2 } )
PWSC110.PRW - PWSC112()() -> AWEBCOLS := EXECBLOCK( "PEC112", .F., .F., {} )
PWSC110.PRW - PWSC113()() -> AWEBCOLS := EXECBLOCK( "PEC113", .F., .F., { 1 } )
PWSC110.PRW - PWSC113()() -> AWEBCOLS := EXECBLOCK( "PEC113", .F., .F., { 2 } )
PWSC110.PRW - PWSC113C()() -> AWEBCOLS := EXECBLOCK( "PEC113C", .F., .F. )
PWSC110.PRW - PWSC113D()() -> AWEBCOLS := EXECBLOCK( "PEC113D", .F., .F. )
PWSC110.PRW - PWSC113E()() -> AWEBCOLS := EXECBLOCK( "PEC113E", .F., .F. )
PWSC110.PRW - PWSC113F()() -> AWEBCOLS := EXECBLOCK( "PEC113F", .F., .F. )
PWSC110.PRW - PWSC114()() -> AWEBCOLS := EXECBLOCK( "PEC112", .F., .F., { 1 } )
PWSC110.PRW - PWSC114()() -> AWEBCOLS := EXECBLOCK( "PEC112", .F., .F., { 2 } )
PWSC110.PRW - PWSC114A()() -> AWEBCOLS := EXECBLOCK( "PEC114A", .F., .F., { 1 } )
PWSC110.PRW - PWSC114A()() -> AWEBCOLS := EXECBLOCK( "PEC114A", .F., .F., { 2 } )
PWSC110.PRW - PWSC114A()() -> AWEBCOLS := EXECBLOCK( "PEC114A", .F., .F., { 3 } )
PWSC110.PRW - PWSC114A()() -> AWEBCOLS := EXECBLOCK( "PEC114A", .F., .F., { 4 } )
PWSC110.PRW - PWSC114A()() -> AWEBCOLS := EXECBLOCK( "PEC114A", .F., .F., { 5 } )
PWSC110.PRW - PWSC116A()() -> AWEBCOLS := EXECBLOCK( "PEC116A", .F., .F. )
PWSC110.PRW - PWSC117A()() -> AWEBCOLS := EXECBLOCK( "PEC117A", .F., .F. )
PWSC110.PRW - PWSC118A()() -> AWEBCOLS := EXECBLOCK( "PEC118A", .F., .F. )
PWSC120.PRW - PWSC123()() -> AWEBCOLS := EXECBLOCK( "PEC123", .F., .F., {2} )
PWSC140.PRW - PWSC143()() -> AWEBCOLS := EXECBLOCK( "PEC143", .F., .F., {} )
PWSC140.PRW - PWSC145()() -> AWEBCOLS := EXECBLOCK( "PEC145", .F., .F., {} )
PWSC140.PRW - PWSC146()() -> AWEBCOLS := EXECBLOCK( "PEC146", .F., .F., {} )
PWSC160.PRW - PWSC162()() -> AWEBCOLS := EXECBLOCK( "PEC162", .F., .F., {} )
PWSC160.PRW - PWSC163()() -> AWEBCOLS := EXECBLOCK( "PEC163", .F., .F., { 1 } )
PWSC160.PRW - PWSC163()() -> AWEBCOLS := EXECBLOCK( "PEC163", .F., .F., { 2 } )
PWSC170.PRW - PWSC172()() -> AWEBCOLS := EXECBLOCK( "PEC172", .F., .F., {} )
PWSC170.PRW - PWSC173()() -> AWEBCOLS := EXECBLOCK( "PEC173", .F., .F., {} )
PWSF020.PRW - PWSF021()() -> AWEBCOLS := EXECBLOCK( "PEF021", .F., .F., {} )
PWSF020.PRW - PWSF022()() -> AWEBCOLS := EXECBLOCK( "PEF022", .F., .F., {} )
PWSF040.PRW - PWSF041()() -> AWEBCOLS := EXECBLOCK( "PEF041", .F., .F., {2} )
PWSF040.PRW - PWSF041()() -> AWEBCOLS := EXECBLOCK( "PEF041", .F., .F., {3} )
PWSF040.PRW - PWSF041()() -> AWEBCOLS := EXECBLOCK( "PEF041", .F., .F., {4} )
PWSF050.PRW - PWSF053()() -> AWEBCOLS := EXECBLOCK( "PEF053", .F., .F., { 1 } )
PWSF050.PRW - PWSF053()() -> AWEBCOLS := EXECBLOCK( "PEF053", .F., .F., { 2 } )
PWSF050.PRW - PWSF054()() -> AWEBCOLS := EXECBLOCK( "PEF054", .F., .F., {} )
PWSF053.APH - ="POST" ACTION="">() -> CHTML := EXECBLOCK("PE053BOT",.F.,.F.)
PWSF060.PRW - PWSF063()() -> AWEBCOLS := EXECBLOCK( "PEF063", .F., .F., {} )
PWSF060.PRW - PWSF064()() -> AWEBCOLS := EXECBLOCK( "PEF064", .F., .F., { 1 } )
PWSF060.PRW - PWSF064()() -> AWEBCOLS := EXECBLOCK( "PEF064", .F., .F., { 2 } )
PWSF060.PRW - PWSF065()() -> AWEBCOLS := EXECBLOCK( "PEF065", .F., .F., { 1 } )
PWSF060.PRW - PWSF065()() -> AWEBCOLS := EXECBLOCK( "PEF065", .F., .F., { 2 } )
PWSF070.PRW - PWSF073()() -> AWEBCOLS := EXECBLOCK( "PEF073", .F., .F., { 1 } )
PWSF070.PRW - PWSF073()() -> AWEBCOLS := EXECBLOCK( "PEF073", .F., .F., { 2 } )
PWSF070.PRW - PWSF074()() -> AWEBCOLS := EXECBLOCK( "PEF074", .F., .F., { 1 } )
PWSF070.PRW - PWSF074()() -> AWEBCOLS := EXECBLOCK( "PEF074", .F., .F., { 4 } )
PWSF070.PRW - PWSF074()() -> AWEBCOLS := EXECBLOCK( "PEF074", .F., .F., { 5 } )
PWSF070.PRW - PWSF078()() -> AWEBCOLS := EXECBLOCK( "PEF078", .F., .F., { } )
PWSF080.PRW - PWSF083()() -> AWEBCOLS := EXECBLOCK( "PEF083", .F., .F., { 1 } )
PWSF080.PRW - PWSF083()() -> AWEBCOLS := EXECBLOCK( "PEF083", .F., .F., { 2 } )
PWSF080.PRW - PWSF084()() -> AWEBCOLS := EXECBLOCK( "PEF084", .F., .F., { 1 } )
PWSF080.PRW - PWSF084()() -> AWEBCOLS := EXECBLOCK( "PEF084", .F., .F., { 2 } )
PWSF100.PRW - PWSF101()() -> AWEBCOLS := EXECBLOCK( "PEF101", .F., .F., {} )
PWSF100.PRW - PWSF102()() -> AWEBCOLS := EXECBLOCK( "PEF102", .F., .F., { 2 } )
PWSF100.PRW - PWSF102()() -> AWEBCOLS := EXECBLOCK( "PEF102", .F., .F., {1} )
PWSF110.PRW - PWSF111()() -> AWEBCOLS := EXECBLOCK( "PEF111", .F., .F., {} )
PWSF110.PRW - PWSF112()() -> AWEBCOLS := EXECBLOCK( "PEF112", .F., .F., {} )
PWSR010.PRW - INCCERT() -> EXECBLOCK("PRS10CERT",.F.,.F.,{HTTPSESSION->GETCURRICULUM[1]:OWSLISTOFCERTIFICATION:OWSCERTIFICATION[NX], HTTPPOST->CCOURSE2DESC})
PWSR010.PRW - INCCURSO() -> EXECBLOCK("PRS10COUR",.F.,.F.,{HTTPSESSION->GETCURRICULUM[1]:OWSLISTOFCOURSES:OWSCOURSES[NX], HTTPPOST->CCOURSE3DESC})
PWSR010.PRW - INCFORMACAO() -> EXECBLOCK("PRS10GRAD",.F.,.F.,{HTTPSESSION->GETCURRICULUM[1]:OWSLISTOFGRADUATION:OWSGRADUATION[NX], HTTPPOST->CCOURSE1DESC})
PWSR010.PRW - INCIDIOMA() -> EXECBLOCK("PRS10LANG",.F.,.F.,{HTTPSESSION->GETCURRICULUM[1]:OWSLISTOFLANGUAGES:OWSLANGUAGES[NX], HTTPPOST->CCOURSE4DESC})
PWSR010.PRW - PWSR014()() -> EXECBLOCK("PRS10QUAL",.F.,.F.,{HTTPSESSION->GETCURRICULUM[1]:OWSLISTOFQUALIFICATION:OWSQUALIFICATION[NX]})
PWST020.PRW - PWST022()() -> AWEBCOLS := EXECBLOCK( "PET022", .F., .F., {1} )
PWST020.PRW - PWST022()() -> AWEBCOLS := EXECBLOCK( "PET022", .F., .F., {2} )
PWST020.PRW - PWST022A()() -> AWEBCOLS := EXECBLOCK( "PET022A", .F., .F., {} )
PWST020.PRW - PWST023()() -> AWEBCOLS := EXECBLOCK( "PET023", .F., .F., {1} )
PWST020.PRW - PWST023()() -> AWEBCOLS := EXECBLOCK( "PET023", .F., .F., {2} )
PWST020.PRW - PWST024()() -> AWEBCOLS := EXECBLOCK( "PET024", .F., .F., {1} )
PWST020.PRW - PWST024()() -> AWEBCOLS := EXECBLOCK( "PET024", .F., .F., {2} )
PWST020.PRW - PWST024()() -> AWEBCOLS := EXECBLOCK( "PET024", .F., .F., {3} )
PWST020.PRW - PWST024()() -> AWEBCOLS := EXECBLOCK( "PET024", .F., .F., {4} )
PWST020.PRW - PWST024A()() -> AWEBCOLS := EXECBLOCK( "PET024A", .F., .F., {1} )
PWST020.PRW - PWST024A()() -> AWEBCOLS := EXECBLOCK( "PET024A", .F., .F., {2} )
PWST020.PRW - PWST025()() -> AWEBCOLS := EXECBLOCK( "PET025", .F., .F., {1} )
PWST020.PRW - PWST025()() -> AWEBCOLS := EXECBLOCK( "PET025", .F., .F., {2} )
PWST030.PRW - PWST031()() -> AWEBCOLS := EXECBLOCK( "PET031", .F., .F., {2} )
PWST030.PRW - PWST031()() -> AWEBCOLS := EXECBLOCK( "PET031", .F., .F., {3} )
PWST030.PRW - PWST032()() -> AWEBCOLS := EXECBLOCK( "PET032", .F., .F., {1} )
PWST030.PRW - PWST032()() -> AWEBCOLS := EXECBLOCK( "PET032", .F., .F., {2} )
PWST030.PRW - PWST032A()() -> AWEBCOLS := EXECBLOCK( "PET032A", .F., .F., {} )
PWST030.PRW - PWST033()() -> AWEBCOLS := EXECBLOCK( "PET033", .F., .F., {1} )
PWST030.PRW - PWST033()() -> AWEBCOLS := EXECBLOCK( "PET033", .F., .F., {2} )
PWST030.PRW - PWST034()() -> AWEBCOLS := EXECBLOCK( "PET034", .F., .F., {1} )
PWST030.PRW - PWST034()() -> AWEBCOLS := EXECBLOCK( "PET034", .F., .F., {2} )
PWST030.PRW - PWST034A()() -> AWEBCOLS := EXECBLOCK( "PET034A", .F., .F., {1} )
PWST030.PRW - PWST034A()() -> AWEBCOLS := EXECBLOCK( "PET034A", .F., .F., {2} )
PWST030.PRW - PWST035()() -> AWEBCOLS := EXECBLOCK( "PET035", .F., .F., {1} )
PWST030.PRW - PWST035()() -> AWEBCOLS := EXECBLOCK( "PET035", .F., .F., {2} )
PWST040.PRW - PWST042()() -> AWEBCOLS := EXECBLOCK( "PET042", .F., .F., {1} )
PWST040.PRW - PWST042()() -> AWEBCOLS := EXECBLOCK( "PET042", .F., .F., {2} )
PWST040.PRW - PWST042A()() -> AWEBCOLS := EXECBLOCK( "PET042A", .F., .F., {} )
PWST040.PRW - PWST043()() -> AWEBCOLS := EXECBLOCK( "PET043", .F., .F., {1} )
PWST040.PRW - PWST043()() -> AWEBCOLS := EXECBLOCK( "PET043", .F., .F., {2} )
PWST040.PRW - PWST044()() -> AWEBCOLS := EXECBLOCK( "PET044", .F., .F., {1} )
PWST040.PRW - PWST044()() -> AWEBCOLS := EXECBLOCK( "PET044", .F., .F., {2} )
PWST040.PRW - PWST044()() -> AWEBCOLS := EXECBLOCK( "PET044", .F., .F., {3} )
PWST040.PRW - PWST044()() -> AWEBCOLS := EXECBLOCK( "PET044", .F., .F., {4} )
PWST040.PRW - PWST044A()() -> AWEBCOLS := EXECBLOCK( "PET044A", .F., .F., {1} )
PWST040.PRW - PWST044A()() -> AWEBCOLS := EXECBLOCK( "PET044A", .F., .F., {2} )
PWST040.PRW - PWST045()() -> AWEBCOLS := EXECBLOCK( "PET045", .F., .F., {1} )
PWST040.PRW - PWST045()() -> AWEBCOLS := EXECBLOCK( "PET045", .F., .F., {2} )
PWST050.PRW - PWST052()() -> AWEBCOLS := EXECBLOCK( "PET052", .F., .F., {1} )
PWST050.PRW - PWST052()() -> AWEBCOLS := EXECBLOCK( "PET052", .F., .F., {2} )
PWST050.PRW - PWST052A()() -> AWEBCOLS := EXECBLOCK( "PET052A", .F., .F., {} )
PWST050.PRW - PWST053()() -> AWEBCOLS := EXECBLOCK( "PET053", .F., .F., {1} )
PWST050.PRW - PWST053()() -> AWEBCOLS := EXECBLOCK( "PET053", .F., .F., {2} )
PWST050.PRW - PWST054()() -> AWEBCOLS := EXECBLOCK( "PET054", .F., .F., {1} )
PWST050.PRW - PWST054()() -> AWEBCOLS := EXECBLOCK( "PET054", .F., .F., {2} )
PWST050.PRW - PWST054()() -> AWEBCOLS := EXECBLOCK( "PET054", .F., .F., {3} )
PWST050.PRW - PWST054()() -> AWEBCOLS := EXECBLOCK( "PET054", .F., .F., {4} )
PWST050.PRW - PWST054A()() -> AWEBCOLS := EXECBLOCK( "PET054A", .F., .F., {1} )
PWST050.PRW - PWST054A()() -> AWEBCOLS := EXECBLOCK( "PET054A", .F., .F., {2} )
PWST050.PRW - PWST055()() -> AWEBCOLS := EXECBLOCK( "PET055", .F., .F., {1} )
PWST050.PRW - PWST055()() -> AWEBCOLS := EXECBLOCK( "PET055", .F., .F., {2} )
PWST060.PRW - PWST062()() -> AWEBCOLS := EXECBLOCK( "PET062", .F., .F., {} )
PWST060.PRW - PWST063()() -> AWEBCOLS := EXECBLOCK( "PET063", .F., .F., {1} )
PWST060.PRW - PWST063()() -> AWEBCOLS := EXECBLOCK( "PET063", .F., .F., {2} )
PWST060.PRW - PWST063()() -> AWEBCOLS := EXECBLOCK( "PET063", .F., .F., {3} )
PWST070.PRW - PWST070()() -> AWEBCOLS := EXECBLOCK( "PET070", .F., .F., {2} )
PWST070.PRW - PWST070()() -> AWEBCOLS := EXECBLOCK( "PET070", .F., .F., {3} )
PWST070.PRW - PWST071()() -> AWEBCOLS := EXECBLOCK( "PET071", .F., .F., {1} )
PWST070.PRW - PWST071()() -> AWEBCOLS := EXECBLOCK( "PET071", .F., .F., {2} )
PWST070.PRW - PWST071()() -> AWEBCOLS := EXECBLOCK( "PET071", .F., .F., {3} )
PWST100.PRW - PWST102()() -> AWEBCOLS := EXECBLOCK( "PET102", .F., .F., {1} )
PWST100.PRW - PWST102()() -> AWEBCOLS := EXECBLOCK( "PET102", .F., .F., {2} )
PWST110.PRW - PWST112()() -> AWEBCOLS := EXECBLOCK( "PET112", .F., .F., {1} )
PWST110.PRW - PWST112()() -> AWEBCOLS := EXECBLOCK( "PET112", .F., .F., {2} )
PWST110.PRW - PWST112A()() -> AWEBCOLS := EXECBLOCK( "PET112A", .F., .F., {} )
PWST110.PRW - PWST113()() -> AWEBCOLS := EXECBLOCK( "PET113", .F., .F., {1} )
PWST110.PRW - PWST113()() -> AWEBCOLS := EXECBLOCK( "PET113", .F., .F., {2} )
PWST110.PRW - PWST114()() -> AWEBCOLS := EXECBLOCK( "PET114", .F., .F., {1} )
PWST110.PRW - PWST114()() -> AWEBCOLS := EXECBLOCK( "PET114", .F., .F., {2} )
PWST110.PRW - PWST114()() -> AWEBCOLS := EXECBLOCK( "PET114", .F., .F., {3} )
PWST110.PRW - PWST114()() -> AWEBCOLS := EXECBLOCK( "PET114", .F., .F., {4} )
PWST110.PRW - PWST114A()() -> AWEBCOLS := EXECBLOCK( "PET114A", .F., .F., {1} )
PWST110.PRW - PWST114A()() -> AWEBCOLS := EXECBLOCK( "PET114A", .F., .F., {2} )
PWST110.PRW - PWST115()() -> AWEBCOLS := EXECBLOCK( "PET115", .F., .F., {} )
PWSV020.PRW - PWSV022()() -> AWEBCOLS := EXECBLOCK( "PEV022", .F., .F., {} )
PWSV020.PRW - PWSV023()() -> AWEBCOLS := EXECBLOCK( "PEV023", .F., .F., {} )
PWSV030.PRW - PWSV031()() -> AWEBCOLS := EXECBLOCK( "PEV031", .F., .F., { 2 } )
PWSV030.PRW - PWSV032()() -> AWEBCOLS := EXECBLOCK( "PEV032", .F., .F., {} )
PWSV030.PRW - PWSV033()() -> AWEBCOLS := EXECBLOCK( "PEV033", .F., .F., { 1 } )
PWSV030.PRW - PWSV033()() -> AWEBCOLS := EXECBLOCK( "PEV033", .F., .F., { 2 } )
PWSV030.PRW - PWSV033()() -> AWEBCOLS := EXECBLOCK( "PEV033", .F., .F., { 3 } )
PWSV040.PRW - PWSV043()() -> AWEBCOLS := EXECBLOCK( "PEV043", .F., .F., { 1 } )
PWSV040.PRW - PWSV043()() -> AWEBCOLS := EXECBLOCK( "PEV043", .F., .F., { 2 } )
PWSV040.PRW - PWSV044()() -> AWEBCOLS := EXECBLOCK( "PEV044", .F., .F., { 1 } )
PWSV040.PRW - PWSV044()() -> AWEBCOLS := EXECBLOCK( "PEV044", .F., .F., { 2 } )
PWSV050.PRW - PWSV053()() -> AWEBCOLS := EXECBLOCK( "PEV053", .F., .F., { 1 } )
PWSV050.PRW - PWSV053()() -> AWEBCOLS := EXECBLOCK( "PEV053", .F., .F., { 2 } )
PWSV050.PRW - PWSV053()() -> AWEBCOLS := EXECBLOCK( "PEV053", .F., .F., { 3 } )
PWSV060.PRW - PWSV062()() -> AWEBCOLS := EXECBLOCK( "PEV062", .F., .F., {} )
PWSV060.PRW - PWSV064()() -> AWEBCOLS := EXECBLOCK( "PEV064", .F., .F., { 1 } )
PWSV060.PRW - PWSV064()() -> AWEBCOLS := EXECBLOCK( "PEV064", .F., .F., { 10 } )
PWSV060.PRW - PWSV064()() -> AWEBCOLS := EXECBLOCK( "PEV064", .F., .F., { 2 } )
PWSV060.PRW - PWSV064()() -> AWEBCOLS := EXECBLOCK( "PEV064", .F., .F., { 3 } )
PWSV060.PRW - PWSV064()() -> AWEBCOLS := EXECBLOCK( "PEV064", .F., .F., { 4 } )
PWSV060.PRW - PWSV064()() -> AWEBCOLS := EXECBLOCK( "PEV064", .F., .F., { 5 } )
PWSV060.PRW - PWSV064()() -> AWEBCOLS := EXECBLOCK( "PEV064", .F., .F., { 6 } )
PWSV060.PRW - PWSV064()() -> AWEBCOLS := EXECBLOCK( "PEV064", .F., .F., { 7 } )
PWSV060.PRW - PWSV064()() -> AWEBCOLS := EXECBLOCK( "PEV064", .F., .F., { 8 } )
PWSV060.PRW - PWSV064()() -> AWEBCOLS := EXECBLOCK( "PEV064", .F., .F., { 9 } )
PWSV070.PRW - PWSV071()() -> AWEBCOLS := EXECBLOCK( "PEV181", .F., .F., { 2 } )
PWSV070.PRW - PWSV072()() -> AWEBCOLS := EXECBLOCK( "PEV182", .F., .F., {} )
PWSV070.PRW - PWSV073()() -> AWEBCOLS := EXECBLOCK( "PEV073", .F., .F., { 1 } )
PWSV070.PRW - PWSV073()() -> AWEBCOLS := EXECBLOCK( "PEV073", .F., .F., { 2 } )
PWSV070.PRW - PWSV073()() -> AWEBCOLS := EXECBLOCK( "PEV073", .F., .F., { 3 } )
PWSV070.PRW - PWSV073()() -> AWEBCOLS := EXECBLOCK( "PEV073", .F., .F., { 4 } )
PWSV080.PRW - PWSV083()() -> AWEBCOLS := EXECBLOCK( "PEV083", .F., .F., { 1 } )
PWSV080.PRW - PWSV083()() -> AWEBCOLS := EXECBLOCK( "PEV083", .F., .F., { 2 } )
PWSV080.PRW - PWSV084()() -> AWEBCOLS := EXECBLOCK( "PEV084", .F., .F., { 1 } )
PWSV080.PRW - PWSV084()() -> AWEBCOLS := EXECBLOCK( "PEV084", .F., .F., { 2 } )
PWSV100.PRW - PWSV103()() -> AWEBCOLS := EXECBLOCK( "PEV103", .F., .F., {} )
PWSV110.PRW - PWSV112()() -> AWEBCOLS := EXECBLOCK( "PEV112", .F., .F., {1} )
PWSV110.PRW - PWSV112()() -> AWEBCOLS := EXECBLOCK( "PEV112", .F., .F., {2} )
PWSV110.PRW - PWSV112()() -> AWEBCOLS := EXECBLOCK( "PEV112", .F., .F., {3} )
PWSV110.PRW - PWSV112()() -> AWEBCOLS := EXECBLOCK( "PEV112", .F., .F., {4} )
PWSV120.PRW - PWSV122()() -> AWEBCOLS := EXECBLOCK( "PEV122", .F., .F., {1} )
PWSV120.PRW - PWSV122()() -> AWEBCOLS := EXECBLOCK( "PEV122", .F., .F., {2} )
PWSV120.PRW - PWSV122()() -> AWEBCOLS := EXECBLOCK( "PEV122", .F., .F., {3} )
PWSV120.PRW - PWSV122()() -> AWEBCOLS := EXECBLOCK( "PEV122", .F., .F., {4} )
PWSV130.PRW - PWSV131()() -> AWEBCOLS := EXECBLOCK( "PEV131", .F., .F., { 2 } )
PWSV130.PRW - PWSV132()() -> AWEBCOLS := EXECBLOCK( "PEV132", .F., .F., {} )
PWSV130.PRW - PWSV133()() -> AWEBCOLS := EXECBLOCK( "PEV133", .F., .F., { 1 } )
PWSV130.PRW - PWSV133()() -> AWEBCOLS := EXECBLOCK( "PEV133", .F., .F., { 2 } )
PWSV130.PRW - PWSV133()() -> AWEBCOLS := EXECBLOCK( "PEV133", .F., .F., { 3 } )
PWSV130.PRW - PWSV133()() -> AWEBCOLS := EXECBLOCK( "PEV133", .F., .F., { 4 } )
PWSV140.PRW - PWSV141()() -> AWEBCOLS := EXECBLOCK( "PEV141", .F., .F., { 2 } )
PWSV140.PRW - PWSV141()() -> AWEBCOLS := EXECBLOCK( "PEV141", .F., .F., { 3 } )
PWSV140.PRW - PWSV141()() -> AWEBCOLS := EXECBLOCK( "PEV141", .F., .F., { 4 } )
PWSV150.PRW - PWSV152()() -> AWEBCOLS := EXECBLOCK( "PEV152", .F., .F., {1} )
PWSV150.PRW - PWSV152()() -> AWEBCOLS := EXECBLOCK( "PEV152", .F., .F., {2} )
PWSV150.PRW - PWSV153()() -> AWEBCOLS := EXECBLOCK( "PEV153", .F., .F., {1} )
PWSV150.PRW - PWSV153()() -> AWEBCOLS := EXECBLOCK( "PEV153", .F., .F., {2} )
PWSV150.PRW - PWSV153A()() -> AWEBCOLS := EXECBLOCK( "PEV153A", .F., .F., {} )
PWSV150.PRW - PWSV154()() -> AWEBCOLS := EXECBLOCK( "PEV154", .F., .F., {1} )
PWSV150.PRW - PWSV154()() -> AWEBCOLS := EXECBLOCK( "PEV154", .F., .F., {2} )
PWSV150.PRW - PWSV154A()() -> AWEBCOLS := EXECBLOCK( "PEV154A", .F., .F., {} )
PWSV150.PRW - PWSV155()() -> AWEBCOLS := EXECBLOCK( "PEV155", .F., .F., {1} )
PWSV150.PRW - PWSV155()() -> AWEBCOLS := EXECBLOCK( "PEV155", .F., .F., {2} )
PWSV150.PRW - PWSV155A()() -> AWEBCOLS := EXECBLOCK( "PEV155A", .F., .F., {} )
PWSV150.PRW - PWSV156()() -> AWEBCOLS := EXECBLOCK( "PEV156", .F., .F., {1} )
PWSV150.PRW - PWSV156()() -> AWEBCOLS := EXECBLOCK( "PEV156", .F., .F., {2} )
PWSV150.PRW - PWSV156A()() -> AWEBCOLS := EXECBLOCK( "PEV156A", .F., .F., {} )
PWSV180.PRW - PWSV181()() -> AWEBCOLS := EXECBLOCK( "PEV181", .F., .F., { 2 } )
PWSV180.PRW - PWSV182()() -> AWEBCOLS := EXECBLOCK( "PEV182", .F., .F., {} )
PWSV180.PRW - PWSV183()() -> AWEBCOLS := EXECBLOCK( "PEV183", .F., .F., {} )
PWSV180.PRW - PWSV184()() -> AWEBCOLS := EXECBLOCK( "PEV184", .F., .F., { 1 } )
PWSV180.PRW - PWSV184()() -> AWEBCOLS := EXECBLOCK( "PEV184", .F., .F., { 2 } )
PWSV180.PRW - PWSV184()() -> AWEBCOLS := EXECBLOCK( "PEV184", .F., .F., { 3 } )
PWSV180.PRW - PWSV184()() -> AWEBCOLS := EXECBLOCK( "PEV184", .F., .F., { 4 } )
PWSV190.PRW - PWSV192()() -> AWEBCOLS := EXECBLOCK( "PEV192", .F., .F., {1} )
PWSV190.PRW - PWSV192()() -> AWEBCOLS := EXECBLOCK( "PEV192", .F., .F., {2} )
PWSV190.PRW - PWSV193()() -> AWEBCOLS := EXECBLOCK( "PEV193", .F., .F., {1} )
PWSV190.PRW - PWSV193()() -> AWEBCOLS := EXECBLOCK( "PEV193", .F., .F., {2} )
PWSV190.PRW - PWSV193()() -> AWEBCOLS := EXECBLOCK( "PEV193", .F., .F., {3} )
PWSV190.PRW - PWSV193A()() -> AWEBCOLS := EXECBLOCK( "PEV193A", .F., .F., {1} )
PWSV190.PRW - PWSV193A()() -> AWEBCOLS := EXECBLOCK( "PEV193A", .F., .F., {2} )
PWSV200.PRW - PWSV202()() -> AWEBCOLS := EXECBLOCK( "PEV202", .F., .F., {} )
PWSV200.PRW - PWSV203()() -> AWEBCOLS := EXECBLOCK( "PEV203", .F., .F., { 1 } )
PWSV200.PRW - PWSV203()() -> AWEBCOLS := EXECBLOCK( "PEV203", .F., .F., { 2 } )
PWSV210.PRW - PWSV212()() -> AWEBCOLS := EXECBLOCK( "PEV212", .F., .F., {} )
PWSV210.PRW - PWSV213()() -> AWEBCOLS := EXECBLOCK( "PEV213", .F., .F., {} )
PWSV220.PRW - PWSV221()() -> AWEBCOLS := EXECBLOCK( "PEV221", .F., .F., { 2 } )
PWSV220.PRW - PWSV222()() -> AWEBCOLS := EXECBLOCK( "PEV222", .F., .F., {} )
PWSV220.PRW - PWSV223()() -> AWEBCOLS := EXECBLOCK( "PEV223", .F., .F., {} )
PWSX000.APH - -> CMENSAGEM := EXECBLOCK( "APDMSGESQ", .F., .F. )
PWSX000.APH - -> CRETORNO :=EXECBLOCK('PWSX000',.F.,.F.)
PWSX010.PRW - INSITE() -> EXECBLOCK("PORTLOG2",.F.,.F.,{HTTPPOST->CLOGIN,HTTPPOST->CPASSWORD,CMSG,OOBJ:_URL})
PWSX010.PRW - INSITE() -> EXECBLOCK("PORTLOGIN",.F.,.F.)
PWSX010.PRW - SELMODULOS() -> CACESSOPORTAL := EXECBLOCK("PORTACESS", .F., .F.)
QADA020.PRW - QA20COPIA() -> LCONTINUA := EXECBLOCK("QD020CPY",.F.,.F.)
QADA020.PRW - QA20DUPL() -> LCONTINUA := EXECBLOCK("QD020DUP",.F.,.F.,{CNEWCHKLST,CNEWREVCHK})
QADA100.PRW - Q100AUDMAIL() -> CMSG := EXECBLOCK( "Q100MAIL", .F., .F.,{CMSG} )
QADA100.PRW - Q100DELAUD() -> IF VALTYPE (AMEMUSER := EXECBLOCK( "QA100MEM", .F., .F. ) ) == "A"
QADA100.PRW - QAD100GRAV() -> IF VALTYPE (AMEMUSER := EXECBLOCK( "QA100MEM", .F., .F. ) ) == "A"
QADA100.PRW - QAD100MAN() -> ABUTTONS := EXECBLOCK("QD100BUT",.F., .F., {NOPC,ABUTTONS})
QADA100.PRW - QAD100MAN() -> ARET := EXECBLOCK("QD100CPO",.F.,.F.,{ACPOS})
QADA100.PRW - QAD100MAN() -> EXECBLOCK( "Q100GAUD", .F., .F.,{NOPC} )
QADA130.PRW - FOLDERCHANGE() -> CSN := EXECBLOCK("QADNOTA",.F.,.F.,"C")
QADA130.PRW - QADA130ATU() -> ABUTTONS := EXECBLOCK( "QAD130BT", .F., .F., {NOPCX,QUB->QUB_NUMAUD,ABUTTONS} )
QADA130.PRW - QADA130ATU() -> ARET := EXECBLOCK("QAD130TO", .F., .F., {ACHECKLIST, OCOMBO1, OCOMBO2, OCOMBO3, ASEQ})
QADA130.PRW - QADA130ATU() -> OSN:BCHANGE := {||NNOTA:=EXECBLOCK("QADNOTA",.F.,.F.,"N")}
QADA130.PRW - QADA130CHGET() -> NNOTA := IF(LALT,EXECBLOCK("QADNOTA",.F.,.F.,"N"),NNOTA)
QADA130.PRW - QADA130LOK() -> LRETORNO := EXECBLOCK("QAD130GD",.F.,.F.)
QADA130.PRW - QADA130QST() -> CSN := EXECBLOCK("QADNOTA",.F.,.F.,"C")
QADA140.PRW - QADA140ATU() -> ACPOALT := ACLONE(EXECBLOCK("QAD140AC",.F.,.F.))
QADA140.PRW - QADA140ATU() -> EXECBLOCK( "QADENCAU", .F., .F. )
QADA140.PRW - QADA140ATU() -> EXECBLOCK("QAD140FI",.F.,.F.)
QADA140.PRW - QADA140ATU() -> IF !(LRETQ140 := EXECBLOCK("QAD140AT",.F.,.F.))
QADA140.PRW - QADA140ATU() -> LRET:=EXECBLOCK("QDAGRFNC", .F., .F.)
QADA140.PRW - QADA140GNC() -> ARETRQNC:=EXECBLOCK("QADGRFNC", .F., .F.,{ACPOQNC})
QADA140.PRW - QADA140MAIL() -> ATEXT := EXECBLOCK("Q140MAIL",.F.,.F.,{CSEEKNC,CSUBJECT})
QADA150.PRW - QAD150DELE() -> EXECBLOCK("QA150EXC",.F.,.F.)
QADA150.PRW - QAD150DELE() -> IF VALTYPE (AMEMUSER := EXECBLOCK( "QA150MEM", .F., .F. ) ) == "A"
QADA150.PRW - QAD150EFET() -> EXECBLOCK("QAD150E2",.F.,.F.,{ADADOSQUM})
QADA150.PRW - QAD150GRAV() -> CMSG := EXECBLOCK( "QAD150EN", .F., .F., {CMSG,AAGEUSU[NI,3]})
QADA150.PRW - QAD150GRAV() -> EXECBLOCK("QAD150GR",.F.,.F.,{NOPC})
QADA150.PRW - QAD150GRAV() -> IF VALTYPE (AMEMUSER := EXECBLOCK( "QA150MEM", .F., .F. ) ) == "A"
QADA150.PRW - QAD150TELA() -> AUSRBUT := EXECBLOCK("QD150BUT",.F.,.F.,{NOPC})
QADA220.PRW - QA220DUPL() -> LCONTINUA := EXECBLOCK("QD020DUP",.F.,.F.,{CNEWCHKLST,CNEWREVCHK})
QADA220.PRW - QADA220COP() -> LCONTINUA := EXECBLOCK("QD020CPY",.F.,.F.)
QADA280.PRW - QADA280GNC() -> ARETRQNC := EXECBLOCK("QADGRFNC", .F., .F.,{ACPOQNC})
QADA280.PRW - QADA280GRV() -> EXECBLOCK("QAD140FI",.F.,.F.)
QADA280.PRW - QADA280GRV() -> EXECBLOCK("QADENCAU",.F.,.F.)
QADA280.PRW - QADA280GRV() -> LGERAFNC := EXECBLOCK("QDAGRFNC", .F., .F.)
QADA280.PRW - QADA280MAIL() -> ATEXT := EXECBLOCK("Q140MAIL",.F.,.F.,{CSEEKNC,CSUBJECT})
QADXFUN.PRW - QADAVMAIL() -> AMSG := EXECBLOCK( "QADMSGAD", .F., .F. )
QADXFUN.PRW - QADAVMAIL() -> AMSG := EXECBLOCK( "QADMSGAG", .F., .F. )
QAXA010.PRW - QAXA010TRF() -> EXECBLOCK( "QDOAX010", .F., .F., {APENDOC} )
QDOA030.PRW - QD030BXPEN() -> EXECBLOCK( "QD1BXPD", .F., .F. )
QDOA030.PRW - QD030BXPEN() -> EXECBLOCK( "QDOAP04", .F., .F. )
QDOA030.PRW - QD030BXPEN() -> EXECBLOCK("QD030BXP",.F.,.F.)
QDOA030.PRW - QD030LEPEN() -> EXECBLOCK( "QDOAP02", .F., .F. )
QDOA030.PRW - QD030LEPEN() -> IF EXECBLOCK("QDOAP22",.F.,.F.,{QD1->QD1_TPDIST})
QDOA030.PRW - QDO030BXAV() -> LBXAVREF:= EXECBLOCK( "QDOAP34", .F., .F. )
QDOA050.PRW - QD050BTOFF() -> EXECBLOCK("QD050FIM", .F., .F., LOK)
QDOA050.PRW - QD050CHKRES() -> EXECBLOCK("QDOAP35", .F., .F.)
QDOA050.PRW - QD050DVDOC() -> LRETORNO:=EXECBLOCK( "QD50DVDOC", .F., .F.,{M->QDH_DOCTO,M->QDH_RV})
QDOA050.PRW - QD050FILTRO() -> CFILTRO := EXECBLOCK("QDOFILBR", .F., .F.,{CFILTRO})
QDOA050.PRW - QD050FINAL() -> EXECBLOCK( "QDOAPPSW", .F., .F. )
QDOA050.PRW - QD050FINAL() -> LFIM := EXECBLOCK( "QDOAP12", .F., .F. )
QDOA050.PRW - QD050FINAL() -> LGRAVA := EXECBLOCK( "QD050TOK", .F., .F. )
QDOA050.PRW - QD050GERRV() -> EXECBLOCK("QDOAP38",.F.,.F.,{M->QDH_DOCTO,M->QDH_RV})
QDOA050.PRW - QD050GRDOC() -> LGRDOC:=EXECBLOCK("QDOGRDOC", .F., .F., {NOPC,!LPEN})
QDOA050.PRW - QD050MSDET() -> EXECBLOCK( "QDOAP17", .F., .F., { 1 })
QDOA050.PRW - QD050MTGET() -> EXECBLOCK("QDOAP35", .F., .F.)
QDOA050.PRW - QD050PENOK() -> EXECBLOCK("QD050PNK", .F., .F., {LPEN,NOPCAO,NOPC})
QDOA050.PRW - QD050TELAS() -> AARRAYBT := EXECBLOCK( "QDOBT050", .F., .F.,{NOPC,M->QDH_DOCTO,M->QDH_RV})
QDOA050.PRW - QD050TELAS() -> ACTION ((LCPYS2T:=EXECBLOCK("QDOAP11",.F.,.F.,{LCPYS2T,CMATFIL,CMATCOD,LSOL})),IF(LCPYS2T==NIL,LCPYS2T:=.F.,""),LREVISAO:= .F.)
QDOA050.PRW - QD050TELAS() -> ACTION IF((EMPTY(M->QDH_DOCTO) .OR. EMPTY(M->QDH_RV) .OR. M->QDH_STATUS <> "L "),.F.,(EXECBLOCK("QDOAP18",.F.,.F.),NOPC:= 2))
QDOA050.PRW - QD050TELAS() -> AQDDUP := EXECBLOCK( "QDOAP36", .F., .F.,{M->QDH_DOCTO,M->QDH_RV})
QDOA050.PRW - QD050TELAS() -> CEXPFILT := EXECBLOCK("QDOAP17", .F., .F., {NOPC})
QDOA050.PRW - QD050TELAS() -> DBSETORDER(EXECBLOCK( "QDOAP27", .F., .F.))
QDOA050.PRW - QD050TELAS() -> EXECBLOCK("QD50FLAG",.F.,.F.)
QDOA050.PRW - QD050TELAS() -> EXECBLOCK("QD50MSGAD",.F.,.F.)
QDOA050.PRW - QD050TELAS() -> EXECBLOCK("QDODESCR", .F., .F., {OBTN01,OBTN04,OBTN03,OBTN10,OBTN05,OBTN06,OBTN15,OBTN02,OBTN09,OBTN08,OBTN07,OBTN14,OBTN13,OBTN12,OBTN11})
QDOA050.PRW - QD050TELAS() -> EXECBLOCK("QDOFINAL", .F., .F., {NOPC,NOPCAO,LDOCDUPLI,LPEN})
QDOA050.PRW - QD050TELAS() -> IF !EXECBLOCK( "QD050FIL", .F., .F. )
QDOA050.PRW - QD050TELAS() -> IF EXISTBLOCK( "QD050FIL" )
QDOA050.PRW - QD050TELAS() -> LEXECUTA := EXECBLOCK("Q050DEL",.F.,.F.,{NOPCAO})
QDOA050.PRW - QD050TUDOK() -> LRET := EXECBLOCK("QDOAP32", .F., .F.)
QDOA050.PRW - QD50VBTDOC() -> LABREDOC:= EXECBLOCK("QDOAP31",.F.,.F.)
QDOA050.PRW - QDO050CARR() -> EXECBLOCK("QDOAP35", .F., .F.)
QDOA050.PRW - QDOA050() -> AROTADIC := EXECBLOCK("QD050ROT", .F., .F.)
QDOA050.PRW - QDOA050() -> DBSETORDER(EXECBLOCK( "QDOAP27", .F., .F.))
QDOA050.PRW - QDOA050() -> IF !EXISTBLOCK( "QD050FIL" ) .OR. !EXECBLOCK( "QD050FIL", .F., .F. )
QDOA052.PRW - QD052APSOL() -> IF !EXECBLOCK("QDOAP14",.F.,.F.,{NOPC,@OWORD})
QDOA052.PRW - QD052BAIXA() -> ACTION IF(EXISTBLOCK("QDOAP09"),EXECBLOCK("QDOAP09",.F.,.F.,{NOPC,@OWORD}),)
QDOA052.PRW - QD052BAIXA() -> ACTION ( IF ( EXISTBLOCK( "QDOAP05" ), EXECBLOCK( "QDOAP05", .F., .F., {NOPC,@OWORD} ), ;
QDOA052.PRW - QD052BAIXA() -> ACTION IF ( EXISTBLOCK( "QDOAP10" ), EXECBLOCK( "QDOAP10", .F., .F., {NOPC,@OWORD} ), ;
QDOA052.PRW - QD052BAIXA() -> ACTIVATE MSDIALOG ODLG ON INIT ENCHOICEBAR(ODLG,{|| IF(EXISTBLOCK( "QDOAP15" ),(LRET:=EXECBLOCK("QDOAP15", .F., .F., {NOPC,@OWORD,OQDP,AQDP }),ODLG:END()),;
QDOA052.PRW - QD052GRRVS() -> EXECBLOCK("QDOAP01", .F., .F., {NOPC,@OWORD} )
QDOA052.PRW - QD052GRVBX() -> EXECBLOCK("QDOAP03", .F., .F., {NOPC,@OWORD} )
QDOA052.PRW - QD052TELAS() -> ACTION IF(EXISTBLOCK("QDOAP09"),EXECBLOCK("QDOAP09",.F.,.F.,{NOPC,@OWORD}),)
QDOA052.PRW - QD052TELAS() -> ACTION ( IF ( EXISTBLOCK( "QDOAP05" ), EXECBLOCK( "QDOAP05", .F., .F., {NOPC,@OWORD} ), ;
QDOA052.PRW - QD052TELAS() -> IF(L_AP20,IF(QD052GRRVS(3,CRAZAO,NRAD01),(IF(EXISTBLOCK("QDOAP07"),EXECBLOCK("QDOAP07",.F.,.F.,{NOPC,@OWORD}),),ODLG:END()),),)},;
QDOA052.PRW - QD052TELAS() -> IF(L_AP20,IF(QD052GRRVS(NOPC,CRAZAO,NRAD01),(IF(EXISTBLOCK("QDOAP06"),EXECBLOCK("QDOAP06",.F.,.F.,{NOPC,@OWORD}),),ODLG:END()),),)},;
QDOA052.PRW - QD052TELAS() -> {|| IF(EXISTBLOCK("QDOAP20"),L_AP20:=EXECBLOCK("QDOAP20",.F.,.F.,{NOPC,@OWORD, CDOCORIGEM, CREVISAO}),),;
QDOA052.PRW - QD052TELAS() -> {|| LFECHA:= .T.,IF(EXISTBLOCK("QDOAP20"),L_AP20:=EXECBLOCK("QDOAP20",.F.,.F.,{NOPC,@OWORD, QDH->QDH_DOCTO, QDH->QDH_RV}),),;
QDOA052.PRW - QD052VISU() -> ACTION IF(EXISTBLOCK("QDOAP09"),EXECBLOCK("QDOAP09",.F.,.F.,{NOPC,@OWORD}),)
QDOA052.PRW - QD052VISU() -> ACTION ( IF ( EXISTBLOCK( "QDOAP05" ), EXECBLOCK( "QDOAP05", .F., .F., {NOPC,@OWORD} ), ;
QDOA052.PRW - QD052VISU() -> ACTION ( IF ( EXISTBLOCK( "QDOAP10" ), EXECBLOCK( "QDOAP10", .F., .F., {NOPC,@OWORD} ), ;
QDOA052.PRW - QD052VISU() -> {|| IF(NOPC==5,(QD052APSOL(NOPC), ( IF ( EXISTBLOCK( "QDOAP08" ), EXECBLOCK( "QDOAP08", .F., .F.,{NOPC,@OWORD} ), ) ),ODLG:END()),ODLG:END())},;
QDOA053.PRW - FQD53VLDCD() -> CRET := EXECBLOCK("QD53FCOPDST",.F.,.F.)
QDOA053.PRW - QD053ALDST() -> ANOVITENS:=EXECBLOCK("QDOAP21",.F.,.F.,{{3,OEMTOANSI(STR0024)},{4,OEMTOANSI(STR0026)}})
QDOA053.PRW - QD53CARDEP() -> CFILTRO := EXECBLOCK("QD53FILDP",.F.,.F.)
QDOA080.PRW - QD080FIL() -> EXECBLOCK("QD080FIL", .F., .F., NOPC )
QDOA080.PRW - QD080GRV() -> LGRAVA := EXECBLOCK("QD080GRV", .F., .F., { NOPC, LGRAVA } )
QDOA090.PRW - QD090GRIMPR() -> EXECBLOCK("QDOAVMAIL",.F.,.F.)
QDOA090.PRW - QD090IPDOC() -> EXECBLOCK( "QDOM700", .F., .F., { CEDIT, CEDITOR } )
QDOA110.PRW - QD110ALQDG() -> ANOVITENS:=EXECBLOCK("QDOAP21",.F.,.F.,{{1,OEMTOANSI(STR0022)},{2,OEMTOANSI(STR0023)},{3,OEMTOANSI(STR0024)},{4,OEMTOANSI(STR0025)}})
QDOA110.PRW - QD110ALQDG() -> ANOVITENS:=EXECBLOCK("QDOAP21",.F.,.F.,{{2,OEMTOANSI(STR0023)},{4,OEMTOANSI(STR0025)}})
QDOA110.PRW - QD110CFDST() -> EXECBLOCK( "QDOATUVA", .F., .F. ,{ M->QDH_DOCTO, M->QDH_RV })
QDOA110.PRW - QD110CFDST() -> EXECBLOCK("QDOAP19",.F.,.F.,{M->QDH_DOCTO,M->QDH_RV})
QDOA110.PRW - QD110CFDST() -> EXECBLOCK('QDORP27',.F.,.F.)
QDOA110.PRW - QD110CFDST() -> EXECBLOCK('QDORP28',.F.,.F.,{M->QDH_DOCTO,M->QDH_RV})
QDOA110.PRW - QD110CFDST() -> IF !EXECBLOCK( "QDODISTREOK", .F., .F. ,{ QDH->QDH_FILIAL, QDH->QDH_DOCTO, QDH->QDH_RV })
QDOA110.PRW - QD110CFDST() -> IF QDG->QDG_RECEB == "S" .AND. QDG->QDG_TPRCBT $ EXECBLOCK("QDOAP26",.F.,.F.,{QDG->QDG_FILMAT,QDG->QDG_MAT})
QDOA110.PRW - QD110CFDST() -> IF VALTYPE( LIMPRI := EXECBLOCK( "QDO110IMP", .F., .F., { LIMPRI } ) ) <> "L"
QDOA110.PRW - QD110GRDST() -> EXECBLOCK('QD110PEN',.F.,.F.)
QDOA110.PRW - QD110IMPP() -> CFILTRO+= '.AND. QD1->QD1_TPDIST $ "'+EXECBLOCK("QDOAP25",.F.,.F.)+'"'
QDOA110.PRW - QD110INCPST() -> ANOVITENS:=EXECBLOCK("QDOAP21",.F.,.F.,{{2,OEMTOANSI(STR0023)},{4,OEMTOANSI(STR0025)}})
QDOA110.PRW - QD110INCUSR() -> ANOVITENS:=EXECBLOCK("QDOAP21",.F.,.F.,{{1,OEMTOANSI(STR0022)},{2,OEMTOANSI(STR0023)},{3,OEMTOANSI(STR0024)},{4,OEMTOANSI(STR0025)}})
QDOA120.PRW - EDITUSR() -> ANOVITENS:=EXECBLOCK("QDOAP21",.F.,.F.,{{1,OEMTOANSI(STR0067)},{2,OEMTOANSI(STR0068)},{3,OEMTOANSI(STR0069)},{4,OEMTOANSI(STR0070)}})
QDOA120.PRW - QD120ALCOP() -> ANOVITENS:=EXECBLOCK("QDOAP21",.F.,.F.,{{2,OEMTOANSI(STR0068)},{4,OEMTOANSI(STR0070)}})
QDOA120.PRW - SELEQDH() -> AQDH:= ACLONE( EXECBLOCK( "QDOAP29", .F., .F. ,{ ACLONE(AQDH) }))
QDOA120.PRW - SELEQDH() -> CWHERE := EXECBLOCK("QD120FIL",.F.,.F.)
QDOA170.PRW - QDOA170() -> CRETFIL := EXECBLOCK("QDO170FIL", .F., .F.)
QDOR200.PRW - FQDR200IMP() -> EXECBLOCK( "QDOCAPA", .F., .F.,{ 1 } )
QDOR200.PRW - QDR200CONF() -> LLIBCOP:= EXECBLOCK( "QDOAP30", .F., .F., )
QDOXDOC.PRW - PROCESSAVIEW() -> EXECBLOCK( "QDOM700", .F., .F., { CEDIT, CEDITOR } )
QDOXDOC.PRW - PROCESSAVIEW() -> EXECBLOCK( "QDOM720", .F., .F. )
QDOXDOC.PRW - QDODOCCON() -> EXECBLOCK( "QDOPRVX", .F., .F.,{M->QDH_DOCTO, M->QDH_RV} )
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK( "QDOM700", .F., .F., { CEDIT, CEDITOR } )
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK( "QDOM710", .F., .F. )
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK( "QDOM720", .F., .F. )
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK( "QDOVISION", .T., .F. )
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK("LOGQDO",.F.,.F.,{CTEXTO,M->QDH_DOCTO,'AÇÃO USUARIO','CPYS2T','317','ALT'})
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK("LOGQDO",.F.,.F.,{CTEXTO,M->QDH_DOCTO,'AÇÃO USUARIO','CPYT2S','326','ALT'})
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK("LOGQDO",.F.,.F.,{CTEXTO,M->QDH_DOCTO,'AÇÃO USUARIO','SEMMUDANCA','348','ALT'})
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK("LOGQDO",.F.,.F.,{CTEXTO,M->QDH_DOCTO,'AÇÃO USUARIO','YESNO=NO','325','ALT'})
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK("LOGQDO",.F.,.F.,{CTEXTO,M->QDH_DOCTO,'AÇÃO USUARIO/SISTEMA','EDICAO WORD/SALVA','626','ALT'})
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK("LOGQDO",.F.,.F.,{CTEXTO,M->QDH_DOCTO,'GRAVAÇÃO SISTEMA','CPYS2T VISUAL/EXCL','288','<>ALT'})
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK("LOGQDO",.F.,.F.,{CTEXTO,M->QDH_DOCTO,'GRAVAÇÃO SISTEMA','CPYS2T','353','ALT'})
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK("LOGQDO",.F.,.F.,{CTEXTO,M->QDH_DOCTO,'GRAVAÇÃO SISTEMA','DIALOG','309','ALT'})
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK("LOGQDO",.F.,.F.,{CTEXTO,M->QDH_DOCTO,'GRAVAÇÃO SISTEMA','FERASE','265','<>ALT'})
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK("LOGQDO",.F.,.F.,{CTEXTO,M->QDH_DOCTO,'GRAVAÇÃO SISTEMA','FERASE','273','<>ALT'})
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK("LOGQDO",.F.,.F.,{CTEXTO,M->QDH_DOCTO,'GRAVAÇÃO SISTEMA','FERASE/CPYS2T','301','ALT'})
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK("LOGQDO",.F.,.F.,{CTEXTO,M->QDH_DOCTO,'USU ABORT CPYT2S','CPYT2S','346','ALT'})
QDOXDOC.PRW - QDODOCIMP() -> EXECBLOCK("LOGQDO",.F.,.F.,{CTEXTOD,M->QDH_DOCTO,'GRAVAÇÃO SISTEMA','CPYS2T','256','NEW'})
QDOXDOC.PRW - QDODOCRDOC() -> EXECBLOCK( "QDOCAPA", .F., .F.,{ 1 } )
QDOXDOC.PRW - QDODOCRDOC() -> EXECBLOCK( "QDOM700", .F., .F., { CEDIT, CEDITOR } )
QDOXDOC.PRW - QDODOCRDOC() -> EXECBLOCK( "QDOM720", .F., .F. )
QDOXDOC.PRW - QDODOCRDOC() -> EXECBLOCK( "QDOPRVW", .F., .F.,{M->QDH_DOCTO, M->QDH_RV,M->QDH_STATUS} )
QDOXDOC.PRW - QDODOCRUSR() -> EXECBLOCK( "QDOCAPA", .F., .F.,{ 2 } )
QDOXDOC.PRW - QDODOCRUSR() -> EXECBLOCK( "QDOM700", .F., .F., { CEDIT, CEDITOR } )
QDOXDOC.PRW - QDODOCRUSR() -> EXECBLOCK( "QDOM720", .F., .F. )
QDOXDOC.PRW - QDODOCRUSR() -> EXECBLOCK( "QDOPRVW", .F., .F.,{M->QDH_DOCTO, M->QDH_RV,M->QDH_STATUS} )
QDOXDOC.PRW - QDOVIEW() -> ARET := EXECBLOCK( "QDOVIEW", .F., .F., { CFILDOC, CCODDOC, CREVDOC } )
QDOXDOC.PRW - QDOVIEW() -> EXECBLOCK( "QDOM700", .F., .F., { CEDIT, CEDITOR } )
QDOXDOC.PRW - QDOVIEW() -> EXECBLOCK( "QDOM720", .F., .F. )
QDOXDOC.PRW - QDOVIEW() -> EXECBLOCK( "QDOPRVW", .F., .F.,{M->QDH_DOCTO, M->QDH_RV,M->QDH_STATUS} )
QDOXDOC.PRW - QDX_CPYT2S() -> EXECBLOCK( "QDOM700", .F., .F., { CEDIT, CEDITOR } )
QDOXFUN.PRW - FQDOTPMAIL() -> AMSG := EXECBLOCK( "QDO"+CPENTR+"MAIL", .F., .F., {AMSG} )
QDOXFUN.PRW - FQDO_USR() -> DDATAUSAR := EXECBLOCK("QDODATAV",.F.,.F.)
QDOXFUN.PRW - QA_QUALITY() -> EXECBLOCK("QGRVQAAF",.F.,.F.)
QDOXFUN.PRW - QA_QUALITY() -> IF EXECBLOCK("QXQAMAIL",.F.,.F.)
QDOXFUN.PRW - QA_QUALITY() -> IF VALTYPE(LGRVQAA := EXECBLOCK("QDOGRQAA",.F.,.F.)) != "L"
QDOXFUN.PRW - QC_QUALITY() -> EXECBLOCK("QGRVQACF",.F.,.F.)
QDOXFUN.PRW - QDOAVMAIL() -> AMSG := EXECBLOCK( "QDOMSGPD", .F., .F. )
QDOXFUN.PRW - QDOLOAD() -> EXECBLOCK ("Q050LOAD",.F.,.F.)
QDOXFUN.PRW - QDOLOAD() -> LQ050MAIL := EXECBLOCK ("Q050MAIL",.F.,.F.)
QDOXFUN.PRW - QDOPATH() -> APATCHS := EXECBLOCK("QDOPATHD",.F.,.F.,{APATCHS})
QDOXFUN.PRW - QDXDTVIG() -> EXECBLOCK("QD050REV",.F.,.F.,{DDTVIG,DDTIMPL,DDTATLIM,NQTDDIAS,DDTLIM})
QDOXFUN.PRW - QDXFNCKSRV() -> ATXTRESUL:=ACLONE(EXECBLOCK("QDOALTMR",.F.,.F.,{ATXTRESUL}))
QDOXFUN.PRW - QDXFNCKSRV() -> EXECBLOCK ("QDOA050M",.F.,.F.)
QDOXFUN.PRW - QDXFNCKSRV() -> EXECBLOCK("QDOAP16",.F.,.F.,{CTEXTO,CQPATH})
QDOXFUN.PRW - QDXGVAVISO() -> DDATAUSAR := EXECBLOCK("QDODATAV",.F.,.F.)
QIEA010.PRW - Q010ATUESP() -> ABUTTONS := EXECBLOCK("Q010BUT",.F.,.F., {NOPC,ABUTTONS})
QIEA010.PRW - Q010ATUESP() -> EXECBLOCK("QE010DUP",.F.,.F.,{NOPC,ACOLSENS,ACOLSNCO,CTEXTO,M->QE6_PRODUT,M->QE6_REVI})
QIEA010.PRW - Q010ATUESP() -> LRETVAL := EXECBLOCK("QE010VAL", .F., .F.,{NOPC, QE6->QE6_PRODUT, QE6->QE6_REVI})
QIEA010.PRW - Q010BLOQ() -> EXECBLOCK("Q010BGRV",.F.,.F.,{QE6->QE6_SITREV})
QIEA010.PRW - Q010DELESP() -> EXECBLOCK("QE010J2",.F.,.F.,{NOPC,CCODIGO,CREVI})
QIEA010.PRW - Q010GRVESP() -> EXECBLOCK("QE010ANT",.F.,.F.)
QIEA010.PRW - Q010GRVESP() -> EXECBLOCK("QE010J1",.F.,.F.,{NOPC,QE6->QE6_PRODUT,QE6->QE6_REVI})
QIEA010.PRW - Q010GRVESP() -> EXECBLOCK("QE010J2",.F.,.F.,{NOPC,QE6->QE6_PRODUT,QE6->QE6_REVI})
QIEA020.PRW - QE020AFCOLS() -> EXECBLOCK("QE020EXE",.F.,.F.,{"1",NOPC,IF(INCLUI,3,4),NSEQ})
QIEA020.PRW - QE020ENS() -> EXECBLOCK("QE020EXE",.F.,.F.,{"2",NOPC,NOPCA,NSEQ})
QIEA030.PRX - A030TUDOOK() -> LQ030VLD:=EXECBLOCK("QE030VLD",.F.,.F.)
QIEA183.PRW - Q183FICHA() -> EXECBLOCK("QIE183EN",.F.,.F.,{"QIEA200"})
QIEA200.PRW - Q200ATUALIZA() -> ABUTTONS := EXECBLOCK("QA200BUT",.F.,.F.,{CALIAS,NREG,NOPC})
QIEA200.PRW - Q200ATUALIZA() -> EXECBLOCK("QE200PERG",.F.,.F.,)
QIEA200.PRW - Q200ATUALIZA() -> EXECBLOCK("QIE200IV",.F.,.F.)
QIEA200.PRW - Q200ATUALIZA() -> EXECBLOCK("QIER200R",.F.,.F.,"QIEA200")
QIEA200.PRW - Q200ATUALIZA() -> EXECBLOCK("QIER240R",.F.,.F.,{"QIEA200",NMV_PAR04,NMV_PAR05})
QIEA200.PRW - Q200ATUALIZA() -> EXECBLOCK("QIER270R",.F.,.F.,{"QIEA200",NMV_PAR04,NMV_PAR05})
QIEA200.PRW - Q200ENCOK() -> LRETORNO := EXECBLOCK("QVAL200IA",.F.,.F.)
QIEA200.PRW - Q200GRAVA() -> EXECBLOCK("QIE200EN",.F., .F., {NOPC})
QIEA200.PRW - Q200GRAVA() -> LCONTINUA := EXECBLOCK("QVAL200D",.F.,.F.)
QIEA215.PRW - Q215ATUNCO() -> EXECBLOCK("QE215QNC",.F.,.F.,{ACPOQNC,QEU->QEU_CHAVE,"E"})
QIEA215.PRW - Q215ATURES() -> AADD(ABUTTONS,{"BMPINCLUIR",{||EXECBLOCK("QE215MAR")},"...","..."})
QIEA215.PRW - Q215ATURES() -> ABUTAUX := EXECBLOCK("QE215LUR",.F.,.F.,{NOPC,ABUTTONS})
QIEA215.PRW - Q215ATURES() -> ABUTTONS := EXECBLOCK("QE215BUT",.F.,.F.,{NOPC,ABUTTONS})
QIEA215.PRW - Q215ATURES() -> ACPOS:=EXECBLOCK("QE215QEK",.F.,.F.)
QIEA215.PRW - Q215ATURES() -> AENSAIOS[NX,NY,1] := EXECBLOCK("QE215LE",.F.,.F.,{NX,NY})
QIEA215.PRW - Q215ATURES() -> BVALOK := {||IF(EXISTBLOCK("Q215VALOK"),EXECBLOCK("Q215VALOK",.F.,.F.),.T.)}
QIEA215.PRW - Q215ATURES() -> EXECBLOCK("Q215FIM",.F.,.F.,{QEK->QEK_PRODUT,QEK->QEK_REVI,QEK->QEK_FORNEC,QEK->QEK_LOJFOR,QEK->QEK_DTENTR,QEK->QEK_LOTE,QEK->QEK_NTFISC,QEK->QEK_SERINF,QEK->QEK_ITEMNF,QEK->QEK_TIPONF,NOPC})
QIEA215.PRW - Q215ATURES() -> EXECBLOCK("QE215NNC",.F.,.F., {QEK->QEK_FORNEC,QEK->QEK_LOJFOR,QEK->QEK_PRODUT,DTOC(QEK->QEK_DTENTR),QEK->QEK_LOTE,QEK->QEK_NNC,QEK->QEK_NTFISC,QEK->QEK_SERINF})
QIEA215.PRW - Q215ATURES() -> EXECBLOCK("QE215RES",.F.,.F.)
QIEA215.PRW - Q215ATURES() -> EXECBLOCK("QIER270R",.F.,.F.,{"QIEA200",MV_PAR01,MV_PAR02})
QIEA215.PRW - Q215ATURES() -> LPERMITE := EXECBLOCK("QE215PRM",.F.,.F.)
QIEA215.PRW - Q215CALFOR() -> AENSAIOS[NPOSLAB,NPOSENS,1] := EXECBLOCK("QE215LE",.F.,.F.,{NPOSLAB,NPOSENS})
QIEA215.PRW - Q215CALLAB() -> APLNINTESP := EXECBLOCK('Q215PL2',.F.,.F.)
QIEA215.PRW - Q215CALLAB() -> ARET := EXECBLOCK("Q215PINT",.F.,.F.,{APLAINT1,APLAINT2,NPOSLAB,NX})
QIEA215.PRW - Q215CALLAB() -> EXECBLOCK('Q215PL1',.F.,.F.)
QIEA215.PRW - Q215FILLAB() -> ARETENSADC := EXECBLOCK('Q215CENS',.F.,.F.)
QIEA215.PRW - Q215FILTRO() -> CFILTRO := EXECBLOCK( "Q215BROW",.F.,.F.)
QIEA215.PRW - Q215GERQNC() -> EXECBLOCK("QE215QNC",.F.,.F.,{ACPOQNC,QEU->QEU_CHAVE,"E"})
QIEA215.PRW - Q215GERQNC() -> EXECBLOCK("QE215QNC",.F.,.F.,{ACPOQNC,QEU->QEU_CHAVE,"I"})
QIEA215.PRW - Q215GRVALL() -> EXECBLOCK("Q215EXCA",.F.,.F.)
QIEA215.PRW - Q215GRVALL() -> EXECBLOCK("Q215GRVA",.F.,.F.,{QEK->QEK_PRODUT,QEK->QEK_REVI,QEK->QEK_FORNEC,QEK->QEK_LOJFOR,QEK->QEK_DTENTR,QEK->QEK_LOTE,QEK->QEK_NTFISC,QEK->QEK_SERINF,QEK->QEK_ITEMNF,QEK->QEK_TIPONF,NOPC})
QIEA215.PRW - Q215GRVALL() -> EXECBLOCK("Q215QNCE",.F.,.F.)
QIEA215.PRW - Q215GRVALL() -> EXECBLOCK("Q215QNCI",.F.,.F.)
QIEA215.PRW - Q215GRVALL() -> EXECBLOCK("QE210NMO",.F.,.F.)
QIEA215.PRW - Q215GRVALL() -> EXECBLOCK("QIEA215L",.F.,.F.)
QIEA215.PRW - Q215GRVALL() -> EXECBLOCK('QIEA215G',.F.,.F.)
QIEA215.PRW - Q215GRVALL() -> LRET := IF(VALTYPE(LRETPE:=EXECBLOCK('MT175ATU',.F.,.F.))=='L',LRETPE,.T.)
QIEA215.PRW - Q215GRVALL() -> LRET := IF(VALTYPE(LRETPE:=EXECBLOCK('MT390VLV',.F.,.F.,{M->QEL_DTVAL}))=='L',LRETPE,.T.)
QIEA215.PRW - Q215IFIC() -> EXECBLOCK("Q215IFIC",.F., .F.)
QIEA215.PRW - Q215LABENS() -> ARETENSADC := EXECBLOCK('Q215CENS',.F.,.F.)
QIEA215.PRW - Q215LEGEND() -> ALEGENPE := EXECBLOCK( "QE215LEG",.F.,.F.,{ACLONE(ALEGENDA)})
QIEA215.PRW - Q215MEDTOK() -> LRETORNO := EXECBLOCK("QE215OK",.F.,.F.)
QIEA215.PRW - Q215SITENS() -> AENSAIOS[NPOSLAB,NPOSENS,1] := IF(LQE215LE,EXECBLOCK("QE215LE",.F.,.F.,{NPOSLAB,NPOSENS}),Q215CALLAB(.F.,NPOSLAB,NPOSENS))
QIEA215.PRW - Q215VLDENS() -> LRETORNO := EXECBLOCK("QE215ENS",.F.,.F.,{CCODENS,ACOLS[N,NPOSENSR]})
QIEA215.PRW - Q215WHNLDO() -> EXECBLOCK("QE215LL",.F.,.F.)
QIEA215.PRW - Q215WHNLDO() -> IF !EXECBLOCK("QE215BL",.F.,.F.)
QIEA215.PRW - QIEA215() -> ACORESPE := EXECBLOCK( "QE215COR",.F.,.F.,{ACLONE(ASITENT)})
QIEA215.PRW - QIEA215() -> CFILTRO := EXECBLOCK( "Q215BROW",.F.,.F.)
QIEA230.PRW - Q230DIQF() -> EXECBLOCK( "QIEDELQEV", .F., .F.)
QIEA230.PRW - Q230DIQF() -> EXECBLOCK( "QIEDEQEV", .F., .F.)
QIEA230.PRW - Q230DIQF() -> EXECBLOCK("QIEGERIN", .F., .F.,{CANO, CMES, CFORNECE, CPRODUTO, NMV_PAR01})
QIEA230.PRW - Q230MIQF() -> PROCQDO({||EXECBLOCK("QIEA231",.F.,.F.)},,,.T.,)
QIEA331.PRW - Q331ATPLAM() -> ACPOQF4 := EXECBLOCK("Q331QF4",.F.,.F.)
QIEA331.PRW - Q331GRVALL() -> EXECBLOCK("Q331GRV",.F.,.F., {AHEADER, ACOLS, NOPC})
QIEA332.PRW - Q332ATPLAM() -> ACPOQF6 := EXECBLOCK("Q332QF6",.F.,.F.)
QIEA332.PRW - Q332GRVALL() -> EXECBLOCK("Q332GRV",.F.,.F., {AHEADER, ACOLS, NOPC})
QIEM010.PRW - QIEDUPESP() -> EXECBLOCK("QEM010R",.F.,.F.)
QIEM010.PRW - QIEDUPESP() -> LATUSB1 := IF(LQEPM10B1, EXECBLOCK("QEPM10B1",.F.,.F.), LATUSB1)
QIEM010.PRW - QIEM010() -> LCONFDUP := EXECBLOCK("QIEVALDUP", .F. , .F. , {CPRODORI,CREVORI,CPRODDES,CREVDES} )
QIEM040.PRW - M040GERCC() -> AADD(AMEDICOES,EXECBLOCK("QIEM040F",.F.,.F.))
QIEM050.PRW - M050GERDP() -> AADD(ADADOS,EXECBLOCK("QIEM050F",.F.,.F.))
QIER220.PRW - A220IMP() -> EXECBLOCK("QIER240R",.F.,.F.,{"QIER220",CMV_PAR04,CMV_PAR05,AVETQEK,AGRAVDAD,LIMPFIC})
QIER220.PRW - A220IMP() -> EXECBLOCK("QIER270R",.F.,.F.,{"QIER220",CMV_PAR04,CMV_PAR05,AVETQEK,AGRAVDAD,LIMPFIC,LETIQRAST})
QIEXFUN.PRW - QIESKIPLOTE() -> IF !EXECBLOCK("QESEMSKPLT",.F.,.F.,{QEK_FORNEC,QEK_LOJFOR,QEK_PRODUT,QEK_DTENTR,QEK_LOTE,QEK_DOCENT,"P",QEF->QEF_UNSKLT})
QIEXFUNA.PRW - QATUMATQIE() -> CTAMAMO := EXECBLOCK("QEMATAMO",.F.,.F.)
QIEXFUNA.PRW - QATUMATQIE() -> EXECBLOCK("QEGRVALL",.F.,.F.)
QIEXFUNA.PRW - QATUMATQIE() -> EXECBLOCK("QEMATFIN",.F.,.F.)
QIEXFUNA.PRW - QATUMATQIE() -> LGRVQEK := EXECBLOCK("QEMATFOR",.F.,.F.)
QIEXFUNA.PRW - QATUMATQIE() -> LGRVQEK := EXECBLOCK("QEMATINS",.F.,.F.)
QIEXFUNA.PRW - QGRVINCENT() -> CTAMAMO := EXECBLOCK("QEINCAMO",.F.,.F.)
QIEXFUNA.PRW - QGRVINCENT() -> EXECBLOCK("QEGRVINC",.F.,.F.)
QIEXFUNA.PRW - QIEINTEST() -> LRETORNO := EXECBLOCK("QE215BCQ",.F.,.F.,{CPRODUTO,CTES,CTIPDOC,CUSER})
QIPA010.PRW - QIP010ENOK() -> LRETORNO := EXECBLOCK("QIP010JR",.F.,.F.)
QIPA010.PRW - QPA010GRV() -> EXECBLOCK('QP010J11',.F.,.F.)
QIPA010.PRW - QPAATUESP() -> EXECBLOCK("QP010DEL",.F.,.F.,{CPRODUTO,CREVISAO,CROTEIRO,.F.})
QIPA010.PRW - QPAATUESP() -> EXECBLOCK("QP010GRV",.F.,.F.,{CPRODUTO,CREVISAO,CROTEIRO,COPERACAO})
QIPA010.PRW - QPAATUESP() -> EXECBLOCK("QP010OPE",.F.,.F.,{CPRODUTO,CROTEIRO,COPERACAO,CREVISAO})
QIPA010.PRW - QPAATUESP() -> EXECBLOCK("QPA010R",.F.,.F.,{ALTERA})
QIPA011.PRW - QPA011ATU() -> EXECBLOCK("QPATUGRV",.F.,.F.,{NOPC})
QIPA011.PRW - QPA011ATU() -> VALID IF(LQIP011JR,EXECBLOCK("QIP011JR"),.T.)
QIPA011.PRW - QPA011GRV() -> EXECBLOCK('QP011J11',.F.,.F.)
QIPA012.PRW - QPA012ATU() -> ABUTTONS := EXECBLOCK( "QP010BUT",.F.,.F.,{NOPC,ABUTTONS})
QIPA012.PRW - QPA012ATU() -> EXECBLOCK("QP010ENS",.F.,.F.,{AESPECIFICACAO[NROTEIRO,_ENS,NOPERACAO]})
QIPA012.PRW - QPA012ATU() -> EXECBLOCK("QPATUGRV",.F.,.F.,{NOPC})
QIPA012.PRW - QPA012ATU() -> VALID IF(LQIP010JR,EXECBLOCK("QIP010JR"),.T.)
QIPA012.PRW - QPA012GRV() -> EXECBLOCK("QPATUSB1",.F.,.F.,{NOPC})
QIPA012.PRW - QPA012GRV() -> EXECBLOCK('QP010J11',.F.,.F.)
QIPA020.PRW - QP020TOK() -> LRETOK := EXECBLOCK("QP020TDOK", .F., .F. ,{NOPC})
QIPA160.PRW - A160TUDOK2() -> LRET := EXECBLOCK("QP160J01",.F.,.F.,{ACOLS,AHEADER})
QIPA160.PRW - QIP160ALTE() -> AALTER := EXECBLOCK( "QP220J25", .F., .F. )
QIPA215.PRW - AJUSTADATA() -> DDATABASE := EXECBLOCK ("QP215DAT",.F.,.F.,{DDATABASE})
QIPA215.PRW - Q215IMPRI() -> EXECBLOCK("QIPIMPR",.F.,.F.)
QIPA215.PRW - QIPA215() -> ASITPE := EXECBLOCK("QP215COR",.F.,.F.,{ASITENT})
QIPA215.PRW - QP215AHEADMED() -> AHEADERTMP := ACLONE(EXECBLOCK("QP215HMED",.F.,.F.,{AHEADERTMP, CCARTA, NQTDMED}))
QIPA215.PRW - QP215ATURES() -> AADD(ABUTTONS,{"DBG05",{|| EXECBLOCK("QP215J8",.F.,.F.,{QPK->QPK_OP,QPK->QPK_LOTE,QPK->QPK_NUMSER})},STR0199,STR0200})
QIPA215.PRW - QP215ATURES() -> AADD(ABUTTONS,{"EDIT",{|| EXECBLOCK("QP215J2",.F.,.F.,{ARESULTADOS[NOPERACAO,_OPE],QPK->QPK_OP,QPK->QPK_LOTE,QPK->QPK_NUMSER,ARESULTADOS[NOPERACAO,_LOP,QP215GETLAU(ASAVGETS[NOPERACAO,1],"QPM_LAUDO")],NOPC}) },STR0201,STR0202})
QIPA215.PRW - QP215ATURES() -> AADD(ABUTTONS,{"HISTORIC",{|| EXECBLOCK("QP215J15",.F.,.F.,{QPK->QPK_OP,QPK->QPK_LOTE,QPK->QPK_NUMSER,NOPC,ARESULTADOS[NFLDLAUGER,1,NPOSLAUGER]}) },STR0015,STR0016})
QIPA215.PRW - QP215ATURES() -> ABUTAUX := EXECBLOCK("QP215LUR",.F.,.F.,{NOPC,ABUTTONS})
QIPA215.PRW - QP215ATURES() -> ABUTTONS := EXECBLOCK("QP215BUT",.F.,.F.,{NOPC,ABUTTONS})
QIPA215.PRW - QP215ATURES() -> EXECBLOCK("QP215DLG",.F.,.F.)
QIPA215.PRW - QP215ATURES() -> LDADOSOK := EXECBLOCK("QP215J23",.F.,.F.,{NOPC,QPK->QPK_OP,QPK->QPK_LOTE,QPK->QPK_NUMSER})
QIPA215.PRW - QP215ATURES() -> LGRAVA := EXECBLOCK("QP215J24",.F.,.F.,{NOPC})
QIPA215.PRW - QP215ATUSIT() -> QPK->QPK_SITOP := EXECBLOCK("QP215J27",.F.,.F.,{CLAUDO})
QIPA215.PRW - QP215CANCE() -> EXECBLOCK("QP215EXE",.F.,.F.,{NOPC})
QIPA215.PRW - QP215CANCE() -> IF EXECBLOCK("QP215DEL",.F.,.F.,{NOPC})
QIPA215.PRW - QP215CARFLAB() -> ARETENSADC := EXECBLOCK('QP215E01' ,.F. ,.F., {"FOLDER", @ARESULTADOS[NPOSOPE,3, NFLDLAB]})
QIPA215.PRW - QP215CHGENS() -> LRETPE := EXECBLOCK("QP215J12",.F.,.F.,{ARESULTADOS[NPOSOPE,_OPE], ARESULTADOS[NPOSOPE,_LAB,NPOSLABI], ARESULTADOS[NPOSOPE,_ENS,NPOSLABI,NPOSENSAI,ENSAIO], QPK->QPK_OP})
QIPA215.PRW - QP215COMED() -> ACOLSAUX[N,NPOSRES] := EXECBLOCK("QP215VRM",.F.,.F.,{ACOLSAUX[N,NPOSRES],CCARTA})
QIPA215.PRW - QP215DELMED() -> EXECBLOCK("QP215J14",.F.,.F.,{"QPL","D"})
QIPA215.PRW - QP215DELMED() -> EXECBLOCK("QP215R",.F.,.F.,{NOPCX})
QIPA215.PRW - QP215DELMED() -> EXECBLOCK("QP220QNC",.F.,.F.,{ACPOQNC,QPU->QPU_CHAVE,"E"})
QIPA215.PRW - QP215DELOK() -> LDELOK := EXECBLOCK("QP215DOK",.F.,.F.,{NOPERACAO,NFLDLAB,NENSAIO})
QIPA215.PRW - QP215FILMED() -> AMEDICAO :=EXECBLOCK("QP215MED",.F.,.F.,{AMEDICAO,CCARTA})
QIPA215.PRW - QP215FLAB() -> AOPERACOES := EXECBLOCK("QP215J25",.F.,.F.,{QPK->QPK_OP, QPK->QPK_PRODUT, QPK->QPK_REVI, AOPERACOES})
QIPA215.PRW - QP215FLAB() -> ARETENSADC := EXECBLOCK('QP215E01',.F.,.F., {"QP8",NIL})
QIPA215.PRW - QP215FLAB() -> ARETENSADC := EXECBLOCK('QP215E01',.F.,.F.,{"QP7",NIL})
QIPA215.PRW - QP215FLAB() -> LOPERAOK := EXECBLOCK("QP215J3",.F.,.F.,{&(CALIASOPQP7+"->QP7_CODREC"),&(CALIASOPQP7+"->QP7_OPERAC"),&(CALIASOPQP7+"->QP7_LABOR"),&(CALIASOPQP7+"->QP7_ENSAIO"),"QP7"})
QIPA215.PRW - QP215FLAB() -> LOPERAOK := EXECBLOCK("QP215J3",.F.,.F.,{&(CALIASOPQP7+"->QP8_CODREC"),&(CALIASOPQP7+"->QP8_OPERAC"),&(CALIASOPQP7+"->QP8_LABOR"),&(CALIASOPQP7+"->QP8_ENSAIO"),"QP8"})
QIPA215.PRW - QP215GERCC() -> AADD( AMEDICOES,EXECBLOCK("QPGCCF",.F.,.F.) )
QIPA215.PRW - QP215GERCC() -> AADD( AMEDICOES,EXECBLOCK("QPGCCT",.F.,.F.) )
QIPA215.PRW - QP215GERDP() -> AADD( ADADOS,EXECBLOCK("QPGPAF",.F.,.F.) )
QIPA215.PRW - QP215GERDP() -> AADD( ADADOS,EXECBLOCK("QPGPAT",.F.,.F.) )
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QIP215C",.F.,.F.,{QPK->QPK_OP})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP215J14",.F.,.F.,{"QPL","D"})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP215J14",.F.,.F.,{"QPL",CSTATUS})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP215J14",.F.,.F.,{"QPM",CSTATUS2})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP215J9",.F.,.F.,{"QA2",AXTEXTO,QPU->QPU_CHAVE})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP215J9",.F.,.F.,{"QPQ",CSTATUS,CCHAVE})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP215J9",.F.,.F.,{"QPR","D"})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP215J9",.F.,.F.,{"QPR",CSTATUS})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP215J9",.F.,.F.,{"QPS",CSTATUS,CCHAVE})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP215J9",.F.,.F.,{"QPT","D"})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP215J9",.F.,.F.,{"QPT",CSTATUS})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP215J9",.F.,.F.,{"QPU","D"})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP215J9",.F.,.F.,{"QPU",CSTATUS,CCHAVE})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP215R",.F.,.F.,{NOPCX})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP220QNC",.F.,.F.,{ACPOQNC,QPU->QPU_CHAVE,"E"})
QIPA215.PRW - QP215GRVALL() -> EXECBLOCK("QP220QNC",.F.,.F.,{ACPOQNC,QPU->QPU_CHAVE,"I"})
QIPA215.PRW - QP215GRVALL() -> LDADOSOK := EXECBLOCK("QP215DELR",.F.,.F.,{QPK->QPK_OP,QPK->QPK_LOTE,QPK->QPK_NUMSER})
QIPA215.PRW - QP215LAUS() -> ALAUDO := EXECBLOCK("QP215J19",.F.,.F.,{ARESULTADOS[NOPERACAO,_OPE],ARESULTADOS[NOPERACAO,_LAB,NFLDLAB],ARESULTADOS,NOPCX,CLAUDO,CMENSNCONF,NFLDOPE})
QIPA215.PRW - QP215LAUS() -> LANALISA := EXECBLOCK("QP215ALG",.F.,.F.,{ARESULTADOS[NPOSOPE,_OPE],ARESULTADOS[NPOSOPE,_LOP,NPOSLAUOP]})
QIPA215.PRW - QP215LAUS() -> LANALISA := EXECBLOCK("QP215ALL",.F.,.F.,{ARESULTADOS[NOPERACAO,_OPE],ARESULTADOS[NOPERACAO,_LAB,NFLDLAB],ARESULTADOS[NOPERACAO,_ENS,NFLDLAB,NENS,ENSAIO]})
QIPA215.PRW - QP215LAUS() -> LANALISA := EXECBLOCK("QP215ALO",.F.,.F.,{ARESULTADOS[NOPERACAO,_OPE],ARESULTADOS[NOPERACAO,_LAB,NLAB],ARESULTADOS[NOPERACAO,_LLA,NLAB,NPOSLAUL]})
QIPA215.PRW - QP215LEGOP() -> ALEGPE := EXECBLOCK("QP215LEG",.F.,.F.,{ALEGENDA})
QIPA215.PRW - QP215PLAM() -> CTAMAMO := EXECBLOCK("QP215J20",.F.,.F.,{NOPCX,COPER,QPK->QPK_OP})
QIPA215.PRW - QP215PLAM() -> LANALISA := EXECBLOCK("QP215ALL",.F.,.F.,{ARESULTADOS[NOPERACAO,_OPE],ARESULTADOS[NOPERACAO,_LAB,NFLDLAB],ARESULTADOS[NOPERACAO,_ENS,NFLDLAB,NLOOP1,ENSAIO]})
QIPA215.PRW - QP215QTDMED() -> NQTDMED := EXECBLOCK("QP215QTE",.F.,.F.,{CENSAIO,&(CTABSEL+"->QP1_CARTA")})
QIPA215.PRW - QP215SAVRESU() -> LRET := EXECBLOCK("QP215J10",.F.,.F.,{M->QPL_LAUDO, NOPCX, QPK->QPK_OP})
QIPA215.PRW - QP215TUDOK() -> LRET := EXECBLOCK("Q215TDOK",.F.,.F.)
QIPA215.PRW - QP215VALNAV() -> LRET := EXECBLOCK("QP215J7",.F.,.F.,{ARESULTADOS[NOPERACAO,_OPE]})
QIPA215.PRW - QP215VLDLAU() -> IF EXECBLOCK("QP215J13",.F.,.F.,{ ARESULTADOS[NOPERACAO,_OPE], ARESULTADOS[NOPERACAO,_LAB,NFLDLAB], NOPCX, NFLDOPE, QPK->QPK_OP, CLAUDO, NFLDOPE })
QIPA215.PRW - QP215VLDLAU() -> LRET := EXECBLOCK("QP215J21",.F.,.F.,{NOPCX,ARESULTADOS[NOPERACAO,_OPE],QPK->QPK_OP})
QIPA215.PRW - QP215VLDMED() -> LRET := EXECBLOCK("QP215ENS",.F.,.F.,{CVAR})
QIPA216.PRW - A216CARENS() -> ACOLSMED := ACLONE(EXECBLOCK("QP216J28",.F.,.F.,{ACOLSMED, NPOSLCAR}))
QIPA216.PRW - A216CRESDW() -> LRET := EXECBLOCK("QIP216J7",.F.,.F.,{CIP210OP,COPER,CIP210L2})
QIPA216.PRW - A216CRESUP() -> LRET := EXECBLOCK("QIP216J7",.F.,.F.,{CIP210OP,SUBS(CDESCOPER,1,2),CIP210L2})
QIPA216.PRW - A216VLDOPE() -> CIP210LC := EXECBLOCK("QP216LOT",.F.,.F.)
QIPA216.PRW - BUILDGD216() -> EXECBLOCK("QP216MED",.F.,.F.)
QIPA216.PRW - LINOKMEDI() -> LRET := EXECBLOCK("QP216J17",.F.,.F.,{CRESUL,ARESULTADOS[NPOSOPER, _ENS, NPOSLAB],CDESCLAB,COPER,CIP210OP,ANC,AOBJGET[NLMEDATU]:ACOLS[AOBJGET[NLMEDATU]:NAT][NAMO]})
QIPA216.PRW - QIP216NC() -> LRET := EXECBLOCK("QP216J16",.F.,.F.,{CRESUL,ARESULTADOS[NPOSOPER, _ENS, NPOSLAB]})
QIPA216.PRW - QIPLAUDGER() -> ABUTTONS := EXECBLOCK("QP216BLG",.F.,.F.)
QIPA216.PRW - QIPLAULAB() -> ABUTTONS := EXECBLOCK("QP216BLL",.F.,.F.)
QIPA216.PRW - QIPLAUOP() -> ABUTTONS := EXECBLOCK("QP216BLO",.F.,.F.)
QIPA216.PRW - QIPLAUOP() -> M->QPM_TAMLOT := EXECBLOCK("QP216TLO",.F.,.F.,{M->QPM_TAMLOT,QPK->QPK_OP,COPER,ARESULTADOS,NOPCX})
QIPA216.PRW - QP216ATURES() -> @ 36,(APOSOBJ[1,4]-23)BUTTONOBNTL1 PROMPT STR0014OF ODLGMAINPIXEL ACTION IIF(LALTWIND .AND. LTELABR .AND. LCPRIMOP,IIF(EXECBLOCK("QIP216J6",.F.,.F.,{CIP210OP,SC2->C2_QUANT,NQTDREJ,CIP210L1,COPER,CDESCLAB,NOPC}),QIPLAUDGER(NOPC),.F.),LTELABR := .T.) SIZE 20,10
QIPA216.PRW - QP216ATURES() -> AADD(ABUTTONS,{"NOTE",{||IIF(LEN(ARESULTADOS)>0,( EXECBLOCK("QIP216J8",.F.,.F.,{CIP210OP}),;
QIPA216.PRW - QP216ATURES() -> AADD(ABUTTONS,{"PIN",{||IIF(LEN(ARESULTADOS)>0,( EXECBLOCK("QP216J15",.F.,.F.,{CIP210OP,NOPC,CIP210L1}),;
QIPA216.PRW - QP216ATURES() -> AADD(ABUTTONS,{"PRODUTO",{||IIF(LEN(ARESULTADOS)>0,(EXECBLOCK("QIP216J1",.F.,.F.,{CIP210L2,NOPC,CIP210L1}),;
QIPA216.PRW - QP216ATURES() -> AADD(ABUTTONS,{"SDUPROP",{||IIF(LEN(ARESULTADOS)>0,( EXECBLOCK("QIP216J2",.F.,.F.,{AOPERACOES[NPOSOPER,2],CIP210OP,CIP210L2,NOPC}),;
QIPA216.PRW - QP216ATURES() -> ABUTTONS := EXECBLOCK("QP216BUT",.F.,.F.,{NOPC,ABUTTONS})
QIPA216.PRW - QP216ATURES() -> CF3SC2:= EXECBLOCK("QIPF3SC2",.F.,.F.)
QIPA216.PRW - QP216ATURES() -> LDADOSOK := EXECBLOCK("QP216J22",.F.,.F.,{NOPC,QPK->QPK_OP})
QIPA216.PRW - QP216ATURES() -> LGRAVA := EXECBLOCK("QP216J24",.F.,.F.,{NOPC,CIP210OP})
QIPA216.PRW - QP216LDEL() -> LRET := EXECBLOCK("QP216DEL",.F.,.F.,{NORDOP,NOPC})
QIPA216.PRW - QPACTBL2() -> IF EXECBLOCK("QIP216J5",.F.,.F.,{COP, COPERAC, CQTD, NQTD, CLAUDO2, CDESC, NOPCA})
QIPA216.PRW - QPACTBL3() -> IF EXECBLOCK("QIP216J4",.F.,.F.,{CLAUDO, CDESC, CQTD, NQTD, CLAUDO3, COPERA, NOPCA})
QIPA216.PRW - TUDOKNC() -> LRET := EXECBLOCK("QP216J18",.F.,.F.,{CRESUL, ARESULTADOS[NPOSOPER, _ENS, NPOSLAB],CDESCLAB,COPER,CIP210OP,OGETNC:ACOLS,ARESULTADOS[NPOSOPER,_MED, NPOSLAB, OBRWJJ:NAT, AOBJGET[EVAL(BGETOGET)]:NAT, NAMO]})
QIPA230.PRW - QP230ATU() -> EXECBLOCK("Q230RELO",.F., .F., {NOPC,ACPOINC})
QIPM020.PRW - M020GERCC() -> AADD(AMEDICOES,EXECBLOCK("QIPM020F",.F.,.F.))
QIPM020.PRW - M020GERCC() -> AADD(AMEDICOES,EXECBLOCK("QIPM020T",.F.,.F.))
QIPM020.PRW - QM020IMPR() -> EXECBLOCK("QIPIMPR",.F.,.F.)
QIPM030.PRW - M030GERDP() -> AADD(ADADOS,EXECBLOCK("QIPM030F",.F.,.F.))
QIPXFUN.PRW - QATUMATQIP() -> LQIPMAT := EXECBLOCK("QXFUNMAT",.F.,.F.)
QIPXFUN.PRW - QGRVLGQIP() -> EXECBLOCK('QLOGMOV', .F., .F., {{ CLOGFILE, COP, CROTEIRO }})
QIPXFUN.PRW - QIPATUALIZA() -> EXECBLOCK("QPGERQPK",.F.,.F.,{CALIAS,NOPC})
QIPXFUN.PRW - QIPATUSKIPTESTE() -> EXECBLOCK("QPGRVST",.F.,.F.,{CGRUPO,CREVISAO,CROTEIRO,AENSINSP[NX,1],AENSINSP[NX,3]})
QIPXFUN.PRW - QIPATUSKIPTESTE() -> EXECBLOCK("QPGRVST",.F.,.F.,{CPRODUTO,CREVISAO,CROTEIRO,AENSINSP[NX,1],AENSINSP[NX,3]})
QIPXFUN.PRW - QIPDUPESP() -> EXECBLOCK("QPM010R",.F.,.F.)
QIPXFUN.PRW - QIPDUPESP() -> LATUSB1 := IF(LQEPM10B1,EXECBLOCK("QEPM10B1",.F.,.F.),LATUSB1)
QIPXFUN.PRW - QIPVALENS() -> LMSG := EXECBLOCK("QIP650ENSCAD",.F.,.F.)
QMTA010.PRW - A010CAJU() -> CMEMOJUANT := CMEMOJU := EXECBLOCK("QMA010CAJU",.F.,.F., {CMEMOJU})
QMTA010.PRW - A010DINS() -> EXECBLOCK("COMPINSE",.F.,.F.,{QM2->QM2_INSTR, QM2->QM2_REVINS, NOPCA})
QMTA010.PRW - A010IINS() -> EXECBLOCK("COMPINST",.F.,.F.,{QM2->QM2_INSTR, QM2->QM2_REVINS, NOPCA})
QMTA010.PRW - A010IINS() -> EXECBLOCK("QM010CAC",.F.,.F.,{QM2->QM2_INSTR, QM2->QM2_REVINS,NOPCA})
QMTA010.PRW - A010IINS() -> EXECBLOCK("QMT010QMA",.F.,.F.,{QM2->QM2_INSTR,QM2->QM2_REVINS})
QMTA010.PRW - A010IINS() -> EXECBLOCK("QMT010QMC",.F.,.F.,{QM2->QM2_INSTR,QM2->QM2_REVINS})
QMTA010.PRW - A010IINS() -> EXECBLOCK("QMT010QMK",.F.,.F.,{QM2->QM2_INSTR,QM2->QM2_REVINS})
QMTA010.PRW - A010IINS() -> EXECBLOCK("QMT010SEQ",.F., .F., {NOPC,QM2->QM2_INSTR,QM2->QM2_REVINS})
QMTA010.PRW - A010LEGEND() -> ALEGENDANEW := EXECBLOCK("QM010LEG",.F.,.F.,{ALEGENDA})
QMTA010.PRW - A010TEXT() -> LTXTQA := EXECBLOCK("QMA010DT",.F.,.F.,{CCHAVE,CESPECIE,NTAMLIN,CTITULO,ALLTRIM(QM2_INSTR)+' - '+QM2_REVINS,@AXTEXTOS,1,CCABEC,{.T.,.F.}})
QMTA010.PRW - QMTA010() -> AROTADIC := EXECBLOCK("QM010ROT", .F., .F.)
QMTA010.PRW - QMTA010() -> CFILTER := EXECBLOCK("QM010FILT",.F.,.F.)
QMTA010.PRW - QMTA010() -> EXECBLOCK("QM010BROW",.F.,.F.)
QMTA010.PRW - QMTA010TRBUT() -> ACOLS := EXECBLOCK("QMT010FXA",.F., .F.,{ACOLSFXA})
QMTA010.PRW - QMTEMAILINST() -> CWHERE := EXECBLOCK("QMTFILST",.F.,.F.)
QMTA010.PRW - QMTEMAILINST() -> EXECBLOCK("QMT010MAI",.F.,.F.,{QM2->QM2_INSTR,QM2->QM2_REVINS})
QMTA030.PRW - A030ATUINS() -> EXECBLOCK("A030NIN",.F.,.F.,{CINSTR,CREVINS})
QMTA030.PRW - A030ATUINS() -> EXECBLOCK("COMPINST",.F.,.F.,{CINSTR, CNOVAREV})
QMTA040.PRW - QMT040DSTP() -> RETURN(EXECBLOCK("QM040NES",.F.,.F.,{QM9->QM9_TIPAFE}))
QMTA040.PRW - QMT040VPDAUT() -> CCODS := EXECBLOCK("QM040NPA",.F.,.F.,{CDESPUT,NTOT})
QMTA040.PRW - QMTA040() -> AROTADIC := EXECBLOCK("QM040ROT", .F., .F.)
QMTA070.PRW - A070IPAD() -> EXECBLOCK("QMA070S",.F.,.F.)
QMTA070.PRW - QMT070EMAIL() -> EXECBLOCK("QMT070MAI",.F.,.F.,{QM3->QM3_PADRAO,QM3->QM3_REVPAD,QM3->QM3_VALDAF})
QMTA070.PRW - QMTA070() -> AROTADIC := EXECBLOCK("QM070ROT", .F., .F.)
QMTA140.PRW - A140CALC() -> LACEIT := EXECBLOCK("QMT140AE",.F.,.F.,{NERROMAX})
QMTA140.PRW - A140CALC() -> LACEIT := EXECBLOCK("QMT140AI",.F.,.F.,{NERROMAX,NINCTOT,NDESVMED})
QMTA140.PRW - A140CALC() -> LADEQ := EXECBLOCK("QMT140UE",.F.,.F.,{NERROMAX})
QMTA140.PRW - A140CALC() -> LADEQ := EXECBLOCK("QMT140UI",.F.,.F.,{NERROMAX,NDESVMED,NINCTOT})
QMTA140.PRW - A140CALC() -> LCALSTU := EXECBLOCK("QM140STU",.F.,.F.)
QMTA140.PRW - A140CALC() -> LEXAT := EXECBLOCK("QMT140EX",.F.,.F.,{NESPEC,NMEDIA,QMR->QMR_PREC,NINTER,NRNGPDMN,NRNGPDMX})
QMTA140.PRW - A140CALC() -> NERROMAX := EXECBLOCK("QMT140EE",.F.,.F.,{NINCTOT,NDESVMED})
QMTA140.PRW - A140CALC() -> NERROMAX := EXECBLOCK("QMT140EI",.F.,.F.,{NINCTOT,NDESVMED,NDESVPAD,SUPERVAL(AMEDICOES[NLIN_AMED,NPOSGER,1,17,1]),NINCTOT-SUPERVAL(AMEDICOES[NLIN_AMED,NPOSGER,1,17,1])})
QMTA140.PRW - A140GRVDAD() -> CCERT := EXECBLOCK("QMT140CERT",.F.,.F.,{CMTINSTR,CMTREVINS,DTOS(DMTDATA),AMEDICOES})
QMTA140.PRW - A140MAE() -> @ 20, 210 BUTTON OBTN1 PROMPT OEMTOANSI(STR0037) OF ODLGPRI SIZE 30,9 PIXEL ACTION { || EXECBLOCK("QMT140MD",.F.,.F.) }
QMTA140.PRW - A140MAE() -> EXECBLOCK("QMT140CS",.F.,.F.,{ACPOS})
QMTA140.PRW - A140MUDAFR() -> AFRES := EXECBLOCK("QMT140SFRE",.F.,.F.,{DPROXAFER,DPROXAFERA,NFREQNOVO,NFREQANT})
QMTA140.PRW - QMTA140() -> EXECBLOCK("QM140MBRO",.F.,.F.)
QMTA141.PRW - A140GRVALL() -> ADATEFRQ := EXECBLOCK("QMT140FRAF",.F.,.F.,{@DDATAVAL,IF(NRAD2==1,"R","A"),@CFREQ,NOPCX,CMTINSTR,CMTREVINS,CSEQL,DMTDATA})
QMTA141.PRW - A140GRVALL() -> DDATAVAL := EXECBLOCK("QMT140DF",.F.,.F.,{DDATAVAL,IF(NRAD2==1,"R","A")})
QMTA141.PRW - A140GRVALL() -> EXECBLOCK("QMT140GM",.F.,.F.,{CMTINSTR,CMTREVINS,DMTDATA,LBLKGRV,NOPCX,AQMTENT,@CFREQ,CSEQL})
QMTA141.PRW - A140GRVALL() -> EXECBLOCK("QMT140IC",.F.,.F.,{CMTINSTR,CMTREVINS,DMTDATA,LBLKGRV,NOPCX,CSEQL})
QMTA141.PRW - A140GRVALL() -> EXECBLOCK("QMT141SC",.F.,.F.,{CMTINSTR,CMTREVINS,DMTDATA,LBLKGRV,NOPCX,CSEQL})
QMTA141.PRW - A140GRVALL() -> LBLKGRV := EXECBLOCK("QMT140AS",.F.,.F.,{NOPCX})
QMTA141.PRW - A140GRVALL() -> LCONTINUA := EXECBLOCK("QMT140OK",.F.,.F.)
QMTA150.PRW - A150CALRR() -> CCORRESUT := EXECBLOCK("QM150CORES",.F.,.F.,{NPRRT})
QMTA150.PRW - A150TABENS() -> LRET := EXECBLOCK("QM150ENS",.F.,.F.,{QAA->QAA_FILIAL,QAA->QAA_MAT,QAA->QAA_NOME,QAA->QAA_CC})
QMTA160.PRW - A160BAIXA() -> EXECBLOCK("QMT160BX",.F.,.F.,{QML->QML_INSTR,QML->QML_REVINS})
QMTA160.PRW - A160BAIXA() -> LQMT160KD := EXECBLOCK("QMT160KD",.F.,.F.)
QMTA160.PRW - A160ENTRADA() -> CFILTRO+= EXECBLOCK("QM160BROW",.F.,.F.,{.F.,"QML"})
QMTA160.PRW - A160ENTRADA() -> EXECBLOCK("QM160BROW",.F.,.F.,{.T.,"QML"})
QMTA160.PRW - A160GERA() -> EXECBLOCK("QMT160GF",.F.,.F.,{QML->QML_INSTR,QML->QML_REVINS})
QMTA160.PRW - A160GERA() -> LGRVOK := EXECBLOCK("QM160EMPR",.F.,.F.,{QM2->QM2_INSTR,QM2->QM2_REVINS})
QMTA160.PRW - A160SAIDA() -> CFILTRO+= EXECBLOCK("QM160BROW",.F.,.F.,{.F.,"QM2"})
QMTA160.PRW - QMT160TOK() -> LRET := EXECBLOCK("QMT160OK",.F.,.F.)
QMTA230.PRW - QM230APROV() -> EXECBLOCK("QM230BROW",.F.,.F.,{.T.,""})
QMTA230.PRW - QM230CRDEV() -> LDEVOC := EXECBLOCK("QM230DVOL",.F.,.F.,{QN5->QN5_INSTR,QN5->QN5_REVINS,QN4->QN4_FILRSA,QN4->QN4_RESSAI,QN4->QN4_DEPRSA,QN4->QN4_FILREN,QN4->QN4_RESENT,QN4->QN4_DEPREN})
QMTA230.PRW - QM230CRIAARQ() -> CQUERY += EXECBLOCK("QM230BROW",.F.,.F.,{.F.,"TOP"})
QMTA230.PRW - QM230EMAIL() -> EXECBLOCK("QMT230MAI",.F.,.F.,{CEMAIL,CRESENV,AINSTR})
QMTA230.PRW - QM230GRVDEV() -> EXECBLOCK("QMT160BX",.F.,.F.,{QML->QML_INSTR,QML->QML_REVINS})
QMTR030.PRW - MTR030IMP() -> EXECBLOCK("QMR030R",.F.,.F.,{NTXTFIN,NINFCOM,NINFCIN,NINCS,NIOBS,NILAUDO,NIRESUM,NIITB,NIMPH})
QMTR030.PRW - MTR030IMP() -> NERRMA := EXECBLOCK("QMT140EI",.F.,.F.,{ARESULT[NCNTFOR,NCNTFORM,5],ARESULT[NCNTFOR,NCNTFORM,2]})
QMTR140.PRW - MTR140IMP() -> EXECBLOCK("QMR140R",.F.,.F.,{NTXTFIN,NINFCOM,NINFCIN,NINCS,NIOBS,NILAUDO,NIITB,NIMPH})
QMTR140.PRW - MTR140IMP() -> NERRMA := EXECBLOCK("QMT140EI",.F.,.F.,{ARESULT[NCNTFOR,NCNTFORM,5],ARESULT[NCNTFOR,NCNTFORM,2]})
QMTR140.PRW - MTR140IMP() -> NERRMA := EXECBLOCK("QMT140EI",.F.,.F.,{NVALINCS,NVALDESV})
QNCA010.PRW - QNC010DEL() -> EXECBLOCK("QNCA010DEL",.F.,.F., {CTIPO,CCODIGO})
QNCA030.PRW - QN030BXFNC() -> AMSG := EXECBLOCK( "QNCBXFNC", .F., .F. )
QNCA030.PRW - QNC030ALT() -> ABUTTONS := EXECBLOCK( "QNCPLNBT", .F., .F., {NOPC,M->QI3_CODIGO,M->QI3_REV,ABUTTONS} )
QNCA030.PRW - QNC030ALT() -> AMSG := EXECBLOCK( "QNCEACAO", .F., .F., { OEMTOANSI(STR0035) } )
QNCA030.PRW - QNC030ALT() -> AMSG := EXECBLOCK( "QNCRACAO", .F., .F., { OEMTOANSI(STR0034),.T. } )
QNCA030.PRW - QNC030ALT() -> ARET := EXECBLOCK( "QNCTELAC", .F., .F. ,{ "QI5",IF(LALTETA,4,NOPC),@AQI5,@AQI6,@AQI7,@AQI8,@AQI4,@AQI9,@ACOLANX, @NOPCAO })
QNCA030.PRW - QNC030ALT() -> EXECBLOCK( "QNCPLNET", .F., .F., {AQI5} )
QNCA030.PRW - QNC030ALT() -> IF VALTYPE (AMEMUSER := EXECBLOCK( "QN030MEM", .F., .F. ) ) =="A"
QNCA030.PRW - QNC030ALT() -> LRETPE := EXECBLOCK('QNC030USU',.F., .F.,{CMATFIL,CMATCOD})
QNCA030.PRW - QNC030ALT() -> LSIGILO := EXECBLOCK("QNC30SIG",.F.,.F.,{CMATFIL,CMATCOD})
QNCA030.PRW - QNC030GRAVA() -> AMSG := EXECBLOCK( "QNCCACAO", .F., .F. )
QNCA030.PRW - QNC030GRAVA() -> EXECBLOCK( "QNCGRACO", .F., .F., {NOPC,AQI5} )
QNCA030.PRW - QNC030LIOK() -> LRET := EXECBLOCK("QN030LOK",.F.,.F.)
QNCA030.PRW - QNC030MTGET() -> EXECBLOCK( "QNCGEACO", .F., .F. )
QNCA030.PRW - QNC030MTGET() -> LQNCGEVAL := EXECBLOCK( "QNCGEVAL", .F., .F. , {CALIASB,NOPC,AARRAY})
QNCA030.PRW - QNC030VLDACO() -> LRET := EXECBLOCK( "QNCVLACO", .F., .F. ,{ AQI9,AQI5,AQI6,AGETS,ATELA,NOPC })
QNCA030.PRW - QNC030VLDMTG() -> LRET := EXECBLOCK( "QNCVLMTG", .F., .F. ,{ CALIASB,ACLONE(ACOLS),AGETS,ATELA,NOPCGET })
QNCA030.PRW - QNCA030() -> AROTADIC := EXECBLOCK("QNC030ROT", .F., .F.)
QNCA030.PRW - QNCA030() -> CFILTRAQI3 := EXECBLOCK("QNC030FIL",.F.,.F.)
QNCA030.PRW - QNCA030IMP() -> EXECBLOCK( "QNCR061",.F.,.F.,{QI3->(RECNO())})
QNCA040.PRW - CHAMADA NOVAMENTE PELA FALTA DO REGISTRO NO QI9 ³() -> AMSG := EXECBLOCK( "QNCFICHA", .F., .F. )
QNCA040.PRW - CHAMADA NOVAMENTE PELA FALTA DO REGISTRO NO QI9 ³() -> CMAIL += ';' + EXECBLOCK("QN40ADMAIL",.F.,.F.,{M->QI2_FILRES,M->QI2_MATRES})
QNCA040.PRW - CHAMADA NOVAMENTE PELA FALTA DO REGISTRO NO QI9 ³() -> CMAIL := EXECBLOCK("QN40ADMAIL",.F.,.F.,{M->QI2_FILRES,M->QI2_MATRES})
QNCA040.PRW - CHAMADA NOVAMENTE PELA FALTA DO REGISTRO NO QI9 ³() -> EXECBLOCK( "QNCGRAVF", .F., .F. )
QNCA040.PRW - FQNCCHKACA() -> LRET := EXECBLOCK('QN040AUT',.F., .F.,{CMATFIL,CMATCOD})
QNCA040.PRW - QN40VRES() -> LRET := EXECBLOCK('QN040AUT',.F., .F.,{CMATFIL,CMATCOD})
QNCA040.PRW - QNC040AAC() -> AMSG := EXECBLOCK( "QNCEACAO", .F., .F., { OEMTOANSI(STR0043) } )
QNCA040.PRW - QNC040AAC() -> AMSG := EXECBLOCK( "QNCRACAO", .F., .F., { OEMTOANSI(STR0043),.T. } )
QNCA040.PRW - QNC040ACAO() -> EXECBLOCK ("QNC040PL",.F.,.F.)
QNCA040.PRW - QNC040ACAO() -> LAUT := EXECBLOCK('QN040AUT',.F., .F.,{CMATFIL,CMATCOD})
QNCA040.PRW - QNC040ACAO() -> LRET := EXECBLOCK ("QNC040VPL",.F.,.F.)
QNCA040.PRW - QNC040ALT() -> ABUTTONS := EXECBLOCK( "QNCFNCBT", .F., .F., {NOPC,M->QI2_FNC,M->QI2_REV,ABUTTONS} )
QNCA040.PRW - QNC040ALT() -> AMSG := EXECBLOCK( "QNCFICHA", .F., .F. )
QNCA040.PRW - QNC040ALT() -> CMAIL += ';' + EXECBLOCK("QN40ADMAIL",.F.,.F.,{M->QI2_FILRES,M->QI2_MATRES})
QNCA040.PRW - QNC040ALT() -> CMAIL := EXECBLOCK("QN40ADMAIL",.F.,.F.,{M->QI2_FILRES,M->QI2_MATRES})
QNCA040.PRW - QNC040ALT() -> EXECBLOCK( "QNCFNCOB", .F., .F.)
QNCA040.PRW - QNC040ALT() -> EXECBLOCK("QN040ALT",.F.,.F.,{NOPC})
QNCA040.PRW - QNC040ALT() -> IF VALTYPE (AMEMUSER := EXECBLOCK( "QN040MEM", .F., .F. ) ) =="A"
QNCA040.PRW - QNC040ALT() -> LAUTORIZADO := EXECBLOCK("QNCDELFNC", .F., .F.)
QNCA040.PRW - QNC040ALT() -> LAUTORIZADO := EXECBLOCK('QN040AUT',.F., .F.,{CMATFIL,CMATCOD})
QNCA040.PRW - QNC040ALT() -> LSIGILO := EXECBLOCK("QNC40SIG",.F.,.F.,{CMATFIL,CMATCOD})
QNCA040.PRW - QNC040ALT() -> NOPCAO:= EXECBLOCK( "QNCNCFIM", .F., .F., {NOPC,M->QI2_FNC,M->QI2_REV,NOPCAO})
QNCA040.PRW - QNC040DEL() -> EXECBLOCK("Q040DQNC",.F.,.F.,{M->QI2_FNC,M->QI2_REV})
QNCA040.PRW - QNC040FINPL() -> AMSG := EXECBLOCK( "QNCEACAO", .F., .F., { OEMTOANSI(STR0083),.F. } )
QNCA040.PRW - QNC040FINPL() -> AMSG := EXECBLOCK( "QNCRACAO", .F., .F., { OEMTOANSI(STR0083),.F. } )
QNCA040.PRW - QNC040FOLL() -> LSIGILO := EXECBLOCK("QNC40SIG",.F.,.F.,{CMATFIL,CMATCOD})
QNCA040.PRW - QNC040GRAVA() -> EXECBLOCK("QN040AGV",.F.,.F.,{NOPC, M->QI2_FILRESP, M->QI2_MATRES, M->QI2_FNC,M->QI2_REV})
QNCA040.PRW - QNC040LEGEN() -> ACORESNEW := EXECBLOCK("QNC40LEG",.F.,.F.,{ACORES})
QNCA040.PRW - QNC040VLDFNC() -> LRET := EXECBLOCK( "QNCVALIF", .F., .F. )
QNCA040.PRW - QNC040VLDFNC() -> LRET := EXECBLOCK( "QNCVLDNC", .F., .F. )
QNCA040.PRW - QNC040VLDFNC() -> LRET := EXECBLOCK("QN040VLD", .F., .F.)
QNCA040.PRW - QNCA040() -> ACORADD := EXECBLOCK("QNC40FLG", .F., .F.)
QNCA040.PRW - QNCA040() -> ACORESNEW := EXECBLOCK("QNC40COR",.F.,.F.,{ACORES})
QNCA040.PRW - QNCA040() -> CEXPFILT:= EXECBLOCK("QNCAP01", .F., .F.)
QNCA040.PRW - QNCA040() -> EXECBLOCK( "QNCABFNC", .F., .F.)
QNCA040.PRW - QNCA040IMP() -> EXECBLOCK( "QNCR051",.F.,.F.,{QI2->(RECNO())})
QNCA050.PRW - Q50BXTMKPMS() -> EXECBLOCK("QGRVBXETP",.F.,.F., {CCODIGO,CREV,CETAPA,LRET,CSTATUS} )
QNCA050.PRW - QN030BXORD() -> AMSG := EXECBLOCK( "QNCEACAO", .F., .F., { OEMTOANSI(STR0060) } )
QNCA050.PRW - QN030BXPLA() -> AMSG := EXECBLOCK( "QNCBXFNC", .F., .F. )
QNCA050.PRW - QNC050BXPEN() -> ABUTTON := EXECBLOCK("QN50BUBX", .F., .F., {ABUTTON})
QNCA050.PRW - QNC050BXPEN() -> EXECBLOCK("QNCPABXP", .F., .F., {AQI5})
QNCA050.PRW - QNC050BXPEN() -> LABREWIN := EXECBLOCK( " QNCABXPE", .F., .F., {AQI5} )
QNCA050.PRW - QNC050IFNC() -> EXECBLOCK( "QNCR051",.F.,.F.,{NREGQI2})
QNCA050.PRW - QNC050LEFNC() -> CQUERY := EXECBLOCK("QNCFILPD", .F., .F.,{"QI2",CQUERY})
QNCA050.PRW - QNC050LIOK() -> LRET := EXECBLOCK( "QNCAEACO", .F., .F.,{AQI5,NPOS})
QNCA050.PRW - QNC50BXPEND() -> ALISTA := EXECBLOCK( "QNC50EML", .F., .F., { ALISTA, CETAPA } )
QNCA050.PRW - QNC50BXPEND() -> CMSG := EXECBLOCK( "PMSMONEML", .F., .F., { CMSG } )
QNCA050.PRW - QNC50BXPEND() -> LBLKPEND := EXECBLOCK("QNAGRVREJ",.F.,.F.,{LPENDENCIA,QI5->QI5_CODIGO,QI5->QI5_REV,QI5->QI5_TPACAO,CACAO,CACAO=="5",CNEWQUO})
QNCA050.PRW - QNC50PLCOR() -> AEXEB:=EXECBLOCK( "QNC50LPLN", .F., .F. ,{ACORES,ALEGENDA} )
QNCA050.PRW - QNCA050() -> ABUTTONS := EXECBLOCK( "QNCPENBT", .F., .F., {ABUTTONS} )
QNCA050.PRW - QNCA050() -> EXECBLOCK( "QNCBXFIM", .F., .F., {AQI5,NOPCAO} )
QNCA050.PRW - QNCA050() -> EXECBLOCK("QNCGBXIT",.F.,.F.,{AQI5[NT,7]})
QNCA050.PRW - QNCA050() -> OFOLDER1:ADIALOGS[2]:BWHEN:={|| EXECBLOCK( "QNC50BLFD", .F., .F., {2} )}
QNCA050.PRW - QNCA050() -> OFOLDER1:ADIALOGS[3]:BWHEN:={|| EXECBLOCK( "QNC50BLFD", .F., .F., {3} )}
QNCA050.PRW - QNCA50QI3() -> CQUERY := EXECBLOCK("QNCFILPD", .F., .F.,{"QI3",CQUERY})
QNCA050.PRW - QNCA50QI5() -> CQUERY := EXECBLOCK("QNCFILPD", .F., .F.,{"QI5",CQUERY})
QNCA050.PRW - QNCAVISA() -> AMSG := EXECBLOCK( "QNCRACAO", .F., .F., { OEMTOANSI(STR0035),.F. } )
QNCA070.PRW - QNC070GRV() -> AMSG := EXECBLOCK( "QNCEACAO", .F., .F., { OEMTOANSI(STR0043) } )
QNCA070.PRW - QNC070GRV() -> AMSG := EXECBLOCK( "QNCRACAO", .F., .F., { OEMTOANSI(STR0041),.T. } )
QNCA100.PRW - FACTIONQNC() -> EXECBLOCK( "QNCR051",.F.,.F.,{QI2->(RECNO())})
QNCA120.PRW - GETLISTBOX1() -> ARECLIST := EXECBLOCK("Q120FIL",.F.,.F., {AVET, CRESP, CRESP2})
QNCA330.PRW - QN330BXFNC() -> AMSG := EXECBLOCK( "QNCBXFNC", .F., .F. )
QNCA330.PRW - QN330BXPLA() -> AMSG := EXECBLOCK( "QNCBXFNC", .F., .F. )
QNCA330.PRW - QNC330ALT() -> LSIGILO := EXECBLOCK("QNC30SIG",.F.,.F.,{CMATFIL,CMATCOD})
QNCA330.PRW - QNCA330() -> AROTADIC := EXECBLOCK("QNC030ROT", .F., .F.)
QNCA330.PRW - QNCA330() -> IF VALTYPE(CFIL := EXECBLOCK( "QNC030FIL", .F., .F.)) == "C"
QNCA330.PRW - QNCA330IMP() -> EXECBLOCK( "QNCR061",.F.,.F.,{QI3->(RECNO())})
QNCA330EVDEF.PRW - AFTER() -> AMSG := EXECBLOCK( "QNCEACAO", .F., .F., { OEMTOANSI(STR0035) } )
QNCA330EVDEF.PRW - AFTER() -> AMSG := EXECBLOCK( "QNCRACAO", .F., .F., { OEMTOANSI(STR0034),.T. } )
QNCA330EVDEF.PRW - Q330ALTPLA() -> LRETPE := EXECBLOCK('QNC030USU',.F., .F.,{CMATFIL,CMATCOD})
QNCA330EVDEF.PRW - Q330CHKACA() -> LRET := EXECBLOCK('QN040AUT',.F., .F.,{QNCUSUARIO()[2], QNCUSUARIO()[3]})
QNCA340.PRW - A340FILTRO() -> CEXPFILT:= EXECBLOCK("QNCAP01", .F., .F.)
QNCA340.PRW - QNC340ACAO() -> EXECBLOCK ("QNC040PL",.F.,.F.)
QNCA340.PRW - QNC340ACAO() -> LAUT := EXECBLOCK('QN040AUT',.F., .F.,{CMATFIL,CMATCOD})
QNCA340.PRW - QNC340ACAO() -> LRET := EXECBLOCK ("QNC040VPL",.F.,.F.)
QNCA340.PRW - QNC340ALT() -> EXECBLOCK("QN040ALT",.F.,.F.,{NOPC})
QNCA340.PRW - QNC340ALT() -> LAUTORIZADO := EXECBLOCK("QNCDELFNC", .F., .F.)
QNCA340.PRW - QNC340ALT() -> LAUTORIZADO := EXECBLOCK('QN040AUT',.F., .F.,{CMATFIL,CMATCOD})
QNCA340.PRW - QNC340ALT() -> LSIGILO := EXECBLOCK("QNC40SIG",.F.,.F.,{CMATFIL,CMATCOD})
QNCA340.PRW - QNCA340() -> EXECBLOCK("QNC340LEG", .F., .F., {@OBROWSE})
QNCXFUN.PRW - QALOCPMS2() -> LQNALOCSEM := EXECBLOCK("QNALOCSEM", .F., .F.,{NOPCA,CRESOUR,CRESOUR2,CPLANO,CREV,CETAPA,CHORASEL,CHORA,@AALOCS,DDTINISEL,CHRINI,DDTINI,NHORASPSEQ})
QNCXFUN.PRW - QAPONTAREJ() -> AETAPA := EXECBLOCK("QNCFILREJ", .F., .F.,{AETAPA})
QNCXFUN.PRW - QNCANEXOMV() -> LRET := EXECBLOCK("QNCDOCANX", .F. , .F. , {OMODEL:GETOPERATION(),@CFILETRM,CARQANEXO} )
QNCXFUN.PRW - QNCAVMAIL() -> AMSG := EXECBLOCK( "QNCMSGEP", .F., .F. )
QNCXFUN.PRW - QNCAVMAIL() -> AMSG := EXECBLOCK( "QNCMSGFI", .F., .F. )
QNCXFUN.PRW - QNCAVMAIL() -> AMSG := EXECBLOCK( "QNCMSGPA", .F., .F. )
QNCXFUN.PRW - QNCAVMAIL() -> CFILTRO := EXECBLOCK ("QNQI2FIL",.F.,.F.,{CFILTRO})
QNCXFUN.PRW - QNCAVMAIL() -> CFILTRO := EXECBLOCK ("QNQI3FIL",.F.,.F.,{CFILTRO})
QNCXFUN.PRW - QNCAVMAIL() -> CFILTRO := EXECBLOCK ("QNQI5FIL",.F.,.F.,{CFILTRO})
QNCXFUN.PRW - QNCAVMAIL() -> CFILTROCLI := EXECBLOCK( "QNCQI2FT", .F., .F.)
QNCXFUN.PRW - QNCAVMAIL() -> CFILTROCLI := EXECBLOCK( "QNCQI3FT", .F., .F.)
QNCXFUN.PRW - QNCAVMAIL() -> CFILTROCLI := EXECBLOCK( "QNCQI5FT", .F., .F.)
QNCXFUN.PRW - QNCCARHAB() -> ATMPHAB := EXECBLOCK("QNCALTHAB",.F.,.F.,{CFIL,CPLANO,CETAPA,AHABILIDADES,LGRAVAQUR})
QNCXFUN.PRW - QNCGERA() -> AMSG := EXECBLOCK( "QNCFICHA", .F., .F. )
QNCXFUN.PRW - QNCGERA() -> EXECBLOCK( "QNCEXFNC", .F., .F. )
QNCXFUN.PRW - QNCGERA() -> EXECBLOCK( "QNCGRFNC", .F., .F. )
QNCXFUN.PRW - QNCGERA() -> EXECBLOCK( "QNCIFNC", .F., .F. )
QNCXFUN.PRW - QNCGERAPLANO() -> ARETPE_NUM := EXECBLOCK("QNCQI3NUM",.F.,.F.,{CFNC,CREV,CPLANO,CREVPLANO,CGRUPO,CDEPTO} )
QNCXFUN.PRW - QNCGERAPLANO() -> ATMPSEEK := EXECBLOCK("QNCSELQUO",.F.,.F., {CSEEK, QUO->(INDEXORD()), CGRUPO , LPLFILHO, M->QI3_CODIGO, M->QI3_REV, CFNC , CREV } )
QNCXFUN.PRW - QNCGERAPLANO() -> EXECBLOCK("QNCFGP",.F.,.F.)
QNCXFUN.PRW - QNCGERAPLANO() -> EXECBLOCK("QNCGQI3",.F.,.F.)
QNCXFUN.PRW - QNCGERAPLANO() -> LLOADQUP := EXECBLOCK("QNCCARQUP",.F.,.F.)
QNCXFUN.PRW - QNCGERATAREFA() -> AAF9 := EXECBLOCK("QGERAAF9",.F.,.F.,{ACAB})
QNCXFUN.PRW - QNCGERATAREFA() -> APMS := EXECBLOCK("QGERATRF",.F.,.F.,AREC)
QNCXFUN.PRW - QNCGERATAREFA() -> NRETTIMER := EXECBLOCK("QNCTIMER",.F.,.F.)
QNCXFUN.PRW - QNCGRVOPE() -> EXECBLOCK( "QNCGRVOP", {LMODO, CGRUPO, CCODOPER} )
QNCXFUN.PRW - QNCVRFANEXO() -> LRET := EXECBLOCK("QNCDOCANX", .F. , .F. , {NOPC,@CFILETRM,CARQANEXO} )
QNCXFUN.PRW - QNCXRTO() -> CEMAIL := EXECBLOCK( "QNCEMAIL", .F., .F. )
QNCXFUN.PRW - QNQI5IPMS() -> AVALREC := EXECBLOCK("QRECDISP",.F.,.F., {CQI3PLANO,CQI3REV,CQI5TPACAO})
QNCXFUN.PRW - QVALRECURSO() -> LRET := EXECBLOCK("Q120RESP",.F.,.F., {CRECURSO,CPLANO,CREV,CETAPA})
QPPA010.PRW - QPPA010DUP() -> ACLON := ACLONE(EXECBLOCK("Q010DUPL",.F.,.F.))
QPPA120.PRW - QPP120APRO() -> LRET := EXECBLOCK("QP120APR",.F.,.F.)
QPPA130.PRW - PP130TUDOK() -> LRETORNO := EXECBLOCK("QP130TOK",.F.,.F.,{AVALUES})
QPPA130.PRW - PPA130ALTE() -> ABUTTONPE := EXECBLOCK("QP130BUT",.F., .F., {NOPC})
QPPA130.PRW - PPA130EXCL() -> ABUTTONPE := EXECBLOCK("QP130BUT",.F., .F., {NOPC})
QPPA130.PRW - PPA130INCL() -> ABUTTONPE := EXECBLOCK("QP130BUT",.F., .F., {NOPC})
QPPA130.PRW - QPP130APRO() -> LRET := EXECBLOCK("QP130APR",.F.,.F.)
QPPA150.PRW - PPA150ALTE() -> ABUTTONS := EXECBLOCK("QP150BUT",.F., .F., {NOPC,ABUTTONS})
QPPA150.PRW - PPA150EXCL() -> ABUTTONS := EXECBLOCK("QP150BUT",.F., .F., {NOPC,ABUTTONS})
QPPA150.PRW - PPA150INCL() -> ABUTTONS := EXECBLOCK("QP150BUT",.F., .F., {NOPC,ABUTTONS})
QPPA150.PRW - PPA150VISU() -> ABUTTONS := EXECBLOCK("QP150BUT",.F., .F., {NOPC,ABUTTONS})
QPPA150.PRW - QPPA150BMP() -> ABMP:=ACLONE(EXECBLOCK("QPP150BMP",.F.,.F.))
QPPA150.PRW - QPPA150BMP() -> OBMP10:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"F3",STR0012}),STR0012)
QPPA150.PRW - QPPA150BMP() -> OBMP11:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"F4",STR0012}),STR0012)
QPPA150.PRW - QPPA150BMP() -> OBMP12:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"F5",STR0012}),STR0012)
QPPA150.PRW - QPPA150BMP() -> OBMP13:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"F6",STR0012}),STR0012)
QPPA150.PRW - QPPA150BMP() -> OBMP14:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"E8",STR0013}),STR0013)
QPPA150.PRW - QPPA150BMP() -> OBMP15:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"F1",STR0014}),STR0014)
QPPA150.PRW - QPPA150BMP() -> OBMP16:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"A3",STR0015}),STR0015)
QPPA150.PRW - QPPA150BMP() -> OBMP17:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"B4",STR0016}),STR0016)
QPPA150.PRW - QPPA150BMP() -> OBMP18:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"C7",STR0017}),STR0017)
QPPA150.PRW - QPPA150BMP() -> OBMP19:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"D9",STR0018}),STR0018)
QPPA150.PRW - QPPA150BMP() -> OBMP2:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"B8",STR0012}),STR0012)
QPPA150.PRW - QPPA150BMP() -> OBMP3:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"D7",STR0012}),STR0012)
QPPA150.PRW - QPPA150BMP() -> OBMP4:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"F7",STR0012}),STR0012)
QPPA150.PRW - QPPA150BMP() -> OBMP5:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"E5",STR0012}),STR0012)
QPPA150.PRW - QPPA150BMP() -> OBMP6:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"E7",STR0012}),STR0012)
QPPA150.PRW - QPPA150BMP() -> OBMP7:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"F8",STR0012}),STR0012)
QPPA150.PRW - QPPA150BMP() -> OBMP8:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"E9",STR0012}),STR0012)
QPPA150.PRW - QPPA150BMP() -> OBMP9:CTOOLTIP := IIF(LQP150TIT,EXECBLOCK("QP150TIT", .F., .F.,{"F2",STR0012}),STR0012)
QPPA160.PRW - PPA160ALTE() -> ABUTTONS := EXECBLOCK("QPPAPBUTAUX",.F., .F., {NOPC,ABUTTONS})
QPPA160.PRW - PPA160ALTE() -> ACPOSALT := EXECBLOCK("QPP160ALT",.F., .F., {ACPOSALT})
QPPA160.PRW - PPA160ALTE() -> EXECBLOCK("QPP160GRV", .F., .F., {NOPC,NREG})
QPPA160.PRW - PPA160EXCL() -> ABUTTONS := EXECBLOCK("QPPAPBUTAUX",.F., .F., {NOPC,ABUTTONS})
QPPA160.PRW - PPA160EXCL() -> EXECBLOCK("QPP160GRV", .F., .F., {NOPC,NREG})
QPPA160.PRW - PPA160INCL() -> ABUTTONS := EXECBLOCK("QPPAPBUTAUX",.F., .F., {NOPC,ABUTTONS})
QPPA160.PRW - PPA160INCL() -> EXECBLOCK("QPP160GRV", .F., .F., {NOPC,NREG})
QPPA180.PRW - PP80TUDOK() -> LRETORNO := EXECBLOCK( "PP180CST", .F., .F., {M->QKB_LINSP,M->QKB_ASSFOR,M->QKB_DTAPR,M->QKB_OBSERV} )
QPPA180.PRW - PPA180ALTE() -> ABUTTONS := EXECBLOCK("QPA180BT",.F., .F., {NOPC,ABUTTONS})
QPPA180.PRW - PPA180EXCL() -> ABUTTONS := EXECBLOCK("QPA180BT",.F., .F., {NOPC,ABUTTONS})
QPPA190.PRW - PP90TUDOK() -> LRETORNO := EXECBLOCK( "PP190CST", .F., .F., {M->QKD_LABOR,M->QKD_ASSFOR,M->QKD_DTAPR,M->QKD_OBSERV } )
QPPA190.PRW - PPA190ALTE() -> ABUTTONS := EXECBLOCK("QPA190BT",.F.,.F.,{NOPC,ABUTTONS})
QPPA190.PRW - PPA190EXCL() -> ABUTTONS := EXECBLOCK("QPA190BT",.F.,.F.,{NOPC,ABUTTONS})
QPPA220.PRW - PPA220ALTE() -> ABUTTONPE := EXECBLOCK("QP220BUT",.F., .F., {NOPC})
QPPA220.PRW - PPA220EXCL() -> ABUTTONPE := EXECBLOCK("QP220BUT",.F., .F., {NOPC})
QPPA220.PRW - PPA220INCL() -> ABUTTONPE := EXECBLOCK("QP220BUT",.F., .F., {NOPC})
RECEIPT.DATA.TLPP - GETTOTALRECEIPTSADAPTER() -> CQUERY := EXECBLOCK("F998BRFLT",.F.,.F.,{CQUERYFIELDS,CQUERYWHERE,'COMPLETE'})
RMIRETAILJOB.PRW - GERAORC() -> EXECBLOCK("IN210GL1",.F.,.F., { ASL1 } )
RMIRETAILJOB.PRW - GERAORC() -> EXECBLOCK("IN210GL2",.F.,.F., { ASL2[NCONT] } )
RMIRETAILJOB.PRW - GERAORC() -> EXECBLOCK("IN210GL4",.F.,.F., { ASL4[NCONT] } )
RMIRETAILJOB.PRW - VALIDSL1() -> _AL1MAT := EXECBLOCK("IN210AL1",.F.,.F., { NRECSL1 })
RMIRETAILJOB.PRW - VALIDSL4() -> AL4MAT := EXECBLOCK("IN210AL4",.F.,.F., { TMPSL2->REGISTRO })
RSKA030.PRW - RSKPRINC() -> ATITULO := EXECBLOCK("RSKFINGRV",.F.,.F.,APARAM)[3]
RSKA030.PRW - RSKTAXA() -> ATITULO := EXECBLOCK("RSKFINGRV",.F.,.F.,APARAM)[3]
RSKA070.PRW - RSKNCCRELEASE() -> AAUTOSE1 := EXECBLOCK("RSKFINGRV",.F.,.F.,APARAM)[3]
RSKA070.PRW - RSKNEWTAX() -> AAUTOSE2 := EXECBLOCK("RSKFINGRV",.F.,.F.,APARAM)[3]
RSKA080.PRW - RSKBANKCONCILIATION() -> EXECBLOCK("RSKBANKCON", .F., .F.,{ 2, ACUSTOM })
RSKA080.PRW - RSKPAYAPINV() -> AAUTOSE2 := EXECBLOCK("RSKFINGRV",.F.,.F.,APARAM)[3]
RSKA080.PRW - RSKPAYARINV() -> AAUTOSE1 := EXECBLOCK("RSKFINGRV",.F.,.F.,APARAM)[3]
RSPA010.PRW - RSP010LEG() -> ACORES := EXECBLOCK("RSPALTLEG" , .F. , .F. , { {} , ACORES } )
RSPA010.PRW - RSP010ROT() -> ARSP010BUT := EXECBLOCK("RSP010BUT",.F.,.F.)
RSPA010.PRW - RSP010ROT() -> EXECBLOCK("RSP010GRV",.F.,.F., {NGRAVA, NOPCX})
RSPA010.PRW - RSPA010() -> CFILSQG:= EXECBLOCK("RSP10FIL",.F.,.F.)
RSPA010.PRW - RSPA010() -> EXECBLOCK("RSP10ROT",.F.,.F.)
RSPA010.PRW - RSPA010CPF() -> LRET := EXECBLOCK( "RSPCHKCPF" , .F., .F., { CCICCHK } )
RSPA010.PRW - RSPA010VALPE() -> LRET := EXECBLOCK( "RS010VALPE", .F., .F. )
RSPA090.PRW - A090IMPRI() -> EXECBLOCK("RS090IMP",.F.,.F.)
RSPA090.PRW - A090LIST() -> EXECBLOCK( "IMPRCAN", .F., .F., {ACAND} )
RSPA100.PRW - MENUDEF() -> EXECBLOCK("RSP100ME",.F.,.F.)
RSPA100.PRW - RSP100ALT() -> ABUT100:=EXECBLOCK("RSP100B1",.F.,.F.,{NOPC})
RSPA100.PRW - RSP100EXC() -> ABUT100:=EXECBLOCK("RSP100B1",.F.,.F.,{NOPC})
RSPA100.PRW - RSP100EXC() -> LRET := EXECBLOCK("RSP100EX",.F.,.F.)
RSPA100.PRW - RSP100INC() -> ABUT100:=EXECBLOCK("RSP100B1",.F.,.F.,{NOPC})
RSPA100.PRW - RSP100TOK() -> LRET := EXECBLOCK('RSPA100INC',.F.,.F.)
RSPA100.PRW - RSPA100() -> EXECBLOCK("RSP100LG",.F.,.F.)
RSPA150.PRW - MENUDEF() -> EXECBLOCK("RSP150ME",.F.,.F.)
RSPA150.PRW - RS150CLK() -> LVLDMRKPE := EXECBLOCK("RS050SEL", .F., .F., {CALIASTRX})
RSPA150.PRW - RS150GRAVA() -> EXECBLOCK("RS150GV",.F.,.F.)
RSPA150.PRW - RS150INVERT() -> LVLDMRKPE := EXECBLOCK("RS050SEL", .F., .F., {CALIASTRX})
RSPA150.PRW - RS150LIST() -> AADD( ABUTTONS, { "BMPPOST",{ || EXECBLOCK("RS150ML",.F.,.F.,{1}) },OEMTOANSI(STR0057),OEMTOANSI(STR0058)} )
RSPA150.PRW - RS150LIST() -> EXECBLOCK("RS150BT",.F.,.F.)
RSPA150.PRW - RS150LIST() -> EXECBLOCK("RS150ML",.F.,.F.,{2})
RSPA150.PRW - RS150LIST() -> IF !( EXECBLOCK("RS150CDT", .F., .F., {CAUXVAGA, CPROC}) )
RSPA150.PRW - RS150SELECT() -> LVLDMRKPE := EXECBLOCK("RS050SEL", .F., .F., {CALIASTRX})
RSPA150.PRW - RSPA150() -> EXECBLOCK("RSP150FT",.F.,.F.)
RSPM001.PRW - RS001CNV() -> ARETURN:= EXECBLOCK( "RS01DEPA", .F., .F., {ADEPARA,ADEPARA2} )
RSPM001.PRW - RS001CNV() -> CTUDOOK += " .AND. EXECBLOCK( 'RS01TDOK',.F.,.F.)"
RSPM001.PRW - RS001CNV() -> IF !( EXECBLOCK( "RS01AG", .F., .F. ) )
RSPM001.PRW - RS001OK() -> ACORES := EXECBLOCK("RSPALTLEG" , .F. , .F. , { ACORES , {}} )
RSPM001.PRW - RS001OK() -> CFILUSERSQG:= EXECBLOCK( "RSFILSQG", .F., .F. )
RSPM001.PRW - RSLIMPSQG() -> EXECBLOCK("RS001GV",.F.,.F.)
RSPM001.PRW - RSP001LEG() -> ACORES := EXECBLOCK("RSPALTLEG" , .F. , .F. , { {} , ACORES } )
RSPXRDM.PRX - RSPXRSR001() -> EXECBLOCK( "RSR001", .F., .F. )
RSPXRDM.PRX - RSPXRSR003() -> EXECBLOCK( "RSR003", .F., .F. )
RSPXRDM.PRX - RSPXRSR004() -> EXECBLOCK( "RSR004", .F., .F. )
SAVE-RECEIPT.SERVICE.TLPP - GETSAVERECEIPTDETAILSERVICE () -> A998OK := EXECBLOCK("F998NROK",.F.,.F.,{OJPARAMS['FORMASPAGO'],OJPARAMS['TITULOS'],OJPARAMS['ENCABEZADO']})
SAVE-RECEIPT.SERVICE.TLPP - GETSAVERECEIPTDETAILSERVICE () -> EXECBLOCK('F998NRG2',.F.,.F.)
SCHEDCOMCOL.PRW - MSGTOTCOL() -> CEXECBLOCK:= "EVCOL"+SUBSTR(CEVENTID,1,3)
SCHEDCOMCOL.PRW - MSGTOTCOL() -> CRETMSG := EXECBLOCK(CEXECBLOCK,.F.,.F.,{ADADOS,CRETMSG})
SCRFIS.PRW - SCRFIS()() -> SFORMAPAGTO := EXECBLOCK('LJ220PAG')
SEFII.PRW - REGHP7() -> CALIBLH := EXECBLOCK("SPEDALTH",.F.,.F.,{STOD(CARQUIVO),''})
SERASA.PRX - SERASASIMP() -> LRET01 := EXECBLOCK("SERASA01",.F.,.F.,{"SE1"})
SERASA.PRX - SERASASIMP() -> LRET01 := EXECBLOCK("SERASA01",.F.,.F.,{CALIASSE1})
SFCA314.PRW - AUTO681() -> LRET := EXECBLOCK("SF314EX681",.F.,.F.,{OMODELCYV})
SFCA314.PRW - SFCA314CON() -> NQUANT := EXECBLOCK(CYB->CYB_DSFUEY,.F.,.F., {NINI, NFIM})
SFPR101.PRG - INITSYNC() -> EXECBLOCK("SFAPR003", .F., .F.,{NRESULT,LEMP})
SFPR101.PRG - INITSYNC() -> LSYNC := EXECBLOCK("SFAPR002", .F., .F.)
SFPV001.PRG - INITPV() -> EXECBLOCK("SFAPV007", .F., .F., {OCAB, ACABPED, AOBJ, AITEPED})
SFPV001.PRG - INITPV() -> LRET := EXECBLOCK("SFAPV016", .F., .F., {AITEPED, @NITEPED, ACOLITE, ACABPED, AOBJ, CMANTES, CMANPRC, CBLOQPRC, CPRODUPL, APRDPREFIX, LVISUAL, ODET, OOBJ})
SFPV003.PRG - PVGETITQTD() -> LVRFITEM := EXECBLOCK("SFAPV022", .F., .F., {ACOLITE,ACABPED,AOBJITE})
SFPV004.PRG - PVTROCATAB() -> EXECBLOCK("SFAPV008", .F., .F., {ACABPED, AOBJ})
SFPV004.PRG - PVTROCATAB() -> LVRFITEM := EXECBLOCK("SFAPV016", .F., .F., {ACABPED,AOBJ})
SFPV004.PRG - PVTROCATRA() -> EXECBLOCK("SFAPV009", .F., .F., {ACABPED, AOBJ})
SFPV007.PRG - INITPV2() -> EXECBLOCK("SFAPV005", .F., .F., {ODLG, OFLDPROD, AOBJ[3], ACOLITE})
SFPV007.PRG - INITPV2() -> EXECBLOCK("SFAPV007", .F., .F., {OCAB, ACABPED, AOBJ, OFLDPROD, AITEPED, APRDPREFIX, NTOP, ODLG})
SFPV008.PRG - PVLISTARPROD() -> EXECBLOCK("SFAPV101", .F., .F., {APRODUTO, AOBJ})
SFPV009.PRG - PVCALCDESC() -> EXECBLOCK("SFAPV104", .F., .F., {AOBJITE, ACABPED, ACOLITE})
SFPV009.PRG - PVCALCDESC() -> LVRFITEM := EXECBLOCK("SFAPV021", .F., .F., {ACOLITE,AOBJITE,ACABPED})
SFPV009.PRG - PVEXIBE() -> EXECBLOCK("SFAPV103", .F., .F., {AOBJ, ACOLITE, ACABPED, AITEPED})
SFPV009.PRG - PVVALIDAPRC() -> LVRFITEM := EXECBLOCK("SFAPV011", .F., .F., {OGETPRC,ACOLITE,ACABPED})
SFPV101.PRG - PVEXCITE() -> EXECBLOCK("SFAPV018", .F., .F., {ACABPED, AITEPED, AOBJ})
SFPV101.PRG - PVVRFITE() -> LVRFITEM := EXECBLOCK("SFAPV006", .F., .F., {ACOLITE,ACABPED,AOBJITE})
SFPV102.PRG - PVGRAVARPED() -> LVRFITEM := EXECBLOCK("SFAPV013", .F., .F., {ACABPED,AITEPED,ACOLITE,CCONDINT,CSFAIND, CSFAFPG})
SFPV103.PRG - PVFECHA() -> EXECBLOCK("SFAPV020", .F., .F., {NOPERACAO,ACABPED})
SFPV107.PRG - PVPREPPED() -> EXECBLOCK("SFAPV102", .F., .F., {ACABPED,AITEPED,ACOND,ATAB,ACOLITE,LRESTAURA})
SFVN003.PRG - INITSALE() -> EXECBLOCK("SFAVN002", .F., .F., {AULTPED, OBRWULTPED, OULTPED, OCOL, NCOLULPED,OBTNGERAPED })
SFVN102.PRG - PVEXCPED() -> IF !EXECBLOCK("SFAPV019", .F., .F., {APEDIDO,CNUMPED})
SGAA010.PRX - SG010PRO() -> ABUTTONS := EXECBLOCK( "SGAA0101", .F., .F. )
SGAA100.PRX - SG100BAR() -> EXECBLOCK("SGAA1001",.F.,.F.)
SGAA100.PRX - SG100BEM() -> EXECBLOCK("SGAA1003",.F.,.F.)
SGAA100.PRX - SG100GRAVA() -> EXECBLOCK("SGAA1002",.F.,.F.)
SGAR200.PRX - RELATWORD() -> EXECBLOCK('SGAR2002',.F.,.F.)
SGAR210.PRX - RELATWORD() -> EXECBLOCK('SGAR2102',.F.,.F.)
SIGACUS.PRW - ARETBENEF() -> EXECBLOCK("NFRETBEN",.F.,.F.,{CA100FOR,CLOJA,CNUMOP,NQTDPROD,CTIPENT})
SIGACUS.PRW - F4LOTE() -> AHEADERF4 := RETEXECBLOCK("F4LOTEHEADER", {CPROG, LSLOTE, AHEADERF4}, "A", AHEADERF4)
SIGACUS.PRW - F4LOTE() -> ARETPE:= EXECBLOCK("F4LOTIND",.F.,.F.,{AARRAYF4})
SIGACUS.PRW - F4LOTE() -> LMTF4LOTE := EXECBLOCK("MTF4LOTE",.F.,.F.,{CPROG})
SIGACUS.PRW - F4LOTEARRAY() -> IF (VALTYPE(ARET := EXECBLOCK("F4LOTEARRAY",.F.,.F.,{CPROG, LSLOTE, CALIAS, CALIASTOP, AARRAY}))) == "A"
SIGACUS.PRW - F4NFORI() -> CFILTRAQRY:=EXECBLOCK('F4NFORI',.F.,.F.,{"SD1",CPROGRAMA,CCLIFOR,CLOJA})
SIGACUS.PRW - F4NFORI() -> CFILTRAQRY:=EXECBLOCK('F4NFORI',.F.,.F.,{"SD2",CPROGRAMA,CCLIFOR,CLOJA})
SIGACUS.PRW - MATEXPLRQ() -> NVI += EXECBLOCK('MATINFVL',.F.,.F.,{(CALIASREQ)->D3_COD,CMES,CANO,CTBPROC})
SIGACUS.PRW - MATFILCALC() -> AFILSCALC := IF(VALTYPE(ARETPE := EXECBLOCK('MTFILCAL',.F.,.F.,{AFILSCALC})) == "A",ARETPE,AFILSCALC)
SIGACUS.PRW - RCPE_CODFASE() -> CNEWCODFASE := EXECBLOCK("RCPEP3R3",.F.,.F.,{CCODFASE,SG1->G1_COD,SG1->G1_COMP})
SIGACUS.PRW - RCPE_GRAVA() -> AH260EXT := EXECBLOCK("RCPEP3R0",.F.,.F.,{(CALIASQRY)->D3_FILIAL,(CALIASQRY)->D3_OP,(CALIASQRY)->D3_COD})
SIGACUS.PRW - RCPE_TPINF() -> CNEWIND_OPE := EXECBLOCK("RCPEP3R1",.F.,.F.,{CTABELA,CALIASQRY,CIND_OPE})
SIGACUS.PRW - RCPE_TPMOV() -> CNEWTIPO_MOV := EXECBLOCK("RCPEP3R2",.F.,.F.,{CTABELA,CALIASQRY,CTIPO_MOV})
SIGACUSA.PRX - A100SEGUM() -> LRET := EXECBLOCK('A100SEGCPO', .F., .F., AHEADER[NX][2])
SIGACUSA.PRX - APRMODREC() -> CRET := EXECBLOCK("MTAREMOD",.F.,.F.,{CRECURSO})
SIGACUSA.PRX - B2ATUCOMD1() -> EXECBLOCK("MTAB2D1",.F.,.F.,{SD1->D1_COD, SD1->D1_LOCAL, NMULTIPLIC})
SIGACUSA.PRX - B2ATUCOMD1() -> EXECBLOCK("MTAB2D1R",.F.,.F.,{SD1->D1_COD, SD1->D1_LOCAL, NMULTIPLIC})
SIGACUSA.PRX - B2ATUCOMD1() -> NSALDOSB2 := EXECBLOCK('MTAATUD1',.F.,.F.)
SIGACUSA.PRX - B2ATUCOMD2() -> EXECBLOCK("MTAB2D2",.F.,.F.,{SD2->D2_COD, SD2->D2_LOCAL, NMULTIPLIC})
SIGACUSA.PRX - B2ATUCOMD2() -> EXECBLOCK("MTAB2D2R",.F.,.F.,{SD2->D2_COD, SD2->D2_LOCAL, NMULTIPLIC})
SIGACUSA.PRX - B2ATUCOMD2() -> NSALDOSB2 := EXECBLOCK('MTAATUD2',.F.,.F.)
SIGACUSA.PRX - B2ATUCOMD3() -> EXECBLOCK("MTAB2D3",.F.,.F.,{SD3->D3_COD, CLOCAL, NMULTIPLIC})
SIGACUSA.PRX - B2ATUCOMD3() -> EXECBLOCK("MTAB2D3R",.F.,.F.,{SD3->D3_COD, SD3->D3_LOCAL, NMULTIPLIC})
SIGACUSA.PRX - B2ATUCOMD3() -> NSALDOSB2 := EXECBLOCK('MTAATUD3',.F.,.F.)
SIGACUSA.PRX - CRIALOTE() -> EXECBLOCK("MTGRVLOT",.F.,.F.)
SIGACUSA.PRX - CRIALOTE() -> EXECBLOCK('FICRIALO', .F., .F.)
SIGACUSA.PRX - CRIALOTE2() -> EXECBLOCK('FICRIALO', .F., .F.)
SIGACUSA.PRX - CRIALOTE2() -> EXECBLOCK('MTGRVLOT', .F., .F.)
SIGACUSA.PRX - DIGIPERDA() -> EXECBLOCK("MTDGPERD",.F.,.F.,{CPRODUTO,CNUMOP,NQTD})
SIGACUSA.PRX - EXPLESTR() -> AUSRVLESTR := EXECBLOCK("USRVLESTR",.F.,.F.,{CCODIGO,CCOMPONENTE,CTRT})
SIGACUSA.PRX - EXPLESTR() -> LEMPREVVAZ := IIF(LEMPREVVAZ == NIL, EXISTBLOCK("EMPREVVAZ") .AND. EXECBLOCK('EMPREVVAZ',.F.,.F.), LEMPREVVAZ)
SIGACUSA.PRX - EXPLESTR() -> NALTPER:=EXECBLOCK('MQTBASEST', .F., .F., {NQBASE})
SIGACUSA.PRX - EXPLESTR() -> NALTPER:=EXECBLOCK('MQTDESTR', .F., .F., {NQUANT,NQUANTITEM,LOK,NMOTIVO,COPCARQ,COPCIONAIS})
SIGACUSA.PRX - GERAQUALITY() -> LQUALYCQ := EXECBLOCK("MA260NFQ",.F.,.F.)
SIGACUSA.PRX - GRAVACUSCP() -> (LA330D1CP .AND. CALIASATU == "SD1" .AND. EXECBLOCK("A330D1CP",.F.,.F.))
SIGACUSA.PRX - GRAVACUSCP() -> IF(LA330E6CP .AND. CALIASATU == "SD3" .AND. EXECBLOCK("A330E6CP",.F.,.F.) .AND. ALLTRIM((CALIASATU)->D3_CF) $ "DE6/RE6") .OR. ;
SIGACUSA.PRX - GRAVASBC() -> CMAY:=EXECBLOCK("SBCDOCT",.F.,.F.,{CDOCTO})
SIGACUSA.PRX - GRAVASBC() -> EXECBLOCK("SBCINCL",.F.,.F.)
SIGACUSA.PRX - GRAVASD5() -> EXECBLOCK("MTGRVSD5",.F.,.F.,{CALIAS,CPRODUTO,CLOCAL,CLOTECTL,CNUMLOTE,COP,DDTVALID,IIF(TYPE("L250")=="L",L250,.F.)})
SIGACUSA.PRX - LOGMOV() -> EXECBLOCK('LOGMOV', .F., .F., {CLOGFILE, CPRODUTO, {NSALDOSB2, NSALDOSB8, NSALDOSBF}, NQUANTMOV, NQUANTSDA , NQUANTSD5, NQUANTSDB})
SIGACUSA.PRX - MOVLOTE() -> LNUMSERDEV := EXECBLOCK("SD3NSDV",.F.,.F.) .AND. CTM > '500'
SIGACUSA.PRX - MSGRAVAD3() -> EXECBLOCK("MSGRVD3",.F.,.F.)
SIGACUSA.PRX - MSGRAVAD3() -> EXECBLOCK('QIEA210T', .F., .F., {'EST'})
SIGACUSA.PRX - NEXTLOTE() -> CRET:=EXECBLOCK("XPROXLOT",.F.,.F.,{CNUMLOTE})
SIGACUSA.PRX - PEGACMDEV() -> ACUSTOBLOCK:=EXECBLOCK("MTCNFDV",.F.,.F.,{LCUSFIFO,IF(LCUSFIFO,ACUSTOFF,ACUSTO),CNFORI+CSERIORI})
SIGACUSA.PRX - PEGACMDEV() -> ACUSTOBLOCK:=EXECBLOCK("MTCNFDVP",.F.,.F.,{ARETPARTES,CNFORI+CSERIORI})
SIGACUSA.PRX - PERDALINOK() -> LRET:=EXECBLOCK('MT685LOK', .F., .F., {LRET})
SIGACUSA.PRX - PERDATUDOK() -> LRETORNA := EXECBLOCK(CBLOCK,.F.,.F.)
SIGACUSA.PRX - PROXNUM() -> CNUMSEQ := EXECBLOCK("XPROXNUM",.F.,.F.)
SIGACUSA.PRX - PROXNUM() -> EXECBLOCK("FPROXNUM",.F.,.F.,CNUMSEQ)
SIGACUSA.PRX - RASTRO() -> LRETPE:= EXECBLOCK("TESTLOT",.F.,.F.)
SIGACUSA.PRX - RETCUSENT() -> AMOEDDECS := EXECBLOCK('MTARETDC',.F.,.F.)
SIGACUSA.PRX - TMSF3ARRAY() -> ACOORDPE := EXECBLOCK( "TMSWNDF3", .F., .F.,{ACOORDWND, ACOORDOBJ} )
SIGACUSA.PRX - _PROXNUM() -> CNUMSEQ := EXECBLOCK("XPROXNUM",.F.,.F.)
SIGACUSA.PRX - _PROXNUM() -> EXECBLOCK("FPROXNUM",.F.,.F.,CNUMSEQ)
SIGACUSB.PRX - A100DISTRI() -> LRETPE := EXECBLOCK('A100DIST', .F., .F., {CCOD, CLOCAL})
SIGACUSB.PRX - A650REPLD4() -> EXECBLOCK("MTAGRSD4",.F.,.F.)
SIGACUSB.PRX - AVALBLQLOC() -> ARET := EXECBLOCK('AVALBLOQ',.F.,.F.,{CTPBLQPRO,CTPBLQTER})
SIGACUSB.PRX - AVALBLQLOC() -> URET := EXECBLOCK('AVALREGR',.F.,.F.,{CCODORIG,CLOCORIG,CTESORIG,LHELP,CCODDEST,CLOCDEST,CTESDEST,CFILORIG,CFILDEST,COP})
SIGACUSB.PRX - AVALBLQLOC() -> URET := EXECBLOCK('AVALREGR',.F.,.F.,{CCODORIG,CLOCORIG,CTESORIG,LHELP,CCODDEST,CLOCDEST,CTESDEST,CFILORIG,CFILDEST})
SIGACUSB.PRX - BLOQDATA() -> CCONDPE := EXECBLOCK('MTDTLOT', .F., .F., CCONDBLOQ)
SIGACUSB.PRX - BLOQDATA() -> LRETPE := EXECBLOCK( "MTBLQLOT", .F., .F., {NRECSB8} )
SIGACUSB.PRX - CONVUM() -> NVALPE:=EXECBLOCK("CONVUM",.F.,.F.,{NQTD1,NQTD2,NUNID,NBACK})
SIGACUSB.PRX - CRIASDA() -> EXECBLOCK("MTGRVSDA",.F.,.F.,{CALIAS})
SIGACUSB.PRX - CRIASDB() -> CQUERYPE := EXECBLOCK('WMSAGLU', .F., .F., {NTIPOAGLUT, CORIGEM, CCARGA})
SIGACUSB.PRX - CRIASDB() -> EXECBLOCK('CRIASDBD', .F., .F., SDB->(RECNO()))
SIGACUSB.PRX - F4LOCALIZ() -> AARRAYAUX := EXECBLOCK('MTF4LOC', .F., .F., {AARRAYF4})
SIGACUSB.PRX - F4LOCALIZ() -> ADELARRF4 := EXECBLOCK("MTVLDLOC",.F.,.F.,ACLONE(AARRAYF4))
SIGACUSB.PRX - FGERACQ0() -> EXECBLOCK("FGERACQ0",.F.,.F.)
SIGACUSB.PRX - FGRAVACQ() -> EXECBLOCK("QIMPSKD7",.F.,.F.)
SIGACUSB.PRX - FGRAVACQ() -> URET := EXECBLOCK('MTMEMOCQ')
SIGACUSB.PRX - GETNUMSC2() -> XNUMOP := EXECBLOCK("MTNUMSC2",.F.,.F.,CNUMOP)
SIGACUSB.PRX - GRAVAB8EMP() -> EXECBLOCK("MTGRVLOT",.F.,.F.,{CSINAL,NQUANT,CTPOP,LPEDIDO,NQUANT2})
SIGACUSB.PRX - GRAVAEMP() -> ACAMPOEMP := EXECBLOCK("MTALTEMP",.F.,.F.,{CPRODUTO,CLOCAL,NQTD,NQTD2UM,CLOTECTL,CNUMLOTE,CLOCALIZA,CNUMSERIE,COP,CTRT,CPEDIDO,CITEM,CORIGEM,LESTORNO,ASALVCOLS,NSG1})
SIGACUSB.PRX - GRAVAEMP() -> EXECBLOCK("MTGRVEMP",.F.,.F.,{CPRODUTO,CLOCAL,NQTD,NQTD2UM,CLOTECTL,CNUMLOTE,CLOCALIZA,CNUMSERIE,COP,CTRT,CPEDIDO,CITEM,CORIGEM,LESTORNO,ASALVCOLS,NSG1})
SIGACUSB.PRX - GRAVASBF() -> EXECBLOCK("ATUSBF",.F.,.F.,{NMULTIPLIC,LNEWREG,LBAIXAEMP})
SIGACUSB.PRX - GRAVASC7() -> EXECBLOCK("GRVSC7",.F.,.F.)
SIGACUSB.PRX - LOCALIZA() -> LRET := EXECBLOCK("TESTLOC",.F.,.F.,{LRET})
SIGACUSB.PRX - MARKOPC() -> AOPCRET := EXECBLOCK("MTOPCADD",.F.,.F.,{AOPCIONAIS})
SIGACUSB.PRX - MARKOPC() -> AREGS := EXECBLOCK('ADDOPC',.F.,.F.,{AREGS,CPRODANT,COPCIONAIS})
SIGACUSB.PRX - MARKOPC() -> LRET := EXECBLOCK('SELEOPC',.F.,.F.,{LPREESTR,CREVISAO})
SIGACUSB.PRX - MARKOPC() -> LRETOPI:=EXECBLOCK("MTGEROPI",.F.,.F.)
SIGACUSB.PRX - PROCSDD() -> EXECBLOCK("MPROCSDD",.F.,.F.,{LLIBERA})
SIGACUSB.PRX - RETARQPROD() -> URET := EXECBLOCK("ARQPROD",.F.,.F.,{CCODPRO,LRET})
SIGACUSB.PRX - SB8SALDO() -> LUTILIZA:= EXECBLOCK("MTSLDLOT",.F.,.F.,{(CALIASSB8)->B8_PRODUTO,;
SIGACUSB.PRX - SLDPORLOTE() -> AQTDRDMAKE:=EXECBLOCK("MTRETLOT",.F.,.F.,{CCODPRO,CLOCAL,NQTD,NQTD2UM,NEMPENHO,NEMPENHO2,(CALIASSB8)->B8_LOTECTL,(CALIASSB8)->B8_NUMLOTE,NIL,NIL})
SIGACUSB.PRX - SLDPORLOTE() -> AQTDRDMAKE:=EXECBLOCK("MTRETLOT",.F.,.F.,{CCODPRO,CLOCAL,NQTD,NQTD2UM,NEMPENHO,NEMPENHO2,(CALIASSBF)->BF_LOTECTL,(CALIASSBF)->BF_NUMLOTE,(CALIASSBF)->BF_LOCALIZ,(CALIASSBF)->BF_NUMSERI})
SIGACUSB.PRX - SLDPORLOTE() -> AQTDRDMAKE:=EXECBLOCK("MTRETLOT",.F.,.F.,{CCODPRO,CLOCAL,NQTD,NQTD2UM,NEMPENHO,NEMPENHO2,NIL,NIL,(CALIASSBF)->BF_LOCALIZ,(CALIASSBF)->BF_NUMSERI})
SIGACUSB.PRX - SLDPORLOTE() -> CORDBKP := EXECBLOCK("MTSLDORD",.F.,.F.,{CLOTECTL,CNUMLOTE,CCODPRO,CLOCAL,CLOCALATE})
SIGACUSB.PRX - SLDPORLOTE() -> LUTILIZA:= EXECBLOCK("MTSLDLOT",.F.,.F.,{(CALIASSB8)->B8_PRODUTO,;
SIGACUSB.PRX - SLDPORLOTE() -> LUTILIZA:= EXECBLOCK("MTSLDLOT",.F.,.F.,{(CALIASSBF)->BF_PRODUTO,;
SIGACUSB.PRX - TRFSLDPODER3() -> ARETPE := EXECBLOCK("MTP3NFE",.F.,.F.,{ASLDLOTE})
SIGACUSB.PRX - TRFSLDPODER3() -> ARETPE := EXECBLOCK("MTP3NFS",.F.,.F.,{ASLDLOTE})
SIGACUSB.PRX - VLDLOCALIZ() -> LRETPE := EXECBLOCK('VLDENDFA', .F., .F., {LRET, CPROG})
SIGXTEL.PRW - SGBUTTON() -> LINCNEW := EXECBLOCK("TKMNGCL",.F.,.F.,{CCLIENTE,CLOJA,CCODCONT,CENTALIAS, OHASHDIC, LINCNEW} )
SIGXTEL.PRW - SGCHECKUSER() -> LRET := EXECBLOCK( 'TKVALUSER', .F., .F., {} )
SIGXTEL.PRW - SGDIRRX() -> CRET := EXECBLOCK( 'TMKRX', .F., .F., {} )
SIGXTEL.PRW - SGDIRTX() -> CRET := EXECBLOCK( 'TMKTX', .F., .F., {} )
SIGXTEL.PRW - SGMANAGER() -> LINCNEW := EXECBLOCK("TKTLSVC",.F.,.F.,{CCODCONT, CENTALIAS, CCLIENTE+CLOJA, OHASHDIC, LINCNEW})
SIGXTEL.PRW - SGMNUATIVO() -> LRET :=EXECBLOCK("TK380LM",.F.,.F.,{CENTIDA, CCHAVE, CCONTATO, CTEL, CTIPOCTI})
SPEDCTE.PRX - CREATEDACTE() -> EXECBLOCK("RTMSR35",.F.,.F., {CPATH, CFILDOC, CDOC, CSERIE, CCHAVE})
SPEDFISCAL.PRW - AP1900ICM() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {"SB1","1923"})
SPEDFISCAL.PRW - C140C141() -> APARCTIT := EXECBLOCK("SPDFIS09", .F., .F.,{CENTSAI,{ACMPANTSFT[1],ACMPANTSFT[2],ACMPANTSFT[3],ACMPANTSFT[4],ACMPANTSFT[27]}})
SPEDFISCAL.PRW - C195C197() -> ASPDINFO:=EXECBLOCK("SPDPINFO",.F.,.F.,{ACMPANTSFT[1],;
SPEDFISCAL.PRW - D161D162() -> ARETPE := EXECBLOCK("SPEDRTMS",.F.,.F.,{NPOS,"D161",CALIASSFT,ACMPANTSFT})
SPEDFISCAL.PRW - D161D162() -> ARETPE := EXECBLOCK("SPEDRTMS",.F.,.F.,{NPOS,"D162",CALIASSFT,ACMPANTSFT})
SPEDFISCAL.PRW - GRREG1600() -> APE1600 :=EXECBLOCK("SPDFIS10", .F., .F., {DDATADE,DDATAATE})
SPEDFISCAL.PRW - GRREG1601() -> APE1601 :=EXECBLOCK("SPED1601", .F., .F., {DDATADE,DDATAATE})
SPEDFISCAL.PRW - LJNAOTRIB() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {"SD2","C425"})
SPEDFISCAL.PRW - LJNAOTRIB() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {"SFT","C425"})
SPEDFISCAL.PRW - REG0005 () -> CRETPE := EXECBLOCK("SPEDFANT",.F.,.F.)
SPEDFISCAL.PRW - REG1100SPD() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {CALIASQRY,"1105"})
SPEDFISCAL.PRW - REG1100SPD() -> ASPDFIS02 := EXECBLOCK("SPDFIS02", .F., .F., {CALIASQRY,(CALIASQRY)->FT_TIPOMOV,"1105"})
SPEDFISCAL.PRW - REG1100SPD() -> CUNID := EXECBLOCK("SPDFIS02", .F., .F., {CALIASQRY,(CALIASQRY)->FT_TIPOMOV,"1105"})
SPEDFISCAL.PRW - REG1105AV() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {"SPED1105","1105"})
SPEDFISCAL.PRW - REG1105AV() -> ASPDFIS02 := EXECBLOCK("SPDFIS02", .F., .F., {"SPED1105","S","1105"})
SPEDFISCAL.PRW - REG1105AV() -> CUNID := EXECBLOCK("SPDFIS02", .F., .F., {"SPED1105","S","1105"})
SPEDFISCAL.PRW - REGC100() -> ASPEDC100 := EXECBLOCK("SPDFIS05",.F.,.F.,{"SFT",ACMPANTSFT,AREGC100})
SPEDFISCAL.PRW - REGC170() -> AREGC170[NPOS][4] := EXECBLOCK("SPDFIS04", .F., .F., {(CALIASSFT)->FT_FILIAL,;
SPEDFISCAL.PRW - REGC425() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {"SFT","C425"})
SPEDFISCAL.PRW - REGC425() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {CTEMP,"C425"})
SPEDFISCAL.PRW - REGC460470() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {"SB1","C470"})
SPEDFISCAL.PRW - REGC495() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {"SFT","C495"})
SPEDFISCAL.PRW - REGD100() -> ARETPE := EXECBLOCK("SPEDRTMS",.F.,.F.,{NPOS,"D100",CALIASSFT,ACMPANTSFT})
SPEDFISCAL.PRW - REGD100() -> CRETPE := EXECBLOCK("SPEDR450", .F., .F., {CCODINF})
SPEDFISCAL.PRW - REGD110() -> ARETPE := EXECBLOCK("SPEDRTMS",.F.,.F.,{NPOS,"D110",CALIASSFT,ACMPANTSFT})
SPEDFISCAL.PRW - REGD120() -> ARETPE := EXECBLOCK("SPEDRTMS",.F.,.F.,{NPOS,"D120",CALIASSFT,ACMPANTSFT})
SPEDFISCAL.PRW - REGD130() -> ARETPE := EXECBLOCK("SPEDRTMS",.F.,.F.,{NPOS,"D130",CALIASSFT,ACMPANTSFT})
SPEDFISCAL.PRW - REGD140() -> ARETPE := EXECBLOCK("SPEDRTMS",.F.,.F.,{NPOS,"D140",CALIASSFT,ACMPANTSFT})
SPEDFISCAL.PRW - REGD150() -> ARETPE := EXECBLOCK("SPEDRTMS",.F.,.F.,{NPOS,"D150",CALIASSFT,ACMPANTSFT})
SPEDFISCAL.PRW - REGD160() -> ARETPE := EXECBLOCK("SPEDRTMS",.F.,.F.,{NPOS,"D160",CALIASSFT,ACMPANTSFT})
SPEDFISCAL.PRW - REGD190() -> ARETPE := EXECBLOCK("SPEDRTMS",.F.,.F.,{NPOS,"D190",CALIASSFT,ACMPANTSFT})
SPEDFISCAL.PRW - REGD190() -> CRETPE := EXECBLOCK("SPEDR460",.F.,.F.,{CCODOBS})
SPEDFISCAL.PRW - RETCOD_CTA() -> CCOD_CTA := EXECBLOCK("SPDFIS27", .F., .F., {CREG,;
SPEDFISCAL.PRW - SFRG0200() -> ASPDFIS02 := EXECBLOCK("SPDFIS02", .F., .F., {CALIASSFT,(CALIASSFT)->FT_TIPOMOV,"0220"})
SPEDFISCAL.PRW - SFRG0200() -> ASPED0205 := EXECBLOCK("SPED0205", .F., .F., {DDATADE,DDATAATE,SUBSTR(CPROD,1,TAMSX3("B1_COD")[1])})
SPEDFISCAL.PRW - SFRG0200() -> ATIPO := EXECBLOCK("SPDFIS001", .F., .F., {ATIPO,CALIASSB1})
SPEDFISCAL.PRW - SPDAPICMS() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {"SB1","E113"})
SPEDFISCAL.PRW - SPDBLOCOH() -> APEH020 := EXECBLOCK("SPEDH020", .F., .F., {AREGH010[NPOS][3], CMOTINV})
SPEDFISCAL.PRW - SPDBLOCOH() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {"SB1","H010",CUNID})
SPEDFISCAL.PRW - SPDBLOCOH() -> ASPDFIS02 := EXECBLOCK("SPDFIS02", .F., .F., {CALIBLH,,"H010"})
SPEDFISCAL.PRW - SPDBLOCOH() -> CALIBLH := EXECBLOCK("SPEDALTH",.F.,.F.,{DDATAFEC,CMOTINV})
SPEDFISCAL.PRW - SPDBLOCOH() -> CCODCTAH010 := EXECBLOCK("SPDFIS07", .F., .F., {CPROD,CSITUACAO,''})
SPEDFISCAL.PRW - SPDBLOCOH() -> CUNID := EXECBLOCK("SPDFIS02", .F., .F., {CALIBLH,,"H010"})
SPEDFISCAL.PRW - SPDREG1110() -> ASPDFIS02 := EXECBLOCK("SPDFIS02", .F., .F., {"SD2","S"})
SPEDFISCAL.PRW - SPDREG1110() -> CUNID := EXECBLOCK("SPDFIS02", .F., .F., {"SD2","S"})
SPEDFISCAL.PRW - SPEDFISCAL, TRATAMENTO PARA RPC() -> AAUX0200 := EXECBLOCK("SPED1300", .F., .F., {CALIAS,DDATADE,DDATAATE,AREG0200,AREG0190})
SPEDFISCAL.PRW - SPEDFISCAL, TRATAMENTO PARA RPC() -> AAUX0200 := EXECBLOCK("SPED1390", .F., .F., {CALIAS,DDATADE,DDATAATE,AREG0200,AREG0190})
SPEDFISCAL.PRW - SPEDFISCAL, TRATAMENTO PARA RPC() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {CALIASSFT,"1105"})
SPEDFISCAL.PRW - SPEDFISCAL, TRATAMENTO PARA RPC() -> AREG1400 := EXECBLOCK("SPED1400",.F.,.F.,{DDATADE,DDATAATE,CFILDE,CFILATE,ALISFIL,AREG1400})
SPEDFISCAL.PRW - SPEDFISCAL, TRATAMENTO PARA RPC() -> ARETPART := EXECBLOCK("SPEDPTMS",.F.,.F.,{CALIASSFT,ACMPANTSFT})
SPEDFISCAL.PRW - SPEDFISCAL, TRATAMENTO PARA RPC() -> ASPDFIS02 := EXECBLOCK("SPDFIS02", .F., .F., { IIF(!LTOP,CALSSD,CALIASSFT) , (CALIASSFT)->FT_TIPOMOV})
SPEDFISCAL.PRW - SPEDFISCAL, TRATAMENTO PARA RPC() -> ASPDINFC:=EXECBLOCK("SPDPISIC",.F.,.F.,{ACMPANTSFT[1],;
SPEDFISCAL.PRW - SPEDFISCAL, TRATAMENTO PARA RPC() -> CUNID := EXECBLOCK("SPDFIS02", .F., .F., { IIF(!LTOP,CALSSD,CALIASSFT) , (CALIASSFT)->FT_TIPOMOV })
SPEDFISCAL.PRW - SPEDFISCAL, TRATAMENTO PARA RPC() -> EXECBLOCK("SPEDREGD", .F., .F., {CALIAS,ALISFIL})
SPEDFISCAL.PRW - SPEDSERIE() -> CNOVSERIE := EXECBLOCK("SPDFIS11", .F., .F., {CSERIE,CMODELO})
SPEDMANIFE.PRW - BAIXAZIP() -> CRETMDEFIL := EXECBLOCK("MDEEXPFIL",.F.,.F.,{CWHERE})
SPEDMANIFE.PRW - MANIFEST() -> AITENSCB := EXECBLOCK("MANIOPCEVT",.F.,.F.,{ACLONE(AITENSCB)})
SPEDMANIFE.PRW - MARKBR() -> AROTINA := EXECBLOCK("MDEMENU", .F., .F.,{AROTINA})
SPEDMANIFE.PRW - MONTAXMLMANIF() -> CRETPE := EXECBLOCK("MANIEVEN",.F.,.F.,{CTPEVENTO,AMONTXML[NX][2]})
SPEDMANIFE.PRW - SINCATUDADOS() -> EXECBLOCK("MANIGRV",.F.,.F.,{SUBSTR(CCHAVE,23,3),SUBSTR(CCHAVE,26,9),CCHAVE,CSITCONF})
SPEDMDFE.PRW - ATUSF2() -> EXECBLOCK("TRBMDFE",.F.,.F.,{NOPC,CSERMDF,CNUMMDF})
SPEDMDFE.PRW - DELMDFSF2() -> EXECBLOCK("TRBMDFE",.F.,.F.,{NOPC,CSERMDF,CNUMMDF})
SPEDMDFE.PRW - DFESETMUNNF() -> CCODMUN := EXECBLOCK("MDFEMUN", .F., .F.,{CENTSAI,CSERNOTA,CDOCNOTA,CCLINOTA,CLOJANOTA})
SPEDMDFE.PRW - LOADTRB() -> CQUERY := EXECBLOCK("MDSQLSF1", .F., .F.,{CQUERY})
SPEDMDFE.PRW - LOADTRB() -> CQUERY := EXECBLOCK("MDSQLSF2", .F., .F.,{CQUERY})
SPEDMDFE.PRW - MDFEBUT() -> ABUTTONS := EXECBLOCK("MDFEBUT", .F., .F., {ABUTTONS} )
SPEDMDFE.PRW - MDFENEWREC() -> LVLDOK := EXECBLOCK("MDFEOK",.F.,.F.,{NOPC,CUFCARR,CUFDESC,CVEICULO,CPOSTER})
SPEDMDFE.PRW - SETMUNFORNF() -> CCODMUN := EXECBLOCK("MDFEMUN", .F., .F.,{CENTSAI,TRB->TRB_SERIE,TRB->TRB_DOC,TRB->TRB_CODCLI,TRB->TRB_LOJCLI})
SPEDMDFE.PRW - UPDCC0() -> EXECBLOCK("MDFEEVTLOG", .F., .F. , { APELOG[2], GETDESCEVEN(,,APELOG[2]), APELOG[3] })
SPEDNFE.PRX - JOBNFECAN() -> ANOTAS := EXECBLOCK("TRFNFECANC",.F.,.F.,{ANOTAS})
SPEDNFE.PRX - JOBNFECAN() -> EXECBLOCK("NFECANC01",.F.,.F.,{CIDENT, ANOTAS, CXJUST})
SPEDNFE.PRX - JOBNFECAN() -> OWS:OWSNFE:OWSNOTAS:OWSNFES[NY]:CXML := EXECBLOCK("FISCANNFE",.F.,.F.,{OWS:OWSNFE:OWSNOTAS:OWSNFES[NY]:CXML,ANOTAS[NX],ANOTAS[NX]})
SPEDNFE.PRX - JOBNSECAN() -> OWS:OWSNFE:OWSNOTAS:OWSNFES[NY]:CXML := EXECBLOCK("FISCANNFE",.F.,.F.,{OWS:OWSNFE:OWSNOTAS:OWSNFES[NY]:CXML,ANOTAS[NX],ANOTAS[NX] })
SPEDNFE.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("NFEMNUCC",.F.,.F.)
SPEDNFE.PRX - PROCINUT() -> LRET := EXECBLOCK("SPDVLDINUT",.F.,.F.,{APARAM[1],APARAM[2],APARAM[3],CMODELO, LAUTO})
SPEDNFE.PRX - SPEDDANFE() -> EXECBLOCK( "SPNFESETUP" , .F. , .F. , {ODANFE, OSETUP} )
SPEDNFE.PRX - SPEDINUT() -> OWS:OWSNFE:OWSNOTAS:OWSNFES[NY]:CXML := EXECBLOCK("FISINUNFE",.F.,.F.,{OWS:OWSNFE:OWSNOTAS:OWSNFES[NY]:CXML,STRZERO(VAL(CSERIE),3)+STRZERO(NX,9)})
SPEDNFE.PRX - SPEDNFE2() -> CCONDICAO := EXECBLOCK("FILSPEDNFE", .F., .F., {SUBSTR(MV_PAR01,1,1), CCONDICAO})
SPEDNFE.PRX - SPEDNFE2() -> CCONDICAO := EXECBLOCK("FISFILNFE",.F.,.F.)
SPEDNFE.PRX - SPEDNFETRF() -> AXML := EXECBLOCK("XMLCTE3",.F.,.F.,{ANOTAS[NX], CAMBIENTE, CVERSAO, CMODALIDADE, TZONEUTC(CIDENT)})
SPEDNFE.PRX - SPEDNFETRF() -> IF !EXECBLOCK("FISVALNFE",.F.,.F.,AVALNFE)
SPEDNFE.PRX - SPEDNFETRF() -> LRETVALTRF := EXECBLOCK("FISVALTRANS",.F.,.F.,{ANOTAS})
SPEDNFE.PRX - SPEDPEXP() -> EXECBLOCK("FISEXPNFE",.F.,.F.,{CXML})
SPEDNFE.PRX - SPEDPEXP() -> IF !EXECBLOCK("SPDNFE01",.F.,.F.,{AINFXML})
SPEDNFE.PRX - SPEDPEXP() -> IF !EXECBLOCK("SPDNFE01",.F.,.F.,{ORETORNO:OWSNOTAS:OWSNFES3[NX]})
SPEDNFE.PRX - TRANSCANC() -> OWS:OWSNFE:OWSNOTAS:OWSNFES[NY]:CXML := EXECBLOCK("FISCANNFE",.F.,.F.,{OWS:OWSNFE:OWSNOTAS:OWSNFES[NY]:CXML, ANOTAS2, ANOTAS[NX]})
SPEDNFE.PRX - XMLCOLESP() -> CXMLESP := EXECBLOCK("NFESPNEO",.F.,.F.,{CXML,CSERIE,CNOTA,CCLIENTE,CLOJA})
SPEDNFE.PRX - XMLREMESSA() -> EXECBLOCK("FISENVNFE",.F.,.F.,{OWS:OWSREMESSARESULT:OWSID:CSTRING})
SPEDXFUN.PRW - BLOCOK() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {AALIAS[0200],"0200"})
SPEDXFUN.PRW - BLOCOK() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {AALIAS[0210],"0200"})
SPEDXFUN.PRW - BLOCOK() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {AALIAS[K200],"K200"})
SPEDXFUN.PRW - BLOCOK() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {AALIAS[K230],"K230"})
SPEDXFUN.PRW - BLOCOK() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {AALIAS[K235],"K235"})
SPEDXFUN.PRW - BLOCOK() -> ARETPEBLCK := EXECBLOCK("SPDFISBLCK", .F., .F., {DDATADE,DDATAATE})
SPEDXFUN.PRW - BLOCOK() -> ASPDFIS02 := EXECBLOCK("SPDFIS02", .F., .F., {AALIAS[K200],,"K200"})
SPEDXFUN.PRW - BLOCOK() -> ASPDFIS02 := EXECBLOCK("SPDFIS02", .F., .F., {AALIAS[K230],,"K230"})
SPEDXFUN.PRW - BLOCOK() -> CUNID := EXECBLOCK("SPDFIS02", .F., .F., {AALIAS[K200],,"K200"})
SPEDXFUN.PRW - BLOCOK() -> CUNID := EXECBLOCK("SPDFIS02", .F., .F., {AALIAS[K230],,"K230"})
SPEDXFUN.PRW - SDPF150175() -> AREGAUX := EXECBLOCK( "SPED0150" , .F. , .F. , { AREG0150[NPOS] } )
SPEDXFUN.PRW - SPDFLJ0200() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {CQRYALIAS,CREG})
SPEDXFUN.PRW - SPDFRGC425() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {CQRYALIAS,"C425"})
SPEDXFUN.PRW - SPDFRGC425() -> ASPDFIS02 := EXECBLOCK("SPDFIS02", .F., .F., {(CQRYALIAS),"S"})
SPEDXFUN.PRW - SPDFRGC425() -> CUNID := EXECBLOCK("SPDFIS02", .F., .F., {(CQRYALIAS),"S"})
SPEDXFUN.PRW - SPDFRGC470() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {CQRYALIAS,"C470"})
SPEDXFUN.PRW - SPDG130140() -> APROD := EXECBLOCK("SPEDPROD", .F., .F., {"SFT","G140"})
SPEDXFUN.PRW - SPDG130140() -> ASPDFIS02 := EXECBLOCK("SPDFIS02", .F., .F., {"SFT",SFT->FT_TIPOMOV,"G140"})
SPEDXFUN.PRW - SPDG130140() -> CUNID := EXECBLOCK("SPDFIS02", .F., .F., {"SFT",SFT->FT_TIPOMOV,"G140"})
SPEDXFUN.PRW - SPDRETCCST() -> ARET := EXECBLOCK("SPDFIS03", .F., .F., {(CALIASSFT)->FT_FILIAL,;
SPEDXFUN.PRW - SPEDCOMPATF() -> ASPDFIS02 := EXECBLOCK("SPDFIS02", .F., .F., {"SFT",(CALIASSFT)->FT_TIPOMOV,"G140"})
SPEDXFUN.PRW - SPEDCOMPATF() -> CUNID := EXECBLOCK("SPDFIS02", .F., .F., {"SFT",(CALIASSFT)->FT_TIPOMOV,"G140"})
SPEDXFUN.PRW - SPEDFFILTRO() -> APEF500 := EXECBLOCK("SPDF500A", .F. , .F. , {CFROM,CWHERE})
SPEDXFUN.PRW - SPEDFFILTRO() -> APEF500 := EXECBLOCK("SPDF500C", .F. , .F. , {CFROM,CWHERE})
STBIMPORTSALE.PRW - STBIMPORTSALE() -> ASTIMPFIELD := EXECBLOCK( "STIMPFIELD", .F., .F.)
STBIMPORTSALE.PRW - STBIMPORTSALE() -> XSTIMPSALE := EXECBLOCK( "STIMPSALE",.F.,.F.,{ASL1,ASL2,ASL4})
STBIMPORTSALE.PRW - STBIMPSFLD() -> ASTIMPFIELD := EXECBLOCK( "STIMPFIELD",.F.,.F.)
STBIMPORTSALE.PRW - STBISL2REFRESH() -> ASTIMPFIELD := EXECBLOCK( "STIMPFIELD",.F.,.F.)
STBIMPORTSALE.PRW - STBUPDPRODUCTS() -> ARETPE := EXECBLOCK("STSELFIELD",.F.,.F.,{"SB1"})
STBPAYMENT.PRW - STBCONFPAY() -> CTEXTCRED := EXECBLOCK("SCRCRED", .F., .F. , APARAMS )
STBPAYMENT.PRW - STBCONFPAY() -> EXECBLOCK("STCONFREC",.F.,.F.,{OWFRECEIPT,APAYMENT})
STBPAYMENT.PRW - STBCONFPAY() -> EXECBLOCK("STFINISHSALE",.F.,.F.,;
STBPAYMENT.PRW - STBVALFORMPAY() -> LRET := EXECBLOCK("STVALFORMPAY",.F.,.F.,{CTIPOFORMA,NVALOR,NPARC})
STBSALESOPERATIONS.PRW - STBMENUDESKTOP() -> APEMENU := EXECBLOCK("STMENEDT",.F.,.F.,{ARET})
STICONFCASH.PRW - STICONFIRMCONFERENCE() -> EXECBLOCK("STFICFCX", .F., .F.)
STICUSTOMERSELECTION.PRW - STIFILCUSTOMERDATA() -> LRET := EXECBLOCK("STVALIDCLI",.F.,.F.,{SA1->A1_COD,SA1->A1_LOJA})
STIITEMREGISTER.PRW - STIITEMREGISTER() -> NLJ8099 := EXECBLOCK("LJ8099", .F., .F.)
STIITEMREGISTER.PRW - STIPEPAY() -> LRET := EXECBLOCK("STCALLPAY",.F.,.F.,{STDGPBASKET("SL1","L1_CLIENTE"),STDGPBASKET("SL1","L1_LOJA"),OMODELCESTA})
STIPAYFINANCIAL.PRW - STIFINORC() -> AEDITFIELD:= EXECBLOCK("STIFINAN",.F.,.F.,AEDITFIELD)
STIPAYFINANCIAL.PRW - STISTRUMOD() -> OSTRUMST := EXECBLOCK("STISTRUMOD",.F.,.F., {OSTRUMST})
STIPAYFINANCIAL.PRW - STISTRUVIE() -> OSTRUMST := EXECBLOCK("STISTRUVIE",.F.,.F., {OSTRUMST})
STWCANCELSALE.PRW - STWCSFINALIZED() -> EXECBLOCK( "STCANSALE",.F.,.F.)
STWECFCONTROL.PRW - STWCMC7DIRECT() -> XRET := EXECBLOCK( "LJLECMC7", .F., .F., { CBUFCMC7 } )
STWECFCONTROL.PRW - STWMSGDISPLAY() -> CRET := EXECBLOCK("MSGDISPLAY",.F.,.F.,{NTIPO,APARAMIXB})
STWECFCONTROL.PRW - STWREADCMC7() -> XRET := EXECBLOCK( "LJLECMC7", .F., .F., { CBUFCMC7 } )
STWECFCONTROL.PRW - STWTORMSGDISP() -> CMSG := EXECBLOCK("MSGDISPLAY",.F.,.F.,{NTIPO,APARAMIXB})
STWITEMREGISTRY.PRW - STWITEMREG() -> ARETLJ7013 := EXECBLOCK("LJ7013",.F.,.F.,{CCODEFORPRINT, CDSCPRDPAF, CQUANT, CVRUNIT, CDESCONTO, CSITTRIB, CVLRITEM, NITEMLINE })
STWITEMREGISTRY.PRW - STWITEMREG() -> LRET := EXECBLOCK( "STVALPRO",.F.,.F.,{AINFOITEM[ITEM_CODIGO], STBGETQUANT() } )
STWRECEIPTTITLE.PRW - DROPTITLES() -> ALISTDROPTITLES := EXECBLOCK( "STRECALT" ,.F.,.F.,{ALISTDROPTITLES} )
STWRECEIPTTITLE.PRW - LOADTITLES() -> ATITLES := EXECBLOCK( "STRECVER" ,.F.,.F.,{ATITLES,APARAM} )
STWRECEIPTTITLE.PRW - REVERSEDROPTITLES() -> ALISTREVER := EXECBLOCK( "STRECEST" ,.F.,.F.,{ALISTREVER} )
STWRECEIPTTITLE.PRW - STWVALIDRECEP() -> LRET := EXECBLOCK("STVALBXREC",.F.,.F.,{CTPOP,ATITULOS})
STWRECEIPTTITLE.PRW - STWVLDFLDREC() -> XRET := EXECBLOCK("STVALIDREC",.F.,.F.,{AVLDTITULO,CTPOP,ALISTA , ASELECIONADO})
SWEDA.PRW - ENVIACOMANDO() -> EXECBLOCK("SWESERV",.F.,.F.)
SWEDA.PRW - ENVIACOMANDO() -> NEXECBLOCK += 1
SWEDA.PRW - ENVIACOMANDO() -> WHILE (NEXECBLOCK <= 5) .AND. (".-P" $ OAUTOCOM:CBUFFER)
TCFA040.PRW - AXINCLUI040() -> IF LF3
TCFA040.PRW - DO P.E() -> EXECBLOCK("TCF040INF",.F.,.F.,ADADOSAPR)
TCFA040.PRW - GRAVA() -> EXECBLOCK("TCF040GRV", .F., .F., {CSTATUS, .T., OMODEL})
TCFA040.PRW - GRAVA() -> ORETURN := EXECBLOCK("TCF040GRV", .F., .F., {CSTATUS, .F., OMODEL})
TCFA040.PRW - TCFA040ATENDE() -> EXECBLOCK("TCF040INF",.F.,.F.,ADADOSAPR)
TCFA040.PRW - TCFA040ATENDE() -> LTCF040PE := EXECBLOCK("TCF040VLD")
TCFA040.PRW - TCFA040REJEITA() -> EXECBLOCK("TCF040REP",.F.,.F.,ADADOSREP)
TCFA040.PRW - TCFA40REJ() -> EXECBLOCK("TCF040REP",.F.,.F.,ADADOSREP)
TCFWFUN.APL - TCFW004()() -> EXECBLOCK("TCFSTRLOGIN",.F.,.F.)
TCFWFUN.APL - TCFWINSITE() -> EXECBLOCK("TCFVERMAT",.F.,.F.)
TCFWLIB.APL - TCFEND() -> CHTMLBLOCK := EXECBLOCK(;
TCFWLIB.APL - TCFINIT() -> ( LEN( AEXECBLOCK ) >= 1 );
TCFWLIB.APL - TCFINIT() -> ( LEN( AEXECBLOCK ) >= 2 );
TCFWLIB.APL - TCFINIT() -> ( VALTYPE( AEXECBLOCK[1] ) == "C" );
TCFWLIB.APL - TCFINIT() -> ( VALTYPE( AEXECBLOCK[2] ) == "L" );
TCFWLIB.APL - TCFINIT() -> AEXECBLOCK := EXECBLOCK(;
TCFWLIB.APL - TCFINIT() -> CHTML:= AEXECBLOCK[ 1 ]
TCFWLIB.APL - TCFINIT() -> IF ( VALTYPE( AEXECBLOCK ) == "A" )
TCFWLIB.APL - TCFINIT() -> LOK:= AEXECBLOCK[ 2 ]
TCOMA01.PRW - COM01G1() -> EXECBLOCK("TCOMA01ATU")
TCOMA01.PRW - COM01I() -> _ACAMPOSPER := IF(EXISTBLOCK("TCOMA01CAM"),EXECBLOCK("TCOMA01CAM"),EXECTEMPLATE("TCOMA01CAM"))
TCOMA01.PRW - TCONFPRE(_NVALOR)() -> _NVALCUSTO := EXECBLOCK("TCOMA01PC")
TECA040.PRX - AT040AUTO() -> BUSFILTRO := EXECBLOCK( "AT040FIL", .F., .F. )
TECA040.PRX - AT040CORES() -> ARET := EXECBLOCK("AT040COR",.F.,.F.,{ARET,ACORES,ATEXTO})
TECA040.PRX - AT040INCOK() -> LRETORNO:= EXECBLOCK("AT040TOK", .F., .F.)
TECA040.PRX - AT040LEGEND() -> ARET := EXECBLOCK("AT040LEG",.F.,.F.,{ARET,ACORES,ATEXTO})
TECA040.PRX - AT040TRANS() -> EXECBLOCK("AT040ETR", .F. ,.F., {IF(NOPCA == 1,.T., .F.)})
TECA040.PRX - AT040TRANS() -> LRET := EXECBLOCK("AT040TRA", .F. ,.F.)
TECA110.PRX - AT110MAN() -> EXECBLOCK("AT110AGW",.F.,.F.,{NOPC})
TECA120.PRX - AT120COPIA() -> EXECBLOCK( "AT120GRV", .F., .F., { 1 } )
TECA120.PRX - AT120GRAVA() -> EXECBLOCK( "AT120GRV", .F., .F., { NOPCAO } )
TECA140.PRX - AT140CMM() -> ABLOCK := EXECBLOCK("TEA1401")
TECA140.PRX - AT140POS() -> ABLOCK := EXECBLOCK("TEA1401")
TECA160.PRW - AT160PEIMP() -> EXECBLOCK('AT160IMP')
TECA190D.PRW - AT190DCONS() -> ARETEXEC :=EXECBLOCK("AT190DFG",.F.,.F.,{ASEEK,AINDEX,CTIPO})
TECA190D.PRW - AT190DCONS() -> ARETEXEC :=EXECBLOCK("TECF3190",.F.,.F.)
TECA190D.PRW - AT190DLDLO() -> EXECBLOCK("AT19DLLO", .F., .F., {@OMODEL, @OMDLLOC, (CALIASQRY)->(ABB_CODTEC), ACLONE(ALINHA), LREFRESH})
TECA190D.PRW - AT190DLOAD() -> EXECBLOCK("AT190DLD", .F., .F., {@OMODEL, @OMDLABB, CATENDENTE, ACLONE(ALINHA)})
TECA190D.PRW - AT190DRDL() -> EXECBLOCK("AT190DDEL",.F.,.F.)
TECA190D.PRW - AT190DYAGEN() -> LAT190LOT:= EXECBLOCK("AT190LOT",.F.,.F.,{OMODEL})
TECA190D.PRW - AT190MEHR() -> EXECBLOCK("AT190DTL",.F.,.F.,)
TECA190D.PRW - GRAVAALOC2() -> EXECBLOCK("GSMDTFIL",.F.,.F.,{ATN5, ATN6} )
TECA190D.PRW - GRAVAALOC2() -> LOK := LOK .AND. EXECBLOCK("AT190DALO",.F.,.F.,{OMODEL} )
TECA190D.PRW - MODELDEF() -> EXECBLOCK("AT190DMODE",.F.,.F.,{@OMODEL,@ATABLES} )
TECA190D.PRW - PROJALOC2() -> LOK := LOK .AND. EXECBLOCK("AT190DPRO",.F.,.F.,{OMODEL})
TECA190D.PRW - VIEWDEF() -> EXECBLOCK("AT190DVIEW",.F.,.F.,{@OVIEW,@ATABLES} )
TECA190F.PRW - MODELDEF() -> EXECBLOCK("AT190FMO",.F.,.F.,{@OMODEL,@ATABLES} )
TECA190F.PRW - VIEWDEF() -> EXECBLOCK("AT190FVI",.F.,.F.,{@OVIEW,@ATABLES} )
TECA200.PRX - AT200BAR() -> AUSBUTTONS := EXECBLOCK( "AT200BUT", .F., .F., { NOPCX } )
TECA200.PRX - AT200GRAVA() -> EXECBLOCK("AT200AA3",.F.,.F.,{NOPCAO})
TECA200.PRX - AT200GRAVA() -> EXECBLOCK("AT200DES",.F.,.F.,{NOPCAO})
TECA210.PRX - AT210GERAPV() -> EXECBLOCK("ATA210GP",.F.,.F.)
TECA210.PRX - AT210GERAPV() -> EXECBLOCK("ATA210PV",.F.,.F.)
TECA250.PRW - AT250GERAJ() -> AUSERCAMP := EXECBLOCK("AT250AJU",.F.,.F., )
TECA250.PRW - AT250GERAPV() -> ARETPE:=EXECBLOCK("AT250MOV",.F.,.F.,{NQUANT,DPROCESSO})
TECA250.PRW - AT250GERAPV() -> EXECBLOCK( "AT250PED", .F., .F., { DPROCESSO } )
TECA250.PRW - AT250GERAPV() -> EXECBLOCK("ATA250PV",.F.,.F., { DPROCESSO } )
TECA250.PRW - AT250GERAPV() -> LFILTRO := EXECBLOCK("AT250FIL",.F.,.F.)
TECA250.PRW - AT250GERAPV() -> LGERAPV := EXECBLOCK( "ATA250CD",.F., .F., { DPROCESSO, NVALOR } )
TECA250.PRW - AT250HEADER() -> APECPOS := EXECBLOCK( "AT250CPO", .F., .F. )
TECA250.PRW - AT250REAJU() -> EXECBLOCK("AT250REJ",.F.,.F.)
TECA250.PRW - CANCELMDL() -> EXECBLOCK("AT250CAN",.F.,.F.,{NOPC})
TECA250.PRW - MENUDEF() -> AROTADIC := EXECBLOCK( "AT250ROT", .F., .F. )
TECA250.PRW - MODELDEF() -> APECPOS := EXECBLOCK( "AT250CPO", .F., .F. )
TECA250.PRW - POSVLDLINE() -> LRET := EXECBLOCK("AT250LOK",.F.,.F.,{NTPCONTRATO})
TECA250.PRW - POSVLDMDL() -> LRET := EXECBLOCK("AT250TOK",.F.,.F.,{NOPCX})
TECA250.PRW - VIEWDEF() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "AT250BUT", .F., .F., {OMODEL:GETOPERATION()} ) ) == "A"
TECA300.PRX - AT300ALTER() -> LRET := EXECBLOCK("AT300ALT",.F.,.F.)
TECA300.PRX - AT300BAR() -> IF VALTYPE( AAT300ACE := EXECBLOCK( "AT300ACE", .F., .F. ) ) == "A"
TECA300.PRX - AT300BAR() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "AT300BUT", .F., .F. ) ) == "A"
TECA300.PRX - AT300CARGA() -> EXECBLOCK("AT300CAR")
TECA300.PRX - AT300EFET() -> EXECBLOCK("AT300EFE",.F.,.F.)
TECA300.PRX - AT300EXCLU() -> LRET := EXECBLOCK("AT300EXC",.F.,.F.)
TECA300.PRX - AT300GRAVA() -> EXECBLOCK("AT300GRV",.F.,.F.)
TECA300.PRX - AT300INCLU() -> EXECBLOCK("AT300INC",.F.,.F.)
TECA300.PRX - AT300LEG() -> ACORESNEW := EXECBLOCK("AT30LEG",.F.,.F.,ACORES)
TECA300.PRX - AT300LINOK() -> LRETORNO := EXECBLOCK( "AT300LDL", .F., .F. )
TECA300.PRX - AT300LINOK() -> LRETORNO := EXECBLOCK( "AT300LLK", .F., .F., { LRETORNO } )
TECA300.PRX - AT300PROC() -> LRET := EXECBLOCK("AT300VAL",.F.,.F.,{ NTIPO ,AB1->AB1_NRCHAM,ISMARK("AB1_OK",THISMARK(),THISINV())})
TECA300.PRX - AT300TUDOK() -> LRETORNO := EXECBLOCK( "AT300TDA", .F., .F., { LRETORNO } )
TECA300.PRX - AT300TUDOK() -> LRETORNO := EXECBLOCK( "AT300TDD", .F., .F., { LRETORNO } )
TECA300.PRX - AT300VISUA() -> EXECBLOCK("AT300VIS",.F.,.F.)
TECA300.PRX - AT300VLDUS() -> LRET := EXECBLOCK( "AT300VLA", .F., .F., { NOPCA } )
TECA300.PRX - AT300VLDUS() -> LRET := EXECBLOCK( "AT300VLD", .F., .F., { NOPCA } )
TECA300.PRX - TECA300() -> ACORESNEW := EXECBLOCK("AT30COR",.F.,.F.,ACORES)
TECA310.PRX - AT310ACTION() -> EXECBLOCK("AT310RAD",.F.,.F.,ORADIO)
TECA310.PRX - AT310ALTER() -> EXECBLOCK("AT310ALT",.F.,.F.)
TECA310.PRX - AT310BAR() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "AT310BUT", .F., .F. ) ) == "A"
TECA310.PRX - AT310BAR2() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "AT310BU2", .F., .F. ) ) == "A"
TECA310.PRX - AT310EXCLU() -> EXECBLOCK("AT310EXC",.F.,.F.)
TECA310.PRX - AT310GRAVA() -> EXECBLOCK( "AT310GRV", .F., .F., { NOPER } )
TECA310.PRX - AT310INCLU() -> EXECBLOCK("AT310INC",.F.,.F.)
TECA310.PRX - AT310VISUA() -> EXECBLOCK("AT310VIS",.F.,.F.)
TECA330.PRW - AT330GVALO() -> EXECBLOCK("AT330GRV",.F.,.F.)
TECA330A.PRW - AT330ACOB() -> AHORAS := EXECBLOCK("AT330HRRT",.F.,.F., ADADOS)
TECA330A.PRW - AT330UPTGY() -> EXECBLOCK("GSMDTFIL",.F.,.F.,{ATN5, ATN6} )
TECA330A.PRW - GETINFOATEND() -> AHORAS := EXECBLOCK("AT330HR",.F.,.F., ADADOS)
TECA351.PRW - AT351ENVRH() -> LATUAB9 := EXECBLOCK("AT351IBE", .F., .F., {ACABEC, AITENSFINAL, NOPC, LCAB}) .AND. LATUAB9
TECA351.PRW - AT351EXCL() -> LRET := EXECBLOCK("AT351EBE", .F., .F., {MV_PAR01, MV_PAR02, MV_PAR03, MV_PAR04, MV_PAR05, MV_PAR06, MV_PAR07, CTMPAGAB9}) .AND. LRET
TECA351.PRW - AT351EXCRH() -> APEENVBEN := ACLONE(EXECBLOCK("AT351ALT", .F., .F.,{ ACABEC, AITENSFINAL, 5 } ))
TECA353.PRW - AT353ENVRH() -> ACABITENS := ACLONE(EXECBLOCK("TEC353AL", .F., .F.,{ ACABEC, AITENS, NOPC} ))
TECA400.PRX - AT400ALTER() -> EXECBLOCK("AT400ALT",.F.,.F.)
TECA400.PRX - AT400BAR() -> AUSBUTTONS := EXECBLOCK( "AT400BUT", .F., .F. )
TECA400.PRX - AT400EXCLU() -> EXECBLOCK("AT400EXC",.F.,.F.)
TECA400.PRX - AT400EXCLU() -> LRET := EXECBLOCK( "AT400DEL", .F., .F. )
TECA400.PRX - AT400F4() -> EXECBLOCK( "AT400APN", .F., .F. )
TECA400.PRX - AT400GRVOS() -> EXECBLOCK("AT400GOS",.F.,.F.)
TECA400.PRX - AT400INCLU() -> EXECBLOCK("AT400INC",.F.,.F.)
TECA400.PRX - AT400LEG() -> ACORES := EXECBLOCK("AT400LGD",.F.,.F.,ACORES)
TECA400.PRX - AT400LINOK() -> LRETORNO := EXECBLOCK("AT400LOK",.F.,.F.)
TECA400.PRX - AT400PROC() -> LCONTINUA := EXECBLOCK("AT400EFT",.F.,.F.)
TECA400.PRX - AT400TUDOK() -> LRETORNO := EXECBLOCK( "AT400TOK", .F., .F. )
TECA400.PRX - AT400VISUA() -> EXECBLOCK("AT400VIS",.F.,.F.)
TECA400.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("AT400ROT",.F.,.F.)
TECA400.PRX - TECA400() -> ACORES := EXECBLOCK("AT400COR",.F.,.F.,ACORES)
TECA450.PRX - AT450ALTER() -> EXECBLOCK("AT450ALT",.F.,.F.)
TECA450.PRX - AT450ALTER() -> LBLOCKRET := EXECBLOCK( "AT450OKA", .F., .F. )
TECA450.PRX - AT450BAR() -> AUSBUTTONS := EXECBLOCK( "AT450BUT", .F., .F. )
TECA450.PRX - AT450BAR2() -> AUSBUTTONS := EXECBLOCK( "AT450BU2", .F., .F. )
TECA450.PRX - AT450BAR3() -> AUSBUTTONS := EXECBLOCK( "AT450BU3", .F., .F. )
TECA450.PRX - AT450EFET() -> CQUERY := EXECBLOCK("AT450FIL",.F.,.F.,{CQUERY})
TECA450.PRX - AT450EXCLU() -> EXECBLOCK("AT450EXC",.F.,.F.)
TECA450.PRX - AT450EXCLU() -> LBLOCKRET := EXECBLOCK( "AT450OKD", .F., .F. )
TECA450.PRX - AT450F4LOK() -> IF !EXECBLOCK( "AT450VLD", .F., .F. )
TECA450.PRX - AT450INCLU() -> EXECBLOCK("AT450INC",.F.,.F.)
TECA450.PRX - AT450INCLU() -> LBLOCKRET := EXECBLOCK( "AT450OKI", .F., .F. )
TECA450.PRX - AT450LEG() -> ACORESNEW := EXECBLOCK("TC450LEG",.F.,.F.,ACORES)
TECA450.PRX - AT450LINOK() -> LRETORNO := EXECBLOCK( "AT450LOK", .F., .F. )
TECA450.PRX - AT450PROC() -> LBLOCKRET := EXECBLOCK( "AT450OKE", .F., .F. )
TECA450.PRX - AT450PROC() -> LLIBERAIT := EXECBLOCK( "AT450FIT", .F., .F. )
TECA450.PRX - AT450TUDOK() -> LRETORNO := EXECBLOCK( "AT450TOK", .F., .F. )
TECA450.PRX - AT450VISUA() -> EXECBLOCK("AT450VIS",.F.,.F.)
TECA450.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("TC450ROT", .F., .F.)
TECA450.PRX - TECA450() -> ACORESNEW := EXECBLOCK("TC450COR",.F.,.F.,ACORES)
TECA460.PRX - AT460ALTER() -> EXECBLOCK("AT460ALT",.F.,.F.)
TECA460.PRX - AT460BAR() -> AUSBUTTONS := EXECBLOCK( "AT460BUT", .F., .F. )
TECA460.PRX - AT460DESP() -> EXECBLOCK( "AT460DSP", .F.,.F., { INCLUI } )
TECA460.PRX - AT460EXCLU() -> EXECBLOCK("AT460EXC",.F.,.F.)
TECA460.PRX - AT460EXCLU() -> IF !EXECBLOCK("AT460DOK",.F.,.F.)
TECA460.PRX - AT460GRAVA() -> EXECBLOCK( "AT460GRV", .F., .F., { NOPCAO } )
TECA460.PRX - AT460INCLU() -> EXECBLOCK("AT460INC",.F.,.F.)
TECA460.PRX - AT460LINOK() -> LRETORNO := EXECBLOCK( "AT460LOK", .F., .F. )
TECA460.PRX - AT460NCONF() -> LCLOSE := EXECBLOCK( "AT460NCF", .F., .F., { NOPER } )
TECA460.PRX - AT460TUDOK() -> LRETORNO := EXECBLOCK( "AT460TOK", .F., .F. )
TECA460.PRX - AT460VISUA() -> EXECBLOCK("AT460VIS",.F.,.F.)
TECA460.PRX - ATUESTOQUE() -> EXECBLOCK( "AT460SD3" )
TECA460.PRX - MENUDEF() -> AROTADIC := EXECBLOCK( "AT460ROT", .F., .F. )
TECA470.PRX - AT470BAR() -> AUSBUTTONS := EXECBLOCK( "AT470BUT", .F., .F. )
TECA470.PRX - AT470GRAVA() -> AARRSOLIC := EXECBLOCK("AT470CPO",.F.,.F.,{ACABEC,AITENS,NOPC105})
TECA470.PRX - AT470GRAVA() -> EXECBLOCK( "AT470GRV", .F., .F., {NOPCAO} )
TECA470.PRX - AT470GRAVA() -> LBLOCKRET := EXECBLOCK( "AT470GRI", .F., .F., {NOPCAO} )
TECA500.PRX - AT500GRAVA() -> EXECBLOCK( "AT500ALT", .F., .F.)
TECA500.PRX - AT500GRAVA() -> EXECBLOCK( "AT500DEL", .F., .F.)
TECA500.PRX - AT500GRAVA() -> EXECBLOCK( "AT500GRV", .F., .F.)
TECA510.PRW - AT510GRAVA() -> EXECBLOCK( "AT500DEL", .F., .F.)
TECA510.PRW - AT510GRAVA() -> EXECBLOCK( "AT500GRV", .F., .F.)
TECA520.PRW - TA520COMM() -> BAFTERLIN := {|| EXECBLOCK( "AT500GRV", .F., .F.,{OMDL}) }
TECA520.PRW - TA520COMM() -> BBEFORELIN := {|| EXECBLOCK( "AT500ALT", .F., .F.,{OMDL}) }
TECA520.PRW - TA520COMM() -> BBEFORELIN := {|| EXECBLOCK( "AT500DEL", .F., .F.,{OMDL}) }
TECA550.PRW - AT550COMMIT() -> EXECBLOCK("AT550GRV",.F.,.F.,{OMODEL,NOPC} )
TECA550.PRW - AT550GRVABB() -> EXECBLOCK("AT550GRF", .F., .F., {CCODTEC, LINCLUI,ABB->ABB_CODIGO, CAGENDANT})
TECA550.PRW - AT550GRVABB() -> EXECBLOCK("GSMDTFIL",.F.,.F.,{ATN5, ATN6} )
TECA550.PRW - AT550GRVABB() -> NCUSTO := EXECBLOCK("TECXNCUSTO",.F.,.F.,;
TECA580B.PRW - AT580BCOLS() -> AUSRCPOS := EXECBLOCK("TE580BRW",.F.,.F.,{ACAMPOS})
TECA620.PRX - AT620AUTO2() -> BUSFILTRO := EXECBLOCK( "AT620FIL", .F., .F. )
TECA620.PRX - AT620EXP() -> EXECBLOCK("AT620ENDEXP",.F.,.F.,LENDEXP)
TECA700.PRX - AT700ALTER() -> EXECBLOCK("AT700ALT",.F.,.F.)
TECA700.PRX - AT700BAR() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "AT700BUT", .F., .F. ) ) == "A"
TECA700.PRX - AT700BAR2() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "AT700BU2", .F., .F., { ASAVACOLS, AHEADERABI, NSAVN } ) ) == "A"
TECA700.PRX - AT700EXCLU() -> EXECBLOCK("AT700EXC",.F.,.F.)
TECA700.PRX - AT700PROGR() -> EXECBLOCK("AT700PRO",.F.,.F.)
TECA700.PRX - AT700PRPED() -> EXECBLOCK( "AT700PED", .F., .F. )
TECA700.PRX - AT700PRPED() -> EXECBLOCK("ATA700PV",.F.,.F.)
TECA700.PRX - AT700VISUA() -> EXECBLOCK("AT700VIS",.F.,.F.)
TECA740.PRW - AT740CLCAL() -> EXECBLOCK('A998CPOUSR', .F., .F., {OMDLRH,OFWSHEET} )
TECA740.PRW - INITDADOS () -> EXECBLOCK('AT740INITD', .F., .F., {OMDLGER} )
TECA740.PRW - VIEWDEF() -> CNEXIBCMP := EXECBLOCK("A740NEXIB",.F.,.F.)
TECA740.PRW - VIEWDEF() -> EXECBLOCK("A740GRDV",.F.,.F.,{@OVIEW,OVIEW:AFOLDERS})
TECA740F.PRW - INITDADOS() -> EXECBLOCK('AT740INITD', .F. , .F. , {OMDLGER} )
TECA740F.PRW - VIEWDEF() -> EXECBLOCK("A740GRDV",.F.,.F.,{@OVIW740F,OVIW740F:AFOLDERS})
TECA800.PRW - AT800RETLIB() -> EXECBLOCK("TEC800RL", .F., .F.)
TECA820.PRW - AT820GRV() -> EXECBLOCK( 'AT820CMT', .F., .F., { OMODEL } )
TECA820.PRW - AT820GRV() -> EXECBLOCK("AT820GOS",.F.,.F.,{OMODEL,ADADOSOS,ADDITNOS})
TECA850.PRW - AT850CRPLAN() -> L850GRVPL := EXECBLOCK("AT850GRVPL",.F.,.F.,{CCBXREAJPL, CPROPOSTA, CREVISAO, CCODCLI, CLJCLI, ALOCAL, AINFO, CTPPL})
TECA870.PRW - AT870ANTCO() -> NPROXPARC := EXECBLOCK( "AT870ANT", .F., .F., { DGET1, TFF->TFF_PERFIM, CCODORC, TFF->TFF_PRCVEN, TFF->TFF_QTDVEN, TFF->TFF_PERINI, TFF->TFF_COD } )
TECA870.PRW - AT870APRRV() -> EXECBLOCK('AT870RVAPR', .F., .F., {CCONTR,CREV})
TECA870.PRW - AT870COLS() -> AUSRCPOS := ACLONE(EXECBLOCK("TC870BRW", .F., .F. ))
TECA870.PRW - TECA870() -> AROTPE := EXECBLOCK( "AT870MNU", .F., .F., {CALIASPRO,@OBROWSE} )
TECA890.PRW - AT890QRYMI() -> ARETNEW := EXECBLOCK("AT890CMP",.F.,.F.,{ARET,ACABEC,"TFG"})
TECA894.PRW - AT894EXCL() -> EXECBLOCK("EX894REQ",.F.,.F.,{IF(TXC->(!EOF()), TXC->(RECNO()), 0) /*CABECALHO GESTAO DE UNIFORME*/,;
TECA894.PRW - AT894MNT() -> AARRUNIF := EXECBLOCK("AT894CPO",.F.,.F.,{ACABEC,AITENS,NOPC})
TECA894.PRW - AT894MNT() -> EXECBLOCK("AT894DOC",.F.,.F.)
TECA894.PRW - AT894MNT() -> EXECBLOCK("AT894UNI",.F.,.F.,{AITBROWSE,NOPC})
TECA910.PRW - AT910MARCA() -> ARET := EXECBLOCK("AT910MA", .F., .F., {ACABEC, AITENS, NOPC, CTPEXP})
TECA910.PRW - AT910MARCA() -> ARETINC := EXECBLOCK("AT910CMA", .F., .F., {ACABEC, AITENS, NOPC, LCAB})
TECA910.PRW - MARCJOBAUX() -> ARET := EXECBLOCK("AT910MA", .F., .F., {ACABEC, AITENS, 3, CTPEXP})
TECA930.PRW - AT930COMMIT() -> LAT930GRV := EXECBLOCK("AT930GRV",.F.,.F.,{OMODEL})
TECA930.PRW - AT930GRCNT() -> EXECBLOCK("AT930PVG",.F.,.F.,{ADOCS})
TECA930.PRW - AT930GRV() -> ACABE := EXECBLOCK("AT930CAB",.F.,.F., {ACABE, AT930AGMDL()} )
TECA930.PRW - GERAPVEXCE() -> ARETPE := EXECBLOCK("AT930EXC",.F.,.F., {ACABEC, AITENS} )
TECA930A.PRW - TEC930ACAM() -> ARET := EXECBLOCK("AT930ACA",.F.,.F., {CTIPO} )
TECA960.PRW - A960PRORAT() -> ARETPE := EXECBLOCK("AT960PRRT", .F., .F., {ACAB,AITENS,3,LCAB , @AERROPE})
TECA984.PRW - VIEWDEF() -> EXECBLOCK("T984VCPO",.F.,.F.,{@OSTRRH, @OSTRMC, @OSTRMI, @OSTRLE})
TECA998.PRW - AT998EXPLA() -> EXECBLOCK('A998CPOUSR', .F., .F., {OMDLRH,OFWSHEET} )
TECC070.PRW - TC070USRBUT() -> ARET := EXECBLOCK("TC070USRBUT", .F., .F.,{CCODCLI,CLOJCLI})
TECXFUN.PRX - AT450GRAVA() -> AUSERCPOPV := EXECBLOCK( "ATCPPVOS", .F., .F., { "1" } )
TECXFUN.PRX - AT450GRAVA() -> AUSERCPOPV := EXECBLOCK( "ATCPPVOS", .F., .F., { "2" } )
TECXFUN.PRX - AT450GRAVA() -> CREGPE := EXECBLOCK("T450REGIAO",.F.,.F.,{CREGIAO})
TECXFUN.PRX - AT450GRAVA() -> EXECBLOCK( "AT450GIT", .F., .F., { NOPCX } )
TECXFUN.PRX - AT450GRAVA() -> EXECBLOCK("AT410GRV",.F.,.F.,{1})
TECXFUN.PRX - AT450GRAVA() -> EXECBLOCK("AT410GRV",.F.,.F.,{2})
TECXFUN.PRX - AT450GRAVA() -> EXECBLOCK("AT450GRV",.F.,.F.)
TECXFUN.PRX - AT450GRAVA() -> EXECBLOCK("TECXSC5",.F.,.F.)
TECXFUN.PRX - AT450GRAVA() -> LPVTMP := EXECBLOCK( "T450PVOS", .F., .F.,{LPV})
TECXFUN.PRX - ATALOCTEC() -> CREGPE := EXECBLOCK("T450REGIAO",.F.,.F.,{CREGIAO})
TECXFUN.PRX - ATALOCTEC() -> EXECBLOCK("AT450ALC",.F.,.F.)
TECXFUN.PRX - ATALOCTEC() -> LPE450AGE := EXECBLOCK("AT450AGE",.F.,.F.,{ABESTTEC, ABESTHOR, NTECNICO , CNUMOS})
TECXFUN.PRX - ATCANDELEQ() -> LRET := EXECBLOCK( "ATVDELEQ", .F., .F. )
TECXFUN.PRX - ATCUSTOEQTO() -> ACUSTUSER := EXECBLOCK( "ATCUSTUS",.F.,.F. )
TECXFUN.PRX - ATEQSTATUS() -> AA3->AA3_STATUS := EXECBLOCK( "ATTRSTAT", .F., .F. )
TECXFUN.PRX - ATESTPLANO() -> ±±³DESCRI‡„O ³ FAZ A CHAMADA DA FUNCAO EXECBLOCK COM MENOS BYTES PARA USO ³±±
TECXFUN.PRX - ATESTPLANO() -> ±±³PARAMETROS³ EXECUTAM AS MESMAS FUNCOES DE EXECBLOCK ³±±
TECXFUN.PRX - ATEXPPLANO() -> EXECBLOCK("AT620GRV",.F.,.F.)
TECXFUN.PRX - EB() -> RETURN( EXECBLOCK( CROTINA, CL1, CL2 ) )
TIMBRERN.PRW - CFDIRECNOM() -> EXECBLOCK( "CFDIREC1" , .F. , .F. , { CRUTACFDI + CNAMECFDI } )
TIMBRERN.PRW - CFDIRECNOM() -> EXECBLOCK( "CFDIREC2" , .F. , .F. , { CRUTACFDI + CNAMECFDI } )
TJURFILAIMPRESSAO.PRW - ADDREG() -> EXECBLOCK('J162LSTG',.F.,.F.,{CCAJUR,CUSER,CTHREAD,NQ3->(RECNO())})
TJURFILAIMPRESSAO.PRW - LSTHEADFILA() -> ACAMPOS := EXECBLOCK("J162LSTF",.F.,.F.,{ACAMPOS})
TJURFILAIMPRESSAO.PRW - MENUPOPIMP() -> EXECBLOCK( 'JA162MENUP', .F., .F., {OMENU, OMENUITEM, NCOUNTFILA, CUSER, OLSTFILA, CTHREAD, SELF:OPNLFILA, SELF:OLSTPESQ:OBACKPANEL, SELF:OCOUNTFILA } )
TJURPESQASJ.PRW - IMPREP01() -> CPARPE := EXECBLOCK('J162PAR',.F.,.F.,{CRELAT,CPARAMS,COPTIONS})
TJURPESQUISA.PRW - () -> ARELENT := EXECBLOCK("JPESQOUT", .F.,.F.,AJPESQOUT)
TJURPESQUISA.PRW - () -> ARELENT := EXECBLOCK("JUATREL1", .F.,.F.)
TJURPESQUISA.PRW - JALTLOTE() -> AIMPEDAUX := EXECBLOCK('J162NALT', .F., .F., {CPESQ})
TMKA061D.PRW - TK061SELECAO() -> CFILSU5 := EXECBLOCK("TK061SU5",.F.,.F.,{CENTIDADE,CSELOPER,LLOG})
TMKA062.PRW - TK062MONTALISTA() -> CFLT_SA1 := EXECBLOCK("TK062SA1",.F.,.F.,{CSELOPER,LLOG})
TMKA062.PRW - TK062MONTALISTA() -> CFLT_SE1 := EXECBLOCK("TK062SE1",.F.,.F.,{CSELOPER,LLOG})
TMKA062.PRW - TK062MONTALISTA() -> CFLT_SK1 := EXECBLOCK("TK062SK1",.F.,.F.,{CSELOPER,LLOG})
TMKA062.PRW - TK062MONTALISTA() -> CFLT_SU5 := EXECBLOCK("TK062SU5",.F.,.F.,{CENTIDADE,CSELOPER,LLOG})
TMKA070.PRX - A070TOK() -> LRET:= EXECBLOCK('MA070TOK',.F.,.F.,{LRET})
TMKA070.PRX - A070TOK() -> LRET:=EXECBLOCK("TKVINCU5",.F.,.F.)
TMKA070.PRX - A70ALTERA() -> ABUTADIC := EXECBLOCK("TK070ABOT",.F.,.F.)
TMKA070.PRX - A70ALTERA() -> EXECBLOCK("TMKALTU5",.F.,.F.)
TMKA070.PRX - A70INCLUI() -> ABUTADIC := EXECBLOCK("TK070ABOT",.F.,.F.)
TMKA070.PRX - A70INCLUI() -> EXECBLOCK("TK070INC",.F.,.F.)
TMKA070.PRX - A70INCLUI() -> EXECBLOCK("TMKINCU5",.F.,.F.)
TMKA070.PRX - A70MANUT() -> ABUTADIC := EXECBLOCK("TK070ABOT",.F.,.F.)
TMKA070.PRX - A70MANUT() -> EXECBLOCK("TK070INC",.F.,.F.)
TMKA070.PRX - A70MANUT() -> EXECBLOCK("TMKALTU5",.F.,.F.)
TMKA070.PRX - A70MANUT() -> EXECBLOCK("TMKINCU5",.F.,.F.)
TMKA070.PRX - A70VISUAL() -> ABUTADIC := EXECBLOCK("TK070ABOT",.F.,.F.)
TMKA070.PRX - TK070TUDOK() -> LCONTINUA := EXECBLOCK("TKVINCU5",.F.,.F.)
TMKA090.PRX - TK090GRVALT() -> EXECBLOCK("TK090FIM",.F.,.F.,{3})
TMKA090.PRX - TK090GRVINC() -> EXECBLOCK("TK090FIM",.F.,.F.,{3})
TMKA090.PRX - TK090USER() -> ATMKUSERS := EXECBLOCK("TMK90USR", .F., .F., { ATMKUSERS })
TMKA150.PRW - TK150EXCLUSAO() -> EXECBLOCK("TMK150DEL",.F.,.F.,{SUA->UA_NUM,SUA->UA_CLIENTE,SUA->UA_LOJA})
TMKA180.PRW - TK180GERA() -> CQUERY+= EXECBLOCK( "TK180QRY", .F., .F. ) + " AND "
TMKA180.PRW - TK180GERA() -> CQUERY+= EXECBLOCK( "TK180QRY", .F., .F. )+ " AND "
TMKA180.PRW - TK180GERA() -> EXECBLOCK("TK180GRV",.F.,.F.,{(AALIAS[NY])->E1_CLIENTE,(AALIAS[NY])->E1_LOJA})
TMKA260.PRW - MENUDEF() -> AROTADIC := EXECBLOCK( "TK260ROT", .F., .F. )
TMKA260.PRW - TK260AFTER() -> EXECBLOCK("TMK260",.F.,.F.,{} )
TMKA260.PRW - TK260POS() -> LRET := EXECBLOCK( "TMK260OK", .F., .F., { NOPC, OMODEL } )
TMKA260.PRW - VIEWDEF() -> ARETPE:= EXECBLOCK( "TK260BUT", .F., .F. )
TMKA271.PRW - TK271CALLCENTER() -> @ 4,APOSGET[1,IF(LMV_TMKFIS,4,2)] MSGET AOBJ[DESCONTO] VAR AVALORES[DESCONTO] PICTURE PESQPICT('SUA','UA_DESCONT') OF OFOLDRODAPE:ADIALOGS[1] PIXEL SIZE 70 ,9 VALID IF(EXISTBLOCK("TK271DESROD"),EXECBLOCK("TK271DESROD",.F.,.F.),.T.) .AND. TK273DESCONTO("NF_DESCONTO",@AVALORES[DESCONTO]) .AND. POSITIVO(AVALORES[DESCONTO]) WHEN LDESCONTO
TMKA271.PRW - TK271CALLCENTER() -> IIF(LTMKACTIVE,EXECBLOCK( "TMKACTIVE", .F., .F. ),""));
TMKA271.PRW - TK271CALLCENTER() -> LTK271ABR := EXECBLOCK("TK271ABR",.F.,.F.,{NOPC} )
TMKA271.PRW - TKACGMONTACOLS() -> LRET271ACG := EXECBLOCK("TMKA271ACG",.F.,.F.)
TMKA271.PRW - TMKA271() -> CFILSQL := EXECBLOCK("TK271SQL",.F.,.F.,{CALIAS})
TMKA271A.PRW - TK271ATUCONT() -> EXECBLOCK( "TMKALTU5", .F., .F. )
TMKA271A.PRW - TK271ATUCONT() -> EXECBLOCK( "TMKINCU5", .F., .F. )
TMKA271A.PRW - TK271CANCELA() -> LCANCELA := EXECBLOCK( "TMKVEX", .F., .F. )
TMKA271A.PRW - TK271GRAVA() -> EXECBLOCK("TK271END" , .F. , .F.)
TMKA271A.PRW - TK271GRAVA() -> EXECBLOCK("TK271FIMGR" , .F. , .F. ,{NFOLDER})
TMKA271A.PRW - TK271SCRIPT() -> LEXIBE := EXECBLOCK( "TK271SCR", .F., .F., { @CCODCAMP, @CCONTATO, @COPERACAO } )
TMKA271A.PRW - TK271SITUAC() -> LRET := EXECBLOCK( "TK271SIT01", .F., .F.)
TMKA272.PRW - TK272DELTMK() -> LRET := EXECBLOCK("TMKVLDEL",.F.,.F.,{NOPC})
TMKA272.PRW - TK272ENCERRA() -> CCODENC := EXECBLOCK("TKENCERR",.F.,.F.,{CCODENC})
TMKA272.PRW - TK272EVATMK() -> LRET:= EXECBLOCK( "TMKLINOK", .F., .F. )
TMKA272.PRW - TK272GACAO() -> CNUMSERIEESCOLHIDO := EXECBLOCK( "TK272CBI", .F., .F. )
TMKA272.PRW - TK272INCBASE() -> CNUMSERIEINCLUIDO := EXECBLOCK( "TK272CBI", .F., .F. )
TMKA272.PRW - TK272LIGPEND() -> CQUERY := EXECBLOCK("TK272QRY",.F.,.F.,{CQUERY,COPERATOR,LSUPER})
TMKA272.PRW - TK272STSUD() -> EXECBLOCK("TMKCHGLI",.F.,.F.)
TMKA272.PRW - TK272SU9FILT() -> ARETSU9FILT := EXECBLOCK("TKSU9FIL",.F.,.F.,{AITEMS})
TMKA272.PRW - TK272TMKWZD() -> EXECBLOCK("TK272WZD",.F.,.F.)
TMKA272A.PRW - TK272BODY() -> CMENSAGEM += EXECBLOCK("TK272HTM",.F.,.F.,{ACABECALHO,AITENS,NOPC,ASX3SUC,APARSCRIPT})
TMKA272A.PRW - TK272ENVTMK() -> ARET := EXECBLOCK("TK272ACC",.F.,.F.,{M->UC_OPERADO})
TMKA272A.PRW - TK272EXECOPT() -> EXECBLOCK("TK272OPT",.F.,.F.,OMODEL)
TMKA272A.PRW - TK272GRVTMK() -> ARETQNC := EXECBLOCK("TK272QNC",.F.,.F.,{ACPOQNC,"I"})
TMKA272A.PRW - TK272SLVENDESP() -> CCODVEND := EXECBLOCK("TK272VES",.F.,.F.)
TMKA273.PRW - TK273DELTLV() -> EXECBLOCK( "TMKVDEL", .F., .F. )
TMKA273.PRW - TK273EVALI() -> LRET := EXECBLOCK("M410ACDL",.F.,.F.)
TMKA273.PRW - TK273GETOK() -> IF !EXECBLOCK( "TKEVALI", .F., .F. )
TMKA273.PRW - TK273RECALC() -> LOCAL LTMKTABREF:= IIF(!EMPTY(M->UA_TABELA) .AND. EXISTBLOCK("TMKTABREF"),EXECBLOCK("TMKTABREF"),.F.)
TMKA273.PRW - TKP000A() -> LTMKTABREF := IIF(EXISTBLOCK("TMKTABREF"),EXECBLOCK("TMKTABREF"),.F.)
TMKA273.PRW - TKP000B() -> LTMKTABREF := IIF(EXISTBLOCK("TMKTABREF"),EXECBLOCK("TMKTABREF"),.F.)
TMKA273.PRW - TKP000C() -> LRET := EXECBLOCK( "TK27300C", .F., .F. )
TMKA273.PRW - TKP000C() -> LTMKTABREF := IIF(EXISTBLOCK("TMKTABREF"),EXECBLOCK("TMKTABREF"),.F.)
TMKA273C.PRW - TK273ATUTRANSP() -> LRET := EXECBLOCK("TMKVLDSA4",.F.,.F.,{CCODTRANSP})
TMKA273C.PRW - TK273TIPONOVE() -> NOPAUX := EXECBLOCK("TMKTIPO9",.F.,.F.,{NOPAUX} )
TMKA273D.PRW - TK273GRVLOJA() -> LGRAVPE := EXECBLOCK("TK273GORC",.F.,.F.,{NOPC,APARCELAS})
TMKA273D.PRW - TK273GRVPTC() -> EXECBLOCK( "TK273PT2", .F., .F. )
TMKA273D.PRW - TK273GRVPTC() -> EXECBLOCK( "TMK273PTC", .F., .F. )
TMKA274.PRW - TK274ENVTLC() -> ACABECALHO := EXECBLOCK("TK274EMA",.F.,.F.,ACABECALHO)
TMKA274.PRW - TK274VLRCGD() -> ATK274SV:= EXECBLOCK("TK274SV",.F.,.F.,{ACOLSACG,ARDPCGD,DDATAPAGTO})
TMKA280.PRW - TK280CONTATO() -> EXECBLOCK( "TMKALTU5", .F., .F. )
TMKA280.PRW - TK280FIL() -> CTK280SQL := EXECBLOCK("TK280SQL",.F.,.F.,{} )
TMKA340.PRW - TK340DELE() -> EXECBLOCK("TMK340DEL",.F.,.F.)
TMKA341.PRW - BROWSEDEF() -> CFILTRAACH := ALLTRIM( EXECBLOCK( "TK341FIL", .F., .F. ) )
TMKA341.PRW - MENUDEF() -> AROTADIC := EXECBLOCK( "TK341ROT", .F., .F.)
TMKA341.PRW - TK341EXECOPT() -> EXECBLOCK("TK341OPT",.F.,.F.,OMODEL)
TMKA341.PRW - TK341EXECOPT() -> LRET := EXECBLOCK("TK341OPG",.F.,.F.)
TMKA341.PRW - TK341GRVSTP() -> AREGS := EXECBLOCK( "TK341GPROS", .F., .F. )
TMKA341.PRW - TK341LEGENDA() -> ACORES := EXECBLOCK( "TK341LEG", .F., .F., ACORES, OMODEL )
TMKA341.PRW - TK341POS() -> APARAMS[2] := { ||EXECBLOCK( "TKDELACH", .F., .F., { OMDL } ) }
TMKA341.PRW - TK341POS() -> LRET := EXECBLOCK( "TKALTACH", .F., .F., { OMDL } )
TMKA342.PRW - TK342TOK() -> LRET := EXECBLOCK( "TK342VOK",.F.,.F.,{CGETVEND,LRODIZIO,LGERAOP})
TMKA360B.PRW - TK360MEMRES() -> LOCAL BVAR
TMKA380.PRW - TK380VALIDO() -> LRET := EXECBLOCK("TK380BOK",.F.,.F.,{AATIVIDADES,NP,DDATA})
TMKA380B.PRW - TK380OK() -> LRETBLK := EXECBLOCK("TMK380HR",.F.,.F.,{ ACOLS[NLIACOLS][NPHRINI] , ACOLS[NLIACOLS][NPHRFIM] })
TMKA380E.PRW - TK380CHECK() -> LOCAL BVAR
TMKA380E.PRW - TK380MEMO() -> LOCAL BVAR
TMKA380E.PRW - TK380NEXT() -> LRET := EXECBLOCK("TK380VLD",.F.,.F.,{CFORMATO,NPANEL,ACONTROL,APERGUNTAS})
TMKA503A.PRW - GETFIELDS() -> EXECBLOCK("TK503SKA",.F.,.F.)
TMKA503A.PRW - LOADSUPBUTTONS() -> ABUTTONPE := EXECBLOCK("TK503BTN",.F.,.F.,ABUTTONSUP)
TMKA503A.PRW - SHOWDIALOG() -> AALTUSR := EXECBLOCK("TK503CMP",.F.,.F.,AALTERADF)
TMKA503A.PRW - TK503ATUDOK() -> LRET := EXECBLOCK("TK503TOK",.F.,.F.,{AHEADER,ACOLS,N})
TMKA503A.PRW - TK503BROWSE() -> ALEGENDA := EXECBLOCK("TK503LEG",.F.,.F.)
TMKA510.PRW - QATUTMK() -> EXECBLOCK("TKATUFNC", .F., .F., {CCODCHAMADO, CSTATUS})
TMKA510.PRW - RESPAUT510() -> EXECBLOCK("TK510WFRE", .F., .F., {CCHAMADO, SKW->KW_CODIGO})
TMKA510.PRW - TK510COMBVLD() -> LRETPE := EXECBLOCK("TKVLDTRN", .F., .F., {CASSUNTO, CGRUPO, COPERADOR, CPRODUTO,;
TMKA510.PRW - TK510COMPSLA() -> LRETPE := EXECBLOCK("TKCMPSLA", .F., .F., {CCHAMADOPAI,CCHAMADOATU})
TMKA510.PRW - TK510CRGIT() -> EXECBLOCK("TK510INIT",.F.,.F., {PARAMIXB[3]})
TMKA510.PRW - TK510CRITIC() -> NCRITICIDADE := EXECBLOCK("TK510FORMU",.F.,.F.,{NCRITICIDADE})
TMKA510.PRW - TK510ECM() -> AUSERFLUIG := EXECBLOCK("TK510UFL",.F.,.F.,{CCODADE,CCODWFTEMPLATE,AUSERWF})
TMKA510.PRW - TK510ECM() -> CANEXOPE := EXECBLOCK("TK510ATTF",.F.,.F., {CCODADE, CCODWFTEMPLATE})
TMKA510.PRW - TK510EMAIL() -> ARETHTM := EXECBLOCK("TK510HTM",.F.,.F.,{CCODADE,CCODWFTEMPLATE,IIF(!EMPTY(CEMAILTO),CEMAILTO,CEMAILDEST),CASSUNTO,CHTML})
TMKA510.PRW - TK510EMAIL() -> CPATHANEXO := EXECBLOCK("TK510ATTF",.F.,.F., {CCODADE, CCODWFTEMPLATE})
TMKA510.PRW - TK510GRVIT() -> CINCMEMOTMP := EXECBLOCK("TK500INC",.F.,.F.,{CINCMEMO,SUK->UK_CODIGO})
TMKA510.PRW - TK510GRVIT() -> EXECBLOCK('TK510END',.F.,.F.)
TMKA510.PRW - TK510GRVIT() -> IF !(VALTYPE(LGRV510PC := EXECBLOCK("TK510GPC", .F., .F., { ADE->ADE_CODIGO, CCODOPER } )) == "L")
TMKA510.PRW - TK510GRVIT() -> LRUNACT := EXECBLOCK("TKRUNACT", .F., .F., {PARAMIXB[1], PARAMIXB[2], NITEM})
TMKA510.PRW - TK510MENORSLA() -> ARET := EXECBLOCK("TKMENORSLA", .F., .F., {ACHAMREL})
TMKA510.PRW - TK510OCOTMK() -> LAVALTPACAO := EXECBLOCK("TKOCOSLA", .F., .F., {SU9->U9_CODIGO})
TMKA510.PRW - TK510PRFDESC() -> CPRFRET := EXECBLOCK("TK510PROFILE",.F.,.F., {CENTIDADE, CCHAVE, NTIPO})
TMKA510.PRW - TK510PRFDESC() -> IF ( VALTYPE( URET := EXECBLOCK("TK510TOBS",.F.,.F., {CENTIDADE, CCHAVE, NTIPO, CRET}) ) == "C" )
TMKA510.PRW - TK510SLA() -> EXECBLOCK("TKFIMSLA",.F.,.F.,{ASLAREGISTER})
TMKA510.PRW - TK510SLA() -> LTKVERCONT := EXECBLOCK("TKVERCONT",.F.,.F.,{ADE->ADE_CODIGO,LREPROSLA})
TMKA510.PRW - TK510TRFIL() -> EXECBLOCK("TKALTNCH", .F., .F., {CCODATE,CNOVOAT})
TMKA510.PRW - TK510UPDFILHO() -> LOCAL BTKUPDFLH:= {|PAI,FILHO,REGSLA| IF(EXISTBLOCK("TKUPDFLH"),EXECBLOCK("TKUPDFLH",.F.,.F.,{PAI,FILHO,REGSLA}),.T.)}
TMKA510.PRW - TKECMWFRET() -> EXECBLOCK("TK510WFRE", .F., .F., {CCHAMADO, SKW->KW_CODIGO})
TMKA510.PRW - TKRUNACT() -> EXECBLOCK("TKATURPL", .F., .F., {CCODADE, ADE->ADE_CODIGO})
TMKA510.PRW - TKRUNACT() -> IF !EXECBLOCK("TKENVWOR",.T.,.T.)
TMKA510.PRW - TKRUNACT() -> LAVALSLA := EXECBLOCK("TKAVALSLA",.F.,.F.,{CCODADE})
TMKA510.PRW - TKRUNACT() -> LRETREPLICA := EXECBLOCK("TKREPFILHO",.F.,.F.,{ALIST[NCOUNT][2]})
TMKA510.PRW - TKRUNACT() -> LRETREPLICA := EXECBLOCK("TKREPLICA", .F., .F., {CCODADE, ADE->ADE_CODIGO})
TMKA510.PRW - TKRUNACT() -> LRETREPLICA := EXECBLOCK("TKREPPAI",.F.,.F.,{ADE->ADE_CHORIG})
TMKA510.PRW - TKUPDCALL() -> EXECBLOCK( "TKREJFNC", .F., .F., { ADE->ADE_CODIGO, ADE->ADE_FNCFIL, ADE->ADE_FNC, ADE->ADE_FNCREV } )
TMKA510.PRW - TKUPDCALL() -> EXECBLOCK("TKUPCALL", .F., .F., {CCODCHAMADO, CSTATUS, COPCLOTE})
TMKA510A.PRW - ACOES_LOTE() -> LRETPE := EXECBLOCK("TKACLOTE",.F.,.F.,{ACHAMADOS,ACOLSCHAMADOS[NPOSBRW][NPOSCHAMADO],NTIPOACAO})
TMKA510A.PRW - ASSOCIAR() -> LRET := EXECBLOCK("TKACLOTE",.F.,.F.,{ACLICADOS,CCODLINHA,5})
TMKA510A.PRW - BUILDACOLS() -> ATMPFIELDS := EXECBLOCK("TK510CHCOL",.F.,.F., { SELF:AHEADERADE } )
TMKA510A.PRW - DIALOGLABEL() -> ATK510LEG := EXECBLOCK("TK510LEG",.F.,.F., {ACORES})
TMKA510A.PRW - SETATALHO() -> EXECBLOCK("TK510ATL",.F.,.F.,{})
TMKA510A.PRW - TK510FILTRA() -> CQRYAUX := P_TK510AQRY(CQUERY)
TMKA510A.PRW - TK510TASKBAR() -> ABTNAUX := EXECBLOCK("TK510ABTN", .F., .F., {ABOTOES, AIDXEVAL})
TMKA510A.PRW - TK510TELA() -> CAT510FIL := EXECBLOCK("TK510FIL",.F.,.F.)
TMKA510A.PRW - TRANSFER() -> EXECBLOCK("TK510ATG",.F.,.F.,{LALTEROU,(CALIAS)->ADE_CODIGO,CAGENTFROM,CAGENTTO})
TMKA510A.PRW - TRANSFER() -> IF !(VALTYPE(LVLDTRF := EXECBLOCK("TK510ATRF", .F., .F., { (CALIAS)->ADE_CODIGO, CAGENTFROM, CAGENTTO } )) == "L")
TMKA510I.PRW - TK510ISEL2GR() -> ARETORNO := EXECBLOCK("TK510ICPO", .F., .F.)
TMKA510L.PRW - SENDWFTEMPLATE() -> LRETPEITE:=EXECBLOCK("TK510LIT",.F.,.F.,SX3->X3_CAMPO)
TMKA510L.PRW - TK510LRETWF() -> EXECBLOCK("TK510LWFRE", .F., .F., {CCODIGO, SKW->KW_CODIGO})
TMKA530B.PRW - FINDSEVERITY() -> ANEWSEVERI := EXECBLOCK("TK530DTH", .F., .F., {DDATAEXPIR,CHORAEXPIR})
TMKA530B.PRW - FINDSEVERITY() -> ARETDTHR := EXECBLOCK("TK530FSC", .F., .F., {DDATAEXPIR,CHORAEXPIR,ASEVERIDADES[NCOUNT][5],CTIMESHIFT})
TMKA530B.PRW - FINDSEVERITY() -> NNEWSOMAHS := EXECBLOCK("TK530HRE", .F., .F., { NSOMAHS })
TMKA530B.PRW - UPDATE() -> NNEWSOMAHS := EXECBLOCK("TK530HRE", .F., .F., { NSOMAHS })
TMKA710.PRW - CHKINOUT() -> ARET := EXECBLOCK("TK710AGE",.F.,.F.,{"AOF",AESTRTMP})
TMKA710.PRW - CHKINOUT() -> ARET := EXECBLOCK("TK710AGE",.F.,.F.,{STR0040,AESTRTMP})
TMKC010.PRW - TK010MONTAPANEL() -> ABTNENT := EXECBLOCK("TK10CBTE",.F.,.F.)
TMKC010.PRW - TK010MONTAPANEL() -> APANUSR := EXECBLOCK("TK10PNUS",.F.,.F.)
TMKXFUN.PRW - TKENTCONTATO() -> LRET := EXECBLOCK("TMKENTCO",.F.,.F.,{CENT,CCODENT})
TMKXFUNA.PRW - TKALTCT() -> LFILSU5 := EXECBLOCK("TKFILCONT",.F.,.F.)
TMKXFUNA.PRW - TKINCCT() -> LFILSU5 := EXECBLOCK("TKFILCONT",.F.,.F.)
TMKXFUNB.PRW - TKGRVCAMP() -> LPERGUNTA := EXECBLOCK("TKMSGCAM",.F.,.F.,{APARSCRIPT})
TMKXFUNC.PRW - TK271GRVCPY() -> ARETCPOS :=EXECBLOCK("TK271NCPY",.F.,.F.)
TMKXFUNC.PRW - TK271GRVCPY() -> EXECBLOCK("TK271FCPY", .F., .F., {CNUMATE, CNOVOATE})
TMKXFUNE.PRW - BUSCACONTATO() -> ARETBUSCON := EXECBLOCK( "TKBUSCON" , .F. , .F. , { ACONTATOS } )
TMKXFUNE.PRW - TKATUACOLS() -> CFILPE := EXECBLOCK("TKCONTQRY",.F.,.F.,{CENTIDADE})
TMKXFUNE.PRW - TKENTALT() -> LALTOK := EXECBLOCK("TKENTBTA",.F.,.F.,{CENTIDADE,CCODIGO,CLOJA})
TMKXFUNE.PRW - TKENTSEL() -> ARETPE := EXECBLOCK("TKVLSELE",.F.,.F.,{ACNPJ})
TMKXFUNE.PRW - TKVLDENT() -> IF !EXECBLOCK( "TKENTUSR" , .F. , .F. , { CENTIDADE , CCODIGO+CLOJA } )
TMSA010.PRW - MENUDEF() -> EXECBLOCK("TMA010MNU",.F.,.F.)
TMSA010.PRW - TMSA010BAR() -> ASOMABUTTONS:=EXECBLOCK('TM010BUT',.F.,.F.,{NOPCX})
TMSA010.PRW - TMSA010MNT() -> EXECBLOCK('TMA010GRV',.F.,.F.,NOPCX)
TMSA010.PRW - TMSA010MNT() -> LRET := EXECBLOCK("TMA010HIS",.F.,.F.,{NOPCX,DT0->DT0_TABFRE,DT0->DT0_TIPTAB})
TMSA010.PRW - TMSA010OK() -> LRETURN:=EXECBLOCK("TMA010TOK",.F.,.F.)
TMSA010A.PRW - POSVLDMDL() -> LRETURN:=EXECBLOCK("TMA010TOK",.F.,.F.)
TMSA010A.PRW - TMA010COMM() -> EXECBLOCK('TMA010GRV',.F.,.F.,NOPC)
TMSA010A.PRW - VIEWDEF() -> ASOMABUTTONS:=EXECBLOCK('TM010BUT',.F.,.F.,{AOPC[NCNTFOR]})
TMSA010A.PRW - VLDACTIV() -> LRET := EXECBLOCK("TMA010HIS",.F.,.F.,{OMODEL:GETOPERATION(),DT0->DT0_TABFRE,DT0->DT0_TIPTAB})
TMSA011.PRW - MENUDEF() -> EXECBLOCK("TMA011MNU",.F.,.F.)
TMSA011.PRW - TMSA011BAR() -> ASOMABUTTONS:=EXECBLOCK('TM011BUT',.F.,.F.,{NOPCX})
TMSA011.PRW - TMSA011MIN() -> ACPOSVIS := EXECBLOCK("TMSA011MIN", .F., .F., ACPOSVIS)
TMSA011.PRW - TMSA011OK() -> LRETURN:=EXECBLOCK("A011TUDOK",.F.,.F.)
TMSA017.PRW - MENUDEF() -> AROTUSER := EXECBLOCK("TA017BRW",.F.,.F.)
TMSA029.PRW - MENUDEF() -> EXECBLOCK("TMS29MNU",.F.,.F.)
TMSA029.PRW - TMSA029OBJ() -> EXECBLOCK("TM040LIB",.F.,.F.)
TMSA040.PRW - MENUDEF() -> EXECBLOCK("TM040MNU",.F.,.F.)
TMSA040.PRW - MENUDEF() -> { STR0051 ,'EXECBLOCK("RTMSR10",.F.,.F.,{DT4->DT4_FILORI,DT4->DT4_NUMCOT})',0,10,0,NIL},;
TMSA040.PRW - TMSA040APR() -> LAPRCOT := EXECBLOCK('TM040APR',.F.,.F.,{ NOPCX })
TMSA040.PRW - TMSA040ATZ() -> EXECBLOCK('TM040ATZ',.F.,.F.,{NTVALPAS,NTVALIMP,NTVALTOT,NQTDVOL,NQTDUNI,NPESO,NPESOM3,NVALMER,NMETRO3})
TMSA040.PRW - TMSA040ATZ() -> LFOBDIR := EXECBLOCK("TMA040FOB",.F.,.F.,{M->DT4_CLIDES,M->DT4_LOJDES,M->DT4_CLIREM,M->DT4_LOJREM})
TMSA040.PRW - TMSA040ATZ() -> NNEWFATCUB := EXECBLOCK("TM040FCB" ,.F.,.F.,{NFATCUB})
TMSA040.PRW - TMSA040ATZ() -> NPESOPTO := EXECBLOCK( "TM040CUB",.F.,.F.,{CCLIDEV, CLOJDEV, NPESOM3, NPESO, M->DT4_TIPFRE, M->DT4_SERVIC, M->DT4_TIPTRA, M->DT4_SERTMS,M->DT4_CODNEG } )
TMSA040.PRW - TMSA040BLQ() -> LRET := EXECBLOCK('TM040BLQ',.F.,.F.)
TMSA040.PRW - TMSA040CLI() -> ACLIDEV := EXECBLOCK('TMS040CLI',.F.,.F.,{CCLIDEV, CLOJDEV })
TMSA040.PRW - TMSA040COL() -> EXECBLOCK('TM040COL',.F.,.F.)
TMSA040.PRW - TMSA040DSC() -> LALTVALFEC:=EXECBLOCK("TM040DSC",.F.,.F.)
TMSA040.PRW - TMSA040GRV() -> EXECBLOCK('TM040GRV',.F.,.F.,{NOPCX})
TMSA040.PRW - TMSA040IMP() -> CPRDIMPOLD := EXECBLOCK("TM040PRD",.F.,.F.,{CPRDIMP,CDOCTMS,CCDRORI,CCDRDES})
TMSA040.PRW - TMSA040IMP() -> CTESESP := EXECBLOCK('TM040TES',.F.,.F.,{AREGRA, CCLIREM, CLOJREM, AREGRA[ 1 ], AFRETE[NCNTFOR,3], CCLIDEV, CLOJDEV })
TMSA040.PRW - TMSA040IMP() -> NALIQICM := EXECBLOCK("TM040ICM",.F.,.F., { CCDRORI, CCDRDES, CCLIDEV, CLOJDEV } )
TMSA040.PRW - TMSA040IMP() -> NBASICM := EXECBLOCK("TM040BICM",.F.,.F.,{NBASICM, CCDRORI, CCDRDES, CCLIDEV, CLOJDEV })
TMSA040.PRW - TMSA040INI() -> LRETPE:=EXECBLOCK("TM040ALT",.F.,.F.,{DT4->DT4_FILORI,DT4->DT4_NUMCOT,DT4->DT4_STATUS,LCOPIA})
TMSA040.PRW - TMSA040LIB() -> EXECBLOCK("TM040LIB",.F.,.F.)
TMSA040.PRW - TMSA040MNT() -> ADELBUTTONS := EXECBLOCK("TM040DSB",.F.,.F.,{ABUTTONS,NOPCX})
TMSA040.PRW - TMSA040MNT() -> ASOMABUTTONS:=EXECBLOCK("TM040BUT",.F.,.F.,{NOPCX})
TMSA040.PRW - TMSA040MNT() -> EXECBLOCK("TM040COP",.F.,.F.)
TMSA040.PRW - TMSA040MNT() -> EXECBLOCK('TM040CFA',.F.,.F.)
TMSA040.PRW - TMSA040MNT() -> LRET := EXECBLOCK('TM040GRCOL',.F.,.F.,{NOPCX})
TMSA040.PRW - TMSA040MNT() -> { STR0051 ,'EXECBLOCK("RTMSR10",.F.,.F.,{DT4->DT4_FILORI,DT4->DT4_NUMCOT})',0,8},;
TMSA040.PRW - TMSA040TIP() -> LFOBDIR := EXECBLOCK("TMA040FOB",.F.,.F.,{M->DT4_CLIDES,M->DT4_LOJDES,M->DT4_CLIREM,M->DT4_LOJREM})
TMSA040.PRW - TMSA040TOK() -> LRET := EXECBLOCK('TM040TOK',.F.,.F.,{NOPCX})
TMSA040.PRW - TMSA040VLD() -> LFOBDIR := EXECBLOCK("TMA040FOB",.F.,.F.,{M->DT4_CLIDES,M->DT4_LOJDES,M->DT4_CLIREM,M->DT4_LOJREM})
TMSA040.PRW - TMSA040VLD() -> NFTCUB := EXECBLOCK("TM040FCB" ,.F.,.F.,{NFATCUBADO})
TMSA050.PRW - A050ATUDVU() -> EXECBLOCK("TM050DVU",.F.,.F.,{NX})
TMSA050.PRW - A050ATUEDI() -> EXECBLOCK('TM050EDI',.F.,.F.)
TMSA050.PRW - A050ESTCFEC() -> CQUERY:= EXECBLOCK("TMS050EOQ",.F.,.F., {CQUERY})
TMSA050.PRW - A050QRYDE5() -> ACPOS := EXECBLOCK("TMCPOEDI",.F.,.F.)
TMSA050.PRW - A050QRYDE5() -> CQUERY := EXECBLOCK( 'TM050QRED', .F., .F., { CQUERY, CCGCREM, CFILDPC, CCTRDPC } )
TMSA050.PRW - A050VLDSBE() -> LRET := EXECBLOCK("TMA050END",.F.,.F., {CLOCAL, CLOCALIZ} )
TMSA050.PRW - MENUDEF() -> EXECBLOCK("TMA050MN",.F.,.F.)
TMSA050.PRW - SELEITCF() -> EXECBLOCK("TMA050SEL",.F.,.F.,{LRET})
TMSA050.PRW - SELEITCF() -> LRETCOT := EXECBLOCK("TMA050CTA",.F.,.F.,)
TMSA050.PRW - TM050GRVAG() -> EXECBLOCK("TM050DF1",.F.,.F.,{DF1->DF1_NUMAGE,DF1->DF1_ITEAGE})
TMSA050.PRW - TMS050AFIL() -> AFILUSU := EXECBLOCK("TMA050FIL",.F.,.F.,{ACABDTC[18,2],ACABDTC[20,2],ACABDTC[22,2]})
TMSA050.PRW - TMS050COL() -> CFILTRO1 := EXECBLOCK('TM050FSC',.F.,.F.)
TMSA050.PRW - TMSA050() -> CFILMBRPE := EXECBLOCK("TM050FBR",.F.,.F.)
TMSA050.PRW - TMSA050ALI() -> ARET := EXECBLOCK("TMA050PAR",.F.,.F., {CCDRDES,AFILALI} )
TMSA050.PRW - TMSA050COR() -> ARET := EXECBLOCK("TMA050COR",.F.,.F., {ACORES})
TMSA050.PRW - TMSA050DEV() -> LRET := EXECBLOCK('TM050DEV',.F.,.F.)
TMSA050.PRW - TMSA050EDI() -> ACPOS := EXECBLOCK("TMCPOEDI",.F.,.F.)
TMSA050.PRW - TMSA050EDI() -> ANFEDI := EXECBLOCK("TMS050FIL",.F.,.F.,{AITEDI})
TMSA050.PRW - TMSA050FRE() -> LOK := EXECBLOCK('TMA050FOB',.F.,.F.,{M->DTC_CLIDES, M->DTC_LOJDES, M->DTC_CLIREM, M->DTC_LOJREM})
TMSA050.PRW - TMSA050GRAVA() -> EXECBLOCK("TMA050END",.F.,.F., {NOPCX})
TMSA050.PRW - TMSA050GRAVA() -> EXECBLOCK("TMA050EXC",.F.,.F., {ANFSEXC,LRET})
TMSA050.PRW - TMSA050GRAVA() -> EXECBLOCK("TMA050FIM",.F.,.F., {NOPCX})
TMSA050.PRW - TMSA050GRAVA() -> EXECBLOCK("TMA050GRV")
TMSA050.PRW - TMSA050GRAVA() -> EXECBLOCK("TMS050DE5",.F.,.F.)
TMSA050.PRW - TMSA050GRAVA() -> LCONTCAN := EXECBLOCK("TM050SOL",.F.,.F.)
TMSA050.PRW - TMSA050MNT() -> ACPOS := EXECBLOCK("TMA050CPO",.F.,.F. )
TMSA050.PRW - TMSA050MNT() -> ASOMABUTTONS:=EXECBLOCK('TM050BUT',.F.,.F.,{NOPCX})
TMSA050.PRW - TMSA050MNT() -> CCPOREP := EXECBLOCK('TM050REP',.F.,.F.)
TMSA050.PRW - TMSA050MNT() -> EXECBLOCK("TM050COP",.F.,.F. )
TMSA050.PRW - TMSA050MNT() -> EXECBLOCK('TM050GRD',.F.,.F.,{NOPCX})
TMSA050.PRW - TMSA050MNT() -> LRET := EXECBLOCK('TM050INI',.F.,.F.,{NOPCX})
TMSA050.PRW - TMSA050NF() -> LRET := EXECBLOCK('TMA050NFC',.F.,.F.,{ M->DTC_FILORI, CNUMNFC, CSERNFC, M->DTC_CLIREM, M->DTC_LOJREM, CCODPRO })
TMSA050.PRW - TMSA050OBSCLI() -> EXECBLOCK("TM050OBS",.F.,.F.,{@ODLGOBS,@OGETOBS})
TMSA050.PRW - TMSA050SDV() -> LMOSTRAMSG := EXECBLOCK('TMA050MSG',.F.,.F.,{CCLIREM,CLOJREM,CCLIDES,CLOJDES,CCLIDEV,CLOJDEV,;
TMSA050.PRW - TMSA050TUDOK() -> LRET := EXECBLOCK("TMA050COT",.F.,.F.,{LRET,NTOTVOLCF,NTOTVOLNF,NTOTVALCF,NTOTVALNF,NTOTPESCF,NTOTPESNF,NTOTPM3CF,NTOTPM3NF,NKMCF,NKMNF})
TMSA050.PRW - TMSA050TUDOK() -> LRET := EXECBLOCK("TMA050PCO",.F.,.F., {M->DTC_CLIREM, M->DTC_LOJREM, CNUMNFC, CSERNFC, CCODPRO, M->DTC_NUMCOT, "2" })
TMSA050.PRW - TMSA050TUDOK() -> LRET := EXECBLOCK('TM050PES',.F.,.F.,{NTOTPESNF})
TMSA050.PRW - TMSA050TUDOK() -> LRET := EXECBLOCK('TM050TOK',.F.,.F.,{NOPCX,ODLG, ARATPESM3, AVALINF})
TMSA050.PRW - TMSA050TUDOK() -> LRET := EXECBLOCK('TMA050NFC',.F.,.F.,{ M->DTC_FILORI, CNUMNFC, CSERNFC, M->DTC_CLIREM, M->DTC_LOJREM, CCODPRO })
TMSA050.PRW - TMSA050TUDOK() -> LVLDCOT := EXECBLOCK("TM050VCT",.F.,.F.,{NTOTVOLNF, NTOTVALNF, NTOTPESNF, NTOTPM3NF, NKMNF, NTOTPMT3NF, CSEEK})
TMSA050.PRW - TMSA050VLD() -> EXECBLOCK('TM050GET',.F.,.F.)
TMSA050.PRW - TMSA050VLD() -> LCLRCOT := EXECBLOCK("TM050CCC",.F.,.F.)
TMSA050.PRW - TMSA050VLD() -> LRET := EXECBLOCK("TMA050PCO",.F.,.F., {M->DTC_CLIREM, M->DTC_LOJREM, CNUMNFC, CSERNFC, CCODPRO, M->DTC_NUMCOT, "1" })
TMSA050.PRW - VLDSTSCOL() -> CSTATUSPE := EXECBLOCK('TM050COL',.F.,.F.)
TMSA050.PRW - VLDSTSCOL() -> LRETPE := EXECBLOCK("TMVIACOL",.F.,.F.,{CFILVIA,CVIAGEM,M->DTC_FILCFS,M->DTC_NUMSOL})
TMSA070.PRW - A070NOFLDG() -> ACAMPOS := EXECBLOCK('TM070NCP',.F.,.F.,{NOPCX})
TMSA070.PRW - A070YESFLD() -> ACAMPOS := EXECBLOCK('TM070ECP',.F.,.F.,{NOPCX})
TMSA070.PRW - COMMITMDL() -> EXECBLOCK('TM070GRV',.F.,.F.,{NOPCX})
TMSA070.PRW - GETNATUDEB() -> CNATUDEB := EXECBLOCK('TM250PAR',.F.,.F.,{3})
TMSA070.PRW - POSVLDMDL() -> LRETPE:=EXECBLOCK("TMA070TOK",.F.,.F.,{NOPCX})
TMSA070.PRW - RET240BCO() -> LMOVBCOCHQ := EXECBLOCK('TM240BCO',.F.,.F.,{ CCODBCO ,CAGENCIA ,CNUMCON , CNUMCHQ , NVALOR })
TMSA070.PRW - VIEWDEF() -> ASOMABUTTONS:=EXECBLOCK('TM070BUT',.F.,.F.,{NOPCX})
TMSA080.PRW - MENUDEF() -> EXECBLOCK("TM080MNU",.F.,.F.)
TMSA130.PRW - MENUDEF() -> EXECBLOCK("TMA130MNU",.F.,.F.)
TMSA130.PRW - POSVLDMDL() -> LAUX := EXECBLOCK("TMA010HIS",.F.,.F.,{OMODEL:GETOPERATION(),DTL->DTL_TABFRE,DTL->DTL_TIPTAB})
TMSA130.PRW - POSVLDMDL() -> LRET:=EXECBLOCK("TMA130TOK",.F.,.F.)
TMSA130.PRW - VIEWDEF() -> ASOMABUTTONS:=EXECBLOCK('TM130BUT',.F.,.F.,{AOPC[NCNTFOR]})
TMSA130.PRW - VLDACTIV() -> LAUX := EXECBLOCK("TMA010HIS",.F.,.F.,{5,DTL->DTL_TABFRE,DTL->DTL_TIPTAB})
TMSA140.PRW - MENUD140() -> AROTADIC := EXECBLOCK("TM140ROT",.F.,.F.)
TMSA140.PRW - TMSA140GRV() -> EXECBLOCK("TM141EST",.F.,.F.,{M->DTR_FILORI,M->DTR_VIAGEM})
TMSA140.PRW - TMSA140GRV() -> EXECBLOCK('TM140DUD',.F.,.F.,{NOPCX, DUD->DUD_FILDOC, DUD->DUD_DOC, DUD->DUD_SERIE, NDOCTO})
TMSA140.PRW - TMSA140GRV() -> EXECBLOCK('TM140GRV',.F.,.F.,{NOPCX})
TMSA140.PRW - TMSA140MNT() -> IF VALTYPE(AUSBUTTONS:=EXECBLOCK('TMSA1401',.F.,.F.))=='A'
TMSA140.PRW - TMSA140MRK() -> LRETPE := EXECBLOCK("TM140COK",.F.,.F.,{ADOCTO[OLBXDOCTO:NAT]})
TMSA140.PRW - TMSA140PAR() -> LRETPE := EXECBLOCK("TM140PAR",.F.,.F.)
TMSA140.PRW - TMSA140TOK() -> LRET:=EXECBLOCK("TMS140VLD",.F.,.F.,{NOPCX})
TMSA141.PRW - := PROCNAME()() -> CFILMBRPE := EXECBLOCK("TM141FIL",.F.,.F.)
TMSA141.PRW - := PROCNAME()() -> EXECBLOCK("TM141FIM",.F.,.F.)
TMSA141.PRW - MENUD141() -> EXECBLOCK("TM141MNU",.F.,.F.)
TMSA141.PRW - TMSA141ADD() -> AENDESTPE := EXECBLOCK("TM141END",.F.,.F.,{(CALIASNEW)->DUD_FILDOC,(CALIASNEW)->DUD_DOC,(CALIASNEW)->DUD_SERIE})
TMSA141.PRW - TMSA141ADD() -> LADDDOC := EXECBLOCK("TM141ADD",.F.,.F., {(CALIASNEW)->DUD_FILDOC ,(CALIASNEW)->DUD_DOC ,(CALIASNEW)->DUD_SERIE ,NOPCX ,LVGEMOD2 ,CROTA ,CZONA,CSETOR })
TMSA141.PRW - TMSA141GRV() -> EXECBLOCK("TM141EST",.F.,.F.,{M->DTR_FILORI,M->DTR_VIAGEM})
TMSA141.PRW - TMSA141GRV() -> EXECBLOCK('TM141DUD',.F.,.F.,{NOPCX, DUD->DUD_FILDOC, DUD->DUD_DOC, DUD->DUD_SERIE, NDOCTO})
TMSA141.PRW - TMSA141GRV() -> EXECBLOCK('TM141FGRV',.F.,.F.,{NOPCX,LRET})
TMSA141.PRW - TMSA141GRV() -> EXECBLOCK('TM141GRV',.F.,.F.,{NOPCX})
TMSA141.PRW - TMSA141MNT() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( 'TMSA1411', .F., .F. ) ) == 'A'
TMSA141.PRW - TMSA141MNT() -> IF VALTYPE( AUSHDOCTO := EXECBLOCK( 'TM141COL', .F., .F. ) ) <> 'A'
TMSA141.PRW - TMSA141MRK() -> LRETPE := EXECBLOCK("TM141COK",.F.,.F.,{ADOCTO[OLBXDOCTO:NAT]})
TMSA141.PRW - TMSA141PAR() -> LRETPE := EXECBLOCK("TM141PAR",.F.,.F.)
TMSA141.PRW - TMSA141TOK() -> LRET:=EXECBLOCK("TMS141VLD",.F.,.F.,{NOPCX})
TMSA142.PRW - TMSA142PRC() -> ARET := EXECBLOCK("TM142VLD",.F.,.F.,{AVEICULOS, AMOTORISTAS})
TMSA142.PRW - TMSA142PRC() -> EXECBLOCK("TM142GRV",.F.,.F., AVIAGEM)
TMSA142.PRW - TMSA142PRC() -> LOK :=EXECBLOCK("TM142ATZ",.F.,.F.)
TMSA144.PRW - := PROCNAME()() -> CFILMBRPE := EXECBLOCK("TM144FIL",.F.,.F.)
TMSA144.PRW - GATDOCTO() -> LRETGDOC:= EXECBLOCK('TM144DOCR',.F.,.F.,{(CALIAS)->DFV_NUMRED, (CALIAS)->DFV_FILDOC, (CALIAS)->DFV_DOC, (CALIAS)->DFV_SERIE })
TMSA144.PRW - MENUD144() -> EXECBLOCK("TMA144MNU",.F.,.F.)
TMSA144.PRW - TMSA144COL() -> EXECBLOCK("TM144INC",.F.,.F.,{CSERTMSDOC,NCNTFOR,ACLONE(ACOLS)})
TMSA144.PRW - TMSA144DA7() -> ARETPE := EXECBLOCK("TM144ROK",.F.,.F.,{CFILDOC,CDOC,CSERIE,CROTA,LHELP,LRET})
TMSA144.PRW - TMSA144DA7() -> CCEPUSR := EXECBLOCK("TM144CEP",.F.,.F.,{CCEP,CTIPTRAN})
TMSA144.PRW - TMSA144DC() -> IF VALTYPE( AUSHDOCTO := EXECBLOCK( 'TM144CDC', .F., .F. ) ) <> 'A'
TMSA144.PRW - TMSA144DC() -> LCTETRA := EXECBLOCK("TMCTEEXP",.F.,.F.)
TMSA144.PRW - TMSA144DOC() -> EXECBLOCK("TM144BKP",.F.,.F.,{NCNTFOR})
TMSA144.PRW - TMSA144EXP() -> EXECBLOCK("TM144EEX",.F.,.F.,{ DTQ->DTQ_FILORI, DTQ->DTQ_VIAGEM, NESTORNO })
TMSA144.PRW - TMSA144GRV() -> ARETPELOT := EXECBLOCK("TM144LOT",.F.,.F., ACLONE(ARETTELA[4]))
TMSA144.PRW - TMSA144GRV() -> CNUMLOTPE := EXECBLOCK("TM144LOT",.F.,.F., CNUMLOT)
TMSA144.PRW - TMSA144ICH() -> EXECBLOCK( 'RTMSR13', .F., .F.)
TMSA144.PRW - TMSA144ICT() -> EXECBLOCK( 'RTMSR06', .F., .F.)
TMSA144.PRW - TMSA144LOK() -> LRET := EXECBLOCK('TM144GOK',.F.,.F.)
TMSA144.PRW - TMSA144LOK() -> LRET:= EXECBLOCK("TM144LOK",.F.,.F.)
TMSA144.PRW - TMSA144MNT() -> AALTER := EXECBLOCK("TM144MEA",.F.,.F.,{AALTER})
TMSA144.PRW - TMSA144MNT() -> ACPOS := EXECBLOCK( 'TM144CPO', .F., .F., {ACPOS} )
TMSA144.PRW - TMSA144MNT() -> AUSRFIELDS := EXECBLOCK( 'TMA144OFL', .F., .F.,ACLONE(AYESFIELDS) )
TMSA144.PRW - TMSA144MNT() -> EXECBLOCK("TM144KM2",.F.,.F.,{NKMVIA,NOPCX})
TMSA144.PRW - TMSA144MNT() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( 'TMA144BUT', .F., .F. ) ) == 'A'
TMSA144.PRW - TMSA144MNT() -> IF VALTYPE( AUSHDOCTO := EXECBLOCK( 'TM144CLN', .F., .F. ) ) <> 'A'
TMSA144.PRW - TMSA144MNT() -> LCONTVIA := EXECBLOCK("TM144INI",.F.,.F.,{NOPCX})
TMSA144.PRW - TMSA144MNT() -> LLIMGRID := EXECBLOCK("TM144GRD",.F.,.F.,{1,NOPCX,CSERTMS,CTIPTRA})
TMSA144.PRW - TMSA144MNT() -> LRET := EXECBLOCK("TM144EXC", .F.,.F.,{NOPCX})
TMSA144.PRW - TMSA144SUB() -> CRETPE:=EXECBLOCK("TM144FOPE",.F.,.F.)
TMSA144.PRW - TMSA144TOK() -> LRET:=EXECBLOCK("TMS144VLD",.F.,.F.,{NOPCX})
TMSA144.PRW - TMSA144WHE() -> LRET := EXECBLOCK("TM144WHE",.F.,.F.,{CCAMPO})
TMSA144.PRW - TMSCONSDF1() -> IF VALTYPE( AUSRCOL := EXECBLOCK( 'TM144COL', .F., .F. ) ) <> 'A'
TMSA145.PRW - TMSA145QRY() -> LRETPE := EXECBLOCK("TM145FIL",.F.,.F.,{"2",CALIASQRY})
TMSA146.PRW - TMSA146LOT() -> ARETPELOT := EXECBLOCK("TM146LOT",.F.,.F., ACLONE(ALOTESRAT))
TMSA150.PRW - TMSA150SER() -> CFILSX5 := EXECBLOCK("CHGX5FIL",.F.,.F.)
TMSA180.PRW - TMSA180() -> CRETPE:= EXECBLOCK('TMA180FIL',.F.,.F.,DUE->DUE_CDRSOL)
TMSA180.PRW - TMSA180() -> EXECBLOCK('TM180FIM',.F.,.F.)
TMSA190.PRW - TMSA190IMP() -> EXECBLOCK("RTMSR04",.F.,.F.,{CFILORI,CVIAGEM,CFILMAN_DE,CFILMAN_ATE,CMANIFE_DE,CMANIFE_ATE})
TMSA190.PRW - TMSA190IMP() -> EXECBLOCK("RTMSR32",.F.,.F.,{CFILORI,CVIAGEM,CVIAGEM,CFILMAN_DE,CFILMAN_ATE,CMANIFE_DE,CMANIFE_ATE,CSERIE_DE,CSERIE_ATE})
TMSA190.PRW - TMSA190IMP() -> EXECBLOCK("RTMSR34",.F.,.F.,{CFILORI,CVIAGEM,CVIAGEM,CFILMAN_DE,CFILMAN_ATE,CMANIFE_DE,CMANIFE_ATE,CSERIE_DE,CSERIE_ATE})
TMSA190.PRW - TMSA190MNT() -> LRET := EXECBLOCK("TM190EXC",.F.,.F.)
TMSA190.PRW - TMSA190MNT() -> LRET := EXECBLOCK("TMA190TOK",.F.,.F.)
TMSA190.PRW - TMSA190MNT() -> LRET := EXECBLOCK('TMMANVIAG',.F.,.F.)
TMSA190.PRW - TMSA190NUM() -> CCOND := EXECBLOCK("TMS190MAN",.F.,.F.,{AMANIFESTOS})
TMSA190.PRW - TMSA190PROC() -> AVGACLG := EXECBLOCK('TM190CLG',.F.,.F.,{AVGACOLIG})
TMSA190.PRW - TMSA190PROC() -> EXECBLOCK("TM190FIM",.F.,.F.)
TMSA190.PRW - TMSA190PROC() -> EXECBLOCK("TM190GRV",.F.,.F.)
TMSA190.PRW - TMSA190PROC() -> LRET :=EXECBLOCK('TM190FIL',.F.,.F.)
TMSA190.PRW - TMSA190SER() -> CRET := EXECBLOCK('TM190NUM',.F.,.F.)
TMSA200.PRW - MENUDEF() -> EXECBLOCK("TM200MNU",.F.,.F.)
TMSA200.PRW - TM200VERCOT() -> LRETPE := EXECBLOCK('TM200COT',.F.,.F.,{NVLTOTCOT, NQTDVOL, NVALOR, NPESO, NPESOM3, NSEGURO, NQTDUNI, CSEEKDVF})
TMSA200.PRW - TMS200MOK() -> LRET := EXECBLOCK("TM200MOK",.F.,.F.,{ADOCEXC})
TMSA200.PRW - TMSA2001CT() -> AVLRINF := EXECBLOCK('TMSVLINF',.F.,.F.,{ALOTE[NCNTFOR,LTCLICAL], ALOTE[NCNTFOR,LTLOJCAL], ALOTE[NCNTFOR,LTSERVIC], ALOTE[NCNTFOR,LTCODNEG], ALOTE[ NCNTFOR, LTTIPFRE ], DTP->DTP_FILORI, ALOTE[ NCNTFOR, LTNUMNFC ], ALOTE[ NCNTFOR, LTSERNFC ], ALOTE[ NCNTFOR, LTCODPRO ]})
TMSA200.PRW - TMSA2001CT() -> CCDRPER := EXECBLOCK("TM200PER",.F.,.F.,{ .T., ALOTE[ NCNTFOR, LTCDRORI ], ALOTE[ NCNTFOR, LTCDRDES ], ALOTE[ NCNTFOR, LTCLIDEV ], ALOTE[ NCNTFOR, LTLOJDEV ],NCNTFOR })
TMSA200.PRW - TMSA2001CT() -> NPESOPTO := EXECBLOCK("TM200CUB",.F.,.F.,{ALOTE[ NCNTFOR, LTCLIDEV ], ALOTE[ NCNTFOR, LTLOJDEV ], NPESOM3, NPESO, ALOTE[ NCNTFOR, LTTIPFRE ], ALOTE[ NCNTFOR, LTSERVIC ], ALOTE[ NCNTFOR, LTTIPTRA ], ALOTE[ NCNTFOR, LTSERTMS ], ALOTE[NCNTFOR,LTCLICAL],ALOTE[NCNTFOR,LTLOJCAL],ALOTE[NCNTFOR,LTCODNEG] })
TMSA200.PRW - TMSA2001NF() -> CCPAGPV:= EXECBLOCK("TM200CPG",.F.,.F.,{CCLIENTE,CLOJA,CCPAGPV,(CALIASDTC)->DTC_SERVIC,(CALIASDTC)->DTC_CODNEG})
TMSA200.PRW - TMSA2001NF() -> NNFCTRCPE := EXECBLOCK("TM200NFC",.F.,.F.,{ALOTE[ NCNTFOR, LTNUMNFC ], ALOTE[ NCNTFOR, LTSERNFC ], ALOTE[ NCNTFOR, LTCLIREM ], ALOTE[ NCNTFOR, LTLOJREM ], ALOTE[ NCNTFOR, LTCLIDES ], ;
TMSA200.PRW - TMSA200ATU() -> CFILAUX := EXECBLOCK("TM200DEB",.F.,.F.,{CCLIDEV,CLOJDEV,CTIPTRA,CTIPFRE,CFILDEB})
TMSA200.PRW - TMSA200ATU() -> DDATAENT := IIF (VALTYPE(DDTTM200 := EXECBLOCK('TM200DAT',.F.,.F.,{DDATAENT,CCDRPRZ,CHORABASE,ATMPENT,CTIPTRA,CCDRORI,CCLIDEV,CLOJDEV,CCDRCAL }))=="D",DDTTM200,DDATAENT )
TMSA200.PRW - TMSA200ATU() -> DDTTM200 := EXECBLOCK('TM200DAT',.F.,.F.,{DDATAENT,CCDRPRZ,CHORABASE,ATMPENT,CTIPTRA,CCDRORI,;
TMSA200.PRW - TMSA200ATU() -> DDTTM200 := EXECBLOCK('TM200PRZ',.F.,.F.,{CCDRORI,CCDRPRZ,CTIPTRA,;
TMSA200.PRW - TMSA200ATU() -> EXECBLOCK('TM200DT6',.F.,.F.,{DT6->DT6_FILDOC, DT6->DT6_DOC, DT6->DT6_SERIE})
TMSA200.PRW - TMSA200ATU() -> EXECBLOCK('TM200DUD',.F.,.F.,{DUD->DUD_FILDOC, DUD->DUD_DOC, DUD->DUD_SERIE})
TMSA200.PRW - TMSA200ATU() -> EXECBLOCK('TM200FIM',.F.,.F.,{DT6->DT6_FILDOC, DT6->DT6_DOC, DT6->DT6_SERIE})
TMSA200.PRW - TMSA200ATU() -> EXECBLOCK('TM200SE1',.F.,.F.,{CCLIDEV,CLOJDEV,CPREFIXO,SF2->F2_DOC})
TMSA200.PRW - TMSA200ATZ() -> EXECBLOCK("TM200BLQ",.F.,.F.)
TMSA200.PRW - TMSA200CMP() -> LRET := EXECBLOCK("TM200EST",.F.,.F.)
TMSA200.PRW - TMSA200COT() -> CCDRCAL := EXECBLOCK( "TM200CAL" , .F. , .F. , {CCDRCAL} )
TMSA200.PRW - TMSA200CTR() -> AVLRINF := EXECBLOCK('TMSVLINF',.F.,.F.,{ALOTE[NCNTFOR,LTCLICAL], ALOTE[NCNTFOR,LTLOJCAL], ALOTE[NCNTFOR,LTSERVIC], ALOTE[NCNTFOR,LTCODNEG], ALOTE[ NCNTFOR, LTTIPFRE ], DTP->DTP_FILORI, ALOTE[ NCNTFOR, LTNUMNFC ], ALOTE[ NCNTFOR, LTSERNFC ], ALOTE[ NCNTFOR, LTCODPRO ]})
TMSA200.PRW - TMSA200CTR() -> CCDRORI := EXECBLOCK("TM200PER",.F.,.F.,{ .F., ALOTE[ NCNTFOR, LTCDRORI ], ALOTE[ NCNTFOR, LTCDRDES ], ALOTE[ NCNTFOR, LTCLIDEV ], ALOTE[ NCNTFOR, LTLOJDEV ], NCNTFOR })
TMSA200.PRW - TMSA200CTR() -> NPESOPTO := EXECBLOCK("TM200CUB",.F.,.F.,{ALOTE[ NCNTFOR, LTCLIDEV ], ALOTE[ NCNTFOR, LTLOJDEV ], NPESOM3, NPESO, ALOTE[ NCNTFOR, LTTIPFRE ], ALOTE[ NCNTFOR, LTSERVIC ], ALOTE[ NCNTFOR, LTTIPTRA ], ALOTE[ NCNTFOR, LTSERTMS ], ALOTE[NCNTFOR,LTCLICAL],ALOTE[NCNTFOR,LTLOJCAL],ALOTE[NCNTFOR,LTCODNEG] })
TMSA200.PRW - TMSA200DOC() -> CCDRDES := EXECBLOCK("TM200PER",.F.,.F.,{ .T., ALOTE[ NCNTFOR, LTCDRORI ], ALOTE[ NCNTFOR, LTCDRDES ], ALOTE[ NCNTFOR, LTCLIDEV ], ALOTE[ NCNTFOR, LTLOJDEV ],NCNTFOR })
TMSA200.PRW - TMSA200DOC() -> CCDRORI := EXECBLOCK("TM200PER",.F.,.F.,{ .F., ALOTE[ NCNTFOR, LTCDRORI ], ALOTE[ NCNTFOR, LTCDRDES ], ALOTE[ NCNTFOR, LTCLIDEV ], ALOTE[ NCNTFOR, LTLOJDEV ],NCNTFOR })
TMSA200.PRW - TMSA200DOC() -> CSEQUEN := EXECBLOCK("TM200SEQ",.F.,.F.,{ ANFCTRC, CLOTNFC })
TMSA200.PRW - TMSA200DOC() -> LINVCTR := EXECBLOCK("TM200ICT",.F.,.F.,{ ALOTE[NCNTFOR,LTSERVIC], ALOTE[NCNTFOR,LTCODNEG] }) .AND.;
TMSA200.PRW - TMSA200EST() -> EXECBLOCK("TM200CAN",.F.,.F.)
TMSA200.PRW - TMSA200EST() -> EXECBLOCK("TM200DEL",.F.,.F.,ADELDOCTO)
TMSA200.PRW - TMSA200EST() -> LRET := EXECBLOCK("TM200OK",.F.,.F.,{3})
TMSA200.PRW - TMSA200EXC() -> EXECBLOCK('TM200EXC',.F.,.F.)
TMSA200.PRW - TMSA200EXC() -> EXECBLOCK('TM200REM',.F.,.F.)
TMSA200.PRW - TMSA200EXC() -> LQBRLOT := EXECBLOCK("TM200GLO",.F.,.F.,{ADELDOCTO})
TMSA200.PRW - TMSA200GRV() -> APEPVW := EXECBLOCK('TM200PW01',.F.,.F.,{ACLONE(APREVIEW),CLOTNFC})
TMSA200.PRW - TMSA200GRV() -> NPERPE:= EXECBLOCK("TM200ISS",.F.,.F.,{CSERVIC,CTIPTRA,CLOTNFC,CCLICAL,CLOJCAL,CCLIREM,CLOJREM,CCLIDES,CLOJDES,CCODNEG})
TMSA200.PRW - TMSA200GRV() -> NTHREADS := EXECBLOCK("TM200THR",.F.,.F.,{NTHREADS})
TMSA200.PRW - TMSA200IMP() -> EXECBLOCK("RTMSR01",.F.,.F.)
TMSA200.PRW - TMSA200IMP() -> EXECBLOCK("RTMSR17",.F.,.F.)
TMSA200.PRW - TMSA200LIB() -> CSERIEOLD := EXECBLOCK("TM200SER",.F.,.F.,{ DT6->DT6_CLICAL, DT6->DT6_LOJCAL, DT6->DT6_DOCTMS })
TMSA200.PRW - TMSA200LOT() -> CQBRCALC := EXECBLOCK("TM200LOT", .F., .F., { ACLONE(ACAMPOS) } )
TMSA200.PRW - TMSA200LOT() -> CQBRDIVG2 := EXECBLOCK("TM200CLR",.F.,.F.,{ (CALIASDTC)->DTC_CODPRO, (CALIASDTC)->DTC_NUMNFC, (CALIASDTC)->DTC_SERNFC, (CALIASDTC)->DTC_DOC,(CALIASDTC)->DTC_SERIE,@AVETDIV,CQBRDIVG })
TMSA200.PRW - TMSA200LTE() -> EXECBLOCK('TM200LTE',.F.,.F., { CLOTNFC })
TMSA200.PRW - TMSA200MNT() -> DDATABASE := EXECBLOCK("TM200DT",.F.,.F.,DDATABASE)
TMSA200.PRW - TMSA200MNT() -> EXECBLOCK("TM200CAN",.F.,.F.)
TMSA200.PRW - TMSA200MNT() -> LRET:= EXECBLOCK("TM200NUM",.F.,.F.)
TMSA200.PRW - TMSA200NFC() -> CCODPROOLD := EXECBLOCK("TM200PRD",.F.,.F.,{CCODPRO,CDOCTMS, ((CALIASDTC)->DTC_CDRORI), ((CALIASDTC)->DTC_CDRDES), ((CALIASDTC)->DTC_CDRCAL), ((CALIASDTC)->DTC_RECNO)})
TMSA200.PRW - TMSA200NFC() -> CCPAGPV:= EXECBLOCK("TM200CPG",.F.,.F.,{CCLICAL,CLOJCAL,CCPAGPV,(CALIASDTC)->DTC_SERVIC,(CALIASDTC)->DTC_CODNEG})
TMSA200.PRW - TMSA200NFC() -> CDOCPE := EXECBLOCK("TM200DOC",.F.,.F.,{CDOCTMS,(CALIASDTC)->DTC_CDRORI, (CALIASDTC)->DTC_CDRDES, (CALIASDTC)->DTC_CDRCAL })
TMSA200.PRW - TMSA200NFC() -> CFILPE := EXECBLOCK("CHGX5FIL",.F.,.F.)
TMSA200.PRW - TMSA200NFC() -> CRET := EXECBLOCK("TM200FIL",.F.,.F.)
TMSA200.PRW - TMSA200NFC() -> CSERIEOLD := EXECBLOCK("TM200SER",.F.,.F.,{CCLICAL,CLOJCAL,CDOCTMS})
TMSA200.PRW - TMSA200NFC() -> NNFCTRCPE := EXECBLOCK("TM200NFC",.F.,.F.,{(CALIASDTC)->DTC_NUMNFC,(CALIASDTC)->DTC_SERNFC,(CALIASDTC)->DTC_CLIREM,(CALIASDTC)->DTC_LOJREM,(CALIASDTC)->DTC_CLIDES,(CALIASDTC)->DTC_LOJDES, ;
TMSA200.PRW - TMSA200PRC() -> ARET := EXECBLOCK("TM200CTR",.F.,.F.,{ NNUMCTRC })
TMSA200.PRW - TMSA200PRC() -> EXECBLOCK("TM200PRC",.F.,.F.,{CFILORI, CLOTNFC, LRET, LRECALCULO, (LRTMSR01 .OR. LRTMSR17) })
TMSA200.PRW - TMSA200PRC() -> LRET := EXECBLOCK("TM200OK",.F.,.F.,{IF(LRECALCULO,2,1)})
TMSA200.PRW - TMSA200REC() -> DDATABASE := EXECBLOCK("TM200DT",.F.,.F.,DDATABASE)
TMSA200.PRW - TMSA200REC() -> EXECBLOCK("TM200CAN",.F.,.F.)
TMSA200.PRW - TMSA200SRV() -> CRET := EXECBLOCK("TM200FIL",.F.,.F.)
TMSA200.PRW - TMSA200THG() -> AADD( ACAB, { 'C5_GRPCLI', EXECBLOCK("TM200FIS",.F.,.F., { CCLIDEV, CLOJDEV, 1, .T. } ) , NIL } )
TMSA200.PRW - TMSA200THG() -> APEITENS := EXECBLOCK('TM200BICM',.F.,.F.,{AITENS})
TMSA200.PRW - TMSA200THG() -> ATMCALFR:=EXECBLOCK('TM200QBR',.F.,.F.,{APRODUTO[NCNTPRO,2],NQTDVOL,NVALOR,NPESO,NPESOM3,NMETRO3,NSEGURO,NNFCTRC,NQTDUNI,ADOCTO[NCNTFOR,10,42],CCLIDEV,CLOJDEV,CCDRORI,CCDRDES,APRODUTO[NCNTPRO,1],CSERVIC,ADOCTO[NCNTFOR,10,28],ADOCTO[NCNTFOR,10,29],ADOCTO[NCNTFOR,10,30],ANFCTRC,CCODNEG})
TMSA200.PRW - TMSA200THG() -> CFILSX5 := EXECBLOCK("CHGX5FIL",.F.,.F.)
TMSA200.PRW - TMSA200THG() -> CSERCTE := EXECBLOCK("TM200SCTE",.F.,.F.,{CCLIDEV,CLOJDEV,CDOCTMS,CTES})
TMSA200.PRW - TMSA200THG() -> CTESESP := EXECBLOCK('TM200TES',.F.,.F.,{ANFCTRC, CCLIREM, CLOJREM, AREGRA[ 1 ], AFRETE[N2CNT,3], CCLIDEV, CLOJDEV })
TMSA200.PRW - TMSA200THG() -> DDATABASE := EXECBLOCK("TM200DT",.F.,.F.,DDATABASE)
TMSA200.PRW - TMSA200THG() -> LRETCALISS := EXECBLOCK("TM200IISS",.F.,.F.,{AFRETE,CDOCTMS})
TMSA200.PRW - TMSA200TRA() -> LRET := EXECBLOCK("TMCTEEXP",.F.,.F.)
TMSA200.PRW - TMSGERADOC() -> CTEXTO+= EXECBLOCK("TM200SD2",.F.,.F. )
TMSA200.PRW - TMSGERADOC() -> CTEXTOSF2 += 'EXECBLOCK("TM200FIS",.F.,.F.,{ SF2->F2_CLIENTE, SF2->F2_LOJA, NX, .F. })'
TMSA200.PRW - TMSGERADOC() -> CTEXTOSF2 += EXECBLOCK("TM200NFS",.F.,.F., {CCLIDEST,CLOJDEST})
TMSA200B.PRW - TMS200BSCR() -> ABUTUSU := EXECBLOCK("TM200BUT",.F.,.F.,)
TMSA200B.PRW - TMS200BSCR() -> ACOLSUSU := EXECBLOCK("TM200CPO",.F.,.F.,{2,ACLONE(ACOLSWRK),ACLONE(APVW[NCNT1])})
TMSA210.PRW - A210GERDTW() -> LGERACAR := EXECBLOCK("TM210CAR",.F.,.F.,{CSERVIC})
TMSA210.PRW - MENUD210() -> EXECBLOCK("TM210MNU",.F.,.F.)
TMSA210.PRW - TMSA210GRV() -> EXECBLOCK("TM210GRV",.F.,.F., { NOPC, M->DTA_FILORI, M->DTA_VIAGEM })
TMSA210.PRW - TMSA210GRV() -> LRETPE := EXECBLOCK('TM210VCTE',.F.,.F.)
TMSA210.PRW - TMSA210LOK() -> LRETPE := EXECBLOCK('TM210LOK',.F.,.F.,{OGETD:NOPC})
TMSA210.PRW - TMSA210TOK() -> LRETPE := EXECBLOCK('TM210TOK',.F.,.F.,{NOPCX})
TMSA210.PRW - TMSA210VAL() -> LRETPE := EXECBLOCK('TM210VCTE',.F.,.F.)
TMSA220.PRW - MENUDEF() -> EXECBLOCK("TMA220MNU",.F.,.F.)
TMSA220.PRW - TMSA220GRAVA() -> EXECBLOCK('TMA220GRV',.F.,.F.,{NOPCX})
TMSA220.PRW - TMSA220TOK() -> LRET := EXECBLOCK('TM220TOK',.F.,.F.,{NOPCX})
TMSA240.PRW - A240GERADT() -> CNATUDEB := EXECBLOCK('TM250PAR',.F.,.F.,{3})
TMSA240.PRW - A240GERADT() -> LMOVBCOCHQ := EXECBLOCK('TM240BCO',.F.,.F.,{ ADADOSBCO[NCNTFOR][1],ADADOSBCO[NCNTFOR][2],ADADOSBCO[NCNTFOR][3],ADADOSBCO[NCNTFOR][4],ADADOSBCO[NCNTFOR][5] })
TMSA240.PRW - AADTOTUDOK() -> LRET := EXECBLOCK('TMA240ADT',.F.,.F.,{NOPCX,NTOTAL,ASAVCOLS[NSAVN][NPOSVALFRE]})
TMSA240.PRW - ACOMPLVIAG() -> AADCPO:= EXECBLOCK("TM240ADCPO",.F.,.F.,)
TMSA240.PRW - AMOTTUDOK() -> LRET := EXECBLOCK('TM240MOTOK',.F.,.F.)
TMSA240.PRW - MENUDEF() -> EXECBLOCK("TMA240MNU",.F.,.F.)
TMSA240.PRW - TA240ADTO() -> AADCPO:= EXECBLOCK("TM240ADCPO",.F.,.F.,)
TMSA240.PRW - TA240ADTO() -> AADTO:= EXECBLOCK("TM240ADTO",.F.,.F.)
TMSA240.PRW - TMSA240GRV() -> EXECBLOCK('TMA240GRV',.F.,.F.,{NOPC,LRET})
TMSA240.PRW - TMSA240MNT() -> AALTER := EXECBLOCK('TMSA2402',.F.,.F.,AALTER)
TMSA240.PRW - TMSA240MNT() -> AALTERA := EXECBLOCK('TMSA2402',.F.,.F.,AALTERA)
TMSA240.PRW - TMSA240MNT() -> ANOFIELDS := EXECBLOCK('TMSA2404',.F.,.F.,ANOFIELDS)
TMSA240.PRW - TMSA240MNT() -> ASOMABUTTONS:=EXECBLOCK('TM240BUT',.F.,.F.,{NOPCX})
TMSA240.PRW - TMSA240MNT() -> AVISUAL := EXECBLOCK('TMSA2401',.F.,.F.,AVISUAL)
TMSA240.PRW - TMSA240MNT() -> AYESFIELDS := EXECBLOCK('TMSA2403',.F.,.F.,AYESFIELDS)
TMSA240.PRW - TMSA240MOT() -> AALTER := EXECBLOCK('TMSA2402',.F.,.F.,AALTER)
TMSA240.PRW - TMSA240TOK() -> LRET := EXECBLOCK('TM240TUDOK',.F.,.F.,{NOPCX})
TMSA240.PRW - TMSA240VLD() -> AALTER := EXECBLOCK('TMSA2402',.F.,.F.,AALTER)
TMSA240.PRW - TMSA240VLD() -> CTM240OPE := EXECBLOCK('TM240OPE',.F.,.F.,{DTQ->DTQ_FILORI, DTQ->DTQ_VIAGEM, DTQ->DTQ_SERTMS})
TMSA240.PRW - TMSA240VLD() -> LRETPE := EXECBLOCK('TMS240VLD',.F.,.F.,{CCAMPO, LRET})
TMSA250.PRW - A250DELDTY() -> EXECBLOCK('T250PER',.F.,.F.,{ CFILORI , CVIAGEM , CNUMCTC })
TMSA250.PRW - A250DELDTY() -> EXECBLOCK('TM250EST',.F.,.F.,{CNUMCTC, LRET})
TMSA250.PRW - A250DETNAT() -> CNATUREZ := EXECBLOCK('TM250PAR',.F.,.F.,{1})
TMSA250.PRW - A250FRECAL() -> EXECBLOCK('TM250PRC',.F.,.F.,{CCODFORN,CLOJFORN,CCODVEI,NVALFRETE,DTQ->DTQ_FILORI,DTQ->DTQ_VIAGEM,CCODMOT})
TMSA250.PRW - A250TITPDG() -> ACMPSE2 := EXECBLOCK( "TM250FNC", .F., .F. )
TMSA250.PRW - A250TITTAX() -> ACMPSE2 := EXECBLOCK( "TM250FNC", .F., .F. )
TMSA250.PRW - A250VLCOPG() -> CCONDPAG := EXECBLOCK('TM250COND',.F.,.F.)
TMSA250.PRW - A250VLDNAT() -> CNATUDEB := EXECBLOCK('TM250PAR',.F.,.F.,{3})
TMSA250.PRW - A250VLDNAT() -> CNATUPDG := EXECBLOCK('TM250PAR',.F.,.F.,{2})
TMSA250.PRW - COMMITMDL() -> CCODDESCTC := EXECBLOCK('TM250DESP',.F.,.F.,{5})
TMSA250.PRW - MENUDEF() -> EXECBLOCK("TM250MNU",.F.,.F.)
TMSA250.PRW - PGBRELFIN() -> EXECBLOCK("RTMSR37",.F.,.F.)
TMSA250.PRW - POSVLDMDL() -> LRET := EXECBLOCK('TM250TOK',.F.,.F.)
TMSA250.PRW - POSVLDMDL() -> LRETPE:= EXECBLOCK('TM250VIS',.F.,.F.,{NOPCX})
TMSA250.PRW - RETNATUCTC() -> CNATUCTC := EXECBLOCK('TM250PAR',.F.,.F.,{1})
TMSA250.PRW - T250GERDTY() -> EXECBLOCK("TM250GR1",.F.,.F.,{AHEADERAED,ACOLSAED})
TMSA250.PRW - TM250CLINS() -> NRETPE := EXECBLOCK("F050INBR",.F.,.F.,M->E2_VALOR)
TMSA250.PRW - TM250CLISS() -> NRETPE := EXECBLOCK("F050PISS",.F.,.F.)
TMSA250.PRW - TM250SE2AD() -> ACMPSE2 := EXECBLOCK( "TM250FNC", .F., .F. )
TMSA250.PRW - TMA250DELTIT() -> LBLQUSU := EXECBLOCK("TM250BLQ",.F.,.F.,{LMSBLQL,5})
TMSA250.PRW - TMA250VERCAL() -> LCONTINUA := EXECBLOCK('TMA250FIL',.F.,.F., {(CALIASTRB)->DTQ_FILORI, (CALIASTRB)->DTQ_VIAGEM, NOPCX} )
TMSA250.PRW - TMSA250AED() -> APEPVW := EXECBLOCK('TM250ACRDE',.F.,.F.,{ACLONE(AALTER)})
TMSA250.PRW - TMSA250COM() -> CCONDPAG := EXECBLOCK('TM250COND',.F.,.F.)
TMSA250.PRW - TMSA250COM() -> CNATUDEB := EXECBLOCK('TM250PAR',.F.,.F.,{3})
TMSA250.PRW - TMSA250COM() -> EXECBLOCK('TM250DTY',.F.,.F.)
TMSA250.PRW - TMSA250COM() -> LRET := EXECBLOCK('TM250CNT',.F.,.F.,{DTY->DTY_FILORI})
TMSA250.PRW - TMSA250FILDEB() -> EXECBLOCK('TM250DEB',.F.,.F.)
TMSA250.PRW - TMSA250IMP() -> CNATUCTC := EXECBLOCK('TM250PAR',.F.,.F.,{1})
TMSA250.PRW - TMSA250MNT() -> CRETPE := EXECBLOCK("TM250IND",.F.,.F.,{CFILTRO})
TMSA250.PRW - TMSA250MNT() -> EXECBLOCK( 'TM250FIM', .F., .F., {} )
TMSA250.PRW - TMSA250MNT() -> EXECBLOCK('TM250PER',.F.,.F.)
TMSA250.PRW - TMSA250POK() -> IF VALTYPE( ATM250CUS := EXECBLOCK("TM250CUS",.F., .F., ATM250CUS) ) == "A"
TMSA250.PRW - TMSA250POK() -> LRET := EXECBLOCK("TM250POK",.F.,.F.)
TMSA250.PRW - TMSA250PRC() -> APARAM := EXECBLOCK('TMA250PAR',.F.,.F.,{NOPCX})
TMSA250.PRW - TMSA250PRC() -> CCODDESCTC := EXECBLOCK('TM250DESP',.F.,.F.,{NOPCX})
TMSA250.PRW - TMSA250PRC() -> CCONDPAG := EXECBLOCK('TM250COND',.F.,.F.)
TMSA250.PRW - TMSA250PRC() -> CFROCAR := EXECBLOCK('TMA250VEI',.F.,.F.,{CFROVEI})
TMSA250.PRW - TMSA250PRC() -> EXECBLOCK('TM250CMP',.F.,.F.,{ADADOSPECP})
TMSA250.PRW - TMSA250PRC() -> EXECBLOCK('TM250FIM',.F.,.F.,ACTCGER)
TMSA250.PRW - TMSA250PRC() -> EXECBLOCK('TMA250GRV',.F.,.F.)
TMSA250.PRW - TMSA250PRC() -> LCONTINUA := EXECBLOCK('TMA250FIL',.F.,.F., {DTQ->DTQ_FILORI, DTQ->DTQ_VIAGEM, NOPCX} )
TMSA250.PRW - TMSA250PVW() -> ATEMP := EXECBLOCK("TM250PBT",.F.,.F.,{ABUTTONS,ARETFRT})
TMSA250.PRW - TMSA250PVW() -> ATEMP := EXECBLOCK("TM250PCP",.F.,.F.,{ACLONE(ACAMPOS)})
TMSA250.PRW - TMSA250PVW() -> ATEMP := EXECBLOCK('TM250PED',.F.,.F.,{ACLONE(AALTER)})
TMSA250.PRW - TMSA250PVW() -> LRET := EXECBLOCK("TM250CT1",.F.,.F.,{CCODFORN,CLOJFORN,CCODMOT,CFILORI,CVIAGEM,CCODVEI,CTABFRE,CTIPTAB,CTABCAR,NVALFRETE,NTOTVALADI,;
TMSA250.PRW - TMSA250SE2() -> ACMPSE2 := EXECBLOCK( "TM250FNC", .F., .F. )
TMSA250.PRW - TMSA250SE2() -> CNATUCTC := EXECBLOCK('TM250PAR',.F.,.F.,{1})
TMSA250.PRW - TMSA250SE2() -> CPAGAMEN := EXECBLOCK('TM250COND',.F.,.F.)
TMSA250.PRW - TMSA250SE2() -> LBLQUSU := EXECBLOCK("TM250BLQ",.F.,.F.,{LMSBLQL,3})
TMSA250.PRW - TMSA250SLD() -> APARAM := EXECBLOCK('TM250BCO',.F.,.F.)
TMSA250.PRW - TMSA250SLD() -> EXECBLOCK("TM250SLD",.F.,.F.,{ DTY->DTY_FILIAL, DTY->DTY_VIAGEM, CNRCONTR })
TMSA250.PRW - TMSA250SLD() -> IF !EXECBLOCK("TM250VLD",.F.,.F.,{ DTY->DTY_FILORI, DTY->DTY_VIAGEM})
TMSA250.PRW - VIEWDEF() -> ABUTTMP := EXECBLOCK('TM250BUT',.F.,.F.,{OMODEL:GETOPERATION()})
TMSA251.PRW - MENUDEF() -> EXECBLOCK("TMA251MNU",.F.,.F.)
TMSA251.PRW - TMA251AUT() -> EXECBLOCK('TM251OPE',.F.,.F.,{CCODOPE, CFILORI, CVIAGEM, CCONTRAT, CCODVEI, OXML, LQUITACAO})
TMSA251.PRW - TMSA251PRC() -> CCONDPAG := EXECBLOCK('TM250COND',.F.,.F.)
TMSA251.PRW - TMSA251PRC() -> CNATUDEB := EXECBLOCK('TM251PAR',.F.,.F.,{3})
TMSA251.PRW - TMSA251PRC() -> CNATUPDG := EXECBLOCK('TM251PAR',.F.,.F.,{2})
TMSA251.PRW - TMSA251PRC() -> EXECBLOCK('TM251EST',.F.,.F.,{ ACONTRATOS })
TMSA251.PRW - TMSA251PRC() -> EXECBLOCK('TM251LIB',.F.,.F.,{ ACONTRATOS })
TMSA251.PRW - TMSA251PRC() -> LRET := EXECBLOCK('TM251CAN',.F.,.F., {(CALIASQRY)->DTY_FILORI, (CALIASQRY)->DTY_VIAGEM, (CALIASQRY)->DTY_NUMCTC } )
TMSA251.PRW - TMSA251PRC() -> LRETPE := EXECBLOCK('TM251CON',.F.,.F.,{(CALIASQRY)->DTY_NUMCTC,(CALIASQRY)->DTY_FILORI,(CALIASQRY)->DTY_VIAGEM})
TMSA252.PRW - TMSA252PRO() -> EXECBLOCK("TM252CAL",.F.,.F.,{CFILORI,CVIAGEM})
TMSA252.PRW - TMSA252PRO() -> LRET := EXECBLOCK("TMA252CPL",.F.,.F.,{LRET})
TMSA280.PRW - MENUDEF() -> EXECBLOCK("TMA280MNU",.F.,.F.)
TMSA280.PRW - TMSA280GRV() -> LRET := EXECBLOCK("TMA280GRV",.F.,.F.,{NOPCX})
TMSA300.PRW - MENUDEF() -> EXECBLOCK("TM300MNU",.F.,.F.)
TMSA310.PRW - A310INTREP() -> LINTPGB:= EXECBLOCK( 'TM310IPGB', .F., .F., { DTQ->DTQ_FILORI, DTQ->DTQ_VIAGEM } )
TMSA310.PRW - A310SVCENT() -> LGERACAR := EXECBLOCK("TM210CAR",.F.,.F.,{CSERVIC})
TMSA310.PRW - MENUD310() -> EXECBLOCK("TMA310MNU",.F.,.F.)
TMSA310.PRW - TMSA310EST() -> EXECBLOCK('TMA310GER',.F.,.F., {5, CFILORI, CVIAGEM} )
TMSA310.PRW - TMSA310EST() -> LCONTINUA := EXECBLOCK('TMA310GRV',.F.,.F., {5, CFILORI, CVIAGEM} )
TMSA310.PRW - TMSA310GRV() -> ARETPE:= EXECBLOCK("TM310OCO",.F.,.F., {COCOREE})
TMSA310.PRW - TMSA310GRV() -> EXECBLOCK('TMA310GER',.F.,.F.,{3, DTQ->DTQ_FILORI, DTQ->DTQ_VIAGEM,LFECAUTO} )
TMSA310.PRW - TMSA310GRV() -> IF !LTM310FFL .OR. EXECBLOCK("TM310FFL",.F.,.F.,{AFILDCA[NA,3],""})
TMSA310.PRW - TMSA310GRV() -> LADDSERVIC := EXECBLOCK("TM310FFL",.F.,.F.,{ DC6->DC6_FILATI, DC6->DC6_ATIVID })
TMSA310.PRW - TMSA310GRV() -> LAUTREE := EXECBLOCK('TM310AUT',.F.,.F.,{DTQ->DTQ_FILORI,DTQ->DTQ_VIAGEM})
TMSA310.PRW - TMSA310GRV() -> LCONTINUA := EXECBLOCK('TMA310GRV',.F.,.F.,{3, DTQ->DTQ_FILORI, DTQ->DTQ_VIAGEM,LFECAUTO} )
TMSA310.PRW - TMSA310GRV() -> LRET := EXECBLOCK('TMA310DTW',.F.,.F.,{3, DTQ->DTQ_FILORI, DTQ->DTQ_VIAGEM,LFECAUTO} )
TMSA310.PRW - TMSA310MNT() -> LOK := EXECBLOCK('TM310TOK',.F.,.F.,NOPCX)
TMSA320.PRW - MENUDEF() -> EXECBLOCK("TM320MNU",.F.,.F.)
TMSA320.PRW - TM320TUDOK() -> LRET := EXECBLOCK('TM320TOK',.F.,.F.,{ NOPCX,AMANIFE })
TMSA320.PRW - TMSA320ALT() -> LGRVNFE := EXECBLOCK('TM320NFE',.F.,.F.)
TMSA320.PRW - TMSA320DD7() -> CAUX:= EXECBLOCK("TMA320DD7",.F.,.F.,{CCODREG , CCAMPO })
TMSA320.PRW - TMSA320EFE() -> EXECBLOCK('TM320GRV',.F.,.F., NOPCX )
TMSA320.PRW - TMSA320EFE() -> LCONTINUA:= EXECBLOCK('TM320EFET',.F.,.F., { NOPCX , DTV->DTV_FILIAL, CNROPROV , DTV->DTV_DIGAWB , DTV->DTV_CODCIA , DTV->DTV_LOJCIA } )
TMSA320.PRW - TMSA320GRAVA() -> EXECBLOCK('TM320GRV',.F.,.F., NOPCX )
TMSA320.PRW - TMSA320GRAVA() -> LGRVNFE := EXECBLOCK('TM320NFE',.F.,.F.)
TMSA320.PRW - TMSA320MAN() -> IF VALTYPE( AUSHMAN := EXECBLOCK( 'TM320CMA', .F., .F. ) ) <> 'A'
TMSA330.PRW - MENUDEF() -> EXECBLOCK("TMA330MNU",.F.,.F.)
TMSA330.PRW - TMSA330FECH() -> CRETPE := EXECBLOCK('TM330PEQ',.F.,.F.,{ CQUERY })
TMSA330.PRW - TMSA330FECH() -> EXECBLOCK('TMAGRVDU9',.F.,.F.,{DU9->DU9_CODHIS,DU9->DU9_COMSEG,DU9->DU9_VALOR,CFILDOC })
TMSA330.PRW - TMSA330FECH() -> EXECBLOCK('TMGRVDU8',.F.,.F.,{DU8->DU8_DOCSEG,DU8->DU8_SERTMS,DU8->DU8_TIPTRA,DU8->DU8_CODFOR,DU8->DU8_LOJFOR })
TMSA330.PRW - TMSA330FECH() -> LRET := EXECBLOCK('TMA330FIL',.F.,.F.,{ (CALIASQRY)->DT6_FILDOC, (CALIASQRY)->DT6_DOC, (CALIASQRY)->DT6_SERIE })
TMSA340.PRW - MENUD340() -> EXECBLOCK("TMA340MNU",.F.,.F.)
TMSA340.PRW - T340VERDOC() -> NQTDPE := EXECBLOCK("TM340OCO",.F.,.F., {DUD->DUD_FILORI, DUD->DUD_VIAGEM, DUD->DUD_FILDOC, DUD->DUD_DOC, DUD->DUD_SERIE, NQTDDOC })
TMSA340.PRW - TMSA340GRV() -> LCONTINUA := EXECBLOCK('TMA340PRC',.F.,.F., { NOPCX })
TMSA340.PRW - TMSA340GRV() -> LRET := EXECBLOCK("TMA340TOK",.F.,.F., {CFILORI, CVIAGEM, LENCAUTO, NOPCX, CSERTMS, CTIPTRA} )
TMSA340.PRW - TMSA340GRV() -> LRET := EXECBLOCK('TMA340GRV',.F.,.F.)
TMSA340.PRW - TMSA340GRV() -> LRETPE := EXECBLOCK('TM340OPE',.F.,.F., { DTR->DTR_CODOPE, CFILORI, CVIAGEM, @AMSGERR, LFROTAPROP, NOPCX, LENCERRAR})
TMSA340.PRW - TMSA340MNT() -> EXECBLOCK("TM340MNT",.F.,.F.,{NOPCX,DTQ->DTQ_FILORI,DTQ->DTQ_VIAGEM })
TMSA340.PRW - TMSA340MNT() -> LCONTINUA := EXECBLOCK('TMA340PRC',.F.,.F., { NOPCX })
TMSA340.PRW - TMSA340MNT() -> LRETPE := EXECBLOCK('TM340OPE',.F.,.F., { DTR->DTR_CODOPE, CFILORI, CVIAGEM, @AMSGERR, LFROTAPROP, NOPCX, LCONTINUA})
TMSA350.PRW - A350TUDOK() -> LRET := EXECBLOCK('TMA350TOK',.F.,.F.,{NOPCX})
TMSA350.PRW - MENUD350() -> EXECBLOCK("TMA350MNU",.F.,.F.)
TMSA350.PRW - TMSA350EST() -> LRET := EXECBLOCK('TMA350EST',.F.,.F.,{NOPCX})
TMSA350.PRW - TMSA350GRV() -> LRET := EXECBLOCK('TM350GRV',.F.,.F.,{CFILORI, CVIAGEM, NOPCX, CATIVIDADE})
TMSA350.PRW - TMSA350GRV() -> LRET := EXECBLOCK('TM350VLD',.F.,.F.,{CFILORI, CVIAGEM, NOPCX})
TMSA350.PRW - TMSA350KM() -> ARET := EXECBLOCK('TM350KMA',.F.,.F.,{ACLONE(AALTER), LSAIDA})
TMSA350.PRW - TMSA350KM() -> ARET := EXECBLOCK('TM350KMO',.F.,.F.,{ACLONE(AHEADER), LSAIDA})
TMSA350.PRW - TMSA350KM() -> LOBRIG := EXECBLOCK("TM350OBB",.F.,.F.,{ACOLS})
TMSA350.PRW - TMSA350KMOK() -> LRET := EXECBLOCK('TM350TKM',.F.,.F.,{LSAIDA,GDFIELDGET(CCAMPO,N)})
TMSA350.PRW - TMSA350MNT() -> EXECBLOCK("TM350INI",.F.,.F.,{NOPCX})
TMSA350.PRW - TMSA350MNT() -> EXECBLOCK("TM350MNT",.F.,.F.,{IIF (NOPCA == 1, LRET, .F.), NOPCX, DTW->DTW_ATIVID, DTW->DTW_SERTMS, CFILORI, CVIAGEM})
TMSA350.PRW - TMSA350MNT() -> LRETCHE := EXECBLOCK('TM350CHGE',.F.,.F., {DTW->DTW_FILORI, DTW->DTW_VIAGEM, DTW->DTW_CATOPE, DTW->DTW_ATIVID})
TMSA360.PRW - MENUDEF() -> EXECBLOCK("TM360MNU",.F.,.F.)
TMSA360.PRW - TA360CONFEMB() -> ARETPE := EXECBLOCK("TM360CFE",.F.,.F.)
TMSA360.PRW - TMA360COLS() -> ADOC := EXECBLOCK('TM360DOC',.F.,.F.,{ADOC})
TMSA360.PRW - TMA360VLDOC() -> ARETPE:= EXECBLOCK("TM360OCO",.F.,.F., {COCORARM})
TMSA360.PRW - TMSA360EST() -> EXECBLOCK("TM360EST",.F.,.F.,{CFILOCO, CNUMOCO, CFILORI, CVIAGEM })
TMSA360.PRW - TMSA360EST() -> L360ARMZ := EXECBLOCK("TM360ARMZ",.F.,.F.)
TMSA360.PRW - TMSA360GRV() -> EXECBLOCK('TM360ITE',.F.,.F.,{ADOC,NA})
TMSA360.PRW - TMSA360LINOK() -> LRET := EXECBLOCK('TM360LOK',.F.,.F.,)
TMSA360.PRW - TMSA360MAIL() -> ATM360MAIL := EXECBLOCK('TM360MAIL',.F.,.F.,{ADESTE,ADESTI,ADOCS})
TMSA360.PRW - TMSA360MNT() -> AUSRBUTTONS := EXECBLOCK("TM360BUT",.F.,.F.,{NTMSOPCX})
TMSA360.PRW - TMSA360MNT() -> EXECBLOCK('TM360GRV',.F.,.F.,{NTMSOPCX,M->DUA_FILOCO,M->DUA_NUMOCO,M->DUA_FILORI,M->DUA_VIAGEM})
TMSA360.PRW - TMSA360PRE() -> ATM360AWB := EXECBLOCK('TM360AWB',.F.,.F.,{CASSUNTO,ADESTE})
TMSA360.PRW - TMSA360PRE() -> CMSG := EXECBLOCK('RTMSR26',,.F.,{NOPCA,CFILORI,CVIAGEM,CFILOCO,CNUMOCO,DDATPAR,CHORPAR,DDATCHG,CHORCHG,CNUMVOO})
TMSA360.PRW - TMSA360QRY() -> ARETPE:= EXECBLOCK("TM360OCO",.F.,.F., {COCORARM})
TMSA360.PRW - TMSA360RED() -> EXECBLOCK('TM360GRED',.F.,.F.,{NTMSOPCX, CFILDOC, CDOC, CSERIE, CCODOCO})
TMSA360.PRW - TMSA360SF() -> ARETPE := EXECBLOCK("TM360CSF",.F.,.F.)
TMSA360.PRW - TMSA360TOK() -> LRET := EXECBLOCK('TM360TOK',.F.,.F.,{NTMSOPCX})
TMSA370.PRW - MENUDEF() -> EXECBLOCK("TM370MNU",.F.,.F.)
TMSA370.PRW - TMSA370FRN() -> CNEWFORN := EXECBLOCK( 'TM370COD', .F., .F., CCGC )
TMSA370.PRW - TMSA370FRN() -> EXECBLOCK( 'TM370FRN', .F., .F., {CCGC ,SA2->A2_COD ,SA2->A2_LOJA} )
TMSA370.PRW - TMSA370GRV() -> EXECBLOCK('TM370GRV',.F.,.F.,{NTMSOPCX})
TMSA370.PRW - TMSA370MNT() -> EXECBLOCK('TM370CPO',.F.,.F.,{NTMSOPCX})
TMSA370.PRW - TMSA370TOK() -> LRET := EXECBLOCK('TM370TOK',.F.,.F.,{NTMSOPCX})
TMSA370.PRW - TMSA370TOT() -> EXECBLOCK('TM370COLS',.F.,.F.,{ACOLS,NTMSOPCX,NA})
TMSA400.PRW - MENUDEF() -> EXECBLOCK("TM400MNU",.F.,.F.)
TMSA400.PRW - TMSA400GRV() -> EXECBLOCK("TM400GRV",.F.,.F., {DUC->DUC_FILORI , DUC->DUC_VIAGEM, DUC->DUC_CODBLQ } )
TMSA400.PRW - TMSA400TOK() -> LRET := EXECBLOCK('TM400TOK',.F.,.F.,{NTMSOPCX, M->DUC_FILORI, M->DUC_VIAGEM})
TMSA400.PRW - VIEWDEF() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( 'TMA400BUT', .F., .F. ) ) == 'A'
TMSA430.PRW - MENUDEF() -> EXECBLOCK("TM430MNU",.F.,.F.)
TMSA430.PRW - TA430OK() -> LRETPE:= EXECBLOCK('TM430TOK',.F.,.F., { NOPC, ACOLSVEI, ACOLSMOT })
TMSA430.PRW - TMSA430DUV() -> EXECBLOCK("TM430DUV",.F.,.F.,{LSAIDA, CFILORI, CVIAGEM, DDATSAI})
TMSA430.PRW - TMSA430GRV() -> EXECBLOCK('TM430GRV',.F.,.F.,{NOPC,AVIAGENS})
TMSA440.PRW - COMMITMDL() -> EXECBLOCK('TM440GRV',.F.,.F.,{ NOPCX, M->DUE_CODSOL })
TMSA440.PRW - MENUDEF() -> EXECBLOCK("TM440MNU",.F.,.F.)
TMSA460.PRW - MENUDEF() -> EXECBLOCK("TM460MNU",.F.,.F.)
TMSA460.PRW - TMSA460COR() -> ARET := EXECBLOCK("TM460LEG",.F.,.F., {1,ACORES})
TMSA460.PRW - TMSA460GDC() -> EXECBLOCK("TM460CPO",.F.,.F.)
TMSA460.PRW - TMSA460GRAVA() -> EXECBLOCK('TMA460GRV',.F.,.F.,{NOPCX,M->DT5_FILORI,M->DT5_NUMSOL,LCREDITO})
TMSA460.PRW - TMSA460IMP() -> EXECBLOCK("RTMSR02",.F.,.F.)
TMSA460.PRW - TMSA460LEG() -> ARET := EXECBLOCK("TM460LEG",.F.,.F., {2,ALEGENDA})
TMSA460.PRW - TMSA460MNT() -> ACPOALT := EXECBLOCK('TM460ALT',.F.,.F.)
TMSA460.PRW - TMSA460MNT() -> ADELBUTTONS := EXECBLOCK("TM460DSB",.F.,.F.,{ABUTTONS,NOPCX})
TMSA460.PRW - TMSA460MNT() -> ASOMABUTTONS:=EXECBLOCK("TM460BUT",.F.,.F.,{NOPCX})
TMSA460.PRW - TMSA460MNT() -> EXECBLOCK('TMA460CAN',.F.,.F.,{NOPCX})
TMSA460.PRW - TMSA460TUDOK() -> LRET := EXECBLOCK('TM460TUDOK',.F.,.F.,{NOPCX})
TMSA461.PRW - MENUDEF() -> EXECBLOCK("TMA461MNU",.F.,.F.)
TMSA461.PRW - VIEWDEF() -> ACPOSPE := EXECBLOCK("TMA461CPO",.F.,.F. )
TMSA480.PRW - MENUDEF() -> EXECBLOCK("TM480MNU",.F.,.F.)
TMSA480.PRW - TMSA480TOK() -> LRET := EXECBLOCK("TM480TOK",.F.,.F.,{NOPCX} )
TMSA480.PRW - VIEWDEF() -> IF VALTYPE(AUSRBUTTONS := EXECBLOCK("TM480BUT", .F., .F., {AOPC[NI]})) == "A"
TMSA491.PRW - A491MNTFAT() -> ADOCSUSR := EXECBLOCK("TM491MNT",.F.,.F.,{ADOCS})
TMSA491.PRW - A491MNTFAT() -> LRET := EXECBLOCK('TM491QBR',.F.,.F., {ADOCS[NZ,CLDFILDOC], ADOCS[NZ,CLDDOC], ADOCS[NZ,CLDSERIE],CNUMSEQ})
TMSA491.PRW - MENUDEF() -> EXECBLOCK("TM491MNU",.F.,.F.)
TMSA491.PRW - TM491MAIL() -> ATM491MAIL := EXECBLOCK('TM491MAIL',.F.,.F.,{CSUBJECT,CBODY,ADESTE,AMSGSCH})
TMSA491.PRW - TMSA491CDOC() -> CPRFX := EXECBLOCK("TM850PREF",.F.,.F.)
TMSA491.PRW - TMSA491DET() -> ANATCLI := EXECBLOCK('TM491CLI',.F.,.F.,{AFATCLI[NLINHA][CLCOD],AFATCLI[NLINHA][CLLOJA],CNAT,CNATROD,CNATAER,CNATFLU,ADOCTOS})
TMSA491.PRW - TMSA491DTEMI() -> ADATAS := EXECBLOCK('TM491EMI',.F.,.F., {DDTAFILDE,DDTAFILATE,DDTAEMISSAO,CTIPFAT,LCONSTITANT,CALIASDT6} )
TMSA491.PRW - TMSA491GRVFAT() -> ANATCLI := EXECBLOCK('TM491CLI',.F.,.F.,{CCLI,_CLOJA,CNAT,CNATROD,CNATAER,CNATFLU,ADOCTOS})
TMSA491.PRW - TMSA491NAT() -> ANATCLI := EXECBLOCK('TM491NAT',.F.,.F.)
TMSA491.PRW - TMSA491QRY() -> ARETPE := EXECBLOCK("TM491TRV",.F.,.F., {CCHAVE})
TMSA491.PRW - TMSA491QRY() -> ATIPFAT := EXECBLOCK("TMTIPFAT",.F.,.F.,{CCLIDEV,CLOJDEV,CFILDEB})
TMSA491.PRW - TMSA491QRY() -> CCPOSUSR := EXECBLOCK('TM491CPO',.F.,.F., {1} )
TMSA491.PRW - TMSA491QRY() -> CPRFX := EXECBLOCK("TM850PREF",.F.,.F.)
TMSA491.PRW - TMSA491QRY() -> CRET := EXECBLOCK("TMFATJOI",.F.,.F., {CQUERY, .F.})
TMSA491.PRW - TMSA491QRY() -> CRETPE := EXECBLOCK("TMFATFIL",.F.,.F., {CQUERY, .F.})
TMSA491.PRW - TMSA491QRY() -> CTIPFATPE := EXECBLOCK("TM491TIP",.F.,.F.,{CCLIDEV,CLOJDEV, ATMA490[12] })
TMSA491.PRW - TMSA491QRY() -> CTIPFATPE := EXECBLOCK("TM491TIP",.F.,.F.,{CCLIDEV,CLOJDEV,MV_PAR12})
TMSA491.PRW - TMSA491QRY() -> LRET := EXECBLOCK( "TM491FAT",.F.,.F., ;
TMSA491.PRW - TMSA491THR() -> CRET :=EXECBLOCK("TMFATJOI",.F.,.F., {CQUERY, .F.})
TMSA491.PRW - TMSA491THR() -> CRETPE := EXECBLOCK("TMFATFIL",.F.,.F., {CQUERY, .F.})
TMSA500.PRW - A500ATUALI() -> EXECBLOCK("TMSA500ALI",.F.,.F.,{NMODO, M->DT6_FILDOC, M->DT6_DOC, M->DT6_SERIE, CPARCEIRO})
TMSA500.PRW - MENUDEF() -> EXECBLOCK("TM500MNU",.F.,.F.)
TMSA500.PRW - TMSA500ANU() -> LCONTRIB := EXECBLOCK("TM500CON",.F.,.F.)
TMSA500.PRW - TMSA500ANU() -> LRET := EXECBLOCK("TM500OK",.F.,.F.,{12})
TMSA500.PRW - TMSA500ARM() -> ARETPE:= EXECBLOCK("TM500OCO",.F.,.F., {COCOARM,''})
TMSA500.PRW - TMSA500DOC() -> EXECBLOCK('TM500DOC',.F.,.F.,{DT6->DT6_FILDOC, DT6->DT6_DOC, DT6->DT6_SERIE})
TMSA500.PRW - TMSA500DSC() -> LRETPE := EXECBLOCK("TM500DES",.F.,.F.,{NOPCX})
TMSA500.PRW - TMSA500FRT() -> ADESC := EXECBLOCK('TM500REE',.F.,.F.,{AFRETE})
TMSA500.PRW - TMSA500LOT() -> CRETLOT := EXECBLOCK('TM500LOT',.F.,.F.,{NOPCX,CLOTNFC})
TMSA500.PRW - TMSA500MNT() -> ABUTTMP := EXECBLOCK('TM500BUT',.F.,.F.,{NOPCX,ABUTTONS})
TMSA500.PRW - TMSA500MNT() -> ARETPE:= EXECBLOCK("TM500OCO",.F.,.F., {COCOARM,COCOREE})
TMSA500.PRW - TMSA500MNT() -> CCDRORI := EXECBLOCK("TM500ORI",.F.,.F.)
TMSA500.PRW - TMSA500MNT() -> EXECBLOCK("TM500DEL",.F.,.F.,ADELDOCTO)
TMSA500.PRW - TMSA500MNT() -> EXECBLOCK('TM500CPO',.F.,.F.,{NOPCX})
TMSA500.PRW - TMSA500MNT() -> EXECBLOCK('TM500MNT',.F.,.F.,{NOPCX})
TMSA500.PRW - TMSA500MNT() -> LCONTRIB := EXECBLOCK("TM500CON",.F.,.F.)
TMSA500.PRW - TMSA500MNT() -> LRET := EXECBLOCK("TM500OK",.F.,.F.,{NOPCX})
TMSA500.PRW - TMSA500MNT() -> LRETV01 := EXECBLOCK('TM500V01',.F.,.F.,{NOPCX})
TMSA500.PRW - TMSA500MNT() -> LRETV02 := EXECBLOCK('TM500V02',.F.,.F.,{NOPCX})
TMSA500.PRW - TMSA500SHOWGET() -> XPEVALOR := EXECBLOCK('TM500CP1',.F.,.F.,{NITEM})
TMSA500.PRW - TMSA500TOK() -> CFILSX5 := EXECBLOCK("CHGX5FIL",.F.,.F.)
TMSA500.PRW - TMSA500TOK() -> CSERIE := EXECBLOCK("TM200SER", .F. , .F. , {DT6->DT6_CLIDEV,DT6->DT6_LOJDEV})
TMSA500.PRW - TMSA500TOK() -> LRETPE:= EXECBLOCK("TM500TOK",.F.,.F., {NOPCX})
TMSA500.PRW - TMSA500TOK() -> LRETPE:= EXECBLOCK("TM500VLD",.F.,.F., {NOPCX,.F.})
TMSA500.PRW - TMSA500TR1() -> AOPEUSR := EXECBLOCK("TM500TR1",.F.,.F.,{AOPERA})
TMSA500.PRW - TMSA500TR3() -> AOCOUSR := EXECBLOCK("TM500TR3",.F.,.F.,{AOCOR})
TMSA500.PRW - TMSA500TRP() -> IF VALTYPE( LRETPE := EXECBLOCK('TM500BLQ',.F.,.F.)) <> "L"
TMSA500.PRW - TMSA500VLD() -> LRETPE := EXECBLOCK("TM500DEV",.F.,.F.,{NDESCON,NVALDIG,CCAMPO})
TMSA540.PRW - MENUDEF() -> EXECBLOCK("TM540MNU",.F.,.F.)
TMSA540.PRW - TMSA540GRV() -> EXECBLOCK('TM540GRV',.F.,.F.,{NOPCX})
TMSA540.PRW - TMSA540MNT() -> ABUTTMP := EXECBLOCK("TM540BUT",.F.,.F.,{NOPCX})
TMSA540.PRW - TMSA540MNT() -> LRET := EXECBLOCK("TM540VLD",.F.,.F.,{NOPCX})
TMSA540.PRW - TMSA540TOK() -> LRET := EXECBLOCK('TM540TOK',.F.,.F.,{NOPCX})
TMSA540.PRW - TMSA540TOK() -> LRET2 := EXECBLOCK('TM540TEN',.F.,.F.,{NOPCX})
TMSA550.PRW - MENUDEF() -> EXECBLOCK("TM550MNU",.F.,.F.)
TMSA590.PRW - TMSA590END() -> CARMAZEM := EXECBLOCK( 'TMALOCAL', .F., .F., { DY4_FILDOC, DY4_DOC, DY4_SERIE } )
TMSA595.PRW - TMA595COLS() -> ADADOSUSR := EXECBLOCK("TM595CPO",.F.,.F.,{CACAO,(CALIASNEW)->DUD_FILDOC,(CALIASNEW)->DUD_DOC,(CALIASNEW)->DUD_SERIE})
TMSA640.PRW - MENUDEF() -> EXECBLOCK("TM640MNU",.F.,.F.)
TMSA670.PRW - TMSA670EXP() -> EXECBLOCK('TM670GDVC',.F.,.F.)
TMSA670.PRW - TMSA670EXP() -> EXECBLOCK('TM670GDVD',.F.,.F.)
TMSA670.PRW - TMSA670EXP() -> EXECBLOCK('TM670GDVO',.F.,.F.)
TMSA670.PRW - TMSA670EXP() -> EXECBLOCK('TM670GDW2',.F.,.F.)
TMSA670.PRW - TMSA670EXP() -> EXECBLOCK('TM670GDWZ',.F.,.F.)
TMSA670.PRW - TMSA670EXP() -> EXECBLOCK('TM670GDY2',.F.,.F.)
TMSA680.PRW - TMSA680EXCL() -> LAUX := EXECBLOCK("TMA010HIS",.F.,.F.,{5,CTABELA,CTIPO})
TMSA690.PRW - TMSA690GRV() -> EXECBLOCK("TMALOGGRV",.F.,.F.,{ "DT0", "3", SUBSTR(CUSUARIO,7,15), 0 })
TMSA690.PRW - TMSA690TRB() -> EXECBLOCK('TM690GRC',.F.,.F.,{CALIAS, CALIASNEW})
TMSA690.PRW - TMSA690TRB() -> EXECBLOCK('TM690GRI',.F.,.F.,{CALIAS, CALIASNEW, NVALOR})
TMSA700.PRW - A700CTRSRV() -> ACONTRSERV:= EXECBLOCK("TMA700CLI",.F.,.F.,{ACONTRSERV})
TMSA750.PRW - MENUDEF() -> EXECBLOCK("TMA750MNU",.F.,.F.)
TMSA750.PRW - TMSA750GRV() -> ACLIENTE := EXECBLOCK("TMA750CLI",.F.,.F.,{ACLIENTE})
TMSA750.PRW - TMSA750GRV() -> EXECBLOCK("TMALOGGRV",.F.,.F.,{ "DVC", "3", CUSERNAME, 0 })
TMSA850.PRW - MENUDEF() -> EXECBLOCK("TM850MNU",.F.,.F.)
TMSA850.PRW - T850PROCEXC() -> EXECBLOCK( "TM850GRV", .F., .F., ADOCTOS )
TMSA850.PRW - T850PROCEXC() -> EXECBLOCK("TM850EXC", .F., .F., {CCLIENTE,CLOJA,CPREFIXO,CNUM,ADOCTOSANT})
TMSA850.PRW - T850PROCEXC() -> IF LRET .AND. LTM850OC .AND. EXECBLOCK("TM850OC", .F., .F.)
TMSA850.PRW - T850PROCEXC() -> IF LTM850OC .AND. EXECBLOCK("TM850OC", .F., .F.)
TMSA850.PRW - T850TUDOOK() -> LRET := EXECBLOCK("TM850TOK",.F.,.F.)
TMSA850.PRW - T850VALAJU() -> LRET2 := EXECBLOCK("TM850AJU", .F., .F.,{ })
TMSA850.PRW - T850VALFAT() -> LRET2 := EXECBLOCK( "TM850FAT", .F., .F.,{ } )
TMSA850.PRW - TMS850QRYTOMEM() -> LRET := EXECBLOCK( "TM850FAT",.F.,.F.,{(CALIAS)->DT6_FILDOC,(CALIAS)->DT6_DOC,(CALIAS)->DT6_SERIE})
TMSA850.PRW - TMSA850AUT() -> ACAMPOS := EXECBLOCK("TM850MEC",.F.,.F.,{ACAMPOS})
TMSA850.PRW - TMSA850AUT() -> CPRFX := EXECBLOCK("TM850PREF",.F.,.F.)
TMSA850.PRW - TMSA850DOC() -> CQUERY += EXECBLOCK("TMFATFIL",.F.,.F., {CQUERY, .T.})
TMSA850.PRW - TMSA850EXC() -> LDELFAT := EXECBLOCK( "TM850DEL", .F., .F.,{ AINFVIS[E1PREFIXO], AINFVIS[E1NUM], AINFVIS[E1TIPO], ADOCTOS, NOPCA} )
TMSA850.PRW - TMSA850GRAVA() -> ACPOSUSR := EXECBLOCK('TM491CPO',.F.,.F., {3,CALIASTRB,PAD(ACOLS[NX][1],LEN(SE1->E1_PREFIXO)),PAD(CFATURA, LEN(SE1->E1_NUM)),PAD(CTIPO,LEN(SE1->E1_TIPO))} )
TMSA850.PRW - TMSA850GRAVA() -> CDOCUSER := EXECBLOCK("TM491TIP",.F.,.F.,{CDOCTIPO})
TMSA850.PRW - TMSA850GRAVA() -> EXECBLOCK('TM491CPO',.F.,.F., {2,ADOCTOS[NX][IIF(ISINCALLSTACK("TMSA491"),LARECNO,RECNOCTRC)],CALIASTRB,CPREFIX,CFATURA,CTIPO} )
TMSA850.PRW - TMSA850GRAVA() -> EXECBLOCK('TM850CPO',.F.,.F.)
TMSA850.PRW - TMSA850GRAVA() -> EXECBLOCK('TM850ITE',.F.,.F.)
TMSA850.PRW - TMSA850GRV() -> ATM850DTVE := EXECBLOCK("TM850DTVE", .F., .F., {CCLI, _CLOJA, CCONDICAO, DEMISFAT, ACLONE(AVENC)})
TMSA850.PRW - TMSA850GRV() -> CPRFX := EXECBLOCK("TM850PXAL",.F.,.F.)
TMSA850.PRW - TMSA850TELA() -> ABUT2 := EXECBLOCK('TM850BUT',.F.,.F.,{ABUT})
TMSA850.PRW - TMSA850VEMIS() -> LRET := EXECBLOCK( "TM850EMIS", .F., .F.,{CCLIENTE, CLOJA, DEMISFAT, DVENCFAT})
TMSA850.PRW - TMSA850VENC() -> LRET := EXECBLOCK( "TM850VENC", .F., .F.,{CCLIENTE, CLOJA, DEMISFAT, DVENCFAT})
TMSA851.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("TM851MNU",.F.,.F.)
TMSA851.PRW - T851PROCEXC() -> EXECBLOCK( "TM851GRV", .F., .F., ADOCTOS )
TMSA851.PRW - T851PROCEXC() -> EXECBLOCK("TM851EXC", .F., .F., {CCLIENTE, CLOJA, , CNUM, ADOCTOSANT})
TMSA851.PRW - TMSA851AUT() -> ACAMPOS := EXECBLOCK("TM851MEC",.F.,.F.,{ACAMPOS})
TMSA851.PRW - TMSA851GRAVA() -> ACPOSUSR := EXECBLOCK('TM491CPO',.F.,.F., {3,CALIASTRB,SPACE(TAMSX3("E1_PREFIXO")[2]),PAD(CFATURA, LEN(DRT->DRT_NUM)),SPACE(TAMSX3("E1_TIPO")[2])} )
TMSA851.PRW - TMSA851GRAVA() -> EXECBLOCK('TM491CPO',.F.,.F., {2,ADOCTOSMRK[NX][IIF(ISINCALLSTACK("TMSA491"),LARECNO,RECNOCTRC)],CALIASTRB,,CFATURA,} )
TMSA851.PRW - TMSA851GRAVA() -> EXECBLOCK('TM851CPO',.F.,.F.)
TMSA851.PRW - TMSA851GRAVA() -> EXECBLOCK('TM851ITE',.F.,.F.)
TMSA860.PRW - TMA860MONTA() -> LAUX := EXECBLOCK("TMA010HIS",.F.,.F.,{5,(CALIASTOP)->DT0_TABFRE,(CALIASTOP)->DT0_TIPTAB})
TMSA860.PRW - TMSA860EXC() -> LAUX := EXECBLOCK("TMA010HIS",.F.,.F.,{5,(CALIASTOP)->DT0_TABFRE,(CALIASTOP)->DT0_TIPTAB})
TMSA870.PRW - MENUDEF() -> EXECBLOCK("TM870MNU",.F.,.F.)
TMSA870.PRW - TM870GRVAPV() -> EXECBLOCK("TM870GRV",.F.,.F.)
TMSA870.PRW - TM870GRVAPV() -> LALTDT6 := EXECBLOCK("TM870ALT",.F.,.F.)
TMSA880.PRW - MENUDEF() -> EXECBLOCK("TM880MNU",.F.,.F.)
TMSA880.PRW - T880LINOK() -> LRETPE := EXECBLOCK("TM880LOK", .F., .F.)
TMSA880.PRW - T880TUDOK() -> LRETPE := EXECBLOCK("TM880TOK", .F., .F., {CBANCO, CAGENCIA, CCONTA, DBAIXA, DDTCREDITO, CNATTMS, CLOTETMS, NTOTCRED, NTOTREC})
TMSA880.PRW - T880VALDESC() -> IF VALTYPE( URET := EXECBLOCK("TM880DES",.F.,.F.,{ACOLS}) ) == "N"
TMSA890.PRW - TMSA890VLD() -> LRET := EXECBLOCK("TM890VLD",.F.,.F.,{CCPO})
TMSA920.PRW - MENUDEF() -> EXECBLOCK("TM920MNU",.F.,.F.)
TMSA920.PRW - TMSA920MNT() -> EXECBLOCK('TM920GRV',.F.,.F., { 'DD8', NOPCE } )
TMSA920.PRW - TMSA920MNT() -> EXECBLOCK('TM920GRV',.F.,.F., { 'DWW', NOPCE } )
TMSA920.PRW - TMSA920MNT() -> EXECBLOCK('TM920GRV',.F.,.F., { 'DWX', NOPCE } )
TMSA940.PRW - TMSA940REC() -> CAUX:= EXECBLOCK("TMA940ORI",.F.,.F.,{CCDRORI})
TMSA940.PRW - TMSA940REC() -> LRETPE := EXECBLOCK("TMA940REC",.F.,.F.,{(CALIASQRY)->DY7RECNO})
TMSA980.PRW - MENUDEF() -> EXECBLOCK("TM980MNU",.F.,.F.)
TMSAD30.PRW - MENUDEF() -> EXECBLOCK("TMAD30MNU",.F.,.F.)
TMSAD30.PRW - TMSAD30GRV() -> EXECBLOCK("TMAD30GRV",.F.,.F.,{ NOPC })
TMSAD30.PRW - TMSAD30LOK() -> LRET:=EXECBLOCK("TMAD30LOK",.F.,.F.,{ACOLS[N]})
TMSAE25.PRW - MENUDEF() -> EXECBLOCK("TME25MNU",.F.,.F.)
TMSAE45A.PRW - A45PRINT() -> EXECBLOCK("TMSR650",.F.,.F.,{LPERG})
TMSAE55.PRW - COMMITMDL() -> EXECBLOCK("TME55GRV",.F.,.F.)
TMSAE70.PRW - TMS70LIST() -> ARETPE := EXECBLOCK("TME70CPO",.F.,.F.)
TMSAE70.PRW - TMS70LIST() -> CTME70QRY = EXECBLOCK("TME70QRY",.F.,.F.)
TMSAE70.PRW - TMSAE70() -> @ APOSOBJ[3,1],APOSOBJ[3,4] - 020 BUTTON OBTN03 PROMPT STR0011ACTION IF(EXISTBLOCK("RTMSR27",,.T.),EXECBLOCK("RTMSR27",.F.,.F.),)OF ODLG PIXEL SIZE 035,011
TMSAE70.PRW - TMSAE70() -> ABTNUSER := EXECBLOCK("TME70BUT",.F.,.F.)
TMSAE73.PRW - TM73QRYDTX() -> CRETPE := EXECBLOCK("TME73ENC",.F.,.F.)
TMSAE73.PRW - TME73LST() -> ARETPE := EXECBLOCK("TME73LST",.F.,.F., { CALIASDTX, LENVIA, LVISUAL, LINCOND, LPAGFRETE })
TMSAE73.PRW - TME73SPED() -> AXML := EXECBLOCK("MDFESF30",.F.,.F.,{ADOCTOS[NX][1], ADOCTOS[NX][2], SUBSTR(CAMBIENTE,1,1), CVERSAOMDFE, CMODALIDADE, 'I', ADOCTOS[NX][4], TZONEUTC(CIDENT)})
TMSAE73.PRW - TME73SPED() -> EXECBLOCK("TME73ALT",.F.,.F.,{ADOCTOS,CTPEVENTO})
TMSAE73.PRW - TMSAE73() -> ABTNUSER := EXECBLOCK("TME73BUT",.F.,.F.)
TMSAE73.PRW - TMSVERMDFE() -> EXECBLOCK("RTMSR28",.F.,.F.)
TMSAE73.PRW - TMSVERMDFE() -> EXECBLOCK("RTMSR32",.F.,.F.,ADOCS)
TMSAE73.PRW - TMSVERMDFE() -> EXECBLOCK("RTMSR34",.F.,.F.,ADOCS)
TMSAE75.PRW - TMSAE75MRK() -> LPEMRK := EXECBLOCK("TME75MRK",.F.,.F.,{AITENSEDI[NI,EA_CGCREM], AITENSEDI[NI,EA_NUMNFC], AITENSEDI[NI,EA_SERNFC], NPOSLINE, LTODOSMARK, AITENSEDI[NI]})
TMSAE75.PRW - TMSAE75PRE() -> ACPITEM := EXECBLOCK("TME75ITE",.F.,.F.,{AITEM,AITENSEDI[AITENSOK[NI],EA_RECDE5]})
TMSAE75.PRW - TMSAE75PRE() -> ACPOS := EXECBLOCK("TME75CAB",.F.,.F.,{ACABDTC,AITENSEDI[AITENSOK[NI],EA_RECDE5]})
TMSAE75.PRW - TMSAE75PRE() -> LCALLPE := EXECBLOCK("TME75QNF",.F.,.F.,{AITENSEDI,AITENSOK[NI],NI,LCALLEXEC})
TMSAE75.PRW - TMSAE75QRY() -> CQRYAUX := EXECBLOCK("TME75WHE",.F.,.F.)
TMSAE75.PRW - TMSAE75QRY() -> LPEQRY := EXECBLOCK("TME75QRY",.F.,.F.,{(CALIASQRY)->CGCREM, (CALIASQRY)->NUMNFC, (CALIASQRY)->SERNFC, (CALIASQRY)->CODPRO, (CALIASQRY)->RECDE5,CALIASQRY})
TMSAE80.PRW - DEFCLICAL() -> LOK := EXECBLOCK("TMA050FOB",.F.,.F.,{CCLIDES,CLOJDES,CCLIREM,CLOJREM})
TMSAE80.PRW - TMSAE80INC() -> ARET := EXECBLOCK("TME80ALT",.F.,.F.,{"DE5",AHEADDE5, ACOLSDE5, OAE80XML, AITCONTRAT})
TMSAE80.PRW - TMSAE80INC() -> ARETUSR := EXECBLOCK("TME80NEG",.F.,.F.,{CCLICAL,CLOJCAL,CCLIDEV,CLOJDEV,CCGCREM,CCGCDES,CTIPFRE,CTIPTRA,CSERTMS,CCODNEG,CSERVIC})
TMSAE80.PRW - TMSAE80INC() -> CTIPFRE := EXECBLOCK("TME80FRE",.F.,.F.,{OAE80XML})
TMSAE80.PRW - TMSAE80INC() -> LRET := EXECBLOCK("TME80IMP",.F.,.F.,{OAE80XML,AHEADDE5,NOPCX,ACOLSDE5, "1"})
TMSAE80.PRW - TMSAE80INC() -> LRET := EXECBLOCK("TME80IMP",.F.,.F.,{OAE80XML,AHEADDE5,NOPCX,ACOLSDE5, "2"})
TMSAF05.PRW - MENUDEF() -> EXECBLOCK("TMF05MNU",.F.,.F.)
TMSAF05.PRW - SELEITCF() -> EXECBLOCK("TMF05CFA",.F.,.F.)
TMSAF05.PRW - TMSAF05ATUM3() -> EXECBLOCK("TMF05M3",.F.,.F.)
TMSAF05.PRW - TMSAF05CHG() -> EXECBLOCK("TMF05ATU",.F.,.F.,{ACOLSPRD})
TMSAF05.PRW - TMSAF05CHG() -> LOCAL CNOFIELDPRD := IF(LTMF05NPRD,EXECBLOCK("TMF05NPRD",.F.,.F.),.F.)
TMSAF05.PRW - TMSAF05CHG() -> LOCAL CNOFIELDREP := IF(LTMF05NREP,EXECBLOCK("TMF05NREP",.F.,.F.),'' )
TMSAF05.PRW - TMSAF05COP() -> EXECBLOCK("TM05ACOP",.F.,.F.)
TMSAF05.PRW - TMSAF05COP() -> EXECBLOCK("TMF05COP",.F.,.F.,{NCNT})
TMSAF05.PRW - TMSAF05COT() -> ACPOSUSER := EXECBLOCK("TMF05CPO",.F.,.F.)
TMSAF05.PRW - TMSAF05COT() -> ANEWCOTAC := EXECBLOCK('TMF05MOD',.F.,.F.,{ACOTACAO})
TMSAF05.PRW - TMSAF05COT() -> LRET := EXECBLOCK("TMF05COT",.F.,.F.)
TMSAF05.PRW - TMSAF05GRV() -> EXECBLOCK("TMF05GR1",.F.,.F.,NOPCX)
TMSAF05.PRW - TMSAF05GRV() -> EXECBLOCK("TMF05GR2",.F.,.F.,NOPCX)
TMSAF05.PRW - TMSAF05GRV() -> EXECBLOCK("TMF05GR3",.F.,.F.,NOPCX)
TMSAF05.PRW - TMSAF05GRV() -> EXECBLOCK("TMF05GR4",.F.,.F.,NOPCX)
TMSAF05.PRW - TMSAF05GRV() -> EXECBLOCK("TMF05GR4",.F.,.F.,{NOPCX,NCNT})
TMSAF05.PRW - TMSAF05GRV() -> LATPRDUSR := EXECBLOCK("TM05APRD",.F.,.F., ACOLSPRD[NCNT] )
TMSAF05.PRW - TMSAF05INI() -> ACPOSUSER := EXECBLOCK("TMF05CPO",.F.,.F.)
TMSAF05.PRW - TMSAF05LOK() -> LRET := EXECBLOCK("TM05VPRD",.F.,.F.,{ AHEADER , ACOLS})
TMSAF05.PRW - TMSAF05LOK() -> LRET := EXECBLOCK("TMF05LOK",.F.,.F.,{NOPCAO})
TMSAF05.PRW - TMSAF05OBR() -> LRET := EXECBLOCK("TMF05TOK",.F.,.F.,{NOPCX})
TMSAF05.PRW - TMSAF05PRD() -> AALTGETD := IF(EXISTBLOCK("TMF05ALTP"),EXECBLOCK("TMF05ALTP",.F.,.F.),NIL)
TMSAF05.PRW - TMSAF05PRD() -> CCPOREP := EXECBLOCK('TMF05REP',.F.,.F.)
TMSAF05.PRW - TMSAF05PRD() -> EXECBLOCK("TMF05ATU",.F.,.F.,{ACOLSPRD})
TMSAF05.PRW - TMSAF05PRD() -> LRET := EXECBLOCK("TMF05PRV",.F.,.F.)
TMSAF05.PRW - TMSAF05VLD() -> LRET := EXECBLOCK("TM05VLD",.F.,.F.,{LRET,CCAMPO})
TMSAF05.PRW - TMSF05MNT() -> ASOMABUTTONS:=EXECBLOCK('TMSAFBUT',.F.,.F.,{NOPCX})
TMSAF05.PRW - TMSF05MNT() -> NMAX := EXECBLOCK("TMF05ITE",.F.,.F.)
TMSAF12.PRW - POSVLDMDL() -> ARETUSU := EXECBLOCK("TMF12ROT",.F.,.F.,{2,,,OMODEL})
TMSAF68.PRW - TMSAF68IAW() -> EXECBLOCK("RTMSR08",.F.,.F.)
TMSAF68.PRW - TMSAF68ICH() -> EXECBLOCK("RTMSR13",.F.,.F.)
TMSAF68.PRW - TMSAF68ICT() -> EXECBLOCK("RTMSR06",.F.,.F.)
TMSAF76.PRW - MENUDEF76() -> ARET := EXECBLOCK("TMF76ADD",.F.,.F.,{1})
TMSAF76.PRW - TMSF76CP1() -> ARETUSR := EXECBLOCK("TMF76CPS",.F.,.F.,{NACAO,CALIAS,ACLONE(ACPOSWRK)})
TMSAF76.PRW - TMSF76DIN() -> LRET := EXECBLOCK("TMF76DIN",.F.,.F.,{1,ACLONE(AALIASFIL),ACLONE(AALIASSUP)})
TMSAF76.PRW - TMSF76EXE() -> AVETRAD := EXECBLOCK("TMF76RAD ",.F.,.F.)
TMSAF76.PRW - TMSF76EXE() -> EXECBLOCK("TMF76END",.F.,.F.,{CFONTE,STRZERO(NRADIOSER,1),LINCVIA})
TMSAF76.PRW - TMSF76EXE() -> EXECBLOCK("TMF76INI",.F.,.F.,{CFONTE})
TMSAF76.PRW - TMSF76FIM() -> LRET := EXECBLOCK("TMF76FIM", .F., .F.)
TMSAF76.PRW - TMSF76QRY() -> AQUERY := EXECBLOCK("TMF76ADD",.F.,.F.,{2})
TMSAF76.PRW - TMSF76QRY() -> ARETDIN := EXECBLOCK("TMF76DIN",.F.,.F.,{2,ACLONE(AALIASFIL),ACLONE(AALIASSUP)})
TMSAF76.PRW - TMSF76QRY() -> CCOMPQRY := EXECBLOCK('TMF76QRY',.F.,.F.,{ AROTINAS[NCNTFOR2,1],ACAMPOS[1],CAGENDA,CITENS,CQUERY })
TMSAF76.PRW - TMSF76TOK() -> LRET := EXECBLOCK("TMF76TOK", .F., .F.)
TMSAF79.PRW - TMSF79COLS() -> ACPOUSU := EXECBLOCK("TMF79CPO",.F.,.F.,{2,AVETWRK})
TMSAF79.PRW - TMSF79TELA() -> AROTUSU := EXECBLOCK("TMF79ROT",.F.,.F.,{ACLONE(AROTAS)})
TMSAF79.PRW - TMSF79TELA() -> LPAGPE := EXECBLOCK("TMF79PAG",.F.,.F.,{ARETPAG})
TMSAF79.PRW - TMSF79VCPO() -> LRET := EXECBLOCK("TMF79VLD",.F.,.F.,{CCAMPO})
TMSAF99.PRW - TMSAF99PRC() -> AFAIXAS := EXECBLOCK( 'TMA99RAT', .F., .F., { CALIASTR1, AFAIXAS, CCODDES } )
TMSAF99.PRW - TMSAF99PRC() -> NCUSTOPROC := EXECBLOCK('TMA99GSDG',.F.,.F.,{10, CIDCTMS, NCUSTO1,CMVDESVEI, CCODVEI, CVIAGEM})
TMSAF99.PRW - TMSAF99PRC() -> NCUSTOPROC := EXECBLOCK('TMA99GSDG',.F.,.F.,{3, CIDCTMS, AMNTBEM[NI,MN_CUSTO], CCODDES, CCODVEI})
TMSAF99.PRW - TMSAF99PRC() -> NCUSTOPROC := EXECBLOCK('TMA99GSDG',.F.,.F.,{4, CIDCTMS, NVLRAMZ, (CALIASDFE)->DFE_CODDES, (CALIASDFE)->DFE_CODVEI})
TMSAF99.PRW - TMSAF99PRC() -> NCUSTOPROC := EXECBLOCK('TMA99GSDG',.F.,.F.,{5, CIDCTMS, (CALIASTQN)->TQN_VALTOT, CMVDESABA, CCODVEI})
TMSAF99.PRW - TMSAF99PRC() -> NCUSTOPROC := EXECBLOCK('TMA99GSDG',.F.,.F.,{6, CIDCTMS, CMVDESMOT, NCUSVEI, CCODVEI})
TMSAF99.PRW - TMSAF99PRC() -> NCUSTOPROC := EXECBLOCK('TMA99GSDG',.F.,.F.,{7, CIDCTMS, NCUSVEI, CMVMOTSVG, CCODVEI})
TMSAF99.PRW - TMSAF99PRC() -> NCUSTOPROC := EXECBLOCK('TMA99GSDG',.F.,.F.,{8, CIDCTMS, NRATVEI, CCODDES, CCODVEI})
TMSAF99.PRW - TMSAF99PRC() -> NCUSTOPROC := EXECBLOCK('TMA99GSDG',.F.,.F.,{9, CIDCTMS, NCUSVEI, ADEPVEISVG[ NX ][ VS_CODDES ], CCODVEI})
TMSAF99.PRW - TMSCUSTOFUN() -> NCUSTOFUN := EXECBLOCK('TMA99CTF',.F.,.F.,{AMTRZSAL[NMOT],DDATINI,DDATFIM,CTIPOLOOP})
TMSAI40.PRW - TMAI40I2() -> EXECBLOCK("RTMSR22",.F.,.F.)
TMSAI45.PRW - TMAI45I1() -> EXECBLOCK("RTMSR18A",.F.,.F.)
TMSAI45.PRW - TMAI45I2() -> EXECBLOCK("RTMSR18B",.F.,.F.)
TMSAI45.PRW - TMAI45I3() -> EXECBLOCK("RTMSR18G",.F.,.F.)
TMSAI45.PRW - TMAI45IMP() -> EXECBLOCK("RTMSR18",.F.,.F.)
TMSAI70.PRW - TMAI70GRV() -> AEXCUSR := EXECBLOCK('TMI70DTC',.F.,.F.,{ ACABDTC, AITEMDTC })
TMSAI70.PRW - TMAI70I1() -> EXECBLOCK("RTMSR17",.F.,.F.)
TMSAI70.PRW - TMAI70I2() -> EXECBLOCK("RTMSR20",.F.,.F.)
TMSAI70.PRW - TMAI70MNT() -> ACPOS := EXECBLOCK("TMAI70CPO",.F.,.F.)
TMSAI70.PRW - TMAI70TOK() -> LRET := EXECBLOCK("TMI70TOK",.F.,.F.)
TMSAI70.PRW - TMAI70VLD() -> CSTATUS := EXECBLOCK('TMI70COL',.F.,.F.)
TMSAR05.PRW - TMSAR05GRV() -> EXECBLOCK("TMR05FIM",.F.,.F.)
TMSAR05.PRW - TMSAR05LOK() -> LRETPE := EXECBLOCK('TMR05LOK',.F.,.F.)
TMSAR05.PRW - TMSAR05TOK() -> LRETPE := EXECBLOCK('TMR05TOK',.F.,.F.)
TMSAVBE.PRW - AVBEGRVCTE() -> EXECBLOCK("TMAVBGRV",.F.,.F.,{DL5->DL5_FILDOC,DL5->DL5_DOC,DL5->DL5_SERIE})
TMSC020.PRW - MENUDEF() -> EXECBLOCK("TMC020MNU",.F.,.F.)
TMSC070.PRW - TMS070PROC() -> CQUERYPT := EXECBLOCK("TMC70QRY",.F.,.F.,CQUERY)
TMSC070.PRW - TMSC070() -> ASOMABUTTONS := EXECBLOCK( "TMC70BUT", .F., .F., {ADADOS,OLISTBOX} )
TMSC080.PRW - TMSC080CPO() -> ACPOSUSR := EXECBLOCK('TMC80CPO',.F.,.F.,{AALIASPE})
TMSI250BX.PRW - TMSI250BX() -> CNUMCTC := EXECBLOCK('TMI250BX',.F.,.F.,{CNUMCTC,2})
TMSME05.PRW - TMSME05() -> EXECBLOCK("TME05FIM",.F.,.F.,{NTIPENV})
TMSME05.PRW - TMSME05() -> EXECBLOCK("TME05GRV",.F.,.F.,{CNOMARQ})
TMSME05.PRW - TMSME05() -> EXECBLOCK("TME05PRC",.F.,.F.,{LRET,CDIRENV,CNOMARQ,DEC->DEC_CODCLI,DEC->DEC_LOJCLI,DEC->DEC_CODLAY,CPERG})
TMSME05.PRW - TMSME05() -> EXECBLOCK("TMSME0501",.F.,.F.)
TMSME05.PRW - TMSME05ATU() -> CQRYAUX := EXECBLOCK("TME05QRY",.F.,.F.,CQUERY)
TMSME05.PRW - TMSME05DEL() -> CNOMARQ := EXECBLOCK("TMSEDIEX",.F.,.F.,CNOMARQ)
TMSME05.PRW - TMSME05LAY() -> CNOMARQ := ALLTRIM(EXECBLOCK("TMSEDIEX",.F.,.F.,CNOMARQ))
TMSME05.PRW - TMSME05LOG() -> ACPOSDE2 := EXECBLOCK("TME05DE2",.F.,.F.)
TMSME05.PRW - TMSME05PER() -> CPERG := ALLTRIM(EXECBLOCK("TMSEDIDOC",.F.,.F.))
TMSME05.PRW - TMSME05PER() -> CPERG := ALLTRIM(EXECBLOCK("TMSEDIFIN",.F.,.F.))
TMSME05.PRW - TMSME05PER() -> CPERG := ALLTRIM(EXECBLOCK("TMSEDIMAN",.F.,.F.))
TMSME05.PRW - TMSME05PER() -> CPERG := ALLTRIM(EXECBLOCK("TMSEDIOCO",.F.,.F.))
TMSME05.PRW - TMSME05PER() -> CPERG := ALLTRIM(EXECBLOCK("TMSEDIOTP",.F.,.F.))
TMSME10.PRW - ME10GRVARQ() -> EXECBLOCK("TME10GRV", .F., .F.,{CALIASREG})
TMSME10.PRW - ME10GRVCPOS() -> EXECBLOCK("TME10CPO",.F.,.F., { CNOMARQ, AGRVCPOS })
TMSME10.PRW - ME10GRVCPOS() -> LRET:= EXECBLOCK("TME10VLI",.F.,.F.,{AGRVCPOS,DE0->DE0_IDTREG})
TMSME10.PRW - TMSME10() -> CNOMARQ := EXECBLOCK("TMSEDIIM",.F.,.F.,CNOMARQ)
TMSME10.PRW - TMSME10() -> EXECBLOCK("TME10FIM", .F., .F. )
TMSME10.PRW - TMSME10PROC() -> EXECBLOCK("TME10ARQ",.F.,.F., { CNOMARQ })
TMSME10.PRW - TMSME10PROC() -> EXECBLOCK("TME10ATU",.F.,.F., { CNOMARQ })
TMSME10.PRW - TMSME10PROC() -> LOCAL AALIASPRINC := IIF(EXISTBLOCK("TMSEDIALI") ,EXECBLOCK("TMSEDIALI" ,.F.,.F.,{CCODLAY}),"")
TMSME10.PRW - TMSME10PROC() -> LOCAL LTMSEDICIMP := IIF(EXISTBLOCK("TMSEDICIMP"),EXECBLOCK("TMSEDICIMP",.F.,.F.),.F.)
TMSME10.PRW - TMSME10VLD() -> LRET := EXECBLOCK("TME10VLD",.F.,.F.,{NPOSA,CCAMPO})
TMSPAMCARD.PRW - PAMPTODCA() -> APTOUSR := EXECBLOCK("PAMPTDCA",.F.,.F.,{ CFILORI, CVIAGEM })
TMSRELATS.PRW - RELTMSR05() -> EXECBLOCK("RTMSR05",.F.,.F.)
TMSRELATS.PRW - RELTMSR06() -> EXECBLOCK("RTMSR06",.F.,.F.)
TMSRELATS.PRW - RELTMSR07() -> EXECBLOCK("RTMSR07",.F.,.F.)
TMSRELATS.PRW - RELTMSR08() -> EXECBLOCK("RTMSR08",.F.,.F.)
TMSRELATS.PRW - RELTMSR10() -> EXECBLOCK("RTMSR10",.F.,.F.)
TMSRELATS.PRW - RELTMSR15() -> EXECBLOCK("RTMSR15",.F.,.F.)
TMSRELATS.PRW - RELTMSR16() -> EXECBLOCK("RTMSR16",.F.,.F.)
TMSRELATS.PRW - RELTMSR24() -> EXECBLOCK("RTMSR24",.F.,.F.)
TMSRELATS.PRW - RELTMSR33() -> EXECBLOCK("RTMSR33",.F.,.F.)
TMSRELATS.PRW - RELTMSR36() -> EXECBLOCK("RTMSR36",.F.,.F.)
TMSREPOM.PRW - REPAUTPGTO() -> CXMLNEW := EXECBLOCK("TM251XML",.F.,.F.,{CXML})
TMSREPOM.PRW - REPAUTPGTO() -> EXECBLOCK('TM251OPE',.F.,.F.,{CCODOPE, CFILORI, CVIAGEM, CCONTRAT, CCODVEI, OXML, LQUITACAO})
TMSREPOM.PRW - REPCONTRAT() -> ANFS := EXECBLOCK('TM250NFOP',.F.,.F.,{DUD->DUD_FILDOC, DUD->DUD_DOC, DUD->DUD_SERIE})
TMSREPOM.PRW - REPCONTRAT() -> CXMLNEW := EXECBLOCK("TM250XML",.F.,.F.,{CXML})
TMSREPOM.PRW - REPCTLVG() -> CXMLNEW := EXECBLOCK("TM310XML",.F.,.F.,{CXML})
TMSREPOM.PRW - REPCTLVG() -> NRETPE := EXECBLOCK( "TM310ODE", .F., .F.,{CFILORI,CVIAGEM,DTR->DTR_CODVEI})
TMSREPOM.PRW - REPQUITACT() -> CXMLNEW := EXECBLOCK("TM340XML",.F.,.F.,{CXML})
TMSREPOM.PRW - REPQUITMET() -> CXMLNEW := EXECBLOCK("TM251XML",.F.,.F.,{CXML})
TMSREPOM.PRW - REPQUITMET() -> EXECBLOCK('TM251OPE',.F.,.F.,{CCODOPE, CFILORI, CVIAGEM, CCONTRAT, CCODVEI, OXML, LQUITACAO})
TMSREPOM.PRW - REPVLDABER() -> CXMLNEW := EXECBLOCK("TM240XML",.F.,.F.,{CXML})
TMSSINAL.PRW - TMSSINREG() -> LRETNFE := EXECBLOCK('TMSSINFE',.F.,.F., {DTC->DTC_FILDOC, DTC->DTC_DOC, DTC->DTC_SERIE, DTC->DTC_NUMNFC, DTC->DTC_SERNFC, DTC->DTC_NFEID })
TMSSINAL.PRW - TMSSINREG() -> LRETPE := EXECBLOCK('TMSSIVLD',.F.,.F., {DT6->DT6_FILDOC, DT6->DT6_DOC, DT6->DT6_SERIE})
TMSXFUNA.PRW - MNTFILROT() -> CFILTRADA8 := EXECBLOCK( 'TMAFILROT', .F., .F., { CSERTMS, CTIPTRA, CFILTRADA8 } )
TMSXFUNA.PRW - TMCOMPPDG() -> CCAMPO += EXECBLOCK("TMCALPDG",.F.,.F.,{CLOTNFC})
TMSXFUNA.PRW - TMSABROWSE() -> IF VALTYPE( AUSHLIST := EXECBLOCK( 'TMBRWCOL', .F., .F., { ALIST } ) ) <> 'A'
TMSXFUNA.PRW - TMSCALPDG() -> NRETPE := EXECBLOCK('TMVALPDG',.F.,.F.,{AVEICULOS,CROTAVGE,NRET})
TMSXFUNA.PRW - TMSCONSDTO() -> CFILTRO := EXECBLOCK('TMDTOFIL')
TMSXFUNA.PRW - TMSCONSDTU() -> CFILTRO := EXECBLOCK('TMDTUFIL')
TMSXFUNA.PRW - TMSCONTRAT() -> ACLIPE := EXECBLOCK("TMALTCLI",.F.,.F.,{CCLIENTE,CLOJA,CSERVIC,CTIPFRE,CCODNEG})
TMSXFUNA.PRW - TMSCONTRAT() -> ARET := EXECBLOCK("TMALTTAB",.F.,.F.,{CCLIENTE,CLOJA,CTIPFRE,CSERVIC,CCODNEG})
TMSXFUNA.PRW - TMSCONTRAT() -> ARET := EXECBLOCK("TMSCONTRAT",.F.,.F.,ARETORNO)
TMSXFUNA.PRW - TMSCONTRFOR() -> ABASECONTR := EXECBLOCK("TMSBASCT",.F.,.F.,{CSERTMS,CTIPTRA,CTIPVEI,CFILORI,CVIAGEM})
TMSXFUNA.PRW - TMSCTRC() -> ACPOS := EXECBLOCK('TMCPOCTRC',.F.,.F.)
TMSXFUNA.PRW - TMSDELNFS() -> EXECBLOCK("SF2520E",.F.,.F.)
TMSXFUNA.PRW - TMSDOCXNF() -> ABUTTMP := EXECBLOCK('TMSBUTNF',.F.,.F.,{AROTINA})
TMSXFUNA.PRW - TMSENDSOL() -> ARETPE := EXECBLOCK("TMSENDSL",.F.,.F.,{AROTINA})
TMSXFUNA.PRW - TMSFRETCAR() -> ATABCAR := EXECBLOCK("TMTABCAR",.F.,.F., {CTABFRE,CTIPTAB,CTABCAR,CCODFOR,CLOJFOR,CSERTMS,CTIPTRA} )
TMSXFUNA.PRW - TMSFRETCAR() -> NVALORFRETE := EXECBLOCK("TMAFRECAR",.F.,.F.,{ARET[2]})
TMSXFUNA.PRW - TMSPEDIDO() -> EXECBLOCK("TMAGRVPED",.F.,.F.)
TMSXFUNA.PRW - TMSPEDIDO() -> SC6->C6_PRODUTO := EXECBLOCK("TMAPEDSC6",.F.,.F.,{SC6->C6_PRODUTO})
TMSXFUNA.PRW - TMSPERCUB() -> NRET := EXECBLOCK('TMPERCUB',.F.,.F.,{CCODPRO,CCODCLI,CLOJCLI})
TMSXFUNA.PRW - TMSPRZENT() -> DDTTM200 := EXECBLOCK('TM200DAT',.F.,.F.,{DDATAENT,CCDRPRZ,CHORABASE,ATMPENT,CTIPTRA,CCDRORI,;
TMSXFUNA.PRW - TMSPRZENT() -> DDTTM200 := EXECBLOCK('TM200PRZ',.F.,.F.,{CCDRORI,CCDRPRZ,CTIPTRA,;
TMSXFUNA.PRW - TMSSEGURO() -> ADOCTOS := EXECBLOCK('TMSSEGDC',.F.,.F.,{ADOCTOS})
TMSXFUNA.PRW - TMSSEGURO() -> ARETPE := EXECBLOCK('TMAGRVSEG',.F.,.F.,{ARET[NCNTFOR,9],ARET[NCNTFOR,10],ARET[NCNTFOR,11],ARET})
TMSXFUNA.PRW - TMSSEGURO() -> LOCAL NAVERBADIC := IF(LTMAAVERB,EXECBLOCK('TMAAVERB',.F.,.F.,{CFILDOC,CDOC,CSERIE}),0)
TMSXFUNA.PRW - TMSSEGURO() -> NAVERBESP := EXECBLOCK('TMAAVBESP',.F.,.F.,{CFILDOC,CDOC,CSERIE})
TMSXFUNA.PRW - TMSTABELA() -> ARETPE := EXECBLOCK("TMSTAB",.F.,.F.,{CTABFRE, CTIPTAB, CSEQTAB, CCDRORI, CCDRDES, CCODCLI, CLOJCLI, CCODNEG, CSERVIC})
TMSXFUNA.PRW - TMSTMPENTR() -> ARETPE := EXECBLOCK("TMSPRZEN",.F.,.F.,{CTIPTRA,CCDRORI,CCDRDES,CCODCLI,CLOJCLI,DDATAENT,CHORABASE,ARET})
TMSXFUNA.PRW - TMSVALFIELD() -> ARET2 := EXECBLOCK('TMDESCRI',.F.,.F.,{ARET})
TMSXFUNA.PRW - TMSVODOENT() -> EXECBLOCK('TMODOSAID',.F.,.F.,{NODOSAI})
TMSXFUNA.PRW - TMSVODOENT() -> LRET := EXECBLOCK('TMODOENT',.F.,.F.)
TMSXFUNA.PRW - TMSVODOSAI() -> EXECBLOCK('TMODOSAID',.F.,.F.,{NODOSAI})
TMSXFUNA.PRW - TMSVODOSAI() -> LRET := EXECBLOCK('TMODOSAI',.F.,.F.)
TMSXFUNB.PRW - TMSACESSO() -> LRETBLK := EXECBLOCK('TMSACESS',.F.,.F.,{CPROGRAMA,CCODUSER,NACESSO})
TMSXFUNB.PRW - TMSBLQDOC() -> LRET := EXECBLOCK("TMBLQDOC",.F.,.F.,ABLQDOC)
TMSXFUNB.PRW - TMSCALFREPAG() -> AREG := EXECBLOCK('TMALTREG',.F.,.F.,{CCDRORI, CCDRDES})
TMSXFUNB.PRW - TMSCALFREPAG() -> ARETUSR := EXECBLOCK("TMSFREPAG",.F.,.F., {ARET, CFILORI, CVIAGEM})
TMSXFUNB.PRW - TMSCALFREPAG() -> ATAB := EXECBLOCK("TMTABCAR",.F.,.F., {CTABFRE,CTIPTAB,CTABCAR,CCODFORN,CLOJFORN,CSERTMS,CTIPTRA} )
TMSXFUNB.PRW - TMSCALFREPAG() -> ATAB := EXECBLOCK("TMTABFRE",.F.,.F., {CTABFRE,CTIPTAB,CCODFORN,CLOJFORN,CSERTMS,CTIPTRA,ADOCVGE[NCNTFOR][13]} )
TMSXFUNB.PRW - TMSCALFREPAG() -> ATAB := EXECBLOCK("TMTABVGE",.F.,.F., {CTABFRE,CTIPTAB,CCODFORN,CLOJFORN,CSERTMS,CTIPTRA,ADOCVGE[NCNTFOR][13]} )
TMSXFUNB.PRW - TMSCALFREPAG() -> CPRDCAL := EXECBLOCK("TMPRDCAL",.F.,.F., { CFILORI , CVIAGEM } )
TMSXFUNB.PRW - TMSCALFREPAG() -> EXECBLOCK("TMDOCVGE",.F.,.F., {ADOCCNT, CFILORI, CVIAGEM})
TMSXFUNB.PRW - TMSCALFREPAG() -> LRET := EXECBLOCK("TMTIPDOC",.F.,.F.)
TMSXFUNB.PRW - TMSCALFREPAG() -> LRETSEMDOC := EXECBLOCK("TMSSEMDOC",.F.,.F., {ADOCVGE})
TMSXFUNB.PRW - TMSCALFREPAG() -> NDTRVALFRE := EXECBLOCK('TMSVLFRE',.F.,.F.,{ CFILORI, CVIAGEM, CCODVEI, CCODFORN, CLOJFORN, CSERTMS, CTIPTRA })
TMSXFUNB.PRW - TMSCALFRET() -> ATMALTBS := EXECBLOCK("TMALTBAS",.F.,.F.,{NVALMER,NPESO,NPESOM3,NPESOCOB,NQTDVOL,NSEGURO,NMETRO3,NQTDUNI,NVALDPC,CCLIDEV,CLOJDEV,CLOTNFC,CTABFRE,CTIPTAB,NKM,ANFCTRC,NPESOVGE,NPESOM3VGE,NMETRO3VGE,NVALMERVGE,NQTDVOLVGE,NDIAARM,CCDRORI,CFILDOC,CDOC,CSERIE,CFILORI,CVIAGEM,ACLONE(ATIPVEI)})
TMSXFUNB.PRW - TMSCALFRET() -> ATMCALFR := EXECBLOCK('TMCALFRE',.F.,.F.,{ARET,NQTDVOL,NVALMER,NPESO,NPESOM3,NMETRO3,NSEGURO,NQTDDCO,NDIASEM,NKM,NPERNOI,NQTDENT,NQTDUNI,NVALDPC,NDOCSIMP,NDOCCIMP,NDIAFIMSEM,CCODCLI,CLOJCLI,CORIAUX,CDESAUX,CCODPRO,CSERVIC,CTABFRE,CTIPTAB,CSEQTAB,NDIAARM,ANFCTRC,CLOTNFC,AINFOANT[4],AINFOANT[5],CCODNEG,CFILDOC,CDOC,CSERIE,CFILORI,CVIAGEM})
TMSXFUNB.PRW - TMSCALFRET() -> NBASECALPE := EXECBLOCK("TMBASCAL",.F.,.F.,{CTABFRE, CTIPTAB, CSEQTAB, CCDRORI,;
TMSXFUNB.PRW - TMSCOMPFRE() -> ARETPE := EXECBLOCK("TMSMANVET",.F.,.F.,{ARET})
TMSXFUNB.PRW - TMSEMVIAG() -> CRETQRY := EXECBLOCK("TMSEMVGM",.F.,.F.,{ CQUERY } )
TMSXFUNB.PRW - TMSIMPDOC() -> ACPOPE := EXECBLOCK("TMSCPDOC",.F.,.F.,{ACPONOB})
TMSXFUNB.PRW - TMSIMPDOC() -> CCPAGPV:= EXECBLOCK("TM200CPG",.F.,.F.,{GETKEYVAL("DT6_CLICAL", AVETDOC),GETKEYVAL("DT6_LOJCAL", AVETDOC),CCPAGPV,GETKEYVAL("DT6_SERVIC", AVETDOC),GETKEYVAL("DT6_CODNEG", AVETDOC)})
TMSXFUNB.PRW - TMSINFSINC() -> EXECBLOCK("SZDINFSINC",.F.,.F.,ADADOS)
TMSXFUNB.PRW - TMSPERFIL() -> AALTERA := EXECBLOCK("TMSPERFIL",.F.,.F.,ARET)
TMSXFUNB.PRW - TMSPESQSERV() -> LRETPE := EXECBLOCK("TMSPESFIL",.F.,.F.,{TABELA("L4",(CALIASQRY)->DDA_SERVIC),.F. } )
TMSXFUNB.PRW - TMSRETSERV() -> CRET := EXECBLOCK('TMRETSRV',.F.,.F.,{ CNCONTR, CSERTMS, CTIPTRA, LMUNICIP, NQTDVOL, NVALOR, NPESO, NPESOM3, CCDRORI, CCDRDES, CCDRCAL, CCODNEG })
TMSXFUNB.PRW - TMSVALINF() -> ASOMABUTTONS:=EXECBLOCK('TMSXFBUT',.F.,.F.,{CACAO})
TMSXFUNC.PRW - PROXIDVC() -> CNUMSEQ := EXECBLOCK("XPROXIDVC",.F.,.F.)
TMSXFUNC.PRW - PROXIDVC() -> EXECBLOCK("FPROXIDVC",.F.,.F.,CNUMSEQ)
TMSXFUNC.PRW - PROXIDVC() -> EXECBLOCK("FPROXIDVC",.F.,.F.,STRZERO(SM0->M0_DOCSEQ,NTAM))
TMSXFUNC.PRW - TMSAGAUT() -> ATEMP := EXECBLOCK( 'TMCIAGEN', .F., .F., { CCODCLI, CLOJCLI, ACPOIGN } )
TMSXFUNC.PRW - TMSAGAUT() -> ATEMP := EXECBLOCK( 'TMDPAGEN', .F., .F., { CCODCLI, CLOJCLI, ADEPARA } )
TMSXFUNC.PRW - TMSAGAUT() -> LRETUSR := EXECBLOCK( 'TMPFLAGE', .F., .F., { ATEMP, LRET } )
TMSXFUNC.PRW - TMSBLQVIAG() -> ABLQUSR := EXECBLOCK( 'TMBLQVGE', .F., .F., { CFILORI, CVIAGEM, CROTA, NVALFREREC, CSERTMS } )
TMSXFUNC.PRW - TMSBLQVIAG() -> ABLQUSR := EXECBLOCK("TMBLOQDB",.F.,.F.,{CFILORI, CVIAGEM, ABLOQDOC})
TMSXFUNC.PRW - TMSBLQVIAG() -> ABLQUSR := EXECBLOCK("TMBLOQUE",.F.,.F.,{CFILORI, CVIAGEM, ABLOQUEIO})
TMSXFUNC.PRW - TMSGERNFENT() -> EXECBLOCK("TMSGERNFE",.F.,.F.,{ADADOSNF[LEN(ADADOSNF),1],ADADOSNF[LEN(ADADOSNF),2],ADADOSNF[LEN(ADADOSNF),3],ADADOSNF[LEN(ADADOSNF),4],NOPCX})
TMSXFUNC.PRW - TMSGERNFENT() -> IF (LEXECBLOCK== NIL)
TMSXFUNC.PRW - TMSGERNFENT() -> IF LEXECBLOCK
TMSXFUNC.PRW - TMSGERNFENT() -> LEXECBLOCK := EXISTBLOCK("TMSGERNFE")
TMSXFUNC.PRW - TMSGERNFENT() -> STATIC LEXECBLOCK:= NIL
TMSXFUNC.PRW - TMSINCORRE() -> EXECBLOCK("TMBLOQDV",.F.,.F.,{AVETDOC, AVETRRE})
TMSXFUNC.PRW - TMSPRVENT() -> OBTN3 := TBTNBMP2():NEW( 230,260,52,25,'S4WB022N',,,,{|| LCALCULA := .T., EXECBLOCK("TMSBUTON",.F.,.F.,),ODLG:END()},ODLG,,,.T. )
TMSXFUNC.PRW - TMSSINTEG() -> CRET := EXECBLOCK("SINTEGAPO",.F.,.F.,CQUERY)
TMSXFUND.PRW - TMSAGDVGVL() -> APERET := EXECBLOCK("TMSVLDYD", .F., .F., {CFILDOC, CDOC, CSERIE, DYD->DYD_TIPAGD, DDATAGEND, CTIPPERIOD, CHORAINI, CHORAFIM, NHORAINI, NHORAFIM, DDATVIAGEM, NHORAVIAG} )
TMSXFUND.PRW - TMSRETVIAG() -> LRETPE := EXECBLOCK("TMVIACOL",.F.,.F.,{CFILVIA,CVIAGEM,CFILCFS,CNUMSOL})
TMSXFUND.PRW - TMSRTDVP() -> CQUERY2 := EXECBLOCK("TMSDVPQR",.F.,.F.,{APRODS,CQUERY})
TMSXFUND.PRW - TMSVERCTE() -> EXECBLOCK("RTMSR27",.F.,.F.)
TMSXFUND.PRW - TMSVERCTE() -> EXECBLOCK("RTMSR31",.F.,.F.)
TMSXFUND.PRW - TMSVERCTE() -> EXECBLOCK("RTMSR35",.F.,.F.)
TMSXFUNE.PRW - TMSGRVDT6() -> EXECBLOCK(CPEANTDT6, .F., .F., APARGRVDT6)
TMSXFUNE.PRW - TMSGRVDT6() -> EXECBLOCK(CPEPOSDT6, .F., .F., ARETDT6)
TMSXFUNI.PRW - TMSDADCRT() -> ARETUSR := EXECBLOCK('TMDADCRT',.F.,.F.,{ CCAMPO, ARET, CFILDOC, CDOC, CSERIE })
TMSXFUNI.PRW - TMSDADMIC() -> APICTSUSR := EXECBLOCK('TMPICMIC',.F.,.F.,{ CCAMPO, APICTS })
TMSXFUNI.PRW - TMSDADMIC() -> ARETUSR := EXECBLOCK('TMDADMIC',.F.,.F.,{ CCAMPO, ARET, CFILMIC, CNUMMIC, CCODVEI, CITEMIC })
TMSXSEFA.PRW - EXPORTMDFE() -> EXECBLOCK("FISEXPNFE",.F.,.F.,{CXML})
TMSXSEFA.PRW - TMSSPEDCTE() -> EXECBLOCK("TMSCTEAUT",.F.,.F.,{DT6->DT6_FILDOC, DT6->DT6_DOC, DT6->DT6_SERIE, DT6->DT6_SITCTE})
TRKXFUN.PRX - MAENTIMAGE() -> AIMAGES := EXECBLOCK( "MAENTIMG", .F., .F., { AIMAGES } )
TRKXFUN.PRX - MAMAKEVIEW() -> AUSERVIEW := EXECBLOCK( "MAUSVIEW", .F., .F. )
TRKXFUN.PRX - MATRKSHOW() -> AUSBUTTONS := EXECBLOCK( "MATRKBUT", .F., .F. )
TRMA020.PRW - TR020NEWRBH() -> EXECBLOCK( "TRM020HAB", .F., .F. )
TRMA020.PRW - TRM020ROT() -> EXECBLOCK("TRM020DG",.F.,.F.)
TRMA040.PRW - TR040DELE() -> EXECBLOCK("TRMGRV01",.F.,.F.,{NOPCX, CDESCANT})
TRMA050.PRW - MENUDEF() -> IF ( VALTYPE( ARET := EXECBLOCK( "TRA050MN" ,.F.,.F.,{ACLONE(AROTINA)}, .F. ) ) == "A" )
TRMA050.PRW - TR050PLAN() -> ACOLSM := EXECBLOCK( "TR050TRM", .F., .F., {AHEADER, ACOLS} )
TRMA050.PRW - TR050TUDOK() -> LRET := EXECBLOCK("TRM050GR",.F.,.F.,{NOPCX})
TRMA060.PRW - TR060EMAIL() -> CMENSAGEM := EXECBLOCK("TR060EMAIL",.F.,.F.,ACAMPOS)
TRMA060.PRW - TR060GRAVA() -> EXECBLOCK("TR060WF",.F.,.F.,{A2LBX[NX,7], A2LBX[NX,6],CCALEND,CCURSO,CTURMA,CSX5,COBS1,COBS2,COBS3,COBS4,COBS5,COBS6,OEMTOANSI(STR0038)})
TRMA060.PRW - TR060PEGRV() -> NRET := EXECBLOCK("TRM06001",.F.,.F.,{AITENS,ALIST})
TRMA060.PRW - TR060ROT() -> EXECBLOCK("TRM060DG",.F.,.F.)
TRMA070.PRW - FRA3VALID() -> LRET:= EXECBLOCK("TRM070R3N",.F.,.F.)
TRMA070.PRW - TR070GRAVA() -> EXECBLOCK("TRM070DG",.F.,.F.)
TRMA070.PRW - TR070GRAVA() -> EXECBLOCK("TRM070EFI" , .F. , .F.)
TRMA070.PRW - TR070GRAVA() -> LGRAVA := EXECBLOCK("TRM070AG", .F., .F.)
TRMA070.PRW - TR070ROT() -> IF(VALTYPE(ACURSOORD := EXECBLOCK( "TRM070ORD", .F.,.F.,{ACLONE(ACOLS)} )) == "A")
TRMA100.PRW - CRIALIST() -> EXECBLOCK("RA5CRIACP",.F.,.F.,{})
TRMA100.PRW - TR100OK3() -> LRET := EXECBLOCK("TRM100K3",.F.,.F.)
TRMA100.PRW - TR100OK6() -> LRET := EXECBLOCK("TRM100K6",.F.,.F.)
TRMA100.PRW - TR100TUDOK() -> LRETORNA := EXECBLOCK("TRMA100OK",.F.,.F.)
TRMA100.PRW - TR100VLTREE() -> BCONDAUX := EXECBLOCK("GPE10HIST",.F.,.F.,{NTIPOOPER,BCOND,CCOND})
TRMA100.PRW - TRM100ROT() -> AMEMORA4 := IF( EXISTBLOCK( "RA4MEM" ), EXECBLOCK( "RA4MEM", .F.,.F. ), {} )
TRMA100.PRW - TRM100ROT() -> EXECBLOCK("GP010FIMPE",.F.,.F.)
TRMA130.PRW - MENUDEF() -> AROTINA := EXECBLOCK( "TR130MNU" , .F., .F., {AROTINA} )
TRMA190.PRW - TR190LEG() -> EXECBLOCK("TRM190LEG",.F.,.F.,{"L",NOPMENU} )
TRMA190.PRW - TRMA190() -> CAUXFILTRA := EXECBLOCK("TRM190FIL",.F.,.F.,{CFILTRARAJ} )
TRMM020.PRW - TR020ROT() -> EXECBLOCK("TRM020PF",.F.,.F.,{AOBJ2SIZE,ODLGMAIN})
TRMXRDM.PRX - TRMXCONVIT() -> EXECBLOCK( "CONVIT", .F., .F. )
TRMXRDM.PRX - TRMXTRM010() -> EXECBLOCK( "TRM010", .F., .F. )
TRMXRDM.PRX - TRMXTRM020() -> EXECBLOCK( "TRM020", .F., .F. )
TRMXRDM.PRX - TRMXTRM030() -> EXECBLOCK( "TRM030", .F., .F. )
TRMXRDM.PRX - TRMXTRM040() -> EXECBLOCK( "TRM040", .F., .F. )
TRMXRDM.PRX - TRMXTRM060() -> EXECBLOCK( "TRM060", .F., .F. )
TRMXRDM.PRX - TRMXTRM070() -> EXECBLOCK( "TRM070", .F., .F. )
TRMXRDM.PRX - TRMXTRM080() -> EXECBLOCK( "TRM080", .F., .F. )
TSSCONFIG.PRW - TSSEXECRDM() -> XRET := EXECBLOCK(CPROG,.F.,.F.,XPARAM1)
TSSNFSEXML102.PRW - NFSEM102() -> CSTRING := EXECBLOCK("XML10202",.F.,.F.,CSTRING)
TSSNFSEXMLENV.PRW - NFSEXMLENV() -> CSTRING := EXECBLOCK("XMLENV02",.F.,.F.,CSTRING)
TTMKA03.PRW - TTMKA03() -> LOCAL CVLDEXC := ".T."
TTMKA05.PRW - TTMKA05() -> LOCAL CVLDEXC := ".T."
TTMKA05.PRW - TTMKA05B() -> LOCAL CVLDALT := ".T."
TTMKA05.PRW - TTMKA05B() -> LOCAL CVLDEXC := ".T."
UBAA030.PRW - UBAA030CLI() -> CPERGUNTA := EXECBLOCK('UB030001',.F.,.F.)
UBAA030.PRW - UBAA030CLI() -> CPERGUNTA := EXECBLOCK('UB030002',.F.,.F.)
UBAA030.PRW - UBAA030PAR() -> CPERGUNTA := EXECBLOCK('UB030002',.F.,.F.)
UBAF030.PRW - UBAF030NFD() -> CPERGUNTA := EXECBLOCK('UB030001',.F.,.F.)
UBAF030.PRW - UBAF030NFD() -> CPERGUNTA := EXECBLOCK('UB030002',.F.,.F.)
UBAF030.PRW - UBAF030NFS() -> CPERGUNTA := EXECBLOCK('UB030002',.F.,.F.)
UBSA010.PRW - UBAS010PROD() -> ARET := EXECBLOCK( 'AGRSDEV',.F.,.F., )
UBSA010.PRW - UBSA010ENT() -> ARET := EXECBLOCK( 'AGRSDEV',.F.,.F., )
VEIA060.PRW - MENUDEF() -> AROTPE := EXECBLOCK("VA060MNU",.F.,.F.)
VEIA060.PRW - VA0600183_INTEGRAVEIXX002() -> AAUTOIT := EXECBLOCK("VA060ATE",.F.,.F.,{ "VVA", OMODELVRK, ACLONE(AAUTOIT) })
VEIA060.PRW - VA0600183_INTEGRAVEIXX002() -> AAUTOPG := EXECBLOCK("VA060ATE",.F.,.F.,{ "VS9", OMODELVRL, ACLONE(AAUTOPG) })
VEIA060.PRW - VA0600183_INTEGRAVEIXX002() -> AAUTOVV0 := EXECBLOCK("VA060ATE",.F.,.F.,{ "VV0", OMODELVRJ, ACLONE(AAUTOVV0) })
VEIA060.PRW - VA0600183_INTEGRAVEIXX002() -> AAUTOVV9 := EXECBLOCK("VA060ATE",.F.,.F.,{ "VV9", OMODELVRJ, ACLONE(AAUTOVV9) })
VEIA060.PRW - VA0600433_IMPRIMIRPROPOSTA() -> EXECBLOCK("PROPPED",.F.,.F.,{ OMODEL060 })
VEIA060EVDEF.PRW - VA060E0083_CTARECEBER() -> AFINA040 := EXECBLOCK("VA060CR",.F.,.F.,{ OMODELVRL, ACLONE(AFINA040) })
VEIA060EVDEF.PRW - VA060E0083_CTARECEBER() -> LRETPEFIN := EXECBLOCK("VA060FIN",.F.,.F.,{ NOPERFINA, ACLONE(AFINA040) })
VEIA070EVPE.PRW - INTTS() -> EXECBLOCK("VA010DPGR", .F., .F., {VV1->VV1_CHAINT, ::NOPC, NREG})
VEIA142.PRW - VA1420115_REPLICARPEDIDO() -> ACPOSREP := EXECBLOCK("VA142REP",.F.,.F.)
VEIA162.PRW - VA1620355_COLUNASTATUS() -> CIMGRPO := EXECBLOCK("VA162COR",.F.,.F.,{ VQ0->(RECNO()) })
VEIA162.PRW - VA1620365_LEGENDASTATUS() -> ALEGENDA := EXECBLOCK("VA162LEG",.F.,.F.,{ ALEGENDA })
VEIA180.PRW - VA1800081_CORRIGIR_CUSTOVVG() -> EXECBLOCK("VA180CT",.F.,.F.,{ NOPCDMS })
VEIC110.PRW - VC1100031_CARREGAHEADER() -> CNAO_VCF += EXECBLOCK("VC110NCP",.F.,.F.,{"VCF"})
VEIC132.PRW - VC1320011_PROCESSA() -> EXECBLOCK("VC132FIM",.F.,.F.,{ CTITULO , ACLONE(AALLBONUS) })
VEICA100.PRW - VCA100PESQ() -> EXECBLOCK("VCA100VAO",.F.,.F.)
VEICA580.PRW - VA580FOK() -> RETURN( EXECBLOCK("VCA580MOD",.F.,.F.,) )
VEICA650.PRW - VCA650DEP() -> EXECBLOCK("VCA650DGR", .F., .F., {INCLUI, VQ7->(RECNO())})
VEICA660.PRW - VCA660051_RENOVARSEGURO() -> EXECBLOCK("VCA660RV",.F.,.F.,{AVQ8,AVQX})
VEICA660.PRW - VCA660071_GRAVACAOAPOSPADRAO() -> EXECBLOCK("VCA660DGR", .F., .F., {LINCLUI, VQ8->(RECNO())})
VEICC500.PRW - FS_IMPRIMIR() -> EXECBLOCK("VC500IMP",.F.,.F.,{ AIMPR , NTP , NLINHA })
VEICC500.PRW - VEICC500() -> EXECBLOCK("VC500AFI",.F.,.F.)
VEICC590.PRW - FS_ALTERAR() -> EXECBLOCK("VC590ALT",.F.,.F.)
VEICC610.PRW - FS_VEICC610() -> EXECBLOCK("PVCC610DG",.F.,.F.)
VEICC680.PRW - FS_IMPRIMIR() -> EXECBLOCK("VC680IMP",.F.,.F.,{NTP})
VEICC680.PRW - VCC680VER() -> ACPOSAUX := EXECBLOCK("VCM680GH",.F.,.F.)
VEICC680.PRW - VCC680VER() -> ANEWBOT := EXECBLOCK("VCC680ABT", .F., .F., {ANEWBOT})
VEICLSAE.PRW - TRANSFERELOTE() -> AITENSNEW := EXECBLOCK("VCLSAE2", .F., .F., {AITENSNEW})
VEICLSAP.PRW - CRIAPECA() -> AINCSB1 := EXECBLOCK(CPE,.F.,.F.,{AINCSB1})
VEICLSAP.PRW - EFETIVAR() -> AB1DATA := EXECBLOCK( "VCLSAP3", .F., .F., { AB1DATA } )
VEICLSAP.PRW - EFETIVAR() -> ACABCUS := IIF(EXISTBLOCK('VCLSAP1'), EXECBLOCK("VCLSAP1",.F.,.F.), {})
VEICLSAP.PRW - EFETIVAR() -> ACUST := IIF(EXISTBLOCK('VCLSAP2'), EXECBLOCK("VCLSAP2",.F.,.F., { VAL(ODADOSITEM:GETVALUE("QUANTIDADE")), ODADOSITEM:GETVALUE("TIPO") }), {})
VEICLSAP.PRW - EFETIVAR() -> EXECBLOCK( "VCLSAP4", .F., .F., {} )
VEICLSAT.PRW - EFETIVAR() -> ACUST := IIF(EXISTBLOCK('VCLSAT1'), EXECBLOCK("VCLSAT1",.F.,.F.), {})
VEICLSAT.PRW - EFETIVAR() -> ACUST := IIF(EXISTBLOCK('VCLSAT2'), EXECBLOCK("VCLSAT2",.F.,.F.), {})
VEICLSAT.PRW - EFETIVAR() -> EXECBLOCK("PECLSAT1",.F.,.F., APARAM)
VEICM510.PRW - FS_AGENDA() -> EXECBLOCK("PEVCM510",.F.,.F.)
VEICM510.PRW - VCM510011_TELA_ABORDAGEMVISITA() -> EXECBLOCK("VCM510DA",.F.,.F.)
VEICM510.PRW - VCM510CEV() -> ARET := EXECBLOCK("VCM510PE",.F.,.F.,{CEVENTO,CORIGEM,ARET})
VEICM510.PRW - VCM510VAL() -> IF !EXECBLOCK("VCM510OK",.F.,.F.)
VEICM550.PRW - VM5500018_IMPRIME() -> EXECBLOCK("VCM550IC",.F.,.F.,{ CT })
VEICM560.PRW - VM560VDA() -> LRETORNO := EXECBLOCK("CM560TOK",.F.,.F.,{NOPC})
VEICM600.PRW - MENUDEF() -> ARECEBE := EXECBLOCK("VCM600MN",.F.,.F.,{AROTINA} )
VEICM600.PRW - ML600A() -> EXECBLOCK("VCM600AI",.F.,.F., { "A" } )
VEICM680.PRW - MENUDEF() -> AROTINA := EXECBLOCK("VCM680MD", .F., .F., {AROTINA})
VEICM680.PRW - VCM680043_GRAVACANCELAMENTO() -> ACPOS := EXECBLOCK("VCM680GH",.F.,.F.)
VEICM680.PRW - VCM680FOK() -> LRET := EXECBLOCK("VCM680COK",.F.,.F.,{CRVAR})
VEICM680.PRW - VCM680GRV() -> ACPOS := EXECBLOCK("VCM680GH",.F.,.F.)
VEICM680.PRW - VCM680GRV() -> EXECBLOCK("VCM680DGR", .F., .F.)
VEICM680.PRW - VCM680TOK() -> LRET := EXECBLOCK("VCM680OK",.F.,.F.)
VEICM700.PRW - MENUDEF() -> AROTINA := EXECBLOCK("VCM700MD", .F., .F., {AROTINA})
VEIFUNA.PRW - FG_AVALCRED() -> CRETORNO := EXECBLOCK("PEQRYACR",.F.,.F.,{"VO3",CQUERY,CCODCLI,CLOJA})
VEIFUNA.PRW - FG_AVALCRED() -> CRETORNO := EXECBLOCK("PEQRYACR",.F.,.F.,{"VO4",CQUERY,CCODCLI,CLOJA})
VEIFUNA.PRW - FG_AVALCRED() -> CRETORNO := EXECBLOCK("PEQRYACR",.F.,.F.,{"VS1",CQUERY,CCODCLI,CLOJA})
VEIFUNA.PRW - FG_CKCLINI() -> LMOSTELAPE := EXECBLOCK("VFATECLI",.F.,.F.,{LMOSTELAPE})
VEIFUNA.PRW - FG_GRVLOJA() -> EXECBLOCK("GRVITLOJA",.F.,.F.,{AITENS,ACABEC,NX})
VEIFUNA.PRW - FG_GRVLOJA() -> EXECBLOCK("VLOJA1A",.F.,.F.)
VEIFUNA.PRW - OFILOAD() -> EXECBLOCK("PEMILINI",.F.,.F.)
VEIFUNA.PRW - PECLOAD() -> EXECBLOCK("PEMILINI",.F.,.F.)
VEIFUNA.PRW - STATUSVEI() -> EXECBLOCK("AVILIB011",.F.,.F.)
VEIFUNA.PRW - STATUSVEI() -> EXECBLOCK("PEDLIB011",.F.,.F.)
VEIFUNA.PRW - VEILOAD() -> EXECBLOCK("PEMILINI",.F.,.F.)
VEIFUNB.PRW - FM_ESTRESITE() -> AITENSNEW := EXECBLOCK("VFUNB6", .F., .F., {AITENSNEW})
VEIFUNB.PRW - FM_IMPVO4() -> APE := EXECBLOCK("FMIMPORC",.F.,.F.,{ASRV})
VEIFUNB.PRW - FM_IMPVSJ() -> AITENSNEW := EXECBLOCK("VFUNB1", .F., .F., {AITENSNEW})
VEIFUNB.PRW - FM_IMPVSJ() -> AITENSNEW := EXECBLOCK("VFUNB2", .F., .F., {AITENSNEW})
VEIFUNB.PRW - FM_IMPVSJ() -> EXECBLOCK("FMSGCPOF",.F.,.F., { _LCONFIRMSX } )
VEIFUNB.PRW - FM_IPECNDISP() -> RPTSTATUS( { |LEND| EXECBLOCK("PEIPECND",.F.,.F.,{ AITENSNIMP , CNOMEREL }) } )
VEIFUNB.PRW - FM_NEWBOT() -> ANBOTAUX := EXECBLOCK(_CPONTOE,.F.,.F.,_APARAM)
VEIFUNB.PRW - FM_RESITE() -> AITENSNEW := EXECBLOCK("VFUNB4", .F., .F., {AITENSNEW})
VEIFUNB.PRW - FM_RESITE() -> AITENSNEW := EXECBLOCK("VFUNB5", .F., .F., {AITENSNEW})
VEIFUNB.PRW - FM_TRF261() -> AITENSNEW := EXECBLOCK("PEVFBXF261",.F.,.F.,{AITENSNEW})
VEIFUNB.PRW - FM_VEIUMOV() -> ±±ºDESCRICAO ³ EXECBLOCK PARA RETORNAR DESCRICAO DO PRODUTO DA 1A.º±±
VEIFUNB.PRW - FS_VS3VDD() -> AITENSNEW := EXECBLOCK("VFUNB3", .F., .F., {AITENSNEW})
VEIFUNC.PRW - FG_COMISS() -> EXECBLOCK("PECOMSE3",.F.,.F.)
VEIFUNC.PRW - FG_COMISS() -> EXECBLOCK("PECOMVSG",.F.,.F.)
VEIFUNC.PRW - FG_ITESUB() -> CRET := EXECBLOCK("CHKITESUB",.F.,.F.)
VEIFUNC.PRW - FG_ITESUB() -> EXECBLOCK("PEITESUB",.F.,.F.,{CQUERY})
VEIFUNC.PRW - FG_ITESUB() -> IF !EXECBLOCK("VLDITSUB",.F.,.F.)
VEIFUNC.PRW - FG_PEDORD() -> EXECBLOCK("IMPORD",.F.,.F.,{CNUMOSV,'IMPORD',CPARAMT})
VEIFUNC.PRW - FG_PEDORD() -> EXECBLOCK("IMPORD",.F.,.F.,{CNUMOSV,'IMPOSV',CPARAMT})
VEIFUNC.PRW - FG_PEDREL() -> EXECBLOCK("RELPECE",.F.,.F.,{CNUMOSV,CTIPTEM,'RELPECE'})
VEIFUNC.PRW - FG_PEDREL() -> EXECBLOCK("RELPECE",.F.,.F.,{CNUMOSV,CTIPTEM,'RELPECN'})
VEIFUNC.PRW - FG_PERDES() -> LRET := EXECBLOCK("DESCOM110",.F.,.F.,{LRET})
VEIFUNC.PRW - FG_PRTFIC() -> EXECBLOCK("FICVEI",.F.,.F.)
VEIFUNC.PRW - FG_TABTRIB() -> CRET := EXECBLOCK("CHKTES",.F.,.F.,{CRET})
VEIVA260.PRW - VEIVA260() -> LOCAL CVLDEXC := ".T."
VEIVA340.PRW - VEIVA340() -> AADD(AOPCOES,{ 4 , STR0034 , "PE" , "IIF(VEIVA340SA1(4,0),EXECBLOCK('VA340IM',.F.,.F.,{SA1->A1_COD,''}),.T.)" })
VEIVA340.PRW - VEIVA340OK() -> EXECBLOCK("VA340VLD",.F.,.F.,{C1ALI})
VEIVA350.PRW - VEIVA350CAR() -> CPARAMET := EXECBLOCK("VA350PAR",.F.,.F.,{CROT,CPARAMET})
VEIVA370.PRW - VEIVA370CAR() -> CPES := EXECBLOCK("VA370PES",.F.,.F.,{CROT,CPES})
VEIVA610.PRW - FS_GRAVA() -> EXECBLOCK("VA610DPGR",.F.,.F.)
VEIVA610.PRW - FS_GRAVA() -> EXECBLOCK("VA610MUL",.F.,.F.,{"1"})
VEIVA610.PRW - MENUDEF() -> ARECEBE := EXECBLOCK("PE610AROT",.F.,.F.,{AROTINA} )
VEIVA610.PRW - PEVA610() -> EXECBLOCK("PEVA610R",.F.,.F.)
VEIVA610.PRW - PEVA610() -> EXECBLOCK("PEVA610REC",.F.,.F.)
VEIVA610.PRW - VEIA610FAS() -> CCAMPO := EXECBLOCK("PE610FAST",.F.,.F., { CCAMPO } )
VEIVA640.PRW - FS_CONSVEIC() -> EXECBLOCK("VA640AV2",.F.,.F.)
VEIVC140.PRW - FS_PESQVV1() -> AVEIAUX := EXECBLOCK("VC140VEI", .F., .F., { 1, CCHASSI, CCHAINT })
VEIVC140.PRW - VEIVC140() -> AVEIAUX := EXECBLOCK("VC140VEI", .F., .F., { 0, "", "" })
VEIVM005.PRW - DEVVEI() -> EXECBLOCK("VM005CNF",.F.,.F.)
VEIVM005.PRW - INTDEV() -> EXECBLOCK("NFENTVEI",.F.,.F.,{VVF->VVF_NUMNFI,VVF->VVF_SERNFI,VVF->VVF_CODFOR,VVF->VVF_LOJA})
VEIVM006.PRW - ATEND000() -> EXECBLOCK("AVIVEI000",.F.,.F.)
VEIVM006.PRW - FS_CANCENT() -> EXECBLOCK("VM000EXC",.F.,.F.)
VEIVM006.PRW - FS_GRVENT() -> EXECBLOCK("VA010DPGR",.F.,.F.,{VV1->VV1_CHAINT,3,0})
VEIVM006.PRW - FS_GRVENT() -> EXECBLOCK("VEI000_A",.F.,.F.)
VEIVM006.PRW - FS_GRVENT() -> EXECBLOCK("VM000AGB1",.F.,.F.)
VEIVM006.PRW - FS_TUDOOK() -> EXECBLOCK("NFENTVEI",.F.,.F.,{VVF->VVF_NUMNFI,VVF->VVF_SERNFI,VVF->VVF_CODFOR,VVF->VVF_LOJA})
VEIVM006.PRW - FS_TUDOOK() -> EXECBLOCK("VM000ANF",.F.,.F.)
VEIVM006.PRW - FS_TUDOOK() -> EXECBLOCK("VM000DNF",.F.,.F.)
VEIVM006.PRW - FS_TUDOOK() -> LRET := EXECBLOCK("VEM000TOK",.F.,.F.)
VEIVM006.PRW - VE000INC() -> EXECBLOCK("VA010DPGR",.F.,.F.,{VV1->VV1_CHAINT,3,0})
VEIVM010.PRW - FS_FICHAVEI() -> EXECBLOCK("FS_COMVEI",.F.,.F.)
VEIVM010.PRW - FS_FINVM010() -> EXECBLOCK("BLQCOB",.F.,.F.,{CNOTA,,,,CPREFNF,"1",COBS1,COBS2,COBS3,VV0->VV0_CODBCO})
VEIVM010.PRW - FS_FINVM010() -> EXECBLOCK("NFSAIVEI",.F.,.F.,{VV0->VV0_NUMNFI,VV0->VV0_SERNFI})
VEIVM010.PRW - FS_FINVM010() -> EXECBLOCK("NFSERVIC",.F.,.F.,{VV0->VV0_NUMNFI,VV0->VV0_SERNFI,"CFD"})
VEIVM010.PRW - FS_FINVM010() -> EXECBLOCK("PROPVEI",.F.,.F.,{VV0->VV0_NUMPED})
VEIVM010.PRW - FS_FINVM010() -> EXECBLOCK("VM010ANF",.F.,.F.)
VEIVM010.PRW - FS_FINVM010() -> EXECBLOCK("VM010APD",.F.,.F.)
VEIVM010.PRW - FS_FINVM010() -> EXECBLOCK("VM010DNF",.F.,.F.)
VEIVM010.PRW - FS_FINVM010() -> EXECBLOCK("VM010DPD",.F.,.F.)
VEIVM010.PRW - FS_GRAVA010() -> EXECBLOCK("FS_COMVEI",.F.,.F.)
VEIVM010.PRW - FS_GRAVA010() -> EXECBLOCK("INSEREOSV",.F.,.F.)
VEIVM010.PRW - FS_GRAVA010() -> EXECBLOCK("PEDVM010",.F.,.F.)
VEIVM010.PRW - FS_GRCDPG10() -> EXECBLOCK("VM010TIT",.F.,.F.)
VEIVM011.PRW - ATEND011() -> CSTR1 := EXECBLOCK("CAMPOSVEI1",.F.,.F.)
VEIVM011.PRW - ATEND011() -> CSTR2 := EXECBLOCK("CAMPOSVEI2",.F.,.F.)
VEIVM011.PRW - ATEND011() -> CSTR3 := EXECBLOCK("CAMPOSVEI3",.F.,.F.)
VEIVM011.PRW - CPOMEM011() -> &(CLOCVVA+"->VVA_JUREST") := NCORRECAO + EXECBLOCK(CFUNJEST,.F.,.F.,{VV1->VV1_TRACPA,VV1->VV1_CHAINT,SE2->E2_BAIXA,DDATABASE,'V'})
VEIVM011.PRW - CPOMEM011() -> &(CLOCVVA+"->VVA_JUREST") := NCORRECAO + EXECBLOCK(CFUNJEST,.F.,.F.,{VV1->VV1_TRACPA,VV1->VV1_CHAINT,VVF->VVF_DATEMI,DDATABASE,'V'})
VEIVM011.PRW - ENCERRA011() -> EXECBLOCK("CADFOR011",.F.,.F.,{@ACABFORNECEDOR})
VEIVM011.PRW - ENCERRA011() -> EXECBLOCK("ENCATE011",.F.,.F.)
VEIVM011.PRW - ENCERRA011() -> EXECBLOCK("EXCATE011",.F.,.F.)
VEIVM011.PRW - ENCERRA011() -> IF !EXECBLOCK("VLDEXC011",.F.,.F.)
VEIVM011.PRW - FINAL011() -> EXECBLOCK("BLQCOB",.F.,.F.,{SF2->F2_DOC,,,,SF2->F2_PREFIXO,"1",COBS1,COBS2,COBS3,VV0->VV0_CODBCO})
VEIVM011.PRW - FINAL011() -> EXECBLOCK("NFSAIVEI",.F.,.F.,{SF2->F2_DOC,SF2->F2_SERIE})
VEIVM011.PRW - FINAL011() -> EXECBLOCK("NFSERVIC",.F.,.F.,{VV0->VV0_NUMNFI,VV0->VV0_SERNFI,"CFD"})
VEIVM011.PRW - FINAL011() -> EXECBLOCK("VM011DNF",.F.,.F.)
VEIVM011.PRW - FINAL011() -> IF !EXECBLOCK("CHKFAT011",.F.,.F.)
VEIVM011.PRW - FINAL011() -> IF !EXECBLOCK("VM011DGA",.F.,.F.)
VEIVM011.PRW - FINAL011() -> IF !EXECBLOCK("VM011GVA",.F.,.F.)
VEIVM011.PRW - FS_CALC011() -> APARCFIN := EXECBLOCK("VM011PFIN",.F.,.F.,{AITEPARC})
VEIVM011.PRW - FS_CALCDTENT() -> DDTESUG := EXECBLOCK("PVM011DTENT",.F.,.F.,{VVA->VVA_NUMTRA,VVA->VVA_CHAINT,DDTESUG})
VEIVM011.PRW - FS_CHKINF() -> IF !EXECBLOCK("CHKFAT011",.F.,.F.)
VEIVM011.PRW - FS_EXCATE() -> EXECBLOCK("EXCATE011",.F.,.F.)
VEIVM011.PRW - FS_EXCATE() -> IF !EXECBLOCK("VLDEXC011",.F.,.F.)
VEIVM011.PRW - FS_EXCATE() -> IF !EXECBLOCK("VM011VLEX",.F.,.F.)
VEIVM011.PRW - FS_FILTROVV() -> EXECBLOCK("PEVM011OSV",.F.,.F.)
VEIVM011.PRW - FS_GERANOTA() -> EXECBLOCK("BLQCOB",.F.,.F.,{SF2->F2_DOC,,,,SF2->F2_PREFIXO,"1",COBS1,COBS2,COBS3,VV0->VV0_CODBCO})
VEIVM011.PRW - FS_GERANOTA() -> EXECBLOCK("INSEREORC",.F.,.F.)
VEIVM011.PRW - FS_GERANOTA() -> EXECBLOCK("INSEREOSV",.F.,.F.)
VEIVM011.PRW - FS_GERANOTA() -> EXECBLOCK("NFSAIVEI",.F.,.F.,{SF2->F2_DOC,SF2->F2_SERIE})
VEIVM011.PRW - FS_GERANOTA() -> EXECBLOCK("NFSERVIC",.F.,.F.,{VV0->VV0_NUMNFI,VV0->VV0_SERNFI,"CFD"})
VEIVM011.PRW - FS_GERANOTA() -> EXECBLOCK("PEDVEI011",.F.,.F.)
VEIVM011.PRW - FS_GERATIT() -> ARECEBE := EXECBLOCK("DUPVEI011",.F.,.F.,{AFINANC})
VEIVM011.PRW - FS_GERATIT() -> ARECEBE := EXECBLOCK("DUPVEI011",.F.,.F.,{APARCELAS})
VEIVM011.PRW - FS_GERATIT() -> EXECBLOCK("VM010TIT",.F.,.F.)
VEIVM011.PRW - FS_GERATIT() -> IF !EXECBLOCK("VM011GV2",.F.,.F.)
VEIVM011.PRW - FS_GRVATE1() -> EXECBLOCK("FS_COMVEI",.F.,.F.)
VEIVM011.PRW - FS_GRVATE1() -> EXECBLOCK("GRVATD011",.F.,.F.)
VEIVM011.PRW - FS_GRVATE2() -> EXECBLOCK("FS_COMVEI",.F.,.F.)
VEIVM011.PRW - FS_LIBATE() -> LLIBVEI := EXECBLOCK("CKLBFT012",.F.,.F.)
VEIVM011.PRW - FS_MARCA011() -> IF !EXECBLOCK("VM011SELVEI",.F.,.F.)
VEIVM011.PRW - FS_PERG011() -> IF !EXECBLOCK("CHKMOD011",.F.,.F.)
VEIVM011.PRW - FS_TESTDRIVE() -> EXECBLOCK("PEVM011ITD",.F.,.F.)
VEIVM011.PRW - IMPPRO011() -> EXECBLOCK("PROPVEI",.F.,.F.,{VV0->VV0_NUMPED})
VEIVM011.PRW - IMPPRO011() -> IF !EXECBLOCK("VM011GVA",.F.,.F.)
VEIVM011.PRW - LEGEN011() -> ARECEBE := EXECBLOCK("VM011LEG",.F.,.F.,{ALEGENDA,"L"})
VEIVM011.PRW - STATUS011() -> EXECBLOCK("AVILIB011",.F.,.F.)
VEIVM011.PRW - STATUS011() -> EXECBLOCK("DEPLIB011",.F.,.F.)
VEIVM011.PRW - STATUS011() -> EXECBLOCK("PEDLIB011",.F.,.F.)
VEIVM011.PRW - STATUS011() -> IF !EXECBLOCK("VM011GVA",.F.,.F.)
VEIVM011.PRW - STATUS011() -> LOK := EXECBLOCK("PREAPR011",.F.,.F.)
VEIVM012.PRW - CAIXA012() -> CSTR2 := EXECBLOCK("CAMPOSVEI2",.F.,.F.)
VEIVM012.PRW - CPOMEM012() -> &(CLOCVVA+"->VVA_JUREST") := NCORRECAO + EXECBLOCK(CFUNJEST,.F.,.F.,{VV1->VV1_TRACPA,VV1->VV1_CHAINT,SE2->E2_BAIXA,DDATABASE,'V'})
VEIVM012.PRW - CPOMEM012() -> &(CLOCVVA+"->VVA_JUREST") := NCORRECAO + EXECBLOCK(CFUNJEST,.F.,.F.,{VV1->VV1_TRACPA,VV1->VV1_CHAINT,VVF->VVF_DATEMI,DDATABASE,'V'})
VEIVM012.PRW - FINAL012() -> IF !EXECBLOCK("CKLBFT012",.F.,.F.)
VEIVM015.PRW - FS_IMPRESSR() -> EXECBLOCK("NFENTVEI",.F.,.F.,{VVF->VVF_NUMNFI,VVF->VVF_SERNFI,VVF_CODFOR,VVF_LOJA})
VEIVM015.PRW - FS_IMPRESSR() -> EXECBLOCK("NFSAIVEI",.F.,.F.,{SF2->F2_DOC,SF2->F2_SERIE,"SN"})
VEIVM015.PRW - FS_INTDEV() -> EXECBLOCK("NFENTVEI",.F.,.F.,{VVF->VVF_NUMNFI,VVF->VVF_SERNFI,VVF->VVF_CODFOR,VVF->VVF_LOJA})
VEIVM016.PRW - FS_TTUDOOK() -> EXECBLOCK("NFSAIVEI",.F.,.F.,{VV0->VV0_NUMNFI,VV0->VV0_SERNFI})
VEIVM017.PRW - FS_RTUDOOK() -> EXECBLOCK("NFSAIVEI",.F.,.F.,{VV0->VV0_NUMNFI,VV0->VV0_SERNFI})
VEIVM017.PRW - FS_RTUDOOK() -> EXECBLOCK("VM017DNF",.F.,.F.)
VEIVM017.PRW - FS_VLSAIRE() -> EXECBLOCK("PVM017VREM",.F.,.F.)
VEIVM018.PRW - FS_DEVCPA() -> EXECBLOCK("VM018AGR",.F.,.F.)
VEIVM018.PRW - FS_DEVCPA() -> EXECBLOCK("VM018DCA",.F.,.F.)
VEIVM018.PRW - FS_DEVCPA() -> EXECBLOCK("VM018DGR",.F.,.F.)
VEIVM020.PRW - VEI020A() -> ANEWBOT := EXECBLOCK("VM020ABT",.F.,.F.)
VEIVM020.PRW - VEI020A() -> EXECBLOCK("VA010DPGR",.F.,.F.,{VV1->VV1_CHAINT,NOPC,NREG})
VEIVM020.PRW - VEI020I() -> EXECBLOCK("VA010DPGR",.F.,.F.,{VV1->VV1_CHAINT,NOPC,NREG})
VEIVM030.PRW - FS_PROC030() -> EXECBLOCK("NFSAIVEI",.F.,.F.,{VV0->VV0_NUMNFI,VV0->VV0_SERNFI})
VEIVM030.PRW - FS_PROC030() -> EXECBLOCK("PEDVM030",.F.,.F.)
VEIVM030.PRW - FS_PROC030() -> EXECBLOCK("VM030DNF",.F.,.F.)
VEIVM040.PRW - FS_GRVVM040() -> AAUXRETORNO := EXECBLOCK("VM040AGD",.F.,.F., { AHEADDR,ACOLSDR } )
VEIVM040.PRW - FS_GRVVM040() -> ARETPGR := EXECBLOCK("VM040PGR",.F.,.F., { CSQL , IF(NDR==1,"D","R"),NCONT, ACOLSDR[NCONT,FG_POSVAR("VVD_VALOR","AHEADDR")] } )
VEIVM040.PRW - VM040028_PEVM040DEL() -> EXECBLOCK("VM040DEL",.F.,.F., { AHEAD,ACOLS,NABA } )
VEIVM040.PRW - VM040038_PEVM040ALT() -> EXECBLOCK("VM040ALT",.F.,.F., { AHEAD,ACOLS,NABA } )
VEIVM040.PRW - VM040TUDOK() -> RETURN ( EXECBLOCK("VM040TOK",.F.,.F., { ACLONE(ACOLS) } ) )
VEIVM050.PRW - FS_PROC050() -> EXECBLOCK("NFENTVEI",.F.,.F.,{VVF->VVF_NUMNFI, IIF(FIELDPOS("VVF_SDOC") > 0, VVF->VVF_SDOC, VVF->VVF_SERNFI) , VVF->VVF_CODFOR,VVF->VVF_LOJA})
VEIVM060.PRW - FS_BLOCHASSI() -> EXECBLOCK("VM060DPGR", .F., .F., {CTIPO, NRECNOVB0})
VEIVM060.PRW - FS_BLOCHASSI() -> IF !EXECBLOCK("PEVM060D", .F., .F.)
VEIVM100.PRW - FS_GRAVADE() -> EXECBLOCK("FS_COMVEI",.F.,.F.)
VEIVM120.PRW - FS_VEIVM120() -> EXECBLOCK("VM120DGR",.F.,.F.,{ SB1->B1_COD , VV1->VV1_CHASSI , CARMDE , CARMPARA })
VEIVM130.PRW - FS_EXECUTAR() -> EXECBLOCK("VM130DET",.F.,.F.)
VEIVM130.PRW - VEIVM130TAR() -> EXECBLOCK("VM130AIT",.F.,.F.)
VEIVM150.PRW - FS_INC() -> LRET := EXECBLOCK("VM150VLI",.F.,.F.,{AVEICULO[OIMOBLX:NAT,2]})
VEIVM180.PRW - VM180GNFTIT() -> AAUXPARC := EXECBLOCK("VM180TIT",.F.,.F.,{ ACLONE(AVETTIT) })
VEIVM180.PRW - VM180GNFTIT() -> EXECBLOCK("VM180FIM",.F.,.F.,{NOPCNFTIT,AVETPE})
VEIVM180.PRW - VM180VTELA() -> IF !EXECBLOCK("VM180ANT",.F.,.F.,{NTP})
VEIVM190.PRW - FS_LEVANTA() -> NVLRBAS := EXECBLOCK("VM190BAS",.F.,.F.,{NVLRBAS})
VEIVM190.PRW - FS_VQ0() -> ACPOSREP := EXECBLOCK("VM190REP",.F.,.F.)
VEIVM190.PRW - FS_VQ0() -> EXECBLOCK("VM190GRV",.F.,.F.)
VEIVM190.PRW - FS_VQ0() -> EXECBLOCK("VM190VV1",.F.,.F.,{NOPCVQ0,VV1->VV1_FILIAL,VV1->VV1_CHAINT})
VEIVM190.PRW - FS_VQ0() -> LPODEEXCLUIR := EXECBLOCK("VM190EXC", .F., .F., { NRECVQ0 })
VEIVM190.PRW - VEIVM190() -> ACORESVQ0 := EXECBLOCK("VM190STA",.F.,.F.)
VEIVM190.PRW - VEIVM190() -> ACPOSUSER := EXECBLOCK("VM190CPO", .F., .F.)
VEIVM190.PRW - VEM1900098_VERIFICAPEVQ1() -> EXECBLOCK("VM190VQ1",.F.,.F.,{NTIPO,VQ0->VQ0_FILIAL,VQ0->VQ0_NUMPED})
VEIVM190.PRW - VVM1900021_COR2COLUNA() -> LOCAL CCOR2COLUNA := EXECBLOCK("VM190COR",.F.,.F.,{ AVETPED , NLINVETPED })
VEIVM190.PRW - VVM1900031_LEGENDAPEDIDOS() -> ALEGENDA := EXECBLOCK("VM190LEG",.F.,.F.,{ ALEGENDA })
VEIVM200.PRW - FS_XML() -> LPEVALID := EXECBLOCK("VM200VLD",.F.,.F.,{NTP,AVQ1})
VEIVMM01.PRW - FS_CARDAD() -> M->VVA_JUREST := EXECBLOCK(CFUNJEST,.F.,.F.,{VV1->VV1_TRACPA,VV1->VV1_CHAINT,SE2->E2_BAIXA,DDATABASE,'V'})
VEIVMM01.PRW - FS_CARDAD() -> M->VVA_JUREST := EXECBLOCK(CFUNJEST,.F.,.F.,{VV1->VV1_TRACPA,VV1->VV1_CHAINT,VVF->VVF_DATEMI,DDATABASE,'V'})
VEIVMM01.PRW - FS_CARDAD() -> M->VVA_JUREST := NVALCORREC + EXECBLOCK(CFUNJEST,.F.,.F.,{VV1->VV1_TRACPA,VV1->VV1_CHAINT,VVF->VVF_DATEMI,DDATABASE,'V'})
VEIVMM01.PRW - FS_FINVM010() -> EXECBLOCK("BLQCOB",.F.,.F.,{CNOTA,,,,"VEI","1",COBS1,COBS2,COBS3,VV0->VV0_CODBCO})
VEIVMM01.PRW - FS_FINVM010() -> EXECBLOCK("PROPVEI",.F.,.F.,{VV0->VV0_NUMPED,IF(CTIP=="S","S","P")})
VEIVMM01.PRW - FS_SIMULAGRV() -> EXECBLOCK("FS_COMVEI",.F.,.F.)
VEIVR220.PRW - FS_IMPRIME() -> M->VVA_JUREST := EXECBLOCK(CFUNJEST,.F.,.F.,{( CQALVV1 )->VV1_TRACPA,( CQALVV1 )->VV1_CHAINT,VVF->VVF_DATEMI,DDATABASE,'V'})
VEIXA010.PRW - MENUDEF() -> AROTINA := EXECBLOCK("VX010MD", .F., .F., {AROTINA})
VEIXA010.PRW - VXA010A() -> EXECBLOCK("VA010DPGR",.F.,.F.,{VV1->VV1_CHAINT,NOPC,NREG})
VEIXA010.PRW - VXA010I() -> EXECBLOCK("VA010DPGR", .F., .F., {VV1->VV1_CHAINT, NOPC, NREG})
VEIXA010.PRW - VXA010TOK() -> LRET := EXECBLOCK("VXA010OK",.F.,.F.,{NOPCTOK})
VEIXA018.PRW - MENUDEF() -> AROTINA := EXECBLOCK("VXA018BOT",.F.,.F.,{AROTINA})
VEIXA018.PRW - VEIXA018() -> CFILUSER := EXECBLOCK("VEI018FBRW",.F.,.F.)
VEIXA018.PRW - VXA018LEG() -> ALEGUSR := EXECBLOCK("VM011LEG",.F.,.F.,{ALEGENDA,"L"})
VEIXA021.PRW - VXA021LEG() -> ARECEBE := EXECBLOCK("VA021LEG",.F.,.F.,{ALEGENDA,"L"})
VEIXA030.PRW - MENUDEF() -> AROTINA := EXECBLOCK("VXA030MD", .F., .F., {AROTINA})
VEIXA050.PRW - FS_GRAVAR() -> EXECBLOCK("VXA50VV1",.F.,.F.,{NOPC,VV1->VV1_FILIAL,VV1->VV1_CHAINT})
VEIXA340.PRW - VXA340IMP() -> EXECBLOCK("OFA340DPG",.F.,.F.,{VVF->VVF_NUMNFI,VVF->VVF_SERNFI,VVF->VVF_CODFOR,VVF->VVF_LOJA})
VEIXC001.PRW - FS_CONSVEIC() -> CVXC01QRY := EXECBLOCK("VXC01QRY",.F.,.F.)
VEIXC001.PRW - FS_FILTVETOR() -> EXECBLOCK("PEVM011OSV",.F.,.F.)
VEIXC001.PRW - FS_LEVANTA() -> EXECBLOCK("VXC01FIL",.F.,.F.)
VEIXC001.PRW - FS_VALSELEC() -> LRET := EXECBLOCK("VXC01VAL", .F., .F.)
VEIXC001.PRW - VXC001F12() -> AVEICCUST := EXECBLOCK("VXC01CPO",.F.,.F.,)
VEIXC006.PRW - FS_LEVANTA() -> AVEICVER := EXECBLOCK("VXC06VET",.F.,.F.,{ACLONE(AVEICVER)})
VEIXC006.PRW - FS_PERG() -> LRET := EXECBLOCK("VXC06VAL", .F., .F.)
VEIXFUNA.PRW - FGX_ALTGRU() -> LAUX := EXECBLOCK("PEALTGR1",.F.,.F.)
VEIXFUNA.PRW - FGX_ALTVEI() -> EXECBLOCK("PEALTVEI",.F.,.F.)
VEIXFUNA.PRW - FGX_AMOVVEI() -> IF !EXECBLOCK("VXFAAMOV",.F.,.F.,{ VV1->VV1_FILIAL , VV1->VV1_CHAINT })
VEIXFUNA.PRW - FGX_BONVEI() -> NCUSTOVEI := EXECBLOCK("PEVBABON",.F.,.F.,{( _CALIAS )->( VZQ_CODBON ),NCUSTOVEI,_CCHASSI})
VEIXFUNA.PRW - FGX_MSDOC() -> ABUTTPE := EXECBLOCK("MTENCBUT",.F.,.F.,{ABUTTONS})
VEIXFUNA.PRW - FGX_MSDOC() -> EXECBLOCK("MSDOCOK",.F.,.F.,{CALIAS, NREG})
VEIXFUNA.PRW - FGX_MSDOC() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MSDOCBUT", .F., .F., { CALIAS } ) ) == "A"
VEIXFUNA.PRW - FGX_MSDOC() -> LRET := EXECBLOCK("MTVLDACE",.F.,.F.)
VEIXFUNA.PRW - FGX_MSDOC() -> LRETCON := EXECBLOCK('MTCONHEC', .F., .F.)
VEIXFUNA.PRW - FGX_MSDOC() -> LVISPE := IIF(VALTYPE(LRETU:=EXECBLOCK("MSDOCEXC",.F.,.F.))=='L',LRETU,LVISUAL)
VEIXFUNA.PRW - FGX_MSDOC() -> LVISUAL := IIF(VALTYPE(LVISUAL:=EXECBLOCK("MSDOCVIS",.F.,.F.))=='L',LVISUAL,.F.)
VEIXFUNA.PRW - FGX_MSVAC9() -> LRET := EXECBLOCK("MSDOCFIL",.F.,.F.,{AC9->(RECNO())})
VEIXFUNA.PRW - FGX_SA1SA2() -> EXECBLOCK("PVEXFSA1",.F.,.F.)
VEIXFUNA.PRW - FGX_SUSSA1() -> EXECBLOCK("PESUSSA1",.F.,.F.,{ "2" , _LAUTO , _CCODSUS , _CLOJSUS , SUS->US_CODCLI , SUS->US_LOJACLI })
VEIXFUNA.PRW - FGX_SUSSA1() -> IF !LPE .OR. EXECBLOCK("PESUSSA1",.F.,.F.,{ "1" , _LAUTO , _CCODSUS , _CLOJSUS , SUS->US_CODCLI , SUS->US_LOJACLI })
VEIXFUNA.PRW - FGX_VEISIM() -> NVLR := EXECBLOCK(CFUNJEST,.F.,.F.,{ VV1->VV1_TRACPA , VV1->VV1_CHAINT , DVVF_DATEMI , DDATABASE , 'V' })
VEIXFUNA.PRW - FGX_VLRSUGV() -> NVLRVDA := EXECBLOCK("PVLRSUGV",.F.,.F.,{ NVLRVDA , _CCHAINT , _CCODMAR , _CMODVEI , _CSEGMOD , _CCORVEI , _CCODCLI , _CLOJCLI })
VEIXFUNA.PRW - FS_SELVEI() -> LRET := EXECBLOCK("PESELVEI",.F.,.F.,{ ACLONE(AITEVEI) })
VEIXFUNB.PRW - NEW() () -> ASTATUS := EXECBLOCK("VXFNB001",.F.,.F.,{ASTATUS})
VEIXI001.PRW - VEIXI001() -> EXECBLOCK("BLQCOB",.F.,.F.,{SF2->F2_DOC,,,,SF2->F2_PREFIXO,"1",SUBSTR(SA6->A6_MENSAGE,1,49),SUBSTR(SA6->A6_MENSAGE,50,49),SUBSTR(SA6->A6_MENSAGE,100,50),VV0->VV0_CODBCO})
VEIXI001.PRW - VEIXI001() -> EXECBLOCK("NFSAIVEI",.F.,.F.,{SF2->F2_DOC,SF2->F2_SERIE})
VEIXI001.PRW - VEIXI001() -> EXECBLOCK("VM011DNF",.F.,.F.)
VEIXI001.PRW - VEIXI001() -> EXECBLOCK("VXI02TIT",.F.,.F.)
VEIXI001.PRW - VEIXI001() -> LINTERROMPE := EXECBLOCK("VX001DFA",.F.,.F.,{VV9->VV9_NUMATE,VV9->VV9_STATUS})
VEIXI001.PRW - VXI001CANCEL() -> IF !EXECBLOCK("VLDEXC011",.F.,.F.)
VEIXI001.PRW - VXI001CANCEL() -> IF !EXECBLOCK("VXI01ACA",.F.,.F.,{VV9->VV9_NUMATE,CFASEPRX})
VEIXI001.PRW - VXI001CANCEL() -> IF !EXECBLOCK("VXI01DCA",.F.,.F.,{VV9->VV9_NUMATE,CFASEPRX})
VEIXI002.PRW - VEIXI002CP() -> AAUXPARC := EXECBLOCK("VXI02CP",.F.,.F.,{ ACLONE(APARCELA) })
VEIXI002.PRW - VEIXI002CR() -> AAUXPARC := EXECBLOCK("VXI02CR",.F.,.F.,{ ACLONE(APARCELA) , APARCELE1[NLINHA] })
VEIXI002.PRW - VEIXI002CR() -> APARCELA := EXECBLOCK("VXI02BXF", .F., .F., APARCELA)
VEIXI002.PRW - VEIXI002LJ() -> EXECBLOCK("VXI02ILJ",.F.,.F.)
VEIXI002.PRW - VXI002FAT() -> EXECBLOCK("PEDVEI011",.F.,.F.)
VEIXX000.PRW - VX000ATUCP() -> AITEPARC := EXECBLOCK("VX000PAR",.F.,.F.,{AITEPARC,APARCCUST})
VEIXX000.PRW - VX000CANCEL() -> EXECBLOCK("VM000EXC",.F.,.F.)
VEIXX000.PRW - VX000CANCEL() -> LRET := EXECBLOCK("VX000CNF",.F.,.F.)
VEIXX000.PRW - VX000EMINF() -> AVETDESP := EXECBLOCK("VX000ICP", .F., .F., {AVETDESP})
VEIXX000.PRW - VX000EMINF() -> EXECBLOCK("NFENTVEI",.F.,.F.,{VVF->VVF_NUMNFI,VVF->VVF_SERNFI,VVF->VVF_CODFOR,VVF->VVF_LOJA})
VEIXX000.PRW - VX000EMINF() -> EXECBLOCK("VA610MUL",.F.,.F.,{"2"})
VEIXX000.PRW - VX000EMINF() -> EXECBLOCK("VX000AIN",.F.,.F.,{NOPC,CX0OPEMOV})
VEIXX000.PRW - VX000EXEC() -> ACPOSUSER := EXECBLOCK("VX000CPO", .F., .F.)
VEIXX000.PRW - VX000EXEC() -> APARCCUST := EXECBLOCK("VX000CCP",.F.,.F.)
VEIXX000.PRW - VX000EXEC() -> EXECBLOCK("VX000MF1",.F.,.F.)
VEIXX000.PRW - VX000GRV() -> EXECBLOCK("VX000ANF",.F.,.F.,{NOPC,CX0OPEMOV})
VEIXX000.PRW - VX000GRV() -> EXECBLOCK("VX000DCA",.F.,.F.,{NOPC,CX0OPEMOV})
VEIXX000.PRW - VX000GRV() -> EXECBLOCK("VX000DNF",.F.,.F.,{NOPC,CX0OPEMOV})
VEIXX000.PRW - VX000LINOK() -> ARETPE := EXECBLOCK('PEV000LOK')
VEIXX000.PRW - VX000TSAIR() -> LRET := EXECBLOCK("VX000SAI",.F.,.F.,{NOPC,CX0OPEMOV})
VEIXX000.PRW - VX000TUDOK() -> LRET := EXECBLOCK("VX000TOK",.F.,.F.)
VEIXX001.PRW - VX001CANCEL() -> LRET := EXECBLOCK("VX001CNF",.F.,.F.)
VEIXX001.PRW - VX001EMINF() -> EXECBLOCK("NFSAIVEI",.F.,.F.,{VV0->VV0_NUMNFI,VV0->VV0_SERNFI})
VEIXX001.PRW - VX001EMINF() -> EXECBLOCK("VX001APV",.F.,.F.)
VEIXX001.PRW - VX001FIELDOK() -> IF !EXECBLOCK("VXX01FOK",.F.,.F.)
VEIXX001.PRW - VX001GRV() -> EXECBLOCK("VX001DNF",.F.,.F.)
VEIXX001.PRW - VX001GRV() -> IF !EXECBLOCK("VX001ANF",.F.,.F.)
VEIXX001.PRW - VX001LINOK() -> IF !EXECBLOCK("VXX01LOK",.F.,.F.)
VEIXX001.PRW - VX001TUDOK() -> IF !EXECBLOCK("VM030ANF",.F.,.F.)
VEIXX001.PRW - VX001TUDOK() -> IF !EXECBLOCK("VXX01TOK",.F.,.F.)
VEIXX002.PRW - VEIXX002() -> EXECBLOCK("VX002FIN",.F.,.F.,{NOPC})
VEIXX002.PRW - VX0020011_VALIDARELACIONAMENTOINTERESSE() -> LRET := EXECBLOCK("VX002VOP",.F.,.F.,{ M->VV9_FILIAL , M->VV9_NUMATE , ACLONE(AVETRELAC) })
VEIXX002.PRW - VX002BTVLN() -> EXECBLOCK("VX002TABG", .F., .F., {CTP, NOPC})
VEIXX002.PRW - VX002CATVEN() -> ARET := EXECBLOCK("VX002CAT",.F.,.F.,{ARET})
VEIXX002.PRW - VX002CONSV() -> EXECBLOCK("VXX02RF7",.F.,.F.)
VEIXX002.PRW - VX002CUSJUR() -> M->VVA_JUREST := EXECBLOCK(CFUNJEST,.F.,.F.,{ VV1->VV1_TRACPA , VV1->VV1_CHAINT , IIF(LSE2BAIXA,SE2->E2_BAIXA,VVF->VVF_DATEMI) , DDATABASE , 'V' })
VEIXX002.PRW - VX002DELAC() -> EXECBLOCK("VXX02VEX", .F., .F.)
VEIXX002.PRW - VX002DIC() -> EXECBLOCK("VX002NME",.F.,.F.,{"VV0"})
VEIXX002.PRW - VX002DIC() -> EXECBLOCK("VX002NME",.F.,.F.,{"VV9"})
VEIXX002.PRW - VX002FCPO() -> AAUX := EXECBLOCK("VX015FNM",.F.,.F.)
VEIXX002.PRW - VX002GRV() -> EXECBLOCK("FS_COMVEI",.F.,.F.)
VEIXX002.PRW - VX002GRVOPO() -> EXECBLOCK("VX002OPO",.F.,.F.,{ M->VV9_FILIAL ,M->VV9_NUMATE })
VEIXX002.PRW - VX002OPCOES() -> ABOTOUT := EXECBLOCK("VX002F10",.F.,.F.,{NOPC})
VEIXX002.PRW - VX002OPCOES() -> TBUTTON():NEW(NLINHA,NCOLUNA,STR0131,ODLGOPCOES, { || EXECBLOCK("ATENDVEI",.F.,.F.,{ VV9->VV9_FILIAL , VV9->VV9_NUMATE }) } , NLARGURA , NALTURA ,,,,.T.,,,,{ || LIMPRATEND })
VEIXX002.PRW - VX002OPCOES() -> TBUTTON():NEW(NLINHA,NCOLUNA,STR0132,ODLGOPCOES, { || EXECBLOCK("PEVM011ITD",.F.,.F.) } , NLARGURA , NALTURA ,,,,.T.,,,,{ || LTESTDRIVE })
VEIXX002.PRW - VX002RPGRV() -> EXECBLOCK("VX002RPG",.F.,.F.)
VEIXX002.PRW - VX002RPLOAD() -> EXECBLOCK("VX002RPL",.F.,.F.)
VEIXX009.PRW - FS_CALCFIN() -> APARCAUX := EXECBLOCK("VM011PFIN",.F.,.F.,{APARCPRO})
VEIXX009.PRW - FS_TUDOOK() -> LRET := EXECBLOCK("VXX09TOK",.F.,.F.,{APARCPRO})
VEIXX011.PRW - VX0110016_VALIDANDOEXCLUSAODALINHA() -> LRET := EXECBLOCK("VXX11VEX", .F., .F., {!OGETDADVS9:ACOLS[NLINVS9, LEN(OGETDADVS9:ACOLS[NLINVS9])], NLINVS9})
VEIXX013.PRW - FS_APROVAR() -> EXECBLOCK("VXX13APP",.F.,.F.,{CNROATEND})
VEIXX013.PRW - FS_APROVAR() -> EXECBLOCK("VXX13DAP",.F.,.F.,{CNROATEND})
VEIXX016.PRW - FS_DESRESER() -> EXECBLOCK("VXX16RES", .F., .F., {"0",CTIPDES})
VEIXX016.PRW - FS_RESVEI() -> EXECBLOCK("VXX16RES", .F., .F., {CTIPO,"1"})
VEIXX016.PRW - VX016VALID() -> EXECBLOCK("VXX16ESP", .F., .F., {CNUMATE, CCHAINT})
VEIXX016.PRW - VXX016018_PEVXX16VLD() -> LRET := EXECBLOCK("VXX16VLD", .F., .F., {CTIPO,NOPC,NRECNO})
VEIXX021.PRW - VX021EMINF() -> EXECBLOCK("VX021ACB",.F.,.F.)
VEIXX021.PRW - VX021EMINF() -> EXECBLOCK("VX021AIV",.F.,.F.)
VEIXX021.PRW - VX021GRV() -> EXECBLOCK("VX021ANF",.F.,.F.)
VEIXX021.PRW - VX021GRV() -> EXECBLOCK("VX021DNF",.F.,.F.)
VEIXX021.PRW - VX021GRV() -> IF !EXECBLOCK("VX021AGA",.F.,.F.)
VEIXX021.PRW - VX021TUDOK() -> IF !EXECBLOCK("VX021TOK",.F.,.F.)
VEIXX030.PRW - VX030CAN() -> IF !EXECBLOCK("VLDEXC011",.F.,.F.)
VEIXX030.PRW - VX030CAN() -> IF !EXECBLOCK("VXI01ACA",.F.,.F.,{VV9->VV9_NUMATE,CFASEPRX})
VEIXX030.PRW - VX030CAN() -> IF !EXECBLOCK("VXI01DCA",.F.,.F.,{VV9->VV9_NUMATE,CFASEPRX})
VEIXX030.PRW - VX030EXEC() -> AAUXCPO := EXECBLOCK("VXX30CPO",.F.,.F.,{ ACLONE(ACPO) })
VEIXX030.PRW - VX030EXEC() -> EXECBLOCK("VX030FIM",.F.,.F.,)
VEIXX030.PRW - VX030GRVOPO() -> EXECBLOCK("VX030OPO",.F.,.F.,{ VV9->VV9_FILIAL , VV9->VV9_NUMATE })
VEIXX030.PRW - VX030OPCOES() -> ABOTOUT := EXECBLOCK("VX030F10",.F.,.F.,{NOPC})
VEIXX030.PRW - VX030OPCOES() -> TBUTTON():NEW(NLINHA,NCOLUNA,STR0069,ODLGOPCOES, { || EXECBLOCK("ATENDVEI",.F.,.F.,{ VV9->VV9_FILIAL , VV9->VV9_NUMATE }) } , NLARGURA , NALTURA ,,,,.T.,,,,{ || LIMPRATEND })
VEIXX030.PRW - VX030TOK() -> LRET := EXECBLOCK("VXX30TOK",.F.,.F.,{NOPC,LAVANCA,ACLONE(AVVA)})
VEIXX030.PRW - VX030VVA() -> IF !EXISTBLOCK("VX030VLD") .OR. EXECBLOCK("VX030VLD",.F.,.F.,{ "MV_PAR00" })
VEIXX030.PRW - VX030VVAVL() -> LRET := EXECBLOCK("VX030VLD",.F.,.F.,{ "MV_PAR"+STRZERO(NPAR,2) })
VEIXX030.PRW - VXX030GRV() -> EXECBLOCK("VXX030DGR", .F., .F.)
VEIXX040.PRW - FS_IAEITE() -> AVRELACAO := EXECBLOCK("VXX040RL",.F.,.F.,{ NOPERACAO , ACLONE(AVRELACAO) })
VEIXX040.PRW - FS_IAEITE() -> IF PARAMBOX(APARAMBOX,STR0062,@ARETITE,,,,,,,,.F.) .AND. ( !LVXX040IT .OR. EXECBLOCK("VXX040IT",.F.,.F.,{ CTP , NOPERACAO , ACLONE(ARETITE) }) )
VEIXX040.PRW - VEIXX040() -> EXECBLOCK("VXX040PV",.F.,.F.)
VEREGISTROSQL.PRW - AFTERCREATE() -> EXECBLOCK(CPENAME, .F., .F., {SELF})
VEREGISTROSQL.PRW - AFTERDELETE() -> EXECBLOCK(CPENAME, .F., .F., {SELF})
VEREGISTROSQL.PRW - AFTERSAVE() -> EXECBLOCK(CPENAME, .F., .F., {SELF})
VEREGISTROSQL.PRW - BEFORECREATE() -> EXECBLOCK(CPENAME, .F., .F., {SELF})
VEREGISTROSQL.PRW - BEFOREDELETE() -> EXECBLOCK(CPENAME, .F., .F., {SELF})
VEREGISTROSQL.PRW - BEFORESAVE() -> EXECBLOCK(CPENAME, .F., .F., {SELF})
VEREGISTROSQL.PRW - BEFOREVALIDATE() -> EXECBLOCK(CPENAME, .F., .F., {SELF})
VEREGISTROSQL.PRW - TOSYNCMODEL() -> CDADOS := EXECBLOCK(CPENAME,.F.,.F., {SELF, CMODELO, LDEL, LNEW})
VEREGISTROSQL.PRW - VALIDATE() -> EXECBLOCK(CPENAME, .F., .F., {SELF})
VTXFUN.PRW - VTDEFKEY() -> EXECBLOCK("VTDFKEY",.F.,.F.)
VTXFUN.PRW - VTMONTAMENU() -> EXECBLOCK("VTXENDCPL",.F.,.F.)
WFCNTA121.PRW - MODELDEF() -> AMODELFLG := EXECBLOCK("WFC121MODEL",.F.,.F.,{"MODEL_ADD",{},"WF2"})
WFCNTA121.PRW - MODELDEF() -> AMODELFLG := EXECBLOCK("WFC121MODEL",.F.,.F.,{"MODEL_ADD",{},"WF3"})
WFCNTA121.PRW - MODELDEF() -> AMODELFLG := EXECBLOCK("WFC121MODEL",.F.,.F.,{"MODEL_ADD",{},"WF4"})
WFCNTA121.PRW - MODELDEF() -> AMODELFLG := EXECBLOCK("WFC121MODEL",.F.,.F.,{"MODEL_ADD",{},"WF5"})
WFCNTA121.PRW - WF121LWF() -> ARETURN := EXECBLOCK("WFC121MODEL",.F.,.F.,{"LOAD",ARETURN,CLOAD})
WFCNTA121.PRW - WF121VIEW() -> AMODELFLG := EXECBLOCK("WFC121MODEL",.F.,.F.,{"VIEW_HIDE",{},LEFT(CSTRU,3)})
WFCNTA300.PRW - MODELDEF() -> AMODELFLG := EXECBLOCK("WFC300MODEL",.F.,.F.,{"MODEL_ADD",{},"WF2"})
WFCNTA300.PRW - MODELDEF() -> AMODELFLG := EXECBLOCK("WFC300MODEL",.F.,.F.,{"MODEL_ADD",{},"WF3"})
WFCNTA300.PRW - MODELDEF() -> AMODELFLG := EXECBLOCK("WFC300MODEL",.F.,.F.,{"MODEL_ADD",{},"WF4"})
WFCNTA300.PRW - MODELDEF() -> AMODELFLG := EXECBLOCK("WFC300MODEL",.F.,.F.,{"MODEL_ADD",{},"WF5"})
WFCNTA300.PRW - WF300LWF() -> ARETURN := EXECBLOCK("WFC300MODEL",.F.,.F.,{"LOAD",ARETURN,CLOAD})
WFCNTA300.PRW - WF300VIEW() -> AMODELFLG := EXECBLOCK("WFC300MODEL",.F.,.F.,{"VIEW_HIDE",{},LEFT(CSTRU,3)})
WMSA070.PRW - MENUDEF() -> EXECBLOCK("DLG070MNU",.F.,.F.)
WMSA110.PRW - GERAETIQ() -> EXECBLOCK("WMSA110E",.F.,.F.,{AITENS, LEN(AITENS)})
WMSA150.PRW - AFTERMARK() -> EXECBLOCK("DLGA150M",.F.,.F.,GETMARK150())
WMSA150.PRW - MONTAQUERY() -> IF VALTYPE(CQUERYPE:=EXECBLOCK('DL150FIL',.F.,.F.,{CQUERY,.T.})) == 'C'
WMSA150.PRW - UPDATESERV() -> EXECBLOCK( "DL150AEX", .F., .F., {NOPCX} )
WMSA150.PRW - UPDATESERV() -> LRETPE := EXECBLOCK( "DL150BEX", .F., .F., {NOPCX} )
WMSA225.PRW - VALIDMODEL() -> ARETPE := EXECBLOCK("WMS225VA",.F.,.F.,{OMODEL})
WMSA225.PRW - WMSREMBLOQ() -> ARETPE := EXECBLOCK("WMS225QL",.F.,.F.,{NQTDTRSF})
WMSA320.PRW - A320COFDCY() -> EXECBLOCK("WMA320DT",.F.,.F.,{DCY->(RECNO())})
WMSA320.PRW - ATUQTDCY() -> EXECBLOCK("WMA320DT",.F.,.F.,{DCY->(RECNO())})
WMSA320.PRW - CHKARM() -> LRETPE := EXECBLOCK("WMSA320R",.F.,.F.,{DCW->DCW_EMBARQ})
WMSA320A.PRW - DOCATUDCY() -> EXECBLOCK("WMA320DT",.F.,.F.,{DCY->(RECNO())})
WMSA320D.PRW - COFMOVEXC() -> LW320DMOV := EXECBLOCK("W320DMOV",.F.,.F., {CEMBARQUE,"E"})
WMSA320D.PRW - COFMOVFAL() -> LW320DMOV := EXECBLOCK("W320DMOV",.F.,.F., {CEMBARQUE,"F"})
WMSA320D.PRW - WM320RBCOF() -> LW320DMOV := EXECBLOCK("W320DMOV",.F.,.F., {CEMBARQUE,CTPCONF})
WMSA325A.PRW - DADOSTBD0M() -> CQUERY += EXECBLOCK("WMS325C9QR")
WMSA325A.PRW - DADOSTBSC9() -> CQUERY += EXECBLOCK("WMS325C9QR")
WMSA325A.PRW - PEDCOMD08() -> CQUERY += EXECBLOCK("WMS325C9QR")
WMSA331.PRW - ESTORNAR() -> EXECBLOCK("WM330AEX", .F., .F., {CACAO})
WMSA331.PRW - MENUDEF() -> EXECBLOCK("WM331MNU",.F.,.F.)
WMSA331.PRW - MONTFILTRO() -> IF VALTYPE(CQUERYPE := EXECBLOCK('WM330QRY',.F.,.F.)) == 'C'
WMSA331.PRW - REINICIAR() -> EXECBLOCK('WM330RHM',.F.,.F.,{CRECHUM})
WMSA331.PRW - REPROCESS() -> IF VALTYPE(CQUERYPE:=EXECBLOCK('WM330QRY',.F.,.F.)) == 'C'
WMSA331.PRW - WMSA331PRI() -> CGRVPRI := EXECBLOCK('WMSREGRA', .F., .F., {MV_PAR02, 1})
WMSA331.PRW - WMSA331RHU() -> EXECBLOCK('WM330RHM',.F.,.F.,{CRECHUM})
WMSA332.PRW - FINALIZAR() -> EXECBLOCK("WM332FIN",.F.,.F.,{NRECNO})
WMSA332.PRW - MENUDEF() -> EXECBLOCK("WMSA332M",.F.,.F.)
WMSA332.PRW - PROCESTORNO() -> EXECBLOCK("WM330AEX", .F., .F., {CACAO})
WMSA332.PRW - REPROCDOC() -> IF VALTYPE(CQUERYPE:=EXECBLOCK('WM330QRY',.F.,.F.)) == 'C'
WMSA332.PRW - WMSA332RHU() -> EXECBLOCK('WM330RHM',.F.,.F.,{CRECHUM})
WMSA332A.PRW - FINALIZAR() -> LRET := EXECBLOCK('WMS332BL',.F.,.F.,{ OMOVIMENTO })
WMSA413.PRW - MONITOR() -> ABUTTONS := EXECBLOCK("WMS413BTN",.F.,.F., {} )
WMSA505.PRW - AFTERMARK() -> CRETPE := EXECBLOCK("WSA505AO", .F., .F., {CARMORI, (CALIASQRY)->RECNOSD4})
WMSA508.PRW - WMSA508GRA() -> CENDORIPE := EXECBLOCK('WMSA508EO',.F.,.F.,{CLOCORI,CPRODUTO})
WMSBCCABASTECIMENTO.PRW - PROCENDABT() -> EXECBLOCK("WMSQYABC",.F.,.F.,{SELF:OMOVPRDLOT:GETPRDORI(),;
WMSBCCABASTECIMENTO.PRW - PROCENDABT() -> NQTDABASPE := EXECBLOCK("WMSQTDAB",.F.,.F.,{SELF:OMOVPRDLOT:GETPRODUTO(),;
WMSBCCABASTECIMENTO.PRW - QRYESTEND() -> LWMSTRBL := EXECBLOCK("WMSQYABA",.F.,.F.,{})
WMSBCCENDERECAMENTO.PRW - FINDENDSLD() -> CQUERYPE := EXECBLOCK('WMSQFESL',.F.,.F.,{GETLASTQUERY()[2]})
WMSBCCENDERECAMENTO.PRW - PROCESTFIS() -> ARETPE := EXECBLOCK('WMSVLEND',.F.,.F.,{SELF:OMOVENDDES:GETARMAZEM(),CENDDEST,SELF:OMOVPRDLOT:GETPRODUTO(),SELF:OMOVPRDLOT:GETLOTECTL()})
WMSBCCENDERECAMENTO.PRW - PROCESTFIS() -> NCAPNEWEND := EXECBLOCK('WMSCAPMX',.F.,.F.,{SELF:OMOVPRDLOT:GETPRODUTO(),SELF:OMOVENDDES:GETARMAZEM(),SELF:OESTFIS:GETESTFIS(),CENDDEST,NCAPENDER,NSALDOEND,NSALDORF})
WMSBCCENDERECAMENTO.PRW - QRYENDEST() -> CQUERYPE := EXECBLOCK('WMSQENES',.F.,.F.,{CQUERY})
WMSBCCENDERECAMENTO.PRW - QRYENDSEL() -> CQUERYPE := EXECBLOCK('WMSQENSE',.F.,.F.,{CQUERY})
WMSBCCMOVIMENTOSERVICO.PRW - CHKFINMOV() -> LCONSBLQ := EXECBLOCK('WMSQYABA',.F.,.F.,{})
WMSBCCMOVIMENTOSERVICO.PRW - UPDULTMOV() -> EXECBLOCK("ULTMOVENDCA",.F.,.F.,{SELF:OORDSERV:GETIDDCF()})
WMSBCCMOVIMENTOSERVICO.PRW - UPDULTMOV() -> EXECBLOCK("WMSBMSUM",.F.,.F.,{SELF:GETRECNO()})
WMSBCCREGRACONVOCACAO.PRW - LAWEXECUTE() -> CRETPE := EXECBLOCK('WMSREGST',.F.,.F.,{SELF:ALIBD12[N1CNT,1]})
WMSBCCREGRACONVOCACAO.PRW - LAWLIMIT() -> CQUERYPE := EXECBLOCK('WMSDOCEX',.F.,.F.,{CWHERE,SELF:OMOVIMENTO,"1"})
WMSBCCREGRACONVOCACAO.PRW - REDOLAWLIM() -> CQUERYPE := EXECBLOCK('WMSDOCEX',.F.,.F.,{CWHERE,SELF:OMOVIMENTO,"2"})
WMSBCCREGRACONVOCACAO.PRW - REDOLAWLIM() -> CQUERYPE := EXECBLOCK('WMSDOCEX',.F.,.F.,{CWHEREAUX,SELF:OMOVIMENTO,"3"})
WMSBCCSEPARACAO.PRW - GERAABTDEM() -> CQUERYPE := EXECBLOCK('WMSQABDM',.F.,.F.,{CQUERY})
WMSBCCSEPARACAO.PRW - GERAABTDEM() -> LRETPE := EXECBLOCK("WMSAENDE", .F., .F.,{SELF:OMOVENDORI:GETARMAZEM(),(CALIASQRY)->BE_LOCALIZ,SELF:OMOVPRDLOT:GETPRODUTO(),NQTDAPANHE})
WMSBCCSEPARACAO.PRW - GERAABTDEM() -> NLIMSBEPE := EXECBLOCK("WMSNRPKG", .F., .F.,{NLIMSBE})
WMSBCCSEPARACAO.PRW - PERREPPKG() -> NQTDABTPE := EXECBLOCK('DLQTDABT',.F.,.F.,{SELF:OMOVENDORI:GETARMAZEM(),SELF:OMOVENDORI:GETENDER(),SELF:OMOVPRDLOT:GETPRODUTO(),NQTDSEP})
WMSBCCSEPARACAO.PRW - PROCENDEXP() -> CALIASD14 := EXECBLOCK("WMSQYSEP",.F.,.F.,{SELF:OMOVENDORI:GETARMAZEM(),SELF:OMOVENDORI:GETENDER(),SELF:OMOVPRDLOT:GETPRODUTO(),SELF:OMOVPRDLOT:GETPRDORI(),SELF:OMOVPRDLOT:GETLOTECTL(),SELF:OMOVPRDLOT:GETNUMLOTE(),LCNSPKGFUT, SELF:OORDSERV:GETCLIFOR()})
WMSBCCSEPARACAO.PRW - PROCENDEXP() -> LLTOK := EXECBLOCK('WMSAVLT',.F.,.F.,{(CALIASD14)->D14_ESTFIS, (CALIASD14)->D14_ENDER, (CALIASD14)->D14_LOTECT, ;
WMSBCCSEPARACAO.PRW - PROCESTEXP() -> EXECBLOCK("WMSRESEP",.F.,.F.,{.F., SELF:OMOVPRDLOT:GETPRODUTO(), SELF})
WMSDTCESTOQUEENDERECO.PRW - CONSULTSLD() -> NSALDOPE := EXECBLOCK("WMSSLPRO",.F.,.F.,{NSALDO,SELF:OENDERECO:GETARMAZEM(), SELF:OENDERECO:GETENDER(), SELF:OPRODLOTE:GETPRODUTO(), SELF:OPRODLOTE:GETPRDORI(), SELF:OPRODLOTE:GETLOTECTL(), SELF:OPRODLOTE:GETNUMLOTE()})
WMSDTCESTOQUEENDERECO.PRW - ENDUSACOMP() -> LRETPE := EXECBLOCK("WMSCPEND",.F.,.F.,{SELF:OPRODLOTE:GETPRODUTO(),OPRODADIC:GETPRODUTO()})
WMSDTCESTOQUEENDERECO.PRW - GETSLDWMS() -> NSALDOPE := EXECBLOCK("WMSSLDWM",.F.,.F.,{CPRODUTO,CLOCAL,CENDER,CLOTECTL,CNUMLOTE,CNUMSERIE,LCONSSAIDA,CIDUNITIZ,NSALDO})
WMSDTCESTOQUEENDERECO.PRW - UPDENDER() -> EXECBLOCK("WMSATSBE",.F.,.F.,{ (CALIASQRY)->RECNOSBE })
WMSDTCMOVIMENTOSSERVICOARMAZEM.PRW - CHKENDDES() -> NCAPNEWEND := EXECBLOCK('WMSCAPEN',.F.,.F.,{SELF:OMOVPRDLOT,SELF:OMOVENDORI,SELF:OMOVENDDES,NCAPENDER})
WMSDTCMOVIMENTOSSERVICOARMAZEM.PRW - UPDPEDIDO() -> ADLESTC9 := EXECBLOCK("DLVESTC9",.F.,.F.,{LDLESTC9,SELF:GETRECNO(),NQTDORIG,NQTDMOV,.F.})
WMSDTCORDEMSERVICOCREATE.PRW - ASSIGNSD3() -> CRETPE := EXECBLOCK('WMSOSEDT',.F.,.F.,{SELF:CORIGEM, SELF:OORDENDDES:GETARMAZEM(),SELF:OORDENDDES:GETENDER()})
WMSDTCORDEMSERVICOEXECUTE.PRW - UPDATEEND() -> LCARGAPE := EXECBLOCK('DLENDOSE',.F.,.F.,{LCARGA})
WMSDTCSEQUENCIAABASTECIMENTO.PRW - SEQABAST() -> LRETPE:= EXECBLOCK('WMSSQAB1', .F., .F., {(CALIASDC3)->DC3_TPESTR,SELF:CSERVICO})
WMSV001.PRW - CHKAVALD12() -> ARETPE := EXECBLOCK('WMSV001B', .F., .F.,{CRECHUM,CFUNCAO,OMOVIMENTO:OMOVSERVIC:GETSERVICO(),OMOVIMENTO:OMOVTAREFA:GETTAREFA(),OMOVIMENTO:OMOVTAREFA:GETATIVID(),OMOVIMENTO:OMOVTAREFA:GETORDEM(),OMOVIMENTO:OORDSERV:GETDOCTO(),LCONVOCA,OMOVIMENTO:OMOVSERVIC:GETFUNCAO()})
WMSV001.PRW - CHKAVALD12() -> EXECBLOCK('DLVACONV', .F., .F., {CRECHUM, CFUNCAO, OMOVIMENTO:GETRECNO()})
WMSV001.PRW - CHKAVALD12() -> LCONVOCA := EXECBLOCK('WMSV001A', .F., .F.,{CRECHUM,CFUNCAO,OMOVIMENTO:OMOVSERVIC:GETSERVICO(),OMOVIMENTO:OMOVTAREFA:GETTAREFA(),OMOVIMENTO:OMOVTAREFA:GETATIVID(),OMOVIMENTO:OMOVTAREFA:GETORDEM(),OMOVIMENTO:OORDSERV:GETDOCTO(),LCONVOCA})
WMSV001.PRW - CHKAVALD12() -> LRETPE := EXECBLOCK( "WMSV001C", .F., .F.,{NRECNOD12})
WMSV001.PRW - CHKEXECANT() -> LRETPE := EXECBLOCK('DLGVEXAN', .F., .F., {LRET, NRECORI, LACHOU, CRECHUM})
WMSV001.PRW - CHKVLDARM() -> LRETPE := EXECBLOCK("WMSVLARM",.F.,.F.,{CUSUARMA})
WMSV001.PRW - CONVOCACAO() -> CMENS := EXECBLOCK('WMSV001MS', .F., .F.,{OMOVIMENTO:GETRECNO()})
WMSV001.PRW - CONVOCACAO() -> EXECBLOCK('WMSV001G', .F., .F.,{OMOVIMENTO:OMOVSERVIC:GETFUNCAO()})
WMSV001.PRW - QRYVALATCV() -> CQUERY += EXECBLOCK('DLV001ORD', .F., .F., {1})
WMSV001.PRW - SEEKATIVID() -> EXECBLOCK("WMSTRD12",.F.,.F.,{CRECNOANT, AITENS[NPOS][13]})
WMSV001.PRW - WMSCTRLESC() -> NRETPE := EXECBLOCK('WMSV001E', .F., .F.,{})
WMSV001.PRW - WMSENDER() -> CENDERECO := EXECBLOCK('DVDISPEN', .F., .F., {CENDERECO})
WMSV001.PRW - WMSMONTPRD() -> EXECBLOCK("WV001SCR",.F.,.F.,{.F.,LCONF,NLIN})
WMSV001.PRW - WMSMONTPRD() -> EXECBLOCK("WV001SCR",.F.,.F.,{.T.,LCONF,NLIN})
WMSV001.PRW - WMSVALPROD() -> LRETPE:= EXECBLOCK('DLV030VL',.F.,.F.,{CPRODUTO})
WMSV030.PRW - REQUESTEND() -> CRETPE:= EXECBLOCK('DV030CO4', .F., .F., {CENDERECO})
WMSV030.PRW - REQUESTEND() -> LRETPE := EXECBLOCK('DV030DES',.F.,.F.)
WMSV030.PRW - REQUESTUM() -> ARETPE := EXECBLOCK('DV030CO6',.F.,.F.,{NQTDTOT, NQTDE})
WMSV030.PRW - REQUESTUM() -> EXECBLOCK('WMSV030E', .F., .F., {NQTDE,;
WMSV030.PRW - REQUESTUM() -> NPROXLIN := EXECBLOCK("WMSV030PPR",.F.,.F.,{NPROXLIN, LWMSLOTE .AND. OMOVIMENTO:OMOVPRDLOT:HASRASTRO(), LWMSLOTE .AND. OMOVIMENTO:OMOVPRDLOT:HASRASTSUB(),NQTDTOT,NQTDE})
WMSV030.PRW - SELECLOTE() -> EXECBLOCK("DV030SDB",.F.,.F.,{LCTRLFOK})
WMSV030.PRW - VALENDERECO() -> LRET := EXECBLOCK('DLVENDER',.F.,.F.,{CCONFIRMA, CENDERECO})
WMSV030.PRW - VALIDALOTE() -> CRETPE := EXECBLOCK("DV030LOT",.F.,.F.,{OMOVIMENTO:OMOVPRDLOT:GETPRODUTO(),CLOTECTL})
WMSV030.PRW - VALIDPRDLOT() -> ARETPE := EXECBLOCK('DV030PRD',.F.,.F.,{CCODBAR})
WMSV030.PRW - WMSV030() -> ARETPE := EXECBLOCK('DV030CON')
WMSV030.PRW - WMSV030() -> CRETPE := EXECBLOCK("DV030EN1", .F., .F.,{CENDERECO})
WMSV030.PRW - WMSV030() -> CRETPE := EXECBLOCK("DV030ENO", .F., .F.)
WMSV030.PRW - WMSV030() -> CRETPE := EXECBLOCK('DV030END', .F., .F.)
WMSV030.PRW - WMSV030() -> EXECBLOCK("DV030SDB",.F.,.F.,{LCTRLFOK})
WMSV030.PRW - WMSV030() -> EXECBLOCK('DV030DOC', .F., .F., {OMOVIMENTO:OMOVSERVIC:GETFUNCAO()})
WMSV030.PRW - WMSV030() -> LRETPE:= EXECBLOCK('DV030CO1', .F., .F., {OMOVIMENTO:OMOVPRDLOT:GETPRODUTO(), CENDERECO, LRET})
WMSV030.PRW - WMSV030() -> LRETPE:= EXECBLOCK('DV030CO3', .F., .F., {OMOVIMENTO:OMOVPRDLOT:GETPRODUTO()})
WMSV070.PRW - WMSQRYSDB() -> CRETPE := EXECBLOCK("DV070QRY",.F.,.F.,{ CQUERY })
WMSV070.PRW - WMSV070() -> ARETPE:= EXECBLOCK('DLV070CF', .F., .F., ARETPE )
WMSV070.PRW - WMSV070() -> ARETPE := EXECBLOCK('DLV070RC', .F., .F., {APRDSYS})
WMSV070.PRW - WMSV070() -> EXECBLOCK('DLV070FI', .F., .F., {APRDSYS,AJACONF,CCARGA})
WMSV070.PRW - WMSV070() -> EXECBLOCK('DLV070RG', .F., .F., {APRDSYS,AJACONF})
WMSV070.PRW - WMSV070() -> EXECBLOCK('DV070SCR',.F.,.F.,{CPRODUTO,CDESCPRO})
WMSV070.PRW - WMSV070() -> LRET := EXECBLOCK('DLV070PR', .F., .F., {CPRODUTO,APRDSYS})
WMSV070.PRW - WMSV070GRV() -> EXECBLOCK("WV070GRV",.F.,.F.,{LOCORR})
WMSV070.PRW - WMSV070LOT() -> CRETPE := EXECBLOCK("WV070LOT",.F.,.F.,{CPRODUTO,CLOTECTL})
WMSV070.PRW - WMSV070PRD() -> ARETPE:= EXECBLOCK('DLV070VL', .F., .F., {CPRODUTO, APRDSYS, LDIGITA})
WMSV070.PRW - WMSV070QTD() -> ARETPE := EXECBLOCK('DV070QTD', .F., .F., {LRET, NQTDE, CPRODUTO,CLOTECTL,APRDSYS})
WMSV073.PRW - FINCOFENT() -> LRETPE := EXECBLOCK('WV073FCR', .F., .F.,{CDOCTO,CSERIE,.F./*DIVERGENTE*/})
WMSV073.PRW - FINCOFENT() -> LRETPE := EXECBLOCK('WV073FCR', .F., .F.,{CDOCTO,CSERIE,.T./*DIVERGENTE*/})
WMSV073.PRW - GRAVCOFOPE() -> LRETPE := EXECBLOCK('WV073GQL', .F., .F.)
WMSV073.PRW - RECONFDIV() -> LRETPE := EXECBLOCK('WV073GQL', .F., .F.)
WMSV073.PRW - VALIDENDER() -> LRET := EXECBLOCK('WV073VLD',.F.,.F.,{CENDERECO, CENDERSYS})
WMSV074.PRW - COFPRDLOT() -> EXECBLOCK("WV074TEF",.F.,.F.)
WMSV074.PRW - FINCOFENT() -> EXECBLOCK('WMS074CF',.F.,.F.,{CSERVICO,CDOCTO,CSERIE})
WMSV074.PRW - GRAVCOFOPE() -> EXECBLOCK("WV074GCO", .F., .F.)
WMSV074.PRW - VALIDPRDLOT() -> LRETPE:= EXECBLOCK('WMS074VL',.F.,.F.,{CPRODUTO,CLOTECTL,CNUMLOTE,NQTDE,CCODBAR,CDOCTO,CSERIE})
WMSV075.PRW - COFPRDLOT() -> EXECBLOCK("WV075REG",.F.,.F.,{CCARGA,CPEDIDO,CPRODUTO,CLOTECTL,CSUBLOTE,CARMAZEM,CENDERECO,CSERVICO,CORDTAR,CTAREFA,CATIVIDADE})
WMSV075.PRW - COFPRDLOT() -> XRETPE:= EXECBLOCK("WV076LOT",.F.,.F.)
WMSV076.PRW - FINCOFEXP() -> EXECBLOCK("WV076FIN",.F.,.F.,{CCARGA, CPEDIDO})
WMSV076.PRW - VALIDPRDLOT() -> LRETPE := EXECBLOCK('WMS076VL',.F.,.F.,{CPRODUTO,CLOTECTL,CNUMLOTE,NQTDE,CCODBAR,CCARGA,CPEDIDO,LCARGA})
WMSV081.PRW - VALCARPED() -> XRETPE := EXECBLOCK("WV081VMT",.F.,.F.,{NCAMPO,OMNTVOLITEM:OMNTVOL:GETCODMNT(),CCARGA,CPEDIDO,LESTORNO})
WMSV081.PRW - WMSV081VLV() -> LRETPE := EXECBLOCK("WMSV081V",.F.,.F.,{CVOLUME})
WMSV081.PRW - WMSV081VOL() -> CRETPE := EXECBLOCK('WV080CDV',.F.,.F.,{OMNTVOLITEM:GETCARGA(),OMNTVOLITEM:GETPEDIDO()})
WMSV084.PRW - GERUNIAUTO() -> __AITSUNI := EXECBLOCK("WV084AUT",.F.,.F.,{CORIGEM,CARMAZEM,CENDERECO,CTIPUNI,CUNITIZ})
WMSV085.PRW - ALTERAREND() -> CENDDEST := EXECBLOCK('DV080OPC', .F., .F., {OMOVIMENTO:OMOVENDDES:GETENDER()})
WMSV085.PRW - FINALATIV() -> EXECBLOCK('DV080DES', .F., .F.,{LRET,OMOVIMENTO:GETRECNO()})
WMSV085.PRW - FINALATIV() -> LRETPE := EXECBLOCK("DV080EST",.F.,.F., {OMOVIMENTO:GETRECNO()})
WMSV085.PRW - FINALATIV() -> LRETPE := EXECBLOCK("WMSV085END",.F.,.F.)
WMSV085.PRW - REQUESTEND() -> LRETPE := EXECBLOCK('DV080DST', .F., .F.)
WMSV085.PRW - REQUESTUM() -> NPROXLIN := EXECBLOCK("WMSV085PPR",.F.,.F.,{NPROXLIN, LWMSLOTE .AND. OMOVIMENTO:OMOVPRDLOT:HASRASTRO(), LWMSLOTE .AND. OMOVIMENTO:OMOVPRDLOT:HASRASTSUB(),NQTDTOT,NQTDE})
WMSV085.PRW - VALENDERECO() -> LRET := EXECBLOCK('WMV080VL', .F., .F., {CCONFIRMA, CSISTEMA, NTIPO})
WMSV085.PRW - WMSV085() -> CRETPE := EXECBLOCK("DV080END", .F., .F.)
WMSV085.PRW - WMSV085() -> CRETPE := EXECBLOCK('DV080ENO', .F., .F.)
WMSV085.PRW - WMSV085() -> LRETPE := EXECBLOCK('DV080ORI', .F., .F., {CCONFIRMA, CENDERECO, LRET})
WMSV090.PRW - COFPRDLOT() -> EXECBLOCK("WV090TCF",.F.,.F.,{CEMBARQUE,LESTORNO})
WMSV090.PRW - GERAEXCESSO() -> EXECBLOCK("WMA320DT",.F.,.F.,{DCY->(RECNO())})
WMSV090.PRW - GETUNITI() -> __AITSUNI := EXECBLOCK("WV090UNI",.F.,.F.,{CEMBARQUE,CTIPUNI,CIDUNIT,CARMAZEM,CENDERECO})
WMSV090.PRW - RATEIOCONF() -> EXECBLOCK("WMA320DT",.F.,.F.,{DCY->(RECNO())})
WMSV090.PRW - VALIDPRDLOT() -> LRETPE := EXECBLOCK("WV090VLP",.F.,.F.,{CEMBARQUE,CPRODUTO,CLOTECTL,CNUMLOTE,NQTDE})
WMSV090.PRW - VALIDQTD() -> LRETPE := EXECBLOCK("WV090VLQ",.F.,.F.,{CEMBARQUE,CPRODUTO,CLOTECTL,CNUMLOTE,NQTCONF,DDTVAL})
WMSV105.PRW - WMSV1051() -> LRETPE := EXECBLOCK('V105POSLIB',.F.,.F.,{CROMANEIO,CTRANSP})
WMSXEXP.PRW - WMSMOVAPL() -> ADLESTC9 := EXECBLOCK("DLVESTC9",.F.,.F.,{LDLESTC9,{OMOVIMENTO:GETRECNO()},NQTDORIG,NQTDMVTO,.F.})
WMSXFUNA.PRW - WMSEXEDCF() -> CRETPE := EXECBLOCK("WMSACEXP",.F.,.F.)
WMSXFUNA.PRW - WMSEXEDCF() -> EXECBLOCK("WMSALIB",.F.,.F.)
WMSXFUNA.PRW - WMSEXEDCF() -> LAVISO := EXECBLOCK("WMSAVISO",.F.,.F.)
WMSXFUNA.PRW - WMSEXEDCF() -> LRETPE := EXECBLOCK("DLGA150E",.F.,.F.,{DCF->DCF_CODPRO,DCF->DCF_LOCAL,DCF->DCF_DOCTO,DCF->DCF_SERIE,NREGDCF})
WMSXFUNA.PRW - WMSEXESERV() -> EXECBLOCK("WMSXFEXS", .F., .F., {__OORDSERV:ALIBDCF})
WMSXFUNA.PRW - WMSEXESERV() -> LRETPE := EXECBLOCK( "WMSXFBXS", .F., .F., {__OORDSERV:GETRECNO()} )
WMSXFUNA.PRW - WMSVLDDEST() -> CRETPE := EXECBLOCK("WMSVLDES",.F.,.F.,{CLOCDEST,CENDDEST,CPRODUTO})
WMSXFUNA.PRW - WMSVLDTRAN() -> LRETPE := EXECBLOCK("WMSXVLLC",.F.,.F.,{CLOCORIG,CLOCDEST,CCODORIG})
WMSXFUNB.PRW - WMSCRIADCF() -> EXECBLOCK('DLATUDCF',.F.,.F.,{CALIASORIG, CORIGEM, CSERVICO, CDOC, CSERIE, CCLIFOR, CLOJA, CPRODUTO, CARMAZEM, CNUMSEQ, NQUANT})
WMSXFUNB.PRW - WMSDELDCF() -> EXECBLOCK("WMSXDCF", .F., .F.)
WMSXFUNB.PRW - WMSESTALL() -> LRETPE := EXECBLOCK('DLGA150D', .F., .F., {DCF->DCF_CODPRO, DCF->DCF_LOCAL, DCF->DCF_DOCTO, DCF->DCF_SERIE, DCF->(RECNO())})
WMSXFUNB.PRW - WMSESTDCF() -> EXECBLOCK("DLA220E",.F.,.F.)
WMSXFUNB.PRW - WMSESTORI() -> LRETPE := EXECBLOCK('DLGA150D', .F., .F., {DCF->DCF_CODPRO, DCF->DCF_LOCAL, DCF->DCF_DOCTO, DCF->DCF_SERIE, DCF->(RECNO())})
WMSXFUNC.PRW - GERAABTDEM() -> CWMSMULP := IIF(EXECBLOCK("WMSMULP", .F., .F., {__CPRODUTO}), "S", "N")
WMSXFUNC.PRW - PERREPPKG() -> NQTDABTPE := EXECBLOCK('DLQTDABT',.F.,.F.,{__CLOCORIG,CENDERECO,__CPRODUTO,NQTDAPANHE})
WMSXFUNC.PRW - PROCENDEXP() -> CALIASSLD := EXECBLOCK("WMSQYSEP",.F.,.F.,{__CPRODUTO,__CLOCORIG,CESTORIG,__NREGRA})
WMSXFUNC.PRW - PROCENDEXP() -> XRETPE := EXECBLOCK("DLENDAP",.F.,.F.,{__CLOCORIG,(CALIASSLD)->BF_LOCALIZ,(CALIASSLD)->BF_ESTFIS,__CPRODUTO,(CALIASSLD)->BF_LOTECTL,(CALIASSLD)->BF_NUMLOTE,NQTDAPANHE})
WMSXFUNC.PRW - QRYESTEND() -> ARETPE := EXECBLOCK("WMSFIFO",.F.,.F.,{ACLONE(ASLDLOTE)} )
WMSXFUNC.PRW - QRYESTEND() -> ARETPE := EXECBLOCK("WMSFIFO2",.F.,.F.,{ACLONE(ASLDLOTE),__CPRODUTO,__CLOCORIG,CESTORIG,NQTDAPANHE,__NREGRA,__XREGRA,LRADIOF,'1',NQTDAPUNI} )
WMSXFUNC.PRW - WMSAPANHE() -> ARETPE := EXECBLOCK("WMSXCONV",.F.,.F.,{__CLOCORIG,__CPRODUTO})
WMSXFUNC.PRW - WMSAPANHE() -> LCARGAPE := EXECBLOCK('DLENDOSE',.F.,.F.,{LCARGA})
WMSXFUND.PRW - PRDCOMPEND() -> LRETPE := EXECBLOCK("WMSCPEND",.F.,.F.,{CPRODORIG,CPRODARMZ})
WMSXFUND.PRW - WMSENDESTR() -> CALIASSBE := EXECBLOCK("WMSQYEND",.F.,.F.,{CPRODUTO,CLOCDEST,CESTDEST,SDA->DA_LOTECTL,SDA->DA_NUMLOTE})
WMSXFUND.PRW - WMSENDESTR() -> CWMSMULP := IIF(EXECBLOCK("WMSMULP", .F., .F., {CPRODUTO}), "S", "N")
WMSXFUND.PRW - WMSENDESTR() -> XRETPE := EXECBLOCK("DLENDEOK", .F., .F., {CPRODUTO, NQUANT, (CALIASSBE)->RECNOSBE})
WMSXFUND.PRW - WMSESTCROS() -> XRETPE := EXECBLOCK("DLENDEOK", .F., .F., {CPRODUTO, NQUANT, (CALIASSBE)->RECNOSBE})
WMSXFUND.PRW - WMSMOVEND() -> CNUMSERPE := EXECBLOCK('DLGNSERI',.F.,.F.,{CORIGLAN,CPRODUTO,CLOCORIG,CDOCTO,CSERIE,CCLIFOR,CLOJA,NQTDEND,CENDDEST})
WMSXFUND.PRW - WMSMOVEND() -> EXECBLOCK('DLGRVSTO', .F., .F., {CORIGLAN,CPRODUTO,CLOCORIG,CDOCTO,CSERIE,CCLIFOR,CLOJA,NQTDEND,CENDDEST})
WMSXREAB.PRW - PROCENDABT() -> NQTDABASPE := EXECBLOCK("DLGQTDAB",.F.,.F.,{__CPRODUTO, __CLOCDEST, __CESTDEST, __CENDDEST, NQTDABAST, {(CALIASSLD)->BF_LOTECTL,(CALIASSLD)->BF_NUMLOTE,__CLOCORIG,(CALIASSLD)->BF_ESTFIS,(CALIASSLD)->BF_LOCALIZ,(CALIASSLD)->BF_NUMSERI,NQTDABAST}})
WSADM030.PRX - BRWBILL -> CQUERY := EXECBLOCK( "PEF023", .F., .F. )
WSADM030.PRX - BRWPAIDBILL -> CQUERY += EXECBLOCK( "PEF023", .F., .F. ) + " AND "
WSADM030.PRX - BRWPAIDBILL -> CQUERY := EXECBLOCK( "PEF023", .F., .F. )
WSAPD010.PRW - BRWMYEVALUATED -> LOK := EXECBLOCK("WSAP10CONS", .F., .F., {RDC->RDC_FILIAL, RDC->RDC_ID, RDC->RDC_CODAVA})
WSAPD010.PRW - BRWPROJECTS -> ::LISTOFPROJECTS:= EXECBLOCK("MSBRWPROJECT", .F., .F., {CDESCPROJETO, CCODCLI, CCODLOJA})
WSAPD010.PRW - GETPEVALUATE -> ::LISTOFEVALUATE[1] := EXECBLOCK("WS010PADR",.F.,.F.,{::LISTOFEVALUATE[1]})
WSAPD010.PRW - GETPEVALUATE -> ::LISTOFEVALUATE[1]:LISTOFPROJECT:= EXECBLOCK("MSBRWPROJECT", .F., .F., {CCODPROJ, CCODCLI, CCODLOJA})
WSAPD010.PRW - GETPEVALUATE -> AAUX := EXECBLOCK( "DADOSFUNC", .F., .F., {APARAMS} )
WSAPD010.PRW - PUTPEVALUATE -> EXECBLOCK("APDFINAVAL")
WSAPD011.PRW - BRWPERSONALDATA -> EXECBLOCK("WSHISTSAL",.F.,.F.)
WSAPD011.PRW - BRWWAGEHISTORY -> AAUX := EXECBLOCK( "DADOSFUNC", .F., .F., {APARAMS} )
WSAPD011.PRW - BRWWAGEHISTORY -> EXECBLOCK("WSHISTSAL",.F.,.F.)
WSAPD011.PRW - PUTPERSONALDATA -> IF EXECBLOCK( "ATUDADOSFUNC", .F., .F., {APARAMS} )
WSAPD012.PRW - GETHEADERPART -> AAUX := EXECBLOCK( "DADOSFUNC", .F., .F., {APARAMS} )
WSAPD014.PRW - MATPARTICIPANT() -> CSITFOL:= EXECBLOCK("PRHSITFOL", .F., .F., { (CQUERY)->RA_FILIAL, (CQUERY)->RA_MAT} )
WSAPD014.PRW - USERMENU -> ::FUNCTIONNAME := EXECBLOCK("WSAPUSR014",.F.,.F.,{::MENUTITLE})
WSCRD010.PRX - WSCRD012() -> ACOMPROV := EXECBLOCK("CRD010C",.F.,.F.,{ACOMPROV, NL1VALTOT, NDIASPAGTO, NPARCELAS, ;
WSCRD010.PRX - WSCRD012() -> CNOME := EXECBLOCK("CRD010N",.F.,.F.,{CCARTAO,CNOME})
WSCRD020.PRX - WSCRD020() -> AEXTRATO := ACLONE( EXECBLOCK( "WS020EXT", .F., .F., {AEXTRATO} ) )
WSCRD020.PRX - WSCRD020() -> AEXTRATO := EXECBLOCK("CRD0001",.F.,.F.,{ CALIASTRB })
WSFLUIGJURIDICO.PRW - MTATUALIZACONTRATO; -> EXECBLOCK('JWSFLGCCNT', .F., .F., {@OMODEL, ACUSTOMCPO})
WSGPE020.PRW - ADDINSCRSELECTIONPROCEXT -> CNEWCODE := EXECBLOCK( "WSGPEIDINSC", .F.,.F.,{OREQUEST:BRANCH,OREQUEST:CODE,OREQUEST:REQUESTTYPE:CODE})
WSGPE020.PRW - ADDVACATIONREQUEST() -> LRETPEDATA := EXECBLOCK( "WSGPEVALVAC", .F.,.F.,{OVACATIONREQUEST:INITIALDATE,OVACATIONREQUEST:FINALDATE,OVACATIONREQUEST:DAYS})
WSGPE020.PRW - FADDINSCRSELPROC() -> EXECBLOCK( "WSGPEINSC", .F.,.F.,{CFILRH4,CREQUESTCODE})
WSGPE020.PRW - FADDINSCSELPROCEXT() -> EXECBLOCK( "WSGPEINSC", .F.,.F.,{CFILRH4,CREQUESTCODE})
WSGPE020.PRW - FPUTREQUEST() -> EXECBLOCK( "WSGPESOL", .F.,.F.,{RH3->RH3_FILAPR,RH3->RH3_MATAPR,OREQUEST:DEPARTAPR})
WSGPE030.PRW - FIMPTRANSFEMP() -> LRETBLOCK := EXECBLOCK("LIBRECPAG",.F.,.F.,{DPAGTO,(CQUERY)->FILIAL,(CQUERY)->MATRICULA,OITEM:TYPE,OITEM:YEAR,OITEM:MONTH})
WSGPE030.PRW - GETPAYMENTRECEIPT; -> URETBLOCK := EXECBLOCK( "WSGP030", .F., .F., SELF:PAYMENTRECEIPT )
WSGPE040.PRW - GETVACATIONRECEIPT; -> URETBLOCK := EXECBLOCK( "WSGP040", .F., .F., SELF:VACATIONRECEIPT )
WSMAT010.PRX - GETCATALOG -> ::PRODUCTS[NX] := EXECBLOCK("WSMT010A",.F.,.F.,{CCURSOR,::PRODUCTS[NX]})
WSMAT010.PRX - GETCATALOG -> CQUERY += EXECBLOCK( "WSMT010B", .F., .F., { 2, ::CUSTOMERID } )
WSMAT030.PRX - BRWCUSTOMER -> CFILTRO := EXECBLOCK( "WSMT030", .F., .F., { 2, ::SELLERCODE } )
WSPLPTUONWEB.PRW - PTONRECXML() -> EXECBLOCK("PLSTRTPTU",.F.,.F.,{LAUTO})
WSPLPTUONWEB.PRW - PTUAUTOSV6() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{CCODPRO,"RECDES","",NIL,NIL,CTRAORIG,NIL})
WSPLPTUONWEB.PRW - PTUOSV60() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{CCODPRO,"RECENT","",PLSPTUGET("TP_TABELA",AITENS[NI]),CCODPAD,PLSINTPAD(),NIL})
WSPLPTUONWEB.PRW - REMOVCHAR() -> CTEXT := EXECBLOCK( "PLPTONCH", .F., .F., {CTEXT} )
WSPLSRELT.PRX - GETRELGEN -> ARET := EXECBLOCK(::FUNNAME, .F., .F., { ::INPAR, GETNEWPAR("MV_PWAITR",.T.) } )
WSPLSRELT.PRX - GETRELGEN -> ARET := EXECBLOCK(::FUNNAME, .F., .F., { ::INPAR, GETNEWPAR("MV_PWAITR",.T.) , PLSTISSVER(), GETNEWPAR("MV_IGUINE",.F.) } )
WSPLSXF3.PRX - GETF3 -> ARET := EXECBLOCK(::FUNNAME, .F., .F., { ::TPBUSCA, ::BUSCA, ::VLDGEN, ::REGPAGINA ,::USERPLSCODE, ::TPPOR, ::ALIASGEN, ::CAMPOSGEN, ::CONDGEN, ::CODDESGEN, ::CAMPOORI, ::TPGUIA, ::BUSCAVIN,.F. } )
WSPLSXFUN.PRX - AUTANEXO -> ARETPTOENT := EXECBLOCK("PLCHEDAD",.F.,.F.,{::SAUTPROC:CODPAD,::SAUTPROC:CODPRO,::SAUTPROC:TIPOPROC })
WSPLSXFUN.PRX - AUTPROC -> ARETPTOENT := EXECBLOCK("PLCHEDAD",.F.,.F.,{::SAUTPROC:CODPAD,::SAUTPROC:CODPRO,::SAUTPROC:TIPOPROC })
WSPLSXFUN.PRX - BLOQREEM -> ARETORNO:= EXECBLOCK("PLVLDITREE",.F.,.F.,{ ::ITEMREEMB })
WSPLSXFUN.PRX - ELEGIBILIDADE -> ::USERCARD:STATUSEL := EXECBLOCK("PPLEXSTAT",.F.,.F.,{})
WSPLSXFUN.PRX - ELEGIBILIDADE -> ::USERCARD:STATUSEL:= EXECBLOCK("PPLEXSTAT",.F.,.F.,{})
WSPLSXFUN.PRX - GETDADGRID -> ARET := EXECBLOCK(::FUNNAME, .F., .F., { ::WHERE, ::CAMPOSCUSTOM } )
WSPLSXFUN.PRX - GETGAT -> ARET := EXECBLOCK(::FUNNAME, .F., .F., { ::CHAVE, ::TP, ::USERPLSCODE ,::TPPOR ,::VLDGEN,::TIPGUI } )
WSPLSXFUN.PRX - GETVLRCO -> ARET := EXECBLOCK("PLSCOPGUI")
WSPLSXFUN.PRX - INCBENOPC -> ARET := EXECBLOCK("PLSGRVBEN",.F.,.F.,{ODADOS})
WSPLSXFUN.PRX - MNTHIDDEN() -> ACAMPOS := EXECBLOCK("PLSCPHID",.F.,.F.,{CTIPGUI,ACAMPOS})
WSPLSXFUN.PRX - PLSGRVREC() -> EXECBLOCK("PLGRRCFIM", .F., .F., {CPROTOC})
WSPLSXFUN.PRX - PPIMPREL -> ATITULOS := EXECBLOCK("PLIMPRELT",.F.,.F.,{::FUNNAME})
WSPLSXFUN.PRX - PUTREEMBBEN -> EXECBLOCK("PLWEBBOW",.F.,.F.,{BOW->(RECNO())})
WSPLSXFUN.PRX - PUTREEMBBEN -> LOK := EXECBLOCK("PLVLWEBA",.F.,.F.,{LOK, ANOMBEN, ::DATDOC, ADADCLI, ::NOMRDANREF, ::VLRAPR, ::ITENSREEMB})
WSPLSXFUN.PRX - RETAUTLIB -> ARETORNO:= EXECBLOCK("PL90VLDLIB",.F.,.F.,{::NUMAUT,.T.})
WSPLSXFUN.PRX - RETCARVIRT -> ARETREDE := EXECBLOCK("MSCVREDE", .F., .F., {CCODPLA,CVERPLA})
WSPLSXFUN.PRX - RETCARVIRT -> COPCIONAL := EXECBLOCK("MSCVOPC", .F., .F., {CCODPLA,CVERPLA})
WSPLSXFUN.PRX - RETCARVIRT -> OOBJBACKUP := EXECBLOCK("MSLOGFIM", .F., .F., {::RET_CARTAO_VIRTUAL,NI,CMATTIT,LEXISTTITULAR})
WSPLSXFUN.PRX - SETSOLCAR -> ARET := EXECBLOCK('PLSPROSC', .F., .F., { ::MATUSU, ::MOTCAR } )
WSPLSXFUN.PRX - VLDBENOPC -> ARET := EXECBLOCK("PLVINSOP",.F.,.F.,{CMATRICULA, CCODOPC, CTOD(DTBAS), CTOD(DTBLO)})
WSPORTAL01.PRX - PRTLOGIN -> AUSER := EXECBLOCK("GENVUSER",.F.,.F.,{SELF:USERPCODE,ARET[4]} )
WSRSP010.PRW - BRWENTITY -> IF !LEXISTPE .OR. EXECBLOCK("WSRS10FL")
WSRSP010.PRW - SETCERTIFICATION() -> EXECBLOCK("WSRS10CERT",.F.,.F.,{CURRIC1:LISTOFCERTIFICATION[NX]})
WSRSP010.PRW - SETCOURSES() -> EXECBLOCK("WSRS10COUR",.F.,.F.,{CURRIC1:LISTOFCOURSES[NX]})
WSRSP010.PRW - SETCURRICULUM -> EXECBLOCK("WSRS10CURRIC",.F.,.F.,{CURRIC1})
WSRSP010.PRW - SETEVALUATION() -> EXECBLOCK("WSRS10EVAL",.F.,.F.,{CURRIC1:LISTOFEVALUATION[NX]})
WSRSP010.PRW - SETGRADUATION() -> EXECBLOCK("WSRS10GRAD",.F.,.F.,{CURRIC1:LISTOFGRADUATION[NX]})
WSRSP010.PRW - SETHISTORY() -> EXECBLOCK("WSRS10HIST",.F.,.F.,{CURRIC1:LISTOFHISTORY[NX]})
WSRSP010.PRW - SETLANGUAGES() -> EXECBLOCK("WSRS10LANG",.F.,.F.,{CURRIC1:LISTOFLANGUAGES[NX]})
WSRSP010.PRW - SETQUALIFICATION() -> EXECBLOCK("WSRS10QUAL",.F.,.F.,{CURRIC1:LISTOFQUALIFICATION[NX]})
WSRSP100.PRW - GETVACANCY -> LAPRESENTA := EXECBLOCK('WSRSPVAG',.F.,.F.,{ (CALIAS)->QS_VAGA, CALIAS })
WSRSP100.PRW - SHOWVACANCY -> EXECBLOCK("WSSHOWDC",.F.,.F.,{CCARGO})
WSRSP100.PRW - SHOWVACANCY -> EXECBLOCK("WSSHOWDD",.F.,.F.,{CCARGO})
WSXLIB.PRX - GETUSERFIELDS() -> AUSERSTRU := EXECBLOCK("WSUSRFIELD",.F.,.F.,{CALIAS})
APCFG30.PRW - EXCLUDE() -> EXECBLOCK("USERACS", .F., .F., {CNAME, REPLICATE("*",6), AUSERS[NPOS][2][5], "EXCLUI"})
APCFG30.PRW - X30VLDMNU() -> LRET := EXECBLOCK('CFGVLDMNU', .F., .F., {CMODMNU, CMODNIV, NMOD, CID})
APLIB080.PRW - BUILDEXPR() -> ACAMPO := EXECBLOCK("BUILDEXP",.F.,.F.,{CALIAS,ACAMPO})
APLIB080.PRW - RELVALEMAIL() -> IF !EXECBLOCK("SNDMAILCHK",.F.,.F.,CPARAM)
APLIB080.PRW - RETIMPWIN() -> ARET := EXECBLOCK("GETPRTC",.F.,.F.,ARET)
APLIB080.PRW - RETIMPWIN() -> ARET := EXECBLOCK("GETPRTS",.F.,.F.,ARET)
APLIB080.PRW - RODA() -> CPETEXT := EXECBLOCK('RODATXT', .F., .F.)
APLIB080.PRW - RODA() -> EXECBLOCK("RODAESP", .F., .F.)
APLIB080.PRW - SENDCABEC() -> CUSERTEXT := EXECBLOCK('USERCAB', .F., .F.)
APLIB080.PRW - STARTPRINT() -> CRPTNAME := EXECBLOCK('RPTNAME', .F., .F., { CFUNNAME } )
APLIB090.PRW - EXECBLOCK("SIGA"+CMODULO,.F.,.F.) //Modulo. SIGACOM || SIGAATF || SIGAFAT
APLIB090.PRW - ALTSENHA() -> EXECBLOCK("PSWCHG",.F.,.F.,{__CUSERID,CUSERNAME})
APLIB090.PRW - EXPSWDATE() -> LOCAL LRET := EXECBLOCK("PSWDATE",.F.,.F.,{DDATE,CID})
APLIB090.PRW - EXPSWSIZE() -> LOCAL ARET := EXECBLOCK("PSWSIZE",.F.,.F.,{CNOME, CPSW})
APLIB090.PRW - GETEMPR() -> //Todos Modulos. SIGAATF SIGACOM, SIGAFAT, Etc
APLIB090.PRW - GETMOEDA() -> EXECBLOCK("FMOEDAOK",.F.,.F.)
APLIB090.PRW - GETMOEDA() -> EXECBLOCK("MGETMOED",.F.,.F.)
APLIB090.PRW - OPENNING() -> EXECBLOCK("AFTERLOGIN",.F.,.F.,{__CUSERID,CUSERNAME})
APLIB090.PRW - VALIDPSW() -> EXECBLOCK("PSWVALID",.F.,.F.,{CUSER, AERRO, CMSG})
APLIB090.PRW - VALSENHA() -> EXECBLOCK("PSWCHECK",.F.,.F.,{CID, CNOME, NERROS})
APLIB090.PRW - __EXECUTE() -> URET := EXECBLOCK("CHKEXEC",.F.,.F.,CFUNCTION)
APLIB100.PRW - OPENSXS() -> CALTERPATH := UPPER(ALLTRIM(EXECBLOCK('SXALTERPATH', .F., .F.)))
APLIB100.PRW - SENHAOK() -> CRETURN := EXECBLOCK(CEXECBLOCK,.F.,.F.,NMODULO)
APLIB200.PRW - := CRIASFZ() -> EXECBLOCK("CHKFILE",.F.,.F.,{CLASTF,CCURALIAS})
APLIB200.PRW - := CRIASFZ() -> EXECBLOCK("PDAOPEN",.F.,.F.,{CALIAS,CCURALIAS,CLASTF})
APLIB200.PRW - REGISTROOK() -> CTEXTO := EXECBLOCK("REGBLOQH",.F.,.F.,{CALIAS,2})
APLIB260.PRW - MDIPASSWORD() -> EXECBLOCK("PSWCHECK",.F.,.F.,{CID, CUSER, NERROS})
APSDU.PRW - LOGINSDU() -> LRET := EXECBLOCK( 'SDULOGIN', .F., .F., CUSER )
APSDU.PRW - SDUCGETTOP() -> LOK := EXECBLOCK("SDUVLTOP",.F.,.F.,{CSERVER,CBANCO,NPORT})
MSLIB.PRW - BRWMSBLQ() -> ABLKCOLOR := EXECBLOCK("MBLKCOLOR",.F.,.F.)
MSLIB.PRW - PERGUNTE() -> EXECBLOCK("MVCHANGE",.F.,.F., { CPERGUNTA } )
REPORT01.PRW - PRINTDIALOG() -> CRPTNAME := EXECBLOCK('RPTNAME', .F., .F., { ::CREPORT } )
MPDocument - lRetCon := ExecBlock('MTCONHEC', .F., .F.)
MPDocument - lRet := ExecBlock("MTVLDACE",.F.,.F.)
MPDocument - lRet := ExecBlock("MSDOCVST",.F.,.F.,{cAlias,nReg})
MPDocument - If ValType( aUsButtons := ExecBlock( "MSDOCBUT", .F., .F., { cAlias } ) ) == "A"
MPDocument - lVisual := If(ValType(lVisual:=ExecBlock("MSDOCVIS",.F.,.F.))=='L',lVisual,.F.)
MPDocument - lVisPE := iF(ValType(lretu:=ExecBlock("MSDOCEXC",.F.,.F.))=='L',lRetu,lVisual)
MPDocument - aButtPE := ExecBlock("MTENCBUT",.F.,.F.,{aButtons})
MPDocument - ExecBlock("MSDOCOK",.F.,.F.,{cAlias, nReg})
MPDocument - lRet := ExecBlock("MTGRVVLD",.F.,.F.,{aClone(aHeader),aClone(aCols)})
MPDocument - If ValType( aUserEnt := ExecBlock( "FTMSREL", .F., .F. ) ) == "A"
MPDocument - aAppExt := ExecBlock( "MTASSOC", .F., .F., aAppExt)
MPDocument - nRet := ExecBlock( "MTADOCOPEN", .F., .F.,{cOper,cFileName,cParam,cDir})
MPDocument - lRet := Execblock ("MSDOCVLD",.F.,.F.,{cObj})
TSM_JOB.PRW - TSMEXPEXEC() -> EXECBLOCK("JOBTSM01",.F.,.F.,{CIDENT,NIDJOB,NTIMES,NSLEEPJOB,ARESULT,CCNPJ})
TSM_JOB.PRW - TSMEXPEXEC() -> EXECBLOCK("JOBTSM02",.F.,.F.,{LCONTINUA,AJOBTSM02,CCNPJ})
TSSFORMMODEL.PRW - FWCBPOST() -> IF VALTYPE ( LAUX := EXECBLOCK(CIDMODEL,.F.,.F.,{OFW,"MODELPOS",CIDMODEL} ) ) == 'L'
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima