Pontos de Entrada do TOTVS Protheus 12.1.2210 P.3/3

Ponto de Entrada do TOTVS ERP Protheus, é como ter acesso a
tesouros escondidos, e cheio de possibilidades no mundo do ADVPL,
pronto para ser usado a seu favor. Bem, você não precisa mais imaginar, pois
estou prestes a revelar algo que pode transformar a forma como você utiliza o TOTVS
ERP Protheus!

Houve um momento em que alguém compartilhou comigo uma lista especial, um
guia valioso dos famosos ExecBlocks do Protheus. E agora, estou empolgado em
compartilhar esse tesouro com vocês, meus amigos, porque sei o quanto isso pode
simplificar e aprimorar sua experiência com o Protheus.

Parte 3 de 3.

FINA846.PRW – F846STRU() -> ACPOSNOUSR:=EXECBLOCK(‘F486CPOS’,.F.,.F.,{ACPOSNO,NFOLDER})
FINA846.PRW – FINA846GRV() -> APE846DEL := EXECBLOCK(“FIN846DEL”, .F., .F., {FJT->FJT_RECIBO, FJT->FJT_SERIE, FJT->FJT_CANCEL, OMODEL})
FINA846.PRW – MENUDEF() -> ADD OPTION AROTINA TITLE STR0013 ACTION ‘IIF(EXISTBLOCK(“F486PRT”),EXECBLOCK(“F486PRT”,.F.,.F.),FINR087())’ OPERATION 8 ACCESS 0
FINA846.PRW – MENUDEF() -> AROTINA := EXECBLOCK(“F846ROT”,.F.,.F.,{AROTINA})
FINA850.PRW – F850ACRE2() -> LCALCGAN:=EXECBLOCK(“F0851IMP”,.F.,.F.,{“GN2”})
FINA850.PRW – F850ACRET() -> LCALCGN:=EXECBLOCK(“F0851IMP”,.F.,.F.,{“GN”})
FINA850.PRW – F850ATUSFF() -> EXECBLOCK(“CERTGAN”,.F.,.F.,{ACERT[NX],CCODASS})
FINA850.PRW – F850ATUSFF() -> EXECBLOCK(“CERTIB”,.F.,.F.,{ACERT[NX],CCODASS,LINCPA})
FINA850.PRW – F850ATUSFF() -> EXECBLOCK(“CERTIVSUS”,.F.,.F.,{ACERT[NX],CCODASS,LINCPA})
FINA850.PRW – F850ATUSFF() -> EXECBLOCK(“CERTRMUN”,.F.,.F.,{ACERT[NX],CCODASS,LINCPA})
FINA850.PRW – F850DTVENC() -> LRET := EXECBLOCK(“FA085DTV”,.F.,.F.,{DDATAVENC})
FINA850.PRW – F850ENCH() -> LRET:= EXECBLOCK(“F85ASDBCO”,.F.,.F.,{CBANCO,CAGENCIA,CCONTA,NVALORDENS})
FINA850.PRW – F850ENCH() -> LRET:=EXECBLOCK(‘A085TUDOK’,.F.,.F.,ACLONE(ASE2))
FINA850.PRW – F850FILDT() -> ADOF850:=EXECBLOCK(“F850CHPDT”,.F.,.F.)
FINA850.PRW – F850FILDT() -> CORDERQRY := EXECBLOCK(“F850FILCH”,.F.,.F.,{CORDERQRY})
FINA850.PRW – F850GRAVA() -> ATXMOEDAS := EXECBLOCK(“F850TXMO”,.F.,.F.,{APAGOS, ASE2,ATXMOEDAS,NI})
FINA850.PRW – F850GRAVA() -> CORDPAGO :=EXECBLOCK(“A085NORP”,.F.,.F.,CORDPAGO)
FINA850.PRW – F850GRAVA() -> EXECBLOCK(“A085AFIM”,.F.,.F.,ANUMS)
FINA850.PRW – F850GRAVA() -> EXECBLOCK(“A085AFM2”,.F.,.F.,{ANUMS})
FINA850.PRW – F850GRAVA() -> EXECBLOCK(“A085AFOP”,.F.,.F.,ANUMP)
FINA850.PRW – F850GRAVA() -> EXECBLOCK(“A085ATIT”,.F.,.F.)
FINA850.PRW – F850GRAVA() -> LF850NOSHW := EXECBLOCK(“F085NOSHW”,.F.,.F.)
FINA850.PRW – F850GRAVRET() -> EXECBLOCK(“F850RET”,.F.,.F.,”GAN”)
FINA850.PRW – F850GRAVRET() -> EXECBLOCK(“F850RET”,.F.,.F.,”IB”)
FINA850.PRW – F850GRAVRET() -> EXECBLOCK(“F850RET”,.F.,.F.,”IVA”)
FINA850.PRW – F850GRAVRET() -> EXECBLOCK(“F850RET”,.F.,.F.,”SIL”)
FINA850.PRW – F850GRAVRET() -> EXECBLOCK(“F850RET”,.F.,.F.,”SIS”)
FINA850.PRW – F850GRAVRET() -> EXECBLOCK(“F850RET”,.F.,.F.,”SUSS”)
FINA850.PRW – F850LNOK() -> LRET:=EXECBLOCK(“F085AVAL”,.F.,.F.)
FINA850.PRW – F850MRKB() -> LRET := EXECBLOCK(“A085MRKB”,.F.,.F.,LALL)
FINA850.PRW – F850PGADI() -> LOCULTA := EXECBLOCK(“F85NOINFO”,.F.,.F.)
FINA850.PRW – F850PGAUT() -> AAUXSE2 := EXECBLOCK(“F085ARRSE2”,.F.,.F.,{ASE2})
FINA850.PRW – F850PREOP() -> CFILTROUSR := EXECBLOCK(“F850FLPRE”,.F.,.F.)
FINA850.PRW – F850RETIR() -> NBASIR := EXECBLOCK(“F085ABIRF”,.F.,.F.)
FINA850.PRW – F850SE2() -> ATXMOEDAS := EXECBLOCK(“F850TXPG”,.F.,.F.,{AORDPG,NI,ATXMOEDAS})
FINA850.PRW – F850SE2TMP() -> CFLTUSR:=EXECBLOCK(“A850ABRW”,.F.,.F.)
FINA850.PRW – F850SHOW() -> A850BTN := EXECBLOCK( “A085BTN” )
FINA850.PRW – F850TELA() -> ACAMPOS:=EXECBLOCK(“F085HEAD”,.F.,.F.)
FINA850.PRW – F850TELA() -> EXECBLOCK(“A085DEFS”,.F.,.F.,”1″)
FINA850.PRW – F850TUDOK() -> LRET := EXECBLOCK(“F085ANOPA”,.F.,.F.,{NSALDOPGOP})
FINA850.PRW – F850VFOR() -> LRET := EXECBLOCK(“A085VFOR”,.F.,.F.,{CFORNECE,CLOJA})
FINA850.PRW – F850VLDMD() -> LRET:= EXECBLOCK(“F850OBNAT”,.F.,.F.,{CNATUREZA})
FINA850.PRW – F850VLDOPS() -> LRET:=EXECBLOCK(‘A850PAOK’,.F.,.F.,ACLONE(ASE2))
FINA850.PRW – FINA850() -> ACORES := EXECBLOCK(“F850URET”,.F.,.F.)
FINA850.PRW – GRAVAPAGOS() -> CNUMCHQ:=EXECBLOCK(“A850NUM”,.F.,.F.,{NPAGAR,CFORNECE,CLOJA,DDTVCTO})
FINA850.PRW – GRAVAPAGOS() -> CPREFIXO :=EXECBLOCK(“A850PRECH”,.F.,.F.,{CNUMCHQ,CFORNECE,CLOJA,CBANCO,CAGENCIA,CCONTA})
FINA850.PRW – GRAVAPAGOS() -> EXECBLOCK(“A850PAG”,.F.,.F.)
FINA850.PRW – GRAVAPAGOS() -> EXECBLOCK(“F850GRA”,.F.,.F.)
FINA850.PRW – PE850LEG() -> ALEG := EXECBLOCK(“F850ADLE”,.F.,.F.)
FINA855.PRW – A855APRV() -> EXECBLOCK(“FA855APR”,.F.,.F.)
FINA855.PRW – A855CANC() -> EXECBLOCK(“FA855CAN”,.F.,.F.)
FINA855.PRW – FA855INCLU() -> EXECBLOCK(“FA855INC”,.F.,.F.,{OGRIDPREOP , NLINPREOP})
FINA910A.PRW – A910THRLOTE() -> EXECBLOCK( ‘FA110TOT’, .F., .F. )
FINA910A.PRW – BUSCARBANCO() -> ADADOS := EXECBLOCK(‘FINA910F’, .F., .F., {CBANCOFIF, CAGFIF, CCONTAFIF})
FINA910B.PRW – A910VLDARQ() -> ADFIF := EXECBLOCK(“FINFIF”,.F.,.F.,ADADOS)
FINA920A.PRW – A920THRLOTE() -> EXECBLOCK(‘FA110TOT’, .F., .F.)
FINA940.PRW – F940ACOLCON() -> CQUERY += EXECBLOCK(“F940PAR3”,.F.,.F.,{ARETPER})
FINA940.PRW – F940WIZCON() -> APWIZ3 := EXECBLOCK(“F940PAR1”,.F.,.F.,{APWIZ3})
FINA940.PRW – F940WIZCON() -> ARETWIZ3 := EXECBLOCK(“F940PAR2”,.F.,.F.,{ARETWIZ3})
FINA950.PRW – F950ACOLCON() -> CQUERY += EXECBLOCK(“F950PAR3”,.F.,.F.,ARETPER)
FINA950.PRW – F950WIZCON() -> APWIZ3 := EXECBLOCK(“F950PAR1”,.F.,.F.,{APWIZ3})
FINA950.PRW – F950WIZCON() -> ARETWIZ3 := EXECBLOCK(“F950PAR2”,.F.,.F.,{ARETWIZ3})
FINA989.PRW – FATUCPT003() -> CQUERY += EXECBLOCK(“F989CPIN”,.F.,.F.,{CQUERY})
FINA989.PRW – FATUCRT003() -> CQUERY += EXECBLOCK(“F989CRIN”,.F.,.F., {CQUERY})
FINA989.PRW – MNTQRYPAG() -> CQUERY += EXECBLOCK(“F989CPIN”,.F.,.F.,{CQUERY})
FINA994.PRW – F994DIRF() -> ARETARR := EXECBLOCK(“FA944ARR”,.F.,.F.,ACLONE(ASCP))
FINA994.PRW – F994SRL() -> CCODRET := EXECBLOCK(“FA944QRY”,.F.,.F.)
FINA998.PRW – VALIDTITLES() -> ATIPOSDOC := STRTOKARR(EXECBLOCK(‘F998FLOTIT’,.F.,.F.), “/”)
FINANCIAL-TITLES.SERVICE.TLPP – FINANCIALTITLESISTMB() -> CTIPODOC +=EXECBLOCK(‘F998FLOTIT’,.F.,.F.)
FINC010.PRW – FC010BROW() -> (CALIAS)->E1_ATR := EXECBLOCK(“F010DATR”,.F.,.F.,{CQRY,CALIAS})
FINC010.PRW – FC010BROW() -> AAUXCPO := ACLONE(EXECBLOCK(“FC0101FAT”,.F.,.F.,{ACPOS}))
FINC010.PRW – FC010BROW() -> AHEADER1 := EXECBLOCK(“FC010HEAD”,.F.,.F.,AHEADER1)
FINC010.PRW – FC010BROW() -> AHEADER1 :=EXECBLOCK(“FC010BXHE”,.F.,.F.,AHEADER1)
FINC010.PRW – FC010BROW() -> ARETAUX := ACLONE(EXECBLOCK(“FC010PEDI”,.F.,.F.,{ACLONE(AHEADER),ACLONE(ASTRU)}))
FINC010.PRW – FC010BROW() -> CORDEM := EXECBLOCK(“F010ORD1”,.F.,.F.)
FINC010.PRW – FC010BROW() -> CQUERY += “, ” + EXECBLOCK(“FC0102FAT”,.F.,.F.) + ” “
FINC010.PRW – FC010BROW() -> CQUERY += EXECBLOCK(“F010FLPD”,.F.,.F.)
FINC010.PRW – FC010BROW() -> CQUERY += EXECBLOCK(“FO10FILT”,.F.,.F.)
FINC010.PRW – FC010BROW() -> CQUERY += EXECBLOCK(“FO10FLFT”,.F.,.F.)
FINC010.PRW – FC010BROW() -> CQUERY += EXECBLOCK(“FO10FLTR”,.F.,.F.)
FINC010.PRW – FC010BROW() -> CQUERY := EXECBLOCK(“F010CQFT”,.F.,.F.,{CQUERY})
FINC010.PRW – FC010BROW() -> CQUERY := EXECBLOCK(“F010CQPE”,.F.,.F.,{CQUERY})
FINC010.PRW – FC010BROW() -> CQUERY := EXECBLOCK(“F010CQTA”,.F.,.F.,{CQUERY})
FINC010.PRW – FC010BROW() -> CQUERY := EXECBLOCK(“F010CQTR”,.F.,.F.,{CQUERY})
FINC010.PRW – FC010BROW() -> EXECBLOCK(“FC0103FAT”,.F.,.F.,{CALIAS, CQRY})
FINC010.PRW – FC010CLI() -> @ 001,272 BUTTON STR0025 SIZE 60,12 FONT ODLG:OFONT ACTION IF( LFC010BOL, EXECBLOCK( “FC010BOL”, .F., .F., {1,AVETALIAS,APARAM,.T.,AGET} ), FC010BROW(1,@AALIAS,APARAM,.T.,AGET)) OF ODLG PIXEL
FINC010.PRW – FC010CLI() -> @ 015,272 BUTTON STR0122 SIZE 60,12 FONT ODLG:OFONT ACTION IF( LFC010BOL, EXECBLOCK( “FC010BOL”, .F., .F., {2,AVETALIAS,APARAM,.T.,AGET} ), FC010BROW(2,@AALIAS,APARAM,.T.,AGET)) OF ODLG PIXEL
FINC010.PRW – FC010CLI() -> @ 043+NCONLIN,272 BUTTON EXECBLOCK(“FC010BTN”,.F.,.F.,{1}) SIZE 60,12 FONT ODLG:OFONT ACTION EXECBLOCK(“FC010BTN”,.F.,.F.,{3}) MESSAGE EXECBLOCK(“FC010BTN”,.F.,.F.,{2}) OF ODLG PIXEL
FINC010.PRW – FC010CLI() -> @ 043+NCONLIN,272 BUTTON STR0030 SIZE 60,12 FONT ODLG:OFONT ACTION EXECBLOCK(“FC010CON”,.F.,.F.) OF ODLG PIXEL
FINC010.PRW – FC010CLI() -> ACOLS := EXECBLOCK (“FC010LIST”,.F.,.F.,ACOLS)
FINC010.PRW – FINC010() -> CFILTER := EXECBLOCK( “FC010FIL”,.F.,.F.,{CFILTER})
FINC021.PRW – FC021IMPFLX() -> EXECBLOCK(“FC021TIT”,.F.,.F.,TITULO)
FINC021.PRW – FC021IMPFLX() -> LRETIMP:=EXECBLOCK(“FC021IMP”,.F.,.F.)
FINC021.PRW – FC021PROC() -> AFLUXO := EXECBLOCK( “FC21CTRFLX”, .F., .F., {AFLUXO} )
FINC021.PRW – FC021PROC() -> MENUITEM STR0236 ACTION EXECBLOCK(“FC021MENU”,.F.,.F.,OFLUXO)
FINC021.PRW – FC021PROJ() -> EXECBLOCK(“FC021PROJ”, .F. ,.F., { (AALIASANA[OFOLDER:NOPTION])->APELIDO, (AALIASANA[OFOLDER:NOPTION])->CHAVE, DDATAPROJ } )
FINC021.PRW – FC021VENCIDOS() -> CFILTERUSER := EXECBLOCK(“FC021FIL”, .F., .F., {CALIAS} )
FINC021.PRW – FLUXOANA() -> AHDNEW := EXECBLOCK( “FC021HDPC”, .F., .F., { AHEADER } )
FINC021.PRW – FLUXOANA() -> AHDNEW := EXECBLOCK( “FC021HDPV”, .F., .F., { AHEADER } )
FINC021.PRW – FLUXOANA() -> AHDNEW := EXECBLOCK(“FC021HEAD”,.F.,.F.,{AHEADER})
FINC021.PRW – FLUXOANA() -> AUSBUTTONS := EXECBLOCK( “FC021BUT”, .F., .F.)
FINC021.PRW – FRVISAOGER() -> @ 32,386 BUTTON “SALVAR FLUXO” SIZE 68, 13 OF OPANEL PIXEL ACTION EXECBLOCK(“FC021MENU”,.F.,.F.,OFLUXO)
FINC021.PRW – FRVISAOGER() -> ACPOSA := EXECBLOCK(“FC021CPO”,.F.,.F.,{ACPOSANAP})
FINC021.PRW – FRVISAOGER() -> ACPOSA := EXECBLOCK(“FC021CPO”,.F.,.F.,{ACPOSANAR})
FINC021.PRW – FRVISAOGER() -> CFILTERUSER := EXECBLOCK(“FC021FIL”, .F., .F., {CALIAS} )
FINC021.PRW – FRVISAOGER() -> CQUERY := EXECBLOCK(“FC021MAN”,.F.,.F.,{CQUERY,”SE2″,”E2″})
FINC021.PRW – FRVISAOGER() -> EXECBLOCK(“FC021ATRB”,.F.,.F.,{CALIASANAP,CALIASSE2,CCAMPO})
FINC021.PRW – FRVISAOGER() -> EXECBLOCK(“FC021ATRB”,.F.,.F.,{CALIASANAR,CALIASSE1,CCAMPO})
FINC021.PRW – FRVISAOGER() -> MENUITEM STR0236 ACTION EXECBLOCK(“FC021MENU”,.F.,.F.,OFLUXO)
FINC021.PRW – GERATMP() -> ACPOSA := EXECBLOCK(“FC021CPO”,.F.,.F.,{ACPOSANA})
FINC021.PRW – GERATMP() -> CFILTERUSER := EXECBLOCK(“FC021FIL”, .F., .F., {CALIAS} )
FINC021.PRW – GERATMP() -> CQUERY := EXECBLOCK(“FC021MAN”,.F.,.F.,{CQUERY,CALIAS,CCAMPO})
FINC021.PRW – GERATMP() -> EXECBLOCK(“FC021ATRB”,.F.,.F.,{CALIASANA,CALIASTRB,CCAMPO})
FINC021.PRW – GERATMPJOB() -> CFILTERUSER := EXECBLOCK(“FC021FIL”, .F., .F., {CALIAS} )
FINC022.PRW – MOSTRAFLUXO() -> EXECBLOCK(“FC022FLUXO”,.F.,.F.,{AHEADER,CALIASTRB,APERIODOS})
FINC030.PRW – FC030CON() -> ACAMPOS1 := EXECBLOCK(“F030TITABER”,.F.,.F.,{1,ACAMPOS1})
FINC030.PRW – FC030CON() -> ACAMPOS2 := EXECBLOCK(“F030TITPAGO”,.F.,.F.,{1,ACAMPOS2})
FINC030.PRW – FC030CON() -> ACAMPOS3 := EXECBLOCK(“F030TITCOM”,.F.,.F.,{1,ACAMPOS3})
FINC030.PRW – FC030CON() -> ACAMPOS4 := EXECBLOCK(“F030TITFAT”,.F.,.F.,{1,ACAMPOS4})
FINC030.PRW – FC030CRIA() -> CCPOUSER := EXECBLOCK(“FC030IND”,.F.,.F.,{NCONT,ACAMPOS})
FINC030.PRW – FC030GERA() -> CORDCUSTOM := EXECBLOCK(“FC030ORD”,.F.,.F.,{CCPODISP,CORDER,NPROCESS})
FINC030.PRW – FC030GERA() -> CQUERY += +EXECBLOCK(“FO30FLTP”,.F.,.F.)
FINC030.PRW – FC030GERA() -> CQUERY += EXECBLOCK(“FO30FILT”,.F.,.F.)
FINC030.PRW – FC030GERA() -> CQUERY := EXECBLOCK( “F030FILT”, .F., .F., { CQUERY, NPROCESS, CCPODISP } )
FINC030.PRW – FC030GERA() -> EXECBLOCK(“F030TITABER”,.F.,.F.,{2})
FINC030.PRW – FC030GERA() -> EXECBLOCK(“F030TITCOM”,.F.,.F.,{2})
FINC030.PRW – FC030GERA() -> EXECBLOCK(“F030TITFAT”,.F.,.F.,{2})
FINC030.PRW – FC030GERA() -> EXECBLOCK(“F030TITPAGO”,.F.,.F.,{2})
FINC030.PRW – FC030MOSTR() -> @ 028,160 BUTTON STR0072 SIZE 42,13 FONT ODLG:OFONT ACTION EXECBLOCK(“FC030CON”,.F.,.F.) OF ODLG PIXEL
FINC030.PRW – FC030MOSTR() -> EXECBLOCK(“F030TITABER”,.F.,.F.,{3,APOSOBJ,STR0006,STR0007,STR0008,STR0009,STR0010,STR0011,STR0012,STR0013,STR0014,STR0015,STR0016,STR0017,STR0018,STR0019,STR0120,STR0121,STR0122})
FINC030.PRW – FC030MOSTR() -> EXECBLOCK(“F030TITCOM”,.F.,.F.,{3,APOSOBJ,STR0007,STR0010,STR0135,STR0029})
FINC030.PRW – FC030MOSTR() -> EXECBLOCK(“F030TITFAT”,.F.,.F.,{3,APOSOBJ,STR0007,STR0010,STR0030,STR0031,STR0041,STR0114})
FINC030.PRW – FC030MOSTR() -> EXECBLOCK(“F030TITFAT”,.F.,.F.,{3,APOSOBJ,STR0007,STR0010,STR0030,STR0031})
FINC030.PRW – FC030MOSTR() -> EXECBLOCK(“F030TITPAGO”,.F.,.F.,{3,APOSOBJ,STR0006,STR0007,STR0008,STR0010,STR0012,STR0021,STR0022,STR0022+” (“+CDESMOED1+”)”,STR0116,STR0117,STR0118,STR0115,STR0162,STR0023,STR0011,STR0014,STR0024,STR0025,STR0026,STR0027,STR0028,STR0019,STR0016,STR0017,STR0018})
FINC030.PRW – FC030MOSTR() -> EXECBLOCK(“F030TITPAGO”,.F.,.F.,{3,APOSOBJ,STR0006,STR0007,STR0008,STR0010,STR0012,STR0021,STR0022,STR0116,STR0117,STR0118,STR0115,STR0023,STR0011,STR0014,STR0024,STR0025,STR0026,STR0027,STR0028,STR0019,STR0016,STR0017,STR0018})
FINC030.PRW – FC030REL() -> NFN030IPC := EXECBLOCK(“FN030IPC”,.F.,.F.,{NVALITPED})
FINC030.PRW – FINC030() -> CFILTER := EXECBLOCK( “FC030FIL”,.F.,.F.,{CFILTER})
FINC040.PRX – FC040CON() -> ABROWSE := EXECBLOCK(“FI040CPTN”,.F.,.F.)
FINC040.PRX – FC040CON() -> ABROWSE := EXECBLOCK(“FI040MNCP”,.F.,.F.,{ABROWSE})
FINC040.PRX – FC040CON() -> ABUT040 := EXECBLOCK(“F040BOT”,.F.,.F.)
FINC040.PRX – FC040CON() -> ACORRESP := EXECBLOCK(“FI040CPCO”,.F.,.F.,{ACORRESP})
FINC040.PRX – FC040CON() -> EXECBLOCK( “FI040CMPO”, .F., .F. ,{OPANEL1} )
FINC040.PRX – FN040CRIA() -> ACAMPOS := EXECBLOCK(“FI040TPCP”,.F.,.F.,{ACAMPOS})
FINC040.PRX – FR040TEMP() -> CFILCMP := EXECBLOCK(“FIN040CMP”)
FINC040.PRX – FR040TEMP() -> EXECBLOCK(“FI040GRCP”, .F., .F., {‘CNOMEARQ’})
FINC040.PRX – FR040TEMP() -> IF LF040FILTIT .AND. !EXECBLOCK(“F040FILTIT”)
FINC050.PRX – FC050CON() -> ABROWSE := EXECBLOCK(“FC050BROWSE”,.F.,.F.,ABROWSE)
FINC050.PRX – FN050CRIA() -> ACAMPOS := EXECBLOCK(“FC050CAMPOS”,.F.,.F.,ACAMPOS)
FINC050.PRX – FR050TEMP() -> URET := EXECBLOCK(“FC050CPOVT”, .F., .F., {ACAMPOS[NX,1]})
FINC060.PRW – RCONSCLI() -> @ 06, 200 BUTTON OEMTOANSI(STR0084) SIZE 40,11 ACTION EXECBLOCK(“FC060CON”,.F.,.F.)
FINI040.PRW – V2000() -> AAUXINC := EXECBLOCK(“FI040SE1”,.F.,.F.,{ATIT,NOPCX})
FINI040.PRW – V3000() -> AAUXINC := EXECBLOCK(“FI040SE1”,.F.,.F.,{ATIT,NOPCX})
FINI050.PRW – V2000() -> ARETPE := EXECBLOCK(“F050E2”,.F.,.F.,{ATIT,ARATCC})
FINI050.PRW – V3000() -> ARETPE := EXECBLOCK(“F050E2”,.F.,.F.,{ATIT,ARATCC})
FINI055.PRW – INCLUISE1() -> ARETPE := EXECBLOCK(“F055E1”,.F.,.F.,{ACAB,ARATEVEZ})
FINI055.PRW – INCLUISE2() -> ARETPE := EXECBLOCK(“F055E2”,.F.,.F.,{ACAB,ARATEVEZ})
FINR085A.PRW – IMPCERTIFICADO() -> EXECBLOCK(“CERTCPR”,.F.,.F.,{ACERT[I],ACERT[I][4],.F.})
FINR085A.PRW – IMPCERTIFICADO() -> EXECBLOCK(“CERTIB”,.F.,.F.,{ACERT[I],ACERT[I][4],.F.})
FINR085A.PRW – IMPCERTIFICADO() -> EXECBLOCK(“CERTIVSUS”,.F.,.F.,{ACERT[I],ACERT[I][4],.F.})
FINR127.PRW – PRINTREPORT() -> CTEXTO := EXECBLOCK(“FIN127TXT”, .F., .F., {CTEXTO,(CALIAS)->(NOME), CANO })
FINR127.PRW – PRINTREPORT() -> CTEXTO := EXECBLOCK(“FIN127TXT”, .F., .F., {CTEXTO})
FINR127.PRW – PRINTREPORT() -> CTITULO := EXECBLOCK(“FIN127TIT”, .F.,.F., {CTITULO})
FINR130.PRX – DA OSECTION1.() -> CCAMPOCLI := EXECBLOCK(“FR130TELC”,.F.,.F.)
FINR130.PRX – REPORTPRINT() -> CF130QRY := EXECBLOCK(“F130QRY”,.F.,.F.)
FINR460.PRW – AUTOCHECK2() -> EXECBLOCK(“FINR460”,.F.,.F.,NHDLL)
FINR460.PRW – AUTOCHECK3() -> EXECBLOCK(“FINR460”,.F.,.F.,NHDLL)
FINR460.PRW – AUTOCHECK5() -> EXECBLOCK(“FINR460”,.F.,.F.,NHDLL)
FINR460.PRW – AUTOCHECK6() -> EXECBLOCK(“FINR460”,.F.,.F.,NHDLL)
FINR460.PRW – AUTOCHECK8() -> EXECBLOCK(“FINR460”,.F.,.F.,NHDLL)
FINR460.PRW – AUTOCHECK9() -> EXECBLOCK(“FINR460”,.F.,.F.,NHDLL)
FINR460.PRW – AUTOCHECKD() -> EXECBLOCK(“FINR460”,.F.,.F.,NHDLL)
FINR460.PRW – AUTOCHECKP() -> CMENSAGEM := EXECBLOCK(“F460MSG”,.F.,.F.,{CNOME})
FINR460.PRW – AUTOCHECKP() -> CVERSO:=EXECBLOCK(“F460VER”,.F.,.F.,{CNOME})
FINR460.PRW – FINR460() -> ACHEQUE[3] := EXECBLOCK(“F460BENEF”, .F., .F.)
FINR460.PRW – FINR460() -> ACHEQUE[9] := EXECBLOCK(“F460MSG”,.F.,.F.,{CNOME})
FINR460.PRW – FINR460() -> EXECBLOCK(“F460BXT”,.F.,.F.)
FINR460.PRW – FINR460() -> LRET := EXECBLOCK(“F460OK”,.F.,.F.)
FINR480.PRX – FA480CH() -> IF !EXECBLOCK(“FA480CH”,.F.,.F.)
FINR480.PRX – FA480IMP() -> CMUNIC := EXECBLOCK(“FA480MUN”,.F.,.F.)
FINR480.PRX – FR480GRAV() -> EXECBLOCK(“FA480COM”,.F.,.F.)
FINR480.PRX – FR480GRAV() -> EXECBLOCK(“FA480SAL”,.F.,.F.)
FINR480.PRX – IMPCHEQOK() -> EXECBLOCK(“FA480DAT”,.F.,.F.)
FINR551.PRX – FINR551R3() -> CTIPOS:= EXECBLOCK(“FARGTIP”)
FINR650.PRX – REPORTPRINT() -> CDESCR := EXECBLOCK(“F650DESCR”,.F.,.F.,{CDESCR})
FINR650.PRX – REPORTPRINT() -> EXECBLOCK(“F650VAR”, .F., .F., {AVALORES})
FINR650.PRX – REPORTPRINT() -> LACHOUTIT := EXECBLOCK(“FR650FIL”,.F.,.F.,{AVALORES})
FINR650.PRX – REPORTPRINT() -> NTXMOEDA := EXECBLOCK(“F430TXBX”, .F., .F., ATITULO)
FINRETIBB.PRW – RETIBBCRE() -> LCALCIB:=EXECBLOCK(“F0851IMP”,.F.,.F.,{“IB2”})
FINRETIVA.PRW – RETIVACRE() -> LCALCIMP:=EXECBLOCK(“F0851IMP”,.F.,.F.,{“IV2”})
FINRETIVA.PRW – RETIVAMCR() -> LCALCIMP:=EXECBLOCK(“F0851IMP”,.F.,.F.,{“IV2”})
FINRETIVA.PRW – RETIVAMDB() -> LCALCIMP:=EXECBLOCK(“F0851IMP”,.F.,.F.,{“IVA”})
FINRETMUN.PRW – RETMUNCRE() -> LCALCLIMP:=EXECBLOCK(“F0851IMP”,.F.,.F.,{“M”})
FINRETSLI.PRW – RETSLICRE() -> LCALCLIMP:=EXECBLOCK(“F0851IMP”,.F.,.F.,{“SL2”})
FINRETSUS.PRW – RETSUSCRE() -> LCALCSUS:=EXECBLOCK(“F0851IMP”,.F.,.F.,{“SU2”})
FINRGPS.PRW – FGPSPROC() -> APROC := EXECBLOCK(“FINGPSPRC”,.F.,.F.,{CALIASSE2,AGPSINS,AGPSINA,LACHOUPAI})
FINRGPS.PRW – PRTGPS() -> ARETGPS := EXECBLOCK(“FRGPSFOR”,.F.,.F.,{CCGC,CRAZAO,CFONE,CENDERECO,CBAIRRO,CCEP,CMUNICIPIO,CUF,SA2->(RECNO())})
FINRSRF.PRX – IMPDET() -> AINFO := EXECBLOCK(“FA373SCL”, .F., .F.,{AINFO})
FINRSRF.PRX – PRTDARF() -> AINFO := EXECBLOCK(“DARFVAL”,.F.,.F.,{AINFO})
FINRSRF.PRX – PRTDARF() -> COBS := EXECBLOCK(“DARFADOBS”, .F. , .F.,{AINFO,NW,NY})
FINXAPI.PRX – := FUNNAME()() -> EXECBLOCK(“F040CANVM”, .F., .F.)
FINXAPI.PRX – ADUPCREDRT() -> EXECBLOCK(“FPCCSE1”,.F.,.F.)
FINXAPI.PRX – ADUPCREDRT() -> EXECBLOCK(“FPCCSE2”,.F.,.F.)
FINXAPI.PRX – FAAVALSE2() -> LATUSA2 := EXECBLOCK(“MT103TRV”,.F.,.F.,{SE2->E2_FORNECE,SE2->E2_LOJA,”F”})[2]
FINXAPI.PRX – FABAIXACR() -> EXECBLOCK(“F070DISS”,.F.,.F.)
FINXAPI.PRX – FABAIXACR() -> EXECBLOCK(“F070EST”,.F.,.F.)
FINXAPI.PRX – FABAIXACR() -> EXECBLOCK(“F70E5ADT”,.F.,.F.)
FINXAPI.PRX – FABAIXACR() -> EXECBLOCK(“SE5FI460”,.F.,.F.)
FINXAPI.PRX – FABAIXACR() -> EXECBLOCK(‘SE3FI070’,.F.,.F.)
FINXAPI.PRX – FABAIXACR() -> EXECBLOCK(‘SE5FI070’,.F.,.F.)
FINXAPI.PRX – FACMCP() -> NVLRCM := EXECBLOCK(“F080CM”,.F.,.F.)
FINXAPI.PRX – FACMCR() -> NVLRCM := EXECBLOCK(“F070CM”,.F.,.F.,{NTXMOEDA})
FINXAPI.PRX – FACMPCR() -> EXECBLOCK(“FA330SE1”,.F.,.F.)
FINXAPI.PRX – FACMPCR() -> EXECBLOCK(“SE5FI330”,.F.,.F.)
FINXAPI.PRX – FACMPCR() -> EXECBLOCK(“SE5FI331”,.F.,.F.)
FINXAPI.PRX – FACMPCR() -> IF LMAINTEST .AND. EXECBLOCK(“MAINTEST”,.F.,.F.)
FINXAPI.PRX – FACMPCR() -> LTRAVASA1:= !EXISTBLOCK(“F070TRAVA”) .OR. EXECBLOCK(“F070TRAVA”, .F., .F.)
FINXAPI.PRX – FAINCSE2() -> ATITCOMP := EXECBLOCK(“E2CAMPAD”)
FINXAPI.PRX – FAINCSE2() -> CNATUREZ := EXECBLOCK(“E2MPNAT”)
FINXAPI.PRX – FANXTSEQBX() -> EXECBLOCK(“FANXTSEQ”,.F.,.F.,{‘1’})
FINXAPI.PRX – FANXTSEQBX() -> EXECBLOCK(“FANXTSEQ”,.F.,.F.,{‘2’})
FINXAPI.PRX – FINCMPAFK() -> EXECBLOCK(“FA330SE2”,.F.,.F.)
FINXAPI.PRX – FINCMPAFK() -> IF (LRETMADEL := EXECBLOCK(“MAINTDEL”,.F.,.F.))
FINXAPI.PRX – FINCMPAUT() -> EXECBLOCK(“FA330SE2”,.F.,.F.)
FINXAPI.PRX – FINCMPAUT() -> IF (LRETMADEL := EXECBLOCK(“MAINTDEL”,.F.,.F.))
FINXAPI.PRX – FINCORREC() -> NVLRCM := EXECBLOCK(“F080CM”,.F.,.F.)
FINXAPI.PRX – FINMOVCMP() -> EXECBLOCK(“SE5FI340”,.F.,.F.)
FINXAPI.PRX – FINMOVCMP() -> EXECBLOCK(“SE5FI341”,.F.,.F.)
FINXAPI.PRX – FPEDADT() -> LBLQADIANT := EXECBLOCK(“PVADTINC”,.F.,.F.,{CPEDIDO,NVALLIMITE,CCLIFOR,CLOJA,CTES})
FINXAPI.PRX – FPEDADTTRC() -> NVALOR := EXECBLOCK(“FINXVLAD”, .F., .F., {NVALOR, NSELEC, AINFADTO })
FINXAPI.PRX – MAINTBXCR() -> ACOMPLEM := EXECBLOCK(“F460SE1”,.F.,.F.)
FINXAPI.PRX – MAINTBXCR() -> EXECBLOCK(“F460NCC”,.F.,.F.)
FINXAPI.PRX – MAINTBXCR() -> EXECBLOCK(“F460VAL”,.F.,.F.,ACOMPLEM)
FINXBX.PRX – FA070ADIANT() -> EXECBLOCK(“FA070ADTSE5”,.F.,.F.)
FINXBX.PRX – FA070ESTRANG() -> EXECBLOCK(“FA070CMI”,.F.,.F.)
FINXBX.PRX – FA070GRV() -> C070HIST := PADR(EXECBLOCK(“F070HIST”,.F.,.F.,{SE1->(E1_FILIAL+E1_PREFIXO+E1_NUM+E1_PARCELA+E1_TIPO),NRECNOW}),NTAMHIST)
FINXBX.PRX – FA070GRV() -> EXECBLOCK(“F070DISS”,.F.,.F.)
FINXBX.PRX – FA070GRV() -> EXECBLOCK(“F070GRVHIS”,.F.,.F.)
FINXBX.PRX – FA070GRV() -> EXECBLOCK(“F70GRSE1”,.F.,.F.,{COCORR})
FINXBX.PRX – FA070GRV() -> EXECBLOCK(“FIN70BXIR”, .F.,.F.)
FINXBX.PRX – FA070GRV() -> EXECBLOCK(“FINAJURO”,.F.,.F.)
FINXBX.PRX – FA070GRV() -> EXECBLOCK(‘SE3F070’,.F.,.F.)
FINXBX.PRX – FA070GRV() -> EXECBLOCK(‘SE3FI070’,.F.,.F.)
FINXBX.PRX – FA070GRV() -> NSALDO -= EXECBLOCK(“F070GERAB”,.F.,.F., {CCLIENTE+CLOJA+CPREFIXO+CNUM+CPARCELA, DBAIXA , CLOTEFIN , CTIPOOR, } )
FINXBX.PRX – FA070GRV() -> NVALPADRAO += EXECBLOCK(“FINSALTIT”)
FINXBX.PRX – FA070GRV() -> REPLACE E1_VALLIQ WITH NVALREC + EXECBLOCK(“FINSALTIT”, .F.,.F., 2)
FINXBX.PRX – FA070GRV() -> XF200GERA := EXECBLOCK(“F200GERA”,.F.,.F.,{NRECNOW,ATITULOS})
FINXBX.PRX – FA070GRVSE5() -> EXECBLOCK(“F70E5ADT”,.F.,.F.)
FINXBX.PRX – FA070MOV() -> AHDLAUX := EXECBLOCK(“F070MV1”, .F., .F., {NI, ABXACR, ABXDEC, CBANCO, CAGENCIA, CCONTA, DBAIXA, NVALMOV,;
FINXBX.PRX – FA070MOV() -> EXECBLOCK(‘SE5FI070’,.F.,.F.)
FINXBX.PRX – FA070VALMO() -> LRET := EXECBLOCK(“F070VMOT”,.F.,.F.)
FINXBX.PRX – FAJUROS() -> NATRASO := EXECBLOCK(“NEWJUROS”,.F.,.F.,{DBAIXA,DVENCTO,NATRASO})
FINXBX.PRX – FAJUROS() -> NJUROS := EXECBLOCK(“FJURCST”,.F.,.F.,{DBAIXA,DVENCTO,NATRASO,NVALJUR,NPERJUR})
FINXBX.PRX – FAJUROS() -> NJUROS := EXECBLOCK(“FJURREC”,.F.,.F.,{DBAIXA,DVENCTO,NATRASO,NVALJUR,NPERJUR,NJUROS,CALIASSE1})
FINXBX.PRX – FCADMOTBX() -> CFILE := EXECBLOCK(“FILEMOT”,.F.,.F.,{CFILE})
FINXBX.PRX – FINGRVFI2() -> EXECBLOCK( “F040GRCOM”, .F., .F., {AITEMSFI2} )
FINXBX.PRX – ULTILOTE() -> EXECBLOCK(‘ULTILOTE’,.F.,.F.)
FINXFIN.PRX – A040DUPREC() -> CNATUREZA:= EXECBLOCK(“NTFETHAB”,.F.,.F.,{CORIGEM,CPREFIXO})
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“F040COF”,.F.,.F.,NSAVREC)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“F040CSL”,.F.,.F.,NSAVREC)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“F040FAB”,.F.,.F.,NSAVREC)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“F040FAC”,.F.,.F.,NSAVREC)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“F040FAM”,.F.,.F.,NSAVREC)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“F040FET”,.F.,.F.,NSAVREC)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“F040FMP”,.F.,.F.,NSAVREC)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“F040GER”,.F.,.F.,ARECIMPOS)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“F040IMA”,.F.,.F.,NSAVREC)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“F040INS”,.F.,.F.,NSAVREC)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“F040IRF”,.F.,.F.,NSAVREC)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“F040ISS”,.F.,.F.,NSAVREC)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“F040PIS”,.F.,.F.,NSAVREC)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“M040CSSR”,.F.,.F.)
FINXFIN.PRX – A040DUPREC() -> EXECBLOCK(“M040SE1”,.F.,.F.)
FINXFIN.PRX – A040DUPREC() -> IF !LINSMR .AND. ( SE1->E1_INSS < _NVLINSRET ) .AND. (IIF(__LFVLDINS, EXECBLOCK(“FINVLDINS”,.F.,.F., {} ), .T. )) FINXFIN.PRX – A040DUPREC() -> LGRVSA1:= EXECBLOCK(“F040TRVSA1”,.F.,.F.) FINXFIN.PRX – A040DUPREC() -> XMINRETIR := EXECBLOCK(“F040MIRF”,.F.,.F.,{SA2->A2_COD,SA2->A2_LOJA}) FINXFIN.PRX – A040DUPREC() -> __CCSSNAT := EXECBLOCK(“NTFUNR”,.F.,.F.,{CORIGEM,CPREFIXO}) FINXFIN.PRX – A040DUPREC() -> __NMINISS := EXECBLOCK(“F040MISS”,.F.,.F.,{CMUNISS}) FINXFIN.PRX – A050DUPPAG() -> CNATUREZA:= EXECBLOCK(“NTFETHAB”,.F.,.F.,{CORIGEM,CPREFIXO}) FINXFIN.PRX – A050DUPPAG() -> CNATUREZA:= EXECBLOCK(“NTFUNR”,.F.,.F.,{CORIGEM,CPREFIXO}) FINXFIN.PRX – A050DUPPAG() -> EXECBLOCK(“ATUDPPAG”,.F.,.F.,CORIGEM) FINXFIN.PRX – A050DUPPAG() -> EXECBLOCK(“F050GER”,.F.,.F.,ARECIMPOS) FINXFIN.PRX – A050DUPPAG() -> EXECBLOCK(“F050ISS”,.F.,.F.,NREGSE2) FINXFIN.PRX – A050DUPPAG() -> EXECBLOCK(“F050SES”,.F.,.F.,NREGSE2) FINXFIN.PRX – A050DUPPAG() -> EXECBLOCK(“M050CSSP”,.F.,.F.,NREGSE2) FINXFIN.PRX – A050DUPPAG() -> IF LINSSS .AND. (IF(LFINVLDINS, EXECBLOCK(“FINVLDINS”,.F.,.F., {} ), .T. )) FINXFIN.PRX – A050DUPPAG() -> XMINRETIR := EXECBLOCK(“F040MIRF”,.F.,.F.,{SA2->A2_COD,SA2->A2_LOJA}) FINXFIN.PRX – ATUSALBCO() -> EXECBLOCK(“FAATUBCO”,.F.,.F.,{CBANCO, CAGENCIA, CCONTA, DDATA, NVALOR, CSINAL,LRECONC , LSALATU}) FINXFIN.PRX – ATUSALBCO() -> IF !EXECBLOCK(‘ATUSLBCO’,.F.,.F.,{CBANCO, CAGENCIA, CCONTA, DDATA, NVALOR, CSINAL}) FINXFIN.PRX – CARREGASA6() -> CNATUREZA := EXECBLOCK(“PE_LOADSA6”,.F.,.F.) FINXFIN.PRX – CARREGASA6() -> LBENEFI := EXECBLOCK (“FINBENEF”,.F.,.F.) FINXFIN.PRX – DETCNAB2() -> CIDCNAB := EXECBLOCK(“F420ICNB”,.F.,.F.,{CIDCNAB}) FINXFIN.PRX – DTMOVFIN() -> LRET :=EXECBLOCK(“FADTMOV”,.F.,.F.,{DDATA}) FINXFIN.PRX – FA040LEGENDA() -> ALEGNEW := EXECBLOCK(“F040ADLE”,.F.,.F.,ALEGENDA) FINXFIN.PRX – FA040LEGENDA() -> EXECBLOCK(“FINALEG”,.F.,.F.,{NREG,CALIAS,{},ALEGENDA}) FINXFIN.PRX – FA040LEGENDA() -> URETNEW := EXECBLOCK(“F040URET”,.F.,.F.,{URETORNO,ALEGENDA}) FINXFIN.PRX – FA040LEGENDA() -> URETORNO := EXECBLOCK(“FINALEG”,.F.,.F.,{NREG,CALIAS,URETORNO,{}}) FINXFIN.PRX – FA050NOME() -> NPERCISS := EXECBLOCK(“F050PISS”,.F.,.F.) FINXFIN.PRX – FA080JUROS() -> NJUROS := EXECBLOCK(“F080JUR”,.F.,.F.) FINXFIN.PRX – FA171CALAP() -> NDIASCTB := EXECBLOCK(“FADIACTB”,.F.,.F.,{NDIASCTB}) FINXFIN.PRX – FA171CALAP() -> NRENDAUX:= EXECBLOCK( “F171RDBR”, .F., .F., { NRENDIMENTO } ) FINXFIN.PRX – FA171CALAP() -> NRENDAUX:= EXECBLOCK( “F171RDMN”, .F., .F., { NRENDIMENTO } ) FINXFIN.PRX – FA171CALEP() -> NDIASCTB := EXECBLOCK(“FADIACTB”,.F.,.F.,{NDIASCTB}) FINXFIN.PRX – FA280VISUA() -> AUSBUTTONS := EXECBLOCK( “F040BUT”, .F., .F. ) FINXFIN.PRX – FA280VISUA() -> EXECBLOCK(“FA40PROT”,.F.,.F.) FINXFIN.PRX – FA390BANCO() -> CCHEQUE390 := PADR(EXECBLOCK(“F390NCHQ”,.F.,.F.,{CBANCO390,CAGENCIA390,CCONTA390}),TAMSX3(“EF_NUM”)[1]) FINXFIN.PRX – FA390CHEQ() -> LRET := EXECBLOCK(“F390VCH”,.F.,.F.) FINXFIN.PRX – FADESCFIN() -> NDESCONTO := EXECBLOCK(“F070DES”,.F.,.F.,NDESCONTO) FINXFIN.PRX – FADESCFIN() -> NDESCONTO := EXECBLOCK(“F070DSCF”,.F.,.F.,NDESCONTO) FINXFIN.PRX – FAPRNUMCHQ() -> CCHQ := EXECBLOCK(“PAGNUMCHEQ”,.F.,.F.,{CBCO,CAG,CNUM,CCHQ}) FINXFIN.PRX – FAPRNUMCHQ() -> IF !EXECBLOCK(“PAGOBJCH”,.F.,.F.,{CBCO,CAG,CNUM,CCHQ,OCHQ,LRET}) FINXFIN.PRX – FAPRNUMCHQ() -> LRET := EXECBLOCK(“F080KCO”,.F.,.F.,{CBCO,CAG,CNUM}) FINXFIN.PRX – FC020COMPRA() -> AVENC := EXECBLOCK(“FC020COM”,.F.,.F.,{SC7->C7_NUM,SC7->C7_ITEM,NVALTOT,CCOND,NVALIPI,DDATA}) FINXFIN.PRX – FC020COMPRA() -> CQUERY += EXECBLOCK(“FC020CQR”,.F.,.F.) FINXFIN.PRX – FC020COMPRA() -> DDATA := EXECBLOCK(“FC021DTF”,.F.,.F.,{“SC7″,”SC7”}) FINXFIN.PRX – FC020VENDA() -> AVENC := EXECBLOCK(“FC020VDA”,.F.,.F.,{(CALIASSC6)->C6_NUM,(CALIASSC6)->C6_ITEM,NVALTOT,CCOND,NVALIPI,DDATA}) FINXFIN.PRX – FC020VENDA() -> AVENC := EXECBLOCK(“FC020VDB”,.F.,.F.,{(CALIASSC6)->C6_NUM,(CALIASSC6)->C6_ITEM,NVALTOT,CCOND,NVALIPI,DDATA}) FINXFIN.PRX – FC020VENDA() -> AVENC := EXECBLOCK(“FC020VDC”,.F.,.F.,{(CALIASSC6)->C6_NUM}) FINXFIN.PRX – FC020VENDA() -> CQUERY += EXECBLOCK(“FC020VQR”,.F.,.F.) FINXFIN.PRX – FC020VENDA() -> DDATA := EXECBLOCK(“FC021DTF”,.F.,.F.,{“SC6”,CALIASSC6}) FINXFIN.PRX – FINADISPLAY() -> LBXTITPAG := EXECBLOCK(“F090TIT”,.F.,.F.,{ NVALORMARCA }) FINXFIN.PRX – FINADISPLAY() -> LBXTITREC := EXECBLOCK(“F110TIT”,.F.,.F., { NVALORMARCA }) FINXFIN.PRX – FINCMC7TC() -> ACMC7TC := EXECBLOCK(“FINCMTC”,.F.,.F.,{CCMC7}) FINXFIN.PRX – FINCMC7TC() -> CCMC7 := EXECBLOCK(“FINLRCHQ”,.F.,.F.,{}) FINXFIN.PRX – FINRETSIX() -> NF240IND := EXECBLOCK(“F240IND”, .F., .F., {.F., {}}) FINXFUMI.PRW – FINCALITF() -> LRETORNO:= EXECBLOCK(“FINPROCITF”,.F.,.F.,{NRECNOSE5,NOPC}) FINXIMP.PRW – FCALCIRBX() -> CQUERY += EXECBLOCK(“FINXCALCIR”, .F. , .F. , CQUERY) FINXIMP.PRW – FCALCIRBX() -> NBASEIRRF := EXECBLOCK(“F50CIRFF”,.F.,.F.,NBASEIRRF) FINXIMP.PRW – FCALCISS() -> NPERCISS := EXECBLOCK(“F050PISS”,.F.,.F.) FINXIMP.PRW – FGRVINSS() -> EXECBLOCK(“F050INS”,.F.,.F.,NREGSE2) FINXIMP.PRW – FGRVPCCREC() -> EXECBLOCK(“F040COF”,.F.,.F.,NREGSE1) FINXIMP.PRW – FGRVPCCREC() -> EXECBLOCK(“F040CSL”,.F.,.F.,NREGSE1) FINXIMP.PRW – FGRVPCCREC() -> EXECBLOCK(“F040PIS”,.F.,.F.,NREGSE1) FINXIMP.PRW – GETCLIFOR() -> AFIL13137 := EXECBLOCK( “MT103FRT”, .F., .F. ) FINXIMP.PRW – GETVALORTX() -> CQUERY+= EXECBLOCK(“F241QRY2”,.F.,.F., {CQUERY}) FINXIMP.PRW – SUMDAY() -> CQUERY+= EXECBLOCK(“FINCMP1″,.F.,.F.,{CQUERY}) + ” ,” FINXIMP.PRW – SUMDAY() -> CQUERY+= ” (” + EXECBLOCK(“FINXORD”,.F.,.F., {CQUERY}) FINXIMP.PRW – SUMDAY() -> CQUERY+= EXECBLOCK(“F241CMP2”,.F.,.F., {CQUERY}) + “,” FINXIMP.PRW – SUMDAY() -> CQUERY+= EXECBLOCK(“F241QRY2”,.F.,.F., {CQUERY}) FINXIMP.PRW – SUMDAY() -> CQUERY:= EXECBLOCK(“F241QRY3”,.F.,.F.,{CQUERY}) FINXIMP.PRW – SUMDAY() -> LRESTAUM := EXECBLOCK(“RESTAUM”,.F.,.F.) FINXIMP.PRW – SUMDAY() -> LRET := EXECBLOCK(“FINEXEC”,.F.,.F.,{CALIASQRY}) FINXIMP.PRW – VERVRAR() -> LRESTAUM := EXECBLOCK(“RESTAUM”,.F.,.F.) FINXINC.PRX – FA050DELPA() -> EXECBLOCK(“F050EXCPA”,.F.,.F.) FINXINC.PRX – FA050DELPA() -> LCHEQSE5 := EXECBLOCK(“F050CHPA”,.F.,.F.) FINXINC.PRX – FA050DELPA() -> LESTPASE5 := EXECBLOCK(“F050DLPA”,.F.,.F.) FINXINC.PRX – FA050DIGPA() -> EXECBLOCK(“FA050PA”,.F.,.F.,{CBANCOADT,CAGENCIAADT,CNUMCON,CCHEQUEADT,CHISTOR,CBENEF}),; FINXINC.PRX – FA050IRF() -> LAPLICATP := EXECBLOCK(“F050ATP”,.F.,.F.) FINXINC.PRX – FA050IRF() -> M->E2_IRRF := EXECBLOCK(“F050CIRF”,.F.,.F.,NBASEIRRF) FINXINC.PRX – FA050ISS() -> EXECBLOCK(“F050AISS”,.F.,.F.) FINXINC.PRX – FA050NATUR() -> EXECBLOCK(“FA050IMP”,.F.,.F.) FINXINC.PRX – FA050NATUR() -> IF ( M->E2_INSS < GETMV(“MV_VLRETIN”) ) .AND. SA2->A2_TIPO <> “F” .AND. (IIF(LFINVLDINS, EXECBLOCK(“FINVLDINS”,.F.,.F., {} ), .T. )) FINXINC.PRX – FA050NATUR() -> LAPLICATP := EXECBLOCK(“F050ATP”,.F.,.F.) FINXINC.PRX – FA050NATUR() -> M->E2_INSS := EXECBLOCK(“F050INBR”,.F.,.F.,NBASEINSS) FINXINC.PRX – FA050NATUR() -> M->E2_IRRF := EXECBLOCK(“F050CIRF”,.F.,.F.,NBASEIRRF) FINXINC.PRX – FA050NATUR() -> NPERCISS := EXECBLOCK(“F050PISS”,.F.,.F.) FINXINC.PRX – FA050TIT2CC() -> EXECBLOCK(“F050PROV”,.F.,.F.) FINXINC.PRX – FCLCIRPJ() -> LCALCIR := EXECBLOCK(“F050CALIR”,.F.,.F.) FINXINC.PRX – FCLCIRPJ() -> NBASEIRRF := EXECBLOCK(“F50CIRFF”,.F.,.F.,NBASEIRRF) FINXNAT.PRX – ATUSLDNAT() -> EXECBLOCK(“F022GRA”,.F.,.F.,{ CNATUREZA, DDATA, CMOEDA, CALIAS }) FINXNAT.PRX – CCCARREXT() -> AFNATRTEX := EXECBLOCK(“FNATRTEX”,.F.,.F.,{AHEADER, ACOLS[NCOLS]}) FINXNAT.PRX – DELMULTSEV() -> EXECBLOCK(“MULTSEV”, .F., .F., { 5, SUBS(CCHAVE, 3), 0, 0, “” }) FINXNAT.PRX – DELMULTSEZ() -> EXECBLOCK(“MULTSEZ”, .F., .F., { 5, SUBS(CCHAVE, 3) }) FINXNAT.PRX – FAMNATOK() -> LRET := EXECBLOCK(“FIXVALMNAT”,.F.,.F.) FINXNAT.PRX – GRVSEVSEZ() -> ARATRET := EXECBLOCK(“FINRATAUT”,.F.,.F.,{AHEADERSEV, ACOLSSEV}) FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVE, ACOLSSEV[NX][2],; FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVECID,; FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVECOF,; FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVECSL,; FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVEINS,; FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVEIRF,; FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVEISS,; FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVEPIS,; FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEZ”, .F., .F., { 3, CCHAVE }) FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEZ”, .F., .F., { 3, CCHAVECID }) FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEZ”, .F., .F., { 3, CCHAVECOF }) FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEZ”, .F., .F., { 3, CCHAVECSL }) FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEZ”, .F., .F., { 3, CCHAVEINS }) FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEZ”, .F., .F., { 3, CCHAVEIRF }) FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEZ”, .F., .F., { 3, CCHAVEISS }) FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEZ”, .F., .F., { 3, CCHAVEPIS }) FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“MULTSEZ”, .F., .F., { 3, SEZ->EZ_PREFIXO +; FINXNAT.PRX – GRVSEVSEZ() -> EXECBLOCK(“RATG050”, .F., .F., { ACOLSSEV }) FINXNAT.PRX – MNATLINOK() -> LRET := EXECBLOCK(“FAVALIDMNAT”,.F.,.F.,{FUNNAME()}) FINXNAT.PRX – MNATLINOK() -> LRET := EXECBLOCK(“FAVLDMNAT”,.F.,.F.,{FUNNAME()}) FINXNAT.PRX – MNCCNOK() -> LRET := EXECBLOCK(“MNCCNOK”,.F.,.F.) FINXNAT.PRX – MNCCTOK() -> LRET := EXECBLOCK(“MNCCOK”,.F.,.F.) FINXNAT.PRX – MULNATCC() -> IF VALTYPE(ACOLSUSER:=EXECBLOCK(“NATSEZLOAD”,.F.,.F.,{ACOLS,AHEADER,CNATUR,NVALNAT})) == “A” FINXNAT.PRX – MULNATCC() -> LCONFIRMA := EXECBLOCK(“MNATCC”,.F.,.F.) FINXNAT.PRX – MULNATCC() -> { || NOPCC := 1, IF(MNCCTOK() .AND. IF(LF050VCMC,LVALF050C := EXECBLOCK(“F050VCMC”,.F.,.F.),.T.),ODLG1:END(),)},; FINXNAT.PRX – MULNATCC() -> { || NOPCC := 2, IF(MNCCNOK() .AND. LCONFIRMA .AND. IF(!LF050VCMC, ODLG1:END(), IF(LVALF050C := EXECBLOCK(“F050VCMC”,.F.,.F.),ODLG1:END(),.T.)),,)},,; FINXNAT.PRX – MULNATCC() -> {|| NOPCC := 1, IF(MNCCTOK() .AND. IF(LF050VCMC, LVALF050C := EXECBLOCK(“F050VCMC”,.F.,.F.),.T.), ODLG1:END(),)},; FINXNAT.PRX – MULNATCC() -> {|| NOPCC := 2, IF(MNCCNOK() .AND. LCONFIRMA .AND. IF(!LF050VCMC,ODLG1:END(),IIF(LVALF050C := EXECBLOCK(“F050VCMC”,.F.,.F.),ODLG1:END(),.T.)),,)},; FINXNAT.PRX – MULTNAT() -> ARETRAT := EXECBLOCK(“RATF050”, .F., .F., { ACOLS }) FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVE, ACOLS[NX][2],; FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVECID,; FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVECOF,; FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVECSL,; FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVEINS,; FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVEIRF,; FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVEISS,; FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, CCHAVEPIS,; FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEV”, .F., .F., { NX, SEV->EV_PREFIXO +; FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEZ”, .F., .F., { NOPC, CCHAVE }) FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEZ”, .F., .F., { NOPC, CCHAVECID }) FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEZ”, .F., .F., { NOPC, CCHAVECOF }) FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEZ”, .F., .F., { NOPC, CCHAVECSL }) FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEZ”, .F., .F., { NOPC, CCHAVEINS }) FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEZ”, .F., .F., { NOPC, CCHAVEIRF }) FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEZ”, .F., .F., { NOPC, CCHAVEISS }) FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEZ”, .F., .F., { NOPC, CCHAVEPIS }) FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“MULTSEZ”, .F., .F., { NOPC, SEZ->EZ_PREFIXO +; FINXNAT.PRX – MULTNAT() -> EXECBLOCK(“RTNATTEL”,.F.,.F.) FINXNAT.PRX – MULTNAT2() -> ACTIVATE MSDIALOG ODLG ON INIT (ENCHOICEBAR(ODLG,{||NOPCA:=1,IF(OGET:TUDOOK() .AND. FAMNATOK() .AND. IIF(LF050VCMN,LVALF050 := EXECBLOCK(“F050VCMN”),.T.),ODLG:END(),NOPCA := 0)},; FINXNAT.PRX – MULTNAT2() -> ACTIVATE MSDIALOG ODLG ON INIT (FAMYBAR(ODLG,{||NOPCA:=1,IF(OGET:TUDOOK() .AND. FAMNATOK() .AND. IIF(LF050VCMN,LVALF050 := EXECBLOCK(“F050VCMN”),.T.),ODLG:END(),NOPCA := 0)},; FINXNAT.PRX – MULTNAT2() -> EXECBLOCK(“RTNATTEL”,.F.,.F.) FINXNAT.PRX – MULTNAT2() -> IF VALTYPE(ACOLSUSER:=EXECBLOCK(“NATSEVLOAD”,.F.,.F.,{ACOLS,AHEADER})) == “A” FINXNAT.PRX – MULTNAT2() -> {|| NOPCA:=0,IIF(!LF050VCMN,ODLG:END(),IIF(LVALF050 := EXECBLOCK(“F050VCMN”),ODLG:END(),.T.))},,ABUTTON),OPANEL2:ALIGN := CONTROL_ALIGN_BOTTOM) FINXNAT.PRX – MULTNAT2() -> {|| NOPCA:=0,IIF(!LF050VCMN,ODLG:END(),IIF(LVALF050 := EXECBLOCK(“F050VCMN”),ODLG:END(),.T.))},ABUTTON),OPANEL2:ALIGN := CONTROL_ALIGN_BOTTOM) FINXNAT.PRX – MULTNATB() -> EXECBLOCK(“MULTNATB”,.F.,.F., {CALIAS,LBXLOTE,CREPLICA} ) FINXNAT.PRX – MULTNATB() -> LMNBCANCEL := EXECBLOCK(“MNBCANCEL”,.F.,.F.,{ACOLS}) FINXNAT.PRX – MULTNATC() -> EXECBLOCK(“MULTNATC”,.F.,.F.) FINXOLD.PRX – BX80BXSPB() -> ADADOSSPB := EXECBLOCK(“FA080SPB”,.F.,.F.,ASPB) FINXOLD.PRX – FA050CARR() -> CHISTRAT :=EXECBLOCK(“F050HST”,.F.,.F.,{CHISTRAT}) FINXOLD.PRX – FA050CARR() -> CORIGEM := EXECBLOCK(“F050ORI”,.F.,.F.,{CORIGEM}) FINXOLD.PRX – FA050CODRAT() -> LRET := EXECBLOCK(“F050VLCOD”,.F.,.F.,{CCODRATEIO,NRADIO}) FINXOLD.PRX – FA050LINOK() -> LRET := EXECBLOCK(“F050LRAT”, .F., .F. ) FINXOLD.PRX – FA050RATE() -> NMOSTRA := EXECBLOCK(“F050ACOL”,.F.,.F.) FINXOLD.PRX – FA050TUDOK() -> LRET := EXECBLOCK(“F050RAT”,.F.,.F.) FINXOLD.PRX – FCAINPJBX() -> IF NINSSTOT+IIF(LACMPJ,NTOTRINS,0) < NVLMININSS .AND. (IIF(LFINVLDINS, EXECBLOCK(“FINVLDINS”,.F.,.F., {} ), .T. )) FINXOLD.PRX – FCMPCPOLD() -> EXECBLOCK(“FA330SE2”,.F.,.F.) FINXOLD.PRX – FCMPCPOLD() -> EXECBLOCK(“SE5FI340”,.F.,.F.) FINXOLD.PRX – FCMPCPOLD() -> EXECBLOCK(“SE5FI341”,.F.,.F.) FINXOLD.PRX – FCMPCPOLD() -> IF LMAINTDEL .AND. EXECBLOCK(“MAINTDEL”,.F.,.F.) FINXOLD.PRX – FINNATVEN() -> NRETORNO := EXECBLOCK(“FINNVP”,.F.,.F.,NRETORNO) FINXOLD.PRX – INSACMBX() -> AFILINSS := EXECBLOCK( “F50TFINS”, .F., .F. ) FINXOLD.PRX – INSCAPFBX() -> AFILINSS := EXECBLOCK( “F50TFINS”, .F., .F. ) FINXOLD.PRX – INSCAPJBX() -> AFILINSS := EXECBLOCK( “F50TFINS”, .F., .F. ) FINXOLD.PRX – LIQORDEN() -> EXECBLOCK(“COBA0124″,.F.,.F.) ) FINXOLD.PRX – LIQORDEN() -> OGET := MSGETDADOS():NEW(75,1,150,312,NOPCX,”EXECBLOCK(‘PAGOLOK’,.F.,.F.)”,”EXECBLOCK(‘PAGOTOK’,.F.,.F.)”,””,.T.) FINXOLD.PRX – LIQORDEN() -> VALID IF( CLIQ == “0”,EXECBLOCK(“PAGO0124”,.F.,.F.),; FINXOLD.PRX – OLDF070CMC7TC() -> ACMC7TC := EXECBLOCK(“F460CMTC”,.F.,.F.,CCMC7) FINXOMD.PRX – A050MANSE2() -> CIDCNAB := EXECBLOCK(“F240ICNB”,.F.,.F.,{CIDCNAB}) FINXOMD.PRX – DETIGVFIN() -> ARET:=EXECBLOCK(“F012DETIGV”,.F.,.F.,{CFIL,CCODFOR,CLOJAFOR,DDATAINI,DDATAFIM,DDTDIGIT}) FINXRES.PRW – DATINTRES() -> ARETPERG := EXECBLOCK(“FNXRESPAR”,.F.,.F.) FINXRET.PRW – FINGRVIMP() -> EXECBLOCK(“FXIMPGR”,.F.,.F.,ARECIMPOS) FINXRET.PRW – FINGRVIMP() -> EXECBLOCK(“FXIMPPG”,.F.,.F.,NRECTITPAI) FINXSE5.PRW – FNBAIXAE1() -> ASE5GRVFK := EXECBLOCK(“SE5GRVFK”,.F.,.F.,{“FK1”, ACAMPOSFK1}) FINXSE5.PRW – FNBAIXAE1() -> ASE5GRVFK := EXECBLOCK(“SE5GRVFK”,.F.,.F.,{“FK5”, ACAMPOSFK5}) FINXSE5.PRW – FNBAIXAE1() -> ASE5GRVFK := EXECBLOCK(“SE5GRVFK”,.F.,.F.,{“FK6”, ACAMPOSFK6}) FINXSE5.PRW – FNBAIXAE2() -> ASE5GRVFK := EXECBLOCK(“SE5GRVFK”,.F.,.F.,{“FK2”, ACAMPOSFK2}) FINXSE5.PRW – FNBAIXAE2() -> ASE5GRVFK := EXECBLOCK(“SE5GRVFK”,.F.,.F.,{“FK5”, ACAMPOSFK5}) FINXSE5.PRW – FNBAIXAE2() -> ASE5GRVFK := EXECBLOCK(“SE5GRVFK”,.F.,.F.,{“FK6”, ACAMPOSFK6}) FINXSE5.PRW – FNBUSCAEF() -> ASE5GRVFK := EXECBLOCK(“SE5GRVFK”,.F.,.F.,{“FK5”, ACAMPOSFK5}) FINXSE5.PRW – FNBUSCASE5() -> ASE5GRVFK := EXECBLOCK(“SE5GRVFK”,.F.,.F.,{“FK5”, ACAMPOSFK5}) FINXSE5.PRW – FNBUSCASE5() -> ASE5GRVFK := EXECBLOCK(“SE5GRVFK”,.F.,.F.,{“FK8”, ACAMPOSFK8}) FINXSPD.PRX – F500TOP() -> CDTEMIS := EXECBLOCK (“SPDF500”,.F.,.F.) FINXSPD.PRX – F500TOP() -> CQUERY := EXECBLOCK(“F500E5TQ”, .F. , .F. , {CQUERY}) FINXSPD.PRX – F500TOP() -> CQUERY := EXECBLOCK(“F500EITQ”, .F. , .F. , {CQUERY}) FINXSPD.PRX – FINSPDF100() -> AF100[29] := EXECBLOCK(“SPD10019”,.F., .F., {AF100[29]}) FINXSPD.PRX – FINSPDF100() -> ARETURN := EXECBLOCK(“SPD100FIN”,.F., .F., {ARETURN}) FINXSPD.PRX – FINSPDF100() -> CNORIGEM := EXECBLOCK (“SPDF1005”,.F.,.F.) FINXSPD.PRX – FINSPDF100() -> CORIGEM := EXECBLOCK (“SPDF1003”,.F.,.F.) FINXSPD.PRX – FINSPDF100() -> LCODPART:=EXECBLOCK (“SPDF1004”,.F.,.F.,{(CALIASQRY)}) FINXSPD.PRX – FINSPDF600() -> CPECODREC := EXECBLOCK (“SPDF6003”,.F.,.F.) FINXSPD.PRX – FINSPDF600() -> CPECODREC := EXECBLOCK (“SPDF6004”,.F.,.F.,{AF600}) FINXSPD.PRX – FINSPDF600() -> CPEMBX := EXECBLOCK (“SPDF6001”,.F.,.F.) FINXSPD.PRX – FINSPDF600() -> CPENAT := EXECBLOCK (“SPDF6002”,.F.,.F.) FINXSPD.PRX – FINSPDM220() -> CORIGEM := EXECBLOCK (“SPDF1003”,.F.,.F.) FINXSPD.PRX – TRBF500() -> AIMPOST:= EXECBLOCK (“SPDF500I”,.F.,.F., {AIMPOST}) FINXSPD.PRX – TRBF500() -> CORIGEM := EXECBLOCK (“SPDF1003”,.F.,.F.) FINXSPD.PRX – TRBF500() -> NBASE:= EXECBLOCK (“SPDF500B”,.F.,.F.) FIS828GRVFIN.PRW – FIS828GRVFIN() -> AF828G10 := EXECBLOCK(“F828G10” ,.F.,.F.,{ACABSVEND,AITENSOPR}) FIS828GRVFIN.PRW – FIS828GRVFIN() -> AF828G2 := EXECBLOCK(“F828G2” ,.F.,.F.,{ACABSVEND,AITENSDED}) FIS828GRVFIN.PRW – FIS828GRVFIN() -> AF828G3 := EXECBLOCK(“F828G3” ,.F.,.F.,{ACABSVEND,AITENSDED}) FIS828GRVFIN.PRW – FIS828GRVFIN() -> AF828G4 := EXECBLOCK(“F828G4” ,.F.,.F.,{ACABSCOMP,AITENSOPR}) FIS828GRVFIN.PRW – FIS828GRVFIN() -> AF828G5 := EXECBLOCK(“F828G5” ,.F.,.F.,{ACABSVEND,AITENSDED}) FIS828GRVFIN.PRW – FIS828GRVFIN() -> AF828G6 := EXECBLOCK(“F828G6” ,.F.,.F.,{ACABSVEND,AITENSDED}) FIS828GRVFIN.PRW – FIS828GRVFIN() -> AF828G7 := EXECBLOCK(“F828G7” ,.F.,.F.,{ACABSCOMP,AITENSDED}) FIS828GRVFIN.PRW – FIS828GRVFIN() -> AF828G8 := EXECBLOCK(“F828G8” ,.F.,.F.,{ACABSVEND,AITENSOPR}) FIS828GRVFIN.PRW – FIS828GRVFIN() -> AF828G9 := EXECBLOCK(“F828G9” ,.F.,.F.,{ACABSCOMP,AITENSDED}) FISA001.PRW – A001CUPOM() -> CCONTA:=EXECBLOCK(“SPDPIS07”, .F., .F., {(CALIASSFT)->FT_FILIAL,; FISA001.PRW – A001FOLHA() -> AM350AUX := EXECBLOCK(“SPEDM350”, .F., .F.,{FWGETCODFILIAL, DDATADE, DDATAATE}) FISA001.PRW – A001IMOB() -> ARETIMOB :=EXECBLOCK(“SPDPCIMOB”,.F.,.F.,{{},DDATADE,DDATAATE}) FISA001.PRW – A001PEDFAN() -> ASPDPCANT := EXECBLOCK(“SPDPCANT”, .F., .F., { AREGM300,AREGM700,DDATADE,DDATAATE } ) FISA001.PRW – A001PEDFAN() -> ASPDPCANT := EXECBLOCK(“SPDPCANT”, .F., .F., {AREGM300,AREGM700,DDATADE,DDATAATE } ) FISA001.PRW – A001PEDFAT() -> ASPDDIF := EXECBLOCK(“SPDPCD”, .F., .F., { DDATADE, DDATAATE } ) FISA001.PRW – A001PEF100() -> APEF100 := EXECBLOCK(“SPDPIS09”,.F.,.F.,{FWGETCODFILIAL,DDATADE,DDATAATE}) FISA001.PRW – A001PISSTR() -> ASPDPISTR := EXECBLOCK(“SPDPISTR”,.F.,.F.,{FWGETCODFILIAL,DDATADE,DDATAATE}) FISA001.PRW – A001SFTSAI() -> CCONTA:=EXECBLOCK(“SPDPIS07”, .F., .F., {(CALIASSFT)->FT_FILIAL,; FISA001.PRW – A001SFTSAI() -> NBASECALC := EXECBLOCK(“EFDCON02”,.F.,.F.,{CALIASSFT}) FISA001.PRW – AJUSTECPRB() -> AREGPE210 := EXECBLOCK(“SPEDCP210”, .F., .F.,{ DDATADE, DDATAATE, ASM0,MV_PAR16 ,MV_PAR17 } ) FISA001.PRW – EXEFDCON03() -> CCONTA:= EXECBLOCK(“EFDCON03”,.F.,.F.,{ CALIAS, SE1->E1_NUM, SE1->E1_PREFIXO, SE1->E1_PARCELA, SE1->E1_TIPO, SE1->E1_CLIENTE, SE1->E1_LOJA, SE1->E1_NATUREZ, NRECO }) FISA001.PRW – EXEFDCON03() -> CCONTA:= EXECBLOCK(“EFDCON03”,.F.,.F.,{ CALIAS, SE2->E2_NUM, SE2->E2_PREFIXO, SE2->E2_PARCELA, SE2->E2_TIPO, SE2->E2_FORNECE, SE2->E2_LOJA, SE2->E2_NATUREZ, NRECO }) FISA001.PRW – EXEFDCON03() -> CCONTA:= EXECBLOCK(“EFDCON03”,.F.,.F.,{ CALIAS, SE5->E5_NUMERO, SE5->E5_PREFIXO, SE5->E5_PARCELA, SE5->E5_TIPO, IIF( !EMPTY( ALLTRIM( SE5->E5_CLIENTE ) ) , SE5->E5_CLIENTE , SE5->E5_FORNECE ) , SE5->E5_LOJA, SE5->E5_NATUREZ, NRECO }) FISA001.PRW – QRYCDGCAIXA() -> APEF500 := EXECBLOCK(“SPDF500C”, .F. , .F. , {CFROM,CWHERE}) FISA001.PRW – SPEDFSFT() -> APEF500 := EXECBLOCK(“SPDF500A”, .F. , .F. , {CFROM,CWHERE}) FISA007.PRW – PRCC600() -> AREGC600 := EXECBLOCK(“SPDPIS06”,.F.,.F.,{AREGC600,CALIASSFT}) FISA007.PRW – PROCC100() -> ASPEDC100 := EXECBLOCK(“SPDPIS05”, .F., .F., {“SFT”,ACMPANTSFT,0,CINDPAGTO,CFRETE}) FISA007.PRW – PROCC100() -> DDTENTRADA := EXECBLOCK(“SPDPIS08”, .F., .F., {“SFT”, CCHAVE}) FISA007.PRW – PROCC170() -> ACST := EXECBLOCK(“SPDFIS03”, .F., .F., {(CALIASSFT)->FT_FILIAL,; FISA007.PRW – PROCC170() -> CDESC := EXECBLOCK(“SPDFIS04”, .F., .F., {(CALIASSFT)->FT_FILIAL,; FISA007.PRW – PROCSERIE() -> CNOVSERIE := EXECBLOCK(“SPDFIS11”,.F.,.F.,{CSERIE,CMODELO}) FISA008.PRW – BLOCOF() -> ARETIMOB := EXECBLOCK(“SPDPCIMOB”,.F.,.F.,{{},DDATADE,DDATAATE}) FISA008.PRW – FSA0080150() -> AREGAUX := EXECBLOCK( “SPED0150” , .F. , .F. , { APAR } ) FISA008.PRW – FSA0080200() -> AREGAUX:= EXECBLOCK(“SPED0205”, .F., .F., {OBLOCO0:GETDTDE(),OBLOCO0:GETDTATE(),SUBSTR(CPROD,1,TAMSX3(“B1_COD”)[1])}) FISA008.PRW – FSA0080200() -> ATIPO := EXECBLOCK(“SPDFIS001”, .F., .F., {ATIPO,CALIASSB1}) FISA008.PRW – FSA0080500() -> CCONTA:=EXECBLOCK(“SPDPIS07”, .F., .F., {(CALIASSFT)->FT_FILIAL,; FISA008.PRW – FSA0080600() -> ARETCC := EXECBLOCK(“SPDRA170”, .F., .F., {CCUSTO,CALIASSFT}) FISA008.PRW – PRCCD5BLCC() -> APEIMPORT:=EXECBLOCK(“SPDIMP”,.F.,.F.,{ (CALIASSFT)->FT_NFISCAL,; FISA008.PRW – PROCCDT() -> APEC110:=EXECBLOCK(“SPDPISIC”,.F.,.F.,{(CALIASSFT)->FT_NFISCAL, (CALIASSFT)->FT_SERIE, (CALIASSFT)->FT_CLIEFOR, (CALIASSFT)->FT_LOJA, (CALIASSFT)->FT_ENTRADA,(CALIASSFT)->FT_TIPOMOV}) FISA008.PRW – PROCECF() -> APROD := EXECBLOCK(“SPEDPROD”, .F., .F., {CALIASSFT}) FISA008.PRW – PROCEFD() -> PROC1800(‘1001000000001′, OBLOCO1, EXECBLOCK(“SPDPC1800”,.F.,.F.,{{},MV_PAR01,MV_PAR02})) FISA008.PRW – PROCNF() -> APROD := EXECBLOCK(“SPEDPROD”, .F., .F., {CALIASSFT}) FISA008.PRW – PROCNF() -> ASPDFIS02 := EXECBLOCK(“SPDFIS02”, .F., .F., {CALIASSFT,(CALIASSFT)->FT_TIPOMOV}) FISA008.PRW – REG0140() -> CNOME:= EXECBLOCK(“SPDPC0140”, .F., .F., {“SM0”}) FISA008.PRW – REG1900() -> ARETIMOB := EXECBLOCK(“SPDPCIMOB”,.F.,.F.,{{},DDATADE,DDATAATE}) FISA008.PRW – REG1900() -> CWHERE := EXECBLOCK(“SPD1900A”, .F. , .F. , {CWHERE}) FISA008.PRW – REGD350 () -> ASPDPISTR := EXECBLOCK(“SPDPISTR”,.F.,.F.,{NRELACFIL,MV_PAR01,MV_PAR02}) FISA010.PRX – FIS010EXL() -> AALIASADIC := EXECBLOCK(“FS010ADEL”, .F., .F.) FISA010.PRX – FIS010EXL() -> LRETORNO := EXECBLOCK(“FS010EXL”,.F.,.F.) FISA010.PRX – FIS010POS() -> AALIASADIC := EXECBLOCK(“FS010ADEL”, .F., .F.) FISA010.PRX – FIS010POS() -> LRETORNO := EXECBLOCK(“FS010EXL”,.F.,.F.) FISA022.PRW – FISA022TRS() -> EXECBLOCK(“FISASQL01”,.F.,.F.,{CALIASSF3,CSERIEINI,CSERIEFIM,CNOTAINI,CNOTAFIN,CWHERE,DDATAINI,DDATAFIM}) FISA022.PRW – FISA022TRS() -> IF !EXECBLOCK(“FISVLNFSE”,.F.,.F.,AVALNFE) FISA022.PRW – FISMONITORX() -> EXECBLOCK(“F022ATUNF”,.F.,.F.,{CSERIE,CNUMERO,CPROTOCOLO,CRPS,CNOTA,AMSG,CURLNFSE}) FISA057.PRW – FIS57GERA() -> AXML := EXECBLOCK(“FISA057XML”,.F.,.F.,{CTIPO,ANOTAS[NX][3],ANOTAS[NX][4],ANOTAS[NX][5],ANOTAS[NX][6]}) FISA057.PRW – FIS57GERA() -> CNCAE:=EXECBLOCK(“FIS57NCA”,.F.,.F.,{CNCAE}) FISA057.PRW – MENUDEF() -> AROT := EXECBLOCK(“FIS57MENU”,.F.,.F.,{AROT}) FISA057.PRW – SINCBYFILE() -> EXECBLOCK(“FIS57NOT”,.F.,.F.,{1,CNUNNOTA,CSERNOTA,CTIPOCFE,CNUNDGI,CSERDGI,IIF(VAL(CTIPONOTA) < 500,’ENTRADA’,’SAIDA’)}) FISA057.PRW – SINCBYWS() -> CNCAE:=EXECBLOCK(“FIS57NCA”,.F.,.F.,{CNCAE}) FISA057.PRW – SINCBYWS() -> EXECBLOCK(“FIS57NOT”,.F.,.F.,{1,CNROCAE,CSERCAE,CTIPOCFE,CNCAE,CSCAE,QRY->TYPE_NF}) FISA057XML.PRW – GERAXML() -> CREFGLOB := EXECBLOCK(“FIS57XML”,.F.,.F.,{2,APROD,NY,ADEST,ACABNF,APED,ARETMNTIV,CTIPO,CSTRING}) FISA057XML.PRW – GERAXML() -> CSTRING+= EXECBLOCK(“FIS57XML”,.F.,.F.,{3,APROD,1,ADEST,ACABNF,APED,ARETMNTIV,CTIPO,CSTRING}) FISA085.PRW – F085EXC() -> LEXCLUI:=EXECBLOCK(“FIS85VLEX”,.F.,.F.) FISA085.PRW – F085GERA() -> APCAMPOS:=EXECBLOCK(“FIS85APC”,.F.,.F.,{APCAMPOS}) FISA085.PRW – F085GERA() -> EXECBLOCK(“FIS85ARR”,.F.,.F.) FISA085.PRW – FIS85GERA() -> AXML := EXECBLOCK(“FISA085XML”,.F.,.F.,{ANOTAS[NX][1],ANOTAS[NX][2],ANOTAS[NX][3],ANOTAS[NX][4],ANOTAS[NX][5],ANOTAS[NX][6]}) FISA085.PRW – MENUDEF() -> ARET := EXECBLOCK(“FIS85MNU”,.F.,.F.,ARET) FISA088.PRW – FS088DEDUCC() -> CFILUSR:=EXECBLOCK(“IETUFILP”,.F.,.F.,{CQRYAUX}) FISA231.PRW – FISA231CMP() -> AFSA231UND := EXECBLOCK(“FSA231UND”, .F., .F., {CALIAS}) FISA234.PRW – REGPROD() -> ATIPO := EXECBLOCK(“SPDFIS001”, .F., .F., {ATIPO,CALIASMOV}) FISA800.PRW – TIMBRECFDI() -> EXECBLOCK( “FIS800T2” , .F. , .F. , {CNAMECFDI , CDOC , CSERIE , CESPECIE , CCLIEPROV , CLOJA} ) FISA800.PRW – TIMBRECFDI() -> EXECBLOCK( CCFDINC , .F. , .F. , {CDOC , CSERIE , CESPECIE , CCLIEPROV , CLOJA} ) FISA800.PRW – TIMBRECFDI() -> EXECBLOCK( CCFDINF , .F. , .F. , {CDOC , CSERIE , CESPECIE , CCLIEPROV , CLOJA} ) FISA804.PRW – ACTCXP() -> LOCAL CTIPOS := EXECBLOCK(“FARGTIP”,.F.,.F.) FISA815.PRW – CREAXML() -> CNUMOP:=EXECBLOCK(“F087ANUMOP”,.F.,.F.,{APAGOS,NX}) FISA815.PRW – ENVRECMAIL() -> ABODYMAIL := EXECBLOCK(“F998MAIL”,.F.,.F.,AREC) FISA815.PRW – FISA815() -> EXECBLOCK(“F998IMPREC”,.F.,.F.,ARECIBOS) FISA815.PRW – FISA815() -> EXECBLOCK(“FISA815I”,.F.,.F.,ARECIBOS) FISA815.PRW – FISA815() -> EXECBLOCK(‘A087TIPTI’) FISA815.PRW – FISA815() -> LLOGIMP := EXECBLOCK(“FIS815PRG”,.F.,.F.,{}) FISA815.PRW – FISA815() -> LLOGTIM := EXECBLOCK(“FIS815LOG”,.F.,.F.,{}) FISR012.PRW – GERARQ() -> LRETNSER:=EXECBLOCK(“FISR12AS”,.F.,.F.,{CSERIE,TRB4->F1_TPDOC}) FISX001.PRW – GRVAJUSTE() -> ARET := EXECBLOCK(“EFDCON04”, .F., .F.,APARAM) FISX001.PRW – GRVTITULO() -> EXECBLOCK(“CPCPOADC”,.F.,.F.,{“SE2”}) FISXAPUR.PRX – AGETAPUR() -> AGETAPUR := EXECBLOCK(“MGETAPUR”,.F.,.F.,{“005”,AGETAPUR}) FISXAPUR.PRX – AGETAPUR() -> AGETAPUR := EXECBLOCK(“MGETAPUR”,.F.,.F.,{“010”,AGETAPUR}) FISXAPUR.PRX – AGETAPUR() -> AGETAPUR := EXECBLOCK(“MGETAPUR”,.F.,.F.,{“012”,AGETAPUR}) FISXAPUR.PRX – CHECKAPUR() -> LPROCAPRET := EXECBLOCK(“PROCAPUR”, .F., .F.,{NANO,NMES}) FISXAPUR.PRX – CKAPURCDH() -> LPROCAPRET := EXECBLOCK(“PROCAPUR”, .F., .F.,{NANO,NMES}) FISXAPUR.PRX – FISICMF6() -> ADADOSTIT := EXECBLOCK(“DADOSTIT”, .F., .F., {CORIGEM}) FISXAPUR.PRX – FISSTF6() -> ADADOSTIT := EXECBLOCK(“DADOSTIT”, .F., .F., {CORIGEM}) FISXAPUR.PRX – GIARSVAB() -> CTABELA := EXECBLOCK(“TABGIARS”,.F.,.F.,{“SFT”,”SF4″}) FISXAPUR.PRX – GRAVATIT() -> ATITICMST := EXECBLOCK(“TITICMST”, .F., .F., {CORIGEM,CTIPOIMP, LDIFAL}) FISXAPUR.PRX – GRAVATIT() -> EXECBLOCK(“CPAPUICMS”,.F.,.F.,{“SE2”}) FISXAPUR.PRX – GRAVATIT() -> LGRAVASF6 := EXECBLOCK(“INFOGNRE”, .F., .F.) FISXAPUR.PRX – LOADAPUR() -> ADEVOLUCOES := EXECBLOCK(“APURDEV”,.F.,.F.) FISXAPUR.PRX – LOADAPUR() -> CCFO := EXECBLOCK(“APURICM”,.F.,.F.,{CCFO}) FISXAPUR.PRX – SF6TUDOOK() -> LAPURF6OK := EXECBLOCK(“APURF6OK”,.F.,.F.) FISXAPUR.PRX – SHOWAPUR() -> AXNCM := EXECBLOCK(“JOINCM”,.F.,.F.) FISXAPUR.PRX – XAPGRVSF6() -> SF6->F6_COBREC := EXECBLOCK(“SPCOBREC”,.F.,.F.,{SF6->F6_TIPOIMP,SF6->F6_EST}) FISXAPUR.PRX – XAPINCSF6() -> IF EXECBLOCK(“APURF6CAN”,.F.,.F.) FISXAPURA.PRW – XAPURRF3() -> CCFO := EXECBLOCK(“APURICM”,.F.,.F.,{CCFO}) FISXATF.PRX – ATFPOPUTMP() -> EXECBLOCK(“F120CUST”,.F.,.F.,{CREG, CALIASTMP, CCODBEM, CITEM, CDESCR, DDATA, CDESCEXT, CTABORI, CNUMPRO, CINDPRO, NVALOR, CALIASSN1 }) FISXATF.PRX – ATFPOPUTMP() -> NVLREXCL := EXECBLOCK(“AF130EXC”,.F.,.F.,{CALIASTMP}) FISXATF.PRX – DEPRECTMP() -> NVLREXCL := EXECBLOCK(“AF120EXC”,.F.,.F.,{CARQATIV,CCODBEM,CITEM,DDATA}) FISXATF.PRX – _ATFREGF130() -> CTMPWHERE := EXECBLOCK(“ATFPR130”,.F.,.F.,{LQUERY,CWHERE}) FISXATF.PRX – _ATFREGF130() -> NVLRBCPIS :=NVLRBCCOF := EXECBLOCK(“DEPREATF”,.F.,.F.,{CALIASSN1,CALIASSN1, “F130”}) FISXATF.PRX – _DEPRECATIVO() -> NBASECRED += EXECBLOCK(“DEPREATF”,.F.,.F.,{CALIASTMP,CALIASTMP, “”})/NMESES FISXATF.PRX – _DEPRECATIVO() -> NBASECRED+= EXECBLOCK(“DEPREATF”,.F.,.F.,{“SN1″,”SN3″,””})/NMESES FISXATF.PRX – _DEPRECATIVO() -> NBASEITEM := EXECBLOCK(“DEPREATF”,.F.,.F.,{“SN1″,”SN3″,””})/NMESES FISXATF.PRX – _DEPRECATIVO() -> NBASEITEM:= EXECBLOCK(“DEPREATF”,.F.,.F.,{CALIASTMP,CALIASTMP, “”})/NMESES FISXATF.PRX – _DEPRECATIVO() -> NBASEITEM:= EXECBLOCK(“DEPREATF”,.F.,.F.,{CALIASTMP,CALIASTMP, “F120”}) FISXCOFINS.PRW – FISXCOFINS() -> AMACOFDIF := EXECBLOCK(“MACOFDIF”,.F.,.F.,{NITEM,NALIQCF2}) FISXCOFINS.PRW – FISXCOFINS() -> AMACOFVEIC := EXECBLOCK(“MACOFVEIC”,.F.,.F.,{NITEM,ANFITEM[NITEM][IT_BASECF2],ANFITEM[NITEM][IT_ALIQCF2],ANFITEM[NITEM][IT_VALCF2]}) FISXCOFINS.PRW – FISXCOFINS() -> EMPTY(ANFITEM[NITEM][IT_ALIQCF2]) .AND. ((APE[PE_MACSTPICO] .AND. !EXECBLOCK(“MACSTPICO”,.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$”04#06#73″) .OR. (!APE[PE_MACSTPICO] .AND. ANFITEM[NITEM][IT_TS][TS_CSTCOF] $”04#06#73″)) .AND. !LDC5602 FISXCOFINS.PRW – FISXCOFINS() -> IF ( APE[PE_MACSTPICO] .AND. EXECBLOCK(“MACSTPICO”,.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$”04#06#73″) .OR. ( !APE[PE_MACSTPICO] .AND. ANFITEM[NITEM][IT_TS][TS_CSTCOF] $”04#06#73″) FISXCOFINS.PRW – FISXCOFINS() -> IF ( APE[PE_MACSTPICO] .AND. EXECBLOCK(“MACSTPICO”,.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$”04#06#73″) .OR. (!APE[PE_MACSTPICO] .AND. (ANFITEM[NITEM][IT_TS][TS_CSTCOF] $”04#06#73″ .OR. ANFITEM[NITEM][IT_TS][TS_PSCFST]== “3”)) FISXCOFINS.PRW – FISXCOFINS() -> IF EMPTY( ANFITEM[NITEM][IT_ALIQCF2] ) .AND. ((APE[PE_MACSTPICO] .AND. !EXECBLOCK(“MACSTPICO”,.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$”04#06#73″) .OR. (!APE[PE_MACSTPICO] .AND. !ANFITEM[NITEM][IT_TS][TS_CSTCOF] $”04#06#73″)) .AND. !LDC5602 .AND. !LZFMALQZ FISXCOFINS.PRW – FISXCOFINS() -> LOCAL AMACCOFAPU := IIF( APE[PE_MACCOFAPU] .AND. !LTRIBCOF .AND. “CF2” $ CTIPO, EXECBLOCK(“MACCOFAPU”, .F., .F., {NITEM, ANFITEM[NITEM][IT_PRODUTO], ANFITEM[NITEM][IT_TES], ANFCAB[NF_CLIFOR], ANFCAB[NF_CODCLIFOR], ANFCAB[NF_LOJA], ANFCAB[NF_OPERNF]}), ARRAY(3)) FISXFUN.PRX – AMODNOT() -> CCODIGO:= EXECBLOCK(“MTMODNOT”,.F.,.F.,CESPECIE) FISXICMS.PRW – FISXBICMS() -> AMACALCICMS := EXECBLOCK(“MACALCICMS”,.F.,.F.,{ANFCAB[NF_OPERNF],NITEM,ANFITEM[NITEM][IT_BASEICM],ANFITEM[NITEM][IT_ALIQICM],ANFITEM[NITEM][IT_VALICM]}) FISXICMS.PRW – FISXBICMS() -> AMAICMVEIC := EXECBLOCK(“MAICMVEIC”,.F.,.F.,{NITEM,ANFITEM[NITEM][IT_BASEICM],ANFITEM[NITEM][IT_ALIQICM],ANFITEM[NITEM][IT_VALICM]}) FISXICMS.PRW – FISXBICMS() -> APAUTICMS := EXECBLOCK( “PAUTICMS” , .F. , .F. , { CALIASPROD , RIGHT(CALIASPROD,2)+”_INT_ICM” , NPAUTAICMS } ) FISXICMS.PRW – FISXVICMS() -> AMACALCICMS := EXECBLOCK(“MACALCICMS”,.F.,.F.,{ANFCAB[NF_OPERNF],NITEM,ANFITEM[NITEM][IT_BASEICM],ANFITEM[NITEM][IT_ALIQICM],ANFITEM[NITEM][IT_VALICM]}) FISXICMSST.PRW – FISVALSOL() -> AMASOLICMS := EXECBLOCK(“MACSOLICMS”,.F.,.F.,{ANFCAB[NF_OPERNF],NITEM,ANFITEM[NITEM][IT_BASESOL],ANFITEM[NITEM][IT_ALIQSOL],ANFITEM[NITEM][IT_VALSOL]}) FISXICMSST.PRW – FISXMARGEM() -> IF ( ANFITEM[NITEM][IT_PRD][SB_IVAAJU] == “1” .AND. (IIF(LRASTRO,LRASTROLOT := EXECBLOCK(“MAFISRASTRO”,.F.,.F.),ANFITEM[NITEM][IT_PRD][SB_RASTRO]==”S”)) ) FISXIPI.PRW – FISXIPI() -> AMAIPIVEIC := EXECBLOCK(“MAIPIVEIC”,.F.,.F.,{NITEM,ANFITEM[NITEM][IT_BASEIPI],ANFITEM[NITEM][IT_ALIQIPI],ANFITEM[NITEM][IT_VALIPI]}) FISXIR.PRW – XFISIRFPF() -> CADDWHERE := EXECBLOCK(“MACALIRRF”,.F.,.F., {CWHERE} ) FISXPIS.PRW – FISXPIS() -> AMAPISDIF := EXECBLOCK(“MAPISDIF”,.F.,.F.,{NITEM,NALIQPS2}) FISXPIS.PRW – FISXPIS() -> AMAPISVEIC := EXECBLOCK(“MAPISVEIC”,.F.,.F.,{NITEM,ANFITEM[NITEM][IT_BASEPS2],ANFITEM[NITEM][IT_ALIQPS2],ANFITEM[NITEM][IT_VALPS2]}) FISXPIS.PRW – FISXPIS() -> EMPTY(ANFITEM[NITEM][IT_ALIQPS2]) .AND. ((APE[PE_MACSTPICO] .AND. !EXECBLOCK(“MACSTPICO”,.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$”04#06#73″) .OR. (!APE[PE_MACSTPICO] .AND. ANFITEM[NITEM][IT_TS][TS_CSTPIS] $”04#06#73″)) .AND. !LDC5602 FISXPIS.PRW – FISXPIS() -> IF ( APE[PE_MACSTPICO] .AND. EXECBLOCK(“MACSTPICO”,.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$”04#06#73″) .OR. ( !APE[PE_MACSTPICO] .AND. ANFITEM[NITEM][IT_TS][TS_CSTPIS] $”04#06#73″) FISXPIS.PRW – FISXPIS() -> IF ( APE[PE_MACSTPICO] .AND. EXECBLOCK(“MACSTPICO”,.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$”04#06#73″) .OR. (!APE[PE_MACSTPICO] .AND. (ANFITEM[NITEM][IT_TS][TS_CSTPIS] $”04#06#73″ .OR. ANFITEM[NITEM][IT_TS][TS_PSCFST]== “3”)) FISXPIS.PRW – FISXPIS() -> IF EMPTY( ANFITEM[NITEM][IT_ALIQPS2] ) .AND. ((APE[PE_MACSTPICO] .AND. !EXECBLOCK(“MACSTPICO”,.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})[2]$”04#06#73″) .OR. (!APE[PE_MACSTPICO] .AND. !ANFITEM[NITEM][IT_TS][TS_CSTPIS] $”04#06#73″)) .AND. !LDC5602 .AND. !LZFMALQZ FISXPIS.PRW – FISXPIS() -> LOCAL AMACPISAPU := IIF( APE[PE_MACPISAPU] .AND. !LTRIBPIS .AND. “PS2” $ CTIPO , EXECBLOCK(“MACPISAPU”, .F., .F., {NITEM, ANFITEM[NITEM][IT_PRODUTO], ANFITEM[NITEM][IT_TES], ANFCAB[NF_CLIFOR], ANFCAB[NF_CODCLIFOR], ANFCAB[NF_LOJA], ANFCAB[NF_OPERNF]}), ARRAY(3)) FRTA010A.PRW – APOS O FECHAMENTO DO CUPOM FISCAL³() -> EXECBLOCK(“FRTENTREG”, .F., .F., { ACRDCLIENTE, CCODDEP, CNOMEDEP, APGTOS }) FRTA010A.PRW – FRT010PGPE() -> XRET := EXECBLOCK(“FRTFPAG”, .F., .F., {CFORMA, ; FRTA010A.PRW – FRTA010() -> OCODPROD:BLOSTFOCUS := {|| IF(!_LOK .AND. !EMPTY(CCODPROD),(_LOK:=.T.,AKEYAUX:=FRTSETKEY(),IF(LUSALEITOR,LEITORFOCO(NHDLLEITOR,.F.),),FRTPRODOK(,,,.T.),IF(LFRTGETPR,EXECBLOCK(“FRTGETPR”,.F.,.F.,{CCODPROD}),),FRTSETKEY(AKEYAUX),_LOK:=.F.),)} FRTA010A.PRW – FRTA010() -> {|| IF(EXISTBLOCK(“FRTCTRLT”),EXECBLOCK(“FRTCTRLT”,.F.,.F.),)},; FRTA010A.PRW – FRTA010() -> {|| IF(EXISTBLOCK(“FRTCTRLU”),EXECBLOCK(“FRTCTRLU”,.F.,.F.),)},; FRTA010A.PRW – FRTA010() -> {|| IF(EXISTBLOCK(“FRTCTRLV”),EXECBLOCK(“FRTCTRLV”,.F.,.F.),)},; FRTA010A.PRW – FRTA010() -> {|| IF(EXISTBLOCK(“FRTCTRLW”),EXECBLOCK(“FRTCTRLW”,.F.,.F.),)},; FRTA010A.PRW – FRTABRECX() -> CSTRING := EXECBLOCK(“FRTABRCX”, .F., .F., {CSUPERVISOR}) FRTA010A.PRW – FRTALTCLI() -> @ 13, 15 MSGET OCLIFRT VAR CCLIFRT SIZE 40, 10 OF ODLGALTCLI F3 “FCL” PIXEL VALID ( EXISTCPO(“SA1”,CCLIFRT+CLOJFRT), IIF( EXISTBLOCK( “FRT010BL” ), EXECBLOCK( “FRT010BL”, .F., .F., { CCLIFRT + CLOJFRT } ), NIL ) ) FRTA010A.PRW – FRTALTCLI() -> @ 13, 60 MSGET OLOJFRT VAR CLOJFRT SIZE 15, 10 OF ODLGALTCLI PIXELVALID ( EXISTCPO(“SA1”,CCLIFRT+CLOJFRT), IIF( EXISTBLOCK( “FRT010BL” ), EXECBLOCK( “FRT010BL”, .F., .F., { CCLIFRT + CLOJFRT } ), NIL ) ) FRTA010A.PRW – FRTALTCLI() -> EXECBLOCK(“FRT010CL”) FRTA010A.PRW – FRTCANCCUP() -> EXECBLOCK(“FRTCANCELA”,.F.,.F.,{2,CSUPERVISOR}) FRTA010A.PRW – FRTCANCCUP() -> XRET := EXECBLOCK(“FRTCANCCF”,.F.,.F.,{CNUMCUP}) FRTA010A.PRW – FRTCANCIT() -> AAUX := EXECBLOCK(“FRTCODB2”,.F.,.F.,AAUX) FRTA010A.PRW – FRTCANCIT() -> EXECBLOCK(“FRTCANCELA”,.F.,.F.,{1,CSUPERVISOR}) FRTA010A.PRW – FRTCANCIT() -> NI := EXECBLOCK(“FRTCODBR”,.F.,.F.,{AITENS}) FRTA010A.PRW – FRTCONDNEG() -> ARETNEG := EXECBLOCK(“L10RETNG”,.F.,.F.,{ARETNEG}) FRTA010A.PRW – FRTCONDNEG() -> EXECBLOCK(“L10NEGOC”,.F.,.F.) FRTA010A.PRW – FRTCONDPAG() -> CCONDPAG := EXECBLOCK( “FRTCONDPAG”, .F., .F. ) FRTA010A.PRW – FRTCONDPAG() -> EXECBLOCK(“FRTPGTODP”, .F., .F., { CTMPCONDPAG }) FRTA010A.PRW – FRTDESCTOT() -> IF ! EXECBLOCK(“FRTDESCTOT”,.F.,.F.) FRTA010A.PRW – FRTENCERRA() -> AAUX := EXECBLOCK(“FORMSTRC”,.F.,.F.) FRTA010A.PRW – FRTENCERRA() -> ARETPE := EXECBLOCK(“FRTFINVEN”, .F., .F., {NTOTDEDICMS, AITENS, CCLIENTE, CLOJACLI,; FRTA010A.PRW – FRTENCERRA() -> ASL4 := EXECBLOCK(“FRTGRSL4”,.F.,.F.,{ASL4,NI}) FRTA010A.PRW – FRTFIMVEND() -> ASETKEY := { {|| IF(EXISTBLOCK(“FRTF4ENC”),EXECBLOCK(‘FRTF4ENC ‘,.F.,.F.,{AFORMPAG}),)},; FRTA010A.PRW – FRTFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK(“FRTALTPG”,.F.,.F.,{,,CHR(NZ)}),.T.)) FRTA010A.PRW – FRTFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK(“FRTALTPG”,.F.,.F.,{AFORMPAG[LEN(AFORMPAG)-1][1], AFORMPAG[LEN(AFORMPAG)-1][2],}),.T.)) FRTA010A.PRW – FRTFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK(“FRTALTPG”,.F.,.F.,{AFORMPAG[LEN(AFORMPAG)][1], AFORMPAG[LEN(AFORMPAG)][2],}),.T.)) FRTA010A.PRW – FRTFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK(“FRTALTPG”,.F.,.F.,{AFORMPAG[NI][1],AFORMPAG[NI][2],}),.T.)) FRTA010A.PRW – FRTFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK(“FRTALTPG”,.F.,.F.,{AFORMPAG[NPOSSIMB][1], AFORMPAG[NPOSSIMB][2],}),.T.)) FRTA010A.PRW – FRTFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK(“FRTALTPG”,.F.,.F.,{EVAL(BDSCMOEDA), EVAL(BSMBMOEDA),}),.T.)) FRTA010A.PRW – FRTFORMPAG() -> ARETFORMPAG := EXECBLOCK( “FRTFORMPAG” , .F., .F., {AFORMPAG, CDESC, CFORMA, CGRUPO, NVLRTOTAL, NVLRDESCTOT} ) FRTA010A.PRW – FRTFORMPAG() -> SL1->(FIELDPOS(“L1_TROCO1”))>0),.T.,IF(EXISTBLOCK(“FRTVMAX”),EXECBLOCK(“FRTVMAX”,.F.,.F.,{ CFORMA ,CDESC ,NVALOR ,NVALMAX }),NVALOR <= NVALMAX))),.T.)), ; FRTA010A.PRW – FRTFUNCOES() -> AFUNCOES := EXECBLOCK(“FRTFUNCOES”,.F.,.F.,AFUNCOES) FRTA010A.PRW – FRTFUNCOES() -> EXECBLOCK(“FRTFUNCSAI”,.F.,.F.) FRTA010A.PRW – FRTHORA() -> CDOC := EXECBLOCK(“FRTNUMCF”,.F.,.F.,APARAM) FRTA010A.PRW – FRTPRODOK() -> AAUX := EXECBLOCK( “FRTCODB2”, .F., .F., AAUX ) FRTA010A.PRW – FRTPRODOK() -> AAUX := EXECBLOCK(“FRTCODB3”,.F.,.F.,AAUX) FRTA010A.PRW – FRTPRODOK() -> AAUX := EXECBLOCK(“FRTQUANT”,.F.,.F.,{NTMPQUANT,NVLRUNIT,NQUANT,CBCONTA,NVLRTOTAL,CCODPROINI}) FRTA010A.PRW – FRTPRODOK() -> AFRTCLICHE := EXECBLOCK(“FRTCLICHE”, .F., .F.) FRTA010A.PRW – FRTPRODOK() -> AFRTKIT := EXECBLOCK(“FRTKIT”,.F.,.F.,{CCODPROD,NTMPQUANT}) FRTA010A.PRW – FRTPRODOK() -> ARET := EXECBLOCK(“FRTDESCIT”,.F.,.F.,{CCODPROD, NVLRPERCIT, NVLRDESCIT, NVLRITEM}) FRTA010A.PRW – FRTPRODOK() -> ATMPPROD := EXECBLOCK(“FRTPRODOK”,.F.,.F.,{CCODPROD, NQUANT}) FRTA010A.PRW – FRTPRODOK() -> CFRTCODB := EXECBLOCK(“FRTCODB1”,.F.,.F.,{CCODPROD}) FRTA010A.PRW – FRTPRODOK() -> LSTATUSIMP13 := EXECBLOCK(“FRTECF13”,.F.,.F.,{CCODPROD, NVLRUNIT, NQUANT}) FRTA010A.PRW – FRTRECEB() -> AFRTCLICHE := EXECBLOCK(“FRTCLICHE”, .F., .F.) FRTA010A.PRW – FRTRESUME() -> AAUX := EXECBLOCK(“FRTCODB2”,.F.,.F.,AAUX) FRTA010A.PRW – FRTRESUME() -> AAUX := EXECBLOCK(“FRTCODB3”,.F.,.F.,AAUX) FRTA010A.PRW – FRTRESUME() -> AFRTCLICHE := EXECBLOCK(“FRTCLICHE”, .F., .F.) FRTA010A.PRW – FRTSTART() -> EXECBLOCK(“FRTABRECF”,.F.,.F.,{NHDLECF,CIMPRESSORA,CPORTA}) FRTA010C.PRW – FRTCLIENTE() -> ACAMPOSINC := EXECBLOCK(“FRTCPSA1”, .F., .F., ACAMPOSINC) FRTA010C.PRW – FRTCLIENTE() -> ASA1 := EXECBLOCK(“FRTGRSA1”, .F., .F., ASA1) FRTA010C.PRW – FRTRPCORC() -> LUSASL1 := EXECBLOCK( “FRTL1RPC”, .F., .F.,{“SL1”} ) FRTA020.PRW – FRTGRAVASZ() -> AFILES := EXECBLOCK(“FRTGRVSZ”,.F.,.F.,{OSERVER}) FRTA040.PRW – FRTARQUIVOS() -> AFILES := EXECBLOCK(“FRTCARGA”,.F.,.F.,{AFILES}) FRTA040.PRW – GERACARGA() -> LREGAT := EXECBLOCK(“FRTREGAT”,.F.,.F., {CARQUIVO}) FRTA050.PRW – FRT050CONF() -> EXECBLOCK(“FRT050ST”,.F.,.F.,{NCHECK,CCAIXASUP,NDINHEIR,NCHEQUES,NCARTAO,NVLRDEBI,NFINANC,NCONVENI,NVALES,NOUTROS}) FRTA050.PRW – FRT050CONF() -> LVLDPE := EXECBLOCK(“FRT050SB”,.F.,.F.,{NCHECK,CCAIXASUP,NDINHEIR,NCHEQUES,NCARTAO,NVLRDEBI,NFINANC,NCONVENI,NVALES,NOUTROS,CCODORIGEM,CCODDESTIN}) FRTA050.PRW – FRT050GRV () -> EXECBLOCK(“LJ7050GRV”,.F.,.F.,{NRECNOSE5}) FRTA271.PRW – FRTRESUME() -> EXECBLOCK(“FRTCANCELA”,.F.,.F.,{1,CSUPERVISOR}) FRTA271A.PRW – FR271AABRECX() -> CSTRING := EXECBLOCK(“FRTABRCX”, .F., .F., {CSUPERVISOR}) FRTA271A.PRW – FR271APRODOK() -> AAUX := EXECBLOCK( “FRTCODB2”, .F., .F., AAUX ) FRTA271A.PRW – FR271APRODOK() -> AAUX := EXECBLOCK(“FRTCODB3”,.F.,.F.,AAUX) FRTA271A.PRW – FR271APRODOK() -> AAUX := EXECBLOCK(“FRTQUANT”,.F.,.F.,{NTMPQUANT,NVLRUNIT,NQUANT,CBCONTA,NVLRTOTAL,CCODPROD,CCODPROINI}) FRTA271A.PRW – FR271APRODOK() -> AFRTCLICHE := EXECBLOCK(“FRTCLICHE”, .F., .F., {CVENDLOJA}) FRTA271A.PRW – FR271APRODOK() -> AFRTKIT := EXECBLOCK(“FRTKIT”,.F.,.F.,{CCODPROD,NTMPQUANT}) FRTA271A.PRW – FR271APRODOK() -> ARET := EXECBLOCK(“FRTDESCIT”,.F.,.F.,{ CCODPROD,NVLRPERCIT,NVLRDESCIT,NVLRITEM,; FRTA271A.PRW – FR271APRODOK() -> CFRTCODB := EXECBLOCK(“FRTCODB1”,.F.,.F.,{CCODPROD}) FRTA271A.PRW – FR271APRODOK() -> LSTATUSIMP13 := EXECBLOCK(“FRTECF13”,.F.,.F.,{CCODPROD, NVLRUNIT, NQUANT}) FRTA271C.PRW – FR271CCLIENTE() -> ACAMPOSINC := EXECBLOCK(“FRTCPSA1”, .F., .F., ACAMPOSINC) FRTA271C.PRW – FR271CCLIENTE() -> ASA1 := EXECBLOCK(“FRTGRSA1”, .F., .F., ASA1) FRTA271C.PRW – FR271CMYCALL() -> XRET := EXECBLOCK( “FRTCALLRPC”, .F.,.F.,{CFUNCAO}) FRTA271C.PRW – FR271CRPCORC() -> LUSASL1 := EXECBLOCK( “FRTL1RPC”, .F., .F.,{“SL1”} ) FRTA271C.PRW – FR271CRPCORC() -> LUSASL1 := EXECBLOCK( “FRTL1RPC”, .F.,.F.,{CSL1TEMP,CVENDLOJA} ) FRTA271D.PRW – FR271CSAN() -> AFRT272BASS := EXECBLOCK(“FRT272BASS”, .F., .F.) FRTA271D.PRW – FR271D050CONF() -> EXECBLOCK(“FRT050ST”,.F.,.F.,{NCHECK,CCAIXASUP,NDINHEIR,NCHEQUES,NCARTAO,NVLRDEBI,NFINANC,NCONVENI,NVALES,NOUTROS,NVLRPAGDIG,NVLRPAGPIX}) FRTA271D.PRW – FR271D050CONF() -> EXECBLOCK(CROTCOMPR,.F.,.F.,{NCHECK,CCODORIGEM,CCODDESTIN,NDINHEIR,NCHEQUES,NCARTAO,NVLRDEBI,NFINANC,NCONVENI,NVALES,NOUTROS,ASIMBS,NVLRPAGDIG,NVLRPAGPIX}) FRTA271D.PRW – FR271D050CONF() -> LVLDPE := EXECBLOCK(“FRT050SB”,.F.,.F.,{NCHECK,CCAIXASUP,NDINHEIR,NCHEQUES,NCARTAO,NVLRDEBI,NFINANC,NCONVENI,NVALES,NOUTROS,CCODORIGEM,CCODDESTIN,NVLRPAGDIG,NVLRPAGPIX}) FRTA271D.PRW – FR271D050GRV () -> EXECBLOCK(“FRTDGRE5”,.F.,.F.,{ SE5->(RECNO()) }) FRTA271E.PRW – FR271EALTCLI() -> @ 13, 15 MSGET OCLIFRT VAR CCLIFRT SIZE 40, 10 OF ODLGALTCLI F3 “FCL” PIXEL VALID ( EXISTCPO(“SA1”,CCLIFRT+CLOJFRT), IIF( LFRT010BL, EXECBLOCK( “FRT010BL”, .F., .F., { CCLIFRT + CLOJFRT } ), NIL ) ) FRTA271E.PRW – FR271EALTCLI() -> @ 13, 60 MSGET OLOJFRT VAR CLOJFRT SIZE 15, 10 OF ODLGALTCLI PIXELVALID ( EXISTCPO(“SA1”,CCLIFRT+CLOJFRT), IIF( LFRT010BL, EXECBLOCK( “FRT010BL”, .F., .F., { CCLIFRT + CLOJFRT } ), NIL ) ) FRTA271E.PRW – FR271EALTCLI() -> ACTION IIF((IIF( LFRT010BL, EXECBLOCK( “FRT010BL”, .F., .F., { CCLIFRT + CLOJFRT } ), .T. ),EXISTCPO(“SA1”,CCLIFRT+CLOJFRT)), ; FRTA271E.PRW – FR271EALTCLI() -> EXECBLOCK(“FRT010CL”) FRTA271E.PRW – FR271EFIMVEND() -> ADESCTOT := EXECBLOCK(“FRTDESCVEN”) FRTA271E.PRW – FR271EFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK(“FRTALTPG”,.F.,.F.,{“”,CHR(NZ),LRECEBE}),.T.)) FRTA271E.PRW – FR271EFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK(“FRTALTPG”,.F.,.F.,{AFORMPAG[LEN(AFORMPAG)-1][1], AFORMPAG[LEN(AFORMPAG)-1][2],LRECEBE}),.T.)) FRTA271E.PRW – FR271EFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK(“FRTALTPG”,.F.,.F.,{AFORMPAG[LEN(AFORMPAG)][1], AFORMPAG[LEN(AFORMPAG)][2],LRECEBE}),.T.) ) FRTA271E.PRW – FR271EFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK(“FRTALTPG”,.F.,.F.,{AFORMPAG[NI][1],AFORMPAG[NI][2],LRECEBE}),.T.)) FRTA271E.PRW – FR271EFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK(“FRTALTPG”,.F.,.F.,{AFORMPAG[NPOSSIMB][1], AFORMPAG[NPOSSIMB][2],LRECEBE}),.T.)) FRTA271E.PRW – FR271EFIMVEND() -> IIF(LFRTALTPG,EXECBLOCK(“FRTALTPG”,.F.,.F.,{EVAL(BDSCMOEDA), EVAL(BSMBMOEDA),LRECEBE}),.T.)) FRTA271F.PRW – FR271FCANCCUP() -> EXECBLOCK(“FRTCANCELA”,.F.,.F.,{2,CSUPERVISOR,NIL,UPRODTPL}) FRTA271F.PRW – FR271FCANCCUP() -> XRET := EXECBLOCK(“FRTCANCCF”,.F.,.F.,{CNUMCUP}) FRTA271F.PRW – FR271FDESCTOT() -> IF ! EXECBLOCK(“FRTDESCTOT”,.F.,.F.) FRTA271F.PRW – FR271FFORMPAG() -> ARETFORMPAG := EXECBLOCK( “FRTFORMPAG” , .F., .F., {AFORMPAG, CDESC, CFORMA, CGRUPO, NVLRTOTAL, NVLRDESCTOT,APGTOS} ) FRTA271F.PRW – FR271FFUNCOES() -> EXECBLOCK(“FRTFUNCSAI”,.F.,.F.) FRTA271F.PRW – FR271FREDUCAO() -> EXECBLOCK(“LOJA160”,.F.,.F.) FRTA271G.PRW – := “ATTISMEMBEROF”() -> EXECBLOCK(“LJ7079”, .F.,.F., {NREFADMS,APGTOS}) FRTA271G.PRW – APÓS O FECHAMENTO DO CUPOM FISCAL/() -> EXECBLOCK(“FRTENTREG”, .F., .F., { ACRDCLIENTE, CCODDEP , CNOMEDEP , APGTOS,; FRTA271G.PRW – FR271GENCERRA() -> AAUX := EXECBLOCK(“FORMSTRC”,.F.,.F.) FRTA271G.PRW – FR271GENCERRA() -> AFRTCLICHE := EXECBLOCK(“FRTCLICHE”, .F., .F.) FRTA271G.PRW – FR271GENCERRA() -> ASL4 := EXECBLOCK(“FRTGRSL4”,.F.,.F.,{ASL4,NI}) FRTA271G.PRW – FR271GENCERRA() -> CMSGNCM := SUBSTR( EXECBLOCK(“LJ7078”,.F.,.F.,{NTOTVLRNCM,NTOTIMPNCM,NTOTIMPFED,NTOTIMPEST,NTOTIMPMUN}),1,56) FRTA271G.PRW – FR271GENCERRA() -> LGERTROCO := EXECBLOCK(“FRTTROCO”, .F.,.F., {LDINHEIRO, NVALES, APGTOS}) FRTA271G.PRW – FR271GVLDOKVP() -> LRET := EXECBLOCK( “LJ7094”,.F.,.F.,{ACOLS,NVALOR,NSOMAVP} ) FRTA271H.PRW – FR271HCONDPAG() -> XRET := EXECBLOCK(“FRTPGTODP”, .F., .F., { CTMPCONDPAG, APGTOS }) FRTA271H.PRW – FR271HNEGCOND () -> ARETNEG := EXECBLOCK(“L10RETNG”,.F.,.F.,{ARETNEG}) FRTA271H.PRW – FR271HNEGCOND () -> EXECBLOCK(“L10NEGOC”,.F.,.F.) FRTA271I.PRW – FR271IEFCANC() -> AAUX := EXECBLOCK(“FRTCODB2”,.F.,.F.,AAUX) FRTA271I.PRW – FR271IEFCANC() -> EXECBLOCK(“FRTCANCELA”,.F.,.F.,{1,CSUPERVISOR,AITENS[NI][AIT_ITEM],UPRODTPL}) FRTA271I.PRW – FR271IRCEL() -> AFRTCLICHE := EXECBLOCK(“FRTCLICHE”, .F., .F.) FRTA272A.PRW – “FRT010CL”, QUALQUER TIPO DE VALOR. O TRATAMENTO DA VARIÁVEL DEVERÁ SER REALIZADO ³() -> IF(LFRTGETPR,EXECBLOCK(“FRTGETPR”,.F.,.F.,{CCODPROD}),),FRTSETKEY(AKEYAUX),_LOK:=.F.),)} FRTA272A.PRW – “FRT010CL”, QUALQUER TIPO DE VALOR. O TRATAMENTO DA VARIÁVEL DEVERÁ SER REALIZADO ³() -> {|| IF(EXISTBLOCK(“FRTCTRLT”),EXECBLOCK(“FRTCTRLT”,.F.,.F.,{LOCIOSO, CCLIENTE, CLOJACLI}),)},; FRTA272A.PRW – “FRT010CL”, QUALQUER TIPO DE VALOR. O TRATAMENTO DA VARIÁVEL DEVERÁ SER REALIZADO ³() -> {|| IF(EXISTBLOCK(“FRTCTRLU”),EXECBLOCK(“FRTCTRLU”,.F.,.F.,{LOCIOSO, CCLIENTE, CLOJACLI}),)},; FRTA272A.PRW – “FRT010CL”, QUALQUER TIPO DE VALOR. O TRATAMENTO DA VARIÁVEL DEVERÁ SER REALIZADO ³() -> {|| IF(EXISTBLOCK(“FRTCTRLV”),EXECBLOCK(“FRTCTRLV”,.F.,.F.,{LOCIOSO, CCLIENTE, CLOJACLI}),)},; FRTA272A.PRW – “FRT010CL”, QUALQUER TIPO DE VALOR. O TRATAMENTO DA VARIÁVEL DEVERÁ SER REALIZADO ³() -> {|| IF(EXISTBLOCK(“FRTCTRLW”),EXECBLOCK(“FRTCTRLW”,.F.,.F.,{LOCIOSO, CCLIENTE, CLOJACLI}),)},; FRTA272A.PRW – FR272AALTPGSI() -> XRET := EXECBLOCK( “FRT272ATP”, .F., .F.,{NLINHA ,APGTOS ,APGTOSSINT ,NVLRTOTAL} ) FRTA272A.PRW – FRTX272DESC() -> IF LFRTDESCITT .AND. !EXECBLOCK(“FRTITDESC”) FRTA272A.PRW – FRTX272T02() -> NI := EXECBLOCK(“FRTCODBR”,.F.,.F.,{AITENS}) FRTA272A.PRW – FRTX272T03() -> IF(EXISTBLOCK(“FRTVMAX”),EXECBLOCK(“FRTVMAX”,.F.,.F.,{ CFORMA ,CDESC ,NVALOR ,NVALMAX }),NVALOR <= NVALMAX)),.T.)), ; FRTA272A.PRW – FRTX272T03() -> OKEYB:SETENTER({|| IF(IF(EXISTBLOCK(“FRTFPAG”),EXECBLOCK(“FRTFPAG”,.F.,.F.,{CFORMA,CDESC,DDATA,NNUMPARC,NTXJUROS,NINTERVALO,NVALOR}),.T.),(NOPC:=1, OFORMPAG:END()),)}) FRTA273A.PRW – DISPARAPRODUTO() -> IF(LFRTGETPR,EXECBLOCK(“FRTGETPR”,.F.,.F.,{CCODPROD}),),; FRTA273A.PRW – FRT273TS() -> IF(LFRTGETPR,EXECBLOCK(“FRTGETPR”,.F.,.F.,{CCODPROD}),),FRTSETKEY(AKEYAUX),_LOK:=.F.),)} FRTA273A.PRW – FRT273TS() -> OOPGER:ADD(“O”, BTNITEM():NEW( “012”, SUPERGETMV(“MV_TITBOT”,.F.,”BOTAO”), { || EXECBLOCK( “FRTFUNCCLI”, .F., .F. ) } ) ) FRTA273A.PRW – FRT273TS() -> OOPVEN:ADD(“O”, BTNITEM():NEW( “001”, SUPERGETMV(“MV_TITBOT”,.F.,”BOTAO”), { || EXECBLOCK( “FRTFUNCCLI”, .F., .F. ) } ) ) FRTA273A.PRW – FRT273TS() -> { || EXECBLOCK( “FRTFUNCCLI”, .F., .F. ) },; FRTA273A.PRW – FRT273TS() -> {|| IF(EXISTBLOCK(“FRTCTRLT”),EXECBLOCK(“FRTCTRLT”,.F.,.F.),)},; FRTA273A.PRW – FRT273TS() -> {|| IF(EXISTBLOCK(“FRTCTRLU”),EXECBLOCK(“FRTCTRLU”,.F.,.F.,{LOCIOSO}),)},; FRTA273A.PRW – FRT273TS() -> {|| IF(EXISTBLOCK(“FRTCTRLV”),EXECBLOCK(“FRTCTRLV”,.F.,.F.,{LOCIOSO}),)},; FRTA273A.PRW – FRT273TS() -> {|| IF(EXISTBLOCK(“FRTCTRLW”),EXECBLOCK(“FRTCTRLW”,.F.,.F.),)},; FRTA273A.PRW – FRTVBUT() -> IF(LFRTGETPR,EXECBLOCK(“FRTGETPR”,.F.,.F.,{CCODPROD}),),; GCPA009.PRW – GCPA009() -> NGCP9QTD := EXECBLOCK(‘GCP9QTD’,.F.,.F.,{CALIASQRY}) GCPA100.PRW – MENUDEF() -> IF VALTYPE(AGCP100MN := EXECBLOCK( “GCP100MN”, .F., .F., {AROTINA}) ) == “A” GCPA200.PRW – MENUDEF() -> AUSERBUTT := EXECBLOCK( ‘GCPA200’, .F., .F., { NIL , “MENUDEF” , ‘GCPA200’ } ) GCPXFUN.PRW – GCPSELSC() -> CFILTRO := EXECBLOCK(“GCPXSCFIL”,.F.,.F.) GCPXFUN.PRW – GCPXATA() -> AGCP9QRY := EXECBLOCK(‘GCP9QRY’,.F.,.F.) GCPXFUN.PRW – GCPXCOMCEN() -> AVETTST := EXECBLOCK(“GCP2HEAD”,.F.,.F. ,{ARQTRB->C1_NUMPR,AVETOR}) GCPXFUN.PRW – GCPXEDITAL() -> AGCP9QRY := EXECBLOCK(‘GCP9QRY’,.F.,.F.) GCPXFUN.PRW – GCPXGERCT() -> EXECBLOCK(“GCP13GRV”,.F.,.F.,{ALOGREG}) GCPXFUN.PRW – GCPXGERPED() -> ARET := EXECBLOCK(“GCP011PED”,.F.,.F.,{ACAB,AITENS,ARATCTB}) GCPXFUN.PRW – GCPXPEDCV() -> NGCP9QTD := EXECBLOCK(‘GCP9QTD’,.F.,.F.,{CALIASTMP}) GEMA102.PRW – GEMA102(CALIAS,N() -> EXECBLOCK(“GEM102RE”,.F.,.F.,{M->LIZ_NCONTR, APONTOENTRA}) GEMA120.PRW – A120GRAVA() -> ARETCPOS := EXECBLOCK(“GM120DISTR”, .F.,.F.,{ACAMPOS}) GEMA120.PRW – A120GRAVA() -> EXECBLOCK(“GM120LJD”, .F.,.F.) GEMA120.PRW – A120VLDFORN() -> LEXISTE := EXECBLOCK(“GM120SA2”, .F., .F. ) GEMA120.PRW – GMA120FORNEC( CCODFOR() -> LEXISTE := EXECBLOCK(“GM120SA2”, .F., .F. ) GEMA120.PRW – GMDISTRAPROV(CCONTRAT() -> LRETORNO := EXECBLOCK(“GM120APROV”, .F.,.F.,{CCONTRATO}) GEMA143.PRW – GEMA143INC() -> CCODNEW := EXECBLOCK( “GEMA143INC”, .F., .F., APARAM ) GEMA160.PRW – A160GRAVA() -> EXECBLOCK(“GEMA160GRV”,.F.,.F.) GEMXFIN.PRW – GMGERPRITIT( CSISTEM() -> ATITULOS := EXECBLOCK(“GMFIN02”,.F.,.F.,{CSISTEMA ,NTAXA ,NINDCM ,NINTERVALO ,NQTDTITULOS ,NCAPITAL }) GEMXFUN.PRW – AUXCMCONTR() -> ACUSTOMCM := EXECBLOCK(“GMCALCCM”,.F.,.F.,{NVLRTITULO,NAMORBASE,NDECINDCM}) GEMXFUN.PRW – AUXGEMXIPCON() -> EXECBLOCK(“GEMVCON”, .F., .F. ) GEMXFUN.PRW – GEMDLGCON()() -> EXECBLOCK(“GEMCMCONTR”,.F., .F., { SF2->(RECNO()), LIT->(RECNO()) } ) GEMXFUN.PRW – GMBLQCM() -> LRET := EXECBLOCK(“PEBLQCM”,.F.,.F.) GEOXFUN.PRX – GEOMAPROUTE() -> AUSBUTTONS := ACLONE( EXECBLOCK( “GEOMRBUT”, .F., .F. ) ) GFEA032.PRW – CANCREGENTR() -> EXECBLOCK( “GFEA0515”,.F.,.F.,{2}) GFEA032.PRW – GFE32REGET() -> EXECBLOCK( “GFEA0513”,.F.,.F.,{CDTOCOR,CHROCOR,3}) GFEA032.PRW – GFEA032APR() -> LRET := EXECBLOCK(“GFEA032E”,.F.,.F.,) GFEA032.PRW – GFEA032CA() -> NREENTREGA := EXECBLOCK(“GFEA032F”,.F.,.F.,{CNUMOCOR,CNUMCALC}) GFEA032.PRW – GFEA032CAN() -> EXECBLOCK(“GFEA032C”,.F.,.F.) GFEA032.PRW – GFEA032CMT() -> EXECBLOCK(“GFEA032B”,.F.,.F.,{NROCO,”2″,2}) GFEA032.PRW – GFEA032GWL() -> ARET := EXECBLOCK(“GFEA0327”,.F.,.F.,{APOS,LEN(APOS),ASTRUCT}) GFEA032.PRW – GFEA32CAL() -> ACALC := EXECBLOCK(“GFEA0328”,.F.,.F.,{ACALC,LEN(ACALC[1])}) GFEA032.PRW – GFEA32FDC() -> CFILTER := EXECBLOCK(“GFEA0326”,.F.,.F.,{CFILTER}) GFEA032.PRW – GFEA32LOAD() -> CQUERY := EXECBLOCK(“GFEA0324”,.F.,.F.,{(CQUERY)}) GFEA032.PRW – GFEA32LOAD() -> EXECBLOCK(“GFEA0325”,.F.,.F.,{(CALIGWU),(CGWUFIL)}) GFEA032.PRW – GFEA32LOAD() -> EXECBLOCK(“GFEA0329”,.F.,.F.,{(CALIGWU),ACALC ,NI}) GFEA032.PRW – GFEA32LOAD() -> EXECBLOCK(“GFEA0329”,.F.,.F.,{(CALIGWU),AROM,NI}) GFEA032.PRW – GFEA32REL() -> AROM := EXECBLOCK(“GFEA0328”,.F.,.F.,{AROM,LEN(AROM[1])}) GFEA032.PRW – GFEA519BRP()() -> EXECBLOCK(“GFEA0321”,.F.,.F.) GFEA032.PRW – GFEAPROV() -> EXECBLOCK(“GFEA032B”,.F.,.F.,{GWD->GWD_NROCO,CSITUACAO,1}) GFEA044.PRW – GFE44POST() -> NRETPE := EXECBLOCK(“GFEA0441”,.F.,.F.,{NQTDE_GWB}) GFEA044.PRW – GFEA44NVR() -> EXECBLOCK(“GFEA0443”,.F.,.F.,{GWN->GWN_FILIAL,GWN->GWN_NRROM,GW1->GW1_CDTPDC,GW1->GW1_EMISDC,GW1->GW1_SERDC,GW1->GW1_NRDC}) GFEA044.PRW – VIEWDEF() -> EXECBLOCK(“XINCGW1”,.F.,.F.,{OSTRUCTGW1, “GRPID”, OSTRUCTGW1:GETPROPERTY(“GW1_ORIGEM” , MVC_VIEW_ORDEM) , OSTRUCTGW1:GETPROPERTY(“GW1_SIT” , MVC_VIEW_ORDEM) }) GFEA050.PRW – GF50ARCLC() -> ACTCPE := EXECBLOCK(“GFE05014”,.F.,.F.,{ATRCHDOC}) GFEA050.PRW – GFE050AJUS() -> EXECBLOCK(“GFE05017”,.F.,.F., {GWN->GWN_FILIAL, GWN->GWN_NRROM}) GFEA050.PRW – GFE050AJUS() -> IF EXECBLOCK(“GFEA0506”,.F.,.F.,{“6”}) GFEA050.PRW – GFE050CALC() -> AITDOC := EXECBLOCK(“GFE05010”,.F.,.F.,{GWN->GWN_PLACAD,AITDOC}) GFEA050.PRW – GFE050CALC() -> AROTADIC := EXECBLOCK(“XGFECALF”,.F.,.F.,{GWN->GWN_NRROM}) GFEA050.PRW – GFE050CALC() -> AROTADIC := EXECBLOCK(“XGFECALI”,.F.,.F.,{GWN->GWN_NRROM}) GFEA050.PRW – GFE050CALC() -> EXECBLOCK(“GFEA0508”,.F.,.F.) GFEA050.PRW – GFE050VLRED() -> LESP := EXECBLOCK(“GFEA0509”,.F.,.F.,{NOPC}) GFEA050.PRW – GFE50GRAVR() -> ARET := EXECBLOCK(“GFE05015”,.F.,.F., {GWN->GWN_FILIAL, GWN->GWN_NRROM, CDATARET, CHORARET, NHOD}) GFEA050.PRW – GFE50GRAVR() -> EXECBLOCK(“GFE05016”,.F.,.F., ) GFEA050.PRW – GFE50NRROM() -> CNEWCOD := EXECBLOCK(“GFE05011”,.F.,.F.) GFEA050.PRW – GFEA050ALT() -> IF EXECBLOCK(“GFEA0506”,.F.,.F.,{“4”}) GFEA050.PRW – GFEA050BLO() -> IF EXECBLOCK(“GFEA0506”,.F.,.F.,{“5”}) GFEA050.PRW – GFEA050ENT() -> IF EXECBLOCK(“GFEA0504”,.F.,.F.,{GWN->GWN_FILIAL, GWN->GWN_NRROM}) GFEA050.PRW – GFEA050EXC() -> IF EXECBLOCK(“GFEA0506”,.F.,.F.,{“3”}) GFEA050.PRW – GFEA050LIB() -> ARETPE := EXECBLOCK(‘GFE05013’,.F.,.F.) GFEA050.PRW – GFEA050LIB() -> EXECBLOCK(“GFEA0505”,.F.,.F.) GFEA050.PRW – GFEA050REA() -> ARETPE := EXECBLOCK(‘GFEA0502’,.F.,.F.) GFEA050.PRW – GFEA050REA() -> EXECBLOCK(“GFEA0507”,.F.,.F.) GFEA050.PRW – GFEA050REA() -> IF EXECBLOCK(“GFEA0506”,.F.,.F.,{“2”}) GFEA050.PRW – GFEA50REDP() -> IF EXECBLOCK(“GFEA0506”,.F.,.F.,{“7”}) GFEA050.PRW – GFEABTOK() -> APONTENT := EXECBLOCK(“GFEA0501”,.F.,.F.,{GWN->GWN_FILIAL, GWN->GWN_NRROM}) GFEA050.PRW – GFEDOCCAR() -> IF EXECBLOCK(“GFEA0506”,.F.,.F.,{“1”}) GFEA050.PRW – GFEDOCCAR() -> LPEDHD := EXECBLOCK(“XALIMKB2”,.F.,.F.,NIL) GFEA050.PRW – MENUDEF() -> AROTADIC := EXECBLOCK(“XGFEA050 “,.F.,.F.) GFEA050.PRW – VIEWDEF() -> ARETPE := EXECBLOCK(‘GFE05012’,.F.,.F.) GFEA050A.PRW – GFE050AMB() -> CQUERY += EXECBLOCK(“GFEA05A1”,.F.,.F.) GFEA050A.PRW – GFE50ASORT() -> CORDEMPE1 := EXECBLOCK(“GFEA05A2”,.F.,.F., {“1”}) GFEA050A.PRW – GFE50ASORT() -> CORDEMPE2 := EXECBLOCK(“GFEA05A2”,.F.,.F., {“2”}) GFEA050A.PRW – GFE50AVLIB() -> ARET := EXECBLOCK(“GFEA05A4”,.F.,.F., {CFILROM, CROM, DDTLIB, DHRLIB, NHODO, CRASTR}) GFEA050A.PRW – GFEA050ALI() -> ARET := EXECBLOCK(“GFEA05A6”,.F.,.F.,{GWH->GWH_FILIAL, GWH->GWH_NRCALC, CNRROMAN}) GFEA050A.PRW – GFEA050ALI() -> ARETPE := EXECBLOCK(“GFEA05A5”,.F.,.F.,{GWH->GWH_FILIAL, GWH->GWH_NRCALC, LCALCSIMU, LDIFSIMU}) GFEA050A.PRW – GFEA50AOK() -> LRETPE := EXECBLOCK(“GFEA0503”,.F.,.F.,{GWN->GWN_NRROM,GW1->GW1_CDTPDC,GW1->GW1_EMISDC,GW1->GW1_SERDC,GW1->GW1_NRDC}) GFEA050B.PRW – GFE50BMKB() -> CQUERY += EXECBLOCK(“XQRYMKB”,.F.,.F.,NIL) GFEA050B.PRW – GFEA050B() -> ACPMKB := EXECBLOCK(“XACPMKB”,.F.,.F.,{ACPMKB, ‘3’}) GFEA050B.PRW – GFEA050B() -> ACPMKB2 := EXECBLOCK(“XACPMKB”,.F.,.F.,{ACPMKB2, ‘2’}) GFEA050B.PRW – GFEA050B() -> AMKB2:= EXECBLOCK(“XGFEAMKB”,.F.,.F.,{AMKB2, ‘2’}) GFEA050B.PRW – GFEA050B() -> LPEDHD := EXECBLOCK(“XALIMKB2”,.F.,.F.,NIL) GFEA050B.PRW – GFEA50BOK() -> AROTADIC := EXECBLOCK(“XGFERELD”,.F.,.F.,{GWN->GWN_NRROM,(CALIMKB)->TPDC,(CALIMKB)->CDEMIS,(CALIMKB)->SERIE,(CALIMKB)->NRDC}) GFEA051.PRW – GFEA051TL() -> IF !EXECBLOCK( “GFEA0514”,.F.,.F.) GFEA051.PRW – GFEA51STED() -> EXECBLOCK( “GFEA0511”,.F.,.F.) GFEA051.PRW – GFEA51STED() -> EXECBLOCK( “GFEA0513”,.F.,.F.,{CGWU_DTENT,CGWU_HRENT,1}) GFEA051.PRW – GFEA51STEN() -> EXECBLOCK( “GFEA0512”,.F.,.F.) GFEA051.PRW – GFEA51STEN() -> EXECBLOCK( “GFEA0515”,.F.,.F.,{1}) GFEA055.PRW – ATUPREFAT() -> ORETPE := EXECBLOCK(“GFE055IN”,.F.,.F.,{APREFAT, ARATALL}) GFEA055.PRW – DESATUPREFAT() -> ORETPE := EXECBLOCK(“GFE055IN”,.F.,.F.,{APREFAT, ARATALL}) GFEA055.PRW – GFEA055PRE() -> LEXEC := EXECBLOCK(“GFEA0551”,.F.,.F.,{(CALIAS)->GWF_NRCALC, (CALIAS)->GWF_TPCALC}) GFEA061A.PRW – GFEA61AVLD() -> LEXECVALID := EXECBLOCK(“GFEA0613”,.F.,.F.,{NOPC}) GFEA061F.PRW – GFEA061FA() -> LEXECVALID := EXECBLOCK(“GFEA0613”,.F.,.F.,{NOPC}) GFEA061F.PRW – VIEWDEF() -> EXECBLOCK(“GFEA61F2”,.F.,.F.,{OSTRUCTGV6}) GFEA065.PRW – ATUDOCFRET() -> ACUSTFIS := EXECBLOCK(“GFEA0655”,.F.,.F.,{ADOCFRETE, AITENSDOC, COPERPE}) GFEA065.PRW – ATUDOCFRET() -> ACUSTREC := EXECBLOCK(“GFEA0654”,.F.,.F., {ADOCFRETE, ANOTASFIS, COPERPE}) GFEA065.PRW – ATUDOCFRET() -> CCPDGFE := EXECBLOCK(“GFEA0653”,.F.,.F.,{3}) GFEA065.PRW – DESATUDOCFRET() -> CCPDGFE := EXECBLOCK(“GFEA0653”,.F.,.F.,{5}) GFEA065.PRW – GETITENSDOC() -> CPRDFRETE := EXECBLOCK(“GFEA0651”,.F.,.F.,{NOP}) GFEA065.PRW – GETITENSDOC() -> CRETPE := EXECBLOCK( “GFEA0658”,.F.,.F.,{CCENCUS} ) GFEA065.PRW – GETITENSDOC() -> CTES := EXECBLOCK( “GFEA0652”,.F.,.F.,{NOP} ) GFEA065.PRW – GFEA065GFF() -> DDTVENC := EXECBLOCK(“GFE06501”,.F.,.F.,{DDTVENC}) GFEA065.PRW – GFEA065VP() -> AGFEA659 := EXECBLOCK(“GFEA0659”,.F.,.F.,{ALLTRIM(OMODELGW3:GETVALUE(“GW3_EMISDF”))}) GFEA065.PRW – GFEA065VP() -> CRET := EXECBLOCK(“XGFEMODE”,.F.,.F.,{OMODELGW3, OMODELGW4}) GFEA065.PRW – GFEA065VP() -> LRETPE := EXECBLOCK(“GFEA0656”,.F.,.F.) GFEA065.PRW – GFEA065XD() -> IF ! EXECBLOCK( “GFEA65XD” , .F. , .F. , {COP} ) GFEA065.PRW – GFEA065XF() -> AROTADIC := EXECBLOCK(“XGFEENOF”,.F.,.F.,{GW3->GW3_FILIAL, GW3->GW3_CDESP, GW3->GW3_EMISDF, GW3->GW3_SERDF, GW3->GW3_NRDF, DTOS(GW3->GW3_DTEMIS)}) GFEA065.PRW – MENUDEF() -> ARETPE := EXECBLOCK(“GFEA0657 “,.F.,.F.) GFEA065.PRW – VIEWDEF() -> EXECBLOCK(“XGFEINC”,.F.,.F.,{OSTRUCTGW3, “GRPID”}) GFEA066.PRW – GFEA066AP() -> EXECBLOCK(“GFEA0663”,.F.,.F.,{OPNLA,OPANELB}) GFEA066.PRW – GFEA066OK() -> EXECBLOCK(“GFEA0661”,.F.,.F.) GFEA066.PRW – GFEA066OK() -> LRET := EXECBLOCK(“GFEA0664”,.F.,.F.,{GW3->GW3_FILIAL, GW3->GW3_CDESP, GW3->GW3_EMISDF, GW3->GW3_SERDF, GW3->GW3_NRDF, GW3->GW3_DTEMIS}) GFEA070.PRW – ATUFATURA() -> EXECBLOCK(“GFEA0704”,.F.,.F.,{}) GFEA070.PRW – ATUFATURA() -> NMSGFATATUFIN := EXECBLOCK(“GFEA70A6”,.F.,.F.) GFEA070.PRW – ATUFATURA() -> ORETPE := EXECBLOCK(“GFE070IN”,.F.,.F.,{AFATURA, ARATALL, APREALL, NOPERACAO}) GFEA070.PRW – DESATUFATURA() -> AFATURARET := EXECBLOCK(“GFEA0705”,.F.,.F.,{AFATURA}) GFEA070.PRW – GFEA070ADF() -> LRETPE := EXECBLOCK(“GFEA0702”,.F.,.F.) GFEA070.PRW – GFEA070DX() -> ARETORNO := EXECBLOCK(“XGFEINTF”,.F.,.F.,{GW6->GW6_FILIAL, GW6->GW6_EMIFAT, GW6->GW6_SERFAT, GW6->GW6_NRFAT, GW6->GW6_DTEMIS}) GFEA070.PRW – GFEA070IPG() -> EXECBLOCK(“GFEA0703”,.F.,.F.,{}) GFEA070.PRW – GFEA070X() -> AINTEGR := EXECBLOCK(“GFEA0707”,.F.,.F.) GFEA070.PRW – GFEA070X() -> ARETORNO := EXECBLOCK(“XGFEENFN”,.F.,.F.,{GW6->GW6_FILIAL, GW6->GW6_EMIFAT, GW6->GW6_SERFAT, GW6->GW6_NRFAT, GW6->GW6_DTEMIS}) GFEA070.PRW – MENUDEF() -> AROTINA := EXECBLOCK(“GFEA0706”,.F.,.F.,{AROTINA}) GFEA070A.PRW – GFE070MKB() -> CQUERY += EXECBLOCK(“GFEA70A3”,.F.,.F.,{ CQUERY }) GFEA070A.PRW – GFE070MKB() -> CQUERY += EXECBLOCK(“GFEA70A4”,.F.,.F.,{ CQUERY }) GFEA070A.PRW – GFE70DELDC() -> ARETORNO := EXECBLOCK(“XGFE70DE”,.F.,.F.,{GW6->GW6_FILIAL, GW6->GW6_EMIFAT, GW6->GW6_SERFAT, GW6->GW6_NRFAT, GW6->GW6_DTEMIS}) GFEA070A.PRW – GFE70DELDC() -> EXECBLOCK(“GFEA0701”,.F.,.F.) GFEA070A.PRW – GFEA070A() -> ACPPE := EXECBLOCK(“GFEA70A5”,.F.,.F.,{ ACPMKB }) GFEA070A.PRW – GFEA070AOK() -> AROTADIC := EXECBLOCK(“XGFE070A”,.F.,.F.,{GW6->GW6_FILIAL, GW6->GW6_EMIFAT, GW6->GW6_SERFAT, GW6->GW6_NRFAT, GW6->GW6_DTEMIS, CALIMKB}) GFEA071.PRW – GFEA071CF() -> ABUTTONS := EXECBLOCK(“GFEA0711”,.F.,.F.) GFEA071.PRW – GFEA071CF() -> NQTDTOTDOC := EXECBLOCK(“GFEA0712”,.F.,.F.) GFEA071.PRW – GFEA071ED() -> EXECBLOCK(“GFEA0713”,.F.,.F.) GFEA071.PRW – GFEA071PR() -> LRET := EXECBLOCK(“GFEA0715”,.F.,.F.) GFEA071.PRW – GFEA071RA() -> ABLOCK := EXECBLOCK(“GFEA0717”,.F.,.F.) GFEA071.PRW – GFEA071RA() -> CSITMLA := EXECBLOCK(“GFEA0716”,.F.,.F.,{GW6->GW6_SITMLA}) GFEA071.PRW – GFEA071RA() -> IF LEXECBLOCK == .F. GFEA071.PRW – GFEA071RA() -> LEXECBLOCK := EXECBLOCK(“XGFEAPRF”,.F.,.F.,{GW6->GW6_FILIAL, GW6->GW6_EMIFAT, GW6->GW6_SERFAT, GW6->GW6_NRFAT, GW6->GW6_DTEMIS}) GFEA079.PRW – GFEA79CTR() -> CMSG := EXECBLOCK(“GFEA0792”,.F.,.F.,{CFILCTR, CNRCT}) GFEA095.PRW – CONTABFATURA() -> AINTEGR := EXECBLOCK(“GFE09502”,.F.,.F.,{(CALIASGW6)->GW6_FILIAL, (CALIASGW6)->GW6_EMIFAT, (CALIASGW6)->GW6_SERFAT, (CALIASGW6)->GW6_NRFAT, STOD((CALIASGW6)->GW6_DTEMIS)}) GFEA100.PRW – GFEA100CA() -> LRET := EXECBLOCK(“GFEA1002”,.F.,.F.,{10}) GFEA100.PRW – GFEA100VA() -> LRET := EXECBLOCK(“GFEA1002”,.F.,.F.,{NOPC}) GFEA100.PRW – GFEA100X() -> XRET := EXECBLOCK(“GFEA1003”,.F.,.F.) GFEA110.PRW – CONSSQL() -> ARETQUERY := EXECBLOCK(“GFEA1101”,.F.,.F.) GFEA110.PRW – CONSSQL() -> CADD := EXECBLOCK(“GFE11007”,.F.,.F.,{“3.1″,-1,1,””}) GFEA110.PRW – CONSSQL() -> CADD := EXECBLOCK(“GFE11007”,.F.,.F.,{“3.1″,-1,2,””}) GFEA110.PRW – DEFINEDIR() -> CNOMARQ := EXECBLOCK(“GFEA1102”,.F.,.F.,{CCDTRP}) GFEA110.PRW – GFEARATDC() -> NQTVOL := EXECBLOCK(“GFEA1105”,.F.,.F.) GFEA110.PRW – PROCESSNOT() -> CRETXPTO := EXECBLOCK(“GFE11007”,.F.,.F.,{“3.1”,GW1->(RECNO()),3,CALIASQRY}) GFEA110.PRW – PROCESSNOT() -> EXECBLOCK(“GFEA1103”,.F.,.F.,{CDIRETORIO,AEMAILPENT[NI]}) GFEA110.PRW – PROCESSNOT() -> EXECBLOCK(“GFEA1103”,.F.,.F.,{CDIRETORIO,CCDTRPPENT}) GFEA110.PRW – REG311() -> CCDEMIS := EXECBLOCK(“GFE11006”,.F.,.F.,{“3.1”,GW1->(RECNO())}) GFEA110.PRW – REG313() -> NQTVOL := EXECBLOCK(“GFEA1104”,.F.,.F.) GFEA110.PRW – REG314() -> NQTVOL := EXECBLOCK(“GFEA1105”, .F., .F.) GFEA110.PRW – REG314AGR() -> NQTVOL := EXECBLOCK(“GFEA1105”,.F.,.F.) GFEA110.PRW – REG317() -> CRET := EXECBLOCK(“GFEA1106”,.F.,.F.,{}) GFEA110.PRW – REG317() -> CRET := EXECBLOCK(“GFEA1108”,.F.,.F.,{317}) GFEA110B.PRW – BUSCADADOSNF() -> NQTDVOLPE := EXECBLOCK(“GFEA1104”,.F.,.F.) GFEA110B.PRW – BUSCASQL() -> ACPPE := EXECBLOCK(“GFE11011”,.F.,.F.) GFEA110B.PRW – REG505() -> ARET109 := EXECBLOCK(“GFEA1109”,.F.,.F.,{(CALIASSQL)->GW1_FILIAL, (CALIASSQL)->GW1_CDTPDC, (CALIASSQL)-> GW1_EMISDC, (CALIASSQL)->GW1_SERDC, (CALIASSQL)->GW1_NRDC}) GFEA110B.PRW – REG515() -> CRET := EXECBLOCK(“GFEA1107”,.F.,.F.,{(CALIASSQL)->GW1_FILIAL,; GFEA110B.PRW – REG515() -> CRET := EXECBLOCK(“GFEA1108”,.F.,.F.,{515}) GFEA110B.PRW – SALVAREDI() -> EXECBLOCK(“GFEA1103”,.F.,.F.,{CFILE,CTRANSP}) GFEA115A.PRW – CRIATAB() -> ACAMPOSCTRC := EXECBLOCK(“GFEA1156”,.F.,.F.,{ACAMPOSCTRC}) GFEA115A.PRW – LAYOUTPRO3() -> ARET := EXECBLOCK(“GFEA1154”,.F.,.F.,{CFILIALCTRC,CCNPJEMISS,CCNPJEMBARC,CCNPJDEST,CUFREMETENTE,CUFDESTP,AGXH,AGXG[07],CBUFFER }) GFEA115A.PRW – LAYOUTPRO3() -> EXECBLOCK(“GFEA1158”,.F.,.F.,{(TTABCTRC),CBUFFER}) GFEA115A.PRW – LAYOUTPRO3() -> LBUSCADC := EXECBLOCK(“GFEA1151”,.F.,.F.,{}) GFEA115A.PRW – LAYOUTPRO3() -> LTODOSDC := EXECBLOCK(“GFEA1151”,.F.,.F.,{}) GFEA115A.PRW – LAYOUTPRO3() -> TTABCTRC := EXECBLOCK(“GFEA1153”,.F.,.F.,{TTABCTRC, CBUFFER, CBUFFER329 }) GFEA115A.PRW – PROCESSAMENTO() -> ARET := EXECBLOCK(“GFE11501”,.F.,.F.,) GFEA115A.PRW – PROCESSAMENTO() -> ARET := EXECBLOCK(“GFEA1159”,.F.,.F.,{LOK,LMSGERR}) GFEA115A.PRW – PROCESSAMENTO() -> EXECBLOCK(“GFEA1157”,.F.,.F.,{OMODEL}) GFEA115A.PRW – PROCESSAMENTO() -> LNRDF := EXECBLOCK(“GFEA1155”,.F.,.F.,{LNRDF}) GFEA115A.PRW – PROCESSAMENTO() -> LVALDC := EXECBLOCK(“GFEA1151”,.F.,.F.,{}) GFEA115A.PRW – REPROCESSDOCTOCARGA() -> LVALDC := EXECBLOCK(“GFEA1151”,.F.,.F.,{}) GFEA116A.PRW – PROCESSAMENTO() -> LRETPE := EXECBLOCK(“GFE116A1”,.F.,.F.,{NCONTDF}) GFEA116A.PRW – PROCESSAMENTO() -> LSCHEDULE := EXECBLOCK(“GFEA1601”,.F.,.F.,{}) GFEA117A.PRW – IMPORTACAO() -> EXECBLOCK(“GFEA1172”,.F.,.F.,NIL) GFEA117A.PRW – PROCESSAMENTO() -> EXECBLOCK( “GFEA0513”,.F.,.F.,{GXL->GXL_DTOCOR,GXL->GXL_HROCOR,2}) GFEA117A.PRW – PROCESSAMENTO() -> EXECBLOCK(“GFEA1171”,.F.,.F.,NIL) GFEA117A.PRW – PROCESSAMENTO() -> LRET := EXECBLOCK(“GFEA1173”,.F.,.F.) GFEA118.PRW – CTETPDF() -> ARET := EXECBLOCK(“GFEA1184”,.F.,.F.,{OCTE}) GFEA118.PRW – GFEA118XML() -> CDIROK := EXECBLOCK(“GFEA1182”,.F.,.F.) GFEA118.PRW – GFEA118XML() -> EXECBLOCK(“GFEA1181”,.F.,.F.,{OCTE}) GFEA118.PRW – GFEA118XML() -> LRETEDISIT := EXECBLOCK(“GFEA1185”,.F.,.F.,{OCTE, OPROTCTE}) GFEA517.PRW – GFECAEMAIL() -> ARETMAIL := EXECBLOCK(“GFEA5172”, .F., .F., { GWV->GWV_FILIAL, GWV->GWV_NRAGEN, CPARA, CMENSAGEM, CASSUNTO, GWV->GWV_SIT}) GFEA517.PRW – GFEENEMAIL() -> ARETMAIL := EXECBLOCK(“GFEA5172”, .F., .F., { GWV->GWV_FILIAL, GWV->GWV_NRAGEN, CPARA, CMENSAGEM, CASSUNTO, GWV->GWV_SIT}) GFEA519.PRW – GFEA519CAN() -> LRET := EXECBLOCK(“GFEA5193”,.F.,.F., {GX3->GX3_NRMOV,GX3->GX3_CDOPER}) GFEA519.PRW – MENUDEF() -> AROTADIC := EXECBLOCK(“GFEA5194 “,.F.,.F.) GFEA519.PRW – MONTASTRU() -> CCPOADIC := EXECBLOCK(“GFEA5192”, .F., .F., {}) GFEA519B.PRW – GFEA519BDT() -> LHAB := EXECBLOCK(“GFE519B2”,.F.,.F.,{}) GFEA519B.PRW – GFEA519BVI() -> NRETPESO := EXECBLOCK(“GFEA5237”, .F., .F., {GX4->GX4_FILIAL, _CMOV, _CPTCT, CPLACA, GX4->GX4_QTPESO}) GFEA522.PRW – E1_NEXT() -> LRET := EXECBLOCK(“GFEA5223”, .F., .F., {AETAPA1}) GFEA522.PRW – E2_SAVPLACA() -> ARET := EXECBLOCK(“GFEA5224”, .F., .F., {AETAPA2, ACAMPOS}) GFEA522.PRW – E3_SAVMOT() -> ARET := EXECBLOCK(“GFEA5225”, .F., .F., {AETAPA3, ACAMPOS}) GFEA522.PRW – E4_LOAD() -> ARET := EXECBLOCK(“GFEA5226”, .F., .F., {AETAPA4}) GFEA522.PRW – E4_LSTREFRESH() -> ARET := EXECBLOCK(“GFEA5222”,.F.,.F.,{,,,AOETAPA4,,}) GFEA522.PRW – E5_NEXT() -> ARET := EXECBLOCK(“GFEA5227”, .F., .F., {AETAPA5, ACAMPOSGX3}) GFEA522.PRW – E5_NEXT() -> LEXECPROG := EXECBLOCK(“GFEA5221”,.F.,.F.,{}) GFEA522.PRW – GFEVLDGX6() -> LRET5228 := EXECBLOCK(“GFEA5228”, .F., .F., {AETAPA2}) GFEA523.PRW – A523MD() -> ARET := EXECBLOCK(“GFEA5231”, .F., .F., {(CALIASVEIC), NCONT}) GFEA523.PRW – A523VVMN() -> ARET := EXECBLOCK(“GFEA5232”, .F., .F., {}) GFEA523.PRW – MNU1_CLICK() -> LRET5233 := EXECBLOCK(“GFEA5233”, .F., .F., {GX3->GX3_FILIAL,_CMOV,GX3->GX3_SIT,GX4->GX4_SIT}) GFEA523.PRW – MNU1_CLICK() -> LRET5235 := EXECBLOCK(“GFEA5235”, .F., .F., {CFILGX3,_CMOV,_COPER,_CSEQ,_CPTCT,NCLICK,CSEQGX4}) GFEA523.PRW – MNU1_CLICK() -> NRETPESO := EXECBLOCK(“GFEA5237”, .F., .F., {GX4->GX4_FILIAL, _CMOV, _CPTCT, CPLACA, GX4->GX4_QTPESO}) GFEA523.PRW – MNU2_CLICK() -> LRET5236 := EXECBLOCK(“GFEA5236”, .F., .F.,{CFILGX3,_CMOV,_COPER,_CSEQ,_CPTCT,NCLICK,CSEQGX4}) GFEA523.PRW – MONTAPAINEIS() -> OMENUBTN := EXECBLOCK(“GFEA5234”, .F., .F., { OMENUBTN, .F. }) GFEA523.PRW – MONTAPAINEIS() -> OMENUBTN := EXECBLOCK(“GFEA5234”, .F., .F., { OMENUBTN, .T. }) GFEA523.PRW – MONTASTRU() -> ARET := EXECBLOCK(“GFEA5231”, .F., .F., {}) GFEC041.PRW – CARREGADADOS() -> CQRYPE := EXECBLOCK(“GFEC0413”,.F.,.F.) GFEC041.PRW – CRIATAB() -> ACPOPE := EXECBLOCK(“GFEC0414”,.F.,.F.) GFEC041.PRW – MENUDEF() -> AROTADIC := EXECBLOCK(“GFEC0411”,.F.,.F.) GFEM011.PRW – GFEM011NFS() -> CCDCLFRETE := EXECBLOCK(“OM11CLF”,.F.,.F.) GFEM011.PRW – GFEM011NFS() -> EXECBLOCK(“OMSM0113”,.F.,.F.,{OMODELITENS}) GFEM011.PRW – GFEM011NFS() -> EXECBLOCK(“OMSM0114”,.F.,.F.,{OMODELUNIT}) GFEM011.PRW – GFEM011NFS() -> EXECBLOCK(“OMSM0115”,.F.,.F.,{OMODELNFS}) GFEM011.PRW – SETTRECHOS() -> CF2_TPFRETE := EXECBLOCK(“OMSM0111″,.F.,.F.,{SF2->F2_TPFRETE,”2”,NI,ATRECHOS[NI,1]}) GFEXFBE.PRW – GETQUERY() -> CQRYCON := EXECBLOCK(“GFEXFB21”,.F.,.F., CQRYCON) GFEXFBE.PRW – GETQUERY() -> LGFEXFB14 := EXECBLOCK(“GFEXFB14”) GFEXFBE.PRW – GETTABQRY() -> LGFEXFB14 := EXECBLOCK(“GFEXFB14”) GFEXFBE.PRW – SELTABGR() -> ARETFILSQL := EXECBLOCK(“GFEXFB12″,.F.,.F.,{GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE1, 7,”ORIGEM”),; GFEXFBE.PRW – SELTABGR() -> LGFEXFB14 := EXECBLOCK(“GFEXFB14”) GFEXFBE.PRW – SELTABGR() -> LSMLVEI := EXECBLOCK(“GFEXFB03”,.F.,.F.,{LSIMULACAO}) GFEXFBE.PRW – SELTABGR() -> LTARIVALI := EXECBLOCK(“GFEXFB01”,.F.,.F.,{CCODFAIXA}) GFEXFBE.PRW – SELTABGR() -> LTARIVALI := EXECBLOCK(“GFEXFB01”,.F.,.F.,{GV7->GV7_CDFXTV}) GFEXFBG.PRW – SELTABFRETE() -> LSMLVEI := EXECBLOCK(“GFEXFB03”,.F.,.F.,{LSIMULACAO}) GFEXFBG.PRW – SELTABFRETE() -> LTARIVALI := EXECBLOCK(“GFEXFB01”,.F.,.F.,{CCODFAIXA}) GFEXFBG.PRW – SELTABFRETE() -> LTARIVALI := EXECBLOCK(“GFEXFB01”,.F.,.F.,{GV7->GV7_CDFXTV}) GFEXFBH.PRW – GFECALCFRETE() -> LERROR := EXECBLOCK(“GFEXFB19”,.F.,.F.,{ @APARAMCOMP, LSIMULACAO }) GFEXFBH.PRW – GFECALCIMP() -> NNEWVLIMP := EXECBLOCK(“GFEXFBH1”,.F.,.F.,{ NBASEIMP, NVLIMP, ARETICMS[1], XFILIAL(“GWU”),; GFEXFBH.PRW – GFECALCTABINF() -> NVALCPN := EXECBLOCK(“GFEXFB02”,.F.,.F.,{ NVALCPN }) GFEXFUNA.PRW – GFETABPRAZO() -> ARETPE := EXECBLOCK(“GFEXFA03”,.F.,.F.,{(CALIASGUN)->GUN_CODTAB,(CALIASGUN)->GUN_TPPRAZ,(CALIASGUN)->GUN_PRAZO,ARET}) GFEXFUNA.PRW – PREVDTENT() -> ARETPE := EXECBLOCK(“GFEXFA04”,.F.,.F.,{ARET}) GFEXFUNA.PRW – PREVENTREG() -> ARETPE := EXECBLOCK(“GFEXFA01”,.F.,.F.,{DDATAREF,CHORAREF}) GFEXFUNB.PRW – ADDCOMPSGUC() -> LRETPE := EXECBLOCK(“GFEXFB04”,.F.,.F.) GFEXFUNB.PRW – CALCRATPED() -> ACPPE := EXECBLOCK(“GFEXFB16”,.F.,.F.) GFEXFUNB.PRW – DEFUNIDCALC() -> AROTADIC := EXECBLOCK(“XGFEAGRU”,.F.,.F.,{NMAXDOC,GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE3, 7,”CDTPDC”),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE3, 7,”EMISDC”),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE3, 7,”SERDC”),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE3, 7,”NRDC”)}) GFEXFUNB.PRW – DEFUNIDCALC() -> CNUMGRUP := EXECBLOCK(“GFEXFB10″,.F.,.F.,{GFEXFB_5CMP(LTABTEMP, CTRBDOC, @ADOCCARG, 1,”EMISDC”),; GFEXFUNB.PRW – DEFUNIDCALC() -> _APE15 := EXECBLOCK(“GFEXFB15″,.F.,.F.,{GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE3, 7,”CDTPDC”),; GFEXFUNB.PRW – GFEATUPESC() -> EXECBLOCK(“GFEXFB22”,.F.,.F.,{ CAGRUPC, CQUERY }) GFEXFUNB.PRW – GFECALCCOMP() -> NVALCPN := EXECBLOCK(“GFEXFB02”,.F.,.F.,{ NVALCPN }) GFEXFUNB.PRW – GFECALCCOMP() -> NVALOR := EXECBLOCK(“GFEXFB17”,.F.,.F.,{ NVALOR }) GFEXFUNB.PRW – GFECALCCOMP() -> NVLPE20 := EXECBLOCK(“GFEXFB20”,.F.,.F.,{ NVLFRETE, ACOMPCALC }) GFEXFUNB.PRW – GFECALCMAN() -> AGFEOCOVL := EXECBLOCK(“GFEOCOVL”,.F.,.F.,{XFILIAL(“GWF”), CNRCALC, “”, “”, “”, “”, AGFEOCOVL}) GFEXFUNB.PRW – GFECALCMAN() -> AGFEOCOVL := EXECBLOCK(“GFEOCOVL”,.F.,.F.,{XFILIAL(“GWF”), CNRCALC, GWD->GWD_FILIAL, GWD->GWD_NROCO, GWD->GWD_CDTIPO, GWD->GWD_CDMOT, AGFEOCOVL}) GFEXFUNB.PRW – GFECALCMAN() -> CCOMPSERV := EXECBLOCK(“XGFEOCSV”,.F.,.F.,{GWD->GWD_FILIAL, GWD->GWD_NROCO, GWD->GWD_CDTIPO, GWD->GWD_CDMOT}) GFEXFUNB.PRW – GFECLCFRT() -> EXECBLOCK(“GFEXFB07”,.F.,.F.,{LERROR}) GFEXFUNB.PRW – GFEESCTAB() -> ARET := EXECBLOCK(“GFEXFB05″,.F.,.F.,{ GFEXFB_5CMP(LTABTEMP, CTRBSTF, @ATRBSTF1, 2,”NRROM”), LTABTEMP, CTRBSTF, @ATRBSTF1}) GFEXFUNB.PRW – GFEPESOCUB() -> NPESOCUBADO := EXECBLOCK(“XGFEPESC”,.F.,.F.,{NPESOCUBADO,(CTRBITE),(CTRBTRE), CNRCALC, CCDCLFR}) GFEXFUNB.PRW – GFEQTDECOMP() -> ARETPE := EXECBLOCK(“GFEXFB11”,.F.,.F.,{CCDCLFR,NPESOCUBADO,NPESOREAL}) GFEXFUNB.PRW – GFEQTDECOMP() -> ARETPE := EXECBLOCK(“GFEXFB23”,.F.,.F.,{(CTRBITE),(CTRBTRE), CNRCALCULO, CCDCLFR, NFATORCUB}) GFEXFUNB.PRW – GFEVLCOMP() -> NVALOR := EXECBLOCK(“GFEXFB18”,.F.,.F.,{ (NVALOR), (ADADOSCOMP[1])}) GFEXFUNB.PRW – GFEVLSERV() -> CCOMPSERV := EXECBLOCK(“XGFEOCSV”,.F.,.F.,{GWD->GWD_FILIAL, GWD->GWD_NROCO, GWD->GWD_CDTIPO, GWD->GWD_CDMOT}) GFEXFUNB.PRW – GFEXFBETVL() -> ARET := EXECBLOCK(“GFEXFB05″,.F.,.F.,{ GFEXFB_5CMP(LTABTEMP, CTRBSTF, @ATRBSTF1, 2,”NRROM”), LTABTEMP, CTRBSTF, @ATRBSTF1}) GFEXFUNB.PRW – RUNPROC() -> LNAOPAGOPTO := EXECBLOCK(“GFEXFB08″,.F.,.F.,{GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE2, 7,”CDTPDC”),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE2, 7,”EMISDC”),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE2, 7,”SERDC”),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE2, 7,”NRDC”),GFEXFB_5CMP(LTABTEMP, CTRBTRE, @ATRBTRE2, 7,”SEQ”)}) GFEXFUNC.PRW – GFEA94GMC() -> EXECBLOCK(“GFEXFC05”,.F.,.F.,{GWM->GWM_FILIAL, GWM->GWM_CDESP, GWM->GWM_CDTRP, GWM->GWM_NRDOC, GWM->GWM_SERDOC, GWM->GWM_DTEMIS, GWM->GWM_TPDOC}) GFEXFUNC.PRW – GFEA94GMC() -> LRETPE := EXECBLOCK(“GFEXFC06”,.F.,.F.) GFEXFUNC.PRW – GFEGERRAT() -> CRET := EXECBLOCK(“XGFECTCC”,.F.,.F.,{CTPDOCTO, CFIL, CIDFEDERAL, CSERIE, NNRDOC, DDTEMISS}) GFEXFUNC.PRW – GFEGERRAT() -> CRET := EXECBLOCK(“XGFERATE”,.F.,.F.,{CTPDOCTO, CFIL, CIDFEDERAL, CSERIE, NNRDOC, DDTEMISS}) GFEXFUNC.PRW – GFEGERRAT() -> LRET := EXECBLOCK(“GFEXFC02”,.F.,.F.,{CTPDOCTO}) GFEXFUNC.PRW – GFEGERRAT() -> LRET := EXECBLOCK(“GFEXFC03”,.F.,.F.,{CTPDOCTO, RETTOTAIS}) GFEXFUNC.PRW – GFERATEIO() -> EXECBLOCK(“GFEXFC04”,.F.,.F.,{}) GFEXINTA.PRW – ATUDOCINT() -> ACUSTFIS := EXECBLOCK(“GFEA0655”,.F.,.F.,{ADOCFRETE, AITENSDOC, COPERPE}) GFEXINTA.PRW – ATUDOCINT() -> ACUSTREC := EXECBLOCK(“GFEA0654”,.F.,.F., {ADOCFRETE, ANOTASFIS, COPERPE}) GFEXINTA.PRW – ATUDOCINT() -> CCPDGFE := EXECBLOCK(“GFEA0653”,.F.,.F.,{3}) GFEXINTA.PRW – DESATDCINT() -> CCPDGFE := EXECBLOCK(“GFEA0653”,.F.,.F.,{5}) GFEXWSFUN.PRW – GFEDELGWN() -> LRET := EXECBLOCK(“GFEXWS14”,.F.,.F.,{ADADOS, OMODEL}) GFEXWSFUN.PRW – GFEINSGW1() -> CNRCIDORI := EXECBLOCK(“GFEXWS19”,.F.,.F.,{XFILIAL(“GU3”),ALLTRIM(ADADOS[16])}) GFEXWSFUN.PRW – GFEINSGW1() -> EXECBLOCK(“GFEXWS01”,.F.,.F.,{NLENADADOS,ADADOS}) GFEXWSFUN.PRW – GFEINSGW1() -> EXECBLOCK(“GFEYWS02”,.F.,.F.,{ADADOS}) GFEXWSFUN.PRW – GFEINSGW1() -> EXECBLOCK(“GFEYWS03”,.F.,.F.,{ADADOS}) GFEXWSFUN.PRW – GFEINSGW1() -> LRET := EXECBLOCK(“GFEXWS04”,.F.,.F.,{ADADOS}) GFEXWSFUN.PRW – GFEINSGW1ENT() -> CNRCIDORI := EXECBLOCK(“GFEXWS19”,.F.,.F.,{XFILIAL(“GU3”),ALLTRIM(ADADOS[7])}) GFEXWSFUN.PRW – GFEINSGW1ENT() -> EXECBLOCK(“GFEXWS10”,.F.,.F.,{NLENADADOS,ADADOS}) GFEXWSFUN.PRW – GFEINSGW1ENT() -> EXECBLOCK(“GFEYWS04”,.F.,.F.,{ADADOS}) GFEXWSFUN.PRW – GFEINSGWN() -> EXECBLOCK(“GFEYWS01”,.F.,.F.,{ADADOS}) GFEXWSFUN.PRW – GFEWSDELD() -> CRETORNO := EXECBLOCK(“GFEXWS11”,.F.,.F.,{CTABELA,ADADOS}) GFEXWSFUN.PRW – GFEWSGETDATA() -> CQUERY += EXECBLOCK(“GFEXWS07”,.F.,.F.,{CTABELA,CCODINT}) GFEXWSFUN.PRW – GFEWSGETDATA() -> CQUERY := EXECBLOCK(“GFEXWS17”,.F.,.F.,{CTABELA,CFIL,CCODINT,CQUERY}) GFEXWSFUN.PRW – GFEWSGETDATA() -> CSTRING += EXECBLOCK(“GFEXWS06”,.F.,.F.,{(CTMP)->GW3_CDREM , (CTMP)->GW3_CDDEST }) GFEXWSFUN.PRW – GFEWSGETDATA() -> CSTRING += EXECBLOCK(“GFEXWS12”,.F.,.F.,{(CTMP)->GW6_FILIAL, (CTMP)->GW6_EMIFAT, (CTMP)->GW6_SERFAT, (CTMP)->GW6_NRFAT, (CTMP)->GW6_DTEMIS}) GFEXWSFUN.PRW – GFEWSGETDATA() -> CSTRING += EXECBLOCK(“GFEXWS16”,.F.,.F.,{(CTMP)->GW3_FILIAL, (CTMP)->GW3_CDESP, (CTMP)->GW3_EMISDF, (CTMP)->GW3_SERDF, (CTMP)->GW3_NRDF, (CTMP)->GW3_DTEMIS, CSTRING }) GFEXWSFUN.PRW – GFEWSGETDATA() -> CSTRING := EXECBLOCK(“GFEXWS08”,.F.,.F.,{CTABELA,CQUERY}) GFEXWSFUN.PRW – GFEWSPUTD () -> ADADOS := EXECBLOCK(“GFEXWS05”,.F.,.F.,{CTABELA,ADADOS}) GFEXWSFUN.PRW – GFEWSPUTD () -> CRETORNO := EXECBLOCK(“GFEXWS02”,.F.,.F.,{ADADOS,CTABELA}) GFEXWSFUN.PRW – GFEWSSETDATA() -> AROTADIC := EXECBLOCK(“XGFEWGW6”,.F.,.F.,{GW6->GW6_FILIAL, GW6->GW6_EMIFAT, GW6->GW6_SERFAT, GW6->GW6_NRFAT, GW6->GW6_DTEMIS, ADADOS[5]}) GFEXWSFUN.PRW – GFEWSSETDATA() -> EXECBLOCK(“GFEXWS09”,.F.,.F.,{CTABELA,ADADOS,CCODINT}) GFEXWSFUN.PRW – GFEWSSIMULATION() -> ACPPE := EXECBLOCK(“GFEXWS18”,.F.,.F.,{ADADOSGW1}) GFEXWSFUN.PRW – GFEWSSIMULATION() -> APARAMSIM := EXECBLOCK(“GFEXWS13”,.F.,.F.,{APARAMSIM}) GFEXWSFUN.PRW – SIM_GERAMSGRETORNO() -> CCOMPONENTES := EXECBLOCK(“GFEXWS15”,.F.,.F.,{CCOMPONENTES, CNRCALC, GFEXFB_5CMP(LTABTEMP, CTRBTCF, @ATRBTCF, 5, “CDTRP”), GFEXFB_5CMP(LTABTEMP, CTRBTCF, @ATRBTCF, 5, “NRTAB”), GFEXFB_5CMP(LTABTEMP, CTRBTCF, @ATRBTCF, 5, “NRNEG”), GFEXFB_5CMP(LTABTEMP, CTRBTCF, @ATRBTCF, 5, “CDFXTV”), GFEXFB_5CMP(LTABTEMP, CTRBTCF, @ATRBTCF, 5, “NRROTA”) }) GFIN.BILLS.EMAIL.TLPP – GETBOLPDF() -> AAUXPE := EXECBLOCK(“NGFBXBOL”, .F., .F., {AGERBOL, CFILEPRINT, CPDFNAME}) GPEA010.PRX – FCHKIMG() -> NTAMMAX := EXECBLOCK(“MRHLOADIMG”, .F. , .F. ,{ CCODFIL, CCODMAT, CBMPPICT } ) GPEA010.PRX – FFINDSRC() -> LRET := !(EXECBLOCK(“GP010RES”,.F.,.F.)) GPEA010.PRX – FGRAVASR3() -> EXECBLOCK(“GPALTSAL”,.F.,.F.,) GPEA010.PRX – GP010ALTSAL() -> BCONDAUX := EXECBLOCK(“GPE10HIST”,.F.,.F.,{NTIPOOPER,BCOND,CCOND}) GPEA010.PRX – GP010ALTSAL() -> BRETPE := EXECBLOCK( “GPE10ALTS”, .F., .F. ) GPEA010.PRX – GPEA010EXCL() -> LRET := EXECBLOCK(“GP010EXCLU”,.F.,.F.) GPEA010.PRX – GPEA010GRV() -> BCONDAUX := EXECBLOCK(“GPE10HIST”,.F.,.F.,{NTIPOOPER,BCOND,CCOND}) GPEA010.PRX – GPEA010GRV() -> LNEWRELRD0 := EXECBLOCK(“GP010RELRD0”,.F.,.F.) GPEA010.PRX – GPEA010MNT() -> ABTN10 := EXECBLOCK(“GPE10BTN”,.F.,.F.) GPEA010.PRX – GPEA010MNT() -> EXECBLOCK(“GP010FIMPE”,.F.,.F.) GPEA010.PRX – GPEA010MNT() -> EXECBLOCK(‘GP010AGRV’,.F.,.F.,{NOPC,LGRAVA}) GPEA010.PRX – GPEA010VALPE() -> LRET := EXECBLOCK(“GP010VALPE”,.F.,.F.) GPEA011.PRX – MENUDEF() -> AROTPE := EXECBLOCK( “GPE11ROT”, .F., .F. ) GPEA020.PRX – GP020PEGRV() -> EXECBLOCK(“GP020GRV”,.F.,.F.) GPEA090.PRX – GPEA090LINOK() -> LLINOK := EXECBLOCK( “GP090OK”, .F., .F., {ACOLS[N]} ) GPEA090.PRX – GPEA090MNT() -> EXECBLOCK(“GP090ALT”,.F.,.F.) GPEA090.PRX – GPEA090MNT() -> IF GPEA090LINOK() .AND. IF(CPAISLOC $ “PTG”, GPEA090TUDOK(), .T.) .AND. (IF(LGP090CHK, EXECBLOCK( “GP090CHK”, .F., .F., {CCODUSER, CGRUPOS, ACLONE( ACOLSANT ), ACLONE( ACOLS )} ),.T.)) GPEA090.PRX – GPEA090MNT() -> IF( EXISTBLOCK(“GP090VLD”), EXECBLOCK(“GP090VLD”,.F.,.F.), .T.) .AND. ; GPEA090.PRX – GPEA090MNT() -> IF( EXISTBLOCK(“GP090VLD”), EXECBLOCK(“GP090VLD”,.F.,.F.), .T.) .AND. ; GPEA090.PRX – GPEA090MNT() -> MSAGUARDE( { || IF(GPEA090LINOK() .AND. IF(CPAISLOC $ “PTG”,GPEA090TUDOK(),.T.) .AND. (IF(LGP090CHK,EXECBLOCK( “GP090CHK”, .F., .F., {CCODUSER, CGRUPOS, ACLONE( ACOLSANT ), ACLONE( ACOLS )} ),.T.)), LDELOK := GPEA090GRAVA(CALIAS,CFIL,CMAT,AVIRTUAL,ACOLSREC,NOPCX,.F.,.F.), LRET := .F.) }, OEMTOANSI(STR0024)) GPEA100.PRX – GP100GRAVA() -> LRET := EXECBLOCK( “GP100CHK”, .F., .F., {CCODUSER, CGRUPOS, SRV->RV_COD} ) GPEA100.PRX – GP100LINOK() -> LRET := EXECBLOCK( “GP100OK”, .F., .F., {ACOLS[N]} ) GPEA100.PRX – GP100MNT() -> EXECBLOCK(“GP100ALT”,.F.,.F.) GPEA110.PRX – GP110CHKDEL() -> LRET := EXECBLOCK(“GPA110EXC”,.F.,.F.) GPEA110.PRX – GP110GRAVA() -> EXECBLOCK(“GPA110GRV”,.F.,.F.) GPEA110.PRX – GP110LINOK() -> LRET := EXECBLOCK(“GP110LNOK”, .F., .F.) GPEA180.PRX – FGRAVANOVO() -> AGP180CPOS := EXECBLOCK(“GP180CPOS”, .F., .F., {CALIAS, ACONTEUDO}) GPEA180.PRX – FMONTAHEADER() -> IF ( VALTYPE( ARET := EXECBLOCK(“GP180HEA”, .F. , .F. ,{AHEADER_AUX,AHEADER1_AUX}) ) == “A” ) .AND. LEN(ARET) > 1 GPEA180.PRX – GP180LINOK() -> IF LGP180VDPTO .AND. !EXECBLOCK(“GP180VDP”, .F., .F., {OGETSRA2:OBROWSE:NAT, OGETSRA2:ACOLS}) GPEA180.PRX – GPEA180FLT() -> CFILTRO := EXECBLOCK(“GP18FILT”, .F., .F.) GPEA180.PRX – GPEA180LOT() -> EXECBLOCK(“GP180MEN”,.F.,.F.) GPEA180.PRX – GPEA180PRC() -> EXECBLOCK( “GP180TRA” , .F. , .F. ) GPEA180.PRX – GPEA180PRC() -> IF !( EXECBLOCK(“GP180VALID”,.F.,.F.) ) GPEA180.PRX – GPEA180TRF() -> EXECBLOCK(‘GP010AGRV’,.F.,.F.,{NOPC,LGRAVA}) GPEA190.PRX – GP190TUDOK() -> LRET := EXECBLOCK(“GP190TOK”, .F., .F.) GPEA240.PRX – GP240COMMIT() -> EXECBLOCK(“GP240EXC”,.F.,.F.,{NOPERATION}) GPEA240.PRX – GP240COMMIT() -> EXECBLOCK(“GP240GRV”,.F.,.F.) GPEA240.PRX – GP240COMMIT() -> EXECBLOCK(“GP240MAN”,.F.,.F.,{NOPERATION}) GPEA240.PRX – GP240LINOK() -> ELSEIF EMPTY(OGRID:GETVALUE(“R8_MATSUB”)) .AND. OGRID:GETVALUE(“R8_DURACAO”) > RCM->RCM_DSUBST .AND. IIF(LGP240VSUB, !EXECBLOCK(“GP240VSUB”,.F.,.F.), .T.) GPEA240.PRX – GP240LINOK() -> LRET := EXECBLOCK(“GP240VAL”, .F., .F., {OGRID}) GPEA260.PRX – GPEFOTO() -> EXECBLOCK(“GP260FOTO”,.F.,.F.) GPEA260.PRX – MENUDEF() -> EXECBLOCK(“FIMPFCH”,.F.,.F.) GPEA265.PRX – GPEA265VALPE() -> LRET := EXECBLOCK(“GP265VALPE”,.F.,.F.) GPEA280.PRX – GP280GRAVA() -> EXECBLOCK( “GP280G01”, .F., .F., {CCPF} ) GPEA280.PRX – GP280GRAVA() -> EXECBLOCK(“GP280GRV”,.F.,.F.) GPEA415.PRX – GP415RCKLINOK() -> LLINOK := LLINOK .AND. EXECBLOCK(“G415RCKLOK”, .F.,.F.) GPEA415.PRX – GP415SRKLINOK() -> LLINOK := LLINOK .AND. EXECBLOCK(“G415SRKLOK”, .F., .F.) GPEA415.PRX – GPEA415GRAVA() -> EXECBLOCK(“GP415GRV”, .F., .F.) GPEA810.PRX – GP810VALPE() -> LRET := EXECBLOCK(“GP810CONF”,.F.,.F.) GPECONV.PRW – FTRATAAFAS() -> EXECBLOCK(“GPALTCFE”,.F.,.F.) GPEM015.PRX – FRGBVRA() -> EXECBLOCK(“GPM19RGB”, .F. , .F., { CROTBEN, (CALIASSRA)->RA_FILIAL, (CALIASSRA)->RA_MAT, CPER015, CPAG015 } ) GPEM016.PRW – FCALCPLANO() -> NBUSCA := EXECBLOCK(“GPM016TM”, .F., .F., {NBUSCA}) GPEM016.PRW – FCALCPLANO() -> NVALOR := EXECBLOCK(“GPM016PL”,.F.,.F.,{NVALOR, CTPPLAN}) GPEM019.PRW – FINTEGRARTF() -> EXECBLOCK(“GPM19RGB”, .F. , .F., { CROTBEN, SRA->RA_FILIAL, SRA->RA_MAT, CPERFOL, CSEMFOL } ) GPEM019.PRW – FINTEGRAVEX() -> EXECBLOCK(“GPM19RGB”, .F. , .F., { CROTFOL, SRC->RC_FILIAL, SRC->RC_MAT, CPERFOL, CSEMFOL } ) GPEM020.PRX – GPEM020GRD() -> CROTINTER := EXECBLOCK(“GPM020ROT”, .F., .F., {CROTINTER}) GPEM020.PRX – GPEM020PROCESSA() -> EXECBLOCK(“VERLOGFL”, .F., .F.) GPEM020.PRX – GPEM020PROCESSA() -> IF !EXECBLOCK(“GP690FIL”, .F., .F., {3, CAXTABMESTRA} ) GPEM022.PRX – LOADMEMO() -> CRETORNO += EXECBLOCK(“GPM022LOG”,.F.,.F.,{ CPATH, CARQUIVO,CRETORNO } ) GPEM030.PRX – FM030CAN() -> EXECBLOCK(“GPM030EX”,.F.,.F.) GPEM030.PRX – GP030RSTDAT() -> NEXECROT := EXECBLOCK(“SAL_USUA”,.F.,.F.) GPEM030.PRX – M030INICALC() -> EXECBLOCK(“GP030FER”,.F.,.F.) GPEM030.PRX – M030VLDCALC() -> LOKFER := EXECBLOCK(“GPM030CO”,.F.,.F.) GPEM040.PRX – FCHKDTGER() -> EXECBLOCK(“GPESALAR”,.F.,.F.) GPEM040.PRX – GPM040FIN() -> EXECBLOCK( “GPM040AR”,.F.,.F.,{CROTEIR, CPER, CNPGTO, CPROCESSO, SRA->RA_MAT}) GPEM040.PRX – GPM040FIN() -> LRETGPM040APL := EXECBLOCK(“GPM040RA”) GPEM040.PRX – VLDTPRES() -> LRET := EXECBLOCK(“VLDTPRESP”,.F.,.F.) GPEM060.PRX – FVERMED() -> EXECBLOCK(“GP060FAL”,.F.,.F.) GPEM060.PRX – GPM060PROC() -> APROFERP := EXECBLOCK(“GP060MULT”,.F.,.F.) GPEM060.PRX – GPM060PROC() -> EXECBLOCK(“GP030FER”,.F.,.F.) GPEM070.PRX – FBUSCODBX() -> EXECBLOCK(“GP070COD”,.F.,.F.) GPEM070.PRX – FBXA13OPROV() -> EXECBLOCK(“GP090B13”,.F.,.F.) GPEM070.PRX – FBXA13OPROV() -> EXECBLOCK(“GP090BIF”,.F.,.F.) GPEM070.PRX – FBXAFERPROV() -> EXECBLOCK(“GP070BIF”,.F.,.F.) GPEM070.PRX – FBXAFERPROV() -> LACHOU := EXECBLOCK(“GP070FBX”,.F.,.F.) GPEM070.PRX – FGERASRT() -> EXECBLOCK(“GP070CHK”,.F.,.F.) GPEM070.PRX – FGERASRT() -> EXECBLOCK(“GP070GRV”, .F., .F., {(CTBLXPROV)->PR_FILIAL, (CTBLXPROV)->PR_MAT, NTIPOPROV}) GPEM070.PRX – FPROV13O() -> EXECBLOCK(“GP090DEC”,.F.,.F.) GPEM070.PRX – FPROV13O() -> EXECBLOCK(“GP090DIF”,.F.,.F.) GPEM070.PRX – FPROV13O() -> EXECBLOCK(“GP090F13”,.F.,.F.) GPEM070.PRX – FPROVFER() -> ADADOS:=EXECBLOCK(‘GP070ANT’,.F.,.F.,{DDTBASFER,DDATAREF,NDFERANT}) GPEM070.PRX – FPROVFER() -> EXECBLOCK(“GP070P13”,.F.,.F.) GPEM070.PRX – FPROVFER() -> EXECBLOCK(“GP070PIF”,.F.,.F.) GPEM070.PRX – FPROVFER() -> EXECBLOCK(“GP070PRO”,.F.,.F.) GPEM070.PRX – FPROVFER() -> EXECBLOCK(“GP070V13”,.F.,.F.) GPEM070.PRX – FPROVFER() -> EXECBLOCK(“GP070VEN”,.F.,.F.) GPEM070.PRX – FPROVFER() -> EXECBLOCK(“GP070VIF”,.F.,.F.) GPEM070.PRX – GPM070CALG() -> APLR:=EXECBLOCK(‘GP070PLR’,.F.,.F.,{(CTBLXPROV)->PR_FILIAL,(CTBLXPROV)->PR_MAT,APLRSALAR[_ANTER,_PROV],DDATAREF}) GPEM070.PRX – GPM070PROCESSA() -> EXECBLOCK(“GP070FIM”,.F.,.F.) GPEM080.PRX – GPM080PROCESSA() -> EXECBLOCK(“GP410CRP”,.F.,.F.) GPEM080.PRX – GPM080PROCESSA() -> EXECBLOCK(“GP450CRP”,.F.,.F.) GPEM080.PRX – GPM080PROCESSA() -> EXECBLOCK(“GPM080HDR”,.F.,.F.) GPEM080.PRX – GPM080PROCESSA() -> IF !(EXECBLOCK(“GP410DES”,.F.,.F.)) GPEM080.PRX – GPM080PROCESSA() -> IF !(EXECBLOCK(“GP450DES”,.F.,.F.)) GPEM080.PRX – GPM080PROCESSA() -> IF !(EXECBLOCK(“GP450VAL”,.F.,.F.)) GPEM080.PRX – GPM080PROCESSA() -> URET := EXECBLOCK(“GP080US1”,.F.,.F.,{NTOTVAL}) GPEM080.PRX – SETARQNOME() -> CARQSAIDA := EXECBLOCK( “GP410ARQ”, .F., .F., {CARQSAIDA} ) GPEM080.PRX – SETARQNOME() -> CARQSAIDA := EXECBLOCK( “GP450ARQ”, .F., .F., {CARQSAIDA} ) GPEM110.PRX – FGERACTAB() -> ARATEIO := EXECBLOCK(“GP110SRZ”,.F.,.F.,{“FER”,DDATAREF}) GPEM110.PRX – FGERACTAB() -> ARATEIO:= EXECBLOCK(“GP110SRZ”,.F.,.F.,{“13”,DDATAREF}) GPEM110.PRX – FGERACTAB() -> ARATEIO:= EXECBLOCK(“GP110SRZ”,.F.,.F.,{“14”,DDATAREF}) GPEM110.PRX – FGERACTAB() -> ARATEIO:= EXECBLOCK(“GP110SRZ”,.F.,.F.,{“PLR”,DDATAREF}) GPEM110.PRX – FGERACTAB() -> EXECBLOCK(“GP110APP”,.F.,.F.) GPEM110.PRX – FGERAFOLSRZ() -> EXECBLOCK(“GP110APL”,.F.,.F.) GPEM110.PRX – GPEM110PROCESSA() -> AFILCONTAB := EXECBLOCK( “GP110ACT” , .F. , .F. ) GPEM110.PRX – GPEM110PROCESSA() -> EXECBLOCK(“GP110ANL”,.F.,.F.) GPEM120.PRX – FGRAVAACUM() -> EXECBLOCK(“GP120CMP”,.F.,.F.) GPEM120.PRX – FGRAVAACUM() -> EXECBLOCK(“GP120INC”,.F.,.F.) GPEM120.PRX – GP120FECFOL() -> LATUALIZA := EXECBLOCK(“GPRAM120”,.F.,.F.) GPEM120.PRX – GPM120PROCESSA() -> EXECBLOCK(“GP120END”,.F.,.F., AROTEIROS) GPEM120.PRX – GRVVALFUTURO() -> EXECBLOCK(“GP120PRE”,.F.,.F.) GPEM160.PRX – GPM160PROCESSA() -> IF EXECBLOCK(“GPROXFUN”,.F.,.F.) GPEM170.PRX – GPM170PROCESSA() -> IF EXECBLOCK(“GPROXFUN”,.F.,.F.) GPEM240.PRX – CARIMPGPS() -> EXECBLOCK(“IMPGPS”,.F.,.F.) GPEM550.PRX – FGRAVAINF() -> EXECBLOCK( “GPE550GRV”, .F., .F., { 3 } ) GPEM550.PRX – GPE550ICD() ³() -> EXECBLOCK(“GPM550GR”,.F.,.F.) GPEM550.PRX – GPE550ICD() ³() -> URETBLOCK := EXECBLOCK( “GPE550ICD”, .F., .F., { ACLONE(ABENEF) } ) GPEM550.PRX – GRAVASR4() -> EXECBLOCK( “GPE550GRV”, .F., .F., { 2 } ) GPEM580.PRX – IMP_JURIDICA() -> EXECBLOCK(“IMPIRPJ”,.F.,.F.) GPEM590.PRX – FDDIRF() -> CFILE := EXECBLOCK(“GP590ARQ”,.F.,.F.,CFILE) GPEM590.PRX – FGERAINFORME() -> LLEVAFUNC := (EXECBLOCK(“GP590FUN”,.F.,.F.)) GPEM590.PRX – GERPSTEMP() -> EXECBLOCK(“GP590TAB”) GPEM590.PRX – GPM590NEW() -> LLEVAFUNC := (EXECBLOCK(“GP590FUN”,.F.,.F.)) GPEM610.PRX – DBF_TIPO10() -> EXECBLOCK(“GP610SALMAT”,.F.,.F.,{CAUXFIL}) GPEM610.PRX – DBF_TIPO10() -> EXECBLOCK(“GPM610SALFAM”,.F.,.F.,{CAUXFIL}) GPEM610.PRX – DBF_TIPO20() -> EXECBLOCK(“GPM610SALFAM”,.F.,.F.,{CAUXFIL}) GPEM610.PRX – DBF_TIPO20() -> EXECBLOCK(“GPM610TP20”,.F.,.F.) GPEM610.PRX – DBF_TIPO30() -> NREMRET := EXECBLOCK(“GPE610REM”,.F.,.F.) GPEM610.PRX – F13SAL() -> NSALMATV := EXECBLOCK(“GPM610V”,.F.,.F.) GPEM610.PRX – FCENTRO() -> EXECBLOCK(“GPM610TOM” ,.F.,.F.,{AINFO,CCUSTO,CAUXFIL}) GPEM610.PRX – FMATRICULA() -> EXECBLOCK(“GP610NMV”, .F., .F.,{CFILANTERIOR,ACLONE(AINFO)} ) GPEM610.PRX – FMONTASR8() -> CTIPO1 := EXECBLOCK(“GPM610Q”,.F.,.F.) GPEM610.PRX – FMONTASR8() -> LGP610AFAS:= EXECBLOCK(‘GP610AFAS’,.F.,.F.) GPEM630.PRX – FGRAVARES() -> EXECBLOCK(“GPM040GR”,.F.,.F.) GPEM630.PRX – GP630EFETIVA() -> EXECBLOCK(“GPM040GR”,.F.,.F.) GPEM630.PRX – GP630EXCLUI() -> EXECBLOCK(“GPM040EX”,.F.,.F.) GPEM630.PRX – GP630EXCLUI() -> IF EXECBLOCK(“GP630C”,.F.,.F.) GPEM630.PRX – GPEM630PROCESSA() -> ALOG := EXECBLOCK(“GPLOG040”,.F.,.F.) GPEM630.PRX – GPEM630PROCESSA() -> EXECBLOCK(“GPDAV040”,.F.,.F.) GPEM650.PRX – FGRAVTIT() -> ADADOSPE := EXECBLOCK(“GP650CFO”,.F.,.F.,ADADOSAUTO) GPEM650.PRX – FGRAVTIT() -> ARET1 := EXECBLOCK(“GP650CHK”,.F.,.F.,{NRECAGRUP,.T.}) GPEM650.PRX – FGRAVTIT() -> EXECBLOCK(“GP650CPO”,.F.,.F.) GPEM660.PRX – FMOSTLEG() -> IF VALTYPE( URET := EXECBLOCK(‘GP660COR’,.F.,.F.,ACOR) ) == “A” GPEM660.PRX – FPROCEXC() -> IF EXECBLOCK(“GPM060EX”,.F.,.F.) GPEM660.PRX – GPM660ALT() -> AGPM660 := EXECBLOCK(“GP660BUA”,.F.,.F.) GPEM660.PRX – GPM660INC() -> AGPM660 := EXECBLOCK(“GP660BUI”,.F.,.F.) GPEM660.PRX – GPM660VLD() -> LRET := EXECBLOCK(“GPM60VLD”,.F.,.F.,{NTIPO}) GPEM660.PRX – MENUDEF() -> AROTINA := EXECBLOCK( “GP660ROT” ,.F.,.F.,{AROTINA}, .F. ) GPEM670.PRX – GPM670GRAVA() -> ACPOSUSR :=EXECBLOCK(“GP670ARR”,.F.,.F.) GPEM670.PRX – GPM670GRAVA() -> EXECBLOCK(“GP670CPO”,.F.,.F.) GPEM670.PRX – GPM670GRAVA() -> LRETPE := EXECBLOCK( “GPM670VAL”, .F., .F. ) GPEM680.PRX – DBF_TIPO10() -> EXECBLOCK(“GPM680FPAS”,.F.,.F.) GPEM690.PRX – GP690CAL() -> CEXPFILTRO := EXECBLOCK(“GP690FIL”, .F., .F., {2, CEXPFILTRO} ) GPEM690.PRX – GP690CAL() -> EXECBLOCK(“GPM690PERC”,.F.,.F.) GPEM690.PRX – GP690CAL() -> EXECBLOCK(“GPREAJPROP”,.F.,.F.,NBASEMESAUX) GPEM690.PRX – GP690CAL() -> LCONSIDERA := EXECBLOCK(“GP690SAL”,.F.,.F.) GPEM690.PRX – GP690PROC() -> EXECBLOCK(“GPALTSAL”,.F.,.F.,) GPER020.PRX – FROM OSECTION:CELL(“VALOR() -> EXECBLOCK(“GPR020FIN”,.F.,.F.) GPER020.PRX – GP020BUSCALIQ() -> EXECBLOCK(“GPCHKLIQ”,.F.,.F.) GPER030.PRX – FSENDDPGTO() -> CHTMLAUX := EXECBLOCK(“GP30BASEHTM”,.F.,.F.) GPER050.PRX – PROCESDARF() -> LRETPE := EXECBLOCK( “GP050FIL”, .F., .F. ) GPER080.PRX – FIMPMEDN() -> EXECBLOCK(“GPM04MED”,.F.,.F.) GPER080.PRX – FIMPR_MEDN() -> EXECBLOCK(“GP080ALT”,.F.,.F.) GPER130.PRX – FIMPRAVI() -> EXECBLOCK(“IMPFER”,.F.,.F.) GPER130.PRX – GP130IMP() -> EXECBLOCK(“IMPFER”,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(“IMPRESDOM”,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(“IMPRESGEN”,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(“IMPRESGSP” , .F. , .F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(“IMPRESMEX”,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(‘IMPGRFC’,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(‘IMPGRFC1’,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(‘IMPLIFIN’,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(‘IMPRESAN’,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(‘IMPRESBOL’,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(‘IMPRESC’,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(‘IMPRESC1’,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(‘IMPRESCOL’,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(‘IMPRESG’,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(‘IMPRESG1’,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(‘IMPRESH’,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(‘IMPRESH1’,.F.,.F.) GPER140.PRX – IMPFUNC() -> EXECBLOCK(‘IMPRESZ’,.F.,.F.) GPER200.PRX – GR200IMP() -> EXECBLOCK(“GPALTSAL”,.F.,.F.,) GPER200.PRX – GR200IMP() -> EXECBLOCK(“GPM690PERC”,.F.,.F.) GPER200.PRX – GR200IMP() -> EXECBLOCK(“GPR200ATU”,.F.,.F.,) GPER200.PRX – GR200IMP() -> EXECBLOCK(“GPREAJPROP”,.F.,.F.) GPER280.PRX – GPR280PROCESSA() -> EXECBLOCK(“GP280CHQ”,.F.,.F.) GPER564.PRW – GERATIPO12() -> ADADOS:=EXECBLOCK(‘GPR564’,.F.,.F.,{‘4’,ADADOS}) GPER564.PRW – GERATIPO2() -> ADADOS:=EXECBLOCK(‘GPR564’,.F.,.F.,{‘2’,ADADOS}) GPER564.PRW – GERATIPO4() -> ADADOS:=EXECBLOCK(‘GPR564’,.F.,.F.,{‘4’,ADADOS}) GPER564.PRW – GERATIPO5() -> ADADOS:=EXECBLOCK(‘GPR564’,.F.,.F.,{‘3’,ADADOS}) GPER564.PRW – GERATIPO5D() -> ADADOS:=EXECBLOCK(‘GPR564’,.F.,.F.,{‘5D’,ADADOS}) GPER564.PRW – GERATIPO5V() -> ADADOS:=EXECBLOCK(‘GPR564’,.F.,.F.,{‘5V’,ADADOS}) GPER564.PRW – GERATIPO6() -> ADADOS:=EXECBLOCK(‘GPR564’,.F.,.F.,{‘4’,ADADOS}) GPER564.PRW – GERATIPO7() -> ADADOS:=EXECBLOCK(‘GPR564’,.F.,.F.,{‘4’,ADADOS}) GPER564.PRW – GERATIPO7CESS() -> ADADOS:=EXECBLOCK(‘GPR564’,.F.,.F.,{‘4’,ADADOS}) GPER564.PRW – GERATIPO7IRP() -> ADADOS:=EXECBLOCK(‘GPR564’,.F.,.F.,{‘4’,ADADOS}) GPER564.PRW – GERATIPO7M() -> ADADOS:=EXECBLOCK(‘GPR564’,.F.,.F.,{‘4’,ADADOS}) GPER564.PRW – GERATIPO8() -> ADADOS:=EXECBLOCK(‘GPR564’,.F.,.F.,{‘4’,ADADOS}) GPER930.PRW – R3FIMPFIL() -> EXECBLOCK(“IMPDARF”,.F.,.F.) GPER930.PRW – R3GR930IMP() -> LRETPE := EXECBLOCK( “GP050FIL”, .F., .F. ) GPER986.PRW – FREQEPI() -> EXECBLOCK( “FREQEPI”, .F., .F. ) GPER986.PRW – FRESPONSA() -> EXECBLOCK( “FRESPONSA”, .F., .F. ) GPER987.PRW – FOPTPPIS() -> EXECBLOCK( “FOPTPPIS”, .F., .F. ) GPEXCADI.PRX – PERICUL() -> EXECBLOCK(“CALCPERIC”,.F.,.F.) GPEXCAL3.PRX – FATUCALC() -> IF !EXECBLOCK(“INCORPSL”,.F.,.F.) GPEXCBEN.PRX – CUSTOVALES() -> EXECBLOCK(“GP210SAL”, .F. , .F. ) GPEXCBEN.PRX – FINTEGRAOUT() -> EXECBLOCK(“GPM19RGB”, .F. , .F., { CROTBEN, RIQ->RIQ_FILIAL, RIQ->RIQ_MAT, CPERFOL, CSEMFOL } ) GPEXCBEN.PRX – FVTRCALC() -> AVTRDIAS := EXECBLOCK(“GPVTRDIAS”,.F.,.F.) GPEXCBEN.PRX – FVTRCALCN() -> AVTRDIAS := EXECBLOCK(“GPVTRDIAS”,.F.,.F.) GPEXCBEN.PRX – FVTRCALCN() -> EXECBLOCK(“GP210SAL”, .F. , .F. ) GPEXCBEN.PRX – FVTRGRV() -> EXECBLOCK(“GPM5001”,.F.,.F.) GPEXCBEN.PRX – FVTRGRVN() -> EXECBLOCK(“GPM5001”,.F.,.F.) GPEXFERE.PRX – CALC_FER() -> EXECBLOCK(“CALCDFER”,.F.,.F.) GPEXFERE.PRX – CALC_FER() -> EXECBLOCK(“GPALTCFE”,.F.,.F.) GPEXFGEN.PRX – FMONTAMAIL() -> IF !(VALTYPE(LVLDPE := EXECBLOCK( “GPM040MAIL”, .F.,.F. )) == “L”) GPEXFGEN.PRX – GPEGETLEGEND() -> IF VALTYPE( URET := EXECBLOCK( “GPBWLEG”, .F., .F., ALEGEND ) ) == “A” GPEXFGEN.PRX – GPLEGEND() -> IF VALTYPE( URET := EXECBLOCK(‘GP010BWLEG’,.F.,.F.,ALEGENDA) ) == “A” GPEXFGEN.PRX – TABFALTAS() -> EXECBLOCK(“GPTABFAL”, .F., .F., {APERAQ}) GPEXFORM.PRX – GPECBLOCK() -> RETURN( EXECBLOCK( P1 , .F. , .F. , P4 ) ) GPEXFORM.PRX – SETGPEBLOCK() -> RETURN( STRTRAN( UPPER( CFORM ) , “EXECBLOCK” , “GPECBLOCK” ) ) GPEXFORM.PRX – SETGPEBLOCK() -> ³DESCRI‡…O ³FORCA A PASSAGEM DOS PARAMETROS NA CHAMADA DO EXECBLOCK. ³ GPEXLOC1.PRX – FVALORIZA() -> IF !EXECBLOCK(“INCORPSL”,.F.,.F.) GPEXMED.PRX – FCARGAPRO() -> URET:= EXECBLOCK(“GPXPDMED”,.F.,.F.,PD) GPEXMED.PRX – GPEXMED() -> CPDCOMISS:= EXECBLOCK(“GPXCOMIS”,.F.,.F.) GPEXMED.PRX – GPEXMED() -> EXECBLOCK(“GPDERSRD”,.F.,.F.) GPEXMED.PRX – GPEXMED() -> EXECBLOCK(“GPMEDARR”,.F.,.F.) GPEXMED.PRX – GPEXMED() -> EXECBLOCK(“GPMEDPER”,.F.,.F.) GPEXMED.PRX – GPEXMED() -> NQUALMEDPE := EXECBLOCK(“GPAVOSMED”,.F.,.F.,NQUALMED) GPEXMED.PRX – GPEXMED() -> URET:= EXECBLOCK(“GPXMEDPD”,.F.,.F.,{SUBSTR(PD[X],1,3),PD}) GPEXMED.PRX – GRA_MED() -> EXECBLOCK(“GPALTTRP”,.F.,.F.) GPEXMED.PRX – GRA_MED() -> EXECBLOCK(“GPMEDTRP”,.F.,.F.) GPEXMED.PRX – GRA_MED() -> IF ( VALTYPE( NRET := EXECBLOCK(‘GPMEDTAR’ , .F. , .F. , { CPD , NVALOR , NHORAS } ) ) == “N” ) GPEXRDM.PRX – GPEXETIQAS() -> EXECBLOCK( “ETIQAS”, .F., .F. ) GPEXRDM.PRX – GPEXETIQCT() -> EXECBLOCK( “ETIQCT”, .F., .F. ) GPEXRDM.PRX – GPEXETIQFE() -> EXECBLOCK( “ETIQFER”, .F., .F. ) GPEXRDM.PRX – GPEXETIQMD() -> EXECBLOCK( “ETIQMD”, .F., .F. ) GPEXRDM.PRX – GPEXETIQOP() -> EXECBLOCK( “ETIQOPC”, .F., .F. ) GPEXRDM.PRX – GPEXIMPCAT() -> EXECBLOCK( “IMPCAT”, .F., .F. ) GPEXRDM.PRX – GPEXIMPMOD() -> EXECBLOCK( “IMPMODEL”, .F., .F. ) GPEXRDM.PRX – GPEXIMPRPA() -> EXECBLOCK( “IMPRPA”, .F., .F. ) GPEXRDM.PRX – GPEXREAJTA() -> EXECBLOCK( “REAJTAR”, .F., .F. ) GPEXRDM.PRX – GPEXRECBRA() -> EXECBLOCK( “RECBRAD”, .F., .F. ) GPEXRDM.PRX – GPEXRECITA() -> EXECBLOCK( “RECITAU”, .F., .F. ) GPEXRDM.PRX – GPEXRECSAN() -> EXECBLOCK( “RECSANT”, .F., .F. ) GPEXRDM.PRX – GPEXRPPP() -> EXECBLOCK( “GPERPPP”, .F., .F. ) GPEXRDM.PRX – GPEXSEGDES() -> EXECBLOCK( “SEGDES”, .F., .F. ) GPEXRDM.PRX – GPEXWORD() -> EXECBLOCK( “GPEWORD”, .F., .F. ) GPEXUSUA.PRX – FCOMPL13() -> IF !EXECBLOCK(“GPCOMPL13”,.F.,.F.) GPEXUSUA.PRX – GRAVADISSIDIO() -> EXECBLOCK( “GP020VBDI” ,.F.,.F. ) GTPA800.PRW – RETFUN() -> EXECBLOCK(“GTPR801ENC”, .F., .F., {G99->(RECNO())}) GTPA800.PRW – RETFUN() -> FWMSGRUN(, {|| EXECBLOCK(“ENCDACTE”, .F., .F.) }, , STR0043) GTPA803.PRW – G803IMPR() -> EXECBLOCK(“ENCDACTE”, .F., .F.) GTPA803.PRW – GERAAVERBACAO() -> ADADOSAVB := EXECBLOCK(“GTPENVATM”,.F.,.F.,{CTIPO, CFILDOC, CNUMDOC, CSERIE, CSEGPADRAO}) GTPA818.PRW – GTPA818() -> APARAM := EXECBLOCK(“G818EMAIL”, .F., .F., {CNOMREM, CNOMDES, CTOMADOR, CTITEMAIL, CCOREMAIL, CCHVCTE, CNROCTE}) HCMGP.PRW – HCMGPALTERA() -> EXECBLOCK(“HCMGRV02”,.F.,.F.,{4,XB2->XB2_DESCR}) HHMOBEXP.PRX – HHEXPACO() -> ADADOS[01] := EXECBLOCK(“HEXPACOA”, .F., .F., {ADADOS[01]}) HHMOBEXP.PRX – HHEXPACO() -> ADADOS[02] := EXECBLOCK(“HEXPACPA”, .F., .F., {ADADOS[02]}) HHMOBEXP.PRX – HHEXPACO() -> CQUERY := EXECBLOCK(“HEXPACOB”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPACO() -> CQUERY := EXECBLOCK(“HEXPACPB”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPACQ() -> ADADOS[01] := EXECBLOCK(“HEXPACQA”, .F., .F., {ADADOS[01]}) HHMOBEXP.PRX – HHEXPACQ() -> ADADOS[02] := EXECBLOCK(“HEXPACRA”, .F., .F., {ADADOS[02]}) HHMOBEXP.PRX – HHEXPACQ() -> CQUERY := EXECBLOCK(“HEXPACQB”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPACQ() -> CQUERY := EXECBLOCK(“HEXPACRB”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPACS() -> ADADOS[01] := EXECBLOCK(“HEXPACSA”, .F., .F., {ADADOS[01]}) HHMOBEXP.PRX – HHEXPACS() -> ADADOS[02] := EXECBLOCK(“HEXPACTA”, .F., .F., {ADADOS[02]}) HHMOBEXP.PRX – HHEXPACS() -> CQUERY := EXECBLOCK(“HEXPACSB”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPACS() -> CQUERY := EXECBLOCK(“HEXPACTB”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPACU() -> ADADOS[01] := EXECBLOCK(“HEXPACUA”, .F., .F., {ADADOS[01]}) HHMOBEXP.PRX – HHEXPACU() -> ADADOS[02] := EXECBLOCK(“HEXPACVA”, .F., .F., {ADADOS[02]}) HHMOBEXP.PRX – HHEXPACU() -> CQUERY := EXECBLOCK(“HEXPACUB”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPACU() -> CQUERY := EXECBLOCK(“HEXPACVB”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPAD7() -> ADADOS := EXECBLOCK(“HEXPAD7A”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPAD7() -> CQUERY := EXECBLOCK(“HEXPAD7B”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPDA0() -> ADADOSCAB := EXECBLOCK(“HEXPDA0C”, .F., .F., {ADADOSCAB}) HHMOBEXP.PRX – HHEXPDA0() -> ADADOSITE := EXECBLOCK(“HEXPDA0A”, .F., .F., {ADADOSITE}) HHMOBEXP.PRX – HHEXPDA0() -> CDELUPD := EXECBLOCK(“HEXPDA0E”, .F., .F., {CDELUPD}) HHMOBEXP.PRX – HHEXPDA0() -> CQUERY := EXECBLOCK(“HEXPDA0B”, .F., .F., {CQUERY,CID}) HHMOBEXP.PRX – HHEXPDA0() -> CQUERY := EXECBLOCK(“HEXPDA0D”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPDA0() -> EXECBLOCK(“HEXPDA0F”, .F., .F.) HHMOBEXP.PRX – HHEXPSA1() -> ADADOS := EXECBLOCK(“HEXPSA101”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPSA1() -> CQUERY := EXECBLOCK(“HEXPSA1B”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPSA4() -> ADADOS := EXECBLOCK(“HEXPSA4A”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPSA4() -> CQUERY := EXECBLOCK(“HEXPSA4B”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPSA5() -> ADADOS := EXECBLOCK(“HEXPSA5A”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPSA5() -> CQUERY := EXECBLOCK(“HEXPSA5B”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPSB1() -> ADADOS := EXECBLOCK(“HEXPSB101”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPSB1() -> CQUERY := EXECBLOCK(“HEXPSB1A”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPSB2() -> ADADOS := EXECBLOCK(“HEXPSB2A”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPSB2() -> CQUERY := EXECBLOCK(“HEXPSB2B”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPSB2() -> EXECBLOCK(“HEXPSB2C”, .F., .F.) HHMOBEXP.PRX – HHEXPSBM() -> ADADOS := EXECBLOCK(“HEXPSBMA”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPSBM() -> CQUERY := EXECBLOCK(“HEXPSBMB”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPSC5() -> ADADOS := EXECBLOCK(“HEXPSC5A”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPSC5() -> ADADOS1 := EXECBLOCK(“HEXPSC6A”, .F., .F., {ADADOS1}) HHMOBEXP.PRX – HHEXPSC5() -> CQUERY := EXECBLOCK(“HEXPSC5B”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPSC5() -> CQUERY := EXECBLOCK(“HEXPSC6B”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPSC5() -> EXECBLOCK(“HEXPSC6C”, .F., .F.,{CID, CCPO, NOPER}) HHMOBEXP.PRX – HHEXPSCT() -> ADADOS := EXECBLOCK(“HEXPSCTA”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPSCT() -> CQUERY := EXECBLOCK(“HEXPSCTB”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPSE1() -> ADADOS := EXECBLOCK(“HEXPSE1A”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPSE1() -> CQUERY := EXECBLOCK(“HEXPSE1B”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPSE4() -> ADADOS := EXECBLOCK(“HEXPSE4A”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPSE4() -> CDELUPD := EXECBLOCK(“HEXPSE4C”, .F., .F., {CDELUPD}) HHMOBEXP.PRX – HHEXPSE4() -> CQUERY := EXECBLOCK(“HEXPSE4B”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPSF4() -> ADADOS := EXECBLOCK(“HEXPSF4A”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPSF4() -> CQUERY := EXECBLOCK(“HEXPSF4B”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPSU5() -> ADADOS := EXECBLOCK(“HEXPSU5A”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPSU5() -> CQUERY := EXECBLOCK(“HEXPSU5B”, .F., .F., {CQUERY}) HHMOBEXP.PRX – HHEXPSX5() -> ADADOS := EXECBLOCK(“HEXPSX5A”, .F., .F., {ADADOS}) HHMOBEXP.PRX – HHEXPSX5() -> CQUERY := EXECBLOCK(“HEXPSX5B”, .F., .F., {CQUERY}) HHMOBEXP.PRX – XEXPHCF() -> ACFGUSER := EXECBLOCK(“HEXPHCF01”, .F., .F.) HHMOBEXP.PRX – XEXPHCF() -> EXECBLOCK(“HEXPSX501”, .F., .F.) HHMOBEXP.PRX – XEXPHCN() -> CQUERY := EXECBLOCK(“HEXPSA1B”, .F., .F., {CQUERY}) HHMOBEXP.PRX – XEXPHCN() -> NPADCPO := EXECBLOCK(“HEXPHCNA”, .F., .F.,{ACONS,NX,@NPADCPO}) HHMOBIMP.PRX – HHIMPHA1() -> APE := EXECBLOCK(“HHHA1PRE”,.F.,.F.,{ACAB}) HHMOBIMP.PRX – HHIMPHC5() -> EXECBLOCK(“HHHC5POS”, .F., .F., {CPROXPED,LEN(AITENS)}) HHMOBIMP.PRX – HHIMPHD5() -> APE := EXECBLOCK(“HHHD5PRE”,.F.,.F.,{ACAB}) HHMOBIMP.PRX – HHIMPHU5() -> APE := EXECBLOCK(“HHHU5PRE”,.F.,.F.,{ACAB}) HHSFAEXP.PRW – XEXPDA0(CSB1() -> CQUERY += EXECBLOCK(“HANHPR01”,.F.,.F.) HHSFAEXP.PRW – XEXPDA0(CSB1() -> CQUERYDA0 += EXECBLOCK(“HANHTC01”,.F.,.F.) HHSFAEXP.PRW – XEXPDA0(CSB1() -> LOKTAB := EXECBLOCK(“HANHPR02”,.F.,.F.) HHSFAEXP.PRW – XEXPSA1()() -> CFILTRO += EXECBLOCK(“PLMCLI01”,.F.,.F.) HHSFAEXP.PRW – XEXPSA1()() -> CQUERYSE1 += EXECBLOCK(“PLMFIN01”,.F.,.F.) HHSFAEXP.PRW – XEXPSB1()() -> CFILTRO += EXECBLOCK(“PLMPRD01”,.F.,.F.) HHSFAEXP.PRW – XEXPSB1()() -> CQUERY += EXECBLOCK(“PLMPRD01”,.F.,.F.) HHSFAEXP.PRW – XEXPSB1()() -> CQUERYSB1 += EXECBLOCK(“PLMPRD01”,.F.,.F.) HHSFAEXP.PRW – XEXPSB1()() -> LOKPRD := EXECBLOCK(“PLMPRD02”,.F.,.F.) HHSFAEXP.PRW – XEXPSE4()() -> LOKCND := EXECBLOCK(“PLMCND01”,.F.,.F.) HHSFAEXP.PRW – XEXPSE4()() -> LOKTES := EXECBLOCK(“PLMTES01”,.F.,.F.) HHSFAEXP.PRW – XEXPSF2(ACON() -> ACPOCONS := EXECBLOCK(“PLMHCN01”,.F.,.F.) HHTFAEXP.PRW – PPROD() -> CFILTRO += EXECBLOCK(“PLMPRD01”,.F.,.F.) HHTRIGGER.PRW – HHDA0(CCPO() -> LOKTAB := EXECBLOCK(“HANHPR02”,.F.,.F.) HHTRIGGER.PRW – HHDA1(CCPO() -> LOKTAB := EXECBLOCK(“HANHPR02”,.F.,.F.) HHTRIGGER.PRW – HHSB1(CCPO() -> LOKPRD := EXECBLOCK(“PLMPRD03”,.F.,.F.) HHTRIGGER.PRW – HHSF4(CCPO() -> LOKTES := EXECBLOCK(“PLMTES01”,.F.,.F.) HHXAPI.PRX – HHMAIL() -> ATO := EXECBLOCK(“HHMAIL02”,.F.,.F.,{ATO}) HHXFUN.PRW – PUPDHHCTR() -> EXECBLOCK(“HHTRG02”,.F.,.F.) HSPAHA08.PRW – MENUDEF() -> AA08ROT := EXECBLOCK(“HSA08ROT”, .F., .F., {AROTINA}) HSPAHA53.PRW – HSPAH531() -> EXECBLOCK(“HSP53PGRV”,.F.,.F.,{M->B1_COD, M->GBI_CODUNI}) HSPAHA58.PRW – FS_TUDOOK() -> LRET := EXECBLOCK(“HSP58OK1”, .F., .F.) HSPAHA58.PRW – HS_INCSA1() -> LGRAVACLI := EXECBLOCK(“HSP58GCL”,.F.,.F.,{LGRAVACLI}) HSPAHAB7.PRW – HSPAHAB7() -> LOCAL CVLDEXC := “HS_AB7VLD()” HSPAHABQ.PRW – FS_TRATFUN() -> EXECBLOCK(“HSABQRPR”,.F.,.F.,{AMNTIMP}) HSPAHAIH.PRW – HS_VLDAIH() -> LRET := EXECBLOCK(“HSVPAM24”,.F.,.F.,NIL) HSPAHM04.PRW – HS_MNTM04() -> ACTIVATE MSDIALOG ODLG ON INIT ( ENCHOICEBAR(ODLG, {|| NOPCDLG := 1, IIF(IIF(EXISTBLOCK(“HSPM04OK”),EXECBLOCK(“HSPM04OK”,.F.,.F.),.T.) .AND. OBRIGATORIO(AGETS, ATELA) .AND. OGDGAJ:TUDOOK() .AND. HS_VALSET(OGDGAJ), ODLG:END(), NOPCDLG := 0)}, ; HSPAHM04.PRW – HS_MNTM04() -> EXECBLOCK(“HSGCFM04”, .F., .F.,NIL) HSPAHM04.PRW – HS_MNTM04() -> EXECBLOCK(“HSPHRAP03”, .F., .F., {GAI->GAI_SOLICI}) HSPAHM05.PRW – FS_GRVM05() -> CREGATEN := EXECBLOCK(“HSREGSD3”, .F., .F., {M->GAI_REGATE, M->GAI_REQUIS}) HSPAHM05.PRW – HS_ATEM05() -> ACPOSUSU:=EXECBLOCK(“HM05CPOS”,.F.,.F.,{NOPCM05}) HSPAHM05.PRW – HS_ATEM05() -> ENCHOICEBAR(ODLGM05, {|| NOPCDLG := 1,IIF(EXISTBLOCK(“HM05TOK”),EXECBLOCK(“HM05TOK”, .F.,.F.,{CALIASM05, NREGM05, NOPCM05}) ,.T.) .AND. IIF( IIF( NOPCM05 == 5 .OR. NOPCM05 == 6,FS_VLDDEV(),(OBRIGATORIO(AGETS, ATELA) .AND. OGDGAJ:TUDOOK() .AND. FS_VERGUIA() .AND. HS_VALSET(OGDGAJ, .T., NOPCM05) .AND. FS_VLDSALD(OGDGAJ, NOPCM05))), ODLGM05:END(), NOPCDLG := 0)}, ; HSPAHM05.PRW – HS_ATEM05() -> EXECBLOCK(“HSPHRAP03”, .F., .F., {GAI->GAI_SOLICI}) HSPAHM05.PRW – HS_ATEM05() -> IF EXECBLOCK(“HM05VLD”,.F.,.F.,{CALIASM05, NREGM05, NOPCM05}) == .F. HSPAHM05.PRW – HS_LEGM05() -> ACORES2 := EXECBLOCK(“HSPM05LEG”, .F., .F., {“BR_VERDE”, “BR_AMARELO”, “BR_VERMELHO”, “BR_MARRON”, “BR_CINZA”, “BR_PRETO”}) HSPAHM05.PRW – HS_RELM05() -> EXECBLOCK(“HSPHRAP03”, .F., .F., {GAI->GAI_SOLICI}) HSPAHM17.PRW – HS_DGLAUDO() -> EXECBLOCK(“HSDTHO31”, .F., .F., NIL) HSPAHM17.PRW – HS_M17RESU() -> EXECBLOCK(“HSGCFP31”, .F., .F.,NIL) HSPAHM17.PRW – HS_M17RESU() -> LRET := EXECBLOCK(“HSCFGP31”, .F., .F.,NIL) HSPAHM17.PRW – HS_RETGUIA() -> CRET := EXECBLOCK(“HSAHM17RTG”,.F.,.F.,{DDATAATE,CLOCATE,CCODPLA,CCODTPG,BFNGERGUI}) HSPAHM24.PRW – FS_INCMEDS() -> CMATSRA := EXECBLOCK(“HSM24MSO”,.F.,.F.,{CMATSRA}) HSPAHM24.PRW – HS_LEGM24() -> ALEGM24 := EXECBLOCK(“HSM24LEG”, .F., .F., ALEGM24) HSPAHM24.PRW – HS_RECM24() -> EXECBLOCK(“HSM24ATE”,.F.,.F.,{.T.}) HSPAHM24.PRW – HS_RECM24() -> EXECBLOCK(“HSM24BTR”, .F., .F.,{NOPCM24}) HSPAHM24.PRW – HS_RECM24() -> EXECBLOCK(“HSM24ETR”, .F., .F.,{NOPCM24}) HSPAHM24.PRW – HS_RECM24() -> EXECBLOCK(“HSM24FCH”,.F.,.F.,{.T.}) HSPAHM24.PRW – HS_RELM24() -> EXECBLOCK(“HSM24FCH”,.F.,.F.,{.F.}) HSPAHM24.PRW – HS_VLDM24() -> EXECBLOCK(“HSM24VLP”, .F., .F., {CCHAVE, NVLD, LVLDEMPTY, CCPODESC, DDATAMM}) HSPAHM24.PRW – HS_VLDM24() -> LRET := EXECBLOCK(“HSVPAM24”,.F.,.F.,NIL) HSPAHM30.PRW – FS_VLDALTA() -> EXECBLOCK(“HSCUSGCY”, .F., .F.) HSPAHM30.PRW – FS_VLDALTA() -> LRET := EXECBLOCK(“HSVALALT”, .F., .F.,{GCY->GCY_REGATE}) HSPAHM30.PRW – HS_M30ALT() -> APROCPLS := EXECBLOCK(“HSM30GCNT”, .F., .F.,{GCZ->GCZ_NRSEQG, APROCPLS}) HSPAHM34.PRW – FS_GRCPM34() -> ALBTIT := EXECBLOCK(“HSP34NAT”,.F.,.F.,{ALBTIT}) HSPAHM34.PRW – FS_GRCPM34() -> LRETORNO := EXECBLOCK(“HSPM34TIT”,.F.,.F.,{CTITULO, GDX->GDX_NREXTM}) HSPAHM34.PRW – HS_EXCM34() -> EXECBLOCK(“HSPHM34EX”,.F.,.F.) HSPAHM34.PRW – HS_EXCM34() -> LTUDOOK := EXECBLOCK(“HSP34VXM”,.F.,.F.) HSPAHM34.PRW – HS_PLAM34() -> NVALORPLT := EXECBLOCK(“HSP34VLR”,.F.,.F.,{NVALORPLT}) HSPAHM37.PRW – MENUDEF() -> CFUNDIETA := “‘” + EXECBLOCK(“HSAHM37REL”, .F., .F.) + “‘” HSPAHM37.PRW – MENUDEF() -> CFUNETIQ := “‘” + EXECBLOCK(“HSAHM37ETQ”, .F., .F.) + “‘” HSPAHM50.PRW – HS_M50ATRI() -> LRET := EXECBLOCK(“HSPM50ILO”,.F.,.F.,{GCZ->GCZ_REGATE, CNOVLOT, GCZ->GCZ_NRSEQG}) HSPAHM50.PRW – HS_M50RETI() -> LRET := EXECBLOCK(“HSPM50RET”, .F., .F., {GCZ->GCZ_REGATE, GCZ->GCZ_NRLOTE}) HSPAHM54.PRW – HSPM29FILBRW() -> CFILM29 := EXECBLOCK(“HSPAFLM54”,.F.,.F.,{CFILM29} ) HSPAHM54.PRW – HSPM29FILTRO() -> AM54BRW := EXECBLOCK(“HSM54BRW”, .F., .F., {3, NPOSAGE, AAGENDA[NPOSAGE][1][NITEAGE], NOPC, LREGATU}) HSPAHM54.PRW – HSPM29FILTRO() -> CQUERY += EXECBLOCK(“HSM54BRW”, .F., .F., {2, NOPC, LREGATU}) HSPAHM54.PRW – HSPM29MARCA() -> ELSEIF IIF(EXISTBLOCK(“HSM54VLD”), EXECBLOCK(“HSM54VLD”, .F., .F.), .T.) HSPAHM54.PRW – HSPM29MARCA() -> EXECBLOCK(“HSM54DES”, .F., .F., {AOBJETOS, NLASTHOUR, NSTATUS, NLASTFLD, NLASTDAY}) HSPAHM54.PRW – HSPM29MARCA() -> EXECBLOCK(“HSM54MAR”, .F., .F., {CEVENTO, AOBJETOS, NLASTHOUR, NSTATUS, NLASTFLD, NLASTDAY}) HSPAHM54.PRW – HSPM29NAVEGA() -> EXECBLOCK(“HSM54FOL”, .F., .F., {4}) HSPAHM54.PRW – HSPM54ATU() -> ABUTTONS := EXECBLOCK(“HSM54BOT”, .F., .F., {ABUTTONS}) HSPAHM54.PRW – HSPM54ATU() -> AM54FOL := EXECBLOCK(“HSM54FOL”, .F., .F., {1, ATITULOS, APAGINAS})[1] HSPAHM54.PRW – HSPM54ATU() -> EXECBLOCK(“HSM54FOL”, .F., .F., {2, APMEMO, NOPC}) HSPAHM54.PRW – HSPM54ATU() -> LOCAL BCANCEL:= {||FS_BCANCEL(ASIZE)/,ODLGM54:END()*/ .AND. IIF(EXISTBLOCK(“HSM54CAN”),IIF(EXECBLOCK(“HSM54CAN”,.F.,.F.),ODLGM54:END(),),ODLGM54:END())} HSPAHM54.PRW – HSPM54BRW() -> AM54BRW := EXECBLOCK(“HSM54BRW”, .F., .F., {1, NFOLDER, ACAMPOS, ASIZE})
HSPAHM54.PRW – HSPM54CONSFIL() -> IF EXISTBLOCK(“HSM54FIN”) .AND. !EXECBLOCK(“HSM54FIN”, .F., .F.)
HSPAHM54.PRW – HSPM54CONSFIL() -> LFICTRAT := EXECBLOCK(“HSM54FCTRA”, .F., .F.)
HSPAHM54.PRW – HSPM54CONSFIL() -> LRETORNO := EXECBLOCK(“HSM54FOL”, .F., .F., {3})[2]
HSPAHM54.PRW – HSPM54GRV() -> EXECBLOCK(“HSM54CNF”, .F., .F., {CPESQUISA})
HSPAHM54.PRW – HS_VLDM54() -> LRET := EXECBLOCK(“HSM54OK”, .F., .F., {NOPC})
HSPAHM54.PRW – HS_VPROPLS() -> LRET := EXECBLOCK(“HS54CRIOK”, .F., .F.,{AHISCRI,CCODAGEPE})
HSPAHM57.PRW – FS_ATUORC() -> AVIGORC := EXECBLOCK(“HSFUSVIG”, .F., .F., {ASCJ[NL,1], SA1->A1_COD})
HSPAHM57.PRW – FS_GERORC() -> AVIGORC := EXECBLOCK(“HSFUSVIG”, .F., .F., {CORCATU, SA1->A1_COD})
HSPAHM57.PRW – FS_GRVM57() -> EXECBLOCK(“HSIMPANAM”, .F., .F., ACPOSGRV)
HSPAHM57.PRW – FS_OPCPLNTRAT() -> EXECBLOCK(“HS57PLAOK”, .F., .F.,{CNUMORC,CPROCED,CCODITEM,NOPCAO})
HSPAHM57.PRW – FS_OPCPLNTRAT() -> LRET := EXECBLOCK(“HM57VLDOPC”, .F., .F.,{NOPCAO})
HSPAHM57.PRW – FS_OPPLNTRAT() -> AITENSADD := EXECBLOCK(“HM57ADDOPC”, .F., .F.)
HSPAHM57.PRW – FS_VERORC() -> LRETVLD := EXECBLOCK(“HSPVLDUSR”)
HSPAHM57.PRW – HSPAHM57() -> ACPOGTC := EXECBLOCK(“HM57GTCORD”, .F., .F., {ACPOGTC})
HSPAHM57.PRW – HSPAHM57() -> ACPOSCKPLN:= EXECBLOCK(“HM57GTJORD”, .F., .F., { ACPOSCKPLN } )
HSPAHM57.PRW – HSPAHM57() -> AGTJADD := EXECBLOCK(“HM57ADDGTJ”, .F., .F.)
HSPAHM57.PRW – HSPAHM57() -> LODONTO := EXECBLOCK(“HSGODON”, .F., .F., {})
HSPAHMA7.PRW – HS_MNTMA7() -> ABUTTONS := ACLONE(EXECBLOCK(“HSPMA7MA”, .F., .F., {ABUTTONS}))
HSPAHMA7.PRW – HS_MNTMA7() -> EXECBLOCK(“HSMA7ANT”, .F., .F., {NOPCMA7, CCDQUES})
HSPAHMA7.PRW – HS_MNTMA7() -> EXECBLOCK(“HSPMA7OK”, .F., .F., {NOPCDLG, LCONFIRMA})
HSPAHMA7.PRW – MENUDEF() -> AROTADIC := EXECBLOCK(“HSMA7ROT”, .F., .F., {})
HSPAHP12.PRW – MENUDEF() -> AROTADIC := EXECBLOCK(“HSP12ROT”, .F., .F.)
HSPAHP18.PRW – FS_DESPESA() -> CTESITEM := EXECBLOCK(“HSPROP18”, .F., .F., CTESPROC)
HSPAHP18.PRW – FS_GERANF() -> EXECBLOCK(“HSP18APNF”,.F.,.F.,{CNUMNFS, CSERIE})
HSPAHP18.PRW – HS_P18MAN() -> LRET := EXECBLOCK(“HSP18EXC”, .F., .F., NIL)
HSPAHP18.PRW – MENUDEF() -> AROTADIC := EXECBLOCK(“HSP18ROT”, .F., .F.)
HSPAHP31.PRW – HSPAHP31() -> EXECBLOCK(“HSGCFP31”, .F., .F.,NIL)
HSPFFSXB.PRW – FS_MTGDGM8() -> CORDERBY := EXECBLOCK(“HSORDGM8”, .F., .F., {})
HSPFFSXB.PRW – HS_PESQGD4() -> @ NPOSINI + 014, 035 MSGET OCHVP VAR CCHVP F3 “BY2PLS” VALID IIF(EXISTBLOCK(“HSM24MAT”), EXECBLOCK(“HSM24MAT”, .F., .F., {CCHVP}), .T.) PICTURE CPICT SIZE 120, 010 OF ODLGPESQ PIXEL COLOR CLR_BLACK
HSPFUNCA.PRW – FS_GRVGD6() -> EXECBLOCK(“HSDSPFIX”,.F.,.F.,{XFILIAL(“GD6”),GCY->GCY_CODLOC,DDATDES,IIF(GCY->GCY_ATENDI <> “2”, CHORDES, GCY->GCY_HORATE),GB5->GB5_QTDTXD,GB5->GB5_CODTXD,ARVALTD[2],ARVALTD[3],IIF(ARVALTD[4][1], “2”, “0”),M->GD6_SEQDES,GCZ->GCZ_NRSEQG,GB5->GB5_REGATE,ARVALTD[4][2],ARVALTD[7],ARVALTD[8],HS_LOGARQ()})
HSPFUNCA.PRW – HS_RVALPR() -> VVNDPRO:= EXECBLOCK(“HSVALPRO”,.F.,.F.,{VVNDPRO,CCODPR,CCODPLA,CCODLOC,CCODCRM,CCODATO,DVIGENCIA})
HSPFUNCA.PRW – HS_VPROCED() -> URETEXEC:=EXECBLOCK(“HSVPR”, .F., .F.,{CCODPLA, CCODLOC, CCODPR, LVLDPRC, LVLDCUS, CHORDES, CURGDES, CCODCRM, CCODATO, AATENDI, LMSG, DVIGENCIA, APRORIGINC})
HSPFUNCA.PRW – HS_VTAXDIA() -> URETEXEC:=EXECBLOCK(“HSVTD”, .F., .F.,{CCODPLA, CCODLOC, CCODTD, LVLDPRC, LVLDCUS, LMSG, DVIGENCIA, CCODCRM, CHORDES, AATENDI})
HSPFUNCE.PRW – HS_GERTITPG() -> CE2_NUM := EXECBLOCK(“HSPADCSE2”,.F.,.F.,{CNUMORC,NITEM,ATITULO})
HSPFUNCE.PRW – HS_GFORNPAC() -> AFORNEC := EXECBLOCK(“HSPFORN”,.F.,.F.,{AFORNEC})
HSPFUNCE.PRW – HS_GORCAUT() -> APRODBLOCK := EXECBLOCK(“HSPGERORC”, .F., .F., {APRODBLOCK})
HSPFUNCS.PRW – HS_ATULOJA() -> ASLRET := EXECBLOCK(“HSATL1L2”, .F., .F., {ASL1, ASL2, ASL4})
HSPFUNCS.PRW – HS_ATULOJA() -> AVIGORC := EXECBLOCK(“HSFUSVIG”, .F., .F., {AORC[NL,1], SA1->A1_COD})
HSPFUNCS.PRW – HS_INTLOJA() -> EXECBLOCK(“HSGEROR”, .F., .F., {CNUMORC})
IMPGENER.PRX – POSSFH() -> ASFF := EXECBLOCK(“IMPINCID”,.F.,.F.,{_CTES,_CIMPUESTO,_CCFO,_CZFISCAL,_CNOMEPROG})
IMPGENER.PRX – POSSFZ() -> ¦¦¦USO ¦AARRAY:=EXECBLOCK(“POSSFH”,.F.,.F.,{CCLIENTE,CLOJA,CZONA,.F.)¦¦¦
IMPXFIS.PRW – QRYCDVLDEC() -> CWHEREPE := EXECBLOCK(“MAVLDCQRY”,.F.,.F.,{CWHERE,CCST,CCFOP,CPRODUTO,CGRPTRBPD,CGRPCLIFOR,CCLIFOR})
IMPXFIS.PRW – XFISATUSF3() -> EXECBLOCK(“M520SF3”,.F.,.F.)
IMPXFIS.PRW – XFISATUSF3() -> EXECBLOCK(“M520SFT”,.F.,.F.)
IMPXFIS.PRW – XFISATUSF3() -> EXECBLOCK(“MTA920L”,.F.,.F.)
IMPXFIS.PRW – XFISATUSF3() -> EXECBLOCK(“XFCD2SFT”,.F.,.F.)
IMPXFIS.PRW – XFISLF() -> AMACSTPICO := EXECBLOCK(“MACSTPICO”,.F.,.F.,{NITEM,ANFITEM[NITEM][IT_PRODUTO],ANFITEM[NITEM][IT_TES],ANFCAB[NF_CLIFOR],ANFCAB[NF_CODCLIFOR],ANFCAB[NF_LOJA],ANFCAB[NF_OPERNF]})
IMPXFIS.PRW – XFISLF() -> ANFITEM[NITEM][IT_LIVRO] := EXECBLOCK(ANFITEM[NITEM][IT_TS][TS_LIVRO],.F.,.F.,{ANFITEM[NITEM][IT_LIVRO],NITEM})
IMPXFIS.PRW – XFISLF() -> EXECBLOCK( “XFISLF”, .F., .F.,{NITEM})
IMPXFIS.PRW – XFISLF() -> EXECBLOCK(“MXTOTIT”,.F.,.F.,{NITEM})
IMPXFIS.PRW – XFSEXCECAO() -> AEXCEAUX := EXECBLOCK(“MAEXCEFISC”,.F.,.F.,{ AEXCECAO, {NITEM, CGRTRIB, CUFORIDES, CORIGEM,CSITTRIB, ANFCAB[NF_ESPECIE], ANFCAB[NF_TIPONF], ANFCAB[NF_OPERNF], ANFCAB[NF_CLIFOR], ANFCAB[NF_CLIEFAT]}})
IMPXFIS.PRW – XFSEXCECAO() -> AEXCEAUX := EXECBLOCK(“MAEXCEFISC”,.F.,.F.,{ AEXCEFAT, {NITEM, CGRTRIB, CUFORIDES, CORIGEM,CSITTRIB, ANFCAB[NF_ESPECIE], ANFCAB[NF_TIPONF], ANFCAB[NF_OPERNF], ANFCAB[NF_CLIFOR],ANFCAB[NF_CLIEFAT]} })
IMPXFIS.PRW – XFSEXCECAO() -> LEXECUTA := EXECBLOCK(“MFISEXCE”,.F.,.F.,{ALIAS(),RECNO()})
IMPXFIS.PRW – XLFTOLIVRO() -> CNFORI := EXECBLOCK( “MAFISOBS”, .F., .F., { CNFORI, ACLONE( ANOTASORI ) } )
INFOFIN.PRW – RETNCPS() -> CFILUSR:=EXECBLOCK(CPEFILUSR,.F.,.F.,{CQRYAUX,”NCP”})
INFOFIN.PRW – RETPAGFIL() -> ADETPAGPE := EXECBLOCK(“DIOTSF1P”,.F.,.F.,{(CALIAS)->R_E_C_N_O,ATITULOS[NTIT], ADETPAG})
JURA002.PRW – JURA002() -> EXECBLOCK(“JA002CSQL”,.F.,.F.,{AATUALIZAR[NY],ACODIGOS[NX][1]})
JURA063.PRW – JA063NVY() -> EXECBLOCK( ‘JA063DES’, .F., .F., {CCLIORI, CLOJORI, CCASO, CCLIDES, CLOJDES} )
JURA069.PRW – J069QRYFIL() -> CSQLPE := EXECBLOCK(“J069QRY”, .F., .F., {CSQL, CTIPO})
JURA069.PRW – JA069FIN() -> AAUX := EXECBLOCK(‘JA069TIT’, .F., .F.)
JURA069.PRW – JA069IPR() -> AAUX := EXECBLOCK(‘JA069TIT’,.F.,.F.)
JURA069.PRW – JA069REC() -> EXECBLOCK(‘JURR069’, .F., .F.)
JURA070.PRW – BEFORE() -> EXECBLOCK(“JA070BEFO”, .F., .F., {OSUBMODEL:GETMODEL()})
JURA070.PRW – J070AFTCOM() -> EXECBLOCK(“JA070SOEX”, .F., .F., {OMODEL})
JURA070.PRW – J070SHEET() -> ASHEET := EXECBLOCK(“J070SHEET”, .F., .F.)
JURA070.PRW – JA070NUMER() -> CQUERY := EXECBLOCK(‘J070NUM’, .F., .F., { ‘1’, CCLIENTE, ”, CNUMCLIEN, LUSALACUNA } )
JURA070.PRW – JA070VNCAS() -> CQUERY := EXECBLOCK(‘J070NUM’, .F., .F., { ‘2’, CCLIENTE, CCASO, CNUMCLIEN, .F. } )
JURA074.PRW – JA074BQRY() -> EXECBLOCK(‘JURR074B’, .F., .F.)
JURA094.PRW – JA094VLDIS() -> NTOTAL := EXECBLOCK(“J94VLDIS”, .F., .F., {CPROCESSO, CTIPOPROV, LATUAL})
JURA094.PRW – JA094VLENV() -> AVLENVOLVI := EXECBLOCK(“J94VLENV”, .F., .F., {CPROCESSO})
JURA094.PRW – VIEWDEF() -> ABOTOES := EXECBLOCK(‘JA94RETBOT’, .F., .F.)
JURA095.PRW – JURA095TOK() -> EXECBLOCK(“JA095SOEX”,.F.,.F.,{FWFLDGET(‘NSZ_NUMCAS’)})
JURA095.PRW – JURA095TOK() -> EXECBLOCK(“JA162SOEX”,.F.,.F.,{OMODEL:GETVALUE(‘NSZMASTER’,’NSZ_NUMCAS’),OMODEL:GETVALUE(‘NSZMASTER’,’NSZ_COD’),NOPC})
JURA095.PRW – MODELDEF() -> EXECBLOCK( ‘JA95MOD’, .F., .F., OMODEL )
JURA095.PRW – VIEWDEF() -> EXECBLOCK( ‘JA95VIEW’, .F., .F., OVIEW )
JURA095_P.PRW – JA095DEL() -> LERRO := EXECBLOCK(‘J95DELPE’, .F., .F.,{CFILDES, CCAJUR, CFILORI, CCAJURPAI, CTELA})
JURA095_P.PRW – LISTACOL() -> CWHERE += EXECBLOCK(‘J95FVINC’,.F.,.F.,{CTELA})
JURA098.PRW – JURA098TOK() -> LJXINTVAL := EXECBLOCK(“J98XINTVAL”, .F., .F., {OMODEL})
JURA098.PRW – VIEWDEF() -> ABOTOES := EXECBLOCK(‘JA98RETBOT’, .F., .F.)
JURA099.PRW – JURA099TOK() -> LJXINTVAL := EXECBLOCK(“J99XINTVAL”, .F., .F., {OMODEL})
JURA099.PRW – MENUDEF() -> AAUX := EXECBLOCK(“JA99MDEF”, .F., .F.)
JURA099.PRW – VIEWDEF() -> ABOTOES := EXECBLOCK(‘JA99RETBOT’, .F., .F.)
JURA106.PRW – VIEWDEF() -> ABOTOES := EXECBLOCK(‘J106RETBOT’, .F., .F.)
JURA132.PRW – J132REAJ2() -> RLRET := EXECBLOCK(‘132REJBL’, .F., .F.)
JURA132.PRW – JA132NU4() -> LRET := EXECBLOCK(‘JA132DNU4’,.F.,.F.,{OMODELGRID,NLINE,NOPC})
JURA132.PRW – JA132TOK() -> IF EXISTBLOCK(“J132UPST”) .AND. !EXECBLOCK(“J132UPST”,.F.,.F.,{OMODEL})
JURA132.PRW – SE LRET = .T.() -> LRET := EXECBLOCK(‘JA132NENV’,.F.,.F.,{OMODEL})
JURA143.PRW – J143VLRREC() -> AVALID := EXECBLOCK( ‘J143VLRC’, .F., .F. , {CALIAS} )
JURA143.PRW – JA143ALT2() -> EXECBLOCK( ‘JA143LOT’, .F., .F., {LRET, LCHKCLI, CCLIOR, CLOJAOR, CCASOOR, LCHKADV, CSIGLA, LCHKDESP, CDESP, LCHKCOB, CCOBRA, COBSCOB} )
JURA143.PRW – JA143ALT2() -> LRET := EXECBLOCK( ‘JA143CAN’, .F., .F., {OBRW143, LCHKCLI, CCLIOR, CLOJAOR, CCASOOR, LCHKADV, CSIGLA, LCHKDESP, CDESP, LCHKCOB, CCOBRA, COBSCOB} )
JURA144.PRW – JA144VLCPO() -> LRETPTOE := EXECBLOCK(“PE144VLC”, .F., .F., {CCAMPO, OMODEL, CIDNUE})
JURA144.PRW – MENUDEF() -> AAUX := EXECBLOCK(‘JA144BTN’, .F., .F.)
JURA144.PRW – MENUDEF() -> AUSERBUTT := EXECBLOCK( ‘JURA144’, .F., .F., { NIL, “MENUDEF”, ‘JURA144’ } )
JURA148.PRW – J148SHEET() -> ASHEET := EXECBLOCK(“J148SHEET”, .F., .F.)
JURA148.PRW – VIEWDEF() -> ACAMPOS := EXECBLOCK(‘JA148FLDS’, .F., .F.)
JURA202.PRW – J202FILTRO() -> CQRY += ” AND ” + EXECBLOCK(‘J201BDPF’, .F., .F.)
JURA202.PRW – J202TRANSF() -> EXECBLOCK(‘JA202TR’, .F., .F., {CCLIOLD, CLOJOLD, CCASOLD, CGETCLIE, CGETLOJA, CGETCASO, CCODLAN } )
JURA202.PRW – JA202CKDSP() -> LALTDESP := EXECBLOCK(“PNAPFS06”, .F., .F., { LALTDESP, OMODEL} )
JURA202.PRW – JA202PSIT() -> ARETPE := EXECBLOCK(“J202SIT”, .F., .F., {NX0->NX0_COD, NX0->NX0_SITUAC, CNOVASIT})
JURA202.PRW – JA202RCASO() -> LRET := EXECBLOCK (“JA202REVIS”, .F., .F., {OMODEL, LRET } )
JURA202.PRW – JA202VIEW() -> EXECBLOCK( “J202RESPF”, .F., .F., {AVALORES} )
JURA202.PRW – JA202WHEN() -> LRET := EXECBLOCK (“JA202REVIS”, .F., .F., {OMODEL, LRET } )
JURA202.PRW – MODELDEF() -> ACAMPOS := EXECBLOCK(‘JA202FLDS’, .F., .F.)
JURA202.PRW – VIEWDEF() -> ACAMPOS := EXECBLOCK(‘JA202FLDS’, .F., .F.)
JURA202B.PRW – JA202BASS() -> EXECBLOCK(‘JA202ILT’,.F.,.F.,{CPREFT} )
JURA202B.PRW – JA202BASS() -> EXECBLOCK(‘JA202ITS’, .F., .F., {CPREFT} )
JURA202D.PRW – JA202DASS() -> EXECBLOCK(‘JA202ITS’,.F.,.F.,{CPREFT} )
JURA203.PRW – J203ACTBT3() -> LRETPE := EXECBLOCK(“J203ADIB”, .F., .F.)
JURA203.PRW – J203ADTUSER() -> ADADOSPE := EXECBLOCK(“J203ADT”, .F., .F., {CESCRIT, CNUMFAT, CFILA, NVLFATURA})
JURA203.PRW – J203FILTRO() -> CQRY += EXECBLOCK(‘J203FILT’, .F., .F., {CTAB, CQRY})
JURA203.PRW – J203FILTRO() -> CQRY += EXECBLOCK(‘J203FILT’,.F.,.F.,{CTAB,CQRY})
JURA203.PRW – J203GRVADT() -> EXECBLOCK(“JA203ADI”, .F., .F., { ARECRA } )
JURA203.PRW – J203GRVADT() -> IIF( LJA203CMP, { |X,Y| EXECBLOCK( ‘JA203CMP’, .F., .F., { X, Y } ) },),;
JURA203.PRW – J203NPARC() -> EXECBLOCK(‘JA203NT1’, .F., .F.)
JURA203.PRW – JA203CARTA() -> EXECBLOCK(‘J203CRT’, .F., .F., { APARAMS, CPARAMS, APARAMS[19] } )
JURA203.PRW – JA203EMITE() -> EXECBLOCK(“JA203BOL”,.F.,.F.,{ ARECSE1, APARAMS } )
JURA203.PRW – JA203EMITE() -> EXECBLOCK(“JA203GRV”, .F., .F., { CTIPO, NXA->NXA_CESCR, NXA->NXA_COD} )
JURA203.PRW – JA203RELAT() -> EXECBLOCK(‘J203CRYS’, .F., .F., { APARAMS, CPARAMS, APARAMS[19] } )
JURA203.PRW – JA203TIT() -> CNATDESPE := EXECBLOCK(“J203NDES”, .F., .F., {CESCRIT, CFATURA, CNATDES})
JURA203.PRW – JA203TIT() -> EXECBLOCK( “JA203SE1”, .F., .F. )
JURA203.PRW – JA203TIT() -> XPARCELAS := EXECBLOCK(‘JA203CN1’, .F., .F., {“1”, APARCHON})
JURA203.PRW – JA203TIT() -> XPARCELAS := EXECBLOCK(‘JA203CN1’, .F., .F., {“2”, APARCDES})
JURA203.PRW – JA203VLDIN() -> ARETPE := EXECBLOCK(‘J203VLIN’, .F., .F., {CCONTR, CCODIGO, CTIPO})
JURA203.PRW – JA203VLDIN() -> LRET := EXECBLOCK(‘J203PARC’, .F., .F., { CTIPO, (CQRYRES2)->COD, (CQRYRES2)->PARC } )
JURA204.PRW – J204CPOUSR() -> CRET := EXECBLOCK( “J204CNT1”, .F., .F. )
JURA204.PRW – J204CPOUSR() -> CRET := EXECBLOCK( “J204CNUE”, .F., .F. )
JURA204.PRW – J204CPOUSR() -> CRET := EXECBLOCK( “J204CNV4”, .F., .F. )
JURA204.PRW – J204CPOUSR() -> CRET := EXECBLOCK( “J204CNVV”, .F., .F. )
JURA204.PRW – J204CPOUSR() -> CRET := EXECBLOCK( “J204CNVY”, .F., .F. )
JURA204.PRW – J204GETDOCS() -> EXECBLOCK( “JA204GDOC”, .F., .F., { AVKEY(CESCRI, “NXM_CESCR” ), AVKEY(CCODFAT, “NXM_CFATUR”), APARJ203, ARELJ203 } )
JURA204.PRW – J204JOIN() -> ARETORNO:= EXECBLOCK(‘J204JOIN’, .F., .F., { CESCRI, CCODFAT, ACLONE(ARELATS), CNEWFILE, LOPENFILE })
JURA204.PRW – J204LEGTIT() -> ALEGPE := EXECBLOCK(“J204SETLEG”, .F., .F., {ACLONE(ALEGTIT)})
JURA204.PRW – JA204CANFA() -> EXECBLOCK(‘JA204CFA’, .F., .F.)
JURA204.PRW – JA204CANFT() -> CERROMSG := EXECBLOCK( “J204FCAN”, .F., .F. )
JURA204.PRW – JA204REIMP() -> ARETORNO := EXECBLOCK(‘J204REFAZ’, .F., .F.)
JURA204.PRW – JA204REIMP() -> EXECBLOCK(“JA203BOL”, .F., .F., { ARECSE1, APARAMS } )
JURA204.PRW – JA204REIMP() -> EXECBLOCK(‘J203CRT’, .F., .F., { APARAMS, CPARAMS, APARAMS[19], LRETORNO })
JURA204.PRW – JA204REIMP() -> LRETORNO := EXECBLOCK(‘J203SUB’, .F., .F., {CCARTA, CPARAMS, APARAMS[1]+CARQUIVO, APARAMS})
JURA204.PRW – PREVALCFAT() -> JA204CODMOT := EXECBLOCK( “J204MCAN”, .F., .F. )
JURA246.PRW – J246EFD() -> LGRAVACF8 := EXECBLOCK(“J241EFD”, .F., .F., {CNATUREZA})
JURA273.PRW – J273LOADVAR() -> CPENOCOPY := EXECBLOCK(“J273NCOP”, .F. ,.F., {CSE2NOCOPY})
JURSXB.PRW – JSXBRA() -> ARETPE := EXECBLOCK(“JSXBRA”, .F., .F., {ACAMPOS, LVISUALIZA, LINCLUI, CFILTRO, CFONTE, CSQL} )
JURXFUN.PRW – FEXP_PROV () -> NTOTAL := EXECBLOCK(“J94VLDIS”, .F., .F., {CPROCESSO, CTIPOPROV, LATUAL})
JURXFUN.PRW – JURF3TAB() -> IF (EXECBLOCK(‘JUF3BTNINC’, .F., .F.))
JURXFUNB.PRW – JURATCTB() -> ARATCTB := EXECBLOCK(“JURATCTB”, .F., .F., {CTABELA, CCODLAN, CCAJURI, ACABSE2})
JURXFUNB.PRW – JURCONTALC() -> ACMPCUSTOM := EXECBLOCK( “PEJURCOM”, .F., .F. , {CCAJURI,CCODLAN,CTABELA,ACABSC7,ACAMPOS})
JURXFUNB.PRW – JURGERPAG() -> ACMPCUSTOM := EXECBLOCK( “PEJURFIN”, .F., .F. , {CCAJURI, CCODLAN, CTABELA, ACABSE2})
JURXFUNB.PRW – JURHISCONT() -> LRET := EXECBLOCK( ‘JAGERPAG’,,, { NOPC, CPREFIXO, NVALOR, CCAJURI, CCOD, CTIPOL, ‘NV3’ } )
JURXFUNB.PRW – JURHISCONT() -> LRET := EXECBLOCK( ‘JAGERPAG’,,, { NOPERA, CPREFIXO, NVALOR, CCAJURI, CCOD, CTIPOL, CPEDIDO } )
JURXFUNB.PRW – JURPARPG() -> APARCOND := EXECBLOCK(“JURPARPG”, .F., .F., {CTABELA, CCONDIC, NVALOR, DEMITE})
LJRETAILAPP.PRW – LJRENTREGA() -> CJSONOBJ += ‘”CATEGORY”:”‘+LJRLIMPA(NOACENTO(OEMTOANSI(ALLTRIM(EXECBLOCK(“LJRACATG”,.F.,.F.,{ALLTRIM((CALIASTMP)->(B1_FILIAL)),(CALIASTMP)->(B1_COD)})))))+'”,’
LJRETAILAPP.PRW – LJRINVENT() -> CJSONOBJ += ‘”CATEGORY”:”‘+LJRLIMPA(LJRMVACENT(NOACENTO(OEMTOANSI(ALLTRIM(EXECBLOCK(“LJRACATG”,.F.,.F.,{ALLTRIM((CTEMPDB)->(B1_FILIAL)),(CTEMPDB)->(B1_COD)})))))) +'”,’
LJRETAILAPP.PRW – LJRINVENT() -> CRETLJRAQR := EXECBLOCK(“LJRAQRYI”,.F.,.F.)
LJRETAILAPP.PRW – LJRORDERS() -> CJSONOBJ += ‘”CATEGORY”:”‘+LJRLIMPA(NOACENTO(OEMTOANSI(ALLTRIM(EXECBLOCK(“LJRACATG”,.F.,.F.,{ALLTRIM((CALIASTMP)->(FILIAL)),(CALIASTMP)->(COD)})))))+'”,’
LJSCRPED.PRW – LJRUNSCRPD() -> LRET:= EXECBLOCK(“LJPRTPDLOC” ,.F.,.F.)
LJSUBNFE.PRW – GETFILTRO() -> CFILTROUSR := EXECBLOCK(“LJFLTNFE”,.F.,.F.)
LJTER01.PRW – TERCODPROD() -> CPRODUTO := EXECBLOCK(“LJTCODPRO”,.F.,.F.,{CPRODUTO})
LJTER01.PRW – TERGRAVAORC() -> EXECBLOCK(“LJIMPCUP”,.F.,.F.,{CNUMORC,APRODS,NDESCTOTAL,CCODVEND,CCODCPG})
LOCA001.PRW – FCANCMAN() -> LRET := EXECBLOCK(“LC01CMAN” , .T. , .T. , {CSTSATU}) LOCA001.PRW – FCFOLDER() -> ATITLES := EXECBLOCK(“LC01ATIT”,.T.,.T.,{ATITLES}) LOCA001.PRW – FCOLSDOCUM() -> ACOLS := EXECBLOCK(“LC001DOC”,.T.,.T.,{ACOLS, AHEADER}) LOCA001.PRW – FFOLDERCAR() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“ZA7”,NOPCMANU, NSTYLE}) LOCA001.PRW – FFOLDERCNJ() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“FPS”,NOPCMANU, NSTYLE}) LOCA001.PRW – FFOLDERCNP() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“FQ7”,NOPCMANU, NSTYLE}) LOCA001.PRW – FFOLDERCON() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“FP8”,NOPCMANU, NSTYLE}) LOCA001.PRW – FFOLDERCUS() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“FQ8”,NOPCMANU,NSTYLE}) LOCA001.PRW – FFOLDERDOC() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“FPB”,NOPCMANU, NSTYLE}) LOCA001.PRW – FFOLDERFOL() -> ARET := EXECBLOCK(“LC001FST”,.T.,.T.,{ARET}) LOCA001.PRW – FFOLDERFOL() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“FP9”,NOPCMANU, NSTYLE}) LOCA001.PRW – FFOLDERGUI() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“FP4”,NOPCMANU, NSTYLE}) LOCA001.PRW – FFOLDEROBR() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“FP1”,NOPCMANU, NSTYLE}) LOCA001.PRW – FFOLDERPLA() -> EXECBLOCK(“LC001LOC”,.F.,.T.,{ “TELA”}) LOCA001.PRW – FFOLDERPLA() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“FPA”,NOPCMANU, NSTYLE}) LOCA001.PRW – FFOLDERPLA() -> ODLGPLA:OBROWSE:BDELETE := {|| EXECBLOCK(“LC01DPLA”,.T.,.T.,{ODLGPLA:NAT, ODLGPLA:ACOLS, ODLGPLA:AHEADER }) } LOCA001.PRW – FFOLDERRES() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“FP6”,NOPCMANU, NSTYLE}) LOCA001.PRW – FFOLDERROT() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“ZA4”,NOPCMANU, NSTYLE}) LOCA001.PRW – FFOLDERTRA() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“ZA6”,NOPCMANU, NSTYLE}) LOCA001.PRW – FFOLDERTRE() -> NSTYLE := EXECBLOCK(“LC001EDT”,.T.,.T.,{“FPD”,NOPCMANU, NSTYLE}) LOCA001.PRW – FMANU1() -> ABUTTONS := EXECBLOCK(“LC001BUT” , .T. , .T. , {ABUTTONS,POPC}) LOCA001.PRW – FOBRA() -> CSEQGRU := EXECBLOCK(“LC01ORDP”,.T.,.T.,{ CSEQGRU, ODLGPLA, ODLGPLA:NAT, _NANT}) LOCA001.PRW – FSALVAR001() -> EXECBLOCK(“LC001GP”,.T.,.T.,{FP0->FP0_PROJET, NOPC}) LOCA001.PRW – FSALVAR001() -> EXECBLOCK(“LC001GRV”,.T.,.T.,{ODLGCAR:AHEADER, ODLGCAR:ACOLS, FP0->FP0_PROJET,.T.}) LOCA001.PRW – FSALVAR001() -> EXECBLOCK(“LC001GRV”,.T.,.T.,{ODLGGUI:AHEADER, ODLGGUI:ACOLS, FP0->FP0_PROJET,.T.}) LOCA001.PRW – FSALVAR001() -> EXECBLOCK(“LC001GRV”,.T.,.T.,{ODLGPLA:AHEADER, ODLGPLA:ACOLS, FP0->FP0_PROJET,.T.}) LOCA001.PRW – FSALVAR001() -> EXECBLOCK(“LCTURGRV”,.T.,.T.,{ ODLGGUI }) LOCA001.PRW – FSALVAR001() -> ODLGCAR:ACOLS := EXECBLOCK(“LC001GA”,.T.,.T.,{ODLGCAR:AHEADER, ODLGCAR:ACOLS, FP0->FP0_PROJET,_LALT}) LOCA001.PRW – FSALVAR001() -> ODLGGUI:ACOLS := EXECBLOCK(“LC001GA”,.T.,.T.,{ODLGGUI:AHEADER, ODLGGUI:ACOLS, FP0->FP0_PROJET,_LALT}) LOCA001.PRW – FSALVAR001() -> ODLGPLA:ACOLS := EXECBLOCK(“LC001GA”,.T.,.T.,{ODLGPLA:AHEADER, ODLGPLA:ACOLS, FP0->FP0_PROJET,_LALT}) LOCA001.PRW – FSALVAR001() -> _LRET := EXECBLOCK(“LC001GRU”,.T.,.T.,{ODLGCAR:AHEADER,ODLGCAR:ACOLS}) LOCA001.PRW – FSALVAR001() -> _LRET := EXECBLOCK(“LC001GRU”,.T.,.T.,{ODLGGUI:AHEADER,ODLGGUI:ACOLS}) LOCA001.PRW – FSALVAR001() -> _LRET := EXECBLOCK(“LC001GRU”,.T.,.T.,{ODLGPLA:AHEADER,ODLGPLA:ACOLS}) LOCA001.PRW – FSALVAR900() -> IF !EXECBLOCK(“LC001VAL” , .T. , .T. , {ODLGCAR:ACOLS,ODLGCAR:AHEADER}) LOCA001.PRW – FSALVAR900() -> IF !EXECBLOCK(“LC001VAL” , .T. , .T. , {ODLGGUI:ACOLS,ODLGGUI:AHEADER}) LOCA001.PRW – FSALVAR900() -> IF !EXECBLOCK(“LC001VAL” , .T. , .T. , {ODLGPLA:ACOLS,ODLGPLA:AHEADER}) LOCA001.PRW – FSTATUS() -> ARET := EXECBLOCK(“LC001LEG” , .T. , .T. , {ARET}) LOCA001.PRW – LOCA00101() -> EXECBLOCK(“LC001COR” , .T. , .T. , {ALEGENDA,ACORES}) LOCA001.PRW – LOCA00103() -> CTUDOOK += ‘ EXECBLOCK(“FP0TDOK”,.F.,.F.)’ LOCA001.PRW – LOCA00103() -> EXECBLOCK(“LC001GRV” , .T. , .T. , {,,FP0->FP0_PROJET,.T.}) LOCA001.PRW – LOCA00104() -> EXECBLOCK(“LC001INC” , .T. , .T. , {FP0->FP0_FILIAL,FP0->FP0_PROJET}) LOCA001.PRW – LOCA00105() -> EXECBLOCK(“LC001AJU” , .T. , .T. , {FP0->FP0_FILIAL,FP0->FP0_PROJET,COPC}) LOCA001.PRW – LOCA00105() -> LRET := EXECBLOCK(“LC001MAN” , .T. , .T. , {FP0->FP0_FILIAL,FP0->FP0_PROJET,COPC}) LOCA001.PRW – LOCA00140() -> CCOD := EXECBLOCK(“LC001NUM”,.T.,.T.,{CCOD}) LOCA001.PRW – LOCA00141() -> EXECBLOCK(“LC001LOC”,.F.,.T.,{ “ATUALIZA”}) LOCA001.PRW – LOCA00141() -> _CCPONAO := EXECBLOCK(“LC001CPN”,.T.,.T.,{_CCPONAO}) LOCA001.PRW – LOCA00157() -> LRET := EXECBLOCK(“LC00157” , .T. , .T. , {ODLGPLA}) LOCA001.PRW – LOCA00162() -> EXECBLOCK(“LCPOSCAN”,.T.,.T.,NIL) LOCA001.PRW – LOCA00162() -> _LCANC := EXECBLOCK(“LC001CAN”,.T.,.T.,NIL) LOCA001.PRW – LOCA00163() -> EXECBLOCK(“LC001REV”,.T.,.T.,{ CPROJET, CPROJETNEW }) LOCA001.PRW – LOCA00172() -> _LRET := EXECBLOCK(“LC01ADD”,.F.,.F.) LOCA001.PRW – LOCA00174() -> LRET := EXECBLOCK(“LC001VCT”,.T.,.T.,{CPROJET}) LOCA001.PRW – LOCA00174() -> LRET := EXECBLOCK(“LC001VML”,.T.,.T.,{}) LOCA001.PRW – LOCA00190() -> _LRET := EXECBLOCK(“LC01DEL5”,.T.,.T.,{ODLGGUI}) LOCA001.PRW – LOCA00195() -> EXECBLOCK(“LOCA017” , .T. , .T. , {ODLGPLA, _NX }) LOCA001.PRW – MUDAGUIB() -> _CCPONAO := EXECBLOCK(“LC001CPN”,.T.,.T.,{_CCPONAO}) LOCA001.PRW – RETGETD() -> EXECBLOCK(“LCTURFIM”,.T.,.T.,{}) LOCA001.PRW – TURVAL() -> ACOLS := EXECBLOCK(“LCTURINI”,.T.,.T.,{ ACOLS, ODLGGUI }) LOCA001.PRW – TURVAL() -> ACPOALTER := EXECBLOCK(“LCTURCPO”,.T.,.T.,{ ACPOALTER } ) LOCA001.PRW – TURVAL() -> NSTYLE := EXECBLOCK(“LCTURALT”,.T.,.T.,{ } ) LOCA001.PRW – VALFP0() -> _LRET := EXECBLOCK(“FP0TDOK”,.F.,.F.) LOCA001.PRW – VALID() -> IF !EXECBLOCK(“LC001VAL”,.T.,.T.,{ODLGCAR:ACOLS, ODLGCAR:AHEADER}) LOCA001.PRW – VALID() -> IF !EXECBLOCK(“LC001VAL”,.T.,.T.,{ODLGGUI:ACOLS, ODLGGUI:AHEADER}) LOCA001.PRW – VALID() -> IF !EXECBLOCK(“LC001VAL”,.T.,.T.,{ODLGPLA:ACOLS, ODLGPLA:AHEADER}) LOCA001.PRW – VALID() -> LEXCLZUC := EXECBLOCK(“LOCA008”,.T.,.T.,{FQ5->FQ5_FILORI, FQ5->FQ5_SOT, FQ5->FQ5_OBRA, FQ5->FQ5_AS, FQ5->FQ5_VIAGEM}) LOCA001.PRW – XMENUDEF() -> AROTINA := EXECBLOCK(“LC001ROT” , .T. , .T. , {AROTINA,AROTINA1}) LOCA003.PRW – REMOVEITEM() -> EXECBLOCK(“_LOCA03PE” , .T. , .T. , {OERROR}) LOCA003.PRW – SETDATA() -> EXECBLOCK(“_LOCA03PE” , .T. , .T. , {OERROR}) LOCA003.PRW – SETORDER() -> EXECBLOCK(“_LOCA03PE” , .T. , .T. , {OERROR}) LOCA005.PRW – ACEIT2() -> ACPOSIM := EXECBLOCK(“ZBXACTEL”,.T.,.T.,{ACPOSIM}) LOCA005.PRW – FACEITAM() -> LGRAVA := EXECBLOCK(“ZBXACVLD”,.T.,.T.,{GDFIELDGET(“FPF_DATA”, NI), GDFIELDGET(“FPF_DATA”, NI), GDFIELDGET(“FPF_STATUS”, NI), GDFIELDGET(“FPF_HORAI”, NI), GDFIELDGET(“FPF_HORAF”, NI)}) LOCA005.PRW – FACEITM2() -> LGRAVA := EXECBLOCK(“ZBXACVLD”,.T.,.T.,{GDFIELDGET(“FPF_DATA”, NI), GDFIELDGET(“FPF_DATA”, NI), GDFIELDGET(“FPF_STATUS”, NI), GDFIELDGET(“FPF_HORAI”, NI), GDFIELDGET(“FPF_HORAF”, NI)}) LOCA005.PRW – FBAIXAM() -> EXECBLOCK(“ZBXBXFIM”,.T.,.T.,{FPF->FPF_MINUTA, OBROWSE}) LOCA005.PRW – FBAIXAM() -> IF !EXECBLOCK(“ZBXBXVLD”,.T.,.T.,{ATABAUX, ARECNOSZBX}) LOCA005.PRW – FCANCELAM() -> EXECBLOCK(“ZBXCANMI”,.T.,.T.,{FPF->FPF_MINUTA, FPF->FPF_STATUS, FPF->FPF_AS}) LOCA005.PRW – FESTORNAM() -> EXECBLOCK(“ZBXESTMI”,.T.,.T.,{FPF->FPF_MINUTA, CSTATUS, ATABAUX[NPOS,NPOSSTA], FPF->FPF_AS}) LOCA005.PRW – FESTORNAM() -> LESTOK := EXECBLOCK(“ZBXESTVL”,.T.,.T.,{CSTATUS, ATABAUX[NPOS,NPOSSTA]}) LOCA005.PRW – FMONTAZBX() -> CQRY += EXECBLOCK(“ZBXQRYWH”,.T.,.T.,{NRECNOATU, CPERG}) LOCA005.PRW – FMONTAZBX() -> CQRY := EXECBLOCK(“ZBXQRY”,.T.,.T.,{CQRY}) LOCA005.PRW – FTROCAFRO() -> EXECBLOCK(“ZBXTEQFM”,.T.,.T.,{CFROTAP}) LOCA005.PRW – FZBXBAIX() -> ABUTTONS := EXECBLOCK(“ZBXBXBUT”,.T.,.T.,{ABUTTONS,ODLG,ACOLS}) LOCA005.PRW – FZBXBAIX() -> EXECBLOCK(“ZBXCANBX”,.T.,.T.,{ACOLS}) LOCA005.PRW – LOCA005() -> AROTINAUSU := EXECBLOCK(“LOCA006”,.F.,.F.,AROTINA) LOCA005.PRW – LOCA00520() -> _LBLOQ := EXECBLOCK(“ZBXBXVHR”,.T.,.T.,{ACOLS, AHEADER}) LOCA005.PRW – LOCA00521() -> AFILT9QRY := EXECBLOCK(“FILT9QRY”, .T., .T., {_DDATA, _CHRINI, _CHRFIM, _CFROTAD}) LOCA007.PRW – LOCA007() -> AROTINA := EXECBLOCK(“LCZC1ROT”,.T.,.T.,{AROTINA}) LOCA007.PRW – LOCA007() -> CFILTRO += EXECBLOCK(“LC007FIL” , .T. , .T. , {CFILTRO}) LOCA007.PRW – LOCA007() -> CFILTRO := EXECBLOCK(“LCZC1FIL”,.T.,.T.) LOCA007.PRW – LOCA00701() -> ASTATUS := EXECBLOCK(“ZC1ADLEG”,.T.,.T.,{ASTATUS}) LOCA007.PRW – LOCA00715() -> ANOVO := EXECBLOCK(“ZC1NOCOP”,.T.,.T.,{ANOVO}) LOCA007.PRW – LOCA00717() -> ABUTTONS := EXECBLOCK(“LOCA007A” , .T. , .T. , {ABUTTONS}) LOCA007.PRW – LOCA00717() -> EXECBLOCK(“LOCA007D” , .T. , .T. , {NRET,3}) LOCA007.PRW – LOCA00718() -> ABUTTONS := EXECBLOCK(“LOCA007B” , .T. , .T. , {ABUTTONS}) LOCA007.PRW – LOCA00718() -> EXECBLOCK(“LOCA007D” , .T. , .T. , {NRET ,4}) LOCA007.PRW – LOCA00718() -> IF !EXECBLOCK(“LC0718VL”, .F., .F.) LOCA007.PRW – LOCA00719() -> EXECBLOCK(“LCZC1EXC”,.T.,.T.,{_NRECNO, _CTIPO, _CDOCORI, _NRECORI}) LOCA007.PRW – LOCA00719() -> EXECBLOCK(“LOCA007D” , .T. , .T. , {NRET ,5}) LOCA007.PRW – LOCA00722() -> ABUTTONS := EXECBLOCK(“LOCA007C” , .T. , .T. , {ABUTTONS}) LOCA010.PRW – GERPED() -> ACAMPOSSC5 := EXECBLOCK(“GERREMC5” , .T. , .T. , {ACAMPOSSC5}) LOCA010.PRW – GERPED() -> CTESLF := EXECBLOCK(“GERREMTES”,.T.,.T.,{CTESLF}) LOCA010.PRW – GERPED() -> EXECBLOCK(“GERREFLOG”,.T.,.T.,{ZAGTMP->FPA_GRUA, NVALPROD, ZAGTMP->FPA_PRODUT}) LOCA010.PRW – GERPED() -> EXECBLOCK(“GERREMFIM”,.T.,.T.,{_CNOTA,_CPEDIDO,ACAMPOSSC5,ACAMPOSSC6}) LOCA010.PRW – GERPED() -> EXECBLOCK(“LOCA10Z”,.T.,.T.,{}) LOCA010.PRW – GERPED() -> _CTXT += EXECBLOCK(“GRVC5OBS”,.T.,.T.,{_CTXT, IIF(LNFREMBE, ZAGTMP->FILTRAB,ZAGTMP->FPA_FILIAL)}) LOCA010.PRW – ITENSPED() -> CQUERY := EXECBLOCK(“NFREMQRY” , .T. , .T. , {CQUERY}) LOCA010.PRW – LOCA010() -> _LGERA := EXECBLOCK(“LOCA012” , .T. , .T. , NIL) LOCA010.PRW – MARCAITEM() -> LTEM := EXECBLOCK(“TEMROMAN”,.T.,.T.,{.F., _AARRAY, NAT, NPOS, .F.}) LOCA010.PRW – MARCATUDO() -> LTEM:= EXECBLOCK(“TEMROMAN”,.T.,.T.,{.F., _AARRAY, NX, NPOS,IIF(LFIRST,.T.,.F.)}) LOCA010.PRW – NFREMBE() -> XCQUERY := EXECBLOCK(“NFREMQR2”,.T.,.T.,{XCQUERY, ANFREMLB }) LOCA011.PRW – EXECDE() -> LFORCA := EXECBLOCK(“LOCA11A”,.T.,.T.,{}) LOCA011.PRW – GRVNFE() -> ALINHA := EXECBLOCK(“NFRTITEM”,.T.,.T.,{ALINHA}) LOCA011.PRW – LOCA01101() -> LFORCA := EXECBLOCK(“LOCA11B”,.T.,.T.,{}) LOCA011.PRW – LOCA01101() -> LFORCA := EXECBLOCK(“LOCA11C”,.T.,.T.,{}) LOCA011.PRW – LOCA01101() -> LFORCA := EXECBLOCK(“LOCA11D”,.T.,.T.,{}) LOCA011.PRW – LOCA01101() -> LFORCA := EXECBLOCK(“LOCA11F”,.T.,.T.,{}) LOCA011.PRW – LOCA01101() -> _NZUC := EXECBLOCK(“LOCA11E”,.T.,.T.,{}) LOCA011.PRW – LOCA01102() -> LFORCA := EXECBLOCK(“LOCA11G”,.T.,.T.,{}) LOCA011.PRW – LOCA01102() -> LFORCA := EXECBLOCK(“LOCA11H”,.T.,.T.,{}) LOCA013.PRW – LOCA01301() -> IF !EXECBLOCK(“GRCANVLD”,.T.,.T.,{ST9->T9_STATUS,TQY->TQY_STATUS,FPA->FPA_PROJET,””,””}) LOCA013.PRW – LOCA01301() -> _LGERAR := EXECBLOCK(“GRCTVLD”,.T.,.T.,{}) LOCA013.PRW – LOCA01302() -> EXECBLOCK(“GRCTLFIM”,.T.,.T.,{AASNOVA}) LOCA013.PRW – LOCA01302() -> XRET := EXECBLOCK( “GRCONTR“, .T., .T., { “ANTESDTQ”, @ADTQ, “FP4” } )
LOCA013.PRW – LOCA01302() -> XRET := EXECBLOCK( “GRCONTR_”, .T., .T., { “ANTESDTQ”, @ADTQ, “FPA” } )
LOCA013.PRW – LOCA01302() -> XRET := EXECBLOCK( “GRCONTR_”, .T., .T., { “ANTESDTQ”, @ADTQ, “ZA6” } )
LOCA021.PRW – GERAPV() -> ACOMPLEX := EXECBLOCK(“LOCA021P” , .T. , .T. , {1} )
LOCA021.PRW – GERAPV() -> ACOMPLEX := EXECBLOCK(“LOCA021P” , .T. , .T. , {3} )
LOCA021.PRW – GERAPV() -> ACOMPLEX := EXECBLOCK(“LOCA021Q” , .T. , .T. , {1} )
LOCA021.PRW – GERAPV() -> ACOMPLEX := EXECBLOCK(“LOCA021Q” , .T. , .T. , {3} )
LOCA021.PRW – GERAPV() -> EXECBLOCK(“LCJATFIM” , .T. , .T. , NIL)
LOCA021.PRW – GERAPV() -> EXECBLOCK(“LCJATFPG” , .T. , .T. , {})
LOCA021.PRW – GERAPV() -> EXECBLOCK(“LCJATZAG” , .T. , .T. , {})
LOCA021.PRW – GERAPV() -> EXECBLOCK(“LCJLFFIM” , .T. , .T. , {CPAR09,CPAR10})
LOCA021.PRW – GERAPV() -> EXECBLOCK(“LCJLFFRT” , .T. , .T. , {LPRIMFAT , _NVLRFRETE}) LOCA021.PRW – GERAPV() -> EXECBLOCK(“LCJLFINI” , .T. , .T. , NIL) LOCA021.PRW – GERAPV() -> EXECBLOCK(“LOCA061Z” , .T. , .T. , {_ACABPV,_AITENSPV,_AZC1FAT,LGERAPVX}) LOCA021.PRW – GERAPV() -> NDIASTRB := EXECBLOCK(“LOCA021C” , .T. , .T. ) LOCA021.PRW – GERAPV() -> NFORCA := EXECBLOCK(“LOCA021F” , .T. , .T. , {} ) LOCA021.PRW – GERAPV() -> NFORCA := EXECBLOCK(“LOCA021G” , .T. , .T. , {} ) LOCA021.PRW – GERAPV() -> NFORCA := EXECBLOCK(“LOCA021H” , .T. , .T. , {} ) LOCA021.PRW – GERAPV() -> NFORCA := EXECBLOCK(“LOCA021I” , .T. , .T. , {} ) LOCA021.PRW – GERAPV() -> NFORCA := EXECBLOCK(“LOCA021J” , .T. , .T. , {} ) LOCA021.PRW – GERAPV() -> NFORCA := EXECBLOCK(“LOCA021K” , .T. , .T. , {} ) LOCA021.PRW – GERAPV() -> NFORCA := EXECBLOCK(“LOCA021L” , .T. , .T. , {} ) LOCA021.PRW – GERAPV() -> NFORCA := EXECBLOCK(“LOCA021M” , .T. , .T. , {} ) LOCA021.PRW – GERAPV() -> NFORCA := EXECBLOCK(“LOCA021N” , .T. , .T. , {} ) LOCA021.PRW – GERAPV() -> NFORCA := EXECBLOCK(“LOCA021O” , .T. , .T. , {} ) LOCA021.PRW – GERAPV() -> _ACABPV := EXECBLOCK(“LCJLFCAB” , .T. , .T. , {_ACABPV,”C”}) LOCA021.PRW – GERAPV() -> _AITEMTEMP := EXECBLOCK(“LCJLFITE” , .T. , .T. , {_AITEMTEMP}) LOCA021.PRW – GERAPV() -> _AITENSPV := EXECBLOCK(“LCJLFCAB” , .T. , .T. , {_AITENSPV,”I”}) LOCA021.PRW – GERAPV() -> _CDESCXA := EXECBLOCK(“LOCA021A” , .T. , .T. , {FPG->(RECNO()),2}) LOCA021.PRW – GERAPV() -> _CDESCXA := EXECBLOCK(“LOCA021A” , .T. , .T. , {TRBFPG->ZC1RECNO,2}) LOCA021.PRW – GERAPV() -> _CNATUREZ := EXECBLOCK(“LCJNAT” , .T. , .T. , {_CNATUREZ}) LOCA021.PRW – GERAPV() -> _CPERLOC := EXECBLOCK(“LOCA021D” , .T. , .T., {_CPERLOC} ) LOCA021.PRW – GERAPV() -> _CPRODXA := EXECBLOCK(“LOCA021A” , .T. , .T. , {FPG->(RECNO()),1}) LOCA021.PRW – GERAPV() -> _CPRODXA := EXECBLOCK(“LOCA021A” , .T. , .T. , {TRBFPG->ZC1RECNO,1}) LOCA021.PRW – GERAPV() -> _CQUERY := EXECBLOCK(“LCJLFQRY” , .T. , .T. , {_CQUERY}) LOCA021.PRW – GERAPV() -> _CTES := EXECBLOCK(“LCJTES” , .T. , .T. , {_CTES}) LOCA021.PRW – GERAPV() -> _NDIASX := EXECBLOCK(“LOCA021C” , .T. , .T. ) LOCA021.PRW – GRAVANFS() -> _CSERIE := EXECBLOCK(“LCJSER” , .T. , .T. , {_CSERIE}) LOCA021.PRW – VALPROC() -> LRET := EXECBLOCK(“LCJF1VLD” , .T. , .T. , NIL) LOCA029.PRW – GERNFINSU() -> CTESLF := EXECBLOCK(“GERREMTES”,.T.,.T.,{CTESLF}) LOCA029.PRW – LOCA02903() -> LRET := EXECBLOCK(“LOCA064” , .T. , .T. , {“L0501_GNFE”}) LOCA029.PRW – LOCA02903() -> LRET := EXECBLOCK(“LOCA064”,.T.,.T.,{“L0501_VAL_ANT_NFREM”}) LOCA029.PRW – LOCA02903() -> LRET := EXECBLOCK(“LOCA064”,.T.,.T.,{“L0501_VAL_ANT_NFRET”}) LOCA029.PRW – LOCA02903() -> LRET := EXECBLOCK(“LOCA064”,.T.,.T.,{“L0501_VAL_POS_NFRET”}) LOCA029.PRW – LOCA02904() -> IF EXECBLOCK(“CLIBLOQ” , .T. , .T. , {FP0->FP0_CLI, FP0->FP0_LOJA, .T.}) LOCA029.PRW – LOCA02905() -> EXECBLOCK(“LOCA029B” , .T. , .T. , {LRET}) LOCA029.PRW – LOCA02905() -> LRET := EXECBLOCK(“LOCA029A” , .T. , .T. , {FQ3->(RECNO())}) LOCA029.PRW – LOCA02907() -> _ALEGENDA := EXECBLOCK(“LOCA029E” , .T. , .T. , {_ALEGENDA}) LOCA029.PRW – LOCA02908() -> _NCOR := EXECBLOCK(“LOCA029D” , .T. , .T. , {_NCOR}) LOCA040.PRW – FCANCELAR() -> EXECBLOCK(“LC145ACE”,.T.,.T.,{LVERZBX,_LEXCZAG,FP4->FP4_PROJET,FQ5->FQ5_AS,FQ5->FQ5_VIAGEM,FP4->FP4_OBRA, FP4->FP4_SEQGUI}) LOCA040.PRW – FCANCELAR() -> EXECBLOCK(“LC145ACE”,.T.,.T.,{LVERZBX,_LEXCZAG,FPA->FPA_PROJET,FQ5->FQ5_AS,FQ5->FQ5_VIAGEM}) LOCA040.PRW – FSELECIONA() -> AITENS := EXECBLOCK(“LC145SEL”,.T.,.T.,{AITENS, NAT, LQUIET, LACAO}) LOCA044.PRW – FFOLDERDES() -> ACAMPOSSIM := EXECBLOCK(“LOCT002A”,.T.,.T.,{ACAMPOSSIM}) LOCA048.PRW – FCOLS() -> ACOLS := EXECBLOCK(“LC035COL”,.T.,.T.,{AHEADER,ACOLS}) LOCA048.PRW – FSALVAR() -> LRET := EXECBLOCK(“LC035TOK”,.T.,.T.,{ODLG}) LOCA048.PRW – FSALVAR001() -> AROTINA := EXECBLOCK(“LC035GRV”,.T.,.T.) LOCA048.PRW – FSALVAR001() -> EXECBLOCK(“LC35PGRV”,.T.,.T.,{ CAS }) LOCA048.PRW – FSALVARZLF() -> EXECBLOCK(“LC035ZLF”,.T.,.T.,{FQ5->FQ5_AS}) LOCA048.PRW – FSALVARZLM() -> EXECBLOCK(“LC35PZLM”,.T.,.T.,{ FPF->FPF_AS, FPF->FPF_DATA, FPF->FPF_HORAI, FPF->FPF_HORAF, “DELETA” }) LOCA048.PRW – FSALVARZLM() -> EXECBLOCK(“LC35PZLM”,.T.,.T.,{ FPF->FPF_AS, FPF->FPF_DATA, FPF->FPF_HORAI, FPF->FPF_HORAF, “GRAVA” }) LOCA048.PRW – LOCA048() -> AROTINA := EXECBLOCK(“LC035ROT” ,.T.,.T.,{AROTINA}) LOCA048.PRW – LOCA048() -> CFILTRO := EXECBLOCK(“LOC035FIL”,.T.,.T.,{CPROJECT}) LOCA048.PRW – LOCA04801() -> ABNTENCHOI := EXECBLOCK(“LC035MBT”,.T.,.T.,{ABNTENCHOI}) LOCA048.PRW – LOCA04801() -> ABNTENCHOI := EXECBLOCK(“LC035OBS” , .T. , .T. , {ABNTENCHOI}) LOCA048.PRW – LOCA04801() -> ACAMPOSSIM := EXECBLOCK(“LC035CPI”,.T.,.T.,{ACAMPOSSIM}) LOCA048.PRW – LOCA04801() -> AITENS := EXECBLOCK(“LC035BRW”,.T.,.T.) LOCA048.PRW – LOCA04801() -> EXECBLOCK(“LC035BRW”,.T.,.T.) LOCA048.PRW – LOCA04801() -> EXECBLOCK(“LC035TEL”,.F.,.F.,NIL) LOCA048.PRW – LOCA04801() -> _CTIPOX := EXECBLOCK(“LOCA018”,.T.,.T., {LINCLUI}) LOCA048.PRW – LOCA04804() -> _CTIPOX := EXECBLOCK(“LOCA018”,.T.,.T., {.F.}) LOCA048.PRW – LOCA04805() -> EXECBLOCK(“LOC035LEG”,.T.,.T.) LOCA048.PRW – LOCA04816() -> EXECBLOCK(“LC35PCAN”,.T.,.T.,{FPN->FPN_AS}) LOCA052.PRW – FFOLDERFRO() -> ACAMPOSSIM := EXECBLOCK(“LC049FRO”,.T.,.T.,{ ACAMPOSSIM }) LOCA052.PRW – LOCA05227() -> _LRET := EXECBLOCK(“LC49DZLG”,.T.,.T.,{ODLGFRO}) LOCA053.PRW – LOCA05312() -> _LRET := EXECBLOCK(“LC53DZLO”,.T.,.T.,{ODLGLO}) LOCA059.PRW – CARGAFQ5() -> EXECBLOCK(“LOCA59H”,.T.,.T.,{}) LOCA059.PRW – CARGAFQ5() -> LFORCA := EXECBLOCK(“LOCA59G”,.T.,.T.,{}) LOCA059.PRW – CARGAFQ5() -> LFORCA := EXECBLOCK(“LOCA59I”,.T.,.T.,{}) LOCA059.PRW – CRIAZLG() -> EXECBLOCK(“LC111ZLG”,.T.,.T.,{ LZLT }) LOCA059.PRW – EXCLUISC() -> LFORCA := EXECBLOCK(“LOCA59N”,.T.,.T.,{}) LOCA059.PRW – EXCLUISC() -> LFORCA := EXECBLOCK(“LOCA59O”,.T.,.T.,{}) LOCA059.PRW – FACEMINUTA() -> EXECBLOCK(“LC111ACE”,.T.,.T.,{FQ5->FQ5_AS , CTITULO , CMSG}) LOCA059.PRW – FACEMINUTA() -> LANTACE := EXECBLOCK(“LC111ANT”,.T.,.T.,{ FQ5->FQ5_AS, CTITULO, CMSG, CLOTE }) LOCA059.PRW – FAJUSTAZBX() -> EXECBLOCK(“LC111ZBX”,.T.,.T., NIL) LOCA059.PRW – GERASC() -> LFORCA := EXECBLOCK(“LOCA59J”,.T.,.T.,{}) LOCA059.PRW – GERASC() -> LFORCA := EXECBLOCK(“LOCA59K”,.T.,.T.,{}) LOCA059.PRW – GERASC() -> LFORCA := EXECBLOCK(“LOCA59L”,.T.,.T.,{}) LOCA059.PRW – LGERPRG() -> LRET := EXECBLOCK(“LC111MSG”,.T.,.T.,) LOCA059.PRW – LOCA059() -> ACORES := EXECBLOCK(“LC111COR”,.T.,.T.,{ACORES}) LOCA059.PRW – LOCA059() -> AROTINA := EXECBLOCK(“LC111ROT”,.T.,.T.,{AROTINA}) LOCA059.PRW – LOCA059() -> CEXPFILTRO += EXECBLOCK(“LC059FIL” , .T. , .T. , {CEXPFILTRO}) LOCA059.PRW – LOCA05901() -> ALEGENDA := EXECBLOCK(“LC111LEG”,.T.,.T.,{ALEGENDA}) LOCA059.PRW – LOCA05907() -> EXECBLOCK(“LC111REJ”,.T.,.T.,{FQ5->FQ5_FILIAL, FQ5->FQ5_FILORI, FQ5->FQ5_SOT, FQ5->FQ5_OBRA, FQ5->FQ5_AS}) LOCA059.PRW – LOCA05907() -> _LREJ := EXECBLOCK(“LC111VRJ”,.T.,.T.,NIL) LOCA059.PRW – LOCA05908() -> EXECBLOCK(“LC111ACE”,.T.,.T.,{FQ5->FQ5_AS , “” , “”}) LOCA059.PRW – LOCA05908() -> EXECBLOCK(“LC111ACE”,.T.,.T.,{FQ5->FQ5_AS , CTITULO , CMSG , CLOTE}) LOCA059.PRW – LOCA05908() -> EXECBLOCK(“LC111ACE”,.T.,.T.,{FQ5->FQ5_AS , CTITULO , CMSG}) LOCA059.PRW – LOCA05908() -> LANTACE := EXECBLOCK(“LC111ANT”,.T.,.T.,{ FQ5->FQ5_AS, CTITULO, CMSG, CLOTE }) LOCA059.PRW – LOCA05908() -> LFORCA := EXECBLOCK(“LOCA59B”,.T.,.T.,{}) LOCA059.PRW – LOCA05908() -> LFORCA := EXECBLOCK(“LOCA59C”,.T.,.T.,{}) LOCA059.PRW – LOCA05908() -> LFORCA := EXECBLOCK(“LOCA59D”,.T.,.T.,{}) LOCA059.PRW – LOCA05908() -> LFORCA := EXECBLOCK(“LOCA59Z”,.T.,.T.,{}) LOCA059.PRW – LOCA05908() -> _LRET := EXECBLOCK(“LC111AC1”,.T.,.T.,{FQ5->FQ5_GUINDA, FQ5->FQ5_AS, FQ5->FQ5_VIAGEM, CLOTE }) LOCA059.PRW – LOCA05908() -> _LRET := EXECBLOCK(“LOCA59A”,.T.,.T.,{}) LOCA059.PRW – LOCA05916() -> ALINHA := EXECBLOCK(“LC111LFL”,.T.,.T.,{ALINHA}) LOCA059.PRW – LOCA05916() -> CMSG += EXECBLOCK(“LC111USR”, .T., .T., {_NTPACE, CACAO}) + CRLF + CRLF LOCA059.PRW – LOCA05916() -> CTITULO := EXECBLOCK(“LC111TIT”, .T., .T., {_NTPACE, _CPRJOLD}) LOCA059.PRW – LOCA05916() -> EXECBLOCK(“LC111LBT”,.T.,.T.,{_CQUERY, _NTPACE}) LOCA059.PRW – LOCA05916() -> _AALX := EXECBLOCK(“LC111LQR”,.T.,.T.,{_CQUERY}) LOCA059.PRW – LOCA05920() -> ACAB := EXECBLOCK(“LTREQCAB”,.T.,.T.,{ACAB}) LOCA059.PRW – LOCA05921() -> EXECBLOCK(“LC111TEQ”,.T.,.T.,{ATROCA[NX,ASCAN(OLBX1:AHEADER,{|X|ALLTRIM(X[2])==”EQUIPNV”})]}) LOCA059.PRW – LOCA05925() -> LFORCA := EXECBLOCK(“LOCA59E”,.T.,.T.,{}) LOCA059.PRW – LOCA05925() -> LFORCA := EXECBLOCK(“LOCA59F”,.T.,.T.,{}) LOCA059.PRW – LOCA05929() -> LFORCA := EXECBLOCK(“LOCA59P”,.T.,.T.,{}) LOCA059.PRW – LOCA05930() -> NFORCA := EXECBLOCK(“LOCA59M”,.T.,.T.,{}) LOCA059.PRW – MARCARREGI() -> LTEM := EXECBLOCK(“MARKREG”,.T.,.T.,{LTODOS, ALINHA, NI, ASCAN(ALINHA , { |X| X[1] == .T. } ),IIF(LFIRST,.T.,.F.)}) LOCA059.PRW – MARCARREGI() -> LTEM := EXECBLOCK(“MARKREG”,.T.,.T.,{LTODOS, ALINHA, OLBX:NAT, ALINHA[OLBX:NAT,1], .F.}) LOCA059.PRW – VALIDLIN() -> LRET := EXECBLOCK(“LCVLDLIN”,.T.,.T.,{}) LOCA059.PRW – VALIDTROCAEQ() -> LRET := EXECBLOCK(“VALGRUA”,.T.,.T.,{.T.,ATROCA[NX,ASCAN(OLBX1:AHEADER,{|X|ALLTRIM(X[2])==”EQUIPNV”})]}) LOCA079.PRW – CSVPROCESS() -> CTEMP := EXECBLOCK(“LOCA7903” , .T. , .T. , {CTEMP}) LOCA079.PRW – CSVPROCESS() -> LCABQUEBRA := EXECBLOCK(“LOCA7904” , .T. , .T. , {_ADADOS[1]}) LOCA079.PRW – CSVPROCESS() -> _ADADOS[NX] := EXECBLOCK(“LOCA7902” , .T. , .T. , {_ADADOS[NX]}) LOCARG.PRW – P_IBBA() -> CQRYSF3 := EXECBLOCK (“LCARGSIAP”,.F.,.F.,{“PERC”,CPROV}) LOCARG.PRW – R_IBBA() -> CQRYSF3 := EXECBLOCK (“LCARGSIAP”,.F.,.F.,{“RET”,CPROV}) LOCXARG.PRW – LOCX2TIPSER() -> CCODSERIE := EXECBLOCK(CPE,.F.,.F.,{CTIPODOC, CTIPO, CCODSERIE}) LOCXARG.PRW – XCLIFORARG() -> LALTPROV := EXECBLOCK(CPE,.F.,.F.,{READVAR(),CPROVANT,CPROV}) LOCXFAT.PRX – A460ATUARG() -> EXECBLOCK( “M468SD2” ) LOCXFUN.PRX – A100TESXIP() -> AIMPOSTO := EXECBLOCK( CFILERDMK,.F.,.F., { AIMPVARSD1, AIMPOSTO,; LOCXFUN.PRX – A460TESXIP() -> AIMPOSTO := EXECBLOCK( CFILERDMK,.F.,.F., { AIMPVARSD2, AIMPOSTO,; LOCXFUN.PRX – A460TESXIP() -> AIMPOSTO := EXECBLOCK( CFILERDMK,.F.,.F., { AIMPVARSD2, AIMPOSTO,NPOSCOLS, AIMPOSTO[6],0} ,.T. ) LOCXFUN.PRX – CALCIMPGER() -> AIMPOSTO := EXECBLOCK( ALLTRIM(SFB->FB_FORMENT),.F.,.F., { AIMPVAR, AIMPOSTO,NIL; LOCXFUN.PRX – CALCTESXIP() -> AIMPOSTO := EXECBLOCK( CFILERDMK,.F.,.F., { AIMPVARSD2, AIMPOSTO,; LOCXFUN.PRX – GETBOOK() -> PRIVATE NTAXA := NTAXAL LOCXFUN.PRX – GRVORIGEM() -> CORIGEM := EXECBLOCK(“CA050ORI”,.F.,.F.) LOCXFUN.PRX – GRVTITLOC() -> ACPOPE := EXECBLOCK(“FS011CPO”,.F.,.F.) LOCXFUN.PRX – MAFISF3EIC() -> EXECBLOCK(“MAF3EIC”,.F.,.F.) LOCXFUN.PRX – OLDTESXIP() -> AIMPOSTO := EXECBLOCK( CFILERDMK,.F.,.F., { AIMPVARSD2, AIMPOSTO,; LOCXFUN.PRX – RETCF() -> CNIT := EXECBLOCK(“PARCDCTR”,.F.,.F.,{ADADOS[2],ADADOS[4]}) LOCXFUNA.PRX – A410CALCDESC() -> ACOLS[NCNTFOR][NPOSPRUNIT] := EXECBLOCK(“CLIXART”,.F.,.F., {ACOLS[NCNTFOR][NPOSPROD],M->CJ_CLIENTE+M->CJ_LOJA,M->CJ_TABELA,1} ) LOCXFUNA.PRX – A410CALCDESC() -> ACOLS[N][NPOSPRUNIT] := EXECBLOCK(“CLIXART”,.F.,.F., {ACOLS[N][NPOSPROD],M->CJ_CLIENTE+M->CJ_LOJA,M->CJ_TABELA,1} ) LOCXFUNA.PRX – A410CALCDESC() -> ACOLS[N][NPOSPRUNIT] := EXECBLOCK(“CLIXART”,.F.,.F.,{ACOLS[N][NPOSPROD],M->C5_CLIENTE+M->C5_LOJACLI,M->C5_TABELA,1} ) LOCXFUNA.PRX – A410CALCDESC() -> NPERCITEM := EXECBLOCK(“CLIXART”,.F.,.F., {M->CK_PRODUTO,M->CJ_CLIENTE+M->CJ_LOJA,M->CJ_TABELA,2} ) LOCXFUNA.PRX – A410CALCDESC() -> NPERCITEM :=EXECBLOCK(“CLIXART”,.F.,.F.,{ACOLS[N][NPOSPROD],M->C5_CLIENTE+M->C5_LOJACLI,M->C5_TABELA,2 }) LOCXFUNA.PRX – A467CALCDESC() -> ACOLS[NCNTFOR][NPOSPRUNIT] := EXECBLOCK(“CLIXART”,.F.,.F.,{ACOLS[NCNTFOR][NPOSPROD],CA467CLI+CLOJA,STRZERO(NLISTA,1),1} ) LOCXFUNA.PRX – A467CALCDESC() -> ACOLS[NCNTFOR][NPOSPRUNIT] :=EXECBLOCK(“CLIXART”,.F.,.F., {ACOLS[NCNTFOR][NPOSPROD],CA467CLI+CLOJA,STRZERO(NLISTA,1),1} ) LOCXFUNA.PRX – A467CALCDESC() -> ACOLS[N][NPOSPRUNIT] := EXECBLOCK(“CLIXART”,.F.,.F., {ACOLS[N][NPOSPROD],CA467CLI+CLOJA,STRZERO(NLISTA,1),1} ) LOCXFUNA.PRX – A467CALCDESC() -> NPERCITEM := EXECBLOCK(“CLIXART”,.F.,.F., {ACOLS[N][NPOSPROD],CA467CLI+CLOJA,STRZERO(NLISTA,1),2} ) LOCXFUNA.PRX – CALCVALTRC() -> AAUX := EXECBLOCK(“FORMSTRC”,.F.,.F.) LOCXFUNA.PRX – CFDGERXML() -> PROCESSA({ |LEND| EXECBLOCK(“M475IMPPER”,.F.,.F.,{CESPECIE, CSERIE, CFATURA, CTIPODOC, CCODIGO, CLOJA, .T.})}, STR0130) LOCXFUNA.PRX – FXMLFUN() -> ACONCEPTO := EXECBLOCK(“LOCXCONCEP”,.F.,.F.,{SUBSTR(ADETFAC[NX][2],CTAMANO+1),SUBSTR(ADETFAC[NX][2],1,CTAMANO)}) LOCXGEN.PRW – LOCKCLICK() -> LM485PE := EXECBLOCK(“M465DORIFE”,.F.,.F.,{SF2->F2_FILIAL, SF2->F2_DOC, SF2->F2_SERIE, SF2->F2_CLIENTE, SF2->F2_LOJA}) LOCXGEN.PRW – LOCXGRID() -> EXECBLOCK(APECOLS[SCFIMACOLS],.F.,.F.) LOCXGEN.PRW – LOCXGRID() -> EXECBLOCK(APECOLS[SCLINACOLS],.F.,.F.) LOCXGEN.PRW – LOCXHEAD() -> EXECBLOCK(APEHEADER[SCFIMAHEADER],.F.,.F.) LOCXGEN.PRW – LOCXMOD() -> LA465CANC:= EXECBLOCK(“A465CANC”,.F.,.F.,ACFGNF[8]) LOCXGEN.PRW – LOCXVLDTP9() -> LRET := EXECBLOCK(“A410VTIP”,.F.,.F.,{LRET}) LOCXGEN.PRW – LOCXVLDTP9() -> LRET := EXECBLOCK(“M410TIP9”,.F.,.F.) LOCXGEN.PRW – LOCXVLDTP9() -> NPARCELAS := EXECBLOCK(“MT410PC”,.F.,.F.) LOCXITU.PRW – LOCXITU17() -> EXECBLOCK(“LOCXIT01” , .T. , .T. , {2, FQ9->FQ9_XATUIN}) LOCXITU.PRW – LOCXITU21() -> EXECBLOCK(“LOCX21A”,.T.,.T.,{}) LOCXITU.PRW – PROCREAJ() -> EXECBLOCK(“LOCXIT01” , .T. , .T. , {1,_AITENS[_NX,15]}) LOCXMEX.PRW – LXALQIMP() -> NVALTMP := EXECBLOCK(‘LXD2FILT’, .F., .F., {NVAL,TRBSFB->CAMPO}) LOCXNF.PRW – ATUARQNF() -> EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – ATUDIFCUSREM() -> LATUCUSREM := EXECBLOCK(“LOCCUSREM”,.F.,.F.,{ACUSTO,NQUANT,NSIGNO,CALIASTMP,ACUNITREM,AVALDIF}) LOCXNF.PRW – ATUNUMNF() -> IF VALTYPE(LRETPE := EXECBLOCK(CPE, .F., .F.,{CTABELA,CCHAVE}) ) == “L” LOCXNF.PRW – CARREGADESP() -> CQUERYPE := EXECBLOCK(CPE, .F., .F., {CQUERY,NTIPNOTA}) LOCXNF.PRW – CARREGADESP() -> EXECBLOCK(CPE,.F.,.F.,{NX}) LOCXNF.PRW – CARREGATECLAS() -> BTECLAF4 := IIF(!EMPTY(CPE),{ || EXECBLOCK(CPE,.F.,.F.)},{|| A103F4()}) LOCXNF.PRW – CPOSAUTONF() -> AADD(ACPAD, { “EXECBLOCK(‘LXHORANFIS’,.F.,.F.)”,.T. }) LOCXNF.PRW – CPOSAUTONF() -> AADD(ACPAD, { “IF(EXECBLOCK(‘MT46205′,.F.,.F.),’1′,’2’)”,.T. }) LOCXNF.PRW – CPOSOBRIGNF() -> AOBRIGSX3:=EXECBLOCK(CPE,.F.,.F.,{AOBRIGSX3,ACFGNF[SNTIPO]}) LOCXNF.PRW – ESTQNOTA() -> EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – GERSD3TRF() -> ARETPE:= EXECBLOCK(CPE,.F.,.F.,{ACPOSSD3,NEVENTO}) LOCXNF.PRW – GERTRFRET() -> ACPOSUSR := EXECBLOCK(CPE,.F.,.F.,{ACPOSSD1}) LOCXNF.PRW – GETDESCREM() -> CDESCREM :=EXECBLOCK(“LOCXDREM”,.F.,.F.) LOCXNF.PRW – GRAVACABNF() -> EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – GRAVAFINA() -> ADUPLORI :=EXECBLOCK(“MATA475DP”,.F.,.F.,{ADUPLORI,AFIN}) LOCXNF.PRW – GRAVAFINA() -> ADUPLORI:=EXECBLOCK(CPE,.F.,.F.,{ADUPLORI,AFIN}) LOCXNF.PRW – GRAVAFINA() -> EXECBLOCK(CPE,.F.,.F., ARET[1]) LOCXNF.PRW – GRAVANFGERAL() -> ARETPE72:=EXECBLOCK(CPE,.F.,.F.,{ACABNOTA,AAUTOCAB}) LOCXNF.PRW – GRAVANFGERAL() -> EXECBLOCK( “LOCXS367” , .F. , .F. ) LOCXNF.PRW – GRAVANFGERAL() -> EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – GRAVANFGERAL() -> LHASHPTG := EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – GRAVANFGERAL() -> NVALOR := EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – GRAVANFGERAL() -> XRET := EXECBLOCK(CPE,.F.,.F.,{“1”,NIL}) LOCXNF.PRW – INICIALIZAFIS() -> AC[NI,NPOSTES] := EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – LOCXAVCRED() -> NVALAV:=EXECBLOCK(“MTVALAVC”,.F.,.F.,{‘LOCXNF’,NVLRTOTAL,NIL}) LOCXNF.PRW – LOCXDELNF() -> EXECBLOCK( “LOCXS327” , .F. , .F. ) LOCXNF.PRW – LOCXDELNF() -> EXECBLOCK( “LOCXS329” , .F. , .F. ) LOCXNF.PRW – LOCXDELNF() -> EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – LOCXDELNF() -> EXECBLOCK(CPE,.F.,.F.,ACFGNF[SLCONFRDP]) LOCXNF.PRW – LOCXDELNF() -> IF !EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – LOCXDELNF() -> URET := EXECBLOCK( “LOCXVLDDEL” , .F. , .F. , {CALIAS} ) LOCXNF.PRW – LOCXDELNF() -> URET := EXECBLOCK(“LOCCADEL” , .F. , .F.) LOCXNF.PRW – LOCXDLGNF() -> CLOCXNFPV :=EXECBLOCK(“DESAPV”,.F.,.F.,) LOCXNF.PRW – LOCXDLGNF() -> IF VALTYPE(AUSBUTTONS := EXECBLOCK(CPE, .F., .F.) ) == “A” LOCXNF.PRW – LOCXDLGNF() -> LHASHPTG := EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – LOCXDLGNF() -> XRET := EXECBLOCK(CPE,.F.,.F.,NOPCA) LOCXNF.PRW – LOCXDLGNF() -> __CEXPF4 := EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – LOCXFATAUT() -> ANUMNF := EXECBLOCK(APE[31][1],.F.,.F.) LOCXNF.PRW – LOCXFATAUT() -> ANUMNF := EXECBLOCK(APE[31][2],.F.,.F.) LOCXNF.PRW – LOCXGRVCUSIMP() -> EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – LOCXGRVPED() -> EXECBLOCK(‘LOCXGRPV’,.F.,.F.,SC5->C5_NUM) LOCXNF.PRW – LOCXNF() -> ARETPE:= EXECBLOCK(CPE,.F.,.F.,{IIF(VALTYPE(CFUNCNAME)==”C”,CFUNNAME,””),NOPCAUTO,NTIPO,ACFGNF[SALIASHEAD],ACFGNF[SACPOSBR]}) LOCXNF.PRW – LOCXNF() -> CLOCXFIL := EXECBLOCK(“LOCXFILT”,.F.,.F.,{PREFIXOCPO(ACFGNF[SALIASHEAD]),ACFGNF[SCFILROT],CFILD1D2} ) LOCXNF.PRW – LOCXNF() -> CPDVFIJO := EXECBLOCK(“LOCXPDV”,.F.,.F.,{CFUNNAME, NTIPO}) LOCXNF.PRW – LOCXNF() -> CRETPE := EXECBLOCK(‘LOCXOKPG’,.F.,.F.,{CNOTATIP}) LOCXNF.PRW – LOCXNF() -> EXECBLOCK(“MT462MNU”,.F.,.F.) LOCXNF.PRW – LOCXNF() -> IF VALTYPE(AMEMUSER := EXECBLOCK( CPE, .F., .F. ) ) == “A” LOCXNF.PRW – LOCXNFDESP() -> CCONDPE := EXECBLOCK(CPE,.F.,.F.,{CCONDICAO}) LOCXNF.PRW – LOCXSTOCK() -> EXECBLOCK(‘A440STK’,.F.,.F.) LOCXNF.PRW – LOCXSX5NF() -> AFILTRO := EXECBLOCK(‘FILSERPV’,.F.,.F.,{AFILTRO}) LOCXNF.PRW – LOCXSX5NF() -> CFILTRO := EXECBLOCK(CPE,.F.,.F.,{CFILTRO}) LOCXNF.PRW – LXDOCORI() -> CQUERY := EXECBLOCK( “LXDOCORI”, .F., .F., { CQUERY } ) LOCXNF.PRW – LXDOCORI() -> EXECBLOCK( “LXDORIG”, .F., .F. ) LOCXNF.PRW – NFLINOK() -> LRET:= EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – NFNUMNOTA() -> CFILSX5 := EXECBLOCK(“CHGX5FIL”,.F.,.F.) LOCXNF.PRW – NFNUMNOTA() -> IF !EXECBLOCK(“SX5NOTA”,.F.,.F.) LOCXNF.PRW – NFTRFORI() -> ARETPE:= EXECBLOCK(“LOCXREME”,.F.,.F.,{ACPOS}) LOCXNF.PRW – NFTRFORI() -> ARETPE:= EXECBLOCK(CPE,.F.,.F.,{ACFGNF[SNTIPO],ACOLS}) LOCXNF.PRW – NFTRFORI() -> CQUERY :=EXECBLOCK(“LOCXM462”,.F.,.F.,{CQUERY,CCODFORTRF,CLOJFORTRF,CNUMFIL} ) LOCXNF.PRW – NFTRFORI() -> EXECBLOCK(‘LOCXD2D1’,.F.,.F.) LOCXNF.PRW – NFTUDOK() -> LBLOCKPED:=EXECBLOCK(CPE,.F.,.F.,{}) LOCXNF.PRW – NFTUDOK() -> LHASHPTG := EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – NFTUDOK() -> LRET:=EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – PREPGRAVANF() -> IF VALTYPE(LRETPE := EXECBLOCK(CPE,.F.,.F.) ) == “L” LOCXNF.PRW – SCMTONF() -> ACPOEXTRA := EXECBLOCK(CPE,.F.,.F.,) LOCXNF.PRW – SCMTONF() -> CCONDICAO2 := EXECBLOCK(‘LOCXCOND’,.F.,.F.,{CCONDICAO2,”I”}) LOCXNF.PRW – SCMTONF() -> CCONDUSER:=IIF(EMPTY(CCONDUSER),””,” .AND. “) + EXECBLOCK(CPE,.F.,.F.,) LOCXNF.PRW – SCMTONF() -> EXECBLOCK(CPE,.F.,.F.,) LOCXNF.PRW – SCMTONF() -> LFILDATA:=EXECBLOCK(“LOCFDTR”,.F.,.F.,) LOCXNF.PRW – SCMTONF2() -> CCONDUSER := EXECBLOCK(CPE,.F.,.F.,) LOCXNF.PRW – SCMTONF2() -> EXECBLOCK(CPE,.F.,.F.,) LOCXNF.PRW – SCMTOREM() -> CCONDICAO2 := EXECBLOCK(‘LOCXCOND’,.F.,.F.,{CCONDICAO2,”R”}) LOCXNF.PRW – SCMTOREM() -> CRETPE := EXECBLOCK(CPE,.F.,.F.,{“__LOCXSF1”}) LOCXNF.PRW – SCMTOREM() -> EXECBLOCK(CPE,.F.,.F.,) LOCXNF.PRW – SCMTOREM() -> LFILDATA:=EXECBLOCK(“LOCFDTR”,.F.,.F.,) LOCXNF.PRW – SCMTOREM() -> LRETPE69 := EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – SCMTOREM2() -> CRETPE := EXECBLOCK(CPE,.F.,.F.,{“__LOCXSF2”}) LOCXNF.PRW – SCMTOREM2() -> EXECBLOCK(CPE,.F.,.F.,) LOCXNF.PRW – SHOULD BE HERE, BECAUSE IT IS IN THE X3_WHEN OF THE F2_MOEDA FIELD, BUT WE CANNOT COMPLETELY INHERIT THE CONTENTS OF THE X3_WHEN OF THE F2_MOEDA FIELD. */() -> ACPOSNF :=EXECBLOCK( “LOCXS333” , .F. , .F. , {ACPOSNF,ACFGNF[SNTIPO]} ) LOCXNF.PRW – SHOULD BE HERE, BECAUSE IT IS IN THE X3_WHEN OF THE F2_MOEDA FIELD, BUT WE CANNOT COMPLETELY INHERIT THE CONTENTS OF THE X3_WHEN OF THE F2_MOEDA FIELD. */() -> ACPOSNF:=EXECBLOCK(CPE,.F.,.F.,{ACPOSNF,ACFGNF[SNTIPO]}) LOCXNF.PRW – SHOULD BE HERE, BECAUSE IT IS IN THE X3_WHEN OF THE F2_MOEDA FIELD, BUT WE CANNOT COMPLETELY INHERIT THE CONTENTS OF THE X3_WHEN OF THE F2_MOEDA FIELD. */() -> ACPOSPE := EXECBLOCK(“NFCPOSRODPE”,.F.,.F.,{ACPOSPE}) LOCXNF.PRW – SHOULD BE HERE, BECAUSE IT IS IN THE X3_WHEN OF THE F2_MOEDA FIELD, BUT WE CANNOT COMPLETELY INHERIT THE CONTENTS OF THE X3_WHEN OF THE F2_MOEDA FIELD. /() -> AUSOBJNF :=EXECBLOCK(CPE,.F.,.F.,{AOBJSNF}) LOCXNF.PRW – VALIDVEND() -> EXECBLOCK(CPE,.F.,.F.) LOCXNF.PRW – VARREITNF() -> EXECBLOCK(CPE,.F.,.F., { SD1->D1_REMITO, SD1->D1_ITEMREM, SD1->D1_DOC, SD1->D1_SERIE, NI }) LOCXNF.PRW – VARREITNF() -> EXECBLOCK(CPE,.F.,.F.,{NI}) LOCXNF.PRW – VARREITNF() -> NQTD2UM := EXECBLOCK(CPE,.F.,.F.,SC9->(RECNO())) LOCXNF2.PRW – A103DELTX() -> EXECBLOCK(“M103DSE2”,.F.,.F.) LOCXNF2.PRW – F4FORTOK() -> LRET := EXECBLOCK(CPE,.F.,.F.,{AF4FOR}) LOCXNF2.PRW – LOCNUMIT2() -> NITENS := EXECBLOCK(“LOCITEM2”,.F.,.F.,{NITENS,CSERIE,CNOMEFUN}) LOCXNF2.PRW – LOCPROVEN2T() -> LALTPROV := EXECBLOCK(CPE,.F.,.F.,{CCPO,CPROV,CPROV}) LOCXNF2.PRW – LOCXLEGCOR() -> AUSR := EXECBLOCK(CPE,.F.,.F.,{AELEM,CALIAS}) LOCXNF2.PRW – LXA103CHKQUALI() -> LPERET := EXECBLOCK(CPE76,.F.,.F.,{LENVIACQ,CTIPONF}) LOCXNF2.PRW – LXA103CUSTO() -> URET := EXECBLOCK(CPE,.F.,.F.,{ARET}) LOCXNF2.PRW – LXA103DUPL() -> A103CND2:=EXECBLOCK(“A103CND2”,.F.,.F.,{AVENC}) LOCXNF2.PRW – LXA103DUPL() -> DDEMISPE62:=EXECBLOCK(CPE,.F.,.F.,{DDEMISSAO}) LOCXNF2.PRW – LXA103FINANC() -> NBASEDUP:=EXECBLOCK(“A103VLR”,.F.,.F.) LOCXNF2.PRW – LXA103FORF4() -> CFILTRAQRY+=IIF(!EMPTY(CFILTRAQRY),” AND “,””)+EXECBLOCK(CPE,.F.,.F.) LOCXNF2.PRW – LXA103FORF4() -> EXECBLOCK(CPE,.F.,.F.) LOCXNF2.PRW – LXA103FORF4() -> IF VALTYPE(AUSCONT:= EXECBLOCK(‘MA103F4I’, .F., .F. )) == ‘A’ LOCXNF2.PRW – LXA103FORF4() -> IF VALTYPE(AUSTITU:=EXECBLOCK(‘MA103F4H’, .F., .F. )) == ‘A’ LOCXNF2.PRW – LXA103FORF4() -> LRETMT103CPC:=EXECBLOCK(“MT103CPC”,.F.,.F.,{}) LOCXNF2.PRW – LXA103ITEMPC() -> ANEW := EXECBLOCK(“MT100C7C”, .F., .F., ACAB) LOCXNF2.PRW – LXA103ITEMPC() -> ANEW := EXECBLOCK(“MT100C7D”, .F., .F., AARRAYF4[LEN(AARRAYF4)]) LOCXNF2.PRW – LXA103ITEMPC() -> CFILTRAQRY+= IIF(!EMPTY(CFILTRAQRY),” AND “,””) + EXECBLOCK(CPE,.F.,.F.) LOCXNF2.PRW – LXA103ITEMPC() -> EXECBLOCK(CPE,.F.,.F.) LOCXNF2.PRW – LXA103NFORI() -> EXECBLOCK(“PNEU002”,.F.,.F.) LOCXNF2.PRW – LXA103RATCC() -> EXECBLOCK(CPE,.F.,.F.,{ASAVCOLS,ASAVHEADER,NSAVN,LNOVO}) LOCXNF2.PRW – LXA103SC7TOACOLS() -> LMT103M:=EXECBLOCK( “MT103IPC”, .F., .F.,{NITEM}) LOCXNF2.PRW – LXA103SD1TOACOLS() -> EXECBLOCK( “MT103INF”, .F., .F., { NITEM } ) LOCXNF2.PRW – LXA103SD1TOACOLS() -> LALTPROV := EXECBLOCK(CPE74,.F.,.F.) LOCXNF2.PRW – LXA103SD2TOACOLS() -> EXECBLOCK( “MT103INF”, .F., .F., { NITEM } ) LOCXNF2.PRW – LXA103SE2() -> ARETIRRF := EXECBLOCK( “MT100IR”,.F.,.F., {NITMIRRF,NVALDUP,NX} ) LOCXNF2.PRW – LXA103SE2() -> EXECBLOCK(“M103DSE2”,.F.,.F.) LOCXNF2.PRW – LXA103SE2() -> EXECBLOCK(“MT100GE2”,.F.,.F.) LOCXNF2.PRW – LXA103SE2() -> NITMINSS := EXECBLOCK( “MT100INS”,.F.,.F., {NITMINSS} ) LOCXNF2.PRW – LXADDSDORI() -> EXECBLOCK( “LXDORIG”, .F., .F. ) LOCXNF2.PRW – LXMACANDELF1() -> CASE L100DEL .AND. !(EXECBLOCK(“A100DEL”,.F.,.F.)) LOCXNF2.PRW – LXN466FORF6() -> EXECBLOCK(CPE,.F.,.F.) LOCXNF2.PRW – LXN466FORF6() -> EXECBLOCK(CPE54,.F.,.F.,{NTIPO}) LOCXNF2.PRW – LXN466FORF6() -> LALTPROV := EXECBLOCK(CPE74,.F.,.F.) LOCXNF2.PRW – LXN466FORF6() -> LPE66 := EXECBLOCK(CPE,.F.,.F.,{MV_PAR04}) LOCXNF2.PRW – LXVLDDOCIT() -> LM485PE := EXECBLOCK(“M465DORIFE”,.F.,.F.,{XFILIAL(“SF2”),CNUMERODOC,CSERIE,CCLIFORE,CLOJAE}) LOCXNF2.PRW – MALOCATUSF3() -> EXECBLOCK(“MTA920L”,.F.,.F.) LOCXNF2.PRW – NCPRATCC() -> EXECBLOCK(CPE,.F.,.F.,{ASAVCOLS,ASAVHEADER,NSAVN,LNOVO}) LOJA010A.PRW – E DA USER FUNCTION() -> ACPOENCHOICE := EXECBLOCK(“LJMOD3”,.F.,.F.,ACPOENCHOICE) LOJA010A.PRW – E DA USER FUNCTION() -> CCONDICAO := EXECBLOCK(“LJFLTSL1”) LOJA010A.PRW – E DA USER FUNCTION() -> CTMPCLI := EXECBLOCK(“LJCLIPAD”,.F.,.F.,) LOJA010A.PRW – E DA USER FUNCTION() -> CVENDLOJA := IIF(EXISTBLOCK(“LJVENDPAD”),EXECBLOCK(“LJVENDPAD”,.F.,.F.,),IIF(LEN(GETMV(“MV_VENDPAD”))<=6,GETMV(“MV_VENDPAD”)+SPACE(6-LEN(GETMV(“MV_VENDPAD”))),SPACE(6))) LOJA010A.PRW – E DA USER FUNCTION() -> IF(EXISTBLOCK(“LJ10ORC”),EXECBLOCK(“LJ10ORC”,.F.,.F.,CNUMORC),.T.)} LOJA010A.PRW – E DA USER FUNCTION() -> IF(EXISTBLOCK(“LJKEYF10”),SETKEY(VK_F10,{ || EXECBLOCK(“LJKEYF10”,.F.,.F.)}),NIL) LOJA010A.PRW – E DA USER FUNCTION() -> IF(EXISTBLOCK(“LJKEYF7”) ,SETKEY(VK_F7 ,{ || EXECBLOCK(“LJKEYF7” ,.F.,.F.)}),NIL) LOJA010A.PRW – E DA USER FUNCTION() -> IF(EXISTBLOCK(“LJKEYF8”) ,SETKEY(VK_F8 ,{ || EXECBLOCK(“LJKEYF8” ,.F.,.F.)}),NIL) LOJA010A.PRW – E DA USER FUNCTION() -> IF(EXISTBLOCK(“LJKEYF9”) ,SETKEY(VK_F9 ,{ || EXECBLOCK(“LJKEYF9” ,.F.,.F.)}),NIL) LOJA010A.PRW – E DA USER FUNCTION() -> IF(LLJDESC,EXECBLOCK(“LJDESC”,.F.,.F.,{NDESCLOJ,”V”}),.T.); LOJA010A.PRW – E DA USER FUNCTION() -> IF(LLJDESC,EXECBLOCK(“LJDESC”,.F.,.F.,{NDESCPER,”P”}),.T.) LOJA010A.PRW – E DA USER FUNCTION() -> IIF(NOPCX = 4,(EVAL(OGET:OBROWSE:BLOSTFOCUS),OFOLDER:SETOPTION(NFLDFVENDA),IF(EXISTBLOCK(“LJATV01”) ,EXECBLOCK(“LJATV01” ,.F.,.F.),NIL)), .T. ) ) }),ODLGLOJA:END()); LOJA010A.PRW – E DA USER FUNCTION() -> LVEND:=EXECBLOCK(“LJVEN010”,.F.,.F.) LOJA010A.PRW – E DA USER FUNCTION() -> NCHECK:=EXECBLOCK(“LJ010CHK”,.F.,.F.) LOJA010A.PRW – E DA USER FUNCTION() -> NDESCPER := EXECBLOCK( “L010PERDES” , .F. , .F. ) LOJA010A.PRW – E DA USER FUNCTION() -> NREG := EXECBLOCK(“LJ010ATE”,.F.,.F.,{NOPCX,NREG}) LOJA010A.PRW – E DA USER FUNCTION() -> SETKEY(VK_F6 ,{ || ( EXECTEMPLATE(“LJKEYF6” ,.F.,.F.), EXECBLOCK(“LJKEYF6” ,.F.,.F.) ) }) LOJA010A.PRW – E DA USER FUNCTION() -> SETKEY(VK_F6 ,{ || EXECBLOCK(“LJKEYF6” ,.F.,.F.)}) LOJA010A.PRW – E DA USER FUNCTION() -> UTEMPUNIF := EXECBLOCK(“UNIF001”,.F.,.F.) LOJA010A.PRW – LJ010ATE() -> LOCAL BCAMPO LOJA010A.PRW – LJ010ATE() -> LRET := EXECBLOCK(“LJCOBFRT”,.F.,.F.,{ NVLRFSD, SL1->L1_TPFRET } ) LOJA010A.PRW – LJ010CANC() -> EXECBLOCK(“L010CAN”,.F.,.F.,{LCANCELOU}) LOJA010A.PRW – LJ010CANIT() -> CELEMEN := EXECBLOCK(“LJ220REG”,.F.,.F.) LOJA010A.PRW – LJ010DEL() -> ALJPRDRES := EXECBLOCK(“LJPRDRES”,.F.,.F.,{NPOSPRODUTO,NPOSDESCPRO} ) LOJA010A.PRW – LJ010DEL() -> LRET := EXECBLOCK(“L010DEL”,.F.,.F.) LOJA010A.PRW – LJ010PRCC() -> ARETITEM := EXECBLOCK(“LJRGITCC”,.F.,.F.,{CCODPROD,CDESCPROD,CQUANT,CUNIT,CDESCONTO,CELEMEN,CTOTIT}) LOJA010A.PRW – LJ010PRCC() -> CELEMEN := EXECBLOCK(“LJ220REG”,.F.,.F.) LOJA010A.PRW – LJAVALCRED() -> LUSAANCRED := EXECBLOCK( “LJANCRED” , .F. , .F. , {CCLIENTE, CLOJA, NVLRLIQ, ARECEB } ) LOJA010A.PRW – LJCONTVEND() -> LRET := EXECBLOCK(“LJCONVEN”,.F.,.F.) LOJA010B.PRW – ATUVEND() -> APGTOS:=EXECBLOCK(“LJATUCMB”,.F.,.F.,{APGTOS}) LOJA010B.PRW – ATUVEND() -> LOCAL LLJATUCMB:= EXISTBLOCK(“LJATUCMB”) LOJA010B.PRW – IMPFATWIN() -> EXECBLOCK(“IMPFATOR”,.F.,.F.) LOJA010B.PRW – LJ010CHEQ() -> EXECBLOCK(“LJIMPCHQ”,.F.,.F.) LOJA010B.PRW – LJ010EVALI() -> LRET := EXECBLOCK(“LJ010EVALI”,.F.,.F.,{LRET}) LOJA010B.PRW – LJ010FISC() -> LJMSGRUN(STR0096,,{ || LRET := EXECBLOCK(SUPERGETMV(“MV_SCRFIS”),.F.,.F.,{NDESCLOJ,NDINHEIRO,NCHEQUES,NVALORCART,; LOJA010B.PRW – LJ010IMP() -> EXECBLOCK( CSCRCUP ,.F.,.F.,{NTROCO} ) LOJA010B.PRW – LJ010JUROS() -> ARETNEG:=EXECBLOCK(“L10RETNG”,.F.,.F.,{ARETNEG}) LOJA010B.PRW – LJ010JUROS() -> EXECBLOCK(“L10NEGOC”,.F.,.F.) LOJA010B.PRW – LJ010JUROS() -> IF !EXECBLOCK(“LJCONDNEG”,.F.,.F.) LOJA010B.PRW – LJ010NFISCA() -> LRET := EXECBLOCK(“LJ010SER”,.F.,.F.,{CSERIE,CNFISCAL}) LOJA010B.PRW – LJ010NOTA() -> CFILTSER :=EXECBLOCK(“LJ010FILT”,.F.,.F.) LOJA010B.PRW – LJ010NOTA() -> LRETORNO := EXECBLOCK(“LJ010SNF”,.F.,.F.) LOJA010B.PRW – LJ010OPTION() -> ACOND010RUN := EXECBLOCK(“LJ010RUN”,.F.,.F.) LOJA010B.PRW – LJ010OPTION() -> ARECJUR := EXECBLOCK( “L010RECJUR”, .F. , .F. ) LOJA010B.PRW – LJ010OPTION() -> AVALORES:=EXECBLOCK(“AJUSTA”,.F.,.F.) LOJA010B.PRW – LJ010OPTION() -> EXECBLOCK(“LJ010FOL”,.F.,.F.,{NDESCPER,NNEWOPTION,OFOLDER}) LOJA010B.PRW – LJ010OPTION() -> EXECBLOCK(“LJ010NCC”, .F., .F.) LOJA010B.PRW – LJ010OPTION() -> LRET:=EXECBLOCK(“BLOQLOMB”,.F.,.F.,{CNUMORC, NDESCLOJ, NDESCPER}) LOJA010B.PRW – LJ010OPTION() -> LRETFRETE := EXECBLOCK( “L10HABFR”, .F. , .F. ) LOJA010B.PRW – LJ010OPTION() -> LRETNEW:=EXECBLOCK(“LJ010NEW”,.F.,.F.,{NDESCPER,NNEWOPTION,OFOLDER,APGTOS,NDESCLOJ,CCONDICAO,NLIQ}) LOJA010B.PRW – LJ010OPTION() -> LUSAACRS := EXECBLOCK( “LJ020ACRS” , .F. , .F. ) LOJA010B.PRW – LJ010ORC() -> LRET := EXECBLOCK(“LJORCADO”,.F.,.F.) LOJA010B.PRW – LJ010ORC() -> { || EXECBLOCK( SUPERGETMV(“MV_SCRORC”),.F.,.F. ) } ) LOJA010B.PRW – LJ010ORC() -> { || EXECBLOCK( SUPERGETMV(“MV_SCRPED”),.F.,.F. ) } ) LOJA010B.PRW – LJ010VALID() -> ALJPRDRES := EXECBLOCK(“LJPRDRES”,.F.,.F.,{NPOSCODPROD,NPOSDESCPRO} ) LOJA010B.PRW – LJ010VALID() -> EXECBLOCK(“L10CANC”,.F.,.F.,LINCLUI) LOJA010B.PRW – LJ010VALID() -> EXECBLOCK(“L10OK”,.F.,.F.,LINCLUI) LOJA010B.PRW – SAYWINSUB() -> LOCAL LAJUSTA:= (EXISTBLOCK(“AJUSTA”)) LOJA010B.PRW – SAYWINSUB() -> NDESCPER := EXECBLOCK( “LJ010KRM”, .F., .F., { NDESCPER, CORIGEM } ) LOJA010B.PRW – SHOWFATOR() -> NTAXAJUR := EXECBLOCK(“LJADMFIN”,.F.,.F.,{CCODADM}) LOJA010C.PRW – CALCFATWIN() -> NADMTAX:= EXECBLOCK(“LJADMTAX”,.F.,.F.,{CCODADM}) LOJA010C.PRW – LJ010BOX() -> APGTOS:=EXECBLOCK(“LJATUCMB”,.F.,.F.,{APGTOS}) LOJA010C.PRW – LJ010CONDP() -> ACONDICOES:= EXECBLOCK(“LJ010CON”,.F.,.F.) LOJA010C.PRW – LJ010DADPG() -> @ 37.0 , 60.5 MSGET CNUMCART RIGHT SIZE 62,10 OF ODLGLOJADADPAG PIXEL VALID IIF(EXISTBLOCK(“LJVNCART”),EXECBLOCK(“LJVNCART”,.F.,.F.,{CNUMCART}),.T.) LOJA010C.PRW – LJ010DADPG() -> CNUMCART:=EXECBLOCK(“LJBILING”,.F.,.F.) LOJA010C.PRW – LJ010DADPG() -> EXECBLOCK(“LJADMINS”,.F.,.F.) LOJA010C.PRW – LJ010DESCV() -> LDESCOK := EXECBLOCK(“LJDESCNV”,.F.,.F.,{NDESCPER,NDESCLOJ,NVLRTOT}) LOJA010C.PRW – LJ010GRLOJ() -> IF EXECBLOCK( “LJPSWSUP”, .F., .F., { NDESCPER, NDESCLOJ, LFINALVEND } ) LOJA010C.PRW – LJ010GRLOJ() -> IF EXISTBLOCK(“LJCNFGRV”) .AND. ! EXECBLOCK(“LJCNFGRV”,.F.,.F.,{LFINALVEND,CNUMORC}) LOJA010C.PRW – LJ010GRLOJ() -> LFINALVEND:= EXECBLOCK(“LJCKSALD”,.F.,.F.) LOJA010C.PRW – LJ010GRLOJ() -> LRET:=EXECBLOCK(“SACI003”,.F.,.F.) LOJA010C.PRW – LJVISCHQ() -> AOK := EXECBLOCK(“LJ010CHQ”,.F.,.F.,{NVLRCART,DDTVENC,NPARC,CBANCO,CAGENCIA,CCONTA,CCHEQUE,CCOMP,CRG,CTELEFONE,LCHECKCH,LCHECKTE,CSERCHQ,LTIPOCHQ,CCGCCHQ,CDDDCLI,CPRETELCLI,CSUFTELCLI,CNOMECLI,CMESACTA,CANOACTA}) LOJA010C.PRW – LJW010DESC() -> AVALORES:=EXECBLOCK(“AJUSTA”,.F.,.F.) LOJA010C.PRW – LJW010DESC() -> LDESCOK := EXECBLOCK(“LJDESCNV”,.F.,.F.,{NDESCPER,NDESCLOJ,NVLRTOT,CAUTORDESC,ADESC}) LOJA010C.PRW – LJW10TUDOK() -> LRET := EXECBLOCK( “LJ010OK”, .F., .F. , {LRET}) LOJA010D.PRW – LCHOICBAR() -> ARETB3 := EXECBLOCK( “LJ010BU3”, .F., .F. ) LOJA010D.PRW – LCHOICBAR() -> ARETB4 := EXECBLOCK( “LJ010BU4”, .F., .F. ) LOJA010D.PRW – LCHOICBAR() -> DEFINE BUTTON OBTNTAB RESOURCE “PRECO” OF OBAR ACTION IF(LLJ010BU2,EXECBLOCK(“LJ010BU2”,.F.,.F.), LJ010TABELA()); LOJA010D.PRW – LCHOICBAR() -> DEFINE BUTTON OBTNTRANSP RESOURCE “CARGA” OF OBAR ACTION IF(LLJ010FRT,EXECBLOCK(“LJ010FRT”,.F.,.F.,{BNUMORC}), LJ010FRETE(BNUMORC,BVLRTOT,BVLRACRS,BVLRDESC,NDESCPER)); LOJA010D.PRW – LCHOICBAR() -> LRETFRETE := EXECBLOCK( “L10HABFR”, .F. , .F. ) LOJA010D.PRW – LJ010CBFRM() -> LRET := EXECBLOCK(“LJ010DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”COMBOPAG”,OPGTOS,APGTOS}) LOJA010D.PRW – LJ010CBFRM() -> LRET := EXECBLOCK(“LJ220DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”COMBOPAG”,OLISTFORMA,AFORMAS}) LOJA010D.PRW – LJ010DADOS() -> .AND. IF(EXISTBLOCK(“LJTES”,,.T.),EXECBLOCK(“LJTES”,.F.,.F.,CTES),.T.) LOJA010D.PRW – LJ010DADOS() -> AGRVPAR := EXECBLOCK(“LJGRVPAR”,.F.,.F.,{SE1->E1_PARCELA,SE1->E1_TIPO}) LOJA010D.PRW – LJ010DADOS() -> CSERIE:=EXECBLOCK(“LJ10SER”,.F.,.F.) LOJA010D.PRW – LJ010DADOS() -> EXECBLOCK(“L10D2FIM”,.F.,.F.) LOJA010D.PRW – LJ010DADOS() -> EXECBLOCK(“LJ010SF3”,.F.,.F.) LOJA010D.PRW – LJ010DADOS() -> EXECBLOCK(“LJ10D2”,.F.,.F.) LOJA010D.PRW – LJ010DADOS() -> EXECBLOCK(“VABE001”,.F.,.F., {CNUMORC, CNUMNOTA, CSERIE}) LOJA010D.PRW – LJ010DADOS() -> IF NVALORCRED > 0 .AND. LFINANCEIRO .AND. IF(EXISTBLOCK(“LJTES”,,.T.),EXECBLOCK(“LJTES”,.F.,.F.,CTES),.T.) LOJA010D.PRW – LJ010DADOS() -> IF(EXISTBLOCK(“LJTES”,,.T.),EXECBLOCK(“LJTES”,.F.,.F.,CTES),.T.) LOJA010D.PRW – LJ010DADOS() -> LRETORNO := EXECBLOCK(“LJTES”,.F.,.F.,CTES) LOJA010D.PRW – LJ010DIN() -> CFORMAS := EXECBLOCK(“LJ010VAL”,.F.,.F.) LOJA010D.PRW – LJ010DIN() -> EXECBLOCK(“LJ010PGT”,.F.,.F.) LOJA010D.PRW – LJ010DINV() -> LRET := EXECBLOCK(“LJ010VAL”,.F.,.F.,{NVALOR,CCOMBOPAG,DDATAFORM}) LOJA010D.PRW – LJ010DTEMIS() -> LRET := EXECBLOCK(“LJ010DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”DDATAEMIS”,OPGTOS,APGTOS}) LOJA010D.PRW – LJ010DTEMIS() -> LRET := EXECBLOCK(“LJ220DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”DDATAEMIS”,OLISTFORMA,AFORMAS}) LOJA010D.PRW – LJ010DTVCTO() -> LRET := EXECBLOCK(“LJ010DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”DDATAFORM”,OPGTOS,APGTOS}) LOJA010D.PRW – LJ010DTVCTO() -> LRET := EXECBLOCK(“LJ220DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”DDATAEMIS”,OLISTFORMA,AFORMAS}) LOJA010D.PRW – LJ010FRETE() -> AVLRFRETE := EXECBLOCK(“L10FRETE”,.F.,.F.,{ NVLRTOT,NVLRACRS,NVLRDESC } ) LOJA010D.PRW – LJ010FRETE() -> DEFINE SBUTTON FROM 190,185 TYPE 1 ACTION (LOPCA:=IF(LLJDFRTOK,EXECBLOCK(“LJDFRTOK”,.F.,.F.,{CNUMORC}),.T.),IF(LOPCA,ODLGPAGTO:END(),.F.)) ENABLE OF ODLGPAGTO LOJA010D.PRW – LJ010FRETE() -> LRET := EXECBLOCK(“LJCOBFRT”,.F.,.F.,{ NVLRFSD, M->L1_TPFRET } ) LOJA010D.PRW – LJ010GRAVA() -> EXECBLOCK( “SACI001”, .F., .F., { LFINALVEND } ) LOJA010D.PRW – LJ010GRAVA() -> LRET := EXECBLOCK( “TLSP001”, .F., .F., { CNUMORC, LFINALVEND } ) LOJA010D.PRW – LJ010MONTP() -> EXECBLOCK(“LJMONTP”,.F.,.F.,{NVALORBASE,NFINANCIADO,NENTRADA}) LOJA010D.PRW – LJ010PJUR() -> ARET:= EXECBLOCK(“LJ010PROR”,.F.,.F.,{NVALOR,CCOMBOPAG,DDATAFORM}) LOJA010D.PRW – LJ010TABELA() -> EXECBLOCK(“BLOMB1”,.F.,.F.) LOJA010D.PRW – LJDTRANSP() -> EXECBLOCK( “LJDADOSFRE”, .F. , .F. , {OCLIENTE:CTEXT, OLOJA:CTEXT} ) LOJA010D.PRW – LJENTRY() -> EXECBLOCK(“LJ010FIN”,.F.,.F.) LOJA010D.PRW – _LJ010PAR() -> XRET := EXECBLOCK(“LJ010PAR”, .F., .F., { DDATAFORM, NVALOR, CCOMBOPAG, CCONDICAO }) LOJA010T.PRX – L010ATVDISC() -> CDRVTEFDSC := EXECBLOCK(“LJDRVTEF”,.F.,.F.) LOJA010T.PRX – L010CHEQUE() -> CTDADOS:=EXECBLOCK(“LJTEFDCH”,.F.,.F.,{CTDADOS}) LOJA010T.PRX – L010CREDITO() -> CTDADOS := EXECBLOCK(“LJTEFDADO”,.F.,.F.,{CTDADOS}) LOJA010T.PRX – L010CRTCHQ() -> CMSG530 := SUBS(EXECBLOCK(“LJTEFMSG”,.F.,.F.),1,12) LOJA010T.PRX – L010CTEFMULT() -> ATEFMULT:=EXECBLOCK(“LJTEFCNC”,.F.,.F.,{ATEFMULT,COPERA}) LOJA010T.PRX – L010SERVICOS() -> ALETEF := EXECBLOCK(“LJLETEF”,.F.,.F.) LOJA010T.PRX – L010SERVICOS() -> IF ! EXECBLOCK(“L010TCPF”,.F.,.F.,{CTIPOPESSOA,CCGC_CPF}) LOJA010T.PRX – L010STRVAR() -> CMSG530 := SUBS(EXECBLOCK(“LJTEFMSG”,.F.,.F.),1,12) LOJA010T.PRX – LJ025TCK() -> ATICKTMP := ACLONE(EXECBLOCK(“LJTEFTCK”,.F.,.F.,{ATICKTMP,AINFO})) LOJA010T.PRX – LOJA011T() -> EXECBLOCK(“LJ011DC”, .F., .F., { CSERIE, CNOTA }) LOJA010T.PRX – LOJA011T() -> IF ! EXECBLOCK(“LJ011AC”, .F., .F., { CSERIE, CNOTA }) LOJA010T.PRX – LOJA017T() -> EXECBLOCK(“LOTETEF”) LOJA010T.PRX – LOJA018T() -> EXECBLOCK(“RECEBTEF”) LOJA020A.PRW – A020FORM() -> LFORMPRO := EXECBLOCK( “LJ020FORM”, .F., .F. ) LOJA020A.PRW – LCHOICEBAR() -> ARETB1 := EXECBLOCK( “LJ020BU1” ) LOJA020A.PRW – LCHOICEBAR() -> ARETB2 := EXECBLOCK( “LJ020BU2” ) LOJA020A.PRW – LJ020DEVOL() -> EXECBLOCK(“LOJA020”,.F.,.F.,{NTROC}) LOJA020A.PRW – LJ020TROCL() -> @ 24,030 MSGET OCLIENTE VAR CCLIENTE SIZE 90, 8OF ODLG1 PIXEL F3 “SA1” PICTURE “@!” VALID LJCRECLI(CCLIENTE, CLOJA, @CCLIANT, @CLOJANT, ODLG1, , .T.) .AND. LJ020DESC(@CDESCCLI,ODESC,CCLIENTE,CLOJA) .AND. IF(EXISTBLOCK(“LJ020CLI”),EXECBLOCK(“LJ020CLI”,.F.,.F.),.T.) LOJA020A.PRW – LJ020TROCL() -> SETKEY(122,{ ||EXECBLOCK(‘LJ020F11’, .F., .F.)}) LOJA020A.PRW – T020TROCA() -> ABOTOES := EXECBLOCK(“L20VLTRO”,.F.,.F.) LOJA020A.PRW – T020TROCA() -> ANFORI := IF(EXISTBLOCK(“LJ020ORI”),EXECBLOCK(“LJ020ORI”,.F.,.F.,{PROCNAME(3)}),NIL) LOJA020B.PRW – A020WTROCA() -> EXECBLOCK(‘LJ020TES’,.F.,.F.) LOJA020B.PRW – LJ020ENTRA() -> ARET := EXECBLOCK(“LJD1TEST”,.F.,.F.,{CTESTROCA,CPRODUTO,NX}) LOJA020B.PRW – LJ020ENTRA() -> CTESTROCA :=EXECBLOCK(“LJD1TSP”,.F.,.F.,{CNUMNOTA,CSERIE}) LOJA020B.PRW – LJ020ENTRA() -> EXECBLOCK( “LJ020SD1” , .F. , .F. , {NQUANT,NPRCTAB,NVUNIT} ) LOJA020B.PRW – LJ020ENTRA() -> EXECBLOCK(“LJD1TES”,.F.,.F.) LOJA020B.PRW – LJ020ENTRA() -> LCONFNCC := EXECBLOCK(‘LJCFGNCC’,.F.,.F.,{CNUMANT,CSERANT}) LOJA021A.PRW – LJ021BAR() -> XRETB1 := EXECBLOCK( “LJ020BU1” ) LOJA021A.PRW – LJ021BAR() -> XRETB2 := EXECBLOCK( “LJ020BU2” ) LOJA021A.PRW – LJ021DEVLOCAL() -> EXECBLOCK(“LOJA020”,.F.,.F.,{NVLRTRAN}) LOJA021A.PRW – LJ021GRAVA() -> EXECBLOCK(“LJ021GRV”,.F.,.F.) LOJA021A.PRW – LJ021GRAVA() -> EXECBLOCK(“LOJA021”,.F.,.F.) LOJA021A.PRW – LJ021GRAVA() -> EXECBLOCK(‘LJ021ANTGR’,.F.,.F.) LOJA021A.PRW – LJ021GRAVA() -> LAVALTIT := EXECBLOCK(“LJ021AVAL”,.F.,.F.,{NVLRBAIXA}) LOJA021A.PRW – LJ021GRAVA() -> LGERANCC := EXECBLOCK(“LJ021FPAGO”,.F.,.F.) LOJA021A.PRW – LJ021GRAVA() -> LGRAVAR := EXECBLOCK(“LJ021IMP”,.F.,.F.,{NMODOPRINT}) LOJA021A.PRW – LJ021GRVNFE() -> EXECBLOCK(‘LJ021SD1’,.F.,.F.,{ACOLS,NC}) LOJA021A.PRW – LJ021QTDE() -> ACOLS[N][NPOSTES] := EXECBLOCK(“LJ021TES”,.F.,.F.) LOJA021B.PRW – LJ021ACOLS() -> ACOLS[NCNT][NPOSTES] := EXECBLOCK(“LJ021TES”,.F.,.F.) LOJA021B.PRW – LJ021ACOLS() -> EXECBLOCK(‘LJ020TES’,.F.,.F.) LOJA021B.PRW – LJ021DEVOUT() -> XRET := EXECBLOCK(“LJ021INI”,.F.,.F.) LOJA021B.PRW – LJ021IMP.() -> LRET := EXECBLOCK(“LJ021DEL”,.F.,.F.) LOJA021B.PRW – LJ021LINOK() -> LRET := EXECBLOCK(“LJ021LOK”,.F.,.F.) LOJA021B.PRW – LJ021TUDOK() -> LRET := EXECBLOCK(“LJ021TOK”,.F.,.F.) LOJA021B.PRW – LJ021VLDDEV() -> LRETORNO := EXECBLOCK(“LJ021PGT”,.F.,.F.,{NVALORDEV}) LOJA021B.PRW – LJ021VLDFORMA() -> LRET := EXECBLOCK(“LJ021DEV”,.F.,.F.) LOJA030.PRX – LA030PROC() -> EXECBLOCK(“LJ030REC”,.F.,.F.,{AANTES,ADEPOIS}) LOJA030.PRX – LJ030ALT() -> EXECBLOCK(“LJ030ALT”,.F.,.F.,{NRET}) LOJA030.PRX – LJ030CANCEL() -> EXECBLOCK(“LJ030ALT”,.F.,.F.,{2}) LOJA030.PRX – LJ030CANCEL() -> EXECBLOCK(“LJ030INC”,.F.,.F.,{2}) LOJA030.PRX – LJ030GRAVA() -> EXECBLOCK(“LJ030ALT”,.F.,.F.,{1}) LOJA030.PRX – LJ030GRAVA() -> EXECBLOCK(“LJ030INC”,.F.,.F.,{1}) LOJA030.PRX – LJ030INC() -> EXECBLOCK(“LJ030INC”,.F.,.F.,{NRET}) LOJA057.PRW – LJ057CONF() -> OBOT04 := TBUTTON():NEW(183,198,STR0097,OTELA02,{|| EXECBLOCK(‘LJ7092’, .F., .F.,{OGET01})},NLARGB,NALTBOT,,,,.T.,,,,{|| .T.}) LOJA057.PRW – MONTAGD() -> ADADOS[NPOS][NX] := EXECBLOCK(“LJ057MEM”,.F.,.F.,{ADADOS}) LOJA057.PRW – OPCCANC() -> EXECBLOCK(“LJ057CAN”,.F.,.F.,{ADADOS}) LOJA077.PRW – LOJA077() -> LOCAL CVLDEXC := “.T.” LOJA110.PRX – LJ110ALTERA() -> EXECBLOCK(“CONFSX8”,.F.,.F.) LOJA110.PRX – LJ110ALTERA() -> IF(EXISTBLOCK(“LJ110GRV”) .AND. !EXECBLOCK(“LJ110GRV”, .F., .F.)) LOJA110.PRX – LJ110ALTERA() -> IIF( EXISTBLOCK(“LJ110GRV”) .AND. ! EXECBLOCK(“LJ110GRV”, .F., .F.), NIL, ; LOJA110.PRX – LJ110COPIA() -> EXECBLOCK(“CONFSX8”,.F.,.F.) LOJA110.PRX – LJ110COPIA() -> IIF( EXISTBLOCK(“LJ110GRV”) .AND. ! EXECBLOCK(“LJ110GRV”, .F., .F.), NIL, ; LOJA110.PRX – LJ110DELETA() -> EXECBLOCK(“ATUB0FIL”,.F.,.F.,{NOPC}) LOJA110.PRX – LJ110DELETA() -> XRET := EXECBLOCK(“LJ110EOK”,.F.,.F.) LOJA110.PRX – LJ110F10() -> EXECBLOCK(“LJ110F10”,.F.,.F.) LOJA110.PRX – LJ110INCLUI() -> EXECBLOCK(“ATUB0FIL”,.F.,.F.,{NOPC}) LOJA110.PRX – LJ110INCLUI() -> EXECBLOCK(“CONFSX8”,.F.,.F.) LOJA110.PRX – LJ110INCLUI() -> IF(EXISTBLOCK(“LJ110GRV”) .AND. !EXECBLOCK(“LJ110GRV”, .F., .F.)) LOJA110.PRX – LJ110INCLUI() -> IIF( EXISTBLOCK(“LJ110GRV”) .AND. ! EXECBLOCK(“LJ110GRV”, .F., .F.), NIL, ; LOJA1146.PRW – EXPORTCOMPLETE() -> IF !EMPTY(EXECBLOCK(“LJ1170MM”,.F.,.F.,{OCOMPLETETABLE:CTABLE,ASTRUCT[NCOUNT2][1]})) LOJA1166.PRW – EXECUTE() -> ANEWFIELD := EXECBLOCK( “LJ1166EX”, .F., .F., {“SB1TMP”} ) LOJA1170.PRW – GETFULLQUERY() -> CSYNTAXSQL := EXECBLOCK( “LJ1170MM”, .F., .F., {SELF:OTABLE:CTABLE, ASTRUCT[NI][1]} ) LOJA1222.PRW – LOJA1222() -> LOCAL CVLDEXC := “.T.” LOJA140.PRX – LJ140CHKRES() -> ALJPRDRES := EXECBLOCK(“LJPRDRES”,.F.,.F.,{NPOSPRODUTO,NPOSDESCPRO} ) LOJA140.PRX – LJ140CNSD2() -> ARET := EXECBLOCK(“LJD1TEST”,.F.,.F.,{CTESTROCA,SD2->D2_COD,0}) LOJA140.PRX – LJ140CNTEF() -> EXECBLOCK(“LJ140DEL”,.F.,.F.) LOJA140.PRX – LJ140CNTEF() -> EXECBLOCK(“LOJA140”,.F.,.F.) LOJA140.PRX – LJ140EXC() -> EXECBLOCK(“LJ140EXC”,.F.,.F.) LOJA140.PRX – LJ140EXC() -> LLJ140CAN := EXECBLOCK(“LJ140CAN”,.F.,.F.) LOJA140.PRX – LJ140EXCORC() -> EXECBLOCK(“LJ140FIM”,.F.,.F.) LOJA140.PRX – LJ140VALIDA() -> LLJ140VLC := EXECBLOCK(“LJ140VLC”,.F.,.F.) LOJA190.PRX – FA190OK() -> LRET := EXECBLOCK(“LJ190VLD”,.F.,.F.) LOJA190.PRX – LJ190DEV() -> EXECBLOCK(“LJ190DCH”) LOJA190.PRX – LJ190EST() -> EXECBLOCK(“LJ190ECH”) LOJA190.PRX – LJ190EST() -> XRET := EXECBLOCK(“LJ7ESTDV”,.F.,.F.,{NOPCA}) LOJA220A.PRW – ACUMULAITEM() -> CSITUACAO := EXECBLOCK(“LJ220REG”,.F.,.F.) LOJA220A.PRW – ACUMULAITEM() -> LCONFIRMAFIS:=EXECBLOCK(“LJ220FIS”,.F.,.F.,{CPRODUTO}) LOJA220A.PRW – ACUMULAITEM() -> LOCAL CTESPE := IF( EXISTBLOCK( “LJ220TS” ), EXECBLOCK( “LJ220TS” , .F., .F., {CPRODUTO}), “” ) LOJA220A.PRW – ACUMULAITEM() -> NDESCITEM := EXECBLOCK(“VALPROD5”,.F.,.F.,{CPRODUTO,ROUND(( NPRECO NQUANT ),2)})
LOJA220A.PRW – ACUMULAITEM() -> NICMS, NIPI, NISS, CCF, IF(LL220TABPAD,EXECBLOCK(“L220TABPAD”,.F.,.F.,{SUBSTR(CPRODUTO,1,_TAMCPROD)}),CTABPAD), NBSICMS, NVLRUNIT, NBSICMS, NBSICMS, CSITUACAO, CVENDLOJA,;
LOJA220A.PRW – L220DESCITEM() -> IF !EXECBLOCK(“LJ220PDE”,.F.,.F.)
LOJA220A.PRW – L220DESCITEM() -> WHEN IF( EXISTBLOCK(“LJDESCVR”), EXECBLOCK(“LJDESCVR”,.F.,.F.,{NDESCPERTMP,NDESCTMP,NVLRTOT}), .T. )
LOJA220A.PRW – L220DESCITEM() -> WHEN NDESCTMP == 0 .AND. IF( EXISTBLOCK(“LJDESCVR”), EXECBLOCK(“LJDESCVR”,.F.,.F.,{NDESCPERTMP,NDESCTMP,NVLRTOT}), .T. )
LOJA220A.PRW – L220TOOLBAR() -> ALJ220BU1 := EXECBLOCK( “LJ220BU1” )
LOJA220A.PRW – LJ220ATE() -> CTMPCLI := EXECBLOCK(“LJCLIPAD”,.F.,.F.,)
LOJA220A.PRW – LJ220ATE() -> EXECBLOCK(“LJ22001”,.F.,.F.)
LOJA220A.PRW – LJ220ATE() -> IF(EXISTBLOCK(“LJ220KE”),SETKEY(5,{|| EXECBLOCK(“LJ220KE”,.F.,.F.,)}),NIL)
LOJA220A.PRW – LJ220CLIENTE() -> ACLIENTE := EXECBLOCK(“L220SCLI”,.F.,.F.,{CCLIENTE,CLOJACLI})
LOJA220A.PRW – LJ220CLIENTE() -> CTMPCLI := EXECBLOCK(“LJCLIPAD”,.F.,.F.,)
LOJA220A.PRW – LJ220CLIENTE() -> EXECBLOCK(“LJ220CLI”,.F.,.F.)
LOJA220A.PRW – LJ220DIN() -> AADM := EXECBLOCK(“LJ220ADM”,.F.,.F.,)
LOJA220A.PRW – LJ220DIN() -> AMATRIZ := EXECBLOCK(“LJ220FORMA”,.F.,.F.,{AMATRIZ})
LOJA220A.PRW – LJ220DIN() -> CFORMAS := EXECBLOCK(“LJ220VAL”,.F.,.F.)
LOJA220A.PRW – LJ220DIN() -> LRET := EXECBLOCK( “LJ220APARC”, .F., .F., ;
LOJA220A.PRW – LJ220PROD() -> ARETCP:=EXECBLOCK(“LJ220CP”,.F.,.F.,{CTMPPROD,NQUANT,NPRECO})
LOJA220A.PRW – LJ220PROD() -> ARETVALPROD3 := EXECBLOCK(“VALPROD3”,.F.,.F.,{CTELESP,NQUANT})
LOJA220A.PRW – LJ220PROD() -> CLOCAL:=EXECBLOCK(“LJ220LOC”,.F.,.F.)
LOJA220A.PRW – LJ220PROD() -> CTABPAD:= EXECBLOCK( “L220TABPAD”, .F., .F., {SB1->B1_COD} )
LOJA220A.PRW – LJ220PROD() -> CTES := EXECBLOCK( “LJ220TS” , .F., .F., {CTMPPROD})
LOJA220A.PRW – LJ220PROD() -> NPRECO:= EXECBLOCK(“LJ220ALTPRC”, .F., .F., { CTMPPROD, NQUANT, NPRECO })
LOJA260.PRX – CX_ABRE_FECHA() -> EXECBLOCK(“LJ260ANT”,.F.,.F.,CTIPO)
LOJA260.PRX – CX_ABRE_FECHA() -> EXECBLOCK(“LJ260DEP”,.F.,.F.,CTIPO)
LOJA260.PRX – LJ260ABRE() -> EXECBLOCK(“LJ260ABC”,.F.,.F.)
LOJA260.PRX – LJ260ABRE() -> LRET:=EXECBLOCK(“LJ260TRA”,.F.,.F.)
LOJA260.PRX – LJ260CHEC1() -> CRET := EXECBLOCK(“LJ260FIL”,.F.,.F.)
LOJA260.PRX – LJ260FECHA() -> LRET:=EXECBLOCK(“LJ260FEC”,.F.,.F.)
LOJA260.PRX – LJ260GMVA() -> EXECBLOCK(“LJ260SLW”,.F.,.F.)
LOJA300.PRX – R930MRESUMO() -> EXECBLOCK(“LJGRVSF3”, .F. , .F. , { AMAPARESUMO , “2” })
LOJA340.PRW – LJ340TROC() -> ARET := EXECBLOCK(“FRT050SA”,.F.,.F.,{NCHECK,CCODORIGEM,CCODDESTIN})
LOJA340.PRW – LJ340TROC() -> EXECBLOCK(“FRT050ST”,.F.,.F.,{NCHECK,CSUPCAIXA,NVALOR,0,0,0,0,0,0,0})
LOJA350.PRW – (OVLTO() -> XRET:=EXECBLOCK(“LJ7070”, .F. , .F.)
LOJA350.PRW – LJ350MONSA() -> ARET := EXECBLOCK(“FRT050SA”,.F.,.F.,{1,CCODORIGEM,CCODDESTIN})
LOJA350.PRW – LJ350MOVIM() -> EXECBLOCK(“LJ350IMP”,.F.,.F.,{AVENDAS,ASANGRIAS,ADIGITADO,NTOTVEND,;
LOJA350.PRW – LJ350PANEL() -> LRET :=EXECBLOCK( “LJ35001”, .F., .F. )
LOJA350.PRW – LJ350PROC() -> EXECBLOCK(“FRT050ST”,.F.,.F.,{NCHECK ,CSUPCAIXA ,ADIGSAN[1][1],ADIGSAN[1][2],;
LOJA350.PRW – LJ350PROC() -> XRET:=EXECBLOCK(“LJ7071”,.F.,.F.,{NACUDIARIO})
LOJA430.PRW – LJ430BAR() -> DEFINE BUTTON OBTNEST RESOURCE “PLNPROP” OF OBAR ACTION IF(LLJ430BU1,EXECBLOCK(“LJ430BU1″,.F.,.F.), LJXDPROD( ACOLS[N,ASCAN(AHEADER,{|X|ALLTRIM(X[2])==”LN_COD”})],ACOLS[N,ASCAN(AHEADER,{|X|ALLTRIM(X[2])==”LN_LOCAL”})] ));
LOJA430.PRW – LJ430EXC() -> EXECBLOCK(“LJ7430EXC”, .F., .F.,{ CPEDIDO, CCLIENTE, CLOJA })
LOJA430.PRW – LJ430GER() -> EXECBLOCK(“LJ430NF” ,.F.,.F.,{CNOTA,CSERIE,SLM->LM_LOJA})
LOJA430.PRW – LJ430GER() -> LGERADIST := EXECBLOCK(“LJ430DIS”,.F.,.F., {SLM->LM_NUM, SLM->LM_CLIENTE, SLM->LM_LOJA})
LOJA430.PRW – LJ430GRV() -> EXECBLOCK(“LJ430GRAVA”,.F.,.F.)
LOJA430.PRW – LJ430GRV() -> XRET := EXECBLOCK( “LJ7430VDGR”, .F., .F., {NCHECK, LCHECK3, NOPC } )
LOJA440.PRX – LJ440PROCB() -> IF EXISTBLOCK( “LJ440VLD” ) .AND. ! EXECBLOCK( “LJ440VLD”, .F., .F., 2 )
LOJA440.PRX – LJ440PROCE() -> IF EXISTBLOCK( “LJ440VLD” ) .AND. !EXECBLOCK( “LJ440VLD”, .F., .F., 1 )
LOJA460.PRW – LJ460GRAVA() -> EXECBLOCK(“LJ460MAN”,.F.,.F.,{NOPC})
LOJA470.PRW – LJ470REC() -> AFORNEC := EXECBLOCK(“LJ470ACT”,.F.,.F.,{ ALLTRIM( AARQ[ NPOINTER ][1] ) } )
LOJA470.PRW – LJ470REC() -> ALJ470CAB := EXECBLOCK(“LJ470CAB”,.F.,.F.,{ACAB})
LOJA470.PRW – LJ470REC() -> ALJ470ITE := EXECBLOCK(“LJ470ITE”,.F.,.F.,{AITENS})
LOJA470.PRW – LJ470REC() -> ALJ470REC:= EXECBLOCK(“LJ470REC”,.F.,.F.,{AFIELDSSF2,AFIELDSSD2,ADADOSSD2})
LOJA701.PRW – () -> LRET := EXECBLOCK(“FTVD7003”,.F.,.F.,{LRET, ACOLS[N][NPOSITEM] })
LOJA701.PRW – () -> LRETPE := EXECBLOCK( “LJ7037”, .F., .F. )
LOJA701.PRW – CARRLOTORC() -> CFILQRY := ALLTRIM(EXECBLOCK(“LJ7105”, .F., .F., { CWHERE }))
LOJA701.PRW – LJ7AVALCRED() -> LANCRED := EXECBLOCK(“FTVD7014” , .F., .F., {CCLILOJA, CLOJACLI, NSALDUP, AFORMAS})
LOJA701.PRW – LJ7AVALCRED() -> LANCRED := EXECBLOCK(“LJ7014” , .F., .F., {CCLILOJA, CLOJACLI, NSALDUP, AFORMAS})
LOJA701.PRW – LJ7CALL003() -> LRET := EXECBLOCK(“LJ7003”,.F.,.F.,{LRET, ACOLS[N][NPOSITEM] })
LOJA701.PRW – LJ7CANC() -> EXECBLOCK(“L7CAN”,.F.,.F.,{LCANCELA})
LOJA701.PRW – LJ7CANC() -> EXECBLOCK(“L7CAN”,.F.,.F.,{LCANCELOU})
LOJA701.PRW – LJ7CORLEGE() -> ALEGENDA:= EXECBLOCK(“FTVD70LG”,.F.,.F.,{@ALEGENDA,”1″})
LOJA701.PRW – LJ7CPGRVOR() -> ALJ7106 := EXECBLOCK(“LJ7106”,.F.,.F., {ASLQDESC, ASLRDESC})
LOJA701.PRW – LJ7DEFLEG() -> ACORES := EXECBLOCK(“FTVD70LG”,.F.,.F.,{@ACORES,”2″})
LOJA701.PRW – LJ7ELIPRODPED() -> EXECBLOCK( “FTVD7057”, .F., .F., { AB6->AB6_NUMOS } )
LOJA701.PRW – LJ7ELIPRODPED() -> EXECBLOCK( “LJ7057”, .F., .F., { AB6->AB6_NUMOS } )
LOJA701.PRW – LJ7ESTOQUE() -> XRET := EXECBLOCK(“FTVD7045”,.F.,.F.)
LOJA701.PRW – LJ7ESTOQUE() -> XRET := EXECBLOCK(“LJ7045”,.F.,.F.)
LOJA701.PRW – LJ7LANCITEM() -> EXECBLOCK( “LJ70101”, .F., .F., {“2”} )
LOJA701.PRW – LJ7LANCITEM() -> LCONTINUA := EXECBLOCK( “LJ70101”, .F., .F., {“1”} )
LOJA701.PRW – LJ7LINOK() -> LRET := EXECBLOCK( “FTVD7030”, .F., .F., { 1 ,NLJ7030 } )
LOJA701.PRW – LJ7LINOK() -> LRET := EXECBLOCK( “LJ7030”, .F., .F., { 1 ,NLJ7030 } )
LOJA701.PRW – LJ7ORCAM() -> EXECBLOCK(CSCRORC,.F.,.F.)
LOJA701.PRW – LJ7SAIR() -> EXECBLOCK(“FTVD7033”, .F., .F., {LGRAVACAO, NOPC})
LOJA701.PRW – LJ7SAIR() -> EXECBLOCK(“LJ7033”, .F., .F., {LGRAVACAO, NOPC})
LOJA701.PRW – LJ7TUDOK() -> LRESERVA := EXECBLOCK( “FTVD7048”, .F., .F., {ACOLS[NX]})
LOJA701.PRW – LJ7TUDOK() -> LRESERVA := EXECBLOCK( “LJ7048”, .F., .F., {ACOLS[NX]})
LOJA701.PRW – LJ7TUDOK() -> LRET := EXECBLOCK( “FTVD7030”, .F., .F., { 2 , NTIPO } )
LOJA701.PRW – LJ7TUDOK() -> LRET := EXECBLOCK( “LJ7030”, .F., .F., { 2 , NTIPO } )
LOJA701.PRW – LJ7VALDEL() -> LRETPE := EXECBLOCK( “FTVD7037”, .F., .F. )
LOJA701.PRW – LJ7VENDA() -> AFUNC := EXECBLOCK( “FTVD7016”, .F., .F., {NOPC, NATALHO} )
LOJA701.PRW – LJ7VENDA() -> AFUNC :=EXECBLOCK( “LJ7016”, .F., .F., {NOPC, NATALHO} )
LOJA701.PRW – LJ7VENDA() -> ANOFUNCS := EXECBLOCK( “LJNOFUNC”, .F., .F., {AFUNCOES, NOPC} )
LOJA701.PRW – LJ7VENDA() -> ARET := EXECBLOCK(“FT701BTN”,.F.,.F.)
LOJA701.PRW – LJ7VENDA() -> LCONTATEND := EXECBLOCK( “FTVD7032”, .F., .F., { NOPC } )
LOJA701.PRW – LJ7VENDA() -> LCONTATEND := EXECBLOCK( “LJ7032”, .F., .F., { NOPC } )
LOJA701.PRW – LJ7VENDA() -> LOCAL CVENDPAD := IIF(LFTVDVER12,IF(EXISTBLOCK(“FT701VP”), EXECBLOCK(“FT701VP”,.F.,.F.), SUPERGETMV( “MV_VENDPAD” )),SUPERGETMV( “MV_VENDPAD” ))
LOJA701.PRW – LJ7VLDCARREGA() -> LRET :=EXECBLOCK(“LJ7073”,.F.,.F.,{ASL1, ASL2, ASL4})
LOJA701.PRW – LJ7XSL1() -> EXECBLOCK( “LJ70110”, .F., .F., {CTIPO} )
LOJA701.PRW – LJKEYFUNCS() -> LRET := EXECBLOCK( “LJ701KEY”, .F., .F. )
LOJA701.PRW – LOJA701() -> XRET := EXECBLOCK( “LJ7060”, .F., .F. )
LOJA701.PRW – MENUDEF() -> ANROTINA :=EXECBLOCK( “FTVD7053”, .F., .F. )
LOJA701.PRW – MENUDEF() -> ANROTINA :=EXECBLOCK( “LJ7053”, .F., .F. )
LOJA701.PRW – SELORCLOT() -> CFILQRY := ALLTRIM(EXECBLOCK(“LJ7105”, .F., .F., { CWHERE }))
LOJA7010.PRW – REALIZAESTORNO() -> EXECBLOCK(“LJ7103”,.F.,.F.,{LPROSSEGUE,SELF:CORC_CUPOM,SELF:CORCAMENTO,SELF:LJOB,SELF:CSERIE,SELF:AORC_PAGTOS})
LOJA701A.PRW – () -> M->LR_DESC:= EXECBLOCK( “LJ8099”, .F., .F. )
LOJA701A.PRW – LJ7CANCIT() -> NALIQRED := EXECBLOCK(“FTVD7017”,.F.,.F.)
LOJA701A.PRW – LJ7CANCIT() -> NALIQRED := EXECBLOCK(“LJ7017”,.F.,.F.)
LOJA701A.PRW – LJ7FRETE() -> ACPOUSER := EXECBLOCK( “FTVD7006”, .F., .F. )
LOJA701A.PRW – LJ7FRETE() -> ACPOUSER := EXECBLOCK( “LJ7006”, .F., .F. )
LOJA701A.PRW – LJ7FRETE() -> ALJ7086 := EXECBLOCK( “LJ7086”, .F., .F., {ACAMPOSALT} )
LOJA701A.PRW – LJ7PROD() -> LRETPE := EXECBLOCK( “FTVD7036”, .F., .F. )
LOJA701A.PRW – LJ7PROD() -> LRETPE := EXECBLOCK( “LJ7036”, .F., .F. )
LOJA701A.PRW – LJ7PROD() -> XLOCAL := EXECBLOCK( “FTVD7041”, .F., .F., { CLOCAL, ACOLSDET } )
LOJA701A.PRW – LJ7PROD() -> XLOCAL := EXECBLOCK( “LJ7041”, .F., .F., { CLOCAL, ACOLSDET } )
LOJA701A.PRW – LJ7PROD() -> XRET := EXECBLOCK(“LJ7061”,.F.,.F.)
LOJA701A.PRW – LJ7TABELA() -> XRET := EXECBLOCK( “FTVD7043”, .F., .F., {NTABELA} )
LOJA701A.PRW – LJ7TABELA() -> XRET := EXECBLOCK( “FTVD7044”, .F., .F., {NX} )
LOJA701A.PRW – LJ7TABELA() -> XRET := EXECBLOCK( “LJ7043”, .F., .F., {NTABELA} )
LOJA701A.PRW – LJ7TABELA() -> XRET := EXECBLOCK( “LJ7044”, .F., .F., {NX} )
LOJA701A.PRW – LJ7VEREST() -> LVALIDAEST := EXECBLOCK(“LJVLDEST”,.F.,.F.,{ ACOLS[NX][NPOSPROD], CARMAZEM, NQTDAUX, CTESPAD, NX })
LOJA701A.PRW – LJ7VLDDESC() -> ALJ7104 :=EXECBLOCK( “LJ7104”, .F., .F., {NPERDESC ,NVLRDESC} )
LOJA701A.PRW – LJ7VLDDESC() -> ALJ7107 := EXECBLOCK(“LJ7107”, .F., .F., { LJ7T_TOTAL(2), APGTOS, ADESCONTO } )
LOJA701A.PRW – LJ7VLITEM() -> ACOLS[N][NPOSDESC]:= EXECBLOCK( “LJ8099”, .F., .F. )
LOJA701A.PRW – LJ7VLITEM() -> LSTATUSIMP13 := EXECBLOCK(“FRTECF13”,.F.,.F.,{ACOLS[N][NPOSPROD],ACOLS[N][NPOSVLUNIT], NQUANT})
LOJA701A.PRW – LJ7VLITEM() -> NDIASGAR := EXECBLOCK(“LJ7080”,.F.,.F.,{ACOLS[N][NPOSPROD]})
LOJA701A.PRW – LJ7_VALDESC() -> LRET := EXECBLOCK(“FTVD7018”,.F.,.F.,{ NPERDESC , NVLRDESC, NTIPO })
LOJA701A.PRW – LJ7_VALDESC() -> LRET := EXECBLOCK(“LJ7018”,.F.,.F.,{ NPERDESC , NVLRDESC, NTIPO })
LOJA701A.PRW – LJNFFIMVD() -> NRETLJ7087 := EXECBLOCK( “LJ7087”, .F., .F.)
LOJA701B.PRW – “TPLDRO_PGTO”, PARA QUE O ARRAY DE FORMAS DE PAGAMENTO SEJA LIMPO E ³() -> LDISABLEBT := EXECBLOCK(“LJ7027”, .F., .F.,{ALLTRIM(UPPER(AFORMPGTOS[NX][2]))})
LOJA701B.PRW – “TPLDRO_PGTO”, PARA QUE O ARRAY DE FORMAS DE PAGAMENTO SEJA LIMPO E ³() -> LHIDEBTN := EXECBLOCK(“FTVD7023”, .F., .F.,{ALLTRIM(UPPER(AFORMPGTOS[NX][2]))})
LOJA701B.PRW – “TPLDRO_PGTO”, PARA QUE O ARRAY DE FORMAS DE PAGAMENTO SEJA LIMPO E ³() -> LHIDEBTN := EXECBLOCK(“LJ7023”, .F., .F.,{ALLTRIM(UPPER(AFORMPGTOS[NX][2]))})
LOJA701B.PRW – LJ7AJUSTATROCO() -> AMOEDAS:=EXECBLOCK(“LJ7076”,.F.,.F.)
LOJA701B.PRW – LJ7ALTPGSI() -> ACOLCUSTOM := EXECBLOCK( “FTVD7012”,.F.,.F. )
LOJA701B.PRW – LJ7ALTPGSI() -> ACOLCUSTOM := EXECBLOCK( “LJ7012”,.F.,.F. )
LOJA701B.PRW – LJ7ALTPGT() -> XRET := EXECBLOCK(“FTVD7009”,.F.,.F.,{AFTVD7009[1],AFTVD7009[2]})
LOJA701B.PRW – LJ7ALTPGT() -> XRET := EXECBLOCK(“LJ7009”,.F.,.F.,{ALJ7009[1],ALJ7009[2]})
LOJA701B.PRW – LJ7CALCFATWIN() -> NADMTAX:= EXECBLOCK(“FTVD7034”,.F.,.F.,{CCODADM})
LOJA701B.PRW – LJ7CALCFATWIN() -> NADMTAX:= EXECBLOCK(“LJ7034”,.F.,.F.,{CCODADM})
LOJA701B.PRW – LJ7CONDNEG() -> ARET := EXECBLOCK(‘FTVD7004’,.F.,.F.)
LOJA701B.PRW – LJ7CONDNEG() -> ARET := EXECBLOCK(‘LJ7004’,.F.,.F.)
LOJA701B.PRW – LJ7CONDNEG() -> CFTVD7015 := EXECBLOCK(“FTVD7015″, .F., .F., {LRECEBE,”CN”})
LOJA701B.PRW – LJ7CONDNEG() -> CLJ7015 := EXECBLOCK(“LJ7015″, .F., .F., {LRECEBE,”CN”})
LOJA701B.PRW – LJ7CONDPG COM A CONFICÃO DE CALTERCOND==.T. .AND. EMPTY(AL() -> ACOLCUSTOM := EXECBLOCK( “FTVD7012”,.F.,.F. )
LOJA701B.PRW – LJ7CONDPG COM A CONFICÃO DE CALTERCOND==.T. .AND. EMPTY(AL() -> ACOLCUSTOM := EXECBLOCK( “LJ7012”,.F.,.F. )
LOJA701B.PRW – LJ7CONDPG COM A CONFICÃO DE CALTERCOND==.T. .AND. EMPTY(AL() -> EXECBLOCK( “FTVD7031”,.F.,.F., { LCRIA, LPANVA3 } )
LOJA701B.PRW – LJ7CONDPG COM A CONFICÃO DE CALTERCOND==.T. .AND. EMPTY(AL() -> EXECBLOCK( “LJ7031”,.F.,.F., { LCRIA, LPANVA3 } )
LOJA701B.PRW – LJ7CONDPG COM A CONFICÃO DE CALTERCOND==.T. .AND. EMPTY(AL() -> LCONTINUA := EXECBLOCK(“FTVD7011”,.F.,.F.)
LOJA701B.PRW – LJ7CONDPG COM A CONFICÃO DE CALTERCOND==.T. .AND. EMPTY(AL() -> LCONTINUA := EXECBLOCK(“LJ7011”,.F.,.F.)
LOJA701B.PRW – LJ7CONDPG() -> CFTVD7015 := EXECBLOCK(“FTVD7015”, .F., .F., {LRECEBE,CCONDICAO})
LOJA701B.PRW – LJ7CONDPG() -> CLJ7015 := EXECBLOCK(“LJ7015”, .F., .F., {LRECEBE,CCONDICAO})
LOJA701B.PRW – LJ7CONDPG() -> EXECBLOCK( “LJ7063”,.F.,.F., { NTIPO, CCONDICAO, NOPC, LRECAL } )
LOJA701B.PRW – LJ7DETITEM() -> XRET := EXECBLOCK(“FTVD7005”,.F.,.F.)
LOJA701B.PRW – LJ7DETITEM() -> XRET := EXECBLOCK(“LJ7005”,.F.,.F.)
LOJA701B.PRW – LJ7IMPFATWIN() -> EXECBLOCK(“FTVD7035”,.F.,.F.,{APARFATOR})
LOJA701B.PRW – LJ7IMPFATWIN() -> EXECBLOCK(“LJ7035”,.F.,.F.,{APARFATOR})
LOJA701B.PRW – LJ7IMPFATWIN() -> LOCAL APARFATOR := {}
LOJA701B.PRW – LJ7INFPGTOS() -> ADADOSCHQ[1] := ACLONE(EXECBLOCK(“FTVD7054”,.F.,.F.,{ADADOSCHQ[1]}))
LOJA701B.PRW – LJ7INFPGTOS() -> ADADOSCHQ[1] := ACLONE(EXECBLOCK(“LJ7054”,.F.,.F.,{ADADOSCHQ[1]}))
LOJA701B.PRW – LJ7INFPGTOS() -> CRETLJ7028 := EXECBLOCK(“LJ7028″,.F.,.F.,{APGTOSSINT[NX][1], GETDTOVAL(STRTRAN(ADADOSADM[1][1],”.”,”,”)), ADADOSADM[1][2], ADADOSADM[1][3], ADADOSADM[1][5], ADADOSADM[1][7]})
LOJA701B.PRW – LJ7INFPGTOS() -> EXECBLOCK(“FTVD7039”,.F.,.F.)
LOJA701B.PRW – LJ7INFPGTOS() -> EXECBLOCK(“LJ7039”,.F.,.F.)
LOJA701B.PRW – LJ7INFPGTOS() -> LCANCELA := EXECBLOCK(“FTVD7021”,.F.,.F.,{LCANCELA, NTIPO})
LOJA701B.PRW – LJ7INFPGTOS() -> LCANCELA := EXECBLOCK(“LJ7021”,.F.,.F.,{LCANCELA, NTIPO})
LOJA701B.PRW – LJ7MONTPG() -> ARET := EXECBLOCK(“FTVD7007”,.F.,.F.)
LOJA701B.PRW – LJ7MONTPG() -> ARET := EXECBLOCK(“LJ7007”,.F.,.F.)
LOJA701B.PRW – LJ7MONTPG() -> ELSEIF ((! LFTVD7020 .AND. LFTVDVER12) .OR. (LFTVDVER12 .AND. LFTVD7020 .AND. EXECBLOCK(“FTVD7020”, .F., .F., { UPPER(STR0034) }) ))
LOJA701B.PRW – LJ7MONTPG() -> IF (! LLJ7020) .OR. ( LLJ7020 .AND. EXECBLOCK(“LJ7020”, .F., .F., { UPPER(ALLTRIM(X5DESCRI())) }) )
LOJA701B.PRW – LJ7MONTPG() -> IF ((! LLJ7020 .AND. !LFTVDVER12) .OR. ( !LFTVDVER12 .AND. LLJ7020 .AND. EXECBLOCK(“LJ7020”, .F., .F., { UPPER(STR0034) }) ))
LOJA701B.PRW – LJ7MONTPG() -> IF ((! LLJ7020 .AND. !LFTVDVER12) .OR. ( LLJ7020 .AND. EXECBLOCK(“LJ7020″, .F., .F., { UPPER(STR0033) }) )) .AND. (!”CN” $ CMNFORMPG)
LOJA701B.PRW – LJ7MONTPG() -> IF ((!LFTVD7020 .AND. LFTVDVER12) .OR. (LFTVD7020 .AND. EXECBLOCK(“FTVD7020″, .F., .F., { UPPER(STR0033) }))) .AND. (!”CN” $ CMNFORMPG)
LOJA701B.PRW – LJ7MONTPG() -> LADDBTN := EXECBLOCK(“FTVD7020”, .F., .F., { UPPER(ALLTRIM(X5DESCRI())) })
LOJA701B.PRW – LJ7MONTPG() -> LADDBTN := EXECBLOCK(“LJ7020”, .F., .F., { UPPER(ALLTRIM(X5DESCRI())) })
LOJA701B.PRW – LJ7MONTPGT() -> ARETLJORDFP := EXECBLOCK( “LJORDFP”, .F., .F., { APARCSINT } )
LOJA701B.PRW – LJ7SELENCC() -> EXECBLOCK(“FTVD7026”, .F., .F.)
LOJA701B.PRW – LJ7SELENCC() -> EXECBLOCK(“LJ7026”, .F., .F., {NOPC})
LOJA701B.PRW – LJ7SERIAL() -> LRETFTVD7055 := EXECBLOCK(“FTVD7055”)
LOJA701B.PRW – LJ7SERIAL() -> LRETLJ7055 := EXECBLOCK(“LJ7055”)
LOJA701B.PRW – LJ7SHOWFATOR() -> NTAXAJUR := EXECBLOCK(“FTVD7034”,.F.,.F.,{CCODADM})
LOJA701B.PRW – LJ7SHOWFATOR() -> NTAXAJUR := EXECBLOCK(“LJ7034”,.F.,.F.,{CCODADM})
LOJA701B.PRW – LJ7VLDOKVP() -> LRET := EXECBLOCK(“LJ7094”,.F.,.F.,{ACOLS,NVALOR,NSOMA})
LOJA701B.PRW – LJVLDPGTO() -> LRET := EXECBLOCK( “LJVLDPGT”,.F.,.F., { DDATA,NVALOR,CFORMA,NPARC } )
LOJA701C.PRW – LJ701ATCARTAO() -> IF ALLTRIM(APGTOS[NI,03]) $ _FORMATEF .AND. ! ( IF( EXISTBLOCK(“FTVD7022”) .AND. EXECBLOCK(“FTVD7022”, .F., .F.), ;
LOJA701C.PRW – LJ701ATCARTAO() -> XRET := IIF(CTIPTEF == TEF_CLISITEF,.T.,EXECBLOCK(“LJ7022”, .F., .F.))
LOJA701C.PRW – LJ7CAULCUP() -> EXECBLOCK(“FRTCANCELA”,.F.,.F.,{2,CSUPERVISOR,NIL,UPRODTPL})
LOJA701C.PRW – LJ7CAULCUP() -> XRET := EXECBLOCK(“FRTCANCCF”,.F.,.F.,{CNUMCUP})
LOJA701C.PRW – LJ7CONFADM() -> LOCAL XRET
LOJA701C.PRW – LJ7CONFADM() -> XRET := EXECBLOCK(“FTVD7022”, .F., .F.)
LOJA701C.PRW – LJ7CONFADM() -> XRET := EXECBLOCK(“LJ7022”, .F., .F.,{CADMVER,CADMRET,NNUMTRANS,CREDERET,CCODREDE,CFORMACART,NPARCELAS})
LOJA701C.PRW – LJ7DOCSCF() -> ADADOSCFPE := EXECBLOCK( “LJDOCCF”, .F., .F., {ADADOSCFPE, ATIPODOC, ATIPOCI} )
LOJA701C.PRW – LJ7GERAENT() -> ARET := EXECBLOCK(“FTVD7046”, .F., .F., {CFILBKP})
LOJA701C.PRW – LJ7GERAENT() -> ARET := EXECBLOCK(“LJ7046”, .F., .F., {CFILBKP , ASL1 , ASL2 })
LOJA701C.PRW – LJ7GERAENT() -> CTES := EXECBLOCK(“LJTESPED”,.F.,.F.,{CTES,ASL1,ASL2,NI})
LOJA701C.PRW – LJ7GERAENT() -> CTESENT := EXECBLOCK(“LJTESSFA”,.F.,.F.,{CTES,ASL1,ASL2,NI})
LOJA701C.PRW – LJ7GERAENT() -> EXECBLOCK(“LJ7065”,.F.,.F., { NI } )
LOJA701C.PRW – LJ7GERAENT() -> EXECBLOCK(“LJ7066”,.F.,.F.)
LOJA701C.PRW – LJ7GRVVENDA() -> ARET[1]:= EXECBLOCK( “LJ7074”, .F., .F., {} )
LOJA701C.PRW – LJ7GRVVENDA() -> BIMPNF := {|| EXECBLOCK(GETMV(“MV_SCRNOTA”),.F.,.F.,{SL1->L1_DOC,SL1->L1_SERIE,{},ADADOSTEFNF })}
LOJA701C.PRW – LJ7GRVVENDA() -> EXECBLOCK( “FTVDGRT”, .F., .F. )
LOJA701C.PRW – LJ7GRVVENDA() -> EXECBLOCK(“FTVD7040”,.F.,.F.)
LOJA701C.PRW – LJ7GRVVENDA() -> EXECBLOCK(“LJ7040”,.F.,.F.)
LOJA701C.PRW – LJ7GRVVENDA() -> EXECBLOCK(‘LOJR860A’,.F.,.F.,{ ANEWNCC, ANCCITENS , (NNCCUSADA – NNCCGERADA) })
LOJA701C.PRW – LJ7GRVVENDA() -> LOCAL XRET
LOJA701C.PRW – LJ7GRVVENDA() -> XRET := EXECBLOCK( “FTVD7019”,.F.,.F.,{CTOTRECNFIS, ATITULO[NI][10], &(SUPERGETMV(“MV_NATRECE”)), NI} )
LOJA701C.PRW – LJ7GRVVENDA() -> XRET := EXECBLOCK( “LJ7019”,.F.,.F.,{CTOTRECNFIS, ATITULO[NI][10], &(SUPERGETMV(“MV_NATRECE”)), NI} )
LOJA701C.PRW – LJ7RUNGRV() -> EXECBLOCK( “EMAILPARCEIRO”, .F., .F., { CNUMORC , APARCENVIAR } )
LOJA701C.PRW – LJ7RUNGRV() -> EXECBLOCK( “FTVD7002”, .F., .F., { 3 } )
LOJA701C.PRW – LJ7RUNGRV() -> EXECBLOCK( “FTVD7002”, .F., .F., { NPARAMTIPO, ADOCDEV } )
LOJA701C.PRW – LJ7RUNGRV() -> EXECBLOCK( “FTVD7002”, .F., .F., { NTIPO } )
LOJA701C.PRW – LJ7RUNGRV() -> EXECBLOCK( “LJ7002”, .F., .F., { 3 } )
LOJA701C.PRW – LJ7RUNGRV() -> EXECBLOCK( “LJ7002”, .F., .F., { NPARAMTIPO, ADOCDEV, 1 } )
LOJA701C.PRW – LJ7RUNGRV() -> EXECBLOCK( “LJ7002”, .F., .F., { NTIPO } )
LOJA701C.PRW – LJ7RUNGRV() -> EXECBLOCK(“LJ7083”,.F., .F., {ACOLS[NX][NPOSPROD], ACOLSDET[NX][NPOSDTLOCAL], ACOLS[NX][NPOSQUANT]} )
LOJA701C.PRW – LJ7RUNGRV() -> LFTVD7042:=EXECBLOCK( “FTVD7042”, .F., .F., { M->LQ_CLIENTE,M->LQ_LOJA } )
LOJA701C.PRW – LJ7RUNGRV() -> LLJ7042:=EXECBLOCK( “LJ7042”, .F., .F., { M->LQ_CLIENTE,M->LQ_LOJA } )
LOJA701C.PRW – LJ7RUNGRV() -> LRET := EXECBLOCK( “FTVD7001”, .F., .F., {NPARAMTIPO, ADOCDEV, NDOCSAI} )
LOJA701C.PRW – LJ7RUNGRV() -> LRET := EXECBLOCK( “LJ7001”, .F., .F., {NPARAMTIPO, ADOCDEV, NDOCSAI} )
LOJA701C.PRW – LJ7VLDCF() -> LRET := !EXECBLOCK( “LJVLDCF”, .F., .F., { ADADOSCF })
LOJA701C.PRW – LJREABREVA() -> LREABRETELA := EXECBLOCK( “LJ701MBR”, .F., .F., {NTIPO, NOPC} )
LOJA701C.PRW – LJRECALFIS() -> LSTATUSIMP13 := EXECBLOCK(“FRTECF13”)
LOJA701D.PRW – LJ7IMPCF() -> ARETLJ7013 := EXECBLOCK(“LJ7013”,.F.,.F.,{CCODPROD, CDESCRIPROD, CQUANT, CVRUNIT, CDESCONTO, CSITTRIB, CVLRITEM })
LOJA701D.PRW – LJ7IMPCF() -> CMENIMPNCM:= EXECBLOCK(“LJ7078”,.F.,.F.,{NTOTVLRNCM,NTOTIMPNCM,NTOTIMPFED,NTOTIMPEST,NTOTIMPMUN})
LOJA701D.PRW – LJ7IMPCFARG() -> ARETLJ7013 := EXECBLOCK(“LJ7013”,.F.,.F.,{CPRODUTO, CDESCPROD, CQUANT, CUNIT, CVALDESCIT, CSITTRIB, CVLRITEM })
LOJA701D.PRW – LJ7IMPCFARG() -> CRETLJ7093 := EXECBLOCK(“LJ7093”,.F.,.F.)
LOJA701D.PRW – LJ7IMPITCC() -> ARETFTVD7013 := EXECBLOCK(“FTVD7013”,.F.,.F.,{CCODPROD, CDESCRIPROD, CQUANT, CVRUNIT, CDESCONTO, CSITTRIB, CVLRITEM })
LOJA701D.PRW – LJ7IMPITCC() -> ARETLJ7013 := EXECBLOCK(“LJ7013”,.F.,.F.,{CCODPROD, CDESCRIPROD, CQUANT, CVRUNIT, CDESCONTO, CSITTRIB, CVLRITEM })
LOJA701D.PRW – LJ7IMPLOC() -> EXECBLOCK(CLJCUPNFIS,.F.,.F.)
LOJA701D.PRW – LJ7IMPLOC() -> LJMSGRUN(STR0066 + ARETCNF[2][1],,{ ||LRET:= EXECBLOCK(“SCRPED”, .F., .F., {ARETCNF[2][1],ARETCNF[2][3]})})
LOJA701D.PRW – LJ7IMPRTOT() -> LABORTACF:= EXECBLOCK(“LJ701DAC”,.F.,.F.,{NTOTPAG,LJ7T_TOTAL(2)})
LOJA701D.PRW – LJ7STRIB() -> NALIQRED := EXECBLOCK(“FTVD7017”,.F.,.F.)
LOJA701D.PRW – LJ7STRIB() -> NALIQRED := EXECBLOCK(“LJ7017”,.F.,.F.)
LOJA701D.PRW – LJDRETALIQ() -> NALIQRED := EXECBLOCK(“FTVD7017”,.F.,.F.)
LOJA701D.PRW – LJDRETALIQ() -> NALIQRED := EXECBLOCK(“LJ7017”,.F.,.F.)
LOJA701D.PRW – LJPRTFIS() -> CTEXTO := EXECBLOCK( “SCRPED”, .F., .F., APARAMS )
LOJA701D.PRW – LJPRTFIS() -> CTEXTO := EXECBLOCK(“SCRCGIFT”, .F., .F. )
LOJA701D.PRW – LJPRTFIS() -> CTEXTO := EXECBLOCK(“SCRVPRES”, .F., .F. )
LOJA701D.PRW – LJPRTNFIS() -> CTEXTO := EXECBLOCK( “SCRPED”, .F., .F., APARAMS )
LOJA701D.PRW – LJPRTNFIS() -> CTEXTO := EXECBLOCK( “SCRVPRES”, .F., .F. )
LOJA701D.PRW – LJPRTNFIS() -> EXECBLOCK(“SCRPED”, .F., .F., APARAMS )
LOJA701D.PRW – LJPRTNFIS() -> EXECBLOCK(“SCRVPRES”, .F., .F. )
LOJA701E.PRW – LJ7BTNRES() -> AFTVD7025 := EXECBLOCK(“FTVD7025”,.F.,.F.,{NPOSPROD,NPOSDESCRI} )
LOJA701E.PRW – LJ7BTNRES() -> AITENS := EXECBLOCK(“FTVD7008”,.F.,.F.)
LOJA701E.PRW – LJ7BTNRES() -> AITENS := EXECBLOCK(“LJ7008”,.F.,.F.)
LOJA701E.PRW – LJ7RESERVA() -> ALJRESERV := EXECBLOCK(“LJRESERV”,.F.,.F., {“1”, ALOJAS, APRODUTOS, AESTOQUE} )
LOJA701E.PRW – LJ7RESERVA() -> ALJRESERV := EXECBLOCK(“LJRESERV”,.F.,.F., {“2”, ALOJAS, APRODUTOS, AESTOQUE} )
LOJA701G.PRW – LJ7LGREVFE() -> APEDAUX := EXECBLOCK(“LJ7097”,.F., .F., {ASC5, ASC6} )
LOJA701G.PRW – LJ7LGREVFE() -> EXECBLOCK(“LJ7100”, .F., .F., {ARET[1]})
LOJA7030.PRW – LOJA7030() -> CVALIDXML := EXECBLOCK( “LJDRPEP”, .F., .F., {TMPDRP->(C7_FILIAL+C7_NUM+C7_ITEM)} )
LOJA720.PRW – L720NEXTPN() -> LRET := EXECBLOCK(“LJ720NEXT”,.F.,.F.,{NTPPROC, NPANEL, NNFORIG, CCODCLI, CLOJACLI })
LOJA720.PRW – L720NEXTPN() -> LRET := EXECBLOCK(“LJ720PROX”,.F.,.F.,{NTPPROC, NPANEL, NNFORIG, CCODCLI, CLOJACLI,LDEVFRETE })
LOJA720.PRW – LJ720CONCLUIR() -> APRINTNCC := EXECBLOCK(“LJR860CB”,.F.,.F.,{ADOCDEV, ARECSD2, !LRECNAOFIS})
LOJA720.PRW – LJ720CONCLUIR() -> EXECBLOCK(“LJ720FIM”,.F.,.F.,{ADOCDEV})
LOJA720.PRW – LJ720CONCLUIR() -> EXECBLOCK(“LOJR860”,.F.,.F.,{ADOCDEV,ARECSD2,ADADOSNCC,ARECSD1})
LOJA720.PRW – LJ720CONCLUIR() -> EXECBLOCK(“LOJR860A”,.F.,.F.,{ANEWNCC, ANCCITENS , NTOTALSERV})
LOJA720.PRW – LJ720DEVSD2() -> ACAB := EXECBLOCK(“LJ720CABEC”,.F.,.F.,{ACAB, ADOCDEV})
LOJA720.PRW – LJ720DEVSD2() -> CSERIE := EXECBLOCK(“LJ720SER”,.F.,.F., {LTROCA, NNFORIG} )
LOJA720.PRW – LJ720DEVTRB() -> ACAB := EXECBLOCK(“LJ720CABEC”,.F.,.F.,{ACAB, ADOCDEV})
LOJA720.PRW – LJ720DEVTRB() -> ALINHA := EXECBLOCK(“LJ720LDV”,.F.,.F.,{ALINHA})
LOJA720.PRW – LJ720DEVTRB() -> CRETTESDEV := EXECBLOCK( “LJ720TES”,.F.,.F., {LTROCA, NNFORIG} )
LOJA720.PRW – LJ720DEVTRB() -> CSERIE := EXECBLOCK(“LJ720SER”,.F.,.F., {LTROCA, NNFORIG} )
LOJA720.PRW – LJ720DEVTRB() -> LLJ7042:=EXECBLOCK( “LJ7042”, .F., .F., { CCLIENTE, CLOJA, “D” } )
LOJA720.PRW – LJ720ESTTROC() -> EXECBLOCK(“LJ720ESTOR”,.F.,.F.,{ADOCDEV})
LOJA720.PRW – LJ720ESTTROC() -> LLJ7042:=EXECBLOCK( “LJ7042”, .F., .F., { CCLIENTEDEV, CLOJADEV, “E” } )
LOJA720.PRW – LJ720ESTTROC() -> XRET := EXECBLOCK(“LJ720ANT”,.F.,.F.,{ADOCDEV})
LOJA720.PRW – LJ720FILSD2() -> XRET := EXECBLOCK(“LJ720FLT”,.F.,.F.,{ DDATADE, DDATAATE, CCODCLI, CLOJACLI, NFILTROPOR, CNUMNF, CSERIENF })
LOJA720.PRW – LJ720GTD1() -> ALINHA := EXECBLOCK(“LJ720LDV”,.F.,.F.,{ALINHA})
LOJA720.PRW – LJ720GTD1() -> CRETTESDEV := EXECBLOCK( “LJ720TES”,.F.,.F., {LTROCA, NNFORIG} )
LOJA720.PRW – LJ720VALDEV() -> XRET := EXECBLOCK(“LJ720VLFIN”,.F.,.F.,{ LCOMPCR, NFORMADEV, NTPPROC, NNFORIG, LFORMUL, ARECSD2 })
LOJA764.PRW – LJ164MNEG() -> AMNCAD :=EXECBLOCK( “LJ764MN1”, .F., .F., {ARET ,CUSER} )
LOJA764.PRW – LJ764CALPAR() -> ARET := EXECBLOCK(“LJ701A3”,.F.,.F.,ARETFORLIST)
LOJA764.PRW – LJ764CALPAR() -> ARET:= (EXECBLOCK(“LJ701A2”,.F.,.F.,APARPEA2))
LOJA764.PRW – LJ764CALPAR() -> ARETPE := EXECBLOCK(“LJ701A4”,.F.,.F.,{ARET,ACONNENG,NVLRFIN, NVLRENT, NDESCONT})
LOJA782.PRW – FILTRASFISD2() -> CLJ782WHERE := EXECBLOCK(“LJ782WHERE”,.F.,.F., {2})
LOJA782.PRW – FILTRASL1SD2() -> CLJ782WHERE := EXECBLOCK(“LJ782WHERE”,.F.,.F., {3})
LOJA800.PRW – A800DELETA() -> ABASE := EXECBLOCK(“LJ800MLT”,.F.,.F.)
LOJA800.PRW – A800EXCTIT() -> EXECBLOCK(“LJ800CTI”,.F.,.F.)
LOJA800.PRW – A800LINOK() -> LRET := EXECBLOCK(“LJ800LOK”,.F.,.F.)
LOJA800.PRW – A800PAGTOS() -> EXECBLOCK(“LJ800PGTO”,.F.,.F.,{NVALPARC,CPAGTOS})
LOJA800.PRW – A800PRODUTO() -> CPRODUTO := EXECBLOCK(“LJ800PROD”,.F.,.F.,{CPRODUTO})
LOJA800.PRW – A800TITULO() -> EXECBLOCK(“LJ800TIT”,.F.,.F.)
LOJA800.PRW – A800TUDOK() -> LRET := EXECBLOCK(“LJ800TOK”,.F.,.F.)
LOJA843.PRW – LJ843ATPRD() -> LRET := EXECBLOCK(‘LJ843VPR’, .F., .F., {CCODPROD,.T.})
LOJA843.PRW – LJ843ENCLS() -> LRET :=EXECBLOCK(“LJ843ENC”,.F.,.F.,{FWGETCODFILIAL,CNUMLST})
LOJA843.PRW – LOJA843() -> IF VALTYPE(LBTENCLST := EXECBLOCK(“LJ843HBENC”,.F.,.F.,{})) # “L”
LOJA843.PRW – LOJA843GRV() -> EXECBLOCK(“LJ843GRV”,.F.,.F.,{FWGETCODFILIAL,M->ME1_CODIGO,NOPERACAO})
LOJA845.PRW – LJ845INCIT() -> XRET := EXECBLOCK( “LJ845LPI”, .F., .F. )
LOJA845.PRW – LOJA845() -> IIF(!EMPTY(CTMP),IIF(EXISTBLOCK(“LJ845REL”),EXECBLOCK(“LJ845REL”,.F.,.F.,{FWGETCODFILIAL,CTMP}),LOJR847(FWGETCODFILIAL,CTMP)),.T.)},ATAMOBJ[3],ATAMOBJ[4],,/FONT/,,.T.,,,,{|| .T.}/WHEN/)
LOJA846.PRW – LJ8CANCRED() -> IF !EXECBLOCK(“LJ846CAN”,.F.,.F.,{COBS})
LOJA846.PRW – LJ8GERCRED() -> EXECBLOCK(“LJ846NCC”,.F.,.F.)
LOJA862.PRW – LJ862ENPED() -> ADADOSEND := EXECBLOCK(“LJ862DEND”, .F., .F., {OOBJPED})
LOJA900A.PRW – LJ900APR() -> LPROCPROD := EXECBLOCK(“LJ900AGP”,.F.,.F., {(CALIAS)->B1_COD, (CALIAS)->B1_PRODPAI, LVARIANTE , “2”})
LOJA901A.PRW – () -> EXECBLOCK(“LJ901SC5”,.F., .F., { SC5->C5_FILIAL, SC5->C5_NUM })
LOJA901A.PRW – () -> EXECBLOCK(“LJ901SL1”,.F., .F., { SL1->L1_FILIAL, SL1->L1_NUM })
LOJA901A.PRW – :TEXT //MÉTODO DE ENTREGA() -> ALJ901DES := EXECBLOCK(“LJ901DES”,.F., .F., { OAPED, ORETEXTRA, NDESCONTO, NVLRBRUTO, NTOTALPED})
LOJA901A.PRW – :TEXT //MÉTODO DE ENTREGA() -> EXECBLOCK(“LJ901CL1”,.F., .F., {SA1->A1_COD, SA1->A1_LOJA,OAPED })
LOJA901A.PRW – :TEXT() -> ARETPVCAB := EXECBLOCK(“LJ901APV”,.F., .F., { OAPED, ORETEXTRA, ACABPV, AITEMPV})
LOJA901A.PRW – LJ901AE1G() -> ARETSE1 := EXECBLOCK(“LJ901SE1”,.F., .F., { ASE1, OAPED, ORETEXTRA })
LOJA901A.PRW – LJ901AENT() -> ACLIPE := EXECBLOCK(“LJ901SA1”,.F., .F., { 2, ACLI,NIL ,OAPED })
LOJA901A.PRW – LJ901APR() -> ARET901AVL := EXECBLOCK(“LJ901AVL”,.F., .F., { APEDIDOS[NIND], CSEQ, OWS })
LOJA901A.PRW – LJ901APR() -> EXECBLOCK(“LJ91ANEC”,.F., .F., { APEDIDOS[NIND], CSEQ, OWS })
LOJA901A.PRW – LJ901APR() -> EXECBLOCK(“LJ91DEEC”,.F., .F., { APEDIDOS[NIND], CSEQ, OWS })
LOJA901A.PRW – LJ901APR() -> EXECBLOCK(“LJDEPINTPD”,.F.,.F.,{APEDOKC})
LOJA901A.PRW – LJ901ASCAN() -> CSTATUS := EXECBLOCK(“LJ901APS”,.F.,.F.)
LOJA901A.PRW – LJ901DTRAN() -> ADADOSTRAN := EXECBLOCK(“LJ901ADT”,.F.,.F., {OAPED, ORETEXTRA})
LOJA901A.PRW – LJ901DTRAN() -> ADADOSTRAN := EXECBLOCK(“LJ901ANBOL”,.F.,.F., {OAPED, ORETEXTRA})
LOJA901A.PRW – LJ901GIT() -> ARETITPV := EXECBLOCK(“LJ901PIT”,.F., .F., { OAITEM, ORETEXTRA, AITEM })
LOJA920X.PRX – LJ920GRAVA() -> EXECBLOCK( “NOTATXT”, .F., .F., { CNUMNOTA } )
LOJATER.PRW – LJINICTERM() -> CFUNCNAME := EXECBLOCK(“LJFUNCTERM”,.F.,.F.)
LOJATER.PRW – TER02() -> EXECBLOCK(“LJTM001”,.F.,.F.)
LOJATER.PRW – TER04() -> EXECBLOCK(“LJTM003”,.F.,.F.)
LOJC030.PRX – LJ030REFRESH() -> EXECBLOCK(“LJ7C030RC”, .F., .F., { ACAIXA ,DDEDATA ,DATEDATA })
LOJC030.PRX – LOJC030() -> ACTION EXECBLOCK(“LJ030ECF”,.F., .F.,{LMV_LJTROCO,NTROCOSAIDA, ACAIXA,NTROCO,;
LOJC030.PRX – MOVIMCAIXA() -> ADEV := EXECBLOCK (“LJ030DEV”,.F.,.F.)
LOJC030.PRX – MOVIMCAIXA() -> ARET := EXECBLOCK(“LJ030TES”, .F., .F., {AAUX, 1})
LOJC030.PRX – MOVIMCAIXA() -> ARET := EXECBLOCK(“LJ030TES”, .F., .F., {AAUX, 2})
LOJC031.PRW – MOVIMCXLOC() -> IF !EXECBLOCK(“LJC031SD1”,.F.,.F.)
LOJC031.PRW – MOVIMCXLOC() -> IF !EXECBLOCK(“LJC031SE1”,.F.,.F.)
LOJC031.PRW – MOVIMCXLOC() -> IF !EXECBLOCK(“LJC031SE5”,.F.,.F.)
LOJC031.PRW – MOVIMCXLOC() -> IF !EXECBLOCK(“LJC031SL1”,.F.,.F.)
LOJC060.PRW – LJ060COD() -> CTEXTO := EXECBLOCK(“MV_L060SB5”,.F.,.F.)
LOJC060.PRW – LJ060PR() -> CPRECO := EXECBLOCK( “L060PRC”, .F., .F., {NTMPPRECO,CCOD} )
LOJC060.PRW – LJ060PR_1() -> CPRECO := EXECBLOCK( “L060PRC”, .F., .F., {NTMPPRECO,CCOD} )
LOJI701O.PRW – V2000() -> OITENS := EXECBLOCK( “LJI701O1”, .F., .F., {OITENS} )
LOJNFCE.PRW – LJDANFENFE() -> EXECBLOCK( “SPNFESETUP” , .F. , .F. , {ODANFE, OSETUP} )
LOJNFCE.PRW – LJNFCEDANFE() -> LLJ7084 := EXECBLOCK( “LJ7084”, .F., .F., {ONFCE, OPROT} )
LOJNFCE.PRW – LJNFCEDET() -> ARETLJ7013 := EXECBLOCK(“LJ7013”,.F.,.F.,{CCODPROD, CDESCRIPROD, ALLTRIM(STR(NQUANT)), ALLTRIM(STR(NVRUNIT)), ALLTRIM(STR(NDESCONTO)), CSITTRIB, ALLTRIM(STR(NVLRITEM)), NI-1 })
LOJNFCE.PRW – LJNFCEDET() -> CXMLGRUPOJ := EXECBLOCK(“LJ7099”,.F.,.F.)
LOJNFCE.PRW – LJNFCEINFA() -> AINFADIC := EXECBLOCK( “LJ7085”, .F., .F. )
LOJR110.PRX – LOJR110() -> EXECBLOCK( CMV_SCRNOTA, .F., .F.,{CNFENTRADA,CSERENTRADA,AREGSF2,ADADOSTEFNF})
LOJR110.PRX – LOJR110() -> EXECBLOCK( GETMV(“MV_SCRTROC”), .F., .F.,{CNFENTRADA,CSERENTRADA})
LOJR110.PRX – LOJR110() -> EXECBLOCK(CMV_SCRNOTA, .F., .F.,{CNFENTRADA,CSERENTRADA})
LOJR130.PRX – LJ131PROC() -> CCONDICAO := EXECBLOCK(“LOCXL130”,.F.,.F.,{CCONDICAO})
LOJR130.PRX – LJIMPSCRIPT() -> EXECBLOCK(CSCRIPT, .F., .F.,{CNUMNOTA,CSERIE,AREGSF2})
LOJR130.PRX – LJR130ESTORN() -> EXECBLOCK( “LJ7072”, .F., .F., { ANFSSF2 } )
LOJR130.PRX – LJR130EXEC() -> ACONDIC := EXECBLOCK(“LOCXR130”,.F.,.F.,{})
LOJR130.PRX – LJR130EXEC() -> EXECBLOCK(“LJR130GR”,.F.,.F.)
LOJR130.PRX – LJR130EXEC() -> EXECBLOCK(“LJR130IT”,.F.,.F.)
LOJR210.PRW – IMPRELECF() -> ADAV := EXECBLOCK( “LJR210DAV”, .F., .F. )
LOJR7018.PRW – L70181PRT() -> CCFOPDEV := EXECBLOCK(“LJRCFOP”,.F.,.F.,{!LSAI})
LOJSAT.PRW – LJSATOBSCONT() -> AINFADIC := EXECBLOCK( “LJ7085”, .F., .F. )
LOJSAT.PRW – LJSATXDET() -> CXMLPE := EXECBLOCK(“LJ7099”,.F.,.F.)
LOJX904.PRW – LJ904XPR() -> LRET := EXECBLOCK(“LJX904PR”,.F., .F., { CCODPROD,CTABPROM,LATUPRC })
LOJX904.PRW – LJ904XPR() -> NVLPROM := EXECBLOCK(“LJX904VP”,.F., .F., { CCODPROD,CTABPROM,LATUPRC, NVLPROM })
LOJXECF.PRX – IFFECHACUP() -> EXECBLOCK( “LJJOURNAL”, .F., .F., { CBUFFER } )
LOJXECF.PRX – LJCMC7DIRETO() -> XRET := EXECBLOCK( “LJLECMC7”, .F., .F., { CBUFCMC7 } )
LOJXECF.PRX – LJLECMC7() -> XRET := EXECBLOCK( “LJLECMC7”, .F., .F., { CBUFCMC7 } )
LOJXECF.PRX – LJXLJ7101() -> ARETPE := EXECBLOCK( “LJ7101”, .F., .F., {CTEXTO} )
LOJXECF.PRX – MSGDISPLAY() -> CMSG := EXECBLOCK(“MSGDISPLAY”,.F.,.F.,{NTIPO,APARAMIXB})
LOJXECF.PRX – MSGDISPTOR() -> CMSG := EXECBLOCK(“MSGDISPLAY”,.F.,.F.,{NTIPO,APARAMIXB})
LOJXFUNA.PRX – GETVALDEV() -> CPREFDEV:= EXECBLOCK(“FTVDPRFDEV”,.F.,.F.)
LOJXFUNA.PRX – GETVALDEV() -> CPREFDEV:= EXECBLOCK(“LJPRFDEV”,.F.,.F.)
LOJXFUNA.PRX – GETVALDEV() -> LOCAL LFTVDTRNCC := EXISTBLOCK(“FTVDTRNCC”)
LOJXFUNA.PRX – GETVALDEV() -> LRET := EXECBLOCK(“FTVDGRVDEV”,.F.,.F.,{NVALORDEV } )
LOJXFUNA.PRX – GETVALDEV() -> LRET := EXECBLOCK(“FTVDTRNCC”,.F.,.F.)
LOJXFUNA.PRX – GETVALDEV() -> LRET := EXECBLOCK(“LJGRVDEV”,.F.,.F.,{NVALORDEV } )
LOJXFUNA.PRX – GETVALDEV() -> LRET := EXECBLOCK(“LJTRNCC”,.F.,.F.)
LOJXFUNA.PRX – GETVALDEV() -> NVLRTROCA := EXECBLOCK(“FTVDVALDV”,.F.,.F.,{ CPREFIXO, CE1NUM, NVALORORI, NVLRTROCA } )
LOJXFUNA.PRX – GETVALDEV() -> NVLRTROCA := EXECBLOCK(“GETVALDV”,.F.,.F.,{ CPREFIXO, CE1NUM, NVALORORI, NVLRTROCA } )
LOJXFUNA.PRX – LJCONFCAIXA() -> CCHAVE := EXECBLOCK(“FTVDUSRCHV”,.F.,.F.,{AINLOJA})
LOJXFUNA.PRX – LJCONFCAIXA() -> CCHAVE := EXECBLOCK(“LJUSRCHV”,.F.,.F.,{AINLOJA, NOPCAO, CNOME})
LOJXFUNA.PRX – LJENVEMLP() -> CCABEC += EXECBLOCK(“LJEMAILLP”,.F.,.F.,{CNUMLST,CNUMORC,”CAB”})
LOJXFUNA.PRX – LJSB1SLK() -> ARET := EXECBLOCK(“FTVDSLKINI”,.F.,.F.,{CPRODUTO,NQUANT} )
LOJXFUNA.PRX – LJSB1SLK() -> ARET := EXECBLOCK(“LJSLKINI”,.F.,.F.,{CPRODUTO,NQUANT} )
LOJXFUNA.PRX – LOJALTPED() -> LRET := EXECBLOCK(“LJI701O2”,.F.,.F.)
LOJXFUNA.PRX – LOJXDIN() -> AADM := EXECBLOCK(“FTVD220ADM”,.F.,.F.,)
LOJXFUNA.PRX – LOJXDIN() -> AADM := EXECBLOCK(“LJ220ADM”,.F.,.F.,)
LOJXFUNA.PRX – LOJXDIN() -> AMATRIZ := EXECBLOCK(“FTVD220FORMA”,.F.,.F.,{AMATRIZ})
LOJXFUNA.PRX – LOJXDIN() -> AMATRIZ := EXECBLOCK(“LJ220FORMA”,.F.,.F.,{AMATRIZ})
LOJXFUNA.PRX – LOJXDIN() -> CFORMAS := EXECBLOCK(“FTVD220VAL”,.F.,.F.)
LOJXFUNA.PRX – LOJXDIN() -> CFORMAS := EXECBLOCK(“LJ220VAL”,.F.,.F.)
LOJXFUNA.PRX – LOJXDIN() -> XRET := EXECBLOCK( “FTVD220APARC”, .F., .F., ;
LOJXFUNA.PRX – LOJXDIN() -> XRET := EXECBLOCK( “LJ220APARC”, .F., .F., { APGTOS,;
LOJXFUNB.PRX – ABREGAVETA() -> LABRE := EXECBLOCK( “LJGAVETA” , .F., .F. )
LOJXFUNB.PRX – ANALISAMOV() -> LRET := EXECBLOCK(‘LJEXCSNH’,.F.,.F.,{CUSERNAME})
LOJXFUNB.PRX – DIGITO() -> LRET := EXECBLOCK(“FTVDLJ220DAC”,.F.,.F.,{CCODVER,NNIVEL})
LOJXFUNB.PRX – DIGITO() -> LRET := EXECBLOCK(“LJ220DAC”,.F.,.F.,{CCODVER,NNIVEL})
LOJXFUNB.PRX – LJ010CLIEN() -> LRET := EXECBLOCK(“FTVDLOJCLI”,.F.,.F.)
LOJXFUNB.PRX – LJ010CLIEN() -> LRET := EXECBLOCK(“LOJCLI”,.F.,.F.)
LOJXFUNB.PRX – LJCHECADLLS() -> EXECBLOCK( ‘LJ7109’,.F.,.F., )
LOJXFUNB.PRX – LJCRECLI() -> CMOTIVO := EXECBLOCK( “FTVDIMPCL”,.F.,.F.,{CMOTIVO} )
LOJXFUNB.PRX – LJICMSSOL() -> CTIPOCLI := EXECBLOCK( “FTVDLJTIPCLI” , .F., .F. )
LOJXFUNB.PRX – LJICMSSOL() -> CTIPOCLI := EXECBLOCK( “LJTIPCLI” , .F., .F. )
LOJXFUNB.PRX – LJIMPCHEQUE() -> ARET := EXECBLOCK(‘FTVDCHEQUE’,.F.,.F.,{CBANCO,NVALOR,CFAVOREC,DEMISSAO,COBS,CVERSO,CCHEQUE,CCONTA,NPARC,CCIDADE})
LOJXFUNB.PRX – LJIMPCHEQUE() -> ARET := EXECBLOCK(‘LJCHEQUE’,.F.,.F.,{CBANCO,NVALOR,CFAVOREC,DEMISSAO,COBS,CVERSO,CCHEQUE,CCONTA,NPARC,CCIDADE})
LOJXFUNB.PRX – LJPROFILE() -> CRETLJ7110 := EXECBLOCK(“LJ7110”,.F.,.F.,{NACESSO})
LOJXFUNB.PRX – LJSENHASUP() -> EXECBLOCK(‘FTVDSUPAPR’,.F.,.F.,{ CIDSUP, CCAIXASUP, LRET })
LOJXFUNB.PRX – LJSENHASUP() -> EXECBLOCK(‘LJSUPAPR’,.F.,.F., { CIDSUP, CCAIXASUP, LRET })
LOJXFUNC.PRW – FRTPROCSZ() -> AFILES := EXECBLOCK(“FRTGRVSZ”,.F.,.F.)
LOJXFUNC.PRW – FRTPROCSZ() -> AFILES := EXECBLOCK(“FTFRTGRVSZ”,.F.,.F.)
LOJXFUNC.PRW – FRTPROCSZ() -> IF EXECBLOCK(“FRTPROSZ”,.F.,.F.,{CALIAS})
LOJXFUNC.PRW – FRTPROCSZ() -> IF EXECBLOCK(“FTFRTPROSZ”,.F.,.F.,{CALIAS})
LOJXFUNC.PRW – LJ010RESERVA() -> AFTVDPRDRES := EXECBLOCK(“FTVDPRDRES”,.F.,.F.,{NPOSCODPROD,NPOSDESCPRO} )
LOJXFUNC.PRW – LJ010RESERVA() -> ALJPRDRES := EXECBLOCK(“LJPRDRES”,.F.,.F.,{NPOSCODPROD,NPOSDESCPRO} )
LOJXFUNC.PRW – LJCANCRES() -> EXECBLOCK( “FTVDECANCRES” , .F., .F., ARESERVA )
LOJXFUNC.PRW – LJCANCRES() -> EXECBLOCK( “LJCANCRES” , .F., .F., ARESERVA )
LOJXFUNC.PRW – LJCHKRESERVA() -> LGERAFIN := EXECBLOCK(“FTVDRESFIN”,.F.,.F.)
LOJXFUNC.PRW – LJCHKRESERVA() -> LGERAFIN := EXECBLOCK(“LJRESFIN”,.F.,.F.)
LOJXFUNC.PRW – LJECFXDATA() -> LRET := EXECBLOCK( “FTVDTUDATA” , .F. , .F. )
LOJXFUNC.PRW – LJECFXDATA() -> LRET := EXECBLOCK( “LATUDATA” , .F. , .F. )
LOJXFUNC.PRW – LJFILSX5() -> CFILSX5 := EXECBLOCK(“CHGX5FIL”,.F.,.F.)
LOJXFUNC.PRW – LJGERAE5() -> APARAMLJ := EXECBLOCK(“LJ7113”,.F.,.F.)
LOJXFUNC.PRW – LJGRVBATCH() -> AFILES := EXECBLOCK(“FTVDGRVOPEN”, .F., .F.)
LOJXFUNC.PRW – LJGRVBATCH() -> AFILES := EXECBLOCK(“LJGRVOPEN”, .F., .F.)
LOJXFUNC.PRW – LJGRVBATCH() -> EXECBLOCK( “LJ7002”, .F., .F., { 2, NIL, 2 } )
LOJXFUNC.PRW – LJGRVBATCH() -> EXECBLOCK(“LJ7064”, .F., .F., {SL1->(RECNO())})
LOJXFUNC.PRW – LJGRVBATCH() -> LRETLJ7082 := EXECBLOCK(“LJ7082”,.F.,.F.)
LOJXFUNC.PRW – LJGRVBATCH() -> LRETLJ7095 := EXECBLOCK(“LJ7095”,.F.,.F.)
LOJXFUNC.PRW – LJGRVFIN() -> APARAMLJ := EXECBLOCK(“LJ7113”,.F.,.F.)
LOJXFUNC.PRW – LJGRVFIN() -> ARETRECEB := EXECBLOCK( “LJGRFIN”,.F.,.F., {ARECEB} )
LOJXFUNC.PRW – LJGRVFIN() -> EXECBLOCK(“FTVDDEPSE1”,.F.,.F.)
LOJXFUNC.PRW – LJGRVFIN() -> EXECBLOCK(“LJDEPSE1”,.F.,.F.,{ARECEB[I]})
LOJXFUNC.PRW – LJGRVFIN() -> EXECBLOCK(“LJDEPSE1”,.F.,.F.,{ARECEB[NPOSDIN]})
LOJXFUNC.PRW – LJGRVFIN() -> EXECBLOCK(“LJDEPSE1”,.F.,.F.,{NIL})
LOJXFUNC.PRW – LJGRVFIN() -> LFINANCEIRO := IF(EXISTBLOCK(“FTVDTES”,,.T.),EXECBLOCK(“FTVDTES”,.F.,.F.),LFINANCEIRO)
LOJXFUNC.PRW – LJGRVFIN() -> LRETFTVDTES := EXECBLOCK(“FTVDTES”,.F.,.F.)
LOJXFUNC.PRW – LJGRVFIN() -> UVALUE := EXECBLOCK(“LJTES”,.F.,.F.)
LOJXFUNC.PRW – LJGRVJOB() -> AFILES := EXECBLOCK(“FTVDGRVOPEN”, .F., .F.)
LOJXFUNC.PRW – LJGRVJOB() -> AFILES := EXECBLOCK(“LJGRVOPEN”, .F., .F.)
LOJXFUNC.PRW – LJGRVTRAN() -> EXECBLOCK( “FTVDGRVAD2”, .F., .F. )
LOJXFUNC.PRW – LJGRVTRAN() -> EXECBLOCK( “LJGRVAD2”, .F., .F. )
LOJXFUNC.PRW – LJGRVTRAN() -> EXECBLOCK( “LJGRVFISC”, .F., .F. )
LOJXFUNC.PRW – LJGRVTRAN() -> EXECBLOCK( “LJGRVSL2”, .F., .F., {NITENS} )
LOJXFUNC.PRW – LJGRVTRAN() -> EXECBLOCK(“FTVD010SF3”,.F.,.F.)
LOJXFUNC.PRW – LJGRVTRAN() -> EXECBLOCK(“FTVDFIMGRV”,.F.,.F.)
LOJXFUNC.PRW – LJGRVTRAN() -> EXECBLOCK(“LJ010SF3”,.F.,.F.)
LOJXFUNC.PRW – LJGRVTRAN() -> EXECBLOCK(“LJFIMGRV”,.F.,.F.)
LOJXFUNC.PRW – LJGRVTRAN() -> LSTATUSIMP13 := EXECBLOCK(“FRTECF13”,.F.,.F.,{SL2->L2_PRODUTO,SL2->L2_VRUNIT, SL2->L2_QUANT})
LOJXFUNC.PRW – LJGRVVP() -> EXECBLOCK(“FTVDVENVP”,.F.,.F.)
LOJXFUNC.PRW – LJGRVVP() -> EXECBLOCK(“LJVENVP”,.F.,.F.)
LOJXFUND.PRW – LJXDATUTROCO() -> LRET:=EXECBLOCK(“FTVD220TRC”,.F.,.F.,{NVLRPAG,NPAGAR,LDINHEIRO})
LOJXFUND.PRW – LJXDATUTROCO() -> LRET:=EXECBLOCK(“LJ220TRC”,.F.,.F.,{NVLRPAG,NPAGAR,LDINHEIRO})
LOJXFUND.PRW – LJXDCBFRM() -> LRET := EXECBLOCK(“FTVD010DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”COMBOPAG”,OPGTOS,APGTOS})
LOJXFUND.PRW – LJXDCBFRM() -> LRET := EXECBLOCK(“FTVD220DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”COMBOPAG”,OLISTFORMA,AFORMAS})
LOJXFUND.PRW – LJXDCBFRM() -> LRET := EXECBLOCK(“LJ010DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”COMBOPAG”,OPGTOS,APGTOS})
LOJXFUND.PRW – LJXDCBFRM() -> LRET := EXECBLOCK(“LJ220DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”COMBOPAG”,OLISTFORMA,AFORMAS})
LOJXFUND.PRW – LJXDCHEQ() -> @ 145,200 BUTTON OBUTTON2 PROMPT CCAPBUT2 SIZE 40,13 PIXEL ACTION IIF(EXECBLOCK(“LJXVLDCHEQ”,.F.,.F.,{NVLRCHEQ,DDTVENC,NPARC,NVEZES,;
LOJXFUND.PRW – LJXDCHEQ() -> @ 150,150 BUTTON OBUTTON2 PROMPT CCAPBUT2 SIZE 40,13 PIXEL ACTION IIF(EXECBLOCK(“LJXVLDCHEQ”,.F.,.F.,{NVLRCHEQ,DDTVENC,NPARC,NVEZES,;
LOJXFUND.PRW – LJXDCLIENTE() -> ARETPE := EXECBLOCK( “FTVDRETCLI”,.F.,.F. )
LOJXFUND.PRW – LJXDCLIENTE() -> ARETPE := EXECBLOCK( “LJRETCLI”,.F.,.F. )
LOJXFUND.PRW – LJXDCONDP() -> ACONDICOES:= EXECBLOCK(“LJ010CON”,.F.,.F.)
LOJXFUND.PRW – LJXDDINV() -> LRET := EXECBLOCK(“FTVD010VAL”,.F.,.F.,{NVALOR,CCOMBOPAG,DDATAFORM})
LOJXFUND.PRW – LJXDDINV() -> LRET := EXECBLOCK(“LJ010VAL”,.F.,.F.,{NVALOR,CCOMBOPAG,DDATAFORM})
LOJXFUND.PRW – LJXDDTEMIS() -> LRET := EXECBLOCK(“FTVD010DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”DDATAEMIS”,OPGTOS,APGTOS})
LOJXFUND.PRW – LJXDDTEMIS() -> LRET := EXECBLOCK(“FTVD220DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”DDATAEMIS”,OLISTFORMA,AFORMAS})
LOJXFUND.PRW – LJXDDTEMIS() -> LRET := EXECBLOCK(“LJ010DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”DDATAEMIS”,OPGTOS,APGTOS})
LOJXFUND.PRW – LJXDDTEMIS() -> LRET := EXECBLOCK(“LJ220DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”DDATAEMIS”,OLISTFORMA,AFORMAS})
LOJXFUND.PRW – LJXDDTVCTO() -> LRET := EXECBLOCK(“FTVD010DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”DDATAFORM”,OPGTOS,APGTOS})
LOJXFUND.PRW – LJXDDTVCTO() -> LRET := EXECBLOCK(“FTVD220DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”DDATAEMIS”,OLISTFORMA,AFORMAS})
LOJXFUND.PRW – LJXDDTVCTO() -> LRET := EXECBLOCK(“LJ010DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”DDATAFORM”,OPGTOS,APGTOS})
LOJXFUND.PRW – LJXDDTVCTO() -> LRET := EXECBLOCK(“LJ220DATE”,.F.,.F.,{DDATAEMIS,DDATAFORM,CCOMBOPAG,”DDATAEMIS”,OLISTFORMA,AFORMAS})
LOJXFUND.PRW – LJXDGETCH() -> ACMC7 := EXECBLOCK(“FTVDCMC7TC”, .T., .T.)
LOJXFUND.PRW – LJXDGETCH() -> ACMC7 := EXECBLOCK(“LJCMC7TC”, .T., .T.)
LOJXFUND.PRW – LJXDGETCH() -> ADADOSCHEQ := ACLONE(EXECBLOCK(“FTVD020CHQ”,.F.,.F.,ADADOSCHEQ))
LOJXFUND.PRW – LJXDGETCH() -> ADADOSCHEQ := ACLONE(EXECBLOCK(“LJ020CHQ”,.F.,.F.,ADADOSCHEQ))
LOJXFUND.PRW – LJXDGETCH() -> XRETCHQ := EXECBLOCK(“FTVDIMPCHQ”,.F.,.F.,{ADADOSCHEQ})
LOJXFUND.PRW – LJXDGETCH() -> XRETCHQ := EXECBLOCK(“LJIMPCHQ”,.F.,.F.,{ADADOSCHEQ})
LOJXFUND.PRW – LJXDGETTROCO() -> NVALOR := EXECBLOCK(“FTVDGETTRC”,.F.,.F.,{NVALOR,LDINHEIRO})
LOJXFUND.PRW – LJXDGETTROCO() -> NVALOR := EXECBLOCK(“LJGETTRC”,.F.,.F.,{NVALOR,LDINHEIRO})
LOJXFUND.PRW – LJXDNFISCA() -> LRET := EXECBLOCK(“FTVD010SER”,.F.,.F.,{CSERIE,CNFISCAL})
LOJXFUND.PRW – LJXDNFISCA() -> LRET := EXECBLOCK(“LJ010SER”,.F.,.F.,{CSERIE,CNFISCAL})
LOJXFUND.PRW – LJXDNOTA() -> CFILTSER :=EXECBLOCK(“FTVD010FILT”,.F.,.F.)
LOJXFUND.PRW – LJXDNOTA() -> CFILTSER :=EXECBLOCK(“LJ010FILT”,.F.,.F.)
LOJXFUND.PRW – LJXDNOTA() -> LRETORNO := EXECBLOCK(“FVD10SNF”,.F.,.F.)
LOJXFUND.PRW – LJXDNOTA() -> LRETORNO := EXECBLOCK(“LJ010SNF”,.F.,.F.)
LOJXFUND.PRW – LJXDNOTA() -> XRET := EXECBLOCK(“LJXNUMDOC”,.F.,.F., {CMVSERIE})
LOJXFUND.PRW – LJXDSELNCC() -> ACTIVATE DIALOG ONCCWINDOW CENTERED VALID IIF(!LFTVDVER12 .AND. LLJ7038,EXECBLOCK(“LJ7038”,.F.,.F.),IIF(LFTVDVER12 .AND. LFTVD7038,EXECBLOCK(“FTVD7038”,.F.,.F.) ,.T.))
LOJXFUND.PRW – LJXDSELNCC() -> ACTIVATE DIALOG ONCCWINDOW CENTERED VALID IIF(!LFTVDVER12 .AND. LLJ7038,EXECBLOCK(“LJ7038”,.F.,.F.),IIF(LFTVDVER12 .AND. LFTVD7038,EXECBLOCK(“FTVD7038”,.F.,.F.),.T.))
LOJXFUND.PRW – LJXDVACAMP() -> LRET := EXECBLOCK(“LJVLDCPF”,.F., .F., {CCGC,CNOME,CEND,NVALOR} )
LOJXFUNK.PRW – LJ7NUMTIT() -> CE1NUMPE := EXECBLOCK( “LJNUMTIT”, .F., .F., { CMVLJE1NUM, CE1NUM } )
LOJXFUNK.PRW – LJFIGETEND() -> CENDALTE := EXECBLOCK( ‘FISATEND’,.F.,.F., {CENDERECO, CUF} )
LOJXFUNK.PRW – LJGRVDIFAL() -> ARETPARAM := EXECBLOCK(“LJRETGUIA”,.F.,.F.)
LOJXFUNK.PRW – LJVLDBATCH() -> LRETLJ7082 := EXECBLOCK(“LJ7082”,.F.,.F.)
LOJXLOG.PRW – LJLOGORC() -> EXECBLOCK( “LJLOG_01”, .F., .F., { LCANCCUP, CNUMORC } )
LOJXLOG.PRW – LJLOGORC() -> EXECBLOCK( “LJLOG_02”, .F., .F., { CNUMORC } )
LOJXLOG.PRW – LJLOGORC() -> EXECBLOCK( “LJLOG_03”, .F., .F., { CCUPOM, CNUMORC } )
LOJXLOG.PRW – LJRELOGT() -> EXECBLOCK( “LJLOG_05”, .F., .F., { CORC } )
LOJXPED.PRW – LJ7CRIAENTRMONT() -> ANRSSERIE := EXECBLOCK( “FTVD7059”, .F., .F. )
LOJXPED.PRW – LJ7CRIAENTRMONT() -> ANRSSERIE := EXECBLOCK( “LJ7059”, .F., .F. )
LOJXPED.PRW – LJ7CRIAENTRMONT() -> EXECBLOCK( “FTVD7056”, .F., .F., { CNUMOS } )
LOJXPED.PRW – LJ7CRIAENTRMONT() -> EXECBLOCK( “LJ7056”, .F., .F., { CNUMOS } )
LOJXPED.PRW – LJ7GRVFILH() -> LVALIDVFE := EXECBLOCK(“LJ7096”,.F., .F., {AARQUIVOS, ALOJAS})
LOJXPED.PRW – LJ7PEDIDO() -> CE1NUMPE := EXECBLOCK( “LJNUMTIT”, .F., .F., { SUPERGETMV(“MV_LJE1NUM”,,”1″), CNUMTIT } )
LOJXREC.PRW – ‘S³() -> (IIF(LLJDESBALT,IIF(EXECBLOCK(“LJBALTTI”, .F., .F., { ATITULO , OTITULO:NAT }), OBTNEDIT:ENABLE(), OBTNEDIT:DISABLE()),;
LOJXREC.PRW – ‘S³() -> (IIF(LLJDESBALT,IIF(EXECBLOCK(“LJBALTTI”, .F., .F., { ATITULO , OTITULO:NAT }),;
LOJXREC.PRW – ‘S³() -> ABUTTONUSR := EXECBLOCK(“LJRCBTUS”,.F.,.F.)
LOJXREC.PRW – ‘S³() -> ACTION EXECBLOCK(ABUTTONUSR[2], .F., .F., {ATITULO, CCODCLI, CLOJCLI})
LOJXREC.PRW – ‘S³() -> DEFINE SBUTTON FROM 25,310 TYPE 17 ENABLE ONSTOP STR0016 ACTION EXECBLOCK(“LJRECUSR”,.F.,.F.,ATITULO)
LOJXREC.PRW – ‘S³() -> IF( LLJDESBALT , IF ( EXECBLOCK( “LJBALTTI”, .F., .F., { ATITULO , OTITULO:NAT } ), OBTNEDIT:ENABLE(), OBTNEDIT:DISABLE() ) ,OBTNEDIT:ENABLE() ) ,;
LOJXREC.PRW – ‘S³() -> XRET := EXECBLOCK( “LJRECVAL”, .F., .F., {CMV_LJRECEB})
LOJXREC.PRW – LJ7VNSUDIG() -> LRET := EXECBLOCK(“LJVNSUAU”,.F.,.F.,{APARAMS[1],APARAMS[2],APARAMS[3],CNSU,CAUTORIZ})
LOJXREC.PRW – LJBOLETO() -> EXECBLOCK(“LJIMPBOL”, .F., .F., ATITULO[NI])
LOJXREC.PRW – LJEMSEXTRA() -> ARET := EXECBLOCK( “LJLAYTEMS” , .F. , .F., {CCARTAO, CCPF } )
LOJXREC.PRW – LJMTSEEK() -> LRETRECPSQ := EXECBLOCK( “LJRECPSQ”, .F., .F., {NIDXSE1, CSEEKE1})
LOJXREC.PRW – LJRECBTNOK() -> EXECBLOCK(“LJRECFIM”,.F.,.F.,{COPER, LRET, NVALORTOT, ATITULO, ADADOSEST})
LOJXREC.PRW – LJRECBTNOK() -> LRET := EXECBLOCK(“LJRECCONF”, .F., .F.,{COPER, NTOTAL, ATITULO})
LOJXREC.PRW – LJRECBTNOK() -> XRET := EXECBLOCK(“LJRECALT”,.F.,.F.,{NTOTAL,ATITULO})
LOJXREC.PRW – LJRECBXSE1() -> EXECBLOCK( “LJRECBXFIM”, .F., .F., { ASE5BXAS } )
LOJXREC.PRW – LJRECBXSE1() -> LRET := EXECBLOCK(“LJBXEMS”, .F., .F., {CPREFIXO,CNUM,CPARCELA,DVENCIMENTO, ;
LOJXREC.PRW – LJRECBXSE1() -> LTRAVASA1 := EXECBLOCK(“F070TRAVA”, .F., .F.) .OR. EXECBLOCK(“F040TRVSA1”, .F., .F.)
LOJXREC.PRW – LJRECDBLCLICK() -> IF( LLJDESBALT , IF ( EXECBLOCK( “LJBALTTI”, .F., .F., { ATITULO , OTITULO:NAT } ), OBTNEDIT:ENABLE(), OBTNEDIT:DISABLE() ) ,OBTNEDIT:ENABLE() )
LOJXREC.PRW – LJRECEDBT() -> XRET := EXECBLOCK(“LJRECEDIT”,.F.,.F.)
LOJXREC.PRW – LJRECESTORNA() -> ATITULO := EXECBLOCK( “LJRECVER” ,.F.,.F.,{ATITULO} )
LOJXREC.PRW – LJRECGRVCH() -> EXECBLOCK(“LJRECCHQ”,.F.,.F.)
LOJXREC.PRW – LJRECHEADE() -> ACAMPOS := EXECBLOCK(“LJRECHEAD”,.F.,.F.,{AREFCPOS})
LOJXREC.PRW – LJRECLOAD() -> AFERIADOS := EXECBLOCK( “LJRECFER”, .F., .F., { AFERIADOS } )
LOJXREC.PRW – LJRECLOAD() -> IF IIF(LLJRECFILT,EXECBLOCK(“LJRECFILT”,.F.,.F.,{COPER,CPDV,CUSRCAIXA}),.F.)
LOJXREC.PRW – LJRECLOAD() -> NDIAS := EXECBLOCK( “LJJUROS”, .F., .F., {ARET[4], NDIAS, AFERIADOS} )
LOJXREC.PRW – LJRECLOAD() -> NVALJUROS := EXECBLOCK( “LJVLJURO”, .F., .F., { ARET[4][NX] , NVALJUROS , NMV_LJJUROS , NDIAS } )
LOJXREC.PRW – LJRECLOAD() -> NVALMULTA := EXECBLOCK( “LJVLMULT”, .F., .F., { ARET[4][NX] , NVALMULTA , NMV_LJMULTA } )
LOJXREC.PRW – LJRECPESQ() -> ATITULO := EXECBLOCK( “LJRECVER” ,.F.,.F.,{ATITULO} )
LOJXREC.PRW – LJRECVAL() -> XRET := EXECBLOCK(“LJRECVLD”,.F.,.F., { CTIPO , NVAL , ATITULO, OTITULO })
LOJXREC.PRW – LJRETENTRA() -> XRET := EXECBLOCK(“LJRECSELE”,.F.,.F.,{ATITULO,OTITULO,COPER})
LOJXREC.PRW – LJXGRVMDX() -> EXECBLOCK( “LJRECSE1”, .F., .F., { ASE1,ATIT} )
LOJXREC.PRW – LJXGRVSLV() -> EXECBLOCK(“LJRECSLV”,.F.,.F.,{ASE5DADOS,LRET,LCONFIRMA})
LOJXREC.PRW – LJXTELANSU() -> URETLJ7114 := EXECBLOCK(“LJ7114”,.F.,.F.,APARAMS)
LOJXREC.PRW – RECEBNFIS() -> EXECBLOCK( “FRTRECTIT”, .F., .F., { NI, ATITBXNCC } )
LOJXREC.PRW – _LJGRVREC() -> EXECBLOCK( “FRTRECTIT”, .F., .F., { NI, ATITULO } )
LOJXREC.PRW – _LJGRVREC() -> EXECBLOCK( “FRTRECTIT”, .F., .F., { NI, ATITULO, NRELTROCO } )
LOJXREC.PRW – _LJGRVREC() -> EXECBLOCK( “LJRECCOMP”, .F., .F., {CMSGCOMPROVANTE, NTOTCOMPROVANTE, CTOTRECNFIS, ATITULO, APGTOS, ASE5BXAS })
LOJXREC.PRW – _LJGRVREC() -> EXECBLOCK( “LJRECCOMP”, .F., .F., {CMSGCOMPROVANTE, NTOTCOMPROVANTE, CTOTRECNFIS, ATITULO, APGTOS, ASE5BXAS} )
LOJXREC.PRW – _LJGRVREC() -> EXECBLOCK( CROTPAG, .F., .F., {CCLIENTE,CLOJA,ATITULO, APGTOS,CMSGCOMPROVANTE, NTOTCOMPROVANTE, CTOTRECNFIS, ASE5BXAS} )
LOJXREC.PRW – _LJGRVREC() -> LRET := EXECBLOCK(“LJXRECVLD”, .F., .F.,{COPER, NTOTAL, ATITULO,LRET })
LOJXREC.PRW – _LJGRVREC() -> XRET := EXECBLOCK(“LJRECIMP”, .F., .F., {ATITULO, CMSGRECIBO })
LOJXTEF.PRW – LJGRVBAIXACEL() -> EXECBLOCK(“LJRCNF1”, .F., .F. )
LOJXTEF.PRW – LJTEFCONFADM() -> XRET :=EXECBLOCK(“LJADMTEF”,.F.,.F.)
LOJXTEF.PRW – LJVLDBIN() -> LBINVALIDO := EXECBLOCK(“LJFIMTEF”, .F., .F., {CBINCART, NVALTRAN})
M100ICE.PRW – M100ICE() -> AIMPOSTO := EXECBLOCK( “M100ICE”,.F.,.F., PARAMIXB ,.T. )
M100ICE.PRW – M100ICE() -> IF PROCNAME(1)==”EXECBLOCK”
M100ICE.PRW – M100ICEQU() -> ELSEIF PROCNAME(1)==”EXECBLOCK”
M100IMPM.PRX – M100IMPM() -> AFISCAL:= EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M100IRF.PRW – M100IRFCO() -> LXFIS:=(MAFISFOUND() .AND. PROCNAME(1)<>”EXECBLOCK”)
M100ISCI.PRW – M100ISIPA() -> LXFIS := (MAFISFOUND() .AND. PROCNAME(1)!=”EXECBLOCK”)
M100PCO.PRW – M100PCO() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M100RFTE.PRW – M100RFTCO() -> LXFIS:=(MAFISFOUND() .AND. PROCNAME(1)<>”EXECBLOCK”)
M100RIV.PRW – M100RIV() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS,},.T.)
M100XIB2.PRX – M100XIB2() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,CPROVENT,LXFIS,CXFISRAP},.T.)
M100XIBP.PRX – M100XIBP() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,CPROVENT,LXFIS,CXFISRAP},.T.)
M100XII.PRX – M100XII() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M100XIII.PRW – M100XIII() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M100XIV2.PRX – M100XIV2() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M100XIVA.PRX – M100XIVA() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M100XIVP.PRX – M100XIVP() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M100XIVP.PRX – M100XIVP() -> _LRETORN:= EXECBLOCK(“MAGENTE”,.F.,.F.,{SUBSTR(GETMV(“MV_AGENTE”),4,1)})
M100XPYP.PRX – M100XPYP() -> AFISCAL:= EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M330JCTB.PRX – A330TT2B2() -> CNEWQUERY:=EXECBLOCK(“MA330UNI”,.F.,.F.,{TRT->TRB_FILIAL,TRT->TRB_COD,CQUERY})
M330JCTB.PRX – M330JOBCM() -> ACM:=EXECBLOCK(“M330CD2”,.F.,.F.,{ACM,.F.})
M330JCTB.PRX – M330JOBCM() -> ACUSTO:=EXECBLOCK(“MA330C3”,.F.,.F.,ACUSTO)
M330JCTB.PRX – M330JOBCM() -> ARETCPUS := EXECBLOCK(“M330CD1”,.F.,.F.,{LCSTPART,AREGRACP,ACUSTO})
M330JCTB.PRX – M330JOBCM() -> ARETPARTES :=EXECBLOCK(“MA330P3”,.F.,.F.,{ACUSTO,LCSTPART,AREGRACP,ACLONE(ARETPARTES)})
M330JCTB.PRX – M330JOBCM() -> EXECBLOCK(“MA330D2”,.F.,.F.)
M330JCTB.PRX – M330JOBCM() -> EXECBLOCK(“MA330D3”,.F.,.F.)
M330JCTB.PRX – M330JOBCM() -> IF LA330CDEV .AND. SF4->F4_PODER3 <> “R” .AND. EXECBLOCK(“A330CDEV”,.F.,.F.)
M460IC1.PRW – M460IC1() -> AIMPOSTO := EXECBLOCK( “M460IC1”,.F.,.F., PARAMIXB ,.T. )
M460IC1.PRW – M460IC1() -> IF PROCNAME(1)==”EXECBLOCK”
M460ICE.PRW – M460ICEEQU() -> ELSEIF PROCNAME(2)==”EXECBLOCK”
M460IMPM.PRX – M460IMPM() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M460IRF.PRX – M460IRFCO() -> LXFIS:=(MAFISFOUND() .AND. PROCNAME(1)<>”EXECBLOCK”)
M460ISC.PRW – M460ISCPA() -> LXFIS := (MAFISFOUND() .AND. PROCNAME(1)!=”EXECBLOCK”)
M460ISCI.PRW – M460ISIPA() -> LXFIS := (MAFISFOUND() .AND. PROCNAME(1)!=”EXECBLOCK”)
M460IVA.PRX – M460IVAME() -> NDECS := EXECBLOCK(“MT410DECS”,.F.,.F.)
M460PCO.PRW – M460PCO() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M460XIB2.PRX – M460XIB2() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M460XIBP.PRX – M460XIBP() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS,CXFISRAP},.T.)
M460XII.PRX – M460XII() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M460XIV2.PRX – M460XIV2() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M460XIVA.PRX – M460XIVA() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M460XIVP.PRX – M460XIVP() -> AFISCAL := EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M460XIVP.PRX – M460XIVP() -> _LRETORN:= EXECBLOCK(“MAGENTE”,.F.,.F.,{SUBSTR(GETMV(“MV_AGENTE”),4,1)})
M460XPYP.PRX – M460XPYP() -> AFISCAL:= EXECBLOCK(“IMPGENER”,.F.,.F.,{IF(LXFIS,{CCALCULO,NITEM,AINFO},PARAMIXB), _CPROCNAME, _LAGENTE,_CZONCLSIGA,LXFIS},.T.)
M486NCCXML.PRW – FGENXMLNCC() -> CXML += EXECBLOCK(“M486NCC”,.F.,.F.,{SF1->F1_FILIAL,SF1->F1_DOC,SF1->F1_SERIE,SF1->F1_ESPECIE,CCLIE,CTIENDA})
M486NDCXML.PRW – FGENXMLNDC() -> CXML += EXECBLOCK(“M486NDC”,.F.,.F.,{SF2->F2_FILIAL,SF2->F2_DOC,SF2->F2_SERIE,SF2->F2_ESPECIE,CCLIE,CTIENDA})
M486NFXML.PRW – FGENXMLNF() -> CXML += EXECBLOCK(“M486EBV”,.F.,.F.,{SF2->F2_FILIAL,SF2->F2_DOC,SF2->F2_SERIE,SF2->F2_ESPECIE,CCLIE,CTIENDA})
M486NFXML.PRW – FGENXMLNF() -> CXML += EXECBLOCK(“M486ENFE”,.F.,.F.,{SF2->F2_FILIAL,SF2->F2_DOC,SF2->F2_SERIE,SF2->F2_ESPECIE,CCLIE,CTIENDA})
M486NFXML.PRW – FGENXMLNF() -> CXML += EXECBLOCK(“M486FECVEN”,.F.,.F.)
M486NFXML.PRW – FGENXMLNF() -> CXML += EXECBLOCK(“M486NF”,.F.,.F.,{SF2->F2_FILIAL,SF2->F2_DOC,SF2->F2_SERIE,SF2->F2_ESPECIE,CCLIE,CTIENDA})
M486NFXML.PRW – FGENXMLNF() -> CXML += EXECBLOCK(“M486NFE”,.F.,.F.,{SF2->F2_FILIAL,SF2->F2_DOC,SF2->F2_SERIE,SF2->F2_ESPECIE,CCLIE,CTIENDA})
M486XFUN.PRW – M486REF() -> AREFPE := EXECBLOCK(“M486PEREF”,.F.,.F.,{CESPECIE,CDOC,CSERIE,CCLI,CLOJA})
M486XFUN.PRW – M486VLDPER() -> LVLDCMPREM := FUNNAME() $ UPPER(ALLTRIM(EXECBLOCK(“M486VLDCMP”, .F., .F.)))
M486XFUN.PRW – M486XMLIMP() -> AM486DET:= EXECBLOCK(“M486DETNF”,.F.,.F.,{(CALIASSD)->&(CFILIALSD),(CALIASSD)->&(CDOCSD),(CALIASSD)->&(CSERIESD),ALLTRIM(CESPECIE),(CALIASSD)->&(CCLIESD),(CALIASSD)->&(CLOJASD),(CALIASSD)->D2_ITEM,CCODPROD})
M486XFUN.PRW – M486XMLIMP() -> AM486DET:= EXECBLOCK(“M486DNCC”,.F.,.F.,{(CALIASSD)->&(CFILIALSD),(CALIASSD)->&(CDOCSD),(CALIASSD)->&(CSERIESD),ALLTRIM(CESPECIE),(CALIASSD)->&(CCLIESD),(CALIASSD)->&(CLOJASD),(CALIASSD)->D1_ITEM,CCODPROD})
M486XFUN.PRW – M486XMLIMP() -> AM486DET:= EXECBLOCK(“M486DNDC”,.F.,.F.,{(CALIASSD)->&(CFILIALSD),(CALIASSD)->&(CDOCSD),(CALIASSD)->&(CSERIESD),ALLTRIM(CESPECIE),(CALIASSD)->&(CCLIESD),(CALIASSD)->&(CLOJASD),(CALIASSD)->D2_ITEM,CCODPROD})
M486XFUN.PRW – M486XMLIMP() -> CDESPRO := EXECBLOCK(“MT486AGDES”,.F.,.F.,{(CALIASSD)->&(CCODPROSD)})
M486XFUNBO.PRW – CFDGERJSON() -> CJSON:= EXECBLOCK(“M486EJSON”,.F.,.F.,{CJSON})
M486XFUNBO.PRW – CFDGERJSON() -> CJSON:= EXECBLOCK(“M486SJSON”,.F.,.F.,{CJSON})
M486XFUNBO.PRW – CHCKURLV() -> CURL:= EXECBLOCK(“M486PEURL”,.F.,.F.,{CURLTYPE})
M486XFUNBO.PRW – FACTONBOL() -> AM486EBOL := EXECBLOCK(“M486EBOL”,.F.,.F.,{AFACT, CESPECIE})
M486XFUNCO.PRW – M486DETDOC() -> EXECBLOCK(“M486OWSCOL”,.F.,.F.,{AFACT[NPOSDOC,1],AFACT[NPOSDOC,2],AFACT[NPOSDOC,3],AFACT[NPOSDOC,4],&(COBJXML),2,@OWSDET})
M486XFUNPAR.PRW – XMLPARENT() -> CXML:= EXECBLOCK(“M486PEEXML”,.F.,.F.,{SF1->F1_FILIAL, SF1->F1_SERIE, SF1->F1_FORNECE, SF1->F1_LOJA, SF1->F1_DOC, SF1->F1_ESPECIE, CXML})
M710JCTB.PRW – A710JOBAFJ() -> CA710FIL := EXECBLOCK(“A710SQL”, .F., .F., {“AFJ”, CQUERY})
M710JCTB.PRW – A710JOBC1() -> CA710FIL := EXECBLOCK(“A710FIL”, .F., .F., {“SC1”, CQUERY})
M710JCTB.PRW – A710JOBC2() -> CA710FIL := EXECBLOCK(“A710FIL”, .F., .F., {“SC2”, CQUERY})
M710JCTB.PRW – A710JOBC2() -> CA710FIL := EXECBLOCK(“A710SQL”, .F., .F., {“SC2”, CQUERY})
M710JCTB.PRW – A710JOBC4() -> CA710FIL := EXECBLOCK(“A710SQL”, .F., .F., {“SC4”, CQUERY})
M710JCTB.PRW – A710JOBC6() -> CA710FIL := EXECBLOCK(“A710FIL”, .F., .F., {“SC6”, CQUERY})
M710JCTB.PRW – A710JOBC6() -> CA710FIL := EXECBLOCK(“A710SQL”, .F., .F., {“SC6”, CQUERY})
M710JCTB.PRW – A710JOBC7() -> CA710FIL := EXECBLOCK(“A710FIL”, .F., .F., {“SC7”, CQUERY})
M710JCTB.PRW – A710JOBC7() -> CA710FIL := EXECBLOCK(“A710SQL”, .F., .F., {“SC7”, CQUERY})
M710JCTB.PRW – A710JOBD4() -> CA710FIL := EXECBLOCK(“A710SQL”, .F., .F., {“SD4”, CQUERY})
M710JCTB.PRW – A710JOBINI() -> AFILALMOX := RETEXECBLOCK(“A710FILALM”, { SB1->B1_COD, CALMOXD, CALMOXA }, “A”, NIL,NIL,NIL,LEXISTBB1)
M710JCTB.PRW – A710JOBINI() -> AOPC := EXECBLOCK(‘M710NOPC’,.F.,.F.,{SB1->B1_COD,NSALDO})
M710JCTB.PRW – A710JOBINI() -> CMT710B2 := RETEXECBLOCK(“MT710B2”, { SB1->B1_COD, CALMOXD, CALMOXA }, “C”, NIL,NIL,NIL,LEXISTBB2)
M712JCTB.PRW – A712JOBAFJ() -> CA710FIL := EXECBLOCK(“A710SQL”, .F., .F., {“AFJ”, CQUERY})
M712JCTB.PRW – A712JOBC2() -> CA710FIL := EXECBLOCK(“A710SQL”, .F., .F., {“SC2”, CQUERY})
M712JCTB.PRW – A712JOBC4() -> CA710FIL := EXECBLOCK(“A710SQL”, .F., .F., {“SC4”, CQUERY})
M712JCTB.PRW – A712JOBC6() -> CA710FIL := EXECBLOCK(“A710SQL”, .F., .F., {“SC6”, CQUERY})
M712JCTB.PRW – A712JOBC7() -> CA710FIL := EXECBLOCK(“A710SQL”, .F., .F., {“SC7”, CQUERY})
M712JCTB.PRW – A712JOBD4() -> CA710FIL := EXECBLOCK(“A710SQL”, .F., .F., {“SD4”, CQUERY})
M712JCTB.PRW – A712JOBINI() -> AFILALMOX := RETEXECBLOCK(“A710FILALM”,{SB1->B1_COD,CALMOXD,CALMOXA},”A”,NIL,NIL,NIL,LEXISTBB1)
M712JCTB.PRW – A712JOBINI() -> AOPC := EXECBLOCK(‘M710NOPC’,.F.,.F.,{SB1->B1_COD,NSALDO})
M712JCTB.PRW – A712JOBINI() -> CMT710B2 := RETEXECBLOCK(“MT710B2″,{SB1->B1_COD,CALMOXD,CALMOXA},”C”, NIL,NIL,NIL,LEXISTBB2)
MATA010.PRX – A010ALTERA() -> EXECBLOCK(“MT010ALT”,.F.,.F.)
MATA010.PRX – A010ALTERA() -> EXECBLOCK(“MT010CAN”,.F.,.F.,{NOPCA})
MATA010.PRX – A010ALTERA() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA010BUT”, .F., .F. ) ) == “A”
MATA010.PRX – A010COPIA() -> EXECBLOCK(“MT010CPCAN”,.F.,.F.,{NOPCPE})
MATA010.PRX – A010COPIA() -> LCONTINUA := EXECBLOCK(“MT010VLD”,.F.,.F.)
MATA010.PRX – A010INCLUI() -> EXECBLOCK(“MT010CAN”,.F.,.F.,{NOPCA})
MATA010.PRX – A010INCLUI() -> EXECBLOCK(“MT010INC”,.F.,.F.)
MATA010.PRX – A010INCLUI() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA010BUT”, .F., .F. ) ) == “A”
MATA010.PRX – A010INCPEC() -> LB5DESCRI:= EXECBLOCK(“M010B5CP”,.F.,.F.)
MATA010.PRX – A010LEREG() -> IF VALTYPE( ACPONOT := EXECBLOCK( “MTA010NC”, .F., .F. ) ) <> “A”
MATA010.PRX – A010TUDOOK() -> LRET:= EXECBLOCK(“A010TOK”,.F.,.F.)
MATA010.PRX – A010VISUL() -> ACPOS:= EXECBLOCK(“MT010VCP”,.F.,.F.)
MATA010.PRX – A010VISUL() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA010BUT”, .F., .F. ) ) == “A”
MATA010.PRX – A010VLSTR () -> LRET:= EXECBLOCK( “A010BPE”, .F., .F.,{READVAR(),CCONTEUDO} )
MATA010.PRX – FLDNOCOPY() -> ARET := EXECBLOCK( “MTA010NC”, .F., .F. )
MATA010.PRX – MATA010() -> ACORES := EXECBLOCK(“MT010COR”,.F.,.F.)
MATA010.PRX – MATA010() -> CFILPE := EXECBLOCK(“M010FILB”,.F.,.F.)
MATA010.PRX – MATA010() -> UFILPE := EXECBLOCK(“MA010FIL”,.F.,.F.)
MATA010.PRX – MENUDEF() -> AROTADIC := EXECBLOCK(“MT010BRW”,.F.,.F.)
MATA010.PRX – MENUDEF() -> EXECBLOCK(“MTA010MNU”,.F.,.F.)
MATA010.PRX – MODELDEF() -> IF LMA010MEM .AND. VALTYPE(AMEMUSER := EXECBLOCK(“MT010MEM”, .F., .F.)) == “A”
MATA010.PRX – VIEWDEF() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA010BUT”, .F., .F. ) ) == “A”
MATA010ALTERNATIVO.PRW – A010ALTPCP() -> OTELANEW:=EXECBLOCK(“MT010GETD”,.F.,.F.,{OTELA})
MATA010ALTERNATIVO.PRW – PCPALTLIOK() -> LRET := EXECBLOCK(“MT010LIN”,.F.,.F.)
MATA010EVPE.PRW – ACTIVATE() -> LRET :=EXECBLOCK( ‘M010B5CP’,.F.,.F., { XMODEL, NOPCX, LCOPY } )
MATA010EVPE.PRW – BEFORETTS() -> EXECBLOCK(“MT010EXC”,.F.,.F.)
MATA010EVPE.PRW – FIELDPOSVLD() -> LRET := EXECBLOCK(“MTA010OK”,.F.,.F.)
MATA010EVPE.PRW – GRIDLINEPOSVLD() -> LRET := EXECBLOCK(“MT010LIN”,.F.,.F.)
MATA010EVPE.PRW – INTTS() -> EXECBLOCK(“MT010ALT”,.F.,.F.)
MATA010EVPE.PRW – INTTS() -> EXECBLOCK(“MT010INC”,.F.,.F.)
MATA010EVPE.PRW – INTTS() -> EXECBLOCK(“MTA010E”,.F.,.F.)
MATA010M.PRX – A010AUTO() -> EXECBLOCK(“MT010CAN”,.F.,.F.,{NOK})
MATA010M.PRX – A010COPIA() -> LRETPE:=EXECBLOCK(“MT010VLD”,.F.,.F.)
MATA010M.PRX – A010DELETA() -> EXECBLOCK(“MT010CAN”,.F.,.F.,{NOK})
MATA010M.PRX – BROWSEDEF() -> ACORES := EXECBLOCK(“MT010COR”,.F.,.F.)
MATA010M.PRX – BROWSEDEF() -> CFILPE := EXECBLOCK(“M010FILB”,.F.,.F.)
MATA010M.PRX – MA010ALTER() -> EXECBLOCK(“MT010CAN”,.F.,.F.,{NOK})
MATA010M.PRX – MA010INCLU() -> EXECBLOCK(“MT010CAN”,.F.,.F.,{NOK})
MATA010M.PRX – REMOVEFIELDS() -> AAUX := EXECBLOCK(“MT010VCP”,.F.,.F.)
MATA015.PRX – A015FILTGR() -> IF LMT15FGRA .AND. VALTYPE(LRETPE:=EXECBLOCK(‘MT15FGRA’, .F., .F.))==’L’ .AND. !LRETPE
MATA015.PRX – A015TOK() -> LRET := EXECBLOCK(‘MT015TOK’,.F.,.F.,{NOPC})
MATA018.PRX – A018DELETA() -> LCONTINUA:= EXECBLOCK(“MT018DEL”,.F.,.F.)
MATA018.PRX – A018TUDOOK() -> LMT018TOK:= EXECBLOCK(“MT018TOK”,.F.,.F.)
MATA018.PRX – MENUDEF() -> EXECBLOCK(“MTA018MNU”,.F.,.F.)
MATA019EVPE.PRW – AFTER() -> EXECBLOCK(“M019GRV”,.F.,.F.,{OSUBMODEL:AHEADER,OSUBMODEL:ACOLS})
MATA020.PRX – A020ALTERA() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA020BUT”, .F., .F. ) ) == “A”
MATA020.PRX – A020DELETA() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA020BUT”, .F., .F. ) ) == “A”
MATA020.PRX – A020INCLUI() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA020BUT”, .F., .F. ) ) == “A”
MATA020.PRX – A020TUDOOK() -> LRETBKP := EXECBLOCK(“MA020TDOK”,.F.,.F.)
MATA020.PRX – A020VISUAL() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA020BUT”, .F., .F. ) ) == “A”
MATA020.PRX – BROWSEDEF() -> CFILTRASA2 := ALLTRIM(EXECBLOCK(“MA020FIL”,.F.,.F.))
MATA020.PRX – FAVALSA2() -> EXECBLOCK(“M020ALT”,.F.,.F.,{CBCKFIL} )
MATA020.PRX – FAVALSA2() -> EXECBLOCK(“M020EXC”,.F.,.F.)
MATA020.PRX – FCANAVALSA2() -> LRETORNO := EXECBLOCK(“A020DELE”,.F.,.F.)
MATA020.PRX – FCANAVALSA2() -> LRETORNO := EXECBLOCK(“A020EOK”,.F.,.F.)
MATA020.PRX – FCANAVALSA2() -> LRETORNO := EXECBLOCK(“EICPMS01″,.F.,.F.,”CADFAB”)
MATA020.PRX – FCANAVALSA2() -> LRETORNO := EXECBLOCK(“MA020ALT”,.F.,.F.)
MATA020.PRX – FCANAVALSA2() -> LRETORNO := EXECBLOCK(“MA020TOK”,.F.,.F.)
MATA020.PRX – FPOSINCFOR() -> EXECBLOCK(“MT20FOPOS”,.F.,.F.,{NOPCA})
MATA020.PRX – MATA020() -> CFILTRASA2 := ALLTRIM(EXECBLOCK(“MA020FIL”,.F.,.F.))
MATA020.PRX – MATA020IPG() -> LRETIPG := EXECBLOCK( ‘MATA020IPG’ , .F. , .F. , {NOPERATION} )
MATA020.PRX – MENUDEF() -> AROTADIC := EXECBLOCK(“MA020ROT”, .F., .F.)
MATA020.PRX – MNTGET() -> AMT020FIL := EXECBLOCK(“MT020FIL”, .F.,.F.)
MATA020.PRX – MODELDEF() -> IF VALTYPE( AMEMUSER := EXECBLOCK( “MA020MEM”, .F., .F. ) ) == “A”
MATA020.PRX – VIEWDEF() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA020BUT”, .F., .F. ) ) == “A”
MATA020EVPE.PRW – AFTERTTS() -> EXECBLOCK(“MT20FOPOS”,.F.,.F.,{::NOPC})
MATA020EVPE.PRW – INTTS() -> EXECBLOCK(“M020ALT”,.F.,.F.,{CFILANT} )
MATA020EVPE.PRW – INTTS() -> EXECBLOCK(“M020EXC”,.F.,.F.)
MATA020EVPE.PRW – INTTS() -> EXECBLOCK(“M020INC”,.F.,.F.)
MATA020EVPE.PRW – MODELPOSVLD() -> LVALID := EXECBLOCK(“A020DELE”,.F.,.F.)
MATA020EVPE.PRW – MODELPOSVLD() -> LVALID := EXECBLOCK(“A020EOK”,.F.,.F.)
MATA020EVPE.PRW – MODELPOSVLD() -> LVALID := EXECBLOCK(“EICPMS01″,.F.,.F.,”CADFAB”)
MATA020EVPE.PRW – MODELPOSVLD() -> LVALID := EXECBLOCK(“MA020ALT”,.F.,.F.)
MATA020EVPE.PRW – MODELPOSVLD() -> LVALID := EXECBLOCK(“MA020TOK”,.F.,.F.)
MATA022.PRW – VIEWDEF() -> ABUTTONS := EXECBLOCK(“MA022BUT”,.F.,.F.)
MATA030.PRX – BROWSEDEF() -> ACORES := EXECBLOCK( “MA030COR”, .F., .F. )
MATA030.PRX – BROWSEDEF() -> CFILTRASA1 := EXECBLOCK(“MA030BRW”,.F.,.F.)
MATA030.PRX – MATA030REF() -> ANAOGD := EXECBLOCK( “MA030REF”, .F., .F. )
MATA030.PRX – MENUDEF() -> AROTADIC := EXECBLOCK(“MA030ROT”, .F., .F.)
MATA035.PRW – A035ALTERA() -> EXECBLOCK( “MA035ALT”, .F., .F. )
MATA035.PRW – A035ALTERA() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA035BUT”, .F., .F. ) ) == “A”
MATA035.PRW – A035DELETA() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA035BUT”, .F., .F. ) ) == “A”
MATA035.PRW – A035INCLUI() -> EXECBLOCK( “MA035INC”, .F., .F.)
MATA035.PRW – A035INCLUI() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA035BUT”, .F., .F. ) ) == “A”
MATA035.PRW – A035POSVLD() -> EXECBLOCK( “MA035DEL”, .F., .F. )
MATA035.PRW – MA035VALID() -> LRET := IF(VALTYPE(LRETPE := EXECBLOCK(‘MA035VLD’,.F.,.F., { NOPC }))==’L’, LRETPE, LRET)
MATA035.PRW – MATA035EX() -> LRET := EXECBLOCK(“MT035EXC”,.F.,.F.)
MATA035.PRW – MENUDEF() -> EXECBLOCK(“MTA035MNU”,.F.,.F.)
MATA035.PRW – MT035GRV() -> EXECBLOCK( CNAMEBLOCK, .F., .F.)
MATA035.PRW – VIEWDEF() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA035BUT”, .F., .F. ) ) == “A”
MATA035EVDEF.PRW – AFTERTTS() -> IIF( LEXISTBLK, EXECBLOCK( CNAMEBLOCK, .F., .F. ), NIL )
MATA040.PRX – A040ALTERA() -> LRET := EXECBLOCK(“MA040VLD”,.F.,.F.,NOPC)
MATA040.PRX – A040EXCLUI() -> LRET := EXECBLOCK(“MA040VLD”,.F.,.F.,NOPC)
MATA040.PRX – A040INCLUI() -> LRET := EXECBLOCK(“MA040VLD”,.F.,.F.,NOPC)
MATA040.PRX – A040TUDOOK() -> LRET := EXECBLOCK(“MA040TOK”)
MATA040.PRX – BROWSEDEF() -> CFILTRO := EXECBLOCK(“MA040BRW”,.F.,.F.)
MATA040.PRX – FCANDELSA3() -> LRETORNO := EXECBLOCK(“MT040VDE”,.F.,.F.)
MATA040.PRX – MA040BUT() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA040BUT”, .F., .F. ) ) == “A”
MATA040.PRX – MA040PAR() -> IIF(NOPC==3.AND. EXISTBLOCK(“MA040DIN”),EXECBLOCK(“MA040DIN”,.F.,.F.),.F.)} }
MATA040.PRX – MA040PAR() -> LOCAL APARAM :={{|NOPC| IIF(NOPC==4.AND.EXISTBLOCK(“MA040AAL”),EXECBLOCK(“MA040AAL”,.F.,.F.),.F.)},;
MATA040.PRX – MA040PAR() -> {|NOPC| IIF(NOPC==4.AND. EXISTBLOCK(“MA040DAL”),EXECBLOCK(“MA040DAL”,.F.,.F.,NOPCA),.F.), MA40INTFIM(NOPC),;
MATA040.PRX – MA040PAR() -> {|NOPC| IIF(NOPC==5 .AND. EXISTBLOCK(“MT040DEL”),EXECBLOCK(“MT040DEL”,.F.,.F.),.F.)},;
MATA050.PRX – M050TUDOK() -> LRETPT := EXECBLOCK( “M050TOK”,.F.,.F.)
MATA050.PRX – MA050BUT() -> IF VALTYPE( AUSRBUT := EXECBLOCK( “MA050BUT”, .F., .F. ) ) == “A”
MATA050.PRX – MA050PRE() -> EXECBLOCK(“MA050PRE”,.F.,.F.,NOPC)
MATA050.PRX – MA050TTS() -> EXECBLOCK(“MA050TTS”,.F.,.F.)
MATA050.PRX – MENUDEF() -> AROTUSER := EXECBLOCK( “MA050ROT”,.F.,.F.)
MATA060.PRX – A060MANUT() -> EXECBLOCK(“MT060GRV”,.F.,.F.)
MATA060.PRX – A060VALID() -> LRET := IF(VALTYPE(LRETPE := EXECBLOCK(‘MT060VLD’, .F., .F.))==’L’, LRETPE, LRET)
MATA060.PRX – MA060DELET() -> NOPCA := EXECBLOCK(“MT060DEL”,.F.,.F.,NOPCA)
MATA060.PRX – MENUDEF() -> EXECBLOCK (“MTA060MNU”,.F.,.F.)
MATA065.PRX – A065DELOK() -> EXECBLOCK(“MA065DEL”,.F.,.F.)
MATA065.PRX – A065TUDOOK() -> LRET := EXECBLOCK(“MA065TOK”,.F.,.F.)
MATA070.PRX – A070ALTERA() -> LRET:= EXECBLOCK(“M070VLUS”,.F.,.F.,NOPC)
MATA070.PRX – A070INCLUI() -> EXECBLOCK(“M070INFC”,.F.,.F.)
MATA070.PRX – A070INCLUI() -> LRET:= EXECBLOCK(“M070VLUS”,.F.,.F.,NOPC)
MATA070.PRX – BROWSEDEF() -> CFILT := EXECBLOCK(“M070BROW”,.F.,.F.)
MATA070.PRX – M070CLIFOR() -> LRETURN := EXECBLOCK(“MAT070OK”)
MATA070.PRX – M070TUDOOK() -> LRET := EXECBLOCK(“M070VEXC”)
MATA070.PRX – M070VLDDEL() -> LRET := EXECBLOCK( “M070VLUS” , .F. , .F. , NOPC )
MATA070.PRX – MA070CPOS() -> ACMPS:= EXECBLOCK(“FLDMA070”,.F.,.F.)
MATA070.PRX – MATA070() -> EXECBLOCK(“M070BROW”,.F.,.F.)
MATA070.PRX – MENUDEF() -> EXECBLOCK(“MTA070MNU”,.F.,.F.)
MATA070.PRX – MT070COMM() -> EXECBLOCK(“M070INFC”,.F.,.F.)
MATA070.PRX – PE070VLUS() -> LRET := EXECBLOCK(“M070VLUS”,.F.,.F.,NOPC)
MATA080.PRX – A080DELETA() -> ABUTTONUSR := EXECBLOCK(“MA080BUT”,.F.,.F.,{NOPC})
MATA080.PRX – A080DELETA() -> EXECBLOCK(“MT080EXC”,.F.,.F.)
MATA080.PRX – A080MANUT() -> ABUTTONUSR := EXECBLOCK(“MA080BUT”,.F.,.F.,{NOPC})
MATA080.PRX – A081ALTERA() -> ABUTTONUSR := EXECBLOCK(“MA080BUT”,.F.,.F.,{NOPC})
MATA080.PRX – A081DELETA() -> ABUTTONUSR := EXECBLOCK(“MA080BUT”,.F.,.F.,{NOPC})
MATA080.PRX – A081DELETA() -> EXECBLOCK(“MT081EXC”,.F.,.F.)
MATA080.PRX – A081DELETA() -> LRET := EXECBLOCK(“MA080VLD”,.F.,.F., { NOPCA } )
MATA080.PRX – A081FORM() -> IF “EXECBLOCK” $ UPPER( CFORM )
MATA080.PRX – A081GRAVA() -> EXECBLOCK(“MT080GRV”,.F.,.F.)
MATA080.PRX – A081INCLUI() -> ABUTTONUSR := EXECBLOCK(“MA080BUT”,.F.,.F.,{NOPC})
MATA080.PRX – A081TUDOK() -> LRET := EXECBLOCK(“MA081VLD”,.F.,.F., { NOPC } )
MATA080.PRX – A081VISUAL() -> ABUTTONUSR := EXECBLOCK(“MA080BUT”,.F.,.F.,{NOPC})
MATA080.PRX – AJUSTELOK() -> LRET := EXECBLOCK(“MA080VLD”,.F.,.F., { NPOS } )
MATA080.PRX – AJUSTELOK() -> LRET := EXECBLOCK(“MA080VLD”,.F.,.F., { NPOSCLANAP } )
MATA080.PRX – AJUSTELOK() -> LRET := EXECBLOCK(“MA080VLD”,.F.,.F., { NPOSIPI } )
MATA080.PRX – COPIAVLD() -> LRET := EXECBLOCK(“MA080VLD”,.F.,.F., { 3 } )
MATA080.PRX – COPYSF4() -> LRET := EXECBLOCK(“MA080VLD”,.F.,.F., { 3 } )
MATA080.PRX – IPMLOK() -> LRET := EXECBLOCK(“MA080VLD”,.F.,.F., { NPOS } )
MATA080.PRX – MA080VALID() -> LRET := EXECBLOCK(“MA080VLD”,.F.,.F., { NOPC } )
MATA080.PRX – MENUDEF() -> AROTINA := EXECBLOCK(“MA080MNU”,.F.,.F.,{AROTINA})
MATA080.PRX – MT080GRV() -> EXECBLOCK(“MT080GRV”,.F.,.F.)
MATA089.PRW – A089TUDOK() -> CUNICO := EXECBLOCK(“MT089UNC”,.F.,.F.,{CUNICO})
MATA089.PRW – A089TUDOK() -> LRET := EXECBLOCK(“MT089TOK”,.F.,.F.,{NOPCX})
MATA089.PRW – MATESINT() -> ARET:= EXECBLOCK(“MT089CD”,.T.,.T.,{BCOND,BSORT,BIRWHILE,BADDTES,CTABELA,CTPOPER})
MATA089.PRW – MATESINT() -> CRET := EXECBLOCK(“MT089TES”,.F.,.F.,{NENTSAI,CTPOPER,CCLIEFOR,CLOJA,CPRODUTO})
MATA089.PRW – MENUDEF() -> AROTADIC := EXECBLOCK(“MA089MNU”,.F.,.F.)
MATA089.PRW – MENUDEF() -> EXECBLOCK(“MA089MNU”,.F.,.F.)
MATA089.PRW – MT089PREVAL() -> LRET := EXECBLOCK(“MT089DEL”,.F.,.F.)
MATA089.PRW – MT089PREVAL() -> LRET := EXECBLOCK(“MT089TOK”,.F.,.F.,{NOPCX})
MATA090.PRW – A090ALTERA() -> EXECBLOCK(“MA090ATU”,.F.,.F.,{ NOPC })
MATA090.PRW – A090COMMIT() -> EXECBLOCK(“MA090ATU”,.F.,.F.,{ NOPC })
MATA090.PRW – A090DELETA() -> EXECBLOCK(“MA090ATU”,.F.,.F.,{ NOPC })
MATA090.PRW – CALCINFLAC() -> EXECBLOCK(“MA090ATU”,.F.,.F.,{ 4 })
MATA090.PRW – CALCLINEAR() -> EXECBLOCK(“MA090ATU”,.F.,.F.,{ 4 })
MATA090.PRW – MENUDEF() -> EXECBLOCK(“MTA090MNU”,.F.,.F.)
MATA091.PRX – A091ALTERA() -> EXECBLOCK(“MT091ALT”,.F.,.F.)
MATA091.PRX – A091TUDOOK() -> LRET:= EXECBLOCK(“A091TOK”,.F.,.F.)
MATA093.PRX – A093F3OPT() -> ARET := EXECBLOCK(“MT093OPT”,.F.,.F.,{BWHILE, AFIELDS, BFOR, BINIT})
MATA093.PRX – A093INCLOK() -> IF LRUN093GERA .AND. VALTYPE(LRET093GERA := EXECBLOCK(“A093GERA”, .F., .F., {CBASE})) == “L” .AND. ! LRET093GERA
MATA093.PRX – A093MONTACOD() -> BVALID:= &(‘{|| (VAZIO() .OR. A093EXISTCPO(“SBX”, “‘ + SBQ->BQ_CONJUNT + ‘” + ‘ + “M->” + A093IDREC(CBASE,SBQ->BQ_ID) + ‘)) .AND. IF(EXISTBLOCK(“MT093VCR”),EXECBLOCK(“MT093VCR”,.F.,.F.,{“‘+SBQ->BQ_ID+'”,M->’+CVAR+’}),.T.) .AND. A093INIDSC (“‘+SBQ->BQ_ID+'”,AOBJ)}’)
MATA093.PRX – A093MONTACOD() -> BVALID:= &(‘{|| (VAZIO() .OR. A098VLDGETIN(‘ + ALLTRIM(STR(SBQ->BQ_INTDE)) + ‘, ‘ + ALLTRIM(STR(SBQ->BQ_INTATE)) + ‘, ‘ + ALLTRIM(STR(SBQ->BQ_INTSTEP)) + ‘, M->_’ + A093IDREC(CBASE,SBQ->BQ_ID) + ‘)) .AND. IF(EXISTBLOCK(“MT093VCR”),EXECBLOCK(“MT093VCR”,.F.,.F.,{“‘+SBQ->BQ_ID+'”,M->’+CVAR+’}),.T.) .AND. A093INIDSC (“‘+SBQ->BQ_ID+'”,AOBJ)}’)
MATA093.PRX – A093PADSBP() -> EXECBLOCK(“A093SBR”, .F., .F.)
MATA093.PRX – A093PROD() -> CCOD := EXECBLOCK(“MT093CFG”,.F.,.F.,{CCONTVAR})
MATA093.PRX – A093VLDCOD() -> CCODNEW := EXECBLOCK(“A093ACOD”,.F.,.F.,{CCODPRD, CDESPRD, ACOD,ACODGRD,LGERA})
MATA093.PRX – A093VLDCOD() -> EXECBLOCK(“MT093B1”,.F.,.F.)
MATA093.PRX – A093VLDCOD() -> IF VALTYPE(CRETDESC := EXECBLOCK(“A093DESC”, .F., .F., {CCODPRD, CDESPRD, ACOD})) == “C” .AND. ! EMPTY(CRETDESC)
MATA093.PRX – A093VLDSBU() -> CMSG := EXECBLOCK(“A093MSG”,.F.,.F.,{CCONDOLD})
MATA093.PRX – A093ZERESTR() -> EXECBLOCK(“MT093G1”,.F.,.F.)
MATA093.PRX – MENUDEF() -> EXECBLOCK(“MTA093MNU”, .F., .F.)
MATA094.PRW – A094COMMIT() -> EXECBLOCK(“CNALCFLG”, .F., .F., {LEFT(SCR->CR_NUM,NTAMX3),,”IR”})
MATA094.PRW – A094COMMIT() -> EXECBLOCK(“CNALCFLG”, .F., .F., {LEFT(SCR->CR_NUM,NTAMX3),,”RV”})
MATA094.PRW – A094COMMIT() -> EXECBLOCK(“MT094END”,.F.,.F.,{(OFIELDSCR:GETVALUE(“CR_NUM”)),(OFIELDSCR:GETVALUE(“CR_TIPO”)),VAL(SUBSTR(CIDOPTION,3,1)),(OFIELDSCR:GETVALUE(“CR_FILIAL”))})
MATA094.PRW – A094COMMIT() -> EXECBLOCK(“MTSOLICAT”, .F., .F., {“IR”,AFLUIGIR[NI],”CN9″,”CR_NUM”})
MATA094.PRW – A094FILPRD() -> CCAMPOSPE := EXECBLOCK(“MT094CPC”,.F.,.F.)
MATA094.PRW – A094PCOLAN() -> LLANPCO := EXECBLOCK(“A097PCO”,.F.,.F.,{SC7->C7_NUM,CNAME,LLANPCO})
MATA094.PRW – A094TUDOOK() -> (LCNCLRAGFLG .AND. !EXECBLOCK(“CNCLRAGFLG”, .F., .F., {SCR->CR_FLUIG})) ;
MATA094.PRW – A094TUDOOK() -> AAGLUTFLG := EXECBLOCK(“CNVERAGFLG”, .F., .F., {SCR->CR_TIPO,SCR->CR_NUM,SCR->CR_FLUIG})
MATA094.PRW – A094VLDEST() -> EXECBLOCK(“MT094END”,.F.,.F.,{SCR->CR_NUM,SCR->CR_TIPO,VAL(SUBSTR(CIDOPTION,3,1)),SCR->CR_FILIAL})
MATA094.PRW – A94EXLIBER() -> LRET := EXECBLOCK(“MT094LOK”,.F.,.F.)
MATA094.PRW – MATA094() -> IF VALTYPE( AMT094LEG := EXECBLOCK(“MT094LEG”,.F.,.F.,{ALEGENDA}) ) == “A”
MATA094.PRW – MATA094() -> XFILTROUS := EXECBLOCK( “MT094FIL”, .F., .F. )
MATA094.PRW – MENUDEF() -> IF VALTYPE(AACOES := EXECBLOCK( “MTA094RO”, .F., .F., {AROTINA}) ) == “A”
MATA094.PRW – MODELDEF() -> CCAMPOPC := EXECBLOCK( “MT094CCR”, .F., .F.)
MATA094.PRW – MODELDEF() -> CCAMPOPC := EXECBLOCK( “MT094CPC”, .F., .F.)
MATA094.PRW – VIEWDEF() -> CCAMPOPC := EXECBLOCK( “MT094CCR”, .F., .F.)
MATA094.PRW – VIEWDEF() -> CCAMPOPC := EXECBLOCK( “MT094CPC”, .F., .F.)
MATA097.PRX – A097APROV() -> LCONTINUA := IF (VALTYPE(LCONTINUA:= EXECBLOCK(“MT097AUS”,.F.,.F.)) == “L”,LCONTINUA,.T.)
MATA097.PRX – A097ESTORNA() -> EXECBLOCK(“MT097EST”,.F.,.F.)
MATA097.PRX – A097ESTORNA() -> EXECBLOCK(“MT97EXPOS”,.F.,.F.)
MATA097.PRX – A097LIBVAL() -> (LA097APRFLG .AND. EXECBLOCK(“A097APRFLG”, .F., .F., {SCR->CR_TIPO})) ;
MATA097.PRX – A097PROCLIB() -> EXECBLOCK(“MT097APR”,.F.,.F.)
MATA097.PRX – A097PROCLIB() -> IF EXECBLOCK(“MTA097”,.F.,.F.)
MATA097.PRX – A097PROCLIB() -> LLANPCO := EXECBLOCK(“A097PCO”,.F.,.F.,{SC7->C7_NUM,CNAME,LLANPCO})
MATA097.PRX – A097PROCSUP() -> IF EXECBLOCK(“MTA097S”,.F.,.F.)
MATA097.PRX – A097PROCTF() -> IF EXECBLOCK(“MTA097S”,.F.,.F.)
MATA097.PRX – A097VALOBS() -> LOBS := EXECBLOCK(“MT097OBS”,.F.,.F.,{COBS})
MATA098.PRX – MENUDEF() -> EXECBLOCK(“MTA098MNU”,.F.,.F.)
MATA100.PRW – A100CLASSI() -> EXECBLOCK(“MT100AGR”,.F.,.F.)
MATA100.PRW – A100CLASSI() -> EXECBLOCK(“MT100CLA”,.F.,.F.)
MATA100.PRW – A100DELETA() -> CTPTIT := EXECBLOCK(“A100TPTI”,.F.,.F.)
MATA100.PRW – A100DELETA() -> EXECBLOCK(“SD1100E”,.F.,.F.)
MATA100.PRW – A100DELETA() -> EXECBLOCK(“SF1100E”,.F.,.F.)
MATA100.PRW – A100DELETA() -> IF !(EXECBLOCK(“A100DEL”,.F.,.F.))
MATA100.PRW – A100DELETA() -> IF !(EXECBLOCK(“A100EXC”,.F.,.F.))
MATA100.PRW – A100F4() -> ANEW := EXECBLOCK(“MT100C7C”, .F., .F., ACAB)
MATA100.PRW – A100F4() -> ANEW := EXECBLOCK(“MT100C7D”, .F., .F., AARRAYF4[LEN(AARRAYF4)])
MATA100.PRW – A100INCLUI() -> EXECBLOCK(“MT100AGR”,.F.,.F.)
MATA100.PRW – A100INCLUI() -> NAUXITENS:= EXECBLOCK(“A100ITNF”,.F.,.F.)
MATA100.PRW – A100INCLUI() -> SETKEY( VK_F4, { || EXECBLOCK(“A100F4PC”,.F.,.F.) } )
MATA100A.PRX – A100DNATU() -> NIRRF := EXECBLOCK(“MT100NAT”,.F.,.F.,NIRRF)
MATA100A.PRX – A100DUPL() -> A100CND2:=EXECBLOCK(“A100CND2”,.F.,.F.,{AHEADAUX,ACOLSAUX})
MATA100A.PRX – A100DUPL() -> ARETORNO := EXECBLOCK(“MT100DP”,.F.,.F.,{ CPREFIXO,CNUMERO })
MATA100A.PRX – A100GRAVA() -> ARETIRRF := EXECBLOCK( “MT100IR”,.F.,.F., {NITMIRRF,NVALDUP,NX} )
MATA100A.PRX – A100GRAVA() -> EXECBLOCK(“GQREENTR”,.F.,.F.)
MATA100A.PRX – A100GRAVA() -> EXECBLOCK(“M100GRAV”,.F.,.F., { SD1->D1_REMITO, SD1->D1_ITEMREM, CNFISCAL, CSERIE, NX },.T. )
MATA100A.PRX – A100GRAVA() -> EXECBLOCK(“MT100GE2”,.F.,.F.)
MATA100A.PRX – A100GRAVA() -> EXECBLOCK(“SD1100I”,.F.,.F.,{LCONFRETE,LCONIMP})
MATA100A.PRX – A100GRAVA() -> EXECBLOCK(“SF1100I”,.F.,.F.)
MATA100A.PRX – A100GRAVA() -> EXECBLOCK(‘QIEA210T’, .F., .F., {‘EST’})
MATA100A.PRX – A100GRAVA() -> NVALINSS := EXECBLOCK( “MT100INS”,.F.,.F., {NVALINSS} )
MATA100A.PRX – A100GRVCMIMP() -> EXECBLOCK(“MREM002”,.F.,.F.)
MATA100A.PRX – A100GRVCMIMP() -> EXECBLOCK(“MT102SB2”,.F.,.F.)
MATA100A.PRX – A100VRODAPE() -> NSEGURO:=EXECBLOCK(“A100BD”,.F.,.F.)
MATA100A.PRX – DOCONTABIL() -> A100CND1:=EXECBLOCK(“A100CND1”,.F.,.F.)
MATA100A.PRX – DOCONTABIL() -> NBASEDUP:=EXECBLOCK(“A100VLR”,.F.,.F.)
MATA100B.PRX – A100CALC() -> EXECBLOCK(“SF3COMPL”,.F.,.F.)
MATA100B.PRX – A100CALC() -> NVALIPI := EXECBLOCK(“M100IPI”,.F.,.F.,{NVALIPI,NX})
MATA100B.PRX – A100TUDOK() -> LRET := EXECBLOCK(“MT100TOK”,.F.,.F.,{LRET})
MATA100C.PRX – A100CALCSOLIT() -> ARET := EXECBLOCK(“MT100RET”,.F.,.F.,{N})
MATA100C.PRX – A100CALCSOLIT() -> NBSICMSRET := EXECBLOCK(“MT100SOL”,.F.,.F.,{NBASEITEM+IF(SF4->F4_INCIDE!=’S’,NVIPI,0)})
MATA103.PRW – A103ATUSE2() -> AMT103ISS:=EXECBLOCK( “MT103ISS” , .F. , .F. , { CFORNISS , CLOJAISS , CDIRF , CCODRET , DVENCISS })
MATA103.PRW – A103ATUSE2() -> ARETIRRF := EXECBLOCK( “MT100IR”,.F.,.F., {SE2->E2_IRRF,ACOLSSE2[NX][NPVALOR],NX} )
MATA103.PRW – A103ATUSE2() -> EXECBLOCK(“M103DSE2”,.F.,.F.)
MATA103.PRW – A103ATUSE2() -> EXECBLOCK(“MT100GE2”,.F.,.F.,{ACOLSSE2[NX],NOPCA,AHEADSE2,NX,ACOLSSE2})
MATA103.PRW – A103ATUSE2() -> SE2->E2_COFINS := EXECBLOCK( “MT100COF”,.F.,.F.,{SE2->E2_COFINS})
MATA103.PRW – A103ATUSE2() -> SE2->E2_CSLL := EXECBLOCK( “MT100CSL”,.F.,.F.,{SE2->E2_CSLL})
MATA103.PRW – A103ATUSE2() -> SE2->E2_FETHAB := EXECBLOCK( “MT100FET”,.F.,.F.,{SE2->E2_FETHAB})
MATA103.PRW – A103ATUSE2() -> SE2->E2_INSS := EXECBLOCK( “MT100INS”,.F.,.F.,{SE2->E2_INSS})
MATA103.PRW – A103ATUSE2() -> SE2->E2_PIS := EXECBLOCK( “MT100PIS”,.F.,.F.,{SE2->E2_PIS})
MATA103.PRW – A103BAR() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( “MA103BUT”, .F., .F.,{AINFO} ) ) == “A”
MATA103.PRW – A103CUSTO() -> URET := EXECBLOCK(“A103CUST”,.F.,.F.,{ARET})
MATA103.PRW – A103FORF4() -> CQUERYQPC := EXECBLOCK(“MT103QPC”,.F.,.F.,{CQUERYC7,1})
MATA103.PRW – A103FORF4() -> EXECBLOCK(“MA103F4L”, .F., .F., { AF4FOR, ARECSC7 } )
MATA103.PRW – A103FORF4() -> IF VALTYPE( AUSCONT := EXECBLOCK( “MA103F4I”, .F., .F. ) ) == “A”
MATA103.PRW – A103FORF4() -> IF VALTYPE( AUSTITU := EXECBLOCK( “MA103F4H”, .F., .F. ) ) == “A”
MATA103.PRW – A103FORF4() -> LRET103VPC := EXECBLOCK(“MT103VPC”,.F.,.F.)
MATA103.PRW – A103FORF4() -> LRETAPC := EXECBLOCK(“MT103APC”,.F.,.F.)
MATA103.PRW – A103GRAVA() -> AMT103RTC := EXECBLOCK( “MT103RTC”, .F., .F.,{AHEADSDE,ACOLSSDE})
MATA103.PRW – A103GRAVA() -> AMT103RTE := EXECBLOCK( “MT103RTE”, .F., .F.,{AHEADSDE,ACOLSSDE,NX})
MATA103.PRW – A103GRAVA() -> CMT103APV := EXECBLOCK(“MT103APV”,.F.,.F.)
MATA103.PRW – A103GRAVA() -> EXECBLOCK(“CONAUXNF”,.F.,.F.,{“SF1”})
MATA103.PRW – A103GRAVA() -> EXECBLOCK(“GQREENTR”,.F.,.F.)
MATA103.PRW – A103GRAVA() -> EXECBLOCK(“M103GERT”,.F.,.F.,{1,ARECSE2,AHEADSE2,ACOLSSE2,AHEADSEV,ACOLSSEV,CFORNISS,CLOJAISS,CDIRF,CCODRET,CMODRETPIS,NINDEXSE2,ASEZ,DVENCISS,CMDRTISS,SF1->F1_TXMOEDA,LTXNEG,ARECGERSE2,CA2FRETISS,CB1FRETISS,AMULTAS,LRATLIQ,LRATIMP,ACODR,CRECISS})
MATA103.PRW – A103GRAVA() -> EXECBLOCK(“M103GERT”,.F.,.F.,{2,ARECSE2})
MATA103.PRW – A103GRAVA() -> EXECBLOCK(“M103L665”,.F.,.F.,{CLOTE,NHDLPRV,CARQUIVO,LDIGITA,LAGLUTINA})
MATA103.PRW – A103GRAVA() -> EXECBLOCK(“QIEIMPRL”,.F.,.F.,{NOPER})
MATA103.PRW – A103GRAVA() -> EXECBLOCK(“SD1100E”,.F.,.F.,{LCONFRETE,LCONIMP})
MATA103.PRW – A103GRAVA() -> EXECBLOCK(“SD1100I”,.F.,.F.,{LCONFRETE,LCONIMP,NOPER})
MATA103.PRW – A103GRAVA() -> EXECBLOCK(“SDE100I”,.F.,.F.,{LCONFRETE,LCONIMP,NOPER,LEN(ACOLSSDE[NY][2])})
MATA103.PRW – A103GRAVA() -> EXECBLOCK(“SF1100E”,.F.,.F.)
MATA103.PRW – A103GRAVA() -> EXECBLOCK(“SF1100I”,.F.,.F.)
MATA103.PRW – A103GRAVA() -> EXECBLOCK(“SF1TTS”,.F.,.F.)
MATA103.PRW – A103GRAVA() -> LCHKDUP:= EXECBLOCK(“A1031DUP”,.F.,.F.)
MATA103.PRW – A103GRAVA() -> LEXCMSDOC:=EXECBLOCK(“MT103MSD”,.F.,.F.,{})
MATA103.PRW – A103GRAVA() -> LGERAGUIA := EXECBLOCK(“MT103GUIA”,.F.,.F.,{“SF1″,”SA2”,XFILIAL(“SA2”),SF1->F1_FORNECE,SF1->F1_LOJA,SF1->F1_ESPECIE})
MATA103.PRW – A103GRAVA() -> LRETGRV := EXECBLOCK(“MT100GRV”,.F.,.F.,{LDELETA})
MATA103.PRW – A103GRAVA() -> LRETGRV := EXECBLOCK(“MT103DIRF”,.F.,.F.,{ACODR})
MATA103.PRW – A103GRAVA() -> LRETMT103BXCR := EXECBLOCK(“MT103BXCR”,.F.,.F.,{NTOTALDEV,ARECSE1,ARECNCC})
MATA103.PRW – A103GRVATF() -> AATFPMS := EXECBLOCK(“MT103AFN”,.F.,.F.,{APARAMAFN,SF4->F4_ATUATF,SF4->F4_BENSATF,LATFDCBA})
MATA103.PRW – A103GRVATF() -> APE := EXECBLOCK(“MA103ATF”,.F.,.F.,{ACAB,AITENS})
MATA103.PRW – A103GRVATF() -> ARETATF:=EXECBLOCK (“ATFA006102”, .F., .F., {NOPC, CBASE, CITEM, CCODCIAP, NVLRCIAP})
MATA103.PRW – A103GRVCLA() -> EXECBLOCK(“MT103CLAS”,.F.,.F.,{ACOLSSE2,CNATUREZA})
MATA103.PRW – A103GRVCLA() -> LMT103MSG:=EXECBLOCK(“MT103MSG”,.F.,.F.)
MATA103.PRW – A103IMPRI() -> EXECBLOCK( CPRINTER, .F., .F., { CALIAS, NRECNO, NOPC } )
MATA103.PRW – A103ITEMPC() -> AMT103FRE := EXECBLOCK(“MT103FRE”,.F.,.F.,ARATEIO)
MATA103.PRW – A103ITEMPC() -> ANEW := EXECBLOCK(“MT100C7C”, .F., .F., ACAB)
MATA103.PRW – A103ITEMPC() -> ANEW := EXECBLOCK(“MT100C7D”, .F., .F., AARRAYF4[LEN(AARRAYF4)])
MATA103.PRW – A103ITEMPC() -> ASIZEC7T := EXECBLOCK(“MT103C7T”,.F.,.F.,{ASIZEPED})
MATA103.PRW – A103ITEMPC() -> CQUERYQPC := EXECBLOCK(“MT103QPC”,.F.,.F.,{CQUERY,2})
MATA103.PRW – A103ITEMPC() -> EXECBLOCK(“M103PCIT”,.F.,.F.)
MATA103.PRW – A103ITEMPC() -> EXECBLOCK(“MT100C7L”, .F., .F., { AARRAYF4, AARRSLDO })
MATA103.PRW – A103ITEMPC() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( “MTIPCBUT”, .F., .F. ) ) == “A”
MATA103.PRW – A103ITEMPC() -> LRET103VPC := EXECBLOCK(“MT103VPC”,.F.,.F.)
MATA103.PRW – A103ITEMPC() -> LRETBPC := EXECBLOCK(“MT103BPC”,.F.,.F.)
MATA103.PRW – A103ITEMPC() -> N103TXPC := EXECBLOCK(“MT103TXPC”,.F.,.F.)
MATA103.PRW – A103ITEMPC() -> NOPCA := IF(VALTYPE(NMT103SEL:=EXECBLOCK(“MT103SEL”,.F.,.F.,{AARRSLDO[NX][2]}))==’N’,NMT103SEL,NOPCA)
MATA103.PRW – A103LEGENDA() -> ALEGEUSR := EXECBLOCK(“MT103LEG”,.F.,.F.,{ALEGENDA})
MATA103.PRW – A103LINOK() -> CRETTES := EXECBLOCK(“MT103TPC”,.F.,.F.,{CTESPCNF})
MATA103.PRW – A103LINOK() -> LRET := EXECBLOCK(“MT100LOK”,.F.,.F.,{LRET})
MATA103.PRW – A103LINOK() -> LRET := EXECBLOCK(“MTA103OK”,.F.,.F.,{LRET})
MATA103.PRW – A103MNAT() -> ACR := EXECBLOCK(“MT103MNT”,.F.,.F.,{AHEADSEV, ACOLSSEV})
MATA103.PRW – A103NFISCAL() -> AADD(AVLDBLOCK,{||VAZIO(CNATUREZA).OR.(EXISTCPO(‘SED’,CNATUREZA).AND.NFEVLDREF(“NF_NATUREZA”,CNATUREZA)) .AND. IF(LMT103NAT,EXECBLOCK(“MT103NAT”,.F.,.F.,CNATUREZA),.T.)})
MATA103.PRW – A103NFISCAL() -> ACOLSSDE := EXECBLOCK( “MT103RCC”, .F., .F.,{AHEADSDE,ACOLSSDE})
MATA103.PRW – A103NFISCAL() -> ADIRFRT := EXECBLOCK(“MT103DRF”,.F.,.F.,{NCOMBO,CCODRET,@OCOMBO,@OCODRET})
MATA103.PRW – A103NFISCAL() -> AMT103BCLA := EXECBLOCK(“MT103BCLA”,.F.,.F.)
MATA103.PRW – A103NFISCAL() -> AMT103CTB := EXECBLOCK(“MT103CTB”,.F.,.F.,{ACTBINF,L103EXCLUI,LEXCCMPADT})
MATA103.PRW – A103NFISCAL() -> EXECBLOCK(“MT100AG”,.F.,.F.)
MATA103.PRW – A103NFISCAL() -> EXECBLOCK(“MT100AGR”,.F.,.F.)
MATA103.PRW – A103NFISCAL() -> EXECBLOCK(“MT100CLA”,.F.,.F.)
MATA103.PRW – A103NFISCAL() -> EXECBLOCK(“MT103CAN”,.F.,.F.)
MATA103.PRW – A103NFISCAL() -> EXECBLOCK(“MT103FIM”,.F.,.F.,{AROTINA[NOPCX,4],NOPC})
MATA103.PRW – A103NFISCAL() -> EXECBLOCK(“MT103NFE”,.F.,.F.,NOPCX)
MATA103.PRW – A103NFISCAL() -> IF !EXECBLOCK(“MT103PN”,.F.,.F.,)
MATA103.PRW – A103NFISCAL() -> IF VALTYPE(AMEMUSER := EXECBLOCK( “MT103MEM”, .F., .F. ) ) == “A”
MATA103.PRW – A103NFISCAL() -> LVLDEXC := EXECBLOCK(“MT103EXC”,.F.,.F.)
MATA103.PRW – A103NFORI() -> EXECBLOCK(“PNEU002”,.F.,.F.)
MATA103.PRW – A103PROCPC() -> AMT103FRE := EXECBLOCK(“MT103FRE”,.F.,.F.,ARATEIO)
MATA103.PRW – A103PROCPC() -> AMT103NPC := EXECBLOCK(“MT103NPC”,.F.,.F.,{AHEADSEV,ACOLSSEV})
MATA103.PRW – A103PROCPC() -> LPEVLDPC := EXECBLOCK(“M120VLPC”,.F.,.F.,{@AF4FOR,LNFMEDIC,LUSAFISCAL})
MATA103.PRW – A103PROCPC() -> LRET103VPC := EXECBLOCK(“MT103VPC”,.F.,.F.)
MATA103.PRW – A103PROCPC() -> N103TXPC := EXECBLOCK(“MT103TXPC”,.F.,.F.)
MATA103.PRW – A103RATVEI() -> ACPOSSDG := EXECBLOCK(“MA103SDG”,.F.,.F.,CCPOSSDG)
MATA103.PRW – A103TEMBLQ() -> LRET:= EXECBLOCK(“A103BLOQ”,.F.,.F.,{LRET})
MATA103.PRW – A103TEMBLQ() -> LVERIFICA := EXECBLOCK(“MT103NBL”,.F.,.F.,{})
MATA103.PRW – A103TRFIL() -> LRET := EXECBLOCK(“A103VLQT”,.F.,.F.,{LRET})
MATA103.PRW – A103TRFSLD() -> EXECBLOCK(“MT103TRF”,.F.,.F.,{NTIPO,SD1->D1_FILIAL,SD1->D1_DOC,SD1->D1_SERIE,SD1->D1_FORNECE,SD1->D1_LOJA,SD1->D1_COD,SD1->D1_ITEM})
MATA103.PRW – A103TRFSLD() -> LVLDPE:= EXECBLOCK(“A103TRFVLD”,.F.,.F.,{NTIPO,LDELETA})
MATA103.PRW – A103TUDOK() -> AMT103GCT := EXECBLOCK(“MT103GCT”,.F.,.F.,{ACOLS,NX,NPOSMED})
MATA103.PRW – A103TUDOK() -> LMT103PBLQ:=EXECBLOCK(“MT103PBLQ”,.F.,.F.,{APRDBLQ})
MATA103.PRW – A103TUDOK() -> LPE := EXECBLOCK(“MT100TOK”,.F.,.F.,{LRET})
MATA103.PRW – A103VALSD4() -> LVALIDA:=EXECBLOCK(“A103VSG1”,.F.,.F.)
MATA103.PRW – A103VLDDANFE() -> LRETDANFE := EXECBLOCK(“MT103DNF”,.F.,.F.,{ANFEDANFE,ANFELETR})
MATA103.PRW – A103VLDEXC() -> LCONTINUA := EXECBLOCK(“A103VLEX”,.F.,.F.)
MATA103.PRW – A103VLDEXC() -> LVLDEXC := EXECBLOCK(“MT103EXC”,.F.,.F.)
MATA103.PRW – A103VLDGER() -> LRETVLDGER := EXECBLOCK(“MTCHKNFE”,.F.,.F.,{ANFELETR})
MATA103.PRW – DIGENDLOK() -> LMT103END:=EXECBLOCK(“MT103END”,.F.,.F.,{CPROD,CLOCAL,GDFIELDGET(“DB_LOCALIZ”,OGETSDB:NAT,,OGETSDB:AHEADER,OGETSDB:ACOLS)})
MATA103.PRW – FATIVA() -> EXECBLOCK(“MT103SX1”,.F.,.F.)
MATA103.PRW – M103FILDV() -> ALINHA := EXECBLOCK(“MT103LDV”,.F.,.F.,{ALINHA,CALIASSD2})
MATA103.PRW – M103FILDV() -> IF !LMT103FDV .OR. EXECBLOCK(“MT103FDV”,.F.,.F.,{CALIASSD2})
MATA103.PRW – MATA103() -> ACORESUSR := EXECBLOCK(“MT103COR”,.F.,.F.,{ACORES})
MATA103.PRW – MATA103() -> CFILTRO := EXECBLOCK(“M103FILB”,.F.,.F.)
MATA103.PRW – MATA103() -> EXECBLOCK(“M103BROW”,.F.,.F.)
MATA103.PRW – MENUDEF() -> EXECBLOCK(“MTA103MNU”,.F.,.F.)
MATA103.PRW – MONTAACOLS() -> A103CLASIMP := EXECBLOCK(“A103CLAS”,.F.,.F.,{CALIASSD1})
MATA103.PRW – NFECALCRET() -> AFIL10925 := EXECBLOCK( “MT103FRT”, .F., .F. )
MATA103A.PRX – NFENFECOB() -> APE := EXECBLOCK(“MT103SDH”,.F.,.F.,{ACAB,AITENS})
MATA103R.PRX – A103FLDBRW() -> CCAMPOS := EXECBLOCK(“MT103CAM”,.F.,.F.)
MATA103X.PRX – A103ALERT() -> LRET:=EXECBLOCK(“M103XLERT”,.F.,.F.)
MATA103X.PRX – A103CALCRT() -> EXECBLOCK(“MT103RET”, , ,{NRADIO,NOPCA})
MATA103X.PRX – A103CHWHEN() -> LRET:=EXECBLOCK(“MT103CWH”,.F.,.F.,{CCAMPO,CCONTEUDO,LCLASSIF})
MATA103X.PRX – A103CODR() -> LCODR := EXECBLOCK(“M103CODR”,.F.,.F.,{ACODR})
MATA103X.PRX – A103COMPDANFE() -> ACOMPDANFE:=EXECBLOCK(“MT103DCF”,.F.,.F.,{INCLUI,ALTERA,L103VISUAL,ADANFECOMP})
MATA103X.PRX – A103DIVIMP() -> ACOLSIMP := EXECBLOCK(“COLDVIMP”,.F.,.F.,{“MATA103”,ACOLSIMP})
MATA103X.PRX – A103EXSTNF() -> ASERALTERN := EXECBLOCK(“M103ALTS”,.F.,.F.,{CNFISCAL,CSERIE,CA100FOR,CLOJA})
MATA103X.PRX – A103INICPO() -> ATRIGGERCPO:= EXECBLOCK(“MT103CPO”,.F.,.F.,{ATRIGGERCPO})
MATA103X.PRX – A103INICPO() -> URET := EXECBLOCK( ‘MT103DTLT’, .F., .F., {ACOLS[N][NPOSCOD], ;
MATA103X.PRX – A103ITDEV() -> EXECBLOCK(“MT103SF1”,.F.,.F.,{ ACOLS , NPOSNFORI , NPOSSERORI })
MATA103X.PRX – A103ITDEV() -> EXECBLOCK(“MT103SF2”,.F.,.F.,{ ACOLS , NPOSNFORI , NPOSSERORI })
MATA103X.PRX – A103LCF() -> LRET103 := EXECBLOCK(“MT103LCF”,.F.,.F.,{CCAMPO})
MATA103X.PRX – A103NFELET() -> ARETPE := EXECBLOCK(“M103NFEL”,.F.,.F.,{CCAMPOVLD,CUF,ANFELETR,ANFEDANFE,AINFADIC})
MATA103X.PRX – A103RECAL() -> AFIL10925 := EXECBLOCK( “MT103FRT”, .F., .F. )
MATA103X.PRX – A103TRAVA() -> ARETORNO := EXECBLOCK(“MT103TRV”,.F.,.F.,{CA100FOR,CLOJA,IIF(CTIPO$”DB”,”C”,”F”)})
MATA103X.PRX – A103VALESTNEG() -> LRET:=EXECBLOCK(“MT103ENEG”,.F.,.F.,{CALIASSD1})
MATA103X.PRX – A103VLDCC() -> AMUDA := EXECBLOCK(“MT103VCC”,.F.,.F.,AMUDA)
MATA103X.PRX – COLLOADDIV() -> ACOLSIMP := EXECBLOCK(“COLDVIMP”,.F.,.F.,{“MATA103”,ACOLSIMP})
MATA103X.PRX – MAAVALSD1() -> EXECBLOCK(“QIEA210T”,.F.,.F.,{“EST”})
MATA103X.PRX – MAAVALSD1() -> LENVCQPE := EXECBLOCK(“ENVCQMAT”,.F.,.F.,{LENVIACQ})
MATA103X.PRX – MAAVALSD1() -> LENVIACQ := EXECBLOCK(“ENVCQQUA”,.F.,.F.)
MATA103X.PRX – MAAVALSD1() -> LOCAL LTPNFQIE := IIF(EXISTBLOCK(“MT103QIETP”),EXECBLOCK(“MT103QIETP”,.F.,.F.),.F.)
MATA103X.PRX – MAAVALSD1() -> NPCOCOMPRA := EXECBLOCK(“MT103UPC”,.F.,.F.)
MATA103X.PRX – MAAVALSD1() -> NPCOCOMPRA := EXECBLOCK(“MT103UPC”,.F.,.F.,)
MATA103X.PRX – MAAVALSD1() -> STATIC LINSPEC := IIF(EXISTBLOCK(“Q103INSP”),EXECBLOCK(“Q103INSP”,.F.,.F.),.F.)
MATA103X.PRX – MAAVALSF1() -> LATUSA2 := EXECBLOCK(“MT103TRV”,.F.,.F.,{SF1->F1_FORNECE,SF1->F1_LOJA,”F”})[2]
MATA103X.PRX – MACANDELF1() -> ARETXFIN:= EXECBLOCK (“M103XFIN”, .F., .F. , {LAVISO,LAVISOISS})
MATA103X.PRX – MACANDELF1() -> CASE L100DEL .AND. !(EXECBLOCK(“A100DEL”,.F.,.F.))
MATA103X.PRX – MACANDELF1() -> CNATGILRAT:= EXECBLOCK(“NTFUNR”,.F.,.F.,{SE2->E2_ORIGEM,SE2->E2_PREFIXO})
MATA103X.PRX – MACANDELF1() -> LRETAPO := EXECBLOCK(“M103APO”,.F.,.F.)
MATA103X.PRX – MACANDELF1() -> LRETORNO:=EXECBLOCK (“M103XATF”, .F., .F., {CALIASSD1})
MATA103X.PRX – NFECARCC() -> AMT103PRE := EXECBLOCK( “MT103PRE”, .F., .F.,{AHEADER,ACOLS})
MATA103X.PRX – NFECOMPLFF() -> LGRAVA := EXECBLOCK(“M103NFC”,.F.,.F.,{LGRAVA .AND. NTIPO == 1,NPROPORC})
MATA103X.PRX – NFEFLDFIN() -> ACOLSPE:= EXECBLOCK(“MTCOLSE2”,.F.,.F.,{ACOLSSE2,0})
MATA103X.PRX – NFEFLDFIN() -> ACPOSPE:= EXECBLOCK(“MT103SE2”,.F.,.F.,{AHEADSE2,LVISUAL})
MATA103X.PRX – NFEFLDFIN() -> ANFEGDSEV := EXECBLOCK(“NFEGDSEV”, .F., .F.)
MATA103X.PRX – NFEFLDFIN() -> L103BDP:=EXECBLOCK(“MT103BDP”,.F.,.F.,{})
MATA103X.PRX – NFEFLDFIN() -> OCONDICAO:LREADONLY := (IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK(“MT103GET”,.F.,.F.),!LALTERA) .AND. MAFISFOUND(“NF”) .AND. CTIPO <> “D”) .OR. CTIPO == ‘D’
MATA103X.PRX – NFEFLDFIN() -> OMOEDA:LREADONLY := IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK(“MT103GET”,.F.,.F.),!LALTERA)
MATA103X.PRX – NFEFLDFIN() -> ONATUREZA:LREADONLY := IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK(“MT103GET”,.F.,.F.),!LALTERA)
MATA103X.PRX – NFEFLDFIN() -> OTAXA:LREADONLY := IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK(“MT103GET”,.F.,.F.),!LALTERA .AND. NMOEDACOR <> 1)
MATA103X.PRX – NFEFLDFIN() -> VALID IF(LMT103NAT, IF(EXECBLOCK(“MT103NAT”,.F.,.F.,CNATUREZA),NFEVLDREF(“NF_NATUREZA”,CNATUREZA),.F.),;
MATA103X.PRX – NFEFORMUL() -> CXESPECIE := EXECBLOCK(“MT103ESP”,.F.,.F.,{CFORMUL})
MATA103X.PRX – NFEFORNECE() -> ADIRFRT := EXECBLOCK(“MT103DRF”,.F.,.F.,{NCOMBO,CCODRET,@OCOMBO,@OCODRET})
MATA103X.PRX – NFELOKSE2() -> LRETORNO := EXECBLOCK(“M103LSE2”,.F.,.F.)
MATA103X.PRX – NFEMULTNAT() -> ACOLSSEV := EXECBLOCK(“MT103SEV”,.F.,.F.,{AHEADSEV,ACOLSSEV})
MATA103X.PRX – NFENEXTDOC() -> CMT103SRI := EXECBLOCK(“MT103SRI”,.F.,.F.,{CNFISCAL,CNFSERIE})
MATA103X.PRX – NFENEXTDOC() -> CNUM103 := EXECBLOCK(“M103NUM”,.F.,.F.,{CNUMERO})
MATA103X.PRX – NFENFS2ACOLS() -> EXECBLOCK( “MT103INF”, .F., .F., { NITEM } )
MATA103X.PRX – NFEPC2ACOL() -> ACOLSSDE := EXECBLOCK( “MT103RCC”, .F., .F.,{AHEADSDE,ACOLSSDE})
MATA103X.PRX – NFEPC2ACOL() -> EXECBLOCK( “MT103IP2”, .F., .F.,{NITEM})
MATA103X.PRX – NFEPC2ACOL() -> EXECBLOCK( “MT103IPC”, .F., .F.,{NITEM})
MATA103X.PRX – NFERATCC() -> ABUTTONUSR := EXECBLOCK(“A103BRCC”,.F.,.F.,{{|X|AHEADSDE}})
MATA103X.PRX – NFERATCC() -> ACOLSCC:= EXECBLOCK(“MT100RTX”,.F.,.F.,{AHEADSDE,ACOLSCC})
MATA103X.PRX – NFERATCC() -> ACOLSSDECPY:=EXECBLOCK(“MA103REPRAT”,.F.,.F.,{AHEADSDE,ACOLSSDE})
MATA103X.PRX – NFERATCC() -> LMT103LRAT := EXECBLOCK(“MT103LRAT”,.F.,.F.,{AHEADSDE,ACOLSSDE})
MATA103X.PRX – NFERATCC() -> LRET := EXECBLOCK(“NFEINICC”,.F.,.F.)
MATA103X.PRX – NFERATLOK() -> LRETORNO := EXECBLOCK(“MT103LOK”,.F.,.F.)
MATA103X.PRX – NFERATTOK() -> LRETORNO := EXECBLOCK(“MT103ROK”,.F.,.F.)
MATA103X.PRX – NFERFLDFIN() -> A103CND2 := EXECBLOCK(“A103CND2”,.F.,.F.,A103CND2)
MATA103X.PRX – NFERFLDFIN() -> ACOLSPE:= EXECBLOCK(“MTCOLSE2”,.F.,.F.,{ACOLSSE2,1})
MATA103X.PRX – NFERFLDFIN() -> ADADOSPC:=EXECBLOCK(“A103VCTO”,.F.,.F.,{ ACLONE(ACOLSSE2),NVALOR,CCONDICAO,NVALIPI,DDEMISSAO,NVALSOL})
MATA103X.PRX – NFERFLDFIN() -> CMT103NTZ := EXECBLOCK(“MT103NTZ”,.F.,.F.,{CNATUREZA})
MATA103X.PRX – NFERFLDFIN() -> LCHKDUP:= EXECBLOCK(“A1031DUP”,.F.,.F.)
MATA103X.PRX – NFERFLDFIN() -> LDUPNEW:= EXECBLOCK(“MT103DUP”,.F.,.F.,{ACOLSDUP,AVENCTO,NVALOR})
MATA103X.PRX – NFERFLDFIN() -> NVALOR := EXECBLOCK(“A103VLR”,.F.,.F.)
MATA103X.PRX – NFERFLDFIN() -> OCONDICAO:LREADONLY := (IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK(“MT103GET”,.F.,.F.), NVALOR == 0) .AND. CTIPO <> “D”) .OR. CTIPO == ‘D’
MATA103X.PRX – NFERFLDFIN() -> OMOEDA:LREADONLY := IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK(“MT103GET”,.F.,.F.), NVALOR == 0)
MATA103X.PRX – NFERFLDFIN() -> ONATUREZA:LREADONLY := IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK(“MT103GET”,.F.,.F.), NVALOR == 0)
MATA103X.PRX – NFERFLDFIN() -> OTAXA:LREADONLY := IIF((INCLUI .OR. ALTERA) .AND. LMT103GET,EXECBLOCK(“MT103GET”,.F.,.F.),NMOEDACOR == 1 .OR. ( CTIPO==”D” .AND. GETNEWPAR(“MV_TXMOENC”,”1″)==”1″ .AND. IIF(TYPE(‘LBLQTXNEG’)==’L’,LBLQTXNEG,.T.) .AND. IIF(TYPE(‘NVALFAT’)==’N’ .AND. NVALFAT > 0,NVALOR == NVALFAT,.T.) ))
MATA103X.PRX – NFETOTFIN() -> LRETORNO := EXECBLOCK(“MT103FIN”,.F.,.F.,{AHEADER,ACOLS,LRETORNO})
MATA103X.PRX – NFEVLDINI() -> LRET := IF(VALTYPE(LRETPE:=EXECBLOCK(‘MT103INC’,.F.,.F.,LCLASS))==’L’,LRETPE,.T.)
MATA103X.PRX – NFEVLDREF() -> LPEDIDOS := IF(VALTYPE(LRETPE:=EXECBLOCK(“MT103VCN”,.F.,.F.,{AHEADER,ACOLS,CREFERENCIA,XVALOR}))==’L’,LRETPE,.T.)
MATA103X.PRX – NFEVLDREF() -> LRETORNO := IF(VALTYPE(LRETPE:=EXECBLOCK(‘MT103DSP’,.F.,.F.,{AHEADER,ACOLS,CREFERENCIA,XVALOR}))==’L’,LRETPE,.T.)
MATA103X.PRX – NFEVLDSEV() -> ARETSEV := EXECBLOCK(‘NFECTSEV’, .F., .F., {AHEADSEV,ACOLSSEV})
MATA103X.PRX – NFEVLDSEV() -> LRETORNO := EXECBLOCK(“NFEVLSEV”,.F.,.F.,{AHEADER,ACOLS,AHEADSEV,ACOLSSEV})
MATA105.PRX – A105ALTERA() -> ABUT105 := EXECBLOCK( “A105BUT”, .F., .F., { NOPCX, ABUT105 } )
MATA105.PRX – A105ALTERA() -> ABUTTONS:=EXECBLOCK(“M105BUT”,.F.,.F.)
MATA105.PRX – A105ALTERA() -> EXECBLOCK(“MT105SCR”,.F.,.F.,{@ODLG,NOPCX,OGET})
MATA105.PRX – A105DELETA() -> ABUT105 := EXECBLOCK( “A105BUT”, .F., .F., { NOPCX, ABUT105 } )
MATA105.PRX – A105DELETA() -> ABUTTONS:=EXECBLOCK(“M105BUT”,.F.,.F.)
MATA105.PRX – A105DELETA() -> EXECBLOCK(“MT105SCR”,.F.,.F.,{@ODLG,NOPCX,OGET})
MATA105.PRX – A105DELETA() -> LRET := EXECBLOCK(“A105DELOK”,.F.,.F.)
MATA105.PRX – A105IMPRIM() -> EXECBLOCK( CPRINTER, .F., .F., { SCP->CP_EMISSAO,SCP->CP_NUM } )
MATA105.PRX – A105INCLUI() -> ABUT105 := EXECBLOCK( “A105BUT”, .F., .F., { NOPCX, ABUT105 } )
MATA105.PRX – A105INCLUI() -> ABUTTONS:=EXECBLOCK(“M105BUT”,.F.,.F.)
MATA105.PRX – A105INCLUI() -> CMT105COP := EXECBLOCK(“MT105COP”,.F.,.F.)
MATA105.PRX – A105INCLUI() -> EXECBLOCK(“MT105SCR”,.F.,.F.,{@ODLG,NOPCX,OGET})
MATA105.PRX – A105INCLUI() -> LVIEWF4 := EXECBLOCK(“M105F4”,.F.,.F.)
MATA105.PRX – A105LEGENDA() -> AMT105LEG := EXECBLOCK(“MT105LEG”,.F.,.F., {AITLEG} )
MATA105.PRX – A105LINOK() -> LRET := EXECBLOCK(“MTA105LIN”,.F.,.F.)
MATA105.PRX – A105SELEES() -> EXECBLOCK(“MT105EXP”,.F.,.F.)
MATA105.PRX – A105TUDOK() -> LRET := EXECBLOCK(“MTA105OK”,.F.,.F.)
MATA105.PRX – A105VISUAL() -> ABUT105 := EXECBLOCK( “A105BUT”, .F., .F., { NOPCX, ABUT105 } )
MATA105.PRX – A105VISUAL() -> ABUTTONS:=EXECBLOCK(“M105BUT”,.F.,.F.)
MATA105.PRX – A105VISUAL() -> EXECBLOCK(“MT105SCR”,.F.,.F.,{@ODLG,NOPCX,OGET})
MATA105.PRX – MA105GRAVA() -> EXECBLOCK(“MT105FIM”,.F.,.F.,NOPCAO)
MATA105.PRX – MA105GRAVA() -> EXECBLOCK(“MT105GRV”,.F.,.F.,NOPCAO)
MATA105.PRX – MATA105() -> AMT105COR := EXECBLOCK(“MT105COR”,.F.,.F., {ACORES} )
MATA105.PRX – MATA105() -> AROTADIC := EXECBLOCK(“MT105MNU”,.F.,.F.)
MATA105.PRX – MATA105() -> CFILQUERY := ALLTRIM(EXECBLOCK(“MT105QRY”,.F.,.F.))
MATA105.PRX – MENUDEF() -> AROTADIC := EXECBLOCK(“MT105MNU”,.F.,.F.)
MATA105.PRX – MENUDEF() -> EXECBLOCK(“MTA105MNU”,.F.,.F.)
MATA106.PRX – A106PREREQ() -> ACPAGL := EXECBLOCK(“MT106SCA”,.F.,.F.)
MATA106.PRX – A106PREREQ() -> C106QRY := EXECBLOCK(“MT106QRY”,.F.,.F.,{LAUTO})
MATA106.PRX – A106PREREQ() -> EXECBLOCK(“MASAVLOP”,.F.,.F.)
MATA106.PRX – A106PREREQ() -> EXECBLOCK(“MT106GRV”,.F.,.F.)
MATA106.PRX – A106PREREQ() -> EXECBLOCK(“MT106PRE”,.F.,.F.,AMT106SCQ)
MATA106.PRX – A106PREREQ() -> EXECBLOCK(“MT106SC1”,.F.,.F.,{“CND”,CND->CND_NUMMED,,CND->(RECNO())})
MATA106.PRX – A106PREREQ() -> EXECBLOCK(“MT106SC1”,.F.,.F.,{“SC1”,SC1->C1_NUM,SC1->C1_ITEM,SC1->(RECNO())})
MATA106.PRX – A106PREREQ() -> EXECBLOCK(“MT106SC1”,.F.,.F.,{“SC7”,SC7->C7_NUM,SC7->C7_ITEM,SC7->(RECNO())})
MATA106.PRX – A106PREREQ() -> EXECBLOCK(“MT106SC1”,.F.,.F.,{“SW1”,SW1->W1_SI_NUM,SW1->W1_COD_I,SW1->(RECNO())})
MATA106.PRX – A106PREREQ() -> IF (VALTYPE(LCONTINUA := EXECBLOCK(“MT106VGR”,.F.,.F.,{LAMZSA,NSALDO,LCONSEMP,LCONSSPED}))==’L’) .AND. !LCONTINUA
MATA106.PRX – A106PREREQ() -> LVLDPE := EXECBLOCK(“MASAVLSC”,.F.,.F.,{SB1->B1_COD,SB1->B1_LOCPAD,SB1->B1_CONTRAT})
MATA106.PRX – A106PREREQ() -> ULOTESC := EXECBLOCK(“MA106SCQ”,.F.,.F.)
MATA106.PRX – A106PROC() -> EXECBLOCK(“MA106GER”,.F.,.F.,{BBLOCO})
MATA106.PRX – A106PROC() -> LRET :=EXECBLOCK( “MA106VLG”, .F., .F.)
MATA106.PRX – MENUDEF() -> EXECBLOCK(“MTA106MNU”,.F.,.F.)
MATA107.PRW – A107LIB() -> EXECBLOCK(“MT107GRV”,.F.,.F.)
MATA107.PRW – A107LIB() -> LRET:= EXECBLOCK(“MT107LIB”,.F.,.F.)
MATA107.PRW – MATA107() -> CFILPE := ALLTRIM(EXECBLOCK(“MT107QRY”,.F.,.F.))
MATA107.PRW – MENUDEF() -> EXECBLOCK(“MTA107MNU”,.F.,.F.)
MATA110.PRX – A110ALTERA() -> ABUT110 := EXECBLOCK( “MA110BUT”, .F., .F., { NOPCX, ABUT110 } )
MATA110.PRX – A110ALTERA() -> ABUTTONUSR := EXECBLOCK(“MA110BAR”,.F.,.F.,{NOPCX})
MATA110.PRX – A110ALTERA() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK(“MT110GET”,.F.,.F.,{APOSOBJ,NOPCX}))== “A”,APOSOBJPE,APOSOBJ)
MATA110.PRX – A110ALTERA() -> CMTA110EC := EXECBLOCK(“MTA110EC”,.F.,.F.)
MATA110.PRX – A110ALTERA() -> EXECBLOCK(“M110STTS”,.F.,.F.,{CA110NUM,2,LCOPIA,_LBLQ})
MATA110.PRX – A110ALTERA() -> EXECBLOCK(“MT110TEL”,.F.,.F.,{@ODLG, APOSGET, NOPCX, NREG} )
MATA110.PRX – A110ALTERA() -> LRET := EXECBLOCK(“MT110VLD”,.F.,.F.,{NOPCX})
MATA110.PRX – A110APROV() -> ACPOSNEW := EXECBLOCK(“MT110CPO”,.F.,.F.,{ACPOS})
MATA110.PRX – A110APROV() -> EXECBLOCK(“MT110CFM”,.F.,.F.,{CNUMSC,NOPCA})
MATA110.PRX – A110APROV() -> EXECBLOCK(“MT110CP2”,.F.,.F.,{AITENS,OQUAL})
MATA110.PRX – A110APROV() -> EXECBLOCK(“MT110END”,.F.,.F.,{CNUMSC,NOPCA})
MATA110.PRX – A110APROV() -> L110APV := EXECBLOCK(“MT110APV”,.F.,.F.,{CALIAS, NREG})
MATA110.PRX – A110APROV() -> LRET := EXECBLOCK(“MT110BLO”,.F.,.F.,{NOPCA})
MATA110.PRX – A110DELETA() -> ABUT110 := EXECBLOCK( “MA110BUT”, .F., .F., {NOPCX, ABUT110 } )
MATA110.PRX – A110DELETA() -> ABUTTONUSR := EXECBLOCK(“MA110BAR”,.F.,.F.,{NOPCX})
MATA110.PRX – A110DELETA() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK(“MT110GET”,.F.,.F.,{APOSOBJ,NOPCX}))== “A”,APOSOBJPE,APOSOBJ)
MATA110.PRX – A110DELETA() -> EXECBLOCK(“M110STTS”,.F.,.F.,{CA110NUM,3,LCOPIA,.F.})
MATA110.PRX – A110DELETA() -> EXECBLOCK(“MT110TEL”,.F.,.F.,{@ODLG, APOSGET, NOPCX, NREG} )
MATA110.PRX – A110DELETA() -> LMSC1110D := EXECBLOCK(“MSC1110D”,.F.,.F.)
MATA110.PRX – A110DELETA() -> LRET := EXECBLOCK(“MT110VLD”,.F.,.F.,{NOPCX})
MATA110.PRX – A110DTNEC() -> LRETORNO := EXECBLOCK(“MT110DTN”,.F.,.F.)
MATA110.PRX – A110DTVLD() -> LMT110DTV := EXECBLOCK(“MT110DTV”,.F.,.F.,{NOPCX,LCOPIA})
MATA110.PRX – A110EXIT() -> LRETORNO := EXECBLOCK(“M110EXIT”,.F.,.F.)
MATA110.PRX – A110GRAVA() -> EXECBLOCK(“MT110GRV”,.F.,.F.,{LCOPIA})
MATA110.PRX – A110GRAVA() -> LCONTINUA := (EXECBLOCK(“MT110CON”,.F.,.F.,{CA110NUM,CSOLIC,DA110DATA,CCCUSTO,CUNIDREQ,CCODCOMPR}))
MATA110.PRX – A110IMPRI() -> EXECBLOCK( CPRINTER, .F., .F., { CALIAS, NRECNO, NOPC } )
MATA110.PRX – A110INCLUI() -> ABUT110 := EXECBLOCK( “MA110BUT”, .F., .F., { NOPCX, ABUT110 } )
MATA110.PRX – A110INCLUI() -> ABUTTONUSR := EXECBLOCK(“MA110BAR”,.F.,.F.,{NOPCX})
MATA110.PRX – A110INCLUI() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK(“MT110GET”,.F.,.F.,{APOSOBJ,NOPCX}))== “A”,APOSOBJPE,APOSOBJ)
MATA110.PRX – A110INCLUI() -> CMTA110EC := EXECBLOCK(“MTA110EC”,.F.,.F.)
MATA110.PRX – A110INCLUI() -> EXECBLOCK(“M110STTS”,.F.,.F.,{CA110NUM,1,LCOPIA,.F.})
MATA110.PRX – A110INCLUI() -> EXECBLOCK(“MT110TEL”,.F.,.F.,{@ODLG, APOSGET, NOPCX, NREG, @ADLGFIELDS} )
MATA110.PRX – A110INCLUI() -> LRET := EXECBLOCK(“MT110VLD”,.F.,.F.,{8})
MATA110.PRX – A110INCLUI() -> LRET := EXECBLOCK(“MT110VLD”,.F.,.F.,{NOPCX})
MATA110.PRX – A110LEGENDA() -> ACORESNEW := EXECBLOCK(“MT110LEG”,.F.,.F.,{ACORES,LGSPINUSEM})
MATA110.PRX – A110LINOK() -> CQUERY := EXECBLOCK(“MTA110CP”,.F.,.F.,{ACOLS[N][NPPROD],CHOJE,NQUANT})
MATA110.PRX – A110LINOK() -> LRET := EXECBLOCK(“MT110LOK”,.F.,.F.,{LRET,DA110DATA})
MATA110.PRX – A110MONTA() -> EXECBLOCK(“M110MONT”,.F.,.F.,{CNUMSC1,NOPC,LCOPIA})
MATA110.PRX – A110RATCC() -> ABUTTONUSR:=EXECBLOCK(“MT110BTR”,.F.,.F.,{ABUTTONS})
MATA110.PRX – A110RATLOK() -> LRETORNO := EXECBLOCK(“MA110VLRAT”,.F.,.F.,{AHEADER,ACOLS,.T.,.F.})
MATA110.PRX – A110RATTOK() -> LRETORNO := EXECBLOCK(“MA110VLRAT”,.F.,.F.,{AHEADER,ACOLS,.F.,.T.})
MATA110.PRX – A110TUDOK() -> LRET110OK := EXECBLOCK(“MTA110OK”,.F.,.F.,{CA110NUM,CSOLIC,DA110DATA})
MATA110.PRX – A110TUDOK() -> LRETORNO := EXECBLOCK(“MT110TOK”,.F.,.F.,{LRETORNO,DA110DATA})
MATA110.PRX – A110VISUAL() -> ABUT110 := EXECBLOCK( “MA110BUT”, .F., .F., { NOPCX, ABUT110 } )
MATA110.PRX – A110VISUAL() -> ABUTTONUSR := EXECBLOCK(“MA110BAR”,.F.,.F.,{NOPCX})
MATA110.PRX – A110VISUAL() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK(“MT110GET”,.F.,.F.,{APOSOBJ,NOPCX}))== “A”,APOSOBJPE,APOSOBJ)
MATA110.PRX – A110VISUAL() -> EXECBLOCK(“MT110TEL”,.F.,.F.,{@ODLG, APOSGET, NOPCX, NREG} )
MATA110.PRX – A110WHEN() -> LRET := EXECBLOCK(‘MT110WHEN’, .F., .F.)
MATA110.PRX – MATA110() -> ACORESNEW := EXECBLOCK(“MT110COR”,.F.,.F.,{ACORES})
MATA110.PRX – MATA110() -> CFILQUERY := ALLTRIM(EXECBLOCK(“MT110QRY”,.F.,.F.))
MATA110.PRX – MATA110() -> CMT110FIL := EXECBLOCK(“MT110FIL”,.F.,.F.)
MATA110.PRX – MENUDEF() -> EXECBLOCK(“MTA110MNU”,.F.,.F.)
MATA112.PRX – A112GSC1() -> CNUMSI := EXECBLOCK(“MT112NUM”, .F., .F.)
MATA112.PRX – A112GSC1() -> EXECBLOCK(“MT112GRV”, .F., .F.)
MATA112.PRX – A112GSC1() -> EXECBLOCK(“MT112IT”, .F., .F.)
MATA112.PRX – A112GSC1() -> LGERASC := EXECBLOCK(“MT112OK”, .F., .F.)
MATA112.PRX – MATA112() -> IF VALTYPE( CFILTROUS := EXECBLOCK( “MT112FILSC3”, .F., .F., {CFILTER}) ) == “C”
MATA113.PRX – A113AFTERH() -> AHEADERNEW := EXECBLOCK(“M113POSC”,.F.,.F.,{AHEADER})
MATA113.PRX – A113APROV() -> ACPOSNEW := EXECBLOCK(“MT113CPO”,.F.,.F.,{ACPOS})
MATA113.PRX – A113APROV() -> EXECBLOCK(“MT113END”,.F.,.F.,{CNUMSC,NOPCA})
MATA113.PRX – A113APROV() -> LRET := EXECBLOCK(“MT113BLO”,.F.,.F.,{NOPCA})
MATA113.PRX – A113EXIT() -> LRETORNO := EXECBLOCK(“M113EXIT”,.F.,.F.)
MATA113.PRX – A113GRAVA() -> EXECBLOCK(“MT113GRV”,.F.,.F.)
MATA113.PRX – A113GRAVA() -> LCONTINUA := (EXECBLOCK(“MT113CON”,.F.,.F.,{CA110NUM,CSOLIC,DA113DATA,CCODCOMPR}))
MATA113.PRX – A113IMPORT() -> ABUTTONUSR := EXECBLOCK(“MA113BAR”,.F.,.F.,{NOPCX})
MATA113.PRX – A113IMPORT() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK(“MT113GET”,.F.,.F.,{APOSOBJ,NOPCX}))== “A”,APOSOBJPE,APOSOBJ)
MATA113.PRX – A113IMPORT() -> EXECBLOCK(“M113STTS”,.F.,.F.,{CA110NUM,NOPCX})
MATA113.PRX – A113IMPORT() -> EXECBLOCK(“MT113FOL”,.F.,.F.,{NOPCX,APOSGET})
MATA113.PRX – A113IMPORT() -> EXECBLOCK(“MT113TEL”,.F.,.F.,{@ODLG, APOSGET, NOPCX, NREG} )
MATA113.PRX – A113IMPORT() -> IF !EXECBLOCK(“MTA113OK”,.F.,.F.,{CA110NUM,CSOLIC,DA113DATA,NOPCX})
MATA113.PRX – A113IMPRI() -> EXECBLOCK( CPRINTER, .F., .F., { CALIAS, NRECNO, NOPC } )
MATA113.PRX – A113LEGENDA() -> ACORESNEW := EXECBLOCK(“MT113LEG”,.F.,.F.,{ACORES,LGSPINUSEM})
MATA113.PRX – A113LINOK() -> LRET := EXECBLOCK(“MT113LOK”,.F.,.F.,{LRET,DA113DATA})
MATA113.PRX – A113MONTA() -> EXECBLOCK(“M113MONT”,.F.,.F.,{CNUMSC1,NOPC,LCOPIA})
MATA113.PRX – A113TUDOK() -> LRETORNO := EXECBLOCK(“MT113TOK”,.F.,.F.,{LRETORNO,DA113DATA})
MATA113.PRX – MATA113() -> CMT113FIL := EXECBLOCK(“MT113FIL”,.F.,.F.)
MATA113.PRX – MENUDEF() -> AROTINANEW := EXECBLOCK(“MT113ROT”,.F.,.F.,AROTINA)
MATA113.PRX – MENUDEF() -> EXECBLOCK(“MTA113MNU”,.F.,.F.)
MATA114.PRW – LOADUSRCPO() -> CUSRCAMPOS := EXECBLOCK(“MT114CAB”,.F.,.F.)
MATA114.PRW – LOADUSRCPO() -> CUSRCPOGRID := EXECBLOCK(“MT114GRID”,.F.,.F.)
MATA116.PRW – A116CHKNFE() -> LMT116VLD := EXECBLOCK(“MT116VLD”,.F.,.F.,{NFORMUL,CNFISCAL,CSERIE,CFORNECE,CCODLOJA})
MATA116.PRW – A116INCLUI() -> ABUTTONS := EXECBLOCK( “MA116BUT”, .F., .F., { NOPCX, ABUTTONS } )
MATA116.PRW – A116INCLUI() -> EXECBLOCK(“M116ACOL”,.F.,.F.,{CALIASSD1,NX,AM116ACOL})
MATA116.PRW – A116INCLUI() -> EXECBLOCK(“MT116AGR”,.F.,.F.)
MATA116.PRW – A116INCLUI() -> EXECBLOCK(“MT116CUST”,.F.,.F.,{L116INCLUI,L116EXCLUI})
MATA116.PRW – A116INCLUI() -> EXECBLOCK(“MT116GRV”,.F.,.F.)
MATA116.PRW – A116INCLUI() -> LRET := EXECBLOCK(“MT116OK”,.F.,.F.,{L116EXCLUI})
MATA116.PRW – A116INCLUI() -> LRET116SD1 := EXECBLOCK(“MT116SD1”,.F.,.F.,{(CALIASSD1)})
MATA116.PRW – A116LINOK() -> LRET := EXECBLOCK(“MT100LOK”,.F.,.F.,{LRET})
MATA116.PRW – A116MARK() -> EXECBLOCK(‘M116MARK’, .F., .F.)
MATA116.PRW – A116NCF() -> CPECNFISCAL := EXECBLOCK(“MT116NCF”,.F.,.F.,{C116NUMNF})
MATA116.PRW – A116SETUP() -> A116F3 := EXECBLOCK(“MT116F3”,.F.,.F.)
MATA116.PRW – A116SETUP() -> C116COMBO4 := EXECBLOCK(“MT116AGL”, .F., .F., {ACOMBO4})
MATA116.PRW – A116SETUP() -> LMT116VTP:= EXECBLOCK(“MT116VTP”,.F.,.F.,{APARAMETROS} )
MATA116.PRW – A116SETUP() -> N116VALOR := EXECBLOCK(“MT116VAL”,.F.,.F.,{N116VALOR})
MATA116.PRW – A116TUDOK() -> LRET := EXECBLOCK(“MT116TOK”,.F.,.F.)
MATA116.PRW – A116VLDEXC() -> CASE L100DEL .AND. VALTYPE(LRETPE := EXECBLOCK(“A100DEL”,.F.,.F.) ) == “L” .AND. ! LRETPE
MATA116.PRW – MATA116A() -> CRETPE := EXECBLOCK(“MT116FTR”,.F.,.F.,)
MATA116.PRW – MATA116A() -> CRETPE := EXECBLOCK(“MT116QRY”,.F.,.F.,)
MATA116.PRW – MATA116A() -> EXECBLOCK(‘MT115MRK’, .F., .F.)
MATA116.PRW – MENUDEF() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( “MT116BUT”, .F., .F.)) == “A”
MATA116I.PRW – A116ICLIFOR() -> AAUXFOR := EXECBLOCK(“A116IFOR”,.F.,.F.,{OXML, C116ALIAS, CBUSCA116})
MATA116I.PRW – CTE_RETTES() -> AAUX := EXECBLOCK(“A116TECT”,.F.,.F.,{OXML})
MATA116I.PRW – IMPXMLCTEOS() -> AA116IDOC := EXECBLOCK(“A116IDOC”,.F.,.F.,{CDOC, CSERIE, CFORNCTE, CLOJACTE})
MATA116I.PRW – IMPXMLCTEOS() -> AITENSCOMP := EXECBLOCK(“A116ICOMP”,.F.,.F.,{OXML})
MATA116I.PRW – IMPXMLCTEOS() -> CPRDFRETE := EXECBLOCK(“A116PRDF”,.F.,.F.,{OXML})
MATA116I.PRW – IMPXMLCTEOS() -> CRETPRD := EXECBLOCK(“A116ITPCT”,.F.,.F.,{APARAMPE, OXML})
MATA116I.PRW – IMPXMLCTEOS() -> EXECBLOCK(“MT116XMLCT”,.F.,.F.,{OXML,CDOC,CSERIE,CFORNCTE,CLOJACTE,”T”,”PF”})
MATA116I.PRW – IMPXMLCTEOS() -> EXECBLOCK(“MT116XMLCT”,.F.,.F.,{OXML,CDOC,CSERIE,CFORNCTE,CLOJACTE,”T”,”PN”})
MATA116I.PRW – IMPXML_CTE() -> AA116IDOC := EXECBLOCK(“A116IDOC”,.F.,.F.,{CDOC, CSERIE, CFORNCTE, CLOJACTE})
MATA116I.PRW – IMPXML_CTE() -> AITENSCOMP := EXECBLOCK(“A116ICOMP”,.F.,.F.,{OXML})
MATA116I.PRW – IMPXML_CTE() -> CPRDFRETE := EXECBLOCK(“A116PRDF”,.F.,.F.,{OXML})
MATA116I.PRW – IMPXML_CTE() -> CRETPRD := EXECBLOCK(“A116ICTEN”,.F.,.F.,{APARAMPE, OXML})
MATA116I.PRW – IMPXML_CTE() -> CRETPRD := EXECBLOCK(“A116ITPCT”,.F.,.F.,{APARAMPE, OXML})
MATA116I.PRW – IMPXML_CTE() -> EXECBLOCK(“MT116XMLCT”,.F.,.F.,{OXML,CDOC,CSERIE,CFORNCTE,CLOJACTE,”T”,”PF”})
MATA116I.PRW – IMPXML_CTE() -> EXECBLOCK(“MT116XMLCT”,.F.,.F.,{OXML,CDOC,CSERIE,CFORNCTE,CLOJACTE,”T”,”PN”})
MATA119.PRW – A119INCLUI() -> CFILTRASD1 := EXECBLOCK(“MT119QRY”,.F.,.F.)
MATA119.PRW – A119INCLUI() -> CNFISCAL := EXECBLOCK(“MT119SX5”,.F.,.F.,{CSERIE})
MATA119.PRW – A119INCLUI() -> EXECBLOCK(“M119ACOL”,.F.,.F.,{CALIASSD1,NX,ACHAVE})
MATA119.PRW – A119INCLUI() -> EXECBLOCK(“MT119AGR”,.F.,.F.)
MATA119.PRW – A119INCLUI() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( “MA119BUT”, .F., .F. ) ) == “A”
MATA119.PRW – A119INCLUI() -> LPROCSD1 := EXECBLOCK(“MT119FIL”,.F.,.F.)
MATA119.PRW – A119LINOK() -> LRET := EXECBLOCK(“MT100LOK”,.F.,.F.,{LRET})
MATA119.PRW – A119TUDOK() -> LRET := EXECBLOCK(“MT100LOK”,.F.,.F.,{LRET})
MATA119.PRW – A119TUDOK() -> LRET := EXECBLOCK(“MT119TOK”,.F.,.F.,{LRET})
MATA119.PRW – MATA119A() -> EXECBLOCK(‘MT115MRK’, .F., .F.)
MATA120.PRX – A120DEL() -> EXECBLOCK(“MT120DEL”,.F.,.F.)
MATA120.PRX – A120DESCMOED() -> CRET:= EXECBLOCK(“MT120MOE”,.F.,.F.)
MATA120.PRX – A120DESCMOED() -> LTXMOEDA := EXECBLOCK(“MT120TXMD”,.F.,.F.)
MATA120.PRX – A120F4() -> AFILUSR := EXECBLOCK( “A120F4FI”, .F., .F. )
MATA120.PRX – A120F4() -> AMT120VIT := EXECBLOCK( “MT120VIT”, .F., .F.,{ACAMPOS,NTIPOPED})
MATA120.PRX – A120F4() -> ANEW := EXECBLOCK(“MT120C1D”, .F., .F., AARRAYF4[LEN(AARRAYF4)])
MATA120.PRX – A120F4() -> EXECBLOCK(“A120F4CP”,.F.,.F.)
MATA120.PRX – A120F4() -> IF VALTYPE( ANEW := EXECBLOCK( “MT120C1C”, .F., .F., AHEADUSER ) ) == “A”
MATA120.PRX – A120F4() -> UMT120LCT:=EXECBLOCK(“MT120LCT”,.F.,.F.)
MATA120.PRX – A120FORN() -> LMT120CND := EXECBLOCK(“MT120CND”,.F.,.F.)
MATA120.PRX – A120GRAVA() -> ARETG1 := EXECBLOCK(“MTA120G1”,.F.,.F.,{CA120NUM,INCLUI,ALTERA,LDELETA})
MATA120.PRX – A120GRAVA() -> CMT120APV := EXECBLOCK(“MT120APV”,.F.,.F.)
MATA120.PRX – A120GRAVA() -> EXECBLOCK(“MT120F”,.F.,.F.,XFILIAL(“SC7”)+CA120NUM)
MATA120.PRX – A120GRAVA() -> EXECBLOCK(“MTA120G2”,.F.,.F.,ARETG1)
MATA120.PRX – A120GRAVA() -> EXECBLOCK(“WFW120P”,.F.,.F.,XFILIAL(“SC7”)+CA120NUM)
MATA120.PRX – A120GRAVA() -> LGERACRG3 := EXECBLOCK(“MTA120G3”,.F.,.F.,{ARETG1,LGERASCR})
MATA120.PRX – A120GRAVA() -> LOCAL LA120QUJE := EXISTBLOCK(“A120QUJE”) .AND. EXECBLOCK(“A120QUJE”,.F.,.F.)
MATA120.PRX – A120IMPRI() -> EXECBLOCK( CPRINTER, .F., .F., { CALIAS, NRECNO, NOPC } )
MATA120.PRX – A120LEGEND() -> ALEGEUSR := EXECBLOCK(“MT120LEG”,.F.,.F.,{ALEGENDA})
MATA120.PRX – A120LINOK() -> CXUSR := EXECBLOCK(“MT120CUR”,.F.,.F.)
MATA120.PRX – A120LINOK() -> LMT120USR:= EXECBLOCK( “MT120USR”, .F., .F., {EMPTY(ACOLS[N][NPOSNUMSC])})
MATA120.PRX – A120LINOK() -> LRET := EXECBLOCK(“M120FGCT”, .F., .F., {CFILSEEKC1, ACOLS[N][NPOSNUMSC], ACOLS[N][NPOSITEMSC]})
MATA120.PRX – A120LINOK() -> LRET120L := EXECBLOCK(“MT120PCOL”,.F.,.F., {1})
MATA120.PRX – A120LINOK() -> LRET120LOK := EXECBLOCK(“MT120LOK”,.F.,.F.)
MATA120.PRX – A120LINOK() -> LRET120LOK := EXECBLOCK(“MT120VLD”,.F.,.F.)
MATA120.PRX – A120MOVCAMPOS() -> EXECBLOCK( “MT120ISC”, .F., .F. )
MATA120.PRX – A120PEDIDO() -> ACPED:=EXECBLOCK(“MT120PED”,.F.,.F.,{})
MATA120.PRX – A120PEDIDO() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK(“MT120GET”,.F.,.F.,{APOSOBJ,NOPCX}))== “A”,APOSOBJPE,APOSOBJ)
MATA120.PRX – A120PEDIDO() -> EXECBLOCK(“MT120CPE”,.F.,.F.,{NOPCX,LCOPIA})
MATA120.PRX – A120PEDIDO() -> EXECBLOCK(“MT120FIM”,.F.,.F.,{AROTINA[NOPCX,4], CA120NUM,NOPCA})
MATA120.PRX – A120PEDIDO() -> EXECBLOCK(“MT120FOL”,.F.,.F.,{NOPCX,APOSGET})
MATA120.PRX – A120PEDIDO() -> EXECBLOCK(“MT120GOK”,.F.,.F.,{CA120NUM,L120INCLUI,L120ALTERA,L120DELETA})
MATA120.PRX – A120PEDIDO() -> EXECBLOCK(“MT120SCR”,.F.,.F.,@ODLG)
MATA120.PRX – A120PEDIDO() -> EXECBLOCK(“MT120TEL”,.F.,.F.,{@ODLG, APOSGET, AOBJ, NOPCX, NREG, @ADLGFIELDS} )
MATA120.PRX – A120PEDIDO() -> IF AT(UPPER(“EXEC”),X5DESCRI()) > 0
MATA120.PRX – A120PEDIDO() -> IF VALTYPE( AALTBUTTONS := EXECBLOCK( “MT120ABU”, .F., .F., {ABUTTONS}) ) == “A”
MATA120.PRX – A120PEDIDO() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( “MA120BUT”, .F., .F. ) ) == “A”
MATA120.PRX – A120PEDIDO() -> IF VALTYPE(EXECBLOCK(“MT120PED”,.F.,.F.,{})) == ‘A’
MATA120.PRX – A120PEDIDO() -> LCONTINUA := EXECBLOCK(“MT120RES”,.F.,.F.,{AROTINA[NOPCX,4]})
MATA120.PRX – A120PEDIDO() -> LEXCPED := EXECBLOCK(“MTA120EX”,.F.,.F.)
MATA120.PRX – A120PEDIDO() -> LMT120ALT := EXECBLOCK(“MT120ALT”,.F.,.F.,{AROTINA[NOPCX,4]})
MATA120.PRX – A120PEDIDO() -> LMT120GRV := EXECBLOCK(“MT120GRV”,.F.,.F.,{CA120NUM,L120INCLUI,L120ALTERA,L120DELETA,ARECNOSE2RA})
MATA120.PRX – A120PEDIDO() -> LMTA120E := EXECBLOCK(“MTA120E”,.F.,.F.,{NOPCA,CA120NUM})
MATA120.PRX – A120PID() -> AFILTRO := EXECBLOCK( “A120AEFL”, .F., .F.,{CFILSC3} )
MATA120.PRX – A120PID() -> AFILTRO := EXECBLOCK( “A120PIDF”, .F., .F. )
MATA120.PRX – A120PID() -> AMARK := EXECBLOCK(“MT120MAK”,.F.,.F.,{IF(NTIPOPED == 1 , “SC1” , “SC3” )})
MATA120.PRX – A120PID() -> AMT120VSC := EXECBLOCK( “MT120VSC”, .F., .F.,{ACAMPOS,NTIPOPED})
MATA120.PRX – A120PRODUTO() -> ATRIGGERCPO:= EXECBLOCK(“MT120CPO”,.F.,.F.,{ATRIGGERCPO})
MATA120.PRX – A120RATCC() -> AAUXRAT := EXECBLOCK(“MT120RCC”,.F.,.F.,{AHEADSCH,ACOLSCC})
MATA120.PRX – A120RATCC() -> AAUXRAT:= EXECBLOCK(“MT120RAT”,.F.,.F.,{ACOLSSCH,AHEADSCH,N})
MATA120.PRX – A120RATCC() -> ABUTTONUSR:=EXECBLOCK(“MT120BTR”,.F.,.F.,{ABUTTONS})
MATA120.PRX – A120RATLOK() -> LVLDLRAT := EXECBLOCK(“MT120VLRAT”,.F.,.F.,{ACOLS,AHEADER,N})
MATA120.PRX – A120TABELA() -> EXECBLOCK(“MT120TAB”,.F.,.F.)
MATA120.PRX – A120TUDOK() -> LM120PGAN:= EXECBLOCK(“M120PGAN”,.F.,.F.,{NTOTPAG,XMOEDA(NTOTPED,SC7->C7_MOEDA,1,SC7->C7_EMISSAO,,NTXMOEDA)})
MATA120.PRX – A120TUDOK() -> LRET := EXECBLOCK(“M120TGCT”, .F., .F., {CFILSEEKC1, ACOLS[N][NPOSNUMSC], ACOLS[N][NPOSITEMSC]})
MATA120.PRX – A120TUDOK() -> LRET120OK := EXECBLOCK(“MT120OK”,.F.,.F.)
MATA120.PRX – A120TUDOK() -> LRET120OK := EXECBLOCK(“MT120PCOK”,.F.,.F., {2})
MATA120.PRX – A120VALCOND() -> LRET1 := EXECBLOCK(“MT120VCP9”,.F.,.F.)
MATA120.PRX – INTPCSSERV() -> EXECBLOCK(“A120SSER”,.F.,.F.)
MATA120.PRX – MATA120() -> ACORESUSR := EXECBLOCK(“MT120COR”,.F.,.F.,{ACORES})
MATA120.PRX – MATA120() -> CFILQUERY := ALLTRIM(EXECBLOCK(“MT120QRY”,.F.,.F.))
MATA120.PRX – MATA120() -> CMT120FIL := EXECBLOCK(“MT120FIL”,.F.,.F.)
MATA120.PRX – MATA120() -> EXECBLOCK(“MT120BRW”,.F.,.F.)
MATA120.PRX – MATA120() -> NORDERSC7 := EXECBLOCK(“A120FILT”,.F.,.F., NTIPOPED)
MATA120.PRX – MATA120() -> UMT120DFT:=EXECBLOCK(“MT120DFT”,.F.,.F.)
MATA120A.PRW – MT120AAPROV() -> CMT120APV := EXECBLOCK(“MT120APV”,.F.,.F.)
MATA123.PRX – A123F4() -> AFILUSR := EXECBLOCK( “A123F4FI”, .F., .F. )
MATA123.PRX – A123F4() -> ANEW := EXECBLOCK(“MT123C1D”, .F., .F., AARRAYF4[LEN(AARRAYF4)])
MATA123.PRX – A123F4() -> EXECBLOCK(“A123F4CP”,.F.,.F.)
MATA123.PRX – A123F4() -> IF VALTYPE( ANEW := EXECBLOCK( “MT123C1C”, .F., .F., AHEADUSER ) ) == “A”
MATA123.PRX – A123GRAVA() -> ARETG1 := EXECBLOCK(“MTA123G1”,.F.,.F.)
MATA123.PRX – A123GRAVA() -> CMT123APV := EXECBLOCK(“MT123APV”,.F.,.F.)
MATA123.PRX – A123GRAVA() -> EXECBLOCK(“MT123F”,.F.,.F.,XFILIAL(“SC7”)+CA120NUM)
MATA123.PRX – A123GRAVA() -> EXECBLOCK(“MTA123G2”,.F.,.F.,ARETG1)
MATA123.PRX – A123GRAVA() -> EXECBLOCK(“MTA123G3”,.F.,.F.,{ARETG1,LGERASCR})
MATA123.PRX – A123GRAVA() -> EXECBLOCK(“WFW123P”,.F.,.F.,XFILIAL(“SC7”)+CA120NUM)
MATA123.PRX – A123IMPRI() -> EXECBLOCK( CPRINTER, .F., .F., { CALIAS, NRECNO, NOPC } )
MATA123.PRX – A123LEGEND() -> ALEGEUSR := EXECBLOCK(“MT123LEG”,.F.,.F.,{ALEGENDA})
MATA123.PRX – A123LINOK() -> LRET123LOK := EXECBLOCK(“MT123LOK”,.F.,.F.)
MATA123.PRX – A123MOVCAMPOS() -> EXECBLOCK( “MT123ISC”, .F., .F. )
MATA123.PRX – A123PEDIDO() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK(“MT123GET”,.F.,.F.,{APOSOBJ,NOPCX}))== “A”,APOSOBJPE,APOSOBJ)
MATA123.PRX – A123PEDIDO() -> EXECBLOCK(“MT123FOL”,.F.,.F.,{NOPCX,APOSGET})
MATA123.PRX – A123PEDIDO() -> EXECBLOCK(“MT123GOK”,.F.,.F.,{CA120NUM,L123INCLUI,L123ALTERA,L123DELETA})
MATA123.PRX – A123PEDIDO() -> EXECBLOCK(“MT123TEL”,.F.,.F.,{@ODLG, APOSGET, AOBJ, NOPCX, NREG} )
MATA123.PRX – A123PEDIDO() -> IF AT(UPPER(“EXEC”),X5DESCRI()) > 0
MATA123.PRX – A123PEDIDO() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( “MA123BUT”, .F., .F. ) ) == “A”
MATA123.PRX – A123PEDIDO() -> LMT123ALT := EXECBLOCK(“MT123ALT”,.F.,.F.,{AROTINA[NOPCX,4]})
MATA123.PRX – A123PEDIDO() -> LMT123GRV := EXECBLOCK(“MT123GRV”,.F.,.F.,{CA120NUM,L123INCLUI,L123ALTERA,L123DELETA })
MATA123.PRX – A123PEDIDO() -> LMTA123E := EXECBLOCK(“MTA123E”,.F.,.F.,{NOPCA})
MATA123.PRX – A123PID() -> AFILTRO := EXECBLOCK( “A123PIDF”, .F., .F. )
MATA123.PRX – A123PID() -> AMARK := EXECBLOCK(“MT123MAK”,.F.,.F.,{“SC1”})
MATA123.PRX – A123TUDOK() -> LRET123OK := EXECBLOCK(“MT123OK”,.F.,.F.)
MATA123.PRX – MATA123() -> ACORESUSR := EXECBLOCK(“MT123COR”,.F.,.F.,{ACORES})
MATA123.PRX – MATA123() -> CMT123FIL := EXECBLOCK(“MT123FIL”,.F.,.F.)
MATA123.PRX – MATA123() -> EXECBLOCK(“MT123BRW”,.F.,.F.)
MATA125.PRX – A125CONTRATO() -> APOSOBJ := IF(VALTYPE(APOSOBJPE:=EXECBLOCK(“MT125GET”,.F.,.F.,{APOSOBJ,NOPCX}))== “A”,APOSOBJPE,APOSOBJ)
MATA125.PRX – A125CONTRATO() -> EXECBLOCK(“MT125TEL”,.F.,.F.,{@ODLG, APOSGET, AOBJ, NOPCX, NREG} )
MATA125.PRX – A125CONTRATO() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( “MA125BUT”, .F., .F., { AROTINA[NOPCX][4] } ) ) == “A”
MATA125.PRX – A125CONTRATO() -> SETKEY( VK_F4,{ || EXECBLOCK(“MT125F4”,.F.,.F., 0 ) } )
MATA125.PRX – A125DELOK() -> LRET:=EXECBLOCK(“MT125DELOK”,.F.,.F.)
MATA125.PRX – A125GRAVA() -> CGRUPO := EXECBLOCK(“MT125APV”,.F.,.F.)
MATA125.PRX – A125GRAVA() -> EXECBLOCK(“MT125EXC”,.F.,.F.)
MATA125.PRX – A125GRAVA() -> EXECBLOCK(“MT125F”,.F.,.F.,XFILIAL(“SC3”)+CA125NUM)
MATA125.PRX – A125GRAVA() -> EXECBLOCK(“MT125GRV”,.F.,.F.)
MATA125.PRX – A125IMPRI() -> LRET := EXECBLOCK( CPRINTER, .F., .F., { CALIAS, NRECNO, NOPCX } )
MATA125.PRX – A125LEGEND() -> ALEGEUSR := EXECBLOCK(“MT125LEG”,.F.,.F.,{ALEGENDA})
MATA125.PRX – A125LINOK() -> LRETPE:= EXECBLOCK(“MT125LOK”,.F.,.F.,{LRET})
MATA125.PRX – A125TUDOK() -> LRET := EXECBLOCK(“MT125OK”,.F.,.F.)
MATA125.PRX – MATA125() -> CFILQUERY := ALLTRIM(EXECBLOCK(“MT125QRY”,.F.,.F.))
MATA125.PRX – MATA125() -> CM125FIL := EXECBLOCK(“MT125FIL”,.F.,.F.)
MATA125.PRX – MATA125() -> EXECBLOCK(“MT125BRW”,.F.,.F.)
MATA125.PRX – MENUDEF() -> EXECBLOCK(“MTA125MNU”,.F.,.F.)
MATA126.PRX – A126AGLUT() -> CFILTRO := EXECBLOCK(“MA126FIL”,.F.,.F.,{CCOND})
MATA126.PRX – A126MAKE() -> ANEWCAMPOS := EXECBLOCK(“MA126CPO”,.F.,.F.,{ACAMPOS} )
MATA126.PRX – A126MAKE() -> EXECBLOCK(“MA126GRV”,.F.,.F.,{CNUMSC,AREGS})
MATA126.PRX – A126MAKE() -> LAPAGA := EXECBLOCK(“MA126ASC”,.F.,.F.,{CNUMSC})
MATA130.PRX – A130GERA() -> EXECBLOCK(“MT130GER”,.F.,.F.)
MATA130.PRX – A130GRAVA() -> ABUTTONUSR := EXECBLOCK(“MT130BUTTONS”,.F.,.F.)
MATA130.PRX – A130GRAVA() -> AFORNEC:= EXECBLOCK(“MT130FOR”,.F.,.F.,AFORNEC)
MATA130.PRX – A130GRAVA() -> CNEWCODTAB:=EXECBLOCK(“A130CODTAB”,.F.,.F.,{SC1->C1_PRODUTO,SB1->B1_GRUPO,AFORNEC[NCNTFOR,1],AFORNEC[NCNTFOR,2],CCODTAB})
MATA130.PRX – A130GRAVA() -> EXECBLOCK(“MTA130C8”,.F.,.F.)
MATA130.PRX – A130GRAVA() -> IF VALTYPE(ACOLSUSER:=EXECBLOCK(“MT130COL”,.F.,.F.,{ACOLS})) == “A”
MATA130.PRX – A130GRAVA() -> IF VALTYPE(AHEADUSER:=EXECBLOCK(“MT130HED”,.F.,.F.,{AHEADER})) == “A”
MATA130.PRX – A130IMPRI() -> EXECBLOCK( CPRINTER, .F., .F., { CNUMERO } )
MATA130.PRX – A130LEGENDA() -> ACORESNEW := EXECBLOCK(“MT130LEG”,.F.,.F.,{ACORES})
MATA130.PRX – A130LINOK() -> LRET := EXECBLOCK(“MT130LOK”,.F.,.F.)
MATA130.PRX – A130LOCK() -> AGRUPOS := EXECBLOCK(“A130LOCK”,.F.,.F.,{LTRAVA})
MATA130.PRX – A130PROCES() -> BQUEBRA := EXECBLOCK(“MA130QSC”,.F.,.F.,{BQUEBRA})
MATA130.PRX – A130PROCES() -> CFILQRY := ALLTRIM(EXECBLOCK(“M130PROC”,.F.,.F., {CFILQRY} ))
MATA130.PRX – A130PROCES() -> CKEY130 := EXECBLOCK(“MA130KEY”,.F.,.F.,{CKEY})
MATA130.PRX – A130PROCES() -> EXECBLOCK(“MT130WF”,.F.,.F.,{ASC8NUM[1],ASC8NUM})
MATA130.PRX – A130PROCES() -> LNUMCOT:=EXECBLOCK(“MA130QNR”,.F.,.F.,{})
MATA130.PRX – A130PROCES() -> LPROCESSA:= EXECBLOCK(“MTA130SK”,.F.,.F.)
MATA130.PRX – A130TUDOK() -> LRET := EXECBLOCK(“MT130TOK”,.F.,.F.,{NPOSFORN,NPOSLOJ})
MATA130.PRX – MATA130() -> ACORESNEW := EXECBLOCK(“MT130COR”,.F.,.F.,{ACORES})
MATA130.PRX – MATA130() -> AFILTRA := EXECBLOCK(“MT130IFC”,.F.,.F.)
MATA130.PRX – MATA130() -> AFILTRA := EXECBLOCK(“MT130IFR”,.F.,.F.)
MATA130.PRX – MATA130() -> CAUXFIL := ALLTRIM(EXECBLOCK(“M130FIL”,.F.,.F.))
MATA130.PRX – MENUDEF() -> EXECBLOCK(“MTA130MNU”,.F.,.F.)

Moura

Analista de sistemas, programador com mais de 18 anos de experiência no sistema Totvs Protheus, administrador, suporte e customizações, idealizador da Academia Protheus, já ajudou centenas de pessoas a programar em AdvPL/Tlpp.