Pontos de Entrada P12.2210 - Parte 3

Salve salve....

 

Pontos de Entrada P12.2210

 

 

MATA131.PRW - A131ADDFOR() -> EXECBLOCK("MTA131C8",.F.,.F.,{@OMODFOR})

MATA131.PRW - A131ATUFOR() -> EXECBLOCK("MTA131C8",.F.,.F.,{@OMODFOR})

MATA131.PRW - A131GERA() -> LCONTINUA := EXECBLOCK("MT131VAL",.F.,.F.,{CMARCA,CQUERYSC1})

MATA131.PRW - A131GERMAIL () -> AITEM := EXECBLOCK("MT131AI")

MATA131.PRW - A131GRAVA() -> AFORNEC:= EXECBLOCK("MT131FOR",.F.,.F.,{AFORNEC})

MATA131.PRW - A131IMPRI() -> EXECBLOCK( CPRINTER, .F., .F., { CNUMERO } )

MATA131.PRW - A131LEGENDA() -> ACORESNEW := EXECBLOCK("MT131LEG",.F.,.F.,{ACORES})

MATA131.PRW - A131PROCES() -> BQUEBRA := EXECBLOCK("MA131QSC",.F.,.F.,{BQUEBRA})

MATA131.PRW - A131PROCES() -> CKEY130 := EXECBLOCK("MA131KEY",.F.,.F.,{CKEY})

MATA131.PRW - A131PROCES() -> EXECBLOCK("MT131WF",.F.,.F.,{ASC8NUM[1],ASC8NUM})

MATA131.PRW - A131PROCES() -> LPROCESSA:= EXECBLOCK("MTA131SK",.F.,.F.)

MATA131.PRW - MATA131() -> ACORESNEW := EXECBLOCK("MT131COR",.F.,.F.,{ACORES})

MATA131.PRW - MATA131() -> AFILTRA := EXECBLOCK("MT130IFC",.F.,.F.)

MATA131.PRW - MATA131() -> AFILTRA := EXECBLOCK("MT130IFR",.F.,.F.)

MATA131.PRW - MATA131() -> XAUXFIL := EXECBLOCK("MT131FIL",.F.,.F.)

MATA131.PRW - MENUDEF() -> EXECBLOCK("MT131MNU",.F.,.F.)

MATA140.PRW - A140NFISCAL() -> ACAMPOSPE := IF(VALTYPE(ACAMPOSPE:=EXECBLOCK('MT140CPO',.F.,.F.))=='A',ACAMPOSPE,{})

MATA140.PRW - A140NFISCAL() -> ANOFIELDS := IF(VALTYPE(ANOFIELDS:=EXECBLOCK('MT140DCP',.F.,.F.))=='A',ANOFIELDS,{})

MATA140.PRW - A140NFISCAL() -> EXECBLOCK( "MT140SAI", .F., .F., { AROTINA[ NOPCX, 4 ], CNFISCAL, CSERIE, CA100FOR, CLOJA, CTIPO, NOPCA } )

MATA140.PRW - A140NFISCAL() -> IF !EXECBLOCK("MT140CAB",.F.,.F.)

MATA140.PRW - A140NFISCAL() -> LCONTINUA := IF(VALTYPE(LCONTINUA:=EXECBLOCK("A140ALT",.F.,.F.))=='L',LCONTINUA,.T.)

MATA140.PRW - A140NFISCAL() -> NOPCA := EXECBLOCK("CM120GR",.F.,.F.,{NOPCA})

MATA140.PRW - A140NFISCAL() -> NOPCA := IIF(EXECBLOCK("A140EXC",.F.,.F.),NOPCA,0)

MATA140.PRW - APOS ATUALIZACAO DE TODOS OS DADOS INCLUSAO³() -> EXECBLOCK("SF1140I",.F.,.F.,{LINCLUI,LALTERA})

MATA140.PRW - MA140BAR() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA140BUT", .F., .F. ) ) == "A"

MATA140.PRW - MA140GRAVA() -> CGRUPO := EXECBLOCK("MT140APV",.F.,.F.,{CGRUPO})

MATA140.PRW - MA140GRAVA() -> EXECBLOCK("MT140ACD",.F.,.F.)

MATA140.PRW - MA140GRAVA() -> EXECBLOCK("SD1140E",.F.,.F.)

MATA140.PRW - MA140GRAVA() -> EXECBLOCK("SD1140I",.F.,.F.,{NX})

MATA140.PRW - MA140LINOK() -> LMT140PC  := EXECBLOCK("MT140PC",.F.,.F.,{LPCNFE})

MATA140.PRW - MA140LINOK() -> LRETORNO := EXECBLOCK("MT140LOK",.F.,.F.,{LRETORNO,A140TOTAL,A140DESP})

MATA140.PRW - MA140TUDOK() -> AMT140GCT := EXECBLOCK("MT140GCT",.F.,.F.,{ACOLS,NX,NPOSMED})

MATA140.PRW - MA140TUDOK() -> LRETORNO := EXECBLOCK("MT140TOK",.F.,.F.,{LRETORNO})

MATA140.PRW - MATA140() -> ACORESUSR := EXECBLOCK("MT140COR",.F.,.F.,{ACORES})

MATA140.PRW - MENUDEF() -> AROTADIC := EXECBLOCK( "MT140ROT",.F.,.F.)

MATA140.PRW - MENUDEF() -> EXECBLOCK("MTA140MNU",.F.,.F.)

MATA140I.PRW - IMPXML_NFE() -> A140VPED := EXECBLOCK("A140IVPED",.F.,.F.,{CCODIGO,CLOJA,CPRODUTO,NQUANT})

MATA140I.PRW - IMPXML_NFE() -> AA140IDOC := EXECBLOCK("A140IDOC",.F.,.F.,{CDOC, CSERIE, CCODIGO, CLOJA})

MATA140I.PRW - IMPXML_NFE() -> AA140IQTD := EXECBLOCK("A140IQTD",.F.,.F.,{CPRODUTO,CUM,CSEGUM,NQTSEGUM,NQTDEIT,NPRCIT,NTOTIT,LCONVUM,CCODIGO,CLOJA,CDOC,CSERIE,CTIPONF,IIF(CTIPONF $ "BD",.T.,.F.),OXML})

MATA140I.PRW - IMPXML_NFE() -> AFORNEC := EXECBLOCK("A140IFOR",.F.,.F.,{CTABEMIT, CCGC, CINSC, OXML})

MATA140I.PRW - IMPXML_NFE() -> CPRODUTO := EXECBLOCK("A140IPRD",.F.,.F.,{CCODIGO,CLOJA,ALLTRIM(AITENS[NX]:_PROD:_CPROD:TEXT),AITENS[NX],IIF(CTIPONF $ "DB","SA7","SA5")})

MATA140I.PRW - IMPXML_NFE() -> CTPNFPE := EXECBLOCK("A140ICFOP",.F.,.F.,{OXML})

MATA140I.PRW - IMPXML_NFE() -> EXECBLOCK("A140IGRV",.F.,.F.,{CDOC,CSERIE,CCODIGO,CLOJA,OXML})

MATA140I.PRW - IMPXML_NFS() -> CFILTRO := EXECBLOCK("MT140FSV",.F.,.F.,{CCODSERV, CMUNSERV, CCGCTT, CCGCTP})

MATA140I.PRW - IMPXML_NFS() -> CMT140ISV := EXECBLOCK("MT140ISV",.F.,.F.,{CCODSERV, CMUNSERV, CCGCTT, CCGCTP})

MATA143.PRW - A143DESPAC() -> ABUTTONUSR := EXECBLOCK("M143BUT",.F.,.F.,{NOPCX})

MATA143.PRW - A143DESPAC() -> LRET := EXECBLOCK("MT143GRV",.F.,.F.,{NOPCX})

MATA143.PRW - A143FOLDER() -> ACPOSEDI := EXECBLOCK("M143CPOSED",.F.,.F.)

MATA143.PRW - A143GERANF() -> ACABS := IF (VALTYPE(ARETPE:= EXECBLOCK("MT143SF1",.F.,.F.,{ACABS})) == "A",ARETPE,ACABS)

MATA143.PRW - A143GERANF() -> ACABS := IF(VALTYPE(ARET:= EXECBLOCK("M143CAB",.F.,.F.,{ACABS})) == "A",ARET,ACABS)

MATA143.PRW - A143GERANF() -> AITENS:= IF (VALTYPE(ARETPE:= EXECBLOCK("MT143SD1",.F.,.F.,{AITENS})) == "A",ARETPE,AITENS)

MATA143.PRW - A143GERANF() -> AITENS:= IF(VALTYPE(ARET:= EXECBLOCK("M143ITEM",.F.,.F.,{AITENS})) == "A",ARET,AITENS)

MATA143.PRW - A143GERANF() -> LCONTINUA := EXECBLOCK("M143TODOK",.F.,.F.,{ACABS,AITENS,CTIPONFE})

MATA143.PRW - A143GERANF() -> LMOSTMSG := EXECBLOCK("MT143MSG",.F.,.F.,)

MATA143.PRW - A143GERANF() -> LRET := EXECBLOCK("MT143TGV", .F., .F.)

MATA143.PRW - A143GRAVA() -> EXECBLOCK("A143GRVA",.F.,.F.,{NOPCX,CHAWB})

MATA143.PRW - A143GRAVA() -> LA143EXCLUI := EXECBLOCK("A143EXCLUI", .F. , .F.)

MATA143.PRW - M143F5PO() -> CFILPOQRY := EXECBLOCK("MT143FILPO",.F.,.F.,{CQUERY})

MATA143.PRW - M143F5PO() -> EXECBLOCK("MT143POSEL",.F.,.F.,{AF5PC,CFORNECE,CLOJA})

MATA143.PRW - M143F6PO() -> ANEWARRAY := EXECBLOCK( "MT143F6P", .F., .F.,{AARRAYF4} )

MATA143.PRW - M143F6PO() -> EXECBLOCK( "MT143IPC", .F., .F. )

MATA143.PRW - M143F6PO() -> EXECBLOCK("MT143POSEL",.F.,.F.,{AF6PO,CFORNECE,CLOJA})

MATA143.PRW - M143LOK1() -> LRETORNO := EXECBLOCK("MT143LK1",.F.,.F.)

MATA143.PRW - M143LOK2() -> LRETORNO := EXECBLOCK("MT143LK2",.F.,.F.)

MATA143.PRW - M143REABRE() -> EXECBLOCK("MT143REABR",.F.,.F.,{DBA->DBA_FILIAL,DBA->DBA_HAWB})

MATA143.PRW - M143TUDOK() -> LRET := EXECBLOCK("MT143TOK",.F.,.F.,{NOPCX})

MATA143.PRW - MATA143() -> EXECBLOCK("MT143BRW",.F.,.F.)

MATA143.PRW - MENUDEF() -> EXECBLOCK("MTA143MNU",.F.,.F.)

MATA143.PRW - PO2ACOLS() -> EXECBLOCK( "MT143IPC", .F., .F. )

MATA145.PRX - M145ALTEXC() -> ABUTTONUSR := EXECBLOCK("M145BUT",.F.,.F.,{NOPCX})

MATA145.PRX - M145ALTEXC() -> ACOLSITPE:=EXECBLOCK("MT145ALT",.F.,.F.,{NOPCX,AHEADER2, ACOLSIT})

MATA145.PRX - M145ALTEXC() -> LM145NOBT:= EXECBLOCK("M145NOBT",.F.,.F.)

MATA145.PRX - M145ALTEXC() -> LRET := EXECBLOCK("MT145GRV",.F.,.F.,{NOPCX})

MATA145.PRX - M145F12() -> EXECBLOCK("MT145SX1",.F.,.F.)

MATA145.PRX - M145F6PC() -> ANEWARRAY := EXECBLOCK( "MT145F6P", .F., .F.,{AARRAYF4} )

MATA145.PRX - M145F6PC() -> EXECBLOCK( "MT145IPC", .F., .F. )

MATA145.PRX - M145GRV() -> EXECBLOCK("MT145ATU",.F.,.F.,{NOPC,NNUMAVRC})

MATA145.PRX - M145GRV() -> LDELETAAVR := EXECBLOCK('M145ARDEL', .F., .F.)

MATA145.PRX - M145HOMOLO() -> AMT145ADD := EXECBLOCK("MT145ADD",.F.,.F.,{ACABS,AITENS})

MATA145.PRX - M145HOMOLO() -> APARAMNEW := EXECBLOCK('M145HCI', .F., .F., APARAM)

MATA145.PRX - M145HOMOLO() -> APARAMNEW := EXECBLOCK('M145HTF', .F., .F., APARAM)

MATA145.PRX - M145HOMOLO() -> CCFPE := EXECBLOCK('M145HCF', .F., .F., CCF)

MATA145.PRX - M145HOMOLO() -> CCONDPE := EXECBLOCK('M145HCDP', .F., .F., CCOND)

MATA145.PRX - M145HOMOLO() -> CTESENTPE := EXECBLOCK('M145HTES', .F., .F., CTESENT)

MATA145.PRX - M145HOMOLO() -> EXECBLOCK('M145HAAR', .F., .F., (LEN(ALOGERRO)>0))

MATA145.PRX - M145HOMOLO() -> EXECBLOCK('M145HANF', .F., .F., LMSERROAUTO)

MATA145.PRX - M145HOMOLO() -> EXECBLOCK('M145HERR', .F., .F.,{ALOGERRO})

MATA145.PRX - M145HOMOLO() -> EXECBLOCK('M145HMIT', .F., .F., {DB3_NUMPC,DB3_ITEMPC})

MATA145.PRX - M145HOMOLO() -> LRET := EXECBLOCK('M145HOM', .F., .F.,{ACOLS1,ACOLS2})

MATA145.PRX - M145HOMOLO() -> LSHOW := EXECBLOCK('M145CMSG', .F., .F.)

MATA145.PRX - M145INCLUI() -> ABUTTONUSR := EXECBLOCK("M145BUT",.F.,.F.,{NOPCX})

MATA145.PRX - M145INCLUI() -> LM145NOBT:= EXECBLOCK("M145NOBT",.F.,.F.)

MATA145.PRX - M145LOK1() -> LRETORNO := EXECBLOCK("MT145LK1",.F.,.F.)

MATA145.PRX - M145LOK2() -> LRETORNO := EXECBLOCK("MT145LK2",.F.,.F.)

MATA145.PRX - M145TUDOK() -> LRET := EXECBLOCK("MT145TOK",.F.,.F.,{NOPCX})

MATA145.PRX - MA145FORM() -> LRET := EXECBLOCK("MT145NFE",.F.,.F.)

MATA145.PRX - MATA145() -> AROTADIC := EXECBLOCK("MT145MNU",.F.,.F.)

MATA145.PRX - MENUDEF() -> EXECBLOCK("MTA145MNU",.F.,.F.)

MATA145.PRX - PC2ACOLS() -> EXECBLOCK( "MT145IPC", .F., .F. )

MATA150.PRX - A150DESCMOED() -> LMOEDALT := EXECBLOCK("MT150ALTMD",.F.,.F.)

MATA150.PRX - A150DIGITA() -> ABUTTONS := EXECBLOCK( "MA150BUT", .F., .F. )

MATA150.PRX - A150DIGITA() -> ACOLSUSR := EXECBLOCK("MT150GET",.F.,.F.,{ACOLS})

MATA150.PRX - A150DIGITA() -> EXECBLOCK("MT150END",.F.,.F.,{NOPCX})

MATA150.PRX - A150DIGITA() -> EXECBLOCK("MT150SCR",.F.,.F.,@ODLG)

MATA150.PRX - A150DIGITA() -> LCONTINUA := EXECBLOCK("MT150ENV",.F.,.F.)

MATA150.PRX - A150DIGITA() -> LCONTINUA := EXECBLOCK("MT150NPA",.F.,.F.)

MATA150.PRX - A150GRAVA() -> EXECBLOCK("MT150DEL",.F.,.F.)

MATA150.PRX - A150GRAVA() -> EXECBLOCK("MT150GRV",.F.,.F.,{NOPCX})

MATA150.PRX - A150LEGENDA() -> ALEGUSR := EXECBLOCK("MT150LEG",.F.,.F., { 2 })

MATA150.PRX - A150LINOK() -> LRET := EXECBLOCK("MT150LOK",.F.,.F.)

MATA150.PRX - A150MONTA() -> CCHAVEAUX := EXECBLOCK("MT150CHV",.F.,.F.)

MATA150.PRX - A150MONTA() -> EXECBLOCK("MT150LIN",.F.,.F.,{NOPC})

MATA150.PRX - A150OK() -> LRET := EXECBLOCK("MT150OK",.F.,.F.,{NOPCX})

MATA150.PRX - A150TUDOK() -> LRETPE := EXECBLOCK("MT150OK",.F.,.F.,{NOPCX})

MATA150.PRX - A150VALCOND() -> LRET1 := EXECBLOCK("MT120VCP9",.F.,.F.)

MATA150.PRX - MATA150() -> AFIXE := EXECBLOCK("MT150FIX",.F.,.F.,AFIXE)

MATA150.PRX - MATA150() -> CFILUSER := EXECBLOCK("MT150FIL",.F.,.F.)

MATA150.PRX - MENUDEF() -> AROTINA := EXECBLOCK("MT150ROT",.F.,.F.,AROTINA)

MATA160.PRX - A160ANALIS() -> ARET160PLN := EXECBLOCK("MT160PLN",.F.,.F.,{APLANILHA,AAUDITORIA,ACOTACAO,NOPCX,ACPOSC8})

MATA160.PRX - A160ANALIS() -> ATITLES := EXECBLOCK("MT160ABA",.F.,.F.,{ATITLES} )

MATA160.PRX - A160ANALIS() -> EXECBLOCK( "MT160WF", .F., .F., { SC8->C8_NUM } )

MATA160.PRX - A160ANALIS() -> EXECBLOCK("MT160FDL",.F.,.F.,)

MATA160.PRX - A160ANALIS() -> EXECBLOCK("MT160TEL",.F.,.F.,{@ODLG, APOSGET,NOPCX, NREG} )

MATA160.PRX - A160ANALIS() -> LMT160AOK := EXECBLOCK("MT160AOK",.F.,.F.,{APLANILHA, NOPCX})

MATA160.PRX - A160ANALIS() -> LMT160OK := EXECBLOCK("MT160OK",.F.,.F.,APLANILHA)

MATA160.PRX - MA160BAR() -> AADD(ABUTTONS,{"PMSPRINT",{|| IIF(!LMA160IMP,MA160IMP(APLANILHA,AAUDITORIA,ACOTACAO,ALISTBOX,ACABEC,AREFIMPOS,LTES,ACPOSC8),EXECBLOCK( CPRINTER, .F., .F., {NREG,APLANILHA,AAUDITORIA,ACOTACAO,ALISTBOX,ACABEC,AREFIMPOS,LTES,ACPOSC8} )) },OEMTOANSI(STR0032),OEMTOANSI(STR0050) })

MATA160.PRX - MA160BAR() -> ABUTTONUSR := EXECBLOCK("MA160BAR",.F.,.F.,{NREG,APLANILHA,AAUDITORIA,ACOTACAO,ALISTBOX,ACABEC,AREFIMPOS,LTES,ACPOSC8})

MATA160.PRX - MA160CUSTO() -> NRETORNO := EXECBLOCK("MA160CUS",.F.,.F.,{CALIASSC8,NITEM})

MATA160.PRX - MA160MARCA() -> ARET160MAR := EXECBLOCK("M160MARK",.F.,.F.,{CALIAS,APLANILHA[NPOSATU][NLINHA],ACOTACAO[NPOSATU][NLINHA],ALISTBOX,ACABEC[CAB_HFLD3]})

MATA160.PRX - MA160MARCA() -> ARET160MRK := EXECBLOCK("M160MRK1",.F.,.F.,{CALIAS,APLANILHA,ACOTACAO,ALISTBOX,ACABEC})

MATA160.PRX - MA160MARCA() -> LMT160P := EXECBLOCK("MT160PCOK",.F.,.F.,{APLANILHA,CITEMPE})

MATA160.PRX - MA160PAGE() -> EXECBLOCK("MT160ATU",.F.,.F.,{@ODLG,APOSGET,VAR_IXB} )

MATA160.PRX - MA160TOK() -> LRET:= EXECBLOCK("MA160TOK",.F.,.F.,{NOPCX,NREG,APLANILHA,AAUDITORIA,ACOTACAO,ASC8})

MATA160.PRX - MA160VLDGD() -> LRET160LOK := EXECBLOCK("MT160LOK",.F.,.F.,APLANILHA)

MATA160.PRX - MATA160() -> AFIXE := EXECBLOCK("MT160FIX",.F.,.F.,AFIXE)

MATA160.PRX - MATA160() -> CFILUSER := EXECBLOCK("MT160FIL",.F.,.F.,{CALIASSC8})

MATA160.PRX - MATA160() -> CFILUSERQRY := EXECBLOCK("MT160QRY",.F.,.F.,{CALIASSC8})

MATA160.PRX - MENUDEF() -> EXECBLOCK("MTA160MNU",.F.,.F.)

MATA161.PRW - A161GERDOC() -> EXECBLOCK( "MT160WF", .F., .F., { CNUMCOT } )

MATA161.PRW - A161GERDOC() -> LCNTESP := EXECBLOCK("MT161CNT",.F.,.F.,{AWINPROP,CNUMCOT})

MATA161.PRW - A161LAYER() -> ABUTTONUSR := EXECBLOCK("MA161BAR",.F.,.F.,{AITENS,OBROWSE1})

MATA161.PRW - A161LAYER() -> APROPPE := EXECBLOCK("MT161PRO",.F.,.F.,{APROPOSTAS})

MATA161.PRW - A161LAYER() -> ARETPE := EXECBLOCK("MT161CPO",.F.,.F.,{APROPOSTAS,AITENS})

MATA161.PRW - A161MAPCOT() -> LMT161OK := EXECBLOCK("MT161OK",.F.,.F.,{APROPOSTAS,CTPDOC})

MATA161.PRW - A161PROP() -> CMT161CIT := EXECBLOCK( "MT161CIT", .F., .F.)

MATA161.PRW - A161TOK() -> LRETPE := EXECBLOCK("MT161TOK",.F.,.F.,{AITENS, APROPOSTAS, AGRAVAAUD, CTPDOC})

MATA161.PRW - MATA161() -> CUSRFILTER := EXECBLOCK("MT161FIL",.F.,.F.,{"SC8"})

MATA161.PRW - MENUDEF() -> IF VALTYPE(AACOES := EXECBLOCK( "MTA161BUT", .F., .F., {AROTINA}) ) == "A"

MATA162.PRW - A162CUSTO() -> NRET := EXECBLOCK("MA162CUS", .F., .F., {"SC8", NITEM})

MATA162.PRW - BROWSEDEF() -> CUSRFILT := EXECBLOCK("MT162FIL", .F., .F., {"DHU"})

MATA162.PRW - MENUDEF() -> ARETUSR := EXECBLOCK("MT162BUT", .F., .F., {ARET})

MATA162EVDEF.PRW - AFTERTTS() -> EXECBLOCK("MT162WF", .F., .F., {CNUMCOT})

MATA170.PRX - A170POINT() -> AFORNEPAD := EXECBLOCK("MS170FOR",.F.,.F.)

MATA170.PRX - A170POINT() -> EXECBLOCK( "MT170FIM", .F., .F., { ASOLIC } )

MATA170.PRX - A170POINT() -> EXECBLOCK("MT170SC1",.F.,.F.)

MATA170.PRX - A170POINT() -> LVALIDSB1 := EXECBLOCK("MT170SB1",.F.,.F.,{CARQTRB})

MATA170.PRX - A170POINT() -> LVALIDSG1 := EXECBLOCK("MT170SG1",.F.,.F.,{(CARQTRB)->B1_COD})

MATA170.PRX - A170POINT() -> NAUXQUANT := EXECBLOCK("MS170QPP",.F.,.F.,{NQUANT})

MATA170.PRX - A170POINT() -> NAUXQUANT := EXECBLOCK("MS170QTD",.F.,.F.,NQUANT)

MATA170.PRX - A170POINT() -> NSALDAUX := EXECBLOCK("MT170SLD",.F.,.F.,{NSALDO,SB2->B2_COD,SB2->B2_LOCAL})

MATA173.PRX - A173POINT() -> CGRUPO := EXECBLOCK("MT173APV",.F.,.F.)

MATA173.PRX - A173POINT() -> EXECBLOCK("MT173GRV",.F.,.F.)

MATA173.PRX - A173POINT() -> LRET := EXECBLOCK("MT173QRY",.F.,.F.)

MATA173.PRX - A173POINT() -> NSALDAUX := EXECBLOCK("MT173SLD",.F.,.F.,{NSALDO,SB2->B2_COD,SB2->B2_LOCAL})

MATA175.PRX - A175GETDAD() -> LRET := EXECBLOCK("M175VSLD",.F.,.F.)

MATA175.PRX - A175GRAVA() -> EXECBLOCK("A175GRV",.F.,.F.)

MATA175.PRX - A175GRAVA() -> VAR := EXECBLOCK("A175CQ",.F.,.F.)

MATA175.PRX - A175LIBEST() -> LRET := IF(VALTYPE(LRETPE:=EXECBLOCK('MT175ATU',.F.,.F.))=='L',LRETPE,.T.)

MATA175.PRX - A175LINOK() -> LRET := EXECBLOCK("MT175FOK",.F.,.F.)

MATA175.PRX - A175LINOK() -> LRET := EXECBLOCK("MT175LOK",.F.,.F.)

MATA175.PRX - A175TIPO() -> CLOCPE := EXECBLOCK("A175ALMO",.F.,.F.,{CLOCPAD})

MATA175.PRX - A175TUDOK() -> URETTOK:=EXECBLOCK('MT175TOK',.F.,.F.,{LRET})

MATA175.PRX - MENUDEF() -> EXECBLOCK("MTA175MNU",.F.,.F.)

MATA179.PRW - A179CALCEN() -> AFILTRO := EXECBLOCK("MT179FIL",.F.,.F.,{CFILTROSB1,CFILTRODB5})

MATA179.PRW - A179PRCONS() -> NRETCONSUM := EXECBLOCK("MT179CONS",.F.,.F.,{CPRODUTO,NSLDCONSUMO,CFILABA,CDBJ_METODO,DDBJ_DTDE,DDBJ_DTATE,LDBJ_DEVVEN,NDBJ_INCREM,NDBJ_DIASCO,CFORNECE,CLOJA})

MATA179.PRW - A179SLDFIL() -> ADESCARM := EXECBLOCK("A179ARMZ",.F.,.F.,{CFILIALSB2,CPRODUTO})

MATA179.PRW - MT179JOB() -> NSALDPE := EXECBLOCK("MT179SAB", .F., .F., {SB1->B1_COD, NSLDDISPON})

MATA180.PRX - MA180GRVPE() -> EXECBLOCK("MT180GRV",.F.,.F.,{NOPC})

MATA180.PRX - MA180VALID() -> EXECBLOCK("MT180INC",.F.,.F.)

MATA180.PRX - MA180VALID() -> LRET := EXECBLOCK("MA180TOK",.F.,.F.)

MATA180.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("MT180ROT",.F.,.F.)

MATA180.PRX - MENUDEF() -> EXECBLOCK("MTA180MNU",.F.,.F.)

MATA180.PRX - MODELDEF() -> AMEMOSUSER := EXECBLOCK( "MT180MEM", .F., .F. )

MATA180EVPE.PRW - AFTER() -> EXECBLOCK("MT180GRV",.F.,.F.,{::NOPC})

MATA180EVPE.PRW - FIELDPOSVLD() -> LRET := EXECBLOCK("MA180TOK",.F.,.F.)

MATA185.PRX - A106ATUCQ() -> EXECBLOCK("MT106CQ",.F.,.F.,ADADOSGER)

MATA185.PRX - A185ATU2SD3() -> EXECBLOCK("M185CAMP",.F.,.F.,{CCAMPO,Z,NX,I})

MATA185.PRX - A185ATUSCQ() -> EXECBLOCK("M185GRV",.F.,.F.,{NX==LEN(ADADOSCQ)})

MATA185.PRX - A185ATUSD3() -> EXECBLOCK('MT185SD3',.F.,.F.)

MATA185.PRX - A185AUTOMA() -> LGERAR := EXECBLOCK("M185MOD2",.F.,.F.,ACOLS)

MATA185.PRX - A185AUTOMA() -> URET := EXECBLOCK("MT185BX",.F.,.F.,{ARETCQ[2],SCP->CP_PRODUTO,SCP->CP_NUM,SCP->CP_ITEM})

MATA185.PRX - A185BAIXAR() -> LRETPE := EXECBLOCK('M185BAIX', .F., .F., {MV_PAR01})

MATA185.PRX - A185ENCER() -> EXECBLOCK("MA185ENC",.F.,.F.)

MATA185.PRX - A185EXCLUI() -> EXECBLOCK("M185EXCL",.F.,.F.)

MATA185.PRX - A185EXCLUI() -> LRET :=EXECBLOCK("M185VLDEXC",.F.,.F.)

MATA185.PRX - A185GERA() -> EXECBLOCK("M185GRV",.F.,.F.,{.T.})

MATA185.PRX - A185GERAAUT() -> ARETPE:= EXECBLOCK("MT185DAD",.F.,.F.,ADADOS)

MATA185.PRX - A185GERAAUT() -> EXECBLOCK("M185FGR",.F.,.F.,{ LRET, ADADOS } )

MATA185.PRX - A185GERAAUT() -> EXECBLOCK("MT185GERA",.F.,.F.,ADADOS[NX])

MATA185.PRX - A185LEGEND() -> AMT185LEG := EXECBLOCK("MT185LEG",.F.,.F., {ALEGENDA} )

MATA185.PRX - A185MANUAL() -> IF !EXECBLOCK("M185MOD1",.F.,.F.,{SCP->CP_FILIAL,SCP->CP_PRODUTO,SCP->CP_LOCAL,NQATU,NQTRES,NQTSAL,SCP->CP_NUM,ARETCQ[1],ARETCQ[2],NQTDPROC,NQTREQU})

MATA185.PRX - A185MANUAL() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MT185BUT", .F., .F. ) ) == "A"

MATA185.PRX - A185MOVSD3() -> EXECBLOCK('M185EST',.F.,.F.)

MATA185.PRX - A185MOVSD3() -> LRET :=EXECBLOCK('MT185EST',.F.,.F.,{ADADOS[NX],AITSCQ})

MATA185.PRX - A185OK() -> LRET := EXECBLOCK("MT185OK",.F.,.F.)

MATA185.PRX - MATA185() -> CFILTRASCP := EXECBLOCK("MT185FIL",.F.,.F.)

MATA185.PRX - MATA185() -> CFILTRO := EXECBLOCK("M185FILB",.F.,.F.)

MATA185.PRX - MENUDEF() -> EXECBLOCK ("MTA185MNU",.F.,.F.)

MATA190.PRX - RECALC() -> ACUSTONEW := EXECBLOCK("MTA190D1",.F.,.F.,{ACUSTOENT, ACUSTOPE } )

MATA190.PRX - RECALC() -> NPCOCOMPRA := EXECBLOCK("MT103UPC",.F.,.F.)

MATA200.PRW - A200CODIGO() -> LRETPE := EXECBLOCK("MT200PAI",.F.,.F.,CPRODUTO)

MATA200.PRW - A200CODSIM() -> EXECBLOCK('MT200CSI', .F., .F., {CPRODUTO, CCODSIM})

MATA200.PRW - A200COK() -> LRETPE:= EXECBLOCK("MT200DIF",.F.,.F.,{CCODORIG,CCODDEST})

MATA200.PRW - A200CRIA() -> CREVPI := EXECBLOCK ("A200RVPI",.F.,.F.,{CCODSIM, CREVISAO, SG1->G1_COD, CREVPI})

MATA200.PRW - A200CRIA() -> LEXPEST := EXECBLOCK("MT200EXP",.F.,.F., {CCOMP})

MATA200.PRW - A200CRIA() -> LRETPE := EXECBLOCK("MT200OPC",.F.,.F.,SG1->G1_COMP)

MATA200.PRW - A200CRIA() -> NINDSG1 := EXECBLOCK("MA200ORD",.F.,.F.)

MATA200.PRW - A200CRIA() -> URET := EXECBLOCK("M200BMP", .F., .F., {CPROMPT, CFOLDERA, CFOLDERB})

MATA200.PRW - A200DOSUB() -> EXECBLOCK("M200SUB",.F.,.F.,ARECNOSSG1)

MATA200.PRW - A200EXE() -> EXECBLOCK("MA200CAB",.F.,.F.,{CPRODUTO,NOPCX,OPANEL1,8,22,270})

MATA200.PRW - A200EXE() -> LALTOPC := EXECBLOCK("MT200ALT",.F.,.F.,)

MATA200.PRW - A200PRCOM() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA200BUT", .F., .F. ) ) == "A"

MATA200.PRW - A200PROMPT() -> CM200TEXT := EXECBLOCK("M200TEXT", .F., .F., {CRET,;

MATA200.PRW - A200REVIS() -> EXECBLOCK("M200REVI",.F.,.F.)

MATA200.PRW - A200REVISG5() -> EXECBLOCK("M200REVI",.F.,.F.)

MATA200.PRW - A200TREECM() -> CM200CPTX := EXECBLOCK("M200CPTX",.F.,.F.,{CTEXTO,AESTRU[NZ][1],AESTRU[NZ][2],SB1->B1_DESC,AESTRU[NZ][3],AESTRU[NZ][4],AESTRU[NZ][8],AESTRU[NZ][9]})

MATA200.PRW - A200TUDOOK() -> LRET := IF(VALTYPE(LRETPE:=EXECBLOCK('MTA200',.F.,.F.,COPC))=='L',LRETPE,.T.)

MATA200.PRW - BTN200OK() -> LRET := IF(VALTYPE(LRET:=EXECBLOCK('A200BOK',.F.,.F.,{AUNDO, C200COD, NOPCX}))=='L',LRET,.T.)

MATA200.PRW - M200EXPL() -> NRET := (EXECBLOCK("M200NIV",.F.,.F.))

MATA200.PRW - MA200ATREE() -> URET := EXECBLOCK("M200BMP", .F., .F., {CPROMPT, CFOLDERA, CFOLDERB})

MATA200.PRW - MA200DEL() -> IF  EXECBLOCK('MTA200',.F.,.F.) = .F.

MATA200.PRW - MA200EDITA() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA200BUT", .F., .F. ) ) == "A"

MATA200.PRW - MA200EDITA() -> LRET := EXECBLOCK( "MT200ALCO", .F., .F. )

MATA200.PRW - MA200EDITA() -> URET := EXECBLOCK("M200BMP", .F., .F., {CPROMPT, CFOLDERA, CFOLDERB})

MATA200.PRW - MA200FECHA() -> EXECBLOCK('A200GRVE',.F.,.F.,{NOPCX,LMAP,ARECDEL,AUNDO})

MATA200.PRW - MA200FECHA() -> LINIMAP := EXECBLOCK("MT200MAP",.F.,.F.,{CPRODUTO,CUM,NQTDBASE,CREVISAO,NOPCX,NCOUNT})

MATA200.PRW - MA200FECHA() -> LRETPE := EXECBLOCK("MT200DIV",.F.,.F.,{CPRODUTO,@OTREE})

MATA200.PRW - MA200FECHA() -> LRETPE := EXECBLOCK("MT200GRE",.F.,.F.)

MATA200.PRW - MA200MONTA() -> CREVPI := EXECBLOCK ("A200RVPI",.F.,.F.,{CPRODUTO, CREVISAO, SG1->G1_COD, CREVPI})

MATA200.PRW - MA200MONTA() -> LEXPEST := EXECBLOCK("MT200EXP",.F.,.F., {CCOMP})

MATA200.PRW - MA200MONTA() -> LRETPE := EXECBLOCK("MT200OPC",.F.,.F.,SG1->G1_COMP)

MATA200.PRW - MA200MONTA() -> NINDSG1 := EXECBLOCK("MA200ORD",.F.,.F.)

MATA200.PRW - MA200MONTA() -> URET := EXECBLOCK("M200BMP", .F., .F., {CPROMPT, CFOLDERA, CFOLDERB})

MATA200.PRW - MA200UNDO() -> EXECBLOCK("A200UNDO",.F.,.F.,AUNDO)

MATA200.PRW - MATA200() -> EXECBLOCK("MA200FNI",.F.,.F.)

MATA200.PRW - MATA200() -> IF GETMV('MV_NIVALT') == 'S' .AND. IF(EXISTBLOCK("MA200CNI"),EXECBLOCK("MA200CNI",.F.,.F.),.T.)

MATA200.PRW - MENUDEF() -> EXECBLOCK ("MTA200MNU",.F.,.F.)

MATA200.PRW - NEXTNIVEL() -> LEXPEST2 := EXECBLOCK("MT200EXP",.F.,.F., {CPRODUTO})

MATA200.PRW - NEXTNIVEL() -> URET := EXECBLOCK("M200BMP", .F., .F., {CPROMPT, CFOLDERA, CFOLDERB})

MATA201.PRX - A201ATUAX() -> EXECBLOCK("MT201ATU",,.F.,.F.)

MATA201.PRX - A201BOT() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MA201BUT", .F., .F. ) ) == "A"

MATA201.PRX - MENUDEF() -> EXECBLOCK ("MTA201MNU",.F.,.F.)

MATA202.PRW - A202APROVA() -> EXECBLOCK ("MTA202APROV",.F.,.F.,{CPRODUTO})

MATA202.PRW - A202CODIGO() -> LRET:=EXECBLOCK("MT202PAI",.F.,.F.,CPRODUTO)

MATA202.PRW - A202CODSIM() -> EXECBLOCK('MT202CSI', .F., .F., {CPRODUTO, CCODSIM})

MATA202.PRW - A202GRAVG1() -> EXECBLOCK ("MTA202CRIA",.F.,.F.,{CPRODUTO,CNOMEPAI})

MATA202.PRW - A202LEGE() -> ALEGUSR := EXECBLOCK("MT202LEG",.F.,.F., { 2 })

MATA202.PRW - A202TUDOOK() -> LRET := IF(VALTYPE(LRETPE:=EXECBLOCK('MTA202',.F.,.F.,COPC))=='L',LRETPE,.T.)

MATA202.PRW - BTN202OK() -> LRET := IF(VALTYPE(LRET:=EXECBLOCK('A202BOK',.F.,.F.,{AUNDO, C202COD}))=='L',LRET,.T.)

MATA202.PRW - MA202FECHA() -> EXECBLOCK('A202GRVE',.F.,.F.)

MATA202.PRW - MA202UNDO() -> EXECBLOCK("A202UNDO",.F.,.F.,AUNDO)

MATA202.PRW - MENUDEF() -> EXECBLOCK ("MTA202MNU",.F.,.F.)

MATA203.PRW - A203TUDOK() -> LMT203TOK := EXECBLOCK("MT203TOK",.F.,.F.,{NOPCX,ADADOS})

MATA204.PRW - A204GRAVA() -> EXECBLOCK("MT204GRV",.F.,.F.,{AHEADER,ACOLS,L204DELETA,L204DELETA,C204NUM})

MATA204.PRW - A204GRAVA() -> LMT204VLD := EXECBLOCK("MT204VLD",.F.,.F.,{AHEADER,ACOLS,L204DELETA,C204NUM})

MATA204.PRW - MENUDEF() -> EXECBLOCK("MTA204MNU",.F.,.F.)

MATA205.PRW - A205GRV() -> EXECBLOCK("MT205GRV",.F.,.F.,{AHEADER,ACOLS,L086DELETA,C205NUM})

MATA205.PRW - A205GRV() -> LMT205VLD := EXECBLOCK("MT205VLD",.F.,.F.,{AHEADER,ACOLS,L205DELETA,C205NUM})

MATA205.PRW - MENUDEF() -> EXECBLOCK("MTA205MNU",.F.,.F.)

MATA206.PRW - A206APROV() -> LCONTINUA := IF (VALTYPE(LCONTINUA:= EXECBLOCK("MT206AUS",.F.,.F.)) == "L",LCONTINUA,.T.)

MATA206.PRW - A206LIBERA() -> AMT206DLG:=EXECBLOCK("MT206DLG",.F.,.F.,{ASIZE})

MATA206.PRW - A206LIBERA() -> EXECBLOCK("MT206LIB",.F.,.F.)

MATA206.PRW - A206LIBERA() -> EXECBLOCK("MT206SGN",.F.,.F.,{@ODLG})

MATA206.PRW - A206LIBERA() -> LCONTINUA := EXECBLOCK("MT206LOK",.F.,.F.)

MATA206.PRW - MATA206() -> IF VALTYPE( CFILTROUS := EXECBLOCK( "MT206FIL", .F., .F. ) ) == "C"

MATA206.PRW - MENUDEF() -> EXECBLOCK("MTA206MNU",.F.,.F.)

MATA215.PRX - A215ATUSC1() -> IF EXECBLOCK("M215SC",.F.,.F.)

MATA215.PRX - A215ATUSC6() -> CQUERY := EXECBLOCK("MA215SD2",.F.,.F.,CQUERY)

MATA215.PRX - MA215PROC() -> CQUERY := EXECBLOCK("MA215SD1",.F.,.F.,CQUERY)

MATA215.PRX - MA215PROC() -> EXECBLOCK("MT215EXC",.F.,.F.)

MATA216.PRX - A216CSTPARTES() -> AREGRACP:=EXECBLOCK("MA330CP",.F.,.F.)

MATA216.PRX - MA216PROC() -> AFILTRO := EXECBLOCK("MT216FIL",.F.,.F.)

MATA220.PRX - A220ATUSB2() -> EXECBLOCK("MT220GRV", .F., .F., {NOPC, NOPCA})

MATA220.PRX - A220ATUSD5() -> ACTOLOTE := EXECBLOCK("MT220GRL",.F.,.F.,{ALOTES, AHEADBK})

MATA220.PRX - A220DELETA() -> EXECBLOCK('MT220GRV', .F., .F.,{NOPC, NOPCA})

MATA220.PRX - A220GETLOT() -> ACOMPALT := EXECBLOCK("MT220LOT",.F.,.F.)

MATA220.PRX - A220TUDOOK() -> LRETPE := EXECBLOCK("MT220TOK", .F., .F.,{NTIPO})

MATA220.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("MT220FIL",.F.,.F.)

MATA220.PRX - MENUDEF() -> EXECBLOCK ("MTA220MNU",.F.,.F.)

MATA221.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("MT221FIL",.F.,.F.)

MATA222.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("MT222FIL",.F.,.F.)

MATA222.PRW - MENUDEF() -> EXECBLOCK ("MTA222MNU",.F.,.F.)

MATA223.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("MT223FIL",.F.,.F.)

MATA223.PRW - MENUDEF() -> EXECBLOCK ("MTA223MNU",.F.,.F.)

MATA225.PRX - A225ALTERA() -> EXECBLOCK("MT225GRV",.F.,.F.,{NOPC,NOPCA})

MATA225.PRX - A225INCLUI() -> EXECBLOCK("MT225GRV",.F.,.F.,{NOPC,NOPCA})

MATA225.PRX - A225STATUS() -> EXECBLOCK("MT225STAT",.F.,.F.,{B2_COD,B2_LOCAL,B2_STATUS,NOPCA})

MATA225.PRX - A225TIPO() -> LARMTIPO:= EXECBLOCK ("MT225TIP",.F.,.F.)

MATA225.PRX - MATA225() -> CFILTRO := EXECBLOCK("M225FILB",.F.,.F.)

MATA225.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("MT225FIL",.F.,.F.)

MATA225.PRX - MENUDEF() -> EXECBLOCK ("MTA225MNU",.F.,.F.)

MATA228.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("MT228FIL",.F.,.F.)

MATA228.PRX - MENUDEF() -> EXECBLOCK ("MTA228MNU",.F.,.F.)

MATA235.PRX - MA235CP() -> EXECBLOCK("MT235AIR",.F.,.F.,{IF(EMPTY(CQUERY),"SC3",(CALIAS)),2})

MATA235.PRX - MA235CP() -> LRET := EXECBLOCK("MT235G2",.F.,.F.,{IIF(EMPTY(CQUERY),"SC3",(CALIAS)),2})

MATA235.PRX - MA235ELRES() -> EXECBLOCK("MT235G1",.F.,.F.)

MATA235.PRX - MA235PC() -> EXECBLOCK("MT235AIR",.F.,.F.,{IF(EMPTY(CQUERY),"SC7",(CALIAS)),1})

MATA235.PRX - MA235PC() -> LRET := EXECBLOCK("MT235G2",.F.,.F.,{IIF(EMPTY(CQUERY),"SC7",(CALIAS)),1})

MATA235.PRX - MA235SC() -> EXECBLOCK("MT235AIR",.F.,.F.,{IF(EMPTY(CQUERY),"SC1",(CALIAS)),3})

MATA235.PRX - MA235SC() -> LRET := EXECBLOCK("MT235G2",.F.,.F.,{IIF(EMPTY(CQUERY),"SC1",(CALIAS)),3})

MATA240.PRX - A240ALERT() -> LVALIDA:=EXECBLOCK("SD3VESR",.F.,.F.)

MATA240.PRX - A240ATU() -> EXECBLOCK("SD3240I",.F.,.F.,{NLINHA})

MATA240.PRX - A240COMMIT() -> ACPOUSER := EXECBLOCK('CPOSDH1',.F.,.F.,{"MATA240"})

MATA240.PRX - A240DESATU() -> EXECBLOCK("SD3240E",.F.,.F.)

MATA240.PRX - A240ENDER() -> ARETPE := EXECBLOCK('A240WMSO', NIL, NIL, {CPRODUTO, NQUANT, CNUMSEQ})

MATA240.PRX - A240ESTORN() -> AUSRBUT := EXECBLOCK("M240BUT",.F.,.F.,{NOPC})

MATA240.PRX - A240ESTROK() -> LRET := EXECBLOCK('MT240EST', .F., .F.)

MATA240.PRX - A240INCLUI() -> AUSRBUT := EXECBLOCK("M240BUT",.F.,.F.,{NOPC})

MATA240.PRX - A240INCLUI() -> EXECBLOCK('MT240CAN', .F., .F.)

MATA240.PRX - A240INCLUI() -> EXECBLOCK('MT240INC', .F., .F.)

MATA240.PRX - A240LOCALI() -> LNUMSERDEV := EXECBLOCK("SD3NSDV",.F.,.F.)

MATA240.PRX - A240NUMSER() -> LNUMSERDEV := EXECBLOCK("SD3NSDV",.F.,.F.)

MATA240.PRX - A240TUDOOK() -> LRET := EXECBLOCK('MT240TOK', .F., .F.)

MATA240.PRX - A240VISUAL() -> AUSRBUT := EXECBLOCK("M240BUT",.F.,.F.,{NOPC})

MATA240.PRX - A240VLDEOP() -> LMT240DVL := EXECBLOCK("MT240DVL",.F.,.F.)

MATA240.PRX - MATA240() -> CFILTRO := EXECBLOCK("M240FILB",.F.,.F.)

MATA240.PRX - MATA240() -> EXECBLOCK("M240BROW",.F.,.F.)

MATA240.PRX - MENUDEF() -> EXECBLOCK ("MTA240MNU",.F.,.F.)

MATA241.PRX - A241DATA() -> LRET:=EXECBLOCK("MTA241I",.F.,.F.)

MATA241.PRX - A241ESTORN() -> ABUTTONS := EXECBLOCK( "A241BUT", .F., .F., { NOPC, ABUTTONS } )

MATA241.PRX - A241ESTORN() -> EXECBLOCK("MT241CAB",.F.,.F.,{@ODLG,NOPC})

MATA241.PRX - A241ESTORN() -> EXECBLOCK("MT241CAB",.F.,.F.,{@OPANEL1,NOPC})

MATA241.PRX - A241ESTORN() -> EXECBLOCK("MT241EST",.F.,.F.)

MATA241.PRX - A241ESTORN() -> EXECBLOCK("MTA241CPO",.F.,.F.,{NOPC})

MATA241.PRX - A241GRAVA() -> ACPOUSER := EXECBLOCK('CPOSDH1',.F.,.F.,{"MATA241",NX})

MATA241.PRX - A241GRAVA() -> EXECBLOCK("MT241GRV",.F.,.F.,{CDOCUMENTO,ACPOUSU})

MATA241.PRX - A241INCLUI() -> AADDBUTTONS:=EXECBLOCK("M241BUT",.F.,.F.)

MATA241.PRX - A241INCLUI() -> ACPX:=EXECBLOCK("MT241CAB",.F.,.F.,{@ODLG,NOPC})

MATA241.PRX - A241INCLUI() -> ACPX:=EXECBLOCK("MT241CAB",.F.,.F.,{@OPANEL1,NOPC})

MATA241.PRX - A241INCLUI() -> ATELABUTTONS := EXECBLOCK( "A241BUT", .F., .F., { NOPC, ATELABUTTONS } )

MATA241.PRX - A241INCLUI() -> EXECBLOCK("MT241SD3",.F.,.F.)

MATA241.PRX - A241INCLUI() -> EXECBLOCK("MTA241CPO",.F.,.F.,{NOPC})

MATA241.PRX - A241INCLUI() -> EXECBLOCK('MT241CAN', .F., .F.)

MATA241.PRX - A241INCLUI() -> LDOCTO:=EXECBLOCK("MTA241DOC",.F.,.F.)

MATA241.PRX - A241INCLUI() -> LVLDPCO := EXECBLOCK("MTA241PCO",.F.,.F.,{NOPC})

MATA241.PRX - A241LINOK() -> LRET := EXECBLOCK("MT241LOK",.F.,.F.,{N})

MATA241.PRX - A241TUDOOK() -> LRETORNO := EXECBLOCK("MT241TOK",.F.,.F.)

MATA241.PRX - A241VISUAL() -> ABUTTONS := EXECBLOCK( "A241BUT", .F., .F., { NOPC, ABUTTONS } )

MATA241.PRX - A241VISUAL() -> EXECBLOCK("MT241CAB",.F.,.F.,{@ODLG,NOPC})

MATA241.PRX - A241VISUAL() -> EXECBLOCK("MT241CAB",.F.,.F.,{@OPANEL1,NOPC})

MATA241.PRX - A241VISUAL() -> EXECBLOCK("MTA241CPO",.F.,.F.,{NOPC})

MATA241.PRX - M241SELEES() -> ACOLSPE := EXECBLOCK('MT241SE', .F., .F., ACOLS)

MATA241.PRX - MATA241() -> EXECBLOCK("M240BROW",.F.,.F.)

MATA241.PRX - MENUDEF() -> EXECBLOCK ("MTA241MNU",.F.,.F.)

MATA241.PRX - MTA241ESTOK() -> LRET := EXECBLOCK('MT241EXT', .F., .F.)

MATA242.PRX - A242AUTO() -> AAUTOCAB[NX][3]+= " .AND. EXECBLOCK('MTA242L',.F.,.F.,{CPRODUTO,NQTDORIG,OGET,CLOCORIG,CLOCALIZA})"

MATA242.PRX - A242AUTO() -> AAUTOCAB[NX][3]:= "(A242QUANT() .AND. NQTDORIG > 0 .AND. IIF(LMTA242Q,EXECBLOCK('MTA242Q',.F.,.F.,{CPRODUTO,NQTDORIG,OGET}),.T.))"

MATA242.PRX - A242AUTO() -> AAUTOCAB[NX][3]:= "(NAOVAZIO() .AND. EXISTCPO('SB1') .AND. A242INICPO() .AND. IF(LMTA242C,EXECBLOCK('MTA242C',.F.,.F.,{CPRODUTO,NQTDORIG,OGET}),.T.))"

MATA242.PRX - A242AUTO() -> AAUTOCAB[NX][3]:= "(POSITIVO() .AND. A242PRIUM() .AND. IIF(LMTA242S,EXECBLOCK('MTA242S',.F.,.F.,{CPRODUTO,NQTDORIGSE,OGET}),.T.))"

MATA242.PRX - A242ESTORN() -> ABUTTONS := EXECBLOCK( "MA242BUT", .F., .F., { NOPC, ABUTTONS } )

MATA242.PRX - A242ESTORN() -> ACPOS := EXECBLOCK("MT242CPO",.F.,.F. )

MATA242.PRX - A242ESTORN() -> EXECBLOCK("MT242SCR",.F.,.F.,{@ODLG, APOSOBJ, NOPC, NREG})

MATA242.PRX - A242ESTORN() -> EXECBLOCK("MT242SCR",.F.,.F.,{@ODLG, OSIZE:APOSOBJ, NOPC, NREG})

MATA242.PRX - A242ESTRU() -> AMT242CLS := EXECBLOCK( "MT242CLS", .F., .F.,{AESTRUTURA})

MATA242.PRX - A242INCLUI() -> @ AGET[01,1],AGET[01,2] MSGET OGETPROD VAR CPRODUTOF3 "SB1" HASBUTTON SIZE AGET[01,3],AGET[01,4] PICTURE CPICPROD VALID  (NAOVAZIO() .AND. EXISTCPO("SB1") .AND. A242INICPO() .AND. IF(LMTA242C,EXECBLOCK("MTA242C",.F.,.F.,{CPRODUTO,NQTDORIG,OGET}),.T.)  ) OF ODLG PIXEL

MATA242.PRX - A242INCLUI() -> @ AGET[01,1],AGET[01,2] MSGET OGETPROD VAR CPRODUTOF3 "SB1" HASBUTTONSIZE AGET[01,3],AGET[01,4] PICTURE CPICPROD VALID  (NAOVAZIO() .AND. EXISTCPO("SB1") .AND. IF(LMTA242C,EXECBLOCK("MTA242C",.F.,.F.,{CPRODUTO,NQTDORIG,OGET}),.T.)  ) OF ODLG PIXEL

MATA242.PRX - A242INCLUI() -> @ AGET[03,1],AGET[03,2] MSGET CLOCALIZA  F3 "SBE" HASBUTTON SIZE AGET[03,3],AGET[03,4] PICTURE CPICLOCALZ VALID  IF(LOCALIZA(CPRODUTO),EMPTY(&(READVAR())) .OR. EXISTCPO("SBE",CLOCORIG+&(READVAR())) .AND. IF(LMTA242L,EXECBLOCK("MTA242L",.F.,.F.,{CPRODUTO,NQTDORIG,OGET,CLOCORIG,CLOCALIZA}),.T.) ,VAZIO()) WHEN LOCALIZA(CPRODUTO) OF ODLG PIXEL

MATA242.PRX - A242INCLUI() -> @ AGET[03,1],AGET[03,2] MSGET CLOCALIZA  F3 "SBE" HASBUTTONSIZE AGET[03,3],AGET[03,4] PICTURE CPICLOCALZ VALID  IF(LOCALIZA(CPRODUTO),EMPTY(&(READVAR())) .OR. EXISTCPO("SBE",CLOCORIG+&(READVAR())) .AND. IF(LMTA242L,EXECBLOCK("MTA242L",.F.,.F.,{CPRODUTO,NQTDORIG,OGET,CLOCORIG,CLOCALIZA}),.T.) ,VAZIO()) WHEN LOCALIZA(CPRODUTO) OF ODLG PIXEL

MATA242.PRX - A242INCLUI() -> @ AGET[09,1],AGET[09,2] MSGET NQTDORIG HASBUTTON SIZE AGET[09,3],AGET[09,4] PICTURE CPICQTORI VALID  (A242QUANT() .AND. NQTDORIG > 0 .AND. IIF(LMTA242Q,EXECBLOCK("MTA242Q",.F.,.F.,{CPRODUTO,NQTDORIG,OGET}),.T.)) OF ODLG PIXEL

MATA242.PRX - A242INCLUI() -> @ AGET[09,1],AGET[09,2] MSGET NQTDORIGHASBUTTONSIZE AGET[09,3],AGET[09,4] PICTURE CPICQTORI VALID  (A242QUANT() .AND. NQTDORIG > 0 .AND. IIF(LMTA242Q,EXECBLOCK("MTA242Q",.F.,.F.,{CPRODUTO,NQTDORIG,OGET}),.T.)) OF ODLG PIXEL

MATA242.PRX - A242INCLUI() -> @ AGET[10,1],AGET[10,2] MSGET NQTDORIGSE  HASBUTTON SIZE AGET[10,3],AGET[10,4] PICTURE CPICQTDES VALID  (POSITIVO() .AND. A242PRIUM() .AND. IIF(LMTA242S,EXECBLOCK("MTA242S",.F.,.F.,{CPRODUTO,NQTDORIGSE,OGET}),.T.)) OF ODLG PIXEL

MATA242.PRX - A242INCLUI() -> @ AGET[10,1],AGET[10,2] MSGET NQTDORIGSEHASBUTTONSIZE AGET[10,3],AGET[10,4] PICTURE CPICQTDES VALID  (POSITIVO() .AND. A242PRIUM() .AND. IIF(LMTA242S,EXECBLOCK("MTA242S",.F.,.F.,{CPRODUTO,NQTDORIGSE,OGET}),.T.)) OF ODLG PIXEL

MATA242.PRX - A242INCLUI() -> ABUTTONS := EXECBLOCK( "MA242BUT", .F., .F., { NOPC, ABUTTONS } )

MATA242.PRX - A242INCLUI() -> ACPOS := EXECBLOCK("MT242CPO",.F.,.F. )

MATA242.PRX - A242INCLUI() -> EXECBLOCK("MT242SCR",.F.,.F.,{@ODLG, APOSOBJ, NOPC, NREG})

MATA242.PRX - A242INCLUI() -> EXECBLOCK("MT242SCR",.F.,.F.,{@ODLG, OSIZE:APOSOBJ, NOPC, NREG})

MATA242.PRX - A242INCLUI() -> LRET := IF(VALTYPE(LRETPE := EXECBLOCK('MTA242V', .F., .F.))=='L', LRETPE, LRET)

MATA242.PRX - A242LINOK() -> LRET := EXECBLOCK("MT242IG",.F.,.F.)

MATA242.PRX - A242LINOK() -> LRET := EXECBLOCK("MT242LOK",.F.,.F.)

MATA242.PRX - A242LINOK() -> LRET := IF(VALTYPE(LRETPE := EXECBLOCK("MT242OK2",.F.,.F.,{LRET})) == "L",LRETPE,LRET)

MATA242.PRX - A242PRESTO() -> EXECBLOCK("MTA242E",.F.,.F.)

MATA242.PRX - A242PRESTO() -> EXECBLOCK("MTA242ES",.F.,.F.)

MATA242.PRX - A242PROCES() -> ARETPE := EXECBLOCK('A242WMSO', NIL, NIL)

MATA242.PRX - A242PROCES() -> EXECBLOCK("M242D3IN", .F., .F.)

MATA242.PRX - A242PROCES() -> EXECBLOCK("MA242D3", .F., .F., {NX})

MATA242.PRX - A242PROCES() -> EXECBLOCK("MTA242I",.F.,.F.,{NX})

MATA242.PRX - A242PROCES() -> EXECBLOCK("MTA242IN",.F.,.F.)

MATA242.PRX - A242TUDOOK() -> LRET := EXECBLOCK("MT242TOK",.F.,.F.)

MATA242.PRX - A242VALEST() -> LRET:=EXECBLOCK("MT242PRE",.F.,.F.)

MATA242.PRX - A242VISUAL() -> ABUTTONS := EXECBLOCK( "MA242BUT", .F., .F., { NOPC, ABUTTONS } )

MATA242.PRX - A242VISUAL() -> ACPOS := EXECBLOCK("MT242CPO",.F.,.F. )

MATA242.PRX - A242VISUAL() -> EXECBLOCK("MT242SCR",.F.,.F.,{@ODLG, APOSOBJ, NOPC, NREG})

MATA242.PRX - MENUDEF() -> EXECBLOCK("MTA242MNU",.F.,.F.)

MATA250.PRX - A250ATU() -> AA250ARRD4 := EXECBLOCK('A250ARD4', .F., .F., AARRAYSD4)

MATA250.PRX - A250ATU() -> CA250ENDE := EXECBLOCK('A250ENDE', .F., .F., SD4->(RECNO()))

MATA250.PRX - A250ATU() -> EXECBLOCK("SD3250I",.F.,.F.)

MATA250.PRX - A250ATU() -> LCONSREGD4:=EXECBLOCK("A250FSD4",.F.,.F.,{NINDICE,.T.})

MATA250.PRX - A250ATU() -> LEXEATUEMP:=EXECBLOCK("A250ATSD4",.F.,.F.)

MATA250.PRX - A250ATU() -> LMT680QUA := EXECBLOCK("MT680QUA",.F.,.F.)

MATA250.PRX - A250ATU() -> NINDICEPE := EXECBLOCK('A250INDI', .F., .F., {SD3->D3_COD, SD3->D3_QUANT, SD3->D3_PERDA, SC2->C2_QUANT, NINDICE, LPRODTOT})

MATA250.PRX - A250ATU() -> NLIBFAT := EXECBLOCK("A250LIB",.F.,.F.,{NLIBFAT})

MATA250.PRX - A250CALCD4() -> NARRED := EXECBLOCK("MA250DEC",.F.,.F.)

MATA250.PRX - A250CALCD4() -> URET := EXECBLOCK("MA250VAL",.F.,.F., { (NQTDE*NINDICE) } )

MATA250.PRX - A250DESATU() -> EXECBLOCK("SD3250E",.F.,.F.)

MATA250.PRX - A250DEVAUT() -> IF ! (VALTYPE(CRETDEVAUT := EXECBLOCK("A250DEVAUT", .F., .F., {CDEVAUT})) == "C" .AND. CRETDEVAUT $ "AD")

MATA250.PRX - A250DIGLOT() -> ARETEXECBL:=EXECBLOCK("A250PRLT",.F.,.F.,{ACOLS[NX,6],ACOLS[NX,7],LEXIBELT})

MATA250.PRX - A250ENCER() -> LA250SPRC := EXECBLOCK("A250SPRC",.F.,.F.,{D3_OP,D3_EMISSAO})

MATA250.PRX - A250ENCER() -> LENCOP:=EXECBLOCK("M680ENCOP",.F.,.F.)

MATA250.PRX - A250END() -> EXECBLOCK("SD3250R",.F.,.F.)

MATA250.PRX - A250END() -> LRETPE := EXECBLOCK("A250ENOP",.F.,.F.)

MATA250.PRX - A250ENDOK() -> LRET:=EXECBLOCK('A250ENOK',.F.,.F.)

MATA250.PRX - A250ESTOQ() -> CENDCHECK:=EXECBLOCK("A250CHEN",.F.,.F.,{AARRAYSD4,I,W})

MATA250.PRX - A250ESTOQ() -> LCONSREGD4:=EXECBLOCK("A250FSD4",.F.,.F.,{NINDICE,.F.})

MATA250.PRX - A250ESTOQ() -> NQTDBXPE := EXECBLOCK("A250QTBX",.F.,.F.,{CPRODUTO,COP,NQUANTBX,SC2->C2_QUANT,CPARCTOT})

MATA250.PRX - A250ESTORN() -> ABUTTONS:=EXECBLOCK("M250BUT",.F.,.F.,{NOPC})

MATA250.PRX - A250ESTORN() -> EXECBLOCK("MT250GREST",.F.,.F.)

MATA250.PRX - A250ESTORN() -> LESTORNA := EXECBLOCK('MT250EST',.F.,.F.)

MATA250.PRX - A250ESTORN() -> LOCAL ABUTTONS := NIL

MATA250.PRX - A250INCLUI() -> ABUTTONS:=EXECBLOCK("M250BUT",.F.,.F.,{NOPC})

MATA250.PRX - A250INCLUI() -> EXECBLOCK("A250ETRAN",.F.,.F.)

MATA250.PRX - A250INCLUI() -> LOCAL ABUTTONS := NIL

MATA250.PRX - A250NUTRI() -> L250NUT := EXECBLOCK("MT250NUT",.F.,.F.,{SD3->D3_COD,SD3->D3_OP,SD3->D3_NUMSEQ})

MATA250.PRX - A250NUTRI() -> LCONTINUA := EXECBLOCK("M250CNUT", .F., .F.)

MATA250.PRX - A250REQAUT() -> IF ! (VALTYPE(CRETREQAUT := EXECBLOCK("A250REQAUT", .F., .F., {CREQAUT})) == "C" .AND. CRETREQAUT $ "AD")

MATA250.PRX - A250TUDOOK() -> ANEWSAL := EXECBLOCK("MT250SAL",.F.,.F.,{ASALDO})

MATA250.PRX - A250TUDOOK() -> EXECBLOCK("A250ITOK",.F.,.F.,LATUEMP)

MATA250.PRX - A250TUDOOK() -> LQTMAIOR := EXECBLOCK("MT250QMG", .F., .F.)

MATA250.PRX - A250TUDOOK() -> LRET := EXECBLOCK('MT250TOK', .F., .F.,LRET)

MATA250.PRX - A250VISUAL() -> UX := EXECBLOCK("A250FLDS",.F.,.F.)

MATA250.PRX - EXPLODESD4() -> LCONSREGD4:=EXECBLOCK("A250FSD4",.F.,.F.,{NINDICE,.T.})

MATA250.PRX - EXPLODESD4() -> NNAOPRODUZPI:=EXECBLOCK("A250PRPI",.F.,.F.,{AARRAYSD4[I,W,2]})

MATA250.PRX - FENVCQPROD() -> LRET := EXECBLOCK("MT680QUA",.F.,.F.)

MATA250.PRX - LOTESSD4() -> LCONSREGD4:=EXECBLOCK("A250FSD4",.F.,.F.,{NINDICE,!LESTOQUE})

MATA250.PRX - MATA250() -> CFILTRASD3:= EXECBLOCK( "M250FIL", .F., .F. )

MATA250.PRX - MATA250() -> UX := EXECBLOCK("A250FLDS",.F.,.F.)

MATA250.PRX - MENUDEF() -> EXECBLOCK("MTA250MNU",.F.,.F.)

MATA250.PRX - MTA250TELA() -> DEFINE SBUTTON FROM 65 ,260  TYPE 6 ACTION (IF(LM250ERRO,EXECBLOCK("M250ERRO",.F.,.F.,{AERROS}),A250ERRO(AERROS)) ) ENABLE OF ODLG

MATA250.PRX - MTA250TELA() -> EXECBLOCK("M250TELA",.F.,.F.,{AERROS})

MATA250.PRX - RETPERMIT() -> IF VALTYPE(NPERCPRMIT := EXECBLOCK("A250PRMI",.F.,.F.,{NPERCPRM})) <> "N"

MATA255.PRX - MENUDEF() -> EXECBLOCK ("MTA255MNU",.F.,.F.)

MATA260.PRX - A260ESTORN() -> ABUTTON := EXECBLOCK("MT260BTN",.F.,.F.)

MATA260.PRX - A260ESTORN() -> CRETPE := EXECBLOCK("MA260WMS",.F.,.F.,{CLOCORIG,CCODORIG,CLOCLZORIG})

MATA260.PRX - A260ESTORN() -> LBUTLOTDST := EXECBLOCK("MT260BLD",.F.,.F.)

MATA260.PRX - A260INCLUI() -> ABUTTON := EXECBLOCK("MT260BTN",.F.,.F.)

MATA260.PRX - A260INCLUI() -> LBUTLOTDST := EXECBLOCK("MT260BLD",.F.,.F.)

MATA260.PRX - A260INCLUI() -> LDOCTO := EXECBLOCK("MTA260DOC",.F.,.F.)

MATA260.PRX - A260INICPO() -> LRET := EXECBLOCK("A260INI",.F.,.F.)

MATA260.PRX - A260LOCAL() -> EXECBLOCK("A260LOC",.F.,.F., {CCODORIG,CLOCAL,1})

MATA260.PRX - A260LOCDEST() -> EXECBLOCK("A260LOC",.F.,.F., {CCODDEST,CLOCDEST,2})

MATA260.PRX - A260NFORIG() -> ABUTTON := EXECBLOCK("MT260BTN",.F.,.F.)

MATA260.PRX - A260PROCESSA() -> ACPOUSER := EXECBLOCK('CPOSDH1',.F.,.F.,{"MATA260",NW})

MATA260.PRX - A260PROCESSA() -> EXECBLOCK("MA260D3",.F.,.F.)

MATA260.PRX - A260PROCESSA() -> EXECBLOCK("MA260D3F",.F.,.F.,{LCONTINUA})

MATA260.PRX - A260PROCESSA() -> EXECBLOCK('MA260EXC',.F.,.F.)

MATA260.PRX - A260PROCESSA() -> LMANTEMLOT := EXECBLOCK("MT260NLOT",.F.,.F.,{CCODORIG,CCODDEST})

MATA260.PRX - A260PROCESSA() -> LQUALYCQ := EXECBLOCK("MA260NFQ",.F.,.F.)

MATA260.PRX - A260PROCESSA() -> LRET := !EXECBLOCK("A260GRV",.F.,.F.)

MATA260.PRX - A260QUANT() -> LVALIDPE := EXECBLOCK("MT260UM",.F.,.F.,{NTIPOUM,LRET})

MATA260.PRX - A260TUDOOK() -> CRETPE := EXECBLOCK("MA260WMS",.F.,.F.,{CLOCORIG,CCODORIG,CLOCLZORIG})

MATA260.PRX - A260TUDOOK() -> LRET := EXECBLOCK("MT260TOK",.F.,.F.,{CLOTEDIGID})

MATA260.PRX - A260VISUAL() -> ABUTTON := EXECBLOCK("MT260BTN",.F.,.F.)

MATA260.PRX - MATA260() -> CFILTRASD3 := EXECBLOCK("MT260FIL",.F.,.F.)

MATA260.PRX - MATA260() -> CFILTRO := EXECBLOCK("M260FILB",.F.,.F.)

MATA260.PRX - MENUDEF() -> EXECBLOCK ("MTA260MNU",.F.,.F.)

MATA260.PRX - MTA260OK() -> LRET := EXECBLOCK("MA260EST",.F.,.F.,{CNUMSEQ})

MATA261.PRX - A261ALMOX() -> EXECBLOCK("A261LOC",.F.,.F., {ACOLS[N,NPOSCODDES],CLOCAL,NORIGDEST})

MATA261.PRX - A261ALMOX() -> EXECBLOCK("A261LOC",.F.,.F., {ACOLS[N,NPOSCODORI],CLOCAL,NORIGDEST})

MATA261.PRX - A261DESATU() -> EXECBLOCK('MA261EXC',.F.,.F.)

MATA261.PRX - A261ESTORN() -> ABUT261:=EXECBLOCK("M261BCHOI",.F.,.F.)

MATA261.PRX - A261ESTORN() -> EXECBLOCK("MT261CAB",.F.,.F.,{@OPANEL1,0,NOPCX})

MATA261.PRX - A261ESTORN() -> EXECBLOCK("MTA261CAN",.F.,.F.,{NOPCX})

MATA261.PRX - A261ESTORN() -> EXECBLOCK('MA261CPO',.F.,.F.)

MATA261.PRX - A261ESTORN() -> EXECBLOCK('MA261IN',.F.,.F.)

MATA261.PRX - A261ESTORN() -> LTRAVAREG := EXECBLOCK("MT261TRV",.F.,.F.,{ALOCKSB2,ALOCKSD3})

MATA261.PRX - A261ESTROK() -> LRET := EXECBLOCK('MA261EST',.F.,.F.,{NX})

MATA261.PRX - A261GRAVA() -> EXECBLOCK("MT261TDOK",.F.,.F.)

MATA261.PRX - A261GRAVA() -> EXECBLOCK('M261D3O',.F.,.F.,N)

MATA261.PRX - A261GRAVA() -> EXECBLOCK('MA261D3',.F.,.F.,N)

MATA261.PRX - A261GRAVA() -> LMANTEMLOT := EXECBLOCK("MT260NLOT",.F.,.F.,{ACOLS[N,NPOSCODORI],ACOLS[N,NPOSCODDES],ACOLS[N,NPOSLOTCTL],ACOLS[N,NPOSLOTDES]})

MATA261.PRX - A261GRAVA() -> LQUALYCQ := EXECBLOCK("MA260NFQ",.F.,.F.)

MATA261.PRX - A261INCLUI() -> ABUT261:=EXECBLOCK("M261BCHOI",.F.,.F.)

MATA261.PRX - A261INCLUI() -> EXECBLOCK("MA261TRD3",.F.,.F.,{ARECSD3})

MATA261.PRX - A261INCLUI() -> EXECBLOCK("MT261CAB",.F.,.F.,{@OPANEL1,0,NOPCX})

MATA261.PRX - A261INCLUI() -> EXECBLOCK("MTA261CAN",.F.,.F.,{NOPCX})

MATA261.PRX - A261INCLUI() -> EXECBLOCK('MA261CPO',.F.,.F.)

MATA261.PRX - A261INCLUI() -> EXECBLOCK('MA261IN',.F.,.F.)

MATA261.PRX - A261INCLUI() -> LDOCTO := EXECBLOCK("MTA261DOC",.F.,.F.)

MATA261.PRX - A261LINOK() -> LRET := EXECBLOCK("MA261LIN",.F.,.F.,{NLINHA})

MATA261.PRX - A261QUANT() -> LVALIDPE := EXECBLOCK("MT261UM",.F.,.F.,{NQUANT,NQUANT2UM,LRET})

MATA261.PRX - A261TUDOOK() -> LRET := EXECBLOCK("A261TOK",.F.,.F.)

MATA261.PRX - A261VISUAL() -> ABUT261:=EXECBLOCK("M261BCHOI",.F.,.F.)

MATA261.PRX - A261VISUAL() -> EXECBLOCK("MT261CAB",.F.,.F.,{@OPANEL1,0,NOPCX})

MATA261.PRX - A261VISUAL() -> EXECBLOCK('MA261CPO',.F.,.F.)

MATA261.PRX - A261VISUAL() -> EXECBLOCK('MA261IN',.F.,.F.)

MATA261.PRX - A261VLDCOD() -> EXECBLOCK("A261PROD",.F.,.F.,{CVAR,NORIGDEST})

MATA261.PRX - A261VLDCOD() -> LRET := EXECBLOCK("A261INI",.F.,.F.,{CVAR,NORIGDEST})

MATA261.PRX - MATA261() -> AMEMUSER := EXECBLOCK( "MT261MEM", .F., .F. )

MATA261.PRX - MATA261() -> CFILTRASD3 := EXECBLOCK("MT261FIL",.F.,.F.)

MATA261.PRX - MATA261() -> CFILTRO := EXECBLOCK("M261FILB",.F.,.F.)

MATA261.PRX - MENUDEF() -> EXECBLOCK ("MTA261MNU",.F.,.F.)

MATA265.PRX - A265ESTORN() -> EXECBLOCK("MTA265E", .F., .F., {I} )

MATA265.PRX - A265ETDOK() -> LRET:=EXECBLOCK("M265ESTOK",.F.,.F.)

MATA265.PRX - A265EXCLUI() -> ABUTTONUSR := EXECBLOCK("M265BUT",.F.,.F.,{NOPC})

MATA265.PRX - A265EXCLUI() -> URET  := EXECBLOCK( "M265VEST", .F., .F., {NOPCA} )

MATA265.PRX - A265GRAVA() -> EXECBLOCK("MTA265GRV",.F.,.F.)

MATA265.PRX - A265GRAVA() -> EXECBLOCK("MTA265I", .F., .F., {I})

MATA265.PRX - A265INCLUI() -> ABUTTONUSR := EXECBLOCK("M265BUT",.F.,.F.,{NOPC})

MATA265.PRX - A265INCLUI() -> EXECBLOCK("MTA265CAN",.F.,.F.)

MATA265.PRX - A265INCLUI() -> LENDPROT := EXECBLOCK("A265NACD",.F.,.F.)

MATA265.PRX - A265INCLUI() -> LRETPE:=EXECBLOCK('A265COL',.F.,.F.)

MATA265.PRX - A265TUDOOK() -> LRETPE:=EXECBLOCK("MA265TDOK",.F.,.F.)

MATA265.PRX - A265VISUAL() -> ABUTTONUSR := EXECBLOCK("M265BUT",.F.,.F.,{NOPC})

MATA265.PRX - MATA265() -> CFILTRO := EXECBLOCK("M265FILB",.F.,.F.)

MATA265.PRX - MATA265() -> EXECBLOCK("M265END",.F.,.F.)

MATA265.PRX - MATA265() -> LRETPE := EXECBLOCK( "MA265BLOT", .F., .F., {L265AUTO} )

MATA265.PRX - MENUDEF() -> EXECBLOCK ("MTA265MNU",.F.,.F.)

MATA270.PRX - A270EXEPE() -> EXECBLOCK("MTA270",.F.,.F.,{NOPC})

MATA270.PRX - A270TDOK() -> LRET := EXECBLOCK("MT270TDK",.F.,.F.)

MATA270.PRX - A270TUDOOK() -> LRET := EXECBLOCK("MA270TOK",.F.,.F.)

MATA270.PRX - MENUDEF() -> AROTINANEW := EXECBLOCK("MTA270MNU",.F.,.F.,AROTINA)

MATA271.PRX - A271GRAVA() -> EXECBLOCK("MT271GRV",.F.,.F.)

MATA275.PRX - A275TUDOOK() -> LRET := EXECBLOCK("MT275TOK",.F.,.F.)

MATA275.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("MT275BRW", .F., .F.)

MATA275.PRX - MENUDEF() -> EXECBLOCK ("MTA275MNU",.F.,.F.)

MATA280.PRX - BJATUCOMB2() -> EXECBLOCK("A280SBJ",.F.,.F.)

MATA280.PRX - BKATUCOMB2() -> EXECBLOCK("A280SBK",.F.,.F.)

MATA280.PRX - M280COPIA() -> EXECBLOCK("MA2802FI",.F.,.F.,{DDATA,DDATAFEC})

MATA280.PRX - M280COPIA() -> EXECBLOCK("MA280BAT",.F.,.F.,{ALOGS, DDATA, DDATAFEC})

MATA280.PRX - M280COPIA() -> EXECBLOCK("MA280FIM",.F.,.F.,DDATA)

MATA280.PRX - M280PE280OK() -> XRET :=EXECBLOCK("A280OK",.F.,.F.,{DDATAFEC})

MATA280.PRX - MA280PROCESS() -> EXECBLOCK("A280SB9",.F.,.F.)

MATA280.PRX - MA280PROCESS() -> LFATCONV:=EXECBLOCK("MA280CON",.F.,.F.,{SB1->B1_COD,LFATCONV})

MATA290.PRX - A290AJULOT() -> CQUERYUSR := EXECBLOCK("M290QSB1",.F.,.F.)

MATA290.PRX - A290AJULOT() -> NA290AJUL := EXECBLOCK('A290AJUL', .F., .F., {(CALIASSB1)->B1_COD, (RETFLDPROD((CALIASSB1)->B1_COD,"B1_LE",CALIASSB1) * NDIF)})

MATA290.PRX - A290CALCON() -> CQUERYUSR := EXECBLOCK("M290QSB1",.F.,.F.)

MATA290.PRX - A290CALCON() -> CQUERYUSR := EXECBLOCK("M290QSD1",.F.,.F.)

MATA290.PRX - A290CALCON() -> CQUERYUSR := EXECBLOCK("M290QSD2",.F.,.F.)

MATA290.PRX - A290CALCON() -> CQUERYUSR := EXECBLOCK("M290QSD3",.F.,.F.)

MATA290.PRX - A290CALCON() -> IF VALTYPE(LRETPE := EXECBLOCK("A290CSD2",.F.,.F.,{"SD2"})) == "L" .AND. !LRETPE

MATA290.PRX - A290CALCON() -> IF VALTYPE(LRETPE := EXECBLOCK("MT290SD1",.F.,.F.)) == "L" .AND. !LRETPE

MATA290.PRX - A290CALCON() -> IF VALTYPE(LRETPE := EXECBLOCK("MT290SD3",.F.,.F.)) == "L" .AND. !LRETPE

MATA290.PRX - A290CALCON() -> NCONS:=EXECBLOCK("A290CONS",.F.,.F.,{CCOD,NTOTCOD})

MATA290.PRX - A290CALLOT() -> CQUERYUSR := EXECBLOCK("M290QSB1",.F.,.F.)

MATA290.PRX - A290CALLOT() -> EXECBLOCK("A290ABC",.F.,.F.)

MATA290.PRX - A290CALLOT() -> NA290CALL := EXECBLOCK('A290CALL', .F., .F., {(CALIASSB1)->B1_COD, NLOTE})

MATA290.PRX - A290CALLOT() -> NA290CAPP := EXECBLOCK('A290CAPP', .F., .F., {(CALIASSB1)->B1_COD, NA290CAPP})

MATA290.PRX - A290CALMIN() -> CQUERYUSR := EXECBLOCK("M290QSB1",.F.,.F.)

MATA290.PRX - A290CALNOR() -> APESOUSR := EXECBLOCK("A290CALP",.F.,.F.,{NMESES,APESOS,APESOAUX,CALIASSB1,CALIASSB3})

MATA290.PRX - A290CALNOR() -> CQUERYUSR := EXECBLOCK("M290QSB1",.F.,.F.)

MATA290.PRX - A290MENU() -> DEFINE SBUTTON FROM 220,210 TYPE 5 ACTION ( CMTA290FIL:=EXECBLOCK("MTA290FIL",.F.,.F.) ) ENABLE OF ODLG

MATA295.PRW - GERASBL() -> EXECBLOCK("M295SBL",.F.,.F.)

MATA295.PRW - MT295SD1() -> LPROCESSA := EXECBLOCK("M295SD1",.F.,.F.)

MATA295.PRW - MT295SD2() -> LPROCESSA := EXECBLOCK("M295SD2",.F.,.F.)

MATA295.PRW - MT295SD3() -> LPROCESSA := EXECBLOCK("M295SD3",.F.,.F.)

MATA297.PRW - MENUDEF() -> EXECBLOCK ("MTA297MNU",.F.,.F.)

MATA297.PRW - MT297GER() -> ACABITEM:= EXECBLOCK("MT297APC",.F.,.F.,{ACAB,AITEM})

MATA297.PRW - MT297GER() -> ACABITEM:= EXECBLOCK("MT297ASC",.F.,.F.,{ACAB,AITEM})

MATA297.PRW - MT297INCG() -> EXECBLOCK("MT297SDF",.F.,.F.,{NSALDO})

MATA297.PRW - MT297INCG() -> EXECBLOCK("MT297SFJ",.F.,.F.)

MATA297.PRW - MT297INCG() -> NSALDO := EXECBLOCK("MT297SLD",.F.,.F.)

MATA297.PRW - MT297TELA() -> ABUTTONUSR := EXECBLOCK("MT297BUT",.F.,.F.,{NOPCE})

MATA297.PRW - MT297TELA() -> LRET := EXECBLOCK("M297EXIT",.F.,.F.,{LRET,NOPCA})

MATA297M.PRW - MONTACOLS() -> EXECBLOCK("MT297MAC",.F.,.F.)

MATA298.PRX - MENUDEF() -> EXECBLOCK  ("MTA298MNU",.F.,.F.)

MATA300.PRX - MA300PROCESS() -> EXECBLOCK('M300SBF',.F.,.F.)

MATA300.PRX - MTA300TOK() -> LRET:=EXECBLOCK("MA300OK",.F.,.F.)

MATA310.PRW - A310ESTREL() -> EXECBLOCK("M310ESTO",.F.,.F.,{CPRODUTO1, CFILORIG, CLOCORIG, CPRODUTO2,CFILDEST, CLOCDEST, NQTDEST})

MATA310.PRW - A310PROC() -> ACABEC:=EXECBLOCK("M310CABEC",.F.,.F.,{"MATA410",ACABEC,APARAM310})

MATA310.PRW - A310PROC() -> ACABEC:=EXECBLOCK("M310CABEC",.F.,.F.,{IF(APARAM310[14] == 1,"MATA140","MATA103"),ACABEC,APARAM310})

MATA310.PRW - A310PROC() -> AITENS:=EXECBLOCK("M310ITENS",.F.,.F.,{"MATA410",AITENS})

MATA310.PRW - A310PROC() -> AITENS:=EXECBLOCK("M310ITENS",.F.,.F.,{IF(APARAM310[14] == 1,"MATA140","MATA103"),AITENS})

MATA310.PRW - A310PROC() -> EXECBLOCK("M310PPED",.F.,.F.)

MATA310.PRW - A310PROC() -> LCONTINUA := EXECBLOCK("MTA310OK",.F.,.F.,{ACLONE(ADADOSTRANSF)})

MATA310.PRW - A310PROC() -> UPERGUNTE := EXECBLOCK("M310PERG",.F.,.T.)

MATA310.PRW - A310PROCLOC() -> ACABEC:=EXECBLOCK("M310CABEC",.F.,.F.,{"MATA101N",ACABEC,APARAM310})

MATA310.PRW - A310PROCLOC() -> ACABEC:=EXECBLOCK("M310CABEC",.F.,.F.,{"MATA410",ACABEC,APARAM310})

MATA310.PRW - A310PROCLOC() -> AITENS:=EXECBLOCK("M310ITENS",.F.,.F.,{"MATA101N",AITENS})

MATA310.PRW - A310PROCLOC() -> AITENS:=EXECBLOCK("M310ITENS",.F.,.F.,{"MATA410",AITENS})

MATA310.PRW - A310RELAC() -> LM310QTD := EXECBLOCK( "M310QTD", .F., .F.)

MATA310.PRW - A310TOK() -> LRET := IF(VALTYPE(LRETPE:=EXECBLOCK("M310TUDOK",.F.,.F.,{NQUANT,CFILORIG,CPRODUTO1,CLOCORIG,CFILDEST,CLOCDEST,NQUANT2UM}))=="L",LRETPE,LRET)

MATA310.PRW - A310TREECM() -> AFILSPE := EXECBLOCK("M310FILIAL",.F.,.F.,{CUSUARIO,AFILIAIS})

MATA310.PRW - A310TREECM() -> CM310FILTRO := EXECBLOCK( 'M310FILTRO', .F., .F.)

MATA310.PRW - A310VALOK() -> LCONTINUA := EXECBLOCK("MTA310OK",.F.,.F.,{ACLONE(ADADOSTRANSF)})

MATA310.PRW - M310SB2AUT() -> CM310FILTRO := EXECBLOCK( 'M310FILTRO', .F., .F.)

MATA311.PRW - A311FILIAL() -> AFILIAIS := EXECBLOCK("M311FILIAL",.F.,.F.,{__CUSERID,ASM0})

MATA311.PRW - MENUDEF() -> AROTINANEW := EXECBLOCK("MT311ROT", .F., .F., AROTINA)

MATA315.PRW - MATA315GRV() -> EXECBLOCK("MATA315GRV",.F.,.F.,{NOPC})

MATA315.PRW - MATA315TOK() -> LRET := EXECBLOCK( "MATA315TOK", .F., .F. )

MATA317.PRW - MATA317CAT() -> CQUERYUSR := EXECBLOCK('MA317QRY',.F.,.F.)

MATA317.PRW - MATA317MNT() -> ASOMABUTTONS := EXECBLOCK("MA317BUT",.F.,.F.,{NOPCB})

MATA317.PRW - MATA317MNT() -> EXECBLOCK('MA317OK',.F.,.F.)

MATA317.PRW - MATA317MNT() -> {|| IIF(LMA317CANC .AND. !EXECBLOCK('MA317CANC',.F.,.F.,{NOPCX}),NIL,(NOPCA := 0, ODLG:END())) },,ABUTTONS )

MATA317.PRW - MATA317PROD() -> LRETPE := EXECBLOCK("MA317FIL",.F.,.F.,{CCODPRO})

MATA320.PRX - MA320CALCT() -> EXECBLOCK("A320CUST",.F.,.F.,IF(CPAISLOC=="BRA",{NICM,NIPI,CTIPO},{NVALIMP,,CTIPO}))

MATA320.PRX - MA320CUSM() -> NCUSTOM := EXECBLOCK('A320CUSM', .F., .F., {CPRODUTO} )

MATA320.PRX - MA320CUSTD() -> LCONTINUA := EXECBLOCK("M320FILPR",.F.,.F.)

MATA320.PRX - MA320ESTRU() -> EXECBLOCK("A320CUST",.F.,.F.,{CCODANT,NCUSTOT,CTIPO})

MATA320.PRX - MA320ESTRU() -> LCONTINUA := EXECBLOCK("M320ESTRU",.F.,.F.)

MATA320.PRX - MA320LCUST() -> EXECBLOCK("A320CUST",.F.,.F.,{SB1->B1_COD,ACUSTO[LEN(ACUSTO),1],CTIPO})

MATA320.PRX - MA320LCUST() -> LCONTINUA := EXECBLOCK("M320FILNF",.F.,.F.)

MATA320.PRX - XMOSTRAPROC() -> EXECBLOCK("A320LOOP",.F.,.F.,{CARQTRB,G1_COMP,G1_NIV,LPREESTRU})

MATA320.PRX - XMOSTRAPROC() -> EXECBLOCK("A320LOOP",.F.,.F.,{CARQTRB,GG_COMP,GG_NIV,LPREESTRU})

MATA325.PRW - A325ADDPRD() -> EXECBLOCK("FT325NMAX",.F.,.F.,{OMDLSAY})

MATA325.PRW - A325EFET() -> EXECBLOCK( "FT325EFET", .F., .F. )

MATA325.PRW - A325TABEFET() -> NLINHAPE := EXECBLOCK("FT325NMAX",.F.,.F.,{NIL})

MATA325.PRW - A325TABSB0() -> NLINHAPE := EXECBLOCK("FT325NMAX",.F.,.F.,{NIL})

MATA330.PRX - A330CONTAB() -> EXECBLOCK("MA330PGF",.F.,.F.)

MATA330.PRX - A330CONTAB() -> EXECBLOCK("MA330PGI",.F.,.F.)

MATA330.PRX - A330INICIA() -> ACMALTER:=EXECBLOCK("M330CMU",.F.,.F.,{CCODORIMOD,TRT->TRB_CM1,TRT->TRB_CM2,TRT->TRB_CM3,TRT->TRB_CM4,TRT->TRB_CM5})

MATA330.PRX - A330INICIA() -> LCONSALMOX:=EXECBLOCK("MA330AL",.F.,.F.)

MATA330.PRX - A330PRCTRF() -> EXECBLOCK("MA330PRC",.F.,.F.)

MATA330.PRX - A330PROCRE7() -> EXECBLOCK("MA330D3",.F.,.F.)

MATA330.PRX - A330RECALC() -> ACM:=EXECBLOCK("M330CD2",.F.,.F.,{ACM,.F.})

MATA330.PRX - A330RECALC() -> ACMFF:=EXECBLOCK("M330CD2",.F.,.F.,{ACMFF,.T.})

MATA330.PRX - A330RECALC() -> ACUSTO:=EXECBLOCK("MA330C3",.F.,.F.,ACUSTO)

MATA330.PRX - A330RECALC() -> ARETCPUS := EXECBLOCK("M330CD1",.F.,.F.,{LCSTPART,AREGRACP,ACUSTO})

MATA330.PRX - A330RECALC() -> ARETPARTES :=EXECBLOCK("MA330P3",.F.,.F.,{ACUSTO,LCSTPART,AREGRACP,ACLONE(ARETPARTES)})

MATA330.PRX - A330RECALC() -> EXECBLOCK("MA330D1",.F.,.F.)

MATA330.PRX - A330RECALC() -> EXECBLOCK("MA330D2",.F.,.F.)

MATA330.PRX - A330RECALC() -> EXECBLOCK("MA330D3",.F.,.F.)

MATA330.PRX - A330RECALC() -> IF LA330CDEV .AND. SF4->F4_PODER3 <> "R" .AND. EXECBLOCK("A330CDEV",.F.,.F.)

MATA330.PRX - A330RECTRF() -> URET := EXECBLOCK("MA330TRF", .F., .F., {ARET,TRB->TRB_FILIAL,TRB->TRB_FILTRA,TRB->TRB_COD,TRB->TRB_RECNO,LCUSFIFO})

MATA330.PRX - A330TRB() -> CORDEM:=EXECBLOCK("MA330SEQ",.F.,.F.,{CORDEM,CALIAS})

MATA330.PRX - MA330FCALC() -> AMA330SFI := EXECBLOCK("MA330SFI",.F.,.F.,{AFILSCALC,LMOSTRATELA})

MATA330.PRX - MA330PROCESS() -> EXECBLOCK("MA330CTB",.F.,.F.,{AAUXFIL})

MATA330.PRX - MA330PROCESS() -> EXECBLOCK("MA330FIM",.F.,.F.)

MATA330.PRX - MA330PROCESS() -> EXECBLOCK("MA330TRB",.F.,.F.)

MATA330.PRX - MTA330TOK() -> LRET:=EXECBLOCK("MA330OK",.F.,.F.)

MATA330MOD.PRX - A330MOD() -> ASALDOS := EXECBLOCK("A330DECC",.F.,.F.,{IF(LMODORI,SUBSTR(SB2->B2_COD,4,NTAMCC),CCODCC),DTERMINO,CGRUPO,LGRUPO})

MATA330MOD.PRX - A330MOD() -> EXECBLOCK("A330QTMO",.F.,.F.)

MATA330MOD.PRX - A330MOD() -> EXECBLOCK("MA330MOD",.F.,.F.,{CCODPESQ,CCODCC,CGRUPO})

MATA330MOD.PRX - A330MOD() -> UGRUPO := EXECBLOCK("A330GRUP",.F.,.T.,{CCODPESQ,CCODCC,CGRUPO})

MATA330MOD.PRX - MA330SALCC() -> CFILTRO := EXECBLOCK("M330FCC",.F.,.F., "CQ3")

MATA330MOD.PRX - MA330SALCC() -> CFILTRO := EXECBLOCK("M330FCC",.F.,.F.,{"CQ3",CCODPRO})

MATA330MOD.PRX - MA330SALCC() -> LRETEXEC:=EXECBLOCK("M330FCC",.F.,.F.,{"CT1",CCODPRO})

MATA330MOD.PRX - UPDPROMOD() -> ASALDOS := EXECBLOCK("A330DECC",.F.,.F.,{CCODCC,DTERMINO,CGRUPO,LGRUPO})

MATA330MOD.PRX - UPDPROMOD() -> LGRUPO := EXECBLOCK("A330GRUP",.F.,.T.,{CCODPESQ,CCODCC,CGRUPO})

MATA330MOD.PRX - UPDSB2MOD() -> EXECBLOCK("A330QTMO",.F.,.F.)

MATA331.PRX - GERALANCTO() -> ELSEIF SD2->D2_TIPO == "D" .AND. SF4->F4_PODER3 <> "R" .AND. LA330CDEV .AND. EXECBLOCK("A330CDEV",.F.,.F.)

MATA331.PRX - MA331PROCESS() -> LRET:=EXECBLOCK("MA331FIM",.F.,.F.)

MATA331.PRX - MTA331TOK() -> LRET:=EXECBLOCK("MA331OK",.F.,.F.)

MATA340.PRX - A340INVENT() -> EXECBLOCK("MT340B2",.F.,.F.)

MATA340.PRX - A340INVENT() -> EXECBLOCK("MT340D3",.F.,.F.)

MATA340.PRX - A340INVENT() -> LOK := EXECBLOCK("MT340ACOK",.F.,.F.)

MATA340.PRX - A340INVENT() -> LOK := EXECBLOCK("MT340SB7",.F.,.F.)

MATA360.PRX - A360COMMIT() -> EXECBLOCK("MT360GRV",.F.,.F.)

MATA360.PRX - A360COMMIT() -> LOK := EXECBLOCK("MT360DEL",.F.,.F.)

MATA360.PRX - A360GRAVA() -> EXECBLOCK("MT360GRV",.F.,.F.)

MATA360.PRX - A360GRAVA() -> LOK := EXECBLOCK("MT360DEL",.F.,.F.)

MATA360.PRX - A360POS() -> LRET := EXECBLOCK("MT360VLD",.F.,.F.)

MATA360.PRX - A360TUDOK() -> LRET := EXECBLOCK("MT360VLD",.F.,.F.)

MATA370.PRX - A370ATU() -> EXECBLOCK("MT370ATU",.F.,.F.)

MATA370.PRX - A370POS() -> LRET := EXECBLOCK("MT370DEL",.F.,.F.,{NOPCA})

MATA370.PRX - A370TOK() -> LRET := EXECBLOCK("MT370TOK",.F.,.F.,{NOPC})

MATA380.PRX - A380ALTERA() -> EXECBLOCK("MT380ALT",.F.,.F.)

MATA380.PRX - A380ALTERA() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA380BUT", .F., .F. ) ) # "A"

MATA380.PRX - A380CANC() -> LRET := EXECBLOCK('M380LEMP', .F., .F.,{2})

MATA380.PRX - A380DELATU() -> EXECBLOCK("MTA380E",.F.,.F.)

MATA380.PRX - A380DELOK() -> LRET := EXECBLOCK('MT380EXC', .F., .F.)

MATA380.PRX - A380GETTOK() -> LRET := EXECBLOCK('M380LEMP', .F., .F.,{1})

MATA380.PRX - A380INCLUI() -> EXECBLOCK("MT380GRV",.F.,.F.)

MATA380.PRX - A380INCLUI() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA380BUT", .F., .F. ) ) # "A"

MATA380.PRX - A380QUANT() -> LMT380SE := EXECBLOCK('MT380SE', .F., .F.)

MATA380.PRX - A380TUDOOK() -> LMT380SE := EXECBLOCK('MT380SE', .F., .F.)

MATA380.PRX - A380TUDOOK() -> LRET := EXECBLOCK('MT380INC', .F., .F.)

MATA380.PRX - A380ZEMP() -> LCONTINUA := EXECBLOCK("M380ZEMP", .F., .F.)

MATA380.PRX - MENUDEF() -> AROTINA := EXECBLOCK('MTA380MNU',.F.,.F.,AROTINA)

MATA381.PRX - A381GRAVA() -> EXECBLOCK("MTA381GRV",.F.,.F.,{L381INC,L381EXC,L381ALT})

MATA381.PRX - A381LINOK() -> LMT381LOK := EXECBLOCK("MT381LOK",.F.,.F.,{L381INC,L381ALT})

MATA381.PRX - A381LINOK() -> LMT381SE := EXECBLOCK('MT381SE', .F., .F.)

MATA381.PRX - A381MANUT() -> ABUTTONS := EXECBLOCK( "MA381BUT", .F., .F., { NOPC, ABUTTONS } )

MATA381.PRX - A381MANUT() -> EXECBLOCK("MA381COLS",.F.,.F.,{NOPC})

MATA381.PRX - A381MANUT() -> LRETPE := EXECBLOCK('MT381EXC', .F., .F.)

MATA381.PRX - A381TUDOOK() -> LMT381VLD := EXECBLOCK("MT381VLD",.F.,.F.,{L381INC,L381ALT})

MATA381.PRX - MENUDEF() -> AROTINA := EXECBLOCK('MA381MNU',.F.,.F.,AROTINA)

MATA390.PRX - A390EXCLUI() -> EXECBLOCK('MT390EXC', .F., .F.)

MATA390.PRX - A390EXCLUI() -> LRET  := IF(VALTYPE(LRETPE:=EXECBLOCK('MT390VLE',.F.,.F.))=='L',LRETPE,.T.)

MATA390.PRX - A390PRCATU() -> EXECBLOCK('MT390PRC', .F., .F.,{ARECNO})

MATA390.PRX - A390PRCVAL() -> EXECBLOCK('MT390DTV', .F., .F.,DDATAVALID)

MATA390.PRX - A390TUDOOK() -> LOCAL LA390ZERO  := EXISTBLOCK('A390ZERO') .AND. EXECBLOCK('A390ZERO', .F., .F.)

MATA390.PRX - A390TUDOOK() -> LRET := IF(VALTYPE(LRETPE:=EXECBLOCK('MT390VLI',.F.,.F.))=='L',LRETPE,.T.)

MATA390.PRX - A390VALID() -> LRET  := IF(VALTYPE(LRETPE:=EXECBLOCK('MT390VLV',.F.,.F.,{DDATAVALID}))=='L',LRETPE,.T.)

MATA390.PRX - MENUDEF() -> EXECBLOCK ("MTA390MNU",.F.,.F.)

MATA405.PRX - A405DELETA() -> NOPCA := EXECBLOCK("M405NTTS",.F.,.F.,{NOPCA})

MATA405.PRX - A405GRAVA() -> EXECBLOCK("MT405TTS",.F.,.F.,{NOPC})

MATA405.PRX - A405INCLUI() -> NOPCA := EXECBLOCK("M405NTTS",.F.,.F.,{NOPCA})

MATA405.PRX - A405TUDOK() -> LRETORNO := EXECBLOCK("MT405TOK",.F.,.F.)

MATA405.PRX - MENUDEF() -> EXECBLOCK("MA405MNU",.F.,.F.)

MATA410.PRX - A410ALTERA() -> AGEMCVND := EXECBLOCK("GEM410PV",.F.,.F.,{ M->C5_NUM ,M->C5_CONDPAG ,M->C5_EMISSAO ,NTOTALPED })

MATA410.PRX - A410ALTERA() -> APEDCPO := EXECBLOCK("GCTPEDCPO",.F.,.F.)

MATA410.PRX - A410ALTERA() -> EXECBLOCK("M410ABN",.F.,.F.)

MATA410.PRX - A410ALTERA() -> EXECBLOCK("M410GET",.F.,.F.)

MATA410.PRX - A410ALTERA() -> EXECBLOCK("M410STTS",.F.,.F.,{4})

MATA410.PRX - A410ALTERA() -> EXECBLOCK("MT410ALT",.F.,.F.)

MATA410.PRX - A410ALTERA() -> LCONTINUA := EXECBLOCK("M410ALOK",.F.,.F.)

MATA410.PRX - A410ALTERA() -> LCONTINUA := EXECBLOCK("MT410ACE",.F.,.F.,{NOPC})

MATA410.PRX - A410COPIA() -> AGEMCVND := EXECBLOCK("GEM410PV",.F.,.F.,{ SC5->C5_NUM ,SC5->C5_CONDPAG ,M->C5_EMISSAO ,NTOTALPED })

MATA410.PRX - A410COPIA() -> EXECBLOCK("M410ABN",.F.,.F.)

MATA410.PRX - A410COPIA() -> EXECBLOCK("M410STTS",.F.,.F.,{6})

MATA410.PRX - A410COPIA() -> EXECBLOCK("MT410CPY",.F.,.F.)

MATA410.PRX - A410COPIA() -> LCONTINUA := EXECBLOCK("M410ALOK",.F.,.F.)

MATA410.PRX - A410COPIA() -> LCONTINUA := EXECBLOCK("MT410ACE",.F.,.F.,{NOPC})

MATA410.PRX - A410DELETA() -> AGEMCVND := EXECBLOCK("GEM410PV",.F.,.F.,{ M->C5_NUM ,M->C5_CONDPAG ,M->C5_EMISSAO ,NTOTALPED })

MATA410.PRX - A410DELETA() -> EXECBLOCK("M410STTS",.F.,.F.,{5})

MATA410.PRX - A410DELETA() -> LCONTINUA := EXECBLOCK("M410ALOK",.F.,.F.)

MATA410.PRX - A410DELETA() -> LCONTINUA := EXECBLOCK("MT410ACE",.F.,.F.,{NOPC})

MATA410.PRX - A410DELETA() -> LRDRET:= EXECBLOCK("A410EXC",.F.,.F.)

MATA410.PRX - A410INCLUI() -> EXECBLOCK("M410ABN",.F.,.F.)

MATA410.PRX - A410INCLUI() -> EXECBLOCK("M410INIC",.F.,.F.)

MATA410.PRX - A410INCLUI() -> EXECBLOCK("M410STTS",.F.,.F.,{3})

MATA410.PRX - A410INCLUI() -> EXECBLOCK("MT410INC",.F.,.F.)

MATA410.PRX - A410LEGEND() -> ACORES := EXECBLOCK("MA410LEG",.F.,.F.,ACORES)

MATA410.PRX - A410VISUAL() -> EXECBLOCK("M410VIS",.F.,.F.)

MATA410.PRX - A410VISUAL() -> EXECBLOCK("MTA410V",.F.,.F.)

MATA410.PRX - A410VISUAL() -> LCONTINUA := EXECBLOCK("MT410ACE",.F.,.F.,{NOPC})

MATA410.PRX - BROWSEDEF() -> CFILSQL := EXECBLOCK("M410FSQL",.F.,.F.)

MATA410.PRX - BROWSEDEF() -> EXECBLOCK("MT410BRW",.F.,.F.)

MATA410.PRX - MA410BAR() -> ABUTTONUSR := EXECBLOCK("A410CONS",.F.,.F.)

MATA410.PRX - MA410BAR() -> ABUTTONUSR := EXECBLOCK("GMMA410BUT",.F.,.F.,{NOPC ,M->C5_NUM ,M->C5_CLIENTE ,M->C5_LOJACLI})

MATA410.PRX - MA410BAR() -> IF EXECBLOCK("A410BPRC",.F.,.F.)

MATA410.PRX - MA410BAR() -> IF EXECBLOCK("A410BPRO",.F.,.F.)

MATA410.PRX - MA410BAR() -> IF EXECBLOCK("A410PLAN",.F.,.F.)

MATA410.PRX - MENUDEF() -> EXECBLOCK("MA410MNU",.F.,.F.)

MATA411.PRW - MA411LEXML() -> CNEWPROD:= EXECBLOCK("MA411PRD",.F.,.F.,{CPRODUTO,CTIPOCOD})

MATA411.PRW - MA411LEXML() -> CPECLI := EXECBLOCK( "MA411CLI",.F.,.F., { OXMLCONTENT } )

MATA415.PRX - A415ALTERA() -> EXECBLOCK( "MA415END", .F., .F., { NOPCA, 2 } )

MATA415.PRX - A415BAIXA() -> IF !EXECBLOCK("MT415AUT",.F.,.F.)

MATA415.PRX - A415BAIXA() -> IF (!EXECBLOCK("MT415EFT",.F.,.F.,{NOPCA}))

MATA415.PRX - A415CANCEL() -> NOPCA := EXECBLOCK("M415CANC",.F.,.F.,NOPCA)

MATA415.PRX - A415COPIA() -> ACPOSCOPY := EXECBLOCK("MT415CPY",.F.,.F.)

MATA415.PRX - A415COPIA() -> EXECBLOCK( "MA415END", .F., .F., { NOPCA, 1 } )

MATA415.PRX - A415COPIA() -> EXECBLOCK("MT415G1",.F.,.F.)

MATA415.PRX - A415COPIA() -> IF (! EXECBLOCK("M415COPIA",.F.,.F.) )

MATA415.PRX - A415EXCLUI() -> EXECBLOCK( "MA415END", .F., .F., { NOPCA, 3 } )

MATA415.PRX - A415EXCLUI() -> LRET:= EXECBLOCK("MT415EXC",.F.,.F.)

MATA415.PRX - A415GRAVA() -> EXECBLOCK("M415GRV",.F.,.F.,{ NOPCX } )

MATA415.PRX - A415IMPRI() -> EXECBLOCK(CPRINTER,.F.,.F.)

MATA415.PRX - A415INCLUI() -> EXECBLOCK( "MA415END", .F., .F., { NOPCA, 1 } )

MATA415.PRX - A415LEGEND() -> ACORES := EXECBLOCK("MA415LEG",.F.,.F.,ACORES)

MATA415.PRX - A415LINOK() -> LRETORNO := EXECBLOCK("A415LIOK",.F.,.F.)

MATA415.PRX - A415MONTA() -> ANOCPOSCK := EXECBLOCK("M415NCPO",.F.,.F.)

MATA415.PRX - A415MONTA() -> LRET:= EXECBLOCK( "MA415OPOR", .F., .F.)

MATA415.PRX - A415RENTVP() -> ARENTAB := EXECBLOCK("MA415RVP",.F.,.F.,ARENTAB)

MATA415.PRX - A415TABCLI() -> CTABCLI := EXECBLOCK("A415TBPR",.F.,.F.)

MATA415.PRX - A415TIPO9() -> LRET := EXECBLOCK("M415TIP9",.F.,.F.)

MATA415.PRX - A415TIPO9() -> NPARCELAS := EXECBLOCK("MT415PC",.F.,.F.)

MATA415.PRX - A415TUDOK() -> LRETORNO := EXECBLOCK("A415TDOK",.F.,.F.)

MATA415.PRX - MA415BAR() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA415BUT", .F., .F. ) ) == "A"

MATA415.PRX - MA415IMPOS() -> ASOLID := EXECBLOCK("M415SOLI",.F.,.F.,{NITEM})

MATA415.PRX - MA415IMPOS() -> EXECBLOCK("M415ICM",.F.,.F., { NITEM } )

MATA415.PRX - MA415IMPOS() -> MAFISALT("IT_VALIPI",EXECBLOCK("M415IPI",.F.,.F.,{ NITEM }),NITEM,.T.)

MATA415.PRX - MAAVALORC() -> EXECBLOCK("A415CANC",.F.,.F.,{CALIAS})

MATA415.PRX - MATA415() -> CFILSQL := EXECBLOCK("M415FSQL",.F.,.F.)

MATA415.PRX - MATA415() -> CFILTRO := EXECBLOCK("MT415BRW",.F.,.F.)

MATA415.PRX - MENUDEF() -> EXECBLOCK("MA415MNU",.F.,.F.)

MATA416.PRX - A416LEGEND() -> ACORES := EXECBLOCK("MA415LEG",.F.,.F.,ACORES)

MATA416.PRX - MA416PROC() -> LBAIXA := EXECBLOCK( "MTA416BX", .F., .F., { CALIASSCJ } )

MATA416.PRX - MABXORC() -> EXECBLOCK("MT416FIM",.F.,.F.)

MATA416.PRX - MABXORC() -> EXECBLOCK("MTA416PV",.F.,.F.,LEN(_ACOLS))

MATA416.PRX - MATA416() -> ACORES := EXECBLOCK("MA416COR",.F.,.F.,ACORES)

MATA416.PRX - MATA416() -> CFILTRASCJ := ALLTRIM(EXECBLOCK("MA416FIL",.F.,.F.))

MATA416.PRX - MENUDEF() -> EXECBLOCK("MA416MNU",.F.,.F.)

MATA420.PRX - A420ATPORC() -> LRET := EXECBLOCK("MTA420FI",.F.,.F.,ALIAS())

MATA420.PRX - A420CLIPOR() -> LRET := EXECBLOCK("MTA420FI",.F.,.F.,ALIAS())

MATA420.PRX - A420CLITAB() -> LRET := EXECBLOCK("MTA420FI",.F.,.F.,ALIAS())

MATA420.PRX - A420GRAVA() -> EXECBLOCK("MTA420",.F.,.F.)

MATA430.PRX - A430AFTVIE() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA430BUT", .F., .F., { OVIEW:GETMODEL():GETOPERATION() } ) ) == "A"

MATA430.PRX - A430BAR() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA430BUT", .F., .F., { NOPC } ) ) == "A"

MATA430.PRX - A430GRAVA() -> EXECBLOCK("MSC0430A",.F.,.F.)

MATA430.PRX - A430GRVMVC() -> IF !(EXECBLOCK("MA430PEX"))

MATA430.PRX - A430LEGEND() -> ATMP := EXECBLOCK( "M430LEG", .F., .F., { ACORES } )

MATA430.PRX - A430LINOK() -> LRETORNA := EXECBLOCK("M430LIOK",.F.,.F.)

MATA430.PRX - A430LPRE() -> LRETORNO := EXECBLOCK("M430DOK",.F.,.F.)

MATA430.PRX - A430RESID() -> EXECBLOCK("MT430ELIM",.F.,.F.,{SC0->C0_NUM})

MATA430.PRX - A430RESID() -> LCONTINUA :=EXECBLOCK("MT430ELV",.F.,.F.,{CNUM})

MATA430.PRX - A430TUDOK() -> LRET:= EXECBLOCK('M430TOK',.F.,.F.)

MATA430.PRX - A430VLBOX() -> LRETORNO := EXECBLOCK("MT430VLD",.F.,.F.,{CTIPORES,CDOCRES})

MATA430.PRX - A430VLDCBX() -> LRET := EXECBLOCK("MT430VLD",.F.,.F.,{ CTIPOSELEC, CDOCRES } )

MATA430.PRX - MATA430() -> CFILTRASC0:= EXECBLOCK( "M430FIL", .F., .F. )

MATA430.PRX - MENUDEF() -> EXECBLOCK("MA430MNU",.F.,.F.)

MATA440.PRX - A440BAR() -> IF EXISTBLOCK( "A440BUT" ) .AND. VALTYPE( AUSBUTTONS := EXECBLOCK( "A440BUT", .F., .F. ) ) == "A"

MATA440.PRX - A440LIBERA() -> AADDCPO := EXECBLOCK("MTA440AC",.F.,.F.)

MATA440.PRX - A440LIBERA() -> AADDCPO := EXECBLOCK("MTA440C5",.F.,.F.)

MATA440.PRX - A440LIBERA() -> EXECBLOCK("M440STTS",.F.,.F.)

MATA440.PRX - A440LIBERA() -> LCONTINUA := EXECBLOCK("MT440AT",.F.,.F.)

MATA440.PRX - A440LIBERA() -> NOPCA := IF(EXECBLOCK("MT440GR",.F.,.F.,{NOPCA}),NOPCA,2)

MATA440.PRX - A440PROCES() -> CFILTRO := EXECBLOCK("MT440FIL",.F.,.F.)

MATA440.PRX - A440PROCES() -> EXECBLOCK("MTA410T",.F.,.F.)

MATA440.PRX - A440PROCES() -> LVALIDO := EXECBLOCK("MT440VLD",.F.,.F.)

MATA440.PRX - A440PROCES() -> NQTDLIB := EXECBLOCK("MT440LIB",.F.,.F.,NQTDLIB)

MATA440.PRX - A440STOK() -> EXECBLOCK("A440STK",.F.,.F.)

MATA440.PRX - A440TROCA() -> SETKEY( VK_F4, { || EXECBLOCK("A440F4AE",.F.,.F.,NIT) } )

MATA440.PRX - A440TUDOK() -> LRET := EXECBLOCK("MA440VLD",.F.,.F.)

MATA440.PRX - AFTERCOLS() -> EXECBLOCK("M440ACOL",.F.,.F.)

MATA440.PRX - MATA440() -> CFILTRASC5:= EXECBLOCK( "M440FIL", .F., .F. )

MATA440.PRX - MENUDEF() -> EXECBLOCK("MA440MNU",.F.,.F.)

MATA440.PRX - MTA440LIB() -> LRET := EXECBLOCK("MA440SC6",.F.,.F.,CARQQRY)

MATA447.PRW - CALCIMPUESTOS() -> NVALIMP := &CFUNC

MATA447.PRW - CALCOSEXT() -> EXECBLOCK('MT447EXTCOS',.F.,.F.)

MATA447.PRW - MT447CALCULO() -> EXECBLOCK('MT447COSTO',.F.,.F.)

MATA447.PRW - MT447GRABA() -> EXECBLOCK("MT447ELI",.F.,.F.)

MATA447B.PRW - GENFACENT() -> AMASITEMS := EXECBLOCK("M447BSD1",.F.,.F.,{CALIASRSE})

MATA447B.PRW - GENFACENT() -> EXECBLOCK("M447BF1A",.F.,.F.,{"SF1","RSE"})

MATA447B.PRW - GENFACPED() -> AMASCABS := EXECBLOCK("M447BIPE",.F.,.F.)

MATA447B.PRW - M447IVA() -> LXFIS:=(MAFISFOUND() .AND. PROCNAME(1)<>"EXECBLOCK")

MATA447B.PRW - MT447BGENMOVINT() -> AMASITEM := EXECBLOCK("M447BD3I",.F.,.F.)

MATA447B.PRW - MT447BGENMOVINT() -> EXECBLOCK("M447BD3B",.F.,.F.,{RSC->RSC_NUMPED, CTIPODOC})

MATA447B.PRW - MT447BTRASPASO() -> EXECBLOCK("M447BD3R",.F.,.F.,{RSC->RSC_DOCTRA})

MATA447B.PRW - MT447BTRASPASO() -> EXECBLOCK("M447BD3T",.F.,.F.,{CDOCST})

MATA447B.PRW - MT447BTRASPASO() -> EXECBLOCK("M447BTE",.F.,.F.,{CALIASTRA})

MATA447B.PRW - MT447BTRASPASO() -> EXECBLOCK("M447BTS",.F.,.F.,{CALIASTRA})

MATA447C.PRW - M447CMOVINT() -> AMASITEM := EXECBLOCK("M447CSD3I",.F.,.F.)

MATA447C.PRW - MT447CABORRA() -> EXECBLOCK("M447C5R1AN",.F.,.F.)

MATA450.PRX - A450CONEST() -> EXECBLOCK("MTA450CO",.F.,.F.)

MATA450.PRX - A450GRAVA() -> LTRVSA1 := IIF(CPAISLOC == "BRA" .AND. LFATTRVSA1, EXECBLOCK("FATTRVSA1", .F., .F., {XFILIAL("SA1"), SA1->A1_COD, SA1->A1_LOJA}), .T.)

MATA450.PRX - A450LEGEND() -> ALEGENDA := EXECBLOCK("MA450COR",.F.,.F.,ALEGENDA)

MATA450.PRX - A450LIBMAN() -> EXECBLOCK("MT450FIM",.F.,.F.,{CPEDIDO})

MATA450.PRX - A450LIBMAN() -> EXECBLOCK("MTA450I",.F.,.F.,{NOPCA,DLIMLIB})

MATA450.PRX - A450LIBMAN() -> EXECBLOCK("MTA450R",.F.,.F.)

MATA450.PRX - A450LIBMAN() -> LCONTINUA := EXECBLOCK("MT450MAN",.F.,.F.)

MATA450.PRX - A450LIBMAN() -> LPROCESSA := EXECBLOCK("MTA450LIB",.F.,.F.,{(CALIASSC9)->C9_PEDIDO,(CALIASSC9)->C9_ITEM,NOPCA})

MATA450.PRX - A450LIBMAN() -> LPROCESSA := EXECBLOCK("MTA450LIB",.F.,.F.,{SC9->C9_PEDIDO,SC9->C9_ITEM,NOPCA})

MATA450.PRX - A450TELA() -> ACOLSNEW := EXECBLOCK('MT450COLS',.F.,.F.,{AHEADER,ACOLS})

MATA450.PRX - MA450PROCES() -> CQUERY := EXECBLOCK("MT450QRY",.F.,.F.,{ CQUERY })

MATA450.PRX - MA450PROCES() -> CTIPLIB := EXECBLOCK("MT450TPLI",.F.,.F.,{CTIPLIB})

MATA450.PRX - MA450PROCES() -> EXECBLOCK("MA450PED",.F.,.F.,{CQUEBRA} )

MATA450.PRX - MA450PROCES() -> EXECBLOCK("MT450END",.F.,.F.)

MATA450.PRX - MA450PROCES() -> EXECBLOCK("MT450ITE",.F.,.F.,{CALIASSC9})

MATA450.PRX - MA450PROCES() -> EXECBLOCK("MTA450T",.F.,.F.)

MATA450.PRX - MA450PROCES() -> EXECBLOCK("MTA450T2",.F.,.F.)

MATA450.PRX - MA450PROCES() -> NVALAV:=EXECBLOCK("MTVALAVC",.F.,.F.,{'MA450PROCES',SC9->C9_PRCVEN*SC9->C9_QTDLIB,NIL})

MATA450.PRX - MATA450() -> CCONDBLK := EXECBLOCK("M450FLB",.F.,.F.,{CCONDICAO})

MATA450.PRX - MATA450() -> CFILSC9 := EXECBLOCK("M450FIL",.F.,.F.)

MATA450.PRX - MENUDEF() -> EXECBLOCK("MA450MNU",.F.,.F.)

MATA450A.PRX - MA450CLMAN() -> ABROWSE := EXECBLOCK("M450BRW",.F.,.F., {ABROWSE})

MATA450A.PRX - MA450CLMAN() -> ABUTTONS := EXECBLOCK( "MT450ABT",.F.,.F. )

MATA450A.PRX - MA450CLMAN() -> EXECBLOCK("MTA450CL",.F.,.F.,{NOPCA,AREGSC6})

MATA450A.PRX - MA450CLMAN() -> EXECBLOCK("MTA450I",.F.,.F.,{NOPCA,DDATABASE})

MATA450A.PRX - MA450CLMAN() -> EXECBLOCK("MTA450R",.F.,.F.)

MATA450A.PRX - MA450CLMAN() -> EXECBLOCK("MTA450RP",.F.,.F.,{ NOPCA, CQUEBRA } )

MATA450A.PRX - MA450CLMAN() -> IF !(EXECBLOCK("M450CMAN",.F.,.F.,{NOPCA}))

MATA450A.PRX - MA450CLMAN() -> IF !(EXECBLOCK("M450TMAN",.F.,.F.))

MATA450A.PRX - MA450PCLI() -> CQUERY := EXECBLOCK('M450ABRW',.F.,.F.,{ CQUERY })

MATA455.PRX - A455FILTRO() -> CFILSC9 := EXECBLOCK( "M455FIL" , .F. , .F. )

MATA455.PRX - A455LIBALT() -> EXECBLOCK("MTA455NL",.F.,.F.)

MATA455.PRX - A455LIBALT() -> IF ( !EXECBLOCK("MTA455P",.F.,.F.,{ NOPCA }) )

MATA455.PRX - A455LIBALT() -> IF VALTYPE(ARET455SLD := EXECBLOCK("MTA455SLD",.F.,.F.,{ NOPCA, ASALDOS })) == "A"

MATA455.PRX - A455LIBAUT() -> NOPCA := EXECBLOCK("MTA455E",.F.,.F.,{NOPCA})

MATA455.PRX - A455LIBMAN() -> EXECBLOCK("MTA455I",.F.,.F.)

MATA455.PRX - A455LIBMAN() -> IF ( !EXECBLOCK("MTA455P",.F.,.F.,{ NOPCA }) )

MATA455.PRX - A455LIBMAN() -> IF VALTYPE(ARET455SLD := EXECBLOCK("MTA455SLD",.F.,.F.,{ NOPCA, ASALDOS })) == "A"

MATA455.PRX - A455SELLOTE() -> AAUX := EXECBLOCK("A455SLT1",.F.,.F.,{ASTRUTRB,ABROWSE})

MATA455.PRX - A455SELLOTE() -> DEFINE SBUTTON FROM APOSOBJ[1,1]+010,APOSOBJ[1,4]-070 TYPE 1 ACTION (NOPCA:=1,IIF(LVALSEL,(EXECBLOCK("MTA455VL",.F.,.F.,{"TRB"}),(LSELECAO := .T., ODLG:END(),.T.),.F.),ODLG:END()))  ENABLE OF ODLG

MATA455.PRX - A455SELLOTE() -> EXECBLOCK("A455SLT2",.F.,.F.)

MATA455.PRX - A455SELLOTE() -> LUSAVENC := EXECBLOCK("A455VENC",.F.,.F.)

MATA455.PRX - A455SELLOTE() -> NQTDSEL := EXECBLOCK("MTA455ML",.F.,.F.,{"TRB"})

MATA455.PRX - MENUDEF() -> EXECBLOCK("MA455MNU",.F.,.F.)

MATA456.PRX - A456LIBMAN() -> EXECBLOCK("MTA456I",.F.,.F.)

MATA456.PRX - A456LIBMAN() -> EXECBLOCK("MTA456L",.F.,.F.,{NOPCA})

MATA456.PRX - A456LIBMAN() -> EXECBLOCK("MTA456R",.F.,.F.)

MATA456.PRX - A456LIBMAN() -> IF LMTA456P .AND. ( !EXECBLOCK("MTA456P",.F.,.F.,{NOPCA}) )

MATA456.PRX - MENUDEF() -> EXECBLOCK("MTA456MNU",.F.,.F.)

MATA460A.PRX - MENUDEF() -> AROTADIC := EXECBLOCK("MA461ROT", .F., .F.)

MATA461.PRX - A461LEGEND() -> ACORES := EXECBLOCK("M461LEG",.F.,.F.,ACORES)

MATA461.PRX - A461SALDO() -> LOCAL LM461SLD := AENTRY[EP_M461SLD] .AND. EXECBLOCK("M461SLD",.F.,.F.)

MATA461.PRX - A461SALDO() -> LRET := EXECBLOCK("M461ADT",.F.,.F.,{CPEDIDO, CITEM})

MATA461.PRX - MA460INFOR() -> LIVAAJU := IIF(!LISRUSSIA .AND. SB1->B1_IVAAJU == '1' .AND. (IIF(LRASTRO,LRASTROLOT := EXECBLOCK("MAFISRASTRO",.F.,.F.),RASTRO(CPRODUTO,"S"))),.T.,.F.)

MATA461.PRX - MA460NOTA() -> EXECBLOCK("M460NOTA",.F.,.F.,{CALIAS})

MATA461.PRX - MA460NOTA() -> EXECBLOCK("M460PROC",.F.,.F.,{ SC9->(INDEXORD())})

MATA461.PRX - MA460PROC() -> CKEYSC9 := EXECBLOCK("M460ORD",.F.,.F.,CKEYSC9)

MATA461.PRX - MA460PROC() -> EXECBLOCK( "M461DINF", .F., .F. )

MATA461.PRX - MA460PROC() -> LEXECUTA := EXECBLOCK("M460MARK",.F.,.F.,{THISMARK(),THISINV(),CSERIE})

MATA461.PRX - MA460PROC() -> LGERAVTOT := EXECBLOCK("M461VTOT",.F.,.F.,{NTOTAL,IIF(LEN(APVLNFS)>0,APVLNFS[LEN(APVLNFS),11],0)})

MATA461.PRX - MA460PROC() -> LQUEBRA := EXECBLOCK("M460QUEB",.F.,.F.,{CCURSOR3,APVLNFS})

MATA461.PRX - MA460PROC() -> NITEMNF := EXECBLOCK("M460NITE",.F.,.F.,{LEN(APVLNFS),APVLNFS})

MATA461.PRX - MA461EST2() -> LVALIDO := EXECBLOCK("MA461EST",.F.,.F.)

MATA461.PRX - MA461NUMNF() -> CFILSX5 := EXECBLOCK("CHGX5FIL",.F.,.F.)

MATA461.PRX - MA461NUMNF() -> EXECBLOCK("MA461NNF",.F.,.F.,{CDOCRET,"1"})

MATA461.PRX - MA461NUMNF() -> EXECBLOCK("MA461NNF",.F.,.F.,{CDOCRET,"2"})

MATA461.PRX - MAACREFINADT() -> AVAR  := EXECBLOCK("M460PRC",.F.,.F.,{NPRCVEN,NPRUNIT})

MATA461.PRX - MAACREFINADT() -> NACRESFIN := EXECBLOCK("M461ACRE",.F.,.F.,{NPRCVEN,NPRUNIT,NACRESFIN})

MATA461.PRX - MAAVALSD2() -> ACUSTO := EXECBLOCK("M460CUST",.F.,.F.,{ACUSTO})

MATA461.PRX - MAAVALSD2() -> ACUSTO := EXECBLOCK("M460GCUS",.F.,.F.,{AENVCUS})

MATA461.PRX - MAAVALSD2() -> EXECBLOCK("M460ATEC",.F.,.F.)

MATA461.PRX - MAAVALSD2() -> EXECBLOCK("MSD2460",.F.,.F.,{CALIASSD2,LFORCEEST})

MATA461.PRX - MAAVALSD2() -> IF(AENTRY[EP_M460ATEC],EXECBLOCK("M460ATEC",.F.,.F.),NIL) },;

MATA461.PRX - MAAVALSD2() -> LATUSB3 := EXECBLOCK("M461SB3", .F., .F. , {})

MATA461.PRX - MAAVALSF2() -> EXECBLOCK("MTASF2",.F.,.F.)

MATA461.PRX - MANFS2FIN() -> ARECNOS := EXECBLOCK("M461GRVTAB", .F., .F., {ARECNOS})

MATA461.PRX - MANFS2FIN() -> AVENCTO := CONDICAO(ATITULO[_VLRTIT_]+NABTISS,SF2->F2_COND,SF2->F2_VALIPI,DDATACND,SF2->F2_ICMSRET,,EXECBLOCK("ME4_COND",.F.,.F.),ATITULO[_VLRACR_])

MATA461.PRX - MANFS2FIN() -> AVENCTO := EXECBLOCK("GMMA410DUPL",.F.,.F.,{CPEDIDO ,SF2->F2_COND,DDATACND,,ATITULO[_VLRTIT_]+NABTISS,AVENCTO}, .F., .F.)

MATA461.PRX - MANFS2FIN() -> AVENCTO := EXECBLOCK("GMMA410DUPL",.F.,.F.,{CPEDIDO ,SF2->F2_COND,DDATACND,,ATITULO[_VLRTIT_],AVENCTO}, .F., .F.)

MATA461.PRX - MANFS2FIN() -> AVENCTO := EXECBLOCK("MT461VCT",.F.,.F.,{AVENCTO,ATITULO})

MATA461.PRX - MANFS2FIN() -> CMOEDATIT := EXECBLOCK("M460MOED", .F., .F.,CMOEDATIT)

MATA461.PRX - MANFS2FIN() -> CPARCELA := EXECBLOCK("M4601DUP",.F.,.F.,{CPARCELA})

MATA461.PRX - MANFS2FIN() -> DDATACND := EXECBLOCK("M460COND", .F., .F.,{DDATACND})

MATA461.PRX - MANFS2FIN() -> EXECBLOCK("F440COM",.F.,.F., ARECSE1)

MATA461.PRX - MANFS2FIN() -> SE1->E1_INSS := EXECBLOCK("M460INSS", .F., .F.,SE1->E1_INSS)

MATA461.PRX - MANFS2FIN() -> SE1->E1_IRRF := EXECBLOCK("M460IREN",.F.,.F.,SE1->E1_IRRF)

MATA461.PRX - MANFS2NFS() -> EXECBLOCK("M460FIM",.F.,.F.)

MATA461.PRX - MANFS2NFS() -> EXECBLOCK("M460NUM",.F.,.F.)

MATA461.PRX - MANFS2NFS2() -> EXECBLOCK("SF2460I",.F.,.F.)

MATA461.PRX - MANFS2NFS2() -> NITEMNF := EXECBLOCK("M460NITE",.F.,.F.,{LEN(ASD2),ASD2})

MATA461.PRX - MANFS2NFS2() -> SD2->D2_QTSEGUM := EXECBLOCK("MSD2UM2",.F.,.F.,0)

MATA461.PRX - MANFSCALRT() -> ADADOSREF := EXECBLOCK("M461CRET",.F.,.F.,{DREFERENCIA ,ADADOSREF})

MATA461.PRX - MANFSCALRT() -> AFIL10925 := EXECBLOCK( "F040FRT", .F., .F. )

MATA461.PRX - MANFSCALRT() -> ARECNOS := EXECBLOCK("M461RECNO", .F., .F., {ARECNOS, CALIASQRY})

MATA461.PRX - MANFSCALRT() -> CQUERY := EXECBLOCK("M461RTQY",.F.,.F.,{CQUERY})

MATA461.PRX - MANFSCALRT() -> LPROCESSA := EXECBLOCK( "M461RTFI", .F., .F.,{ ( CALIASQRY )->RECNO } )

MATA461.PRX - MAPVL2SD2() -> ASOLIDTMP := EXECBLOCK("M460SOLI",.F.,.F.,{NITEM,SC6->C6_ITEM})

MATA461.PRX - MAPVL2SD2() -> CGRPCLITRB := EXECBLOCK( "M461GRP", .F., .F. )

MATA461.PRX - MAPVL2SD2() -> CMOEDATIT := EXECBLOCK("M460MOED", .F., .F.,CMOEDATIT)

MATA461.PRX - MAPVL2SD2() -> EXECBLOCK("M460ICM",.F.,.F., { NITEM } )

MATA461.PRX - MAPVL2SD2() -> MAFISALT("IT_VALIPI",EXECBLOCK("M460IPI",.F.,.F.,{SC9->(RECNO()),NITEM}),NITEM,.T.)

MATA461.PRX - MAPVL2SD2() -> MAFISLOAD("IT_VALISS",EXECBLOCK("M460VISS",.F.,.F.,MAFISRET(NITEM,"IT_VALISS")),NITEM)

MATA461.PRX - MAPVL2SD2() -> SD2->D2_QTSEGUM := EXECBLOCK("MSD2UM2",.F.,.F.,SC9->(RECNO()))

MATA461.PRX - MAPVL2SF2() -> EXECBLOCK("M461LSF2",.F.,.F.)

MATA461.PRX - MAPVLNFS() -> EXECBLOCK("M460FIM",.F.,.F.)

MATA461.PRX - MAPVLNFS() -> EXECBLOCK("M460NUM",.F.,.F.,APVLNFS)

MATA461.PRX - MAPVLNFS() -> EXECBLOCK("M461SER",.F.,.F.,APVLNFS)

MATA461.PRX - MAPVLNFS() -> LTRAVASB2 := EXECBLOCK("M461TRV",.F.,.F.)

MATA461.PRX - MAPVLNFS2() -> APEDIDO := EXECBLOCK("M460RTPD",.F.,.F.,APEDIDO)

MATA461.PRX - MAPVLNFS2() -> APVLNFS := EXECBLOCK("M460ITPD",.F.,.F.,APVLNFS)

MATA461.PRX - MAPVLNFS2() -> ARATEIO := EXECBLOCK("M460RAT",.F.,.F.,ARATEIO)

MATA461.PRX - MAPVLNFS2() -> ARETIMPFI:= EXECBLOCK("M461IMPF",.F.,.F.,(APVLNFS))

MATA461.PRX - MAPVLNFS2() -> CQUERY := EXECBLOCK("M460QRY",.F.,.F.,{ CQUERY , 2})

MATA461.PRX - MAPVLNFS2() -> CQUERY := EXECBLOCK("M460QRY",.F.,.F.,{ CQUERY , 3})

MATA461.PRX - MAPVLNFS2() -> EXECBLOCK("SF2460I",.F.,.F.)

MATA461.PRX - MAPVLNFS2() -> LTRVSA1 := IIF(CPAISLOC == "BRA" .AND. LFATTRVSA1, EXECBLOCK("FATTRVSA1", .F., .F., {XFILIAL("SA1"), SA1->A1_COD, SA1->A1_LOJA}), .T.)

MATA461.PRX - MAPVPRCIT() -> AVAR  := EXECBLOCK("M460PRC",.F.,.F.,{NPRCVEN,NPRUNIT})

MATA461.PRX - MAPVPRCIT() -> NACRESFIN := EXECBLOCK("M461ACRE",.F.,.F.,{NPRCVEN,NPRUNIT,NACRESFIN})

MATA461.PRX - MAPVPRCIT() -> NPERISS := EXECBLOCK("M460ISS",.F.,.F.,{NX})

MATA461.PRX - MATA460A() -> ACORES := EXECBLOCK("M461COR",.F.,.F.,ACORES)

MATA461.PRX - MATA460A() -> CFILSC9 += ".AND."+EXECBLOCK("M460FIL",.F.,.F.)

MATA461.PRX - MATA460A() -> CQRYSC9 := EXECBLOCK("M460QRY",.F.,.F.,{ CQRYSC9 , 1 })

MATA461.PRX - MATA460B() -> C460COND := EXECBLOCK("M460MKB", .F., .F.)

MATA461.PRX - MODELDEF() -> ARET := EXECBLOCK('MA461MDL',.F.,.F.)

MATA462AN.PRW - A462ANDIVID() -> ARETPE  := EXECBLOCK("M462SLP",.F.,.F.,{NOPCA,NQTDEORIG,NQTDELIB})

MATA462AN.PRW - A462NMRK() -> IF VALTYPE( LCONTINUA := EXECBLOCK("M462MARKB",.F.,.F.) ) <> "L"

MATA462AN.PRW - GERATRB() -> CUSERCOND:=EXECBLOCK('M462NFLT',.F.,.F.,CQUERY)

MATA462AN.PRW - GERATRB() -> IF VALTYPE(ACAMPOSPE := EXECBLOCK("M462CPOS",.F.,.F.)) == "A"

MATA462AN.PRW - OF DIALOG FOR F2_DTSAIDA() -> EXECBLOCK("M462FIM",.F.,.F.,{AREMS})

MATA462AN.PRW - OF DIALOG FOR F2_DTSAIDA() -> EXECBLOCK("M462GRV",.F.,.F.,{AHEADSF2,ASF2,AHEADER,ACOLS,ANUM,APERGS,NX})

MATA462AN.PRW - PEGANUM() -> LOCAL CSERIE:= IIF(FINDFUNCTION("U_M462SER"),EXECBLOCK("M462SER",.F.,.F.),"R  ")

MATA462T.PRW - A462PRCENT() -> EXECBLOCK("MREM002",.F.,.F.)

MATA462T.PRW - A462SALID() -> CCPOS := EXECBLOCK("RMTCPO01")

MATA462T.PRW - A462SALID() -> EXECBLOCK("RMTSCM01")

MATA462T.PRW - A462SALID() -> EXECBLOCK("RMTSCM03")

MATA462T.PRW - A462SALID() -> EXECBLOCK("RMTSCN01")

MATA464.PRX - A464BOK() -> LRET:= EXECBLOCK("F3VLDSER",.F.,.F.,{CSERIE,CNFISCAL})

MATA464.PRX - A464SX5FA() -> CFILTRO := EXECBLOCK("M465LOJA")

MATA464.PRX - MENUDEF() -> EXECBLOCK("M464MNU",.F.,.F.)

MATA468N.PRX - A468DOCELE() -> EXECBLOCK( "M468S3DE" , .F. , .F. )

MATA468N.PRX - A468DOCELE() -> EXECBLOCK("M468DOCE",.F.,.F.,{LGERA})

MATA468N.PRX - A468NCONSIG() -> IF !(EXECBLOCK("M468CONS",.F.,.F.))

MATA468N.PRX - A468NDIVSC9() -> IF !EXECBLOCK("M468DVC9",.F.,.F., {SC9->C9_PEDIDO,SC9->C9_ITEM,SC9->C9_SEQUEN,SC9->C9_QTDLIB})

MATA468N.PRX - A468NDUPL() -> AVENC := EXECBLOCK("MT468VCT",.F.,.F.,{AVENC})

MATA468N.PRX - A468NDUPL() -> NMOEDAFIN := EXECBLOCK("M468MOED",.F.,.F., { LPEDIDOS, NMOEDSEL, NTIPOGER, NMOEDAFIN })

MATA468N.PRX - A468NFATURA() -> IF !EXECBLOCK("M460MARK",.F.,.F.,{CMARCA,LINVERTE})

MATA468N.PRX - A468NGERA() -> ACAIXAFIN:=EXECBLOCK("M468CAIX",.F.,.F.)

MATA468N.PRX - A468NGERA() -> ANFS[NNFS] := EXECBLOCK("A468NORD",.F.,.F.,ANFS[NNFS])

MATA468N.PRX - A468NGERA() -> ARETIMPFIS := EXECBLOCK("M460IMPF",.F.,.F.)

MATA468N.PRX - A468NGERA() -> EXECBLOCK("M460FIM",.F.,.F.)

MATA468N.PRX - A468NGERA() -> EXECBLOCK("M468NGRV",.F.,.F.,{APEDS})

MATA468N.PRX - A468NGRAVD2() -> EXECBLOCK( "M468SD2",.F.,.F.)

MATA468N.PRX - A468NGRAVD2() -> EXECBLOCK("GRVCOSB2",.F.,.F.)

MATA468N.PRX - A468NGRAVD2() -> EXECBLOCK("MSD2460",.F.,.F.)

MATA468N.PRX - A468NGRAVD2() -> NACRESFIN := EXECBLOCK("M468ACRE",.F.,.F.,{NPRCVEN,NPRCBRUTO})

MATA468N.PRX - A468NGRAVD2() -> NQTD2UM := EXECBLOCK("MSD2UM2",.F.,.F.)

MATA468N.PRX - A468NGRAVD2() -> NQTD2UM := EXECBLOCK("MSD2UM2",.F.,.F.,NRECC9)

MATA468N.PRX - A468NGRAVF2() -> EXECBLOCK("F440COM",.F.,.F., AREGSE1)

MATA468N.PRX - A468NGRAVF2() -> EXECBLOCK("MTASF2",.F.,.F.)

MATA468N.PRX - A468NGRAVF2() -> EXECBLOCK("SF2460I",.F.,.F.)

MATA468N.PRX - A468NGRAVRE() -> EXECBLOCK("M468APED",.F.,.F.)

MATA468N.PRX - A468NIMP() -> NACRESFIN := EXECBLOCK("M468ACRE",.F.,.F.,{NPRCVEN,NPRCBRUTO})

MATA468N.PRX - A468NMRK() -> IF VALTYPE( LCONTINUA := EXECBLOCK("M468MARKB",.F.,.F.,{LPEDIDOS}) ) <> "L"

MATA468N.PRX - A468NNOTAS() -> LCONFIRMA:=EXECBLOCK('A468VNUM',.F.,.F.,{ANUMS,LCONFIRMA,ANFS,AFACS})

MATA468N.PRX - A468NNOTAS() -> LOCAL LCHGSER:= IIF(EXISTBLOCK("M468CHGS"),EXECBLOCK("M468CHGS",.F.,.F.),.T.)

MATA468N.PRX - A468NPRCC9() -> C468NCOND := EXECBLOCK("M468MKB", .F., .F.,{"Q"})

MATA468N.PRX - A468NPRCC9() -> IF VALTYPE(ACAMPOSPE := EXECBLOCK("M468PED",.F.,.F.)) == "A"

MATA468N.PRX - A468NPRCD2() -> C468NCOND := EXECBLOCK("M468MKB", .F., .F.,{"Q"})

MATA468N.PRX - A468NPRCD2() -> IF VALTYPE(ACAMPOSPE := EXECBLOCK("M468REM",.F.,.F.)) == "A"

MATA468N.PRX - A468NPROCES() -> AQUEBRANEW:=EXECBLOCK("LM468PROC",.F.,.F., AQUEBRAREM)

MATA468N.PRX - A468NPROCES() -> CSERIE := EXECBLOCK( "M468ASER",.F.,.F., {0,CSERIE})

MATA468N.PRX - A468REMENT() -> ASD1[LEN(ASD1)]:=ACLONE(EXECBLOCK('M468SD1',.F.,.F.,{ACLONE(ASD1[LEN(ASD1)]),ACLONE(AHEADER)} ))

MATA468N.PRX - A468REMENT() -> ASF1:=ACLONE(EXECBLOCK('M468SF1',.F.,.F.,{ACLONE(ASF1),ACLONE(AHEADSF1)}))

MATA468N.PRX - A468REMFUT() -> ADADOS:=EXECBLOCK('A468RMFUT',.F.,.F.,{ACABPV,AITEMPV})

MATA468N.PRX - A468TXMOED() -> NTASANEW := EXECBLOCK("MT468TX",.F.,.F., {NTAXAMOEDA,NMOEDA,NTXMOEDA,LPEDIDOS,NMOEDSEL,NTIPOGER,ATXMOEDAS})

MATA468N.PRX - DLGTESPEND() -> ARETBLK := EXECBLOCK("M468PENT",.F.,.F.)

MATA468N.PRX - MATA468N() -> EXECBLOCK("M468VFIM",.F.,.F.)

MATA469.PRX - A469DESAP() -> EXECBLOCK("M469DESPV",.F.,.F.,{"TRB"})

MATA486.PRW - M486CEXT() -> AM486CEXT := EXECBLOCK("M486CEXT", .F., .F., {AFACT,CESPECIE} )

MATA486.PRW - M486GENDOC() -> CXML:= EXECBLOCK("M486PECR",.F.,.F.,{CFILTAB, AFACT[NI,2], AFACT[NI,5], AFACT[NI,6], AFACT[NI,3], AFACT[NI,4]})

MATA486.PRW - M486GENDOC() -> CXML:= EXECBLOCK("M486PEGR",.F.,.F.,{CFILTAB, AFACT[NI,1],AFACT[NI,2], AFACT[NI,3], AFACT[NI,4],CESPECIE})

MATA486.PRW - M486GENDOC() -> CXML:= EXECBLOCK("M486PENC",.F.,.F.,{CFILTAB, AFACT[NI,1], AFACT[NI,3], AFACT[NI,4], AFACT[NI,2], CESPECIE})

MATA486.PRW - M486GENDOC() -> CXML:= EXECBLOCK("M486PEND",.F.,.F.,{CFILTAB, AFACT[NI,1], AFACT[NI,3], AFACT[NI,4], AFACT[NI,2], CESPECIE})

MATA486.PRW - M486GENDOC() -> CXML:= EXECBLOCK("M486PENF",.F.,.F.,{CFILTAB, AFACT[NI,1], AFACT[NI,3], AFACT[NI,4], AFACT[NI,2], CESPECIE})

MATA486.PRW - M486PROCTRAN() -> AM486EBOL := EXECBLOCK("M486EBOL",.F.,.F.,{AFACT, CESPECIE})

MATA486.PRW - M486SENDDOC() -> CXML:= EXECBLOCK("M486PECR",.F.,.F.,{CFILTAB, AFACT[NI,2], AFACT[NI,5], AFACT[NI,6], AFACT[NI,3], AFACT[NI,4]})

MATA486.PRW - M486SENDDOC() -> CXML:= EXECBLOCK("M486PEGR",.F.,.F.,{CFILTAB, AFACT[NI,1],AFACT[NI,2], AFACT[NI,3], AFACT[NI,4],CESPECIE})

MATA486.PRW - M486SENDDOC() -> CXML:= EXECBLOCK("M486PENC",.F.,.F.,{CFILTAB, AFACT[NI,1], AFACT[NI,3], AFACT[NI,4], AFACT[NI,2], CESPECIE})

MATA486.PRW - M486SENDDOC() -> CXML:= EXECBLOCK("M486PEND",.F.,.F.,{CFILTAB, AFACT[NI,1], AFACT[NI,3], AFACT[NI,4], AFACT[NI,2], CESPECIE})

MATA486.PRW - M486SENDDOC() -> CXML:= EXECBLOCK("M486PENF",.F.,.F.,{CFILTAB, AFACT[NI,1], AFACT[NI,3], AFACT[NI,4], AFACT[NI,2], CESPECIE})

MATA486.PRW - MENUDEFT() -> AOPCADI:= EXECBLOCK("M486OPMNU",.F.,.F.)

MATA490.PRX - A490ALTERA() -> ABUTTONS := EXECBLOCK("MT490BUT",.F.,.F.)

MATA490.PRX - A490ALTERA() -> EXECBLOCK("MA490ALT",.F.,.F.)

MATA490.PRX - A490ALTERA() -> LCONTINUA := EXECBLOCK("MA490CALT",.F.,.F.)

MATA490.PRX - A490ATU() -> EXECBLOCK("A490ATU",.F.,.F.)

MATA490.PRX - A490DELETA() -> ABUTTONS := EXECBLOCK("MT490BUT",.F.,.F.)

MATA490.PRX - A490DELETA() -> EXECBLOCK("MA490DE2",.F.,.F.)

MATA490.PRX - A490DELETA() -> EXECBLOCK("MA490DEL",.F.,.F.)

MATA490.PRX - A490DELETA() -> LCONTINUA:=EXECBLOCK("MA490CDEL",.F.,.F.)

MATA490.PRX - A490INCLUI() -> ABUTTONS := EXECBLOCK("MT490BUT",.F.,.F.)

MATA490.PRX - MA490TUDOK() -> LRETORNO := EXECBLOCK("A490TDOK",.F.,.F.)

MATA490.PRX - MENUDEF() -> EXECBLOCK("MT490MNU",.F.,.F.)

MATA500.PRX - MA500NCC() -> AREGAUTO := EXECBLOCK("MA550NCI",,,{AREGAUTO})

MATA500.PRX - MA500PROC() -> CFILTRO := EXECBLOCK("MTA500FIL",.F.,.F.)

MATA500.PRX - MA500PROC() -> EXECBLOCK("MTA500PROC",.F.,.F.)

MATA500.PRX - MA500PROC() -> LGERANCC := EXECBLOCK('MT500GRNCC', .F., .F.)

MATA500.PRX - MA500PROC() -> LRETORNO := EXECBLOCK('MT500ANT', .F., .F.)

MATA500.PRX - MA500PROC() -> LRETORNO := EXECBLOCK('MT500NCC', .F., .F.)

MATA500.PRX - MARESDOFAT() -> EXECBLOCK('MT500APO',.F.,.F.,{LRESIDUO})

MATA500.PRX - MARESDOFAT() -> LTRVSA1 := IIF(CPAISLOC == "BRA" .AND. LFATTRVSA1, EXECBLOCK("FATTRVSA1", .F., .F., {XFILIAL("SA1"), SA1->A1_COD, SA1->A1_LOJA}), .T.)

MATA500.PRX - MATA500() -> CQUERY += " AND "+EXECBLOCK("MTA500QRY",.F.,.F.,)

MATA512.PRW - MENUDEF() -> EXECBLOCK("MA512MNU",.F.,.F.)

MATA521.PRX - FATJOBNFE() -> EXECBLOCK("SF2520E",.F.,.F.)

MATA521.PRX - MA521MARK2() -> EXECBLOCK("SF2520E",.F.,.F.)

MATA521.PRX - MA521MARK2() -> LVALIDO := EXECBLOCK("MS520VLD",.F.,.F.)

MATA521.PRX - MA521MBROW() -> EXECBLOCK("SF2520E",.F.,.F.)

MATA521.PRX - MA521MBROW() -> LVALIDO := EXECBLOCK("MS520VLD",.F.,.F.)

MATA521.PRX - MACANDELF2() -> EXECBLOCK("MA520SE1",.F.,.F.)

MATA521.PRX - MACANDELF2() -> LFATTSS:= EXECBLOCK("M521TRAN",.F.,.F.)

MATA521.PRX - MACANDELF2() -> LOCAL LMA521FN6:= EXISTBLOCK("MA521FN6") .AND. EXECBLOCK("MA521FN6",.F.,.F.)

MATA521.PRX - MACANDELF2() -> LRETORNO := EXECBLOCK("M521CDEL",.F.,.F.)

MATA521.PRX - MADELNFS() -> EXECBLOCK("M521DNFS",.F.,.F.,{APEDIDO})

MATA521.PRX - MADELNFS() -> EXECBLOCK("MS520DEL",.F.,.F.)

MATA521.PRX - MADELNFS() -> EXECBLOCK("MSD2520",.F.,.F.)

MATA521.PRX - MADELNFS() -> LCARTEIRA := EXECBLOCK("M521CART",.F.,.F.)

MATA521.PRX - MAESTNFAA3() -> EXECBLOCK("M521ATEC",.F.,.F.)

MATA521.PRX - MATA521A() -> CQRYSF2 := IF(LM520QRY, EXECBLOCK("M520QRY",.F.,.F.,{ CQRYSF2 , 1 }), CQRYSF2)

MATA521.PRX - MATA521A() -> EXECBLOCK("M520BROW",.F.,.F.)

MATA530.PRX - CA530OK() -> LRET := EXECBLOCK("M530OK",.F.,.F.)

MATA530.PRX - FA530PROCESSA() -> CCODRET:= EXECBLOCK("M530DIRF")

MATA530.PRX - FA530PROCESSA() -> EXECBLOCK("M530FIM",.F.,.F.)

MATA530.PRX - FA530PROCESSA() -> EXECBLOCK("M530TIT",.F.,.F.)

MATA530.PRX - FA530PROCESSA() -> EXECBLOCK("MSE2530",.F.,.F.)

MATA530.PRX - FA530PROCESSA() -> LNAOAGLUTINA := EXECBLOCK("M530AGL",.F.,.F.)

MATA540.PRX - A540GRAVA() -> EXECBLOCK("MT540EXC",.F.,.F.,{SF7->F7_GRTRIB,OGRID:AHEADER,OGRID:ACOLS})

MATA540.PRX - A540GRAVA() -> EXECBLOCK("MT540GRV",.F.,.F.)

MATA540.PRX - A540TUDOK() -> LGRAVA := EXECBLOCK("MT540VLD",.F.,.F.,{NOPERATION,OMDGRID:ACOLS})

MATA550.PRX - A550ALTERA() -> EXECBLOCK('MTA550A', .F., .F.)

MATA550.PRX - A550DELETA() -> EXECBLOCK( "A550EXC", .F., .F. , { AHEADER,ACOLS })

MATA550.PRX - A550DELETA() -> EXECBLOCK('MTA550E', .F., .F.)

MATA550.PRX - A550DELETA() -> IF VALTYPE(LPEVEX:=EXECBLOCK("MT550VEX",.F.,.F.))<>"L"

MATA550.PRX - A550GETALT() -> ABUTTONS := EXECBLOCK("A550BUT",.F.,.F.,{ ODLG, OGET } )

MATA550.PRX - A550GETALT() -> EXECBLOCK( "A550ALT", .F., .F. , { AHEADER,ACOLS })

MATA550.PRX - A550GETINC() -> ABUTTONS := EXECBLOCK("A550BUT",.F.,.F.,{ODLG, OGET })

MATA550.PRX - A550GETINC() -> EXECBLOCK( "A550INC", .F., .F. , { AHEADER,ACOLS })

MATA550.PRX - A550GRAVA() -> EXECBLOCK('MT550PG', .F., .F.,{APRODUTOS,APRODALT})

MATA550.PRX - A550GRAVA() -> EXECBLOCK('MTA550G', .F., .F.)

MATA550.PRX - A550GRAVA() -> LALTSB1:=EXECBLOCK("A550ALTB1",.F.,.F.)

MATA550.PRX - A550VALID() -> LRETPE := EXECBLOCK("MA550VCPO",.F.,.F.,{I, CCONTEUDO})

MATA550.PRX - MENUDEF() -> EXECBLOCK ("MTA550MNU",.F.,.F.)

MATA560.PRX - MA560COND2() -> CMA560CON := EXECBLOCK("MA560CON",,,{CCONDICAO})

MATA560.PRX - MA560PROCESS() -> EXECBLOCK("MTA560G",.F.,.F.)

MATA560.PRX - MA560PROCESS() -> NVALPROD += EXECBLOCK("M560SD1",.F.,.F.)

MATA610.PRX - A610PEOK() -> LRET := EXECBLOCK("MT610OK",.F.,.F.,{NOPC})

MATA610.PRX - MENUDEF() -> EXECBLOCK("MTA610MNU",.F.,.F.)

MATA620EVDEF.PRW - AFTERTTS() -> EXECBLOCK("A620GRV",.F.,.F.,{CCODIGO})

MATA620EVDEF.PRW - MODELPOSVLD() -> LRET := EXECBLOCK("MA620TOK",.F.,.F.)

MATA630.PRX - A630ACOLS() -> ACOLSANT := EXECBLOCK( "MA630RS",.F.,.F.,{C630COD,C630PROD,C630CODAUX,C630PRODAU,AHEADER,ACOLS})

MATA630.PRX - A630ALTERA() -> ABUTTONS := EXECBLOCK( "MA630BUT",.F.,.F.,{NOPCX,ABUTTONS})

MATA630.PRX - A630ALTERA() -> EXECBLOCK('QP010J11',.F.,.F.)

MATA630.PRX - A630ALTERA() -> LCONFALT := EXECBLOCK('MA630ALT',.F.,.F.)

MATA630.PRX - A630DELETA() -> ABUTTONS := EXECBLOCK( "MA630BUT",.F.,.F.,{NOPCX,ABUTTONS})

MATA630.PRX - A630DELETA() -> LCONFDEL := EXECBLOCK('MA630DEL',.F.,.F.)

MATA630.PRX - A630GRAVA() -> EXECBLOCK("MA630GRV",.F.,.F.,{NX})

MATA630.PRX - A630INCLUI() -> ABUTTONS := EXECBLOCK( "MA630BUT",.F.,.F.,{NOPCX,ABUTTONS})

MATA630.PRX - A630INCLUI() -> EXECBLOCK( "MA630FIN", .F., .F., {NOPCA} )

MATA630.PRX - A630INCLUI() -> EXECBLOCK('QP010J11',.F.,.F.)

MATA630.PRX - A630INCLUI() -> LCONFINC := EXECBLOCK('MA630INC',.F.,.F.)

MATA630.PRX - A630LINOK() -> LRET := EXECBLOCK('MA630VLI',.F.,.F.)

MATA630.PRX - A630TUDOK() -> LRET := EXECBLOCK('MA630VTU',.F.,.F.)

MATA630.PRX - A630VALDEL() -> LRET := EXECBLOCK("MA630VLE",.F.,.F.)

MATA630.PRX - A630VISUAL() -> ABUTTONS := EXECBLOCK( "MA630BUT",.F.,.F.,{NOPCX,ABUTTONS})

MATA630.PRX - MATA630() -> CFILTRASG2 := EXECBLOCK("MTA630FIL",.F.,.F.)

MATA630.PRX - MENUDEF() -> EXECBLOCK("MTA630MNU",.F.,.F.)

MATA632.PRW - GRIDOPABERTAS() -> IF EXECBLOCK("M632GOPABR",.F.,.F.)

MATA632.PRW - VIEWDEF() -> CADDFIELDS := EXECBLOCK("M632ADDFLD",.F.,.F.)

MATA635.PRX - A635BXCOMP() -> APE := EXECBLOCK("MA635SGF",.F.,.F., {ACOMP})

MATA635.PRX - A635TUDOK() -> LOK := EXECBLOCK("MT635TOK",.F.,.F.)

MATA635.PRX - MENUDEF() -> EXECBLOCK("MTA635MNU",.F.,.F.)

MATA640.PRX - A640VLDAUTO() -> LRET := EXECBLOCK("MT640VLD",.F.,.F.,{NOPC,C640REC,C640CCUSTO})

MATA650.PRX - A650ACOLS() -> EXECBLOCK("A650ADCOL",.F.,.F.,{CPRODUTO,NQUANTPAI,COPCIONAIS,CREVISAO,SC2->C2_DATPRI})

MATA650.PRX - A650ACOLS() -> EXECBLOCK("A650GRVOPC",.F.,.F.,COPCIONAIS)

MATA650.PRX - A650ACOLS() -> EXECBLOCK("A650VALEST",.F.,.F.,{CPRODUTO,SG1->G1_COMP})

MATA650.PRX - A650ACOLS() -> LEMPALT :=!EXECBLOCK('A650CALT',.F.,.F.,{SG1->G1_COMP, NQTDDIF, CPRODUTO, NQUANTPAI, CLOCPROC,SC2->C2_DATPRI })

MATA650.PRX - A650ACOLS() -> NSLDDISP := EXECBLOCK("A650SALDO",.F.,.F.,NSLDDISP)

MATA650.PRX - A650ALTERA() -> AALTERUSR:=EXECBLOCK("MTA650ALT",.F.,.F.,{AALTER})

MATA650.PRX - A650ALTERA() -> ABUT650:=EXECBLOCK("M650BCHOI",.F.,.F.)

MATA650.PRX - A650ALTERA() -> EXECBLOCK("M650CAN",.F.,.F., {2})

MATA650.PRX - A650ALTERA() -> EXECBLOCK("MTA650A",.F.,.F.)

MATA650.PRX - A650ALTERA() -> EXECBLOCK("QIPR041",.F.,.F.,{"MATA650",SC2->C2_NUM+SC2->C2_ITEM+SC2->C2_SEQUEN})

MATA650.PRX - A650ALTERA() -> LOCAL L650EMI:= IF(EXISTBLOCK("MA650EMI"),EXECBLOCK("MA650EMI",.F.,.F.),.T.)

MATA650.PRX - A650ALTERA() -> LRETPE := EXECBLOCK("MTA650ATHY",.F.,.F.)

MATA650.PRX - A650COMP() -> LRET:=EXECBLOCK("A650AVALC",.F.,.F.,LRET)

MATA650.PRX - A650DELC1C7() -> EXECBLOCK('MT650DC1',.F.,.F.)

MATA650.PRX - A650DELETA() -> ABUT650:=EXECBLOCK("M650BCHOI",.F.,.F.)

MATA650.PRX - A650DELETA() -> EXECBLOCK("M650CAN",.F.,.F., {3})

MATA650.PRX - A650DELETA() -> EXECBLOCK("MA650ENOT",.F.,.F.,{CNUM,CITEM,CSEQ})

MATA650.PRX - A650DELETA() -> LPROCESSA:= EXECBLOCK("MTA650E",.F.,.F.)

MATA650.PRX - A650DELOP() -> EXECBLOCK("MTA650AE",.F.,.F.,{CNUM,CITEM,CSEQ})

MATA650.PRX - A650DELOP() -> EXECBLOCK("MTA650EMP",.F.,.F.,{COP})

MATA650.PRX - A650DELOP() -> EXECBLOCK('MA650DC6',.F.,.F.)

MATA650.PRX - A650DELOP() -> EXECBLOCK('MT650DC1',.F.,.F.)

MATA650.PRX - A650DELOP() -> LRETPE := EXECBLOCK("MTA650EF",.F.,.F.,{SC2->(C2_NUM+C2_ITEM+C2_SEQUEN)})

MATA650.PRX - A650DELSC1BN() -> EXECBLOCK('MT650DC1',.F.,.F.)

MATA650.PRX - A650EMPALT() -> EXECBLOCK("A650ADCOL",.F.,.F.,APARAMPE)

MATA650.PRX - A650EMPALT() -> LRETPE := EXECBLOCK("A650VLALT",.F.,.F.)

MATA650.PRX - A650EMPALT() -> NRETPE := EXECBLOCK("A650ASCOL",.F.,.F.,{APARAMPE,NPROCURA})

MATA650.PRX - A650EMPALT() -> NSLDDISP := EXECBLOCK("A650SALDO",.F.,.F.,NSLDDISP)

MATA650.PRX - A650GERAC1() -> EXECBLOCK("MT650C1",.F.,.F.,{"SC1",SC1->C1_NUM,SC1->C1_ITEM,SC1->(RECNO())})

MATA650.PRX - A650GERAC1() -> LGERASCAE := EXECBLOCK ("MT711VLSC",.F.,.F.,APARAM)

MATA650.PRX - A650GERAC1() -> LGERASCAE:=EXECBLOCK("A650OKSC",.F.,.F.,{CPRODUTO,NQUANT,COP})

MATA650.PRX - A650GERAC2() -> EXECBLOCK("MTA650I",.F.,.F.)

MATA650.PRX - A650GRAVC1() -> EXECBLOCK("MT650C1",.F.,.F.)

MATA650.PRX - A650INCLUI() -> ABUT650:=EXECBLOCK("M650BCHOI",.F.,.F.)

MATA650.PRX - A650INCLUI() -> EXECBLOCK("M650CAN",.F.,.F., {1})

MATA650.PRX - A650INCLUI() -> EXECBLOCK("MTA650I",.F.,.F.)

MATA650.PRX - A650INCLUI() -> EXECBLOCK("QIPR041",.F.,.F.,{"MATA650",SC2->C2_NUM+SC2->C2_ITEM+SC2->C2_SEQUEN})

MATA650.PRX - A650INCLUI() -> EXECBLOCK('MA650PBAT',.F.,.F.)

MATA650.PRX - A650INICPO() -> LOCAL LMT650QIP :=  IF(EXISTBLOCK("MT650QIP"),EXECBLOCK("MT650QIP",.F.,.F.),.T.)

MATA650.PRX - A650INICPO() -> NTIPOVLD := EXECBLOCK('MA650VLD',.F.,.F.)

MATA650.PRX - A650OPBATCH() -> LAPONSEMSD4:= EXECBLOCK("MT650APSE",.F.,.F.,{OMODELCYV})

MATA650.PRX - A650OPBATCH() -> LEXIBEMENS:= EXECBLOCK("MT650PISC",.F.,.F.)

MATA650.PRX - A650RUNBATCH() -> EXECBLOCK("MT650C1",.F.,.F.,{"SC1",SC1->C1_NUM,SC1->C1_ITEM,SC1->(RECNO())})

MATA650.PRX - A650RUNBATCH() -> EXECBLOCK("MTA650GEM",.F.,.F.,{'1',SC2->C2_FILIAL,SC2->C2_NUM,SC2->C2_ITEM,SC2->C2_SEQUEN,SC2->C2_ITEMGRD,SC2->C2_PRODUTO})

MATA650.PRX - A650RUNBATCH() -> EXECBLOCK("MTA650GEM",.F.,.F.,{'3',NIL,NIL,NIL,NIL,NIL,NIL})

MATA650.PRX - A650TRCDT() -> LRET:=EXECBLOCK("MT650ALT",.F.,.F.,{SC2->C2_NUM+SC2->C2_ITEM+SC2->C2_SEQUEN+SC2->C2_ITEMGRD})

MATA650.PRX - A650TUDOOK() -> LRET := EXECBLOCK('MA650TOK',.F.,.F.)

MATA650.PRX - A650TUDOOK() -> NTIPOVLD := EXECBLOCK('MA650VLD',.F.,.F.)

MATA650.PRX - A650VIEW() -> ABUT650:=EXECBLOCK("M650BCHOI",.F.,.F.)

MATA650.PRX - A650VLDCONSEST() -> LCONEST := EXECBLOCK("M650CONSES",.F.,.F.)

MATA650.PRX - A650WRITEOP() -> EXECBLOCK("MT650C1",.F.,.F.,{"SC1",SC1->C1_NUM,SC1->C1_ITEM,SC1->(RECNO())})

MATA650.PRX - MATA650() -> CCONDFIL := EXECBLOCK('MA650FBW',.F.,.F.)

MATA650.PRX - MATA650() -> CFILTRO := EXECBLOCK("M650FILB",.F.,.F.)

MATA650.PRX - MATA650() -> EXECBLOCK('A650PROC',.F.,.F.)

MATA650.PRX - MENUDEF() -> AROTINA := EXECBLOCK('MA650BUT',.F.,.F.,AROTINA)

MATA650.PRX - MENUDEF() -> EXECBLOCK("MTA650MNU",.F.,.F.)

MATA650.PRX - MONTESTRU() -> ABUTTONS:=EXECBLOCK("M650BUT",.F.,.F.)

MATA650.PRX - MONTESTRU() -> ACOMPLCOLS := EXECBLOCK('MTA650AC',.F.,.F.)

MATA650.PRX - MONTESTRU() -> ARETPE := EXECBLOCK("A650REVEM",.F.,.F.,{CREVATU})

MATA650.PRX - MONTESTRU() -> CLOCANT:=EXECBLOCK("A650LEMP",.F.,.F.,ASALVCOLS[NSG1])

MATA650.PRX - MONTESTRU() -> CSEQC2AUX := EXECBLOCK("MA650SEQ",.F.,.F.)

MATA650.PRX - MONTESTRU() -> CSEQC2AUX := EXECBLOCK("MA650SEQ",.F.,.F.,{CSEQC2})

MATA650.PRX - MONTESTRU() -> CTIPO:=EXECBLOCK("A650CCF",.F.,.F.,{ASALVCOLS[NSG1,NPOSCOD],CTIPO,SC2->C2_DATPRI,NSG1})

MATA650.PRX - MONTESTRU() -> EXECBLOCK("A650ALTD4",.F.,.F.,{CSTROPC})

MATA650.PRX - MONTESTRU() -> EXECBLOCK("EMP650",.F.,.F.,{CSTROPC})

MATA650.PRX - MONTESTRU() -> EXECBLOCK('MA650EMP',.F.,.F.)

MATA650.PRX - MONTESTRU() -> LEMPREVVAZ := IIF(LEMPREVVAZ == NIL, EXISTBLOCK("EMPREVVAZ") .AND. EXECBLOCK('EMPREVVAZ',.F.,.F.), LEMPREVVAZ)

MATA650.PRX - MONTESTRU() -> LRET := EXECBLOCK("MTA650GEM",.F.,.F.,{'2',SC2->C2_FILIAL,SC2->C2_NUM,SC2->C2_ITEM,SC2->C2_SEQUEN,SC2->C2_ITEMGRD, NIL})

MATA650.PRX - MONTESTRU() -> LRETBLOCK:=EXECBLOCK("A650OPI",.F.,.F.,NSG1)

MATA650.PRX - MONTESTRU() -> LRETPE := EXECBLOCK("MA650DLG",.F.,.F.)

MATA650.PRX - MONTESTRU() -> NQTYSTOK:=EXECBLOCK("A650SALDO",.F.,.F.,NQTYSTOK)

MATA650.PRX - MONTESTRU() -> NSALDOSB2 := EXECBLOCK('MA650SAL',.F.,.F.)

MATA650.PRX - MTA650OK() -> IF LBLOCKMTA650OK .AND. VALTYPE(LMTA650OK := EXECBLOCK("MTA650OK", .F., .F.)) == "L"

MATA650.PRX - SOMAPRAZO() -> NDIAS := EXECBLOCK('MA650PRZ',.F.,.F.,{DDATA,NPRAZO,NDIAS})

MATA650A.PRX - A650LINOK() -> LEXE:=EXECBLOCK("MTA650L",.F.,.F.,{LRET})

MATA650C.PRW - A650GERAOP() -> EXECBLOCK("MT650OPPV",.F.,.F.,{APEDOP,APEDOP1})

MATA650C.PRW - A650GERAOP() -> EXECBLOCK("QIPR041",.F.,.F.,{"MATA650",SC2->C2_NUM+SC2->C2_ITEM+SC2->C2_SEQUEN})

MATA650C.PRW - A650GERAOP() -> EXECBLOCK('MA650GRPV',.F.,.F.,)

MATA650C.PRW - A650GERAOP() -> LOCAL LMT650QIP := IF(EXISTBLOCK("MT650QIP"),EXECBLOCK("MT650QIP",.F.,.F.),.T.)

MATA650C.PRW - A650GERAOP() -> URET := EXECBLOCK("MA650QTD",.F.,.F., { (NQTDAVAL) } )

MATA650C.PRW - A650PROCOP() -> LRET := EXECBLOCK("MTA650POK",.F.,.F.,{CALIAS,CMARCA})

MATA650C.PRW - AVALMARCA() -> EXECBLOCK('MA650GRPV',.F.,.F.)

MATA650C.PRW - AVALMARCA() -> LRETORNOBLOCK:=EXECBLOCK("A650PRCPV",.F.,.F.)

MATA650C.PRW - AVALMARCA() -> NQTDPV:=EXECBLOCK("A650SLDPV",.F.,.F.,{NQTDPV})

MATA650C.PRW - AVALMARCA() -> NQTDSTOK:=EXECBLOCK("A650SALDO",.F.,.F.,NQTDSTOK)

MATA650C.PRW - AVALMARCA() -> URET := EXECBLOCK("MA650QTD",.F.,.F., { (NQTDETOT) } )

MATA650C.PRW - F650TEMQIP() -> LOCAL LMT650QIP := IF(EXISTBLOCK("MT650QIP"),EXECBLOCK("MT650QIP",.F.,.F.),.T.)

MATA650C.PRW - MATA650C() -> CCONDMRKPE := EXECBLOCK('A650LGVEN',.F.,.F.)

MATA650C.PRW - MATA650C() -> EXECBLOCK("MT650C1",.F.,.F.,{"SC1",SC1->C1_NUM,SC1->C1_ITEM,SC1->(RECNO())})

MATA650C.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("A650VMNU",.F.,.F.)

MATA651.PRX - A651DO() -> EXECBLOCK("MA651GRV",.F.,.F.)

MATA651.PRX - A651FILTRA() -> CFIRMACOND := EXECBLOCK("MA651FIL",.F.,.F.,{CFIRMACOND})

MATA651.PRX - M651MARK() -> LRET:= EXECBLOCK("M651DPC",.F.,.F.)

MATA652.PRX - A652DO() -> EXECBLOCK("A652GRAV",.F.,.F.)

MATA652.PRX - A652FILTRA() -> CCONDPE:= EXECBLOCK("A652FIL",.F.,.F.,{CFIRMACOND})

MATA653.PRX - A653FILTRA() -> CMT653FILBRW := EXECBLOCK("MT653FILBRW",.F.,.F.)

MATA660.PRX - MENUDEF() -> EXECBLOCK("MTA660MNU",.F.,.F.)

MATA680.PRX - A680ALTERA() -> A680CPHR := EXECBLOCK("MA680CPHR",.F.,.F.)

MATA680.PRX - A680ALTERA() -> EXECBLOCK("MA680HRT",.F.,.F.)

MATA680.PRX - A680ALTERA() -> EXECBLOCK("MT680CAN",.F.,.F.)

MATA680.PRX - A680ALTERA() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA680BUT", .F., .F.,{NOPC} ) ) == "A"

MATA680.PRX - A680ASKULT() -> LRET := EXECBLOCK('A680PERG',.F.,.F.)

MATA680.PRX - A680DELETA() -> EXECBLOCK("MT680CAN",.F.,.F.)

MATA680.PRX - A680DELETA() -> EXECBLOCK("MT680GEFTR",.F.,.F.)

MATA680.PRX - A680DELETA() -> EXECBLOCK("MT680GREST",.F.,.F.)

MATA680.PRX - A680DELETA() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA680BUT", .F., .F.,{NOPC} ) ) == "A"

MATA680.PRX - A680DELETA() -> LOK:=EXECBLOCK("MT680EST",.F.,.F.,{NOPCA})

MATA680.PRX - A680GERAD3() -> IF LEXISTA680MOD .AND. VALTYPE(NQTDRET := EXECBLOCK("A680MOD",.F.,.F., NQTDD3)) == "N"

MATA680.PRX - A680GERAD3() -> LOCAL MV_TMPAD:= IF(EXISTBLOCK("MA680TMP"),EXECBLOCK("MA680TMP",.F.,.F.),GETMV("MV_TMPAD"))

MATA680.PRX - A680GERAD3() -> LRET := IF(VALTYPE(LRETPE:=EXECBLOCK('MT680GD3', NIL, NIL, {SH6->H6_PRODUTO, SH6->H6_OP, SH6->H6_IDENT, LRET}))=='L',LRETPE,LRET)

MATA680.PRX - A680INCLUI() -> EXECBLOCK("MA680INC",.F.,.F.,{NOPCA})

MATA680.PRX - A680INCLUI() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA680BUT", .F., .F.,{NOPC} ) ) == "A"

MATA680.PRX - A680INICPO() -> IF LEXISTA680INICPO .AND. VALTYPE(LRETA680INICPO := EXECBLOCK("A680INICPO", .F., .F.)) == "L" .AND. (! LRETA680INICPO)

MATA680.PRX - A680TUDOOK() -> ANEWSAL := EXECBLOCK("MT250SAL",.F.,.F.,{ASALDO})

MATA680.PRX - A680TUDOOK() -> ARETPE := EXECBLOCK('A680WMSO', NIL, NIL, {M->H6_PRODUTO, M->H6_OP, M->H6_IDENT})

MATA680.PRX - A680TUDOOK() -> CTMPAD := IF(EXISTBLOCK("MA680TMP"),EXECBLOCK("MA680TMP",.F.,.F.),GETMV("MV_TMPAD"))

MATA680.PRX - A680TUDOOK() -> LM680VLDPT := EXECBLOCK("M680VLDPT",.F.,.F.)

MATA680.PRX - A680TUDOOK() -> LOK := EXECBLOCK("MT680VAL",.F.,.F., {M->H6_LOCAL})

MATA680.PRX - A680TUDOOK() -> LRETORNO := EXECBLOCK("MT680FINAL",.F.,.F.)

MATA680.PRX - A680VISUAL() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA680BUT", .F., .F.,{NOPC} ) ) == "A"

MATA680.PRX - MENUDEF() -> EXECBLOCK("MTA680MNU",.F.,.F.)

MATA681.PRX - A681INCLUI() -> EXECBLOCK("MT681CAN",.F.,.F.)

MATA681.PRX - A681INCLUI() -> EXECBLOCK("MT681INC",.F.,.F.)

MATA681.PRX - A681INCLUI() -> EXECBLOCK('MT681AIN', .F., .F.)

MATA681.PRX - A681INCLUI() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "MT681BUT", .F., .F. ) ) == "A"

MATA681.PRX - A681INCLUI() -> LMT680QUA := EXECBLOCK("MT680QUA",.F.,.F.)

MATA681.PRX - A681INCLUI() -> LRETPE:= EXECBLOCK("MTPERDA",.F.,.F.,)

MATA681.PRX - A681VISUAL() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA680BUT", .F., .F.,{NOPC} ) ) == "A"

MATA681.PRX - MENUDEF() -> EXECBLOCK("MTA681MNU",.F.,.F.)

MATA682.PRX - A682DELETA() -> EXECBLOCK("MT682GREST",.F.,.F.)

MATA682.PRX - A682DELETA() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA682BUT", .F., .F.,{NOPC} ) ) == "A"

MATA682.PRX - A682DELETA() -> LOK:=EXECBLOCK("MT682EST",.F.,.F.)

MATA682.PRX - A682INCLUI() -> EXECBLOCK("A682INCL",.F.,.F.)

MATA682.PRX - A682INCLUI() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA682BUT", .F., .F.,{NOPC} ) ) == "A"

MATA682.PRX - A682VISUAL() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA682BUT", .F., .F.,{NOPC} ) ) == "A"

MATA682.PRX - MENUDEF() -> EXECBLOCK("MTA682MNU",.F.,.F.)

MATA685.PRX - A685MANUT() -> EXECBLOCK("MT685ATU",.F.,.F.)

MATA685.PRX - A685TUDOOK() -> LRET := EXECBLOCK("MT685TOK", .F., .F., {INCLUI})

MATA685.PRX - ESTORNASBC() -> EXECBLOCK("SBCEXCL",.F.,.F.)

MATA685.PRX - LOTEDEST() -> LRETPE := EXECBLOCK("MT685LTD",.F.,.F.)

MATA685.PRX - M685ULT() -> LRET := EXECBLOCK("M685ULT",.F.,.F.)

MATA685.PRX - MENUDEF() -> EXECBLOCK("MTA685MNU",.F.,.F.)

MATA690.PRX - A690ATUSH8() -> EXECBLOCK("MT690GSH8",.F.,.F.)

MATA690.PRX - A690FILSC2() -> CRETBLOCK := EXECBLOCK("A690FSC2",.F.,.F.,XRET)

MATA690.PRX - A690RELATO() -> EXECBLOCK("A690NREL",.F.,.F.)

MATA690.PRX - PROCATUSC2() -> EXECBLOCK("MT690DAT",.F.,.F.,{COP,(CALIASSC2)->(C2_DATAJI),(CALIASSC2)->(C2_DATAJF)})

MATA690A.PRX - A690ALOC() -> EXECBLOCK("A690SH8D",.F.,.F.)

MATA690A.PRX - A690BESTALOC() -> AMT690TALOC := EXECBLOCK("MT690TALOC",.F.,.F.,{TRB->PRODUTO,CRECURSO,NDURACAO,NSETUP})

MATA690A.PRX - A690MONTBIN() -> CCONDEXBL:=EXECBLOCK("A690FSHD",.F.,.F.,CCONDSHD)

MATA690A.PRX - A690MONTBIN() -> CM690AFIL:=EXECBLOCK("M690AFIL",.F.,.F.,{ASELEREC})

MATA690A.PRX - A690MONTBIN() -> LVLDDTSAC := EXECBLOCK("A690DTSAC",.F.,.F.,DDATAPAR)

MATA690A.PRX - A690MONTTRAB() -> ARETPE  := EXECBLOCK("A690ADTRB", .F., .F., {ACAMPOS})

MATA690A.PRX - A690MONTTRAB() -> EXECBLOCK("A690FTRB",.F.,.F.)

MATA690A.PRX - A690MONTTRAB() -> EXECBLOCK("A690GTRB",.F.,.F.)

MATA690A.PRX - A690PRIOR() -> ARETPE := EXECBLOCK("A690DATPR",.F.,.F.,{SC2->C2_NUM,SC2->C2_ITEM,SC2->C2_SEQUEN,DDATPRI,DDATPRF,LFIM})

MATA690A.PRX - A690PRIOR() -> URETPE := EXECBLOCK("A690PRIOP",.F.,.F.,{C2_NUM,C2_ITEM,C2_SEQUEN,UVAREDIT})

MATA690A.PRX - A690PROCESSA() -> A690RETSET  := EXECBLOCK("A690SETUP", .F., .F., {TRB->RECURSO, ASECUN[I], AALTSEC[NY][6], NOLDSETUPORIG, NSETUP, K})

MATA690A.PRX - A690PROCESSA() -> A690RETSET  := EXECBLOCK("A690SETUP", .F., .F., {TRB->RECURSO, ASECUN[I], AALTSEC[NY][9], NOLDSETUPORIG, NSETUP, K})

MATA690A.PRX - A690PROCESSA() -> A690RETSET  := EXECBLOCK("A690SETUP", .F., .F., {TRB->RECURSO, ASECUN[I], NDURDESDOB, NOLDSETUPORIG, NSETUP, K})

MATA690A.PRX - A690PROCESSA() -> A690RETSET  := EXECBLOCK("A690SETUP", .F., .F., {TRB->RECURSO, ASECUN[I], NTMPDESDOB, NOLDSETUPORIG, NSETUP, K})

MATA690A.PRX - A690PROCESSA() -> A690RETSET  := EXECBLOCK("A690SETUP", .F., .F., {TRB->RECURSO, C690RECURSO, AALTSEC[NY][9] - (NOLDSETUPORIG+NOLDTEMPEND), NOLDSETUPORIG, NSETUP, K})

MATA690A.PRX - A690PROCESSA() -> A690RETSET  := EXECBLOCK("A690SETUP", .F., .F., {TRB->RECURSO, C690RECURSO, AALTSEC[NY][9] - NOLDSETUPORIG, NOLDSETUPORIG, NSETUP, K})

MATA690A.PRX - A690PROCESSA() -> A690RETSET  := EXECBLOCK("A690SETUP", .F., .F., {TRB->RECURSO, C690RECURSO, NDURDESDOB - (NOLDSETUPORIG+NOLDTEMPEND), NOLDSETUPORIG, NSETUP, K})

MATA690A.PRX - A690PROCESSA() -> A690RETSET  := EXECBLOCK("A690SETUP", .F., .F., {TRB->RECURSO, C690RECURSO, NDURDESDOB - NOLDSETUPORIG, NOLDSETUPORIG, NSETUP, K})

MATA690A.PRX - A690PROCESSA() -> ARETPEALOC := EXECBLOCK("M690ALOC",.F.,.F.,{NSETUP,NTEMPEND,ASUBDIV,K,NNUMDESDOB})

MATA690A.PRX - A690PROCESSA() -> EXECBLOCK("A690GTRB",.F.,.F.)

MATA690A.PRX - A690PROCESSA() -> NRETBIT :=EXECBLOCK("M690BITINI",.F.,.F., {NBIT, TRB->(OPNUM + ITEM + SEQUEN), TRB->OPERAC, TRB->DATPRI, TRB->DATPRF})

MATA690A.PRX - A690PROCESSA() -> NRETTEMP := EXECBLOCK("MT690TIME",.F.,.F.,AMT690TIME)

MATA690A.PRX - A690PROCESSA() -> XRETBLOCK := EXECBLOCK("A690ALTDESD", .F., .F., {TRB->RECURSO, NDURDESDOB, K, AALTER, ASECUN})

MATA690A.PRX - A690SCRCOL() -> CTITRECURSO := EXECBLOCK("A690TITREC",.F.,.F.,{ACALENDGRID[X,1]})

MATA690A.PRX - A690SCRCOL() -> IF VALTYPE(APOPUPM := EXECBLOCK("A690POPUP",.F.,.F.))== 'A'

MATA690A.PRX - A690SCRCOL() -> LPAINT := EXECBLOCK("A690PAINT",.F.,.F.)

MATA690A.PRX - LEGENDAOP() -> IF !LMT690LOP .OR. VALTYPE((CLABELOP := EXECBLOCK("MT690LOP",.F.,.F.,{AOPS[NI]}))) # "C"

MATA700.PRX - A700DELETA() -> LRET := EXECBLOCK("MT700EXC", .F., .F., {NREG})

MATA700.PRX - MENUDEF() -> EXECBLOCK("MTA700MNU",.F.,.F.)

MATA710.PRX - A710ATUPERIODO() -> APERIODOS := EXECBLOCK("A710PERI", .F., .F., APERIODOS )

MATA710.PRX - A710DSALDO() -> NSLDPE := EXECBLOCK("A710SINI",.F.,.F.,{CPRODUTO,NSALDO})

MATA710.PRX - A710NEXTUTIL() -> DDATA := EXECBLOCK("A710DTUTIL",.F.,.F.,{DDATA, LWEEKEND, DDATAOLD, LMONTSHA})

MATA710.PRX - A710OPENFMRP() -> ACPSUSU := EXECBLOCK("MA710SH5",.F.,.F.)

MATA710.PRX - A710QTDTHREAD() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SB1", CQUERY})

MATA710.PRX - A710TRATAREV() -> LTRATAREV := EXECBLOCK("A710REV",.F.,.F.)

MATA710.PRX - A710VERHF() -> CFC := EXECBLOCK("A650CCF",.F.,.F.,{CPRODUTO,CTIPO711,DDATPRF})

MATA710.PRX - A711ADTREE() -> LOCAL LSHALT := IF(EXISTBLOCK("M710SHALT"),EXECBLOCK('M710SHALT',.F.,.F.),.F.)

MATA710.PRX - A711CRISH5() -> ARETPARAM:=EXECBLOCK("A711CSH5",.F.,.F.,{DDATAORI,CPRODUTO,COPC,CREVISAO,CALIASMOV,NRECNO,CDOC,CITEM,CDOCKEY,NQUANT,CTIPO711,LADDTREE,LREVISAO, CALIASTOP})

MATA710.PRX - A711CRISHA() -> EXECBLOCK("MT710SHA",.F.,.F.,{CPRODUTO,CPERIODO,NQUANT,CTIPO711,NQUANTPER})

MATA710.PRX - A711GERASC() -> IF VALTYPE(NNEWQTDBX := EXECBLOCK("A710QTDBX",.F.,.F., {NQUANT, NPERIODO, APERIODOS[NPERIODO]})) == "N" .AND. NNEWQTDBX <= NQUANT

MATA710.PRX - A711GRAVC1() -> ARETPE :=EXECBLOCK("A711CSC1",.F.,.F.,ACLONE(AITEM))

MATA710.PRX - A711GRAVC1() -> LRET:= EXECBLOCK ("MT711VLSC",.F.,.F.,APARAM)

MATA710.PRX - M711AVALPROD() -> LRET:=EXECBLOCK("MT711B1",.F.,.F.,SB1->B1_COD)

MATA710.PRX - MTA711SH5() -> /*AFILALMOX := RETEXECBLOCK("A710FILALM", { (CALIASTOP)->B1_COD, CALMOXD, CALMOXA }, "A", NIL,NIL,NIL,LEXISTBB1)*/

MATA710.PRX - MTA711SH5() -> AADDBUTTONS:=EXECBLOCK("M710BUT",.F.,.F.)

MATA710.PRX - MTA711SH5() -> AOPC := EXECBLOCK('M710NOPC',.F.,.F.,{(CALIASTOP)->B1_COD,NSALDO})

MATA710.PRX - MTA711SH5() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SB1", CQUERY})

MATA710.PRX - MTA711SH5() -> CMT710B2  := RETEXECBLOCK("MT710B2", { (CALIASTOP)->B1_COD, CALMOXD, CALMOXA }, "C", NIL,NIL,NIL,LEXISTBB2)

MATA710.PRX - MTA711SH5() -> EXECBLOCK("MTA710",.F.,.F.)

MATA710.PRX - MTA711SH5() -> LMT710EXP := EXECBLOCK("MT710EXP",.F.,.F.,{H5_PRODUTO,MOPC,H5_REVISAO,H5_QUANT})

MATA710.PRX - MTA711SH5() -> LMT710EXP := EXECBLOCK("MT710EXP",.F.,.F.,{HA_PRODUTO,HA_OPC,HA_REVISAO,NSALDO})

MATA710.PRX - MTA711SH5() -> LRET := EXECBLOCK("MTA710CP",.F.,.F.)

MATA710.PRX - MTA711SH5() -> M710NIV := EXECBLOCK("M710NIV",.F.,.F.)

MATA710.PRX - PUTASPAS() -> ±±³  ³ LSAVE  - PARAMETRO LSAVE DO EXECBLOCK (DEFAULT .F.)³±±

MATA710.PRX - PUTASPAS() -> ±±³  ³ LSETS  - PARAMETRO LSETS DO EXECBLOCK (DEFAULT .F.)³±±

MATA710.PRX - PUTASPAS() -> ±±³  ³ RETORNO PADRAO (CASO NAO EXISTA O EXECBLOCK OU O RETORNO³±±

MATA710.PRX - PUTASPAS() -> ±±³DESCRI‡…O ³ RETORNA O RESULTADO DE UM EXECBLOCK OU O SEU DEFAULT ³±±

MATA710.PRX - PUTASPAS() -> ±±³FUN‡…O ³RETEXECBLOCK³ AUTOR ³MARCELO IUSPA³ DATA ³ 14/05/04 ³±±

MATA710.PRX - PUTASPAS() -> ±±³PARAMETROS³ CNOME  - NOME DO EXECBLOCK ³±±

MATA710.PRX - PUTASPAS() -> ±±³RETORNO³ RESULTADO DO EXECBLOCKOU ±±

MATA710.PRX - RETEXECBLOCK() -> FUNCTION RETEXECBLOCK(CNOME,APARAM,CTIPORETORNO,XRETORNOPADRAO,LSAVE,LSETS,LBLOCK)

MATA710.PRX - RETEXECBLOCK() -> IF VALTYPE(XRETBLOCK := EXECBLOCK(CNOME, LSAVE, LSETS, APARAM)) == CTIPORETORNO

MATA711.PRW - A710GETSALDO() -> CQUERY:=EXECBLOCK("MT710B2",.F.,.F.,CQUERY)

MATA711.PRW - A710GRAVC1() -> EXECBLOCK( "MT710C1",.F.,.F. )

MATA711.PRW - A710GRAVC7() -> EXECBLOCK( "MT710C7",.F.,.F. )

MATA711.PRW - A710PROC() -> CA710FIL := EXECBLOCK("A710FIL", .F., .F., {"SC2", CQUERY})

MATA711.PRW - A710PROC() -> CA710FIL := EXECBLOCK("A710FIL", .F., .F., {"SHC", CCOND})

MATA711.PRW - A710PROJOP() -> CA710FIL := EXECBLOCK("A710FIL", .F., .F., {"SC2", CQUERY})

MATA711.PRW - A710PROJPC() -> CA710FIL := EXECBLOCK("A710FIL", .F., .F., {"SC7", CQUERY})

MATA711.PRW - A710PROJPED() -> CA710FIL := EXECBLOCK("A710FIL", .F., .F., {"SC6", CQUERY})

MATA711.PRW - A710PROJSC() -> CA710FIL := EXECBLOCK("A710FIL", .F., .F., {"SC1", CQUERY})

MATA711.PRW - A710SALINI() -> AOPC := EXECBLOCK('M710NOPC',.F.,.F.,{SB1->B1_COD,NSALDO})

MATA711.PRW - A710SALINI() -> CQUERY:=EXECBLOCK("MT710B2",.F.,.F.,CQUERY)

MATA711.PRW - M710AVALPROD() -> LRET:=EXECBLOCK("MT710B1",.F.,.F.,SB1->B1_COD)

MATA712.PRX - A712ADTREE() -> LOCAL LSHALT := IF(EXISTBLOCK("M710SHALT"),EXECBLOCK('M710SHALT',.F.,.F.),.F.)

MATA712.PRX - A712ATUPERIODO() -> APERIODOS := EXECBLOCK("A710PERI", .F., .F., APERIODOS )

MATA712.PRX - A712DSALDO() -> NSLDPE := EXECBLOCK("A710SINI",.F.,.F.,{CPRODUTO,NSALDO})

MATA712.PRX - A712EXPLES() -> LMT710EXP := EXECBLOCK("MT710EXP",.F.,.F.,{(CALIASSG1)->G1_COMP,COPCIONAIS,CREVISAO,NQUANTITEM})

MATA712.PRX - A712EXPLES() -> NQTDRET := EXECBLOCK( "M710QTDE", .F., .F., {CPRODUTO, NQUANTITEM, DDATANES} )

MATA712.PRX - A712GERA() -> EXECBLOCK("MTA710OPSC",.F.,.F.,{CNUMOPDIG})

MATA712.PRX - A712GERAOP() -> ARETPE := EXECBLOCK("M711SC2",.F.,.F.,ACLONE(AMATA650))

MATA712.PRX - A712GERASC() -> ARETPE := EXECBLOCK("A712CNTSC1",.F.,.F.,{CPRODUTO,NQUANT,ACAMPOS})

MATA712.PRX - A712GERASC() -> IF VALTYPE(NNEWQTDBX := EXECBLOCK("A710QTDBX",.F.,.F., {NQUANT,NPERIODO,APERIODOS[NPERIODO]})) == "N" .AND. NNEWQTDBX <= NQUANT

MATA712.PRX - A712GRAVC1() -> ARETPE :=EXECBLOCK("A711CSC1",.F.,.F.,ACLONE(AITEM))

MATA712.PRX - A712GRAVC1() -> LRET:= EXECBLOCK ("MT711VLSC",.F.,.F.,APARAM)

MATA712.PRX - A712MCOND() -> APERGS712 := EXECBLOCK("M712PERG",.F.,.F.,{APERGS711})

MATA712.PRX - A712NEXTUTIL() -> DDATA := EXECBLOCK("A710DTUTIL",.F.,.F.,{DDATA, LWEEKEND, DDATAOLD, .F.})

MATA712.PRX - A712TRATAREV() -> LTRATAREV := EXECBLOCK("A710REV",.F.,.F.)

MATA712.PRX - A712VERALT() -> LVLDALT := EXECBLOCK("A712VLALT",.F.,.F.,{(CALIASSGI)->GI_PRODORI,(CALIASSGI)->GI_PRODALT})

MATA712.PRX - A712VERHF() -> CFC := EXECBLOCK("A650CCF",.F.,.F.,{CPRODUTO,CTIPO711,DDATPRF})

MATA712.PRX - MA712RECALC() -> ARETNEED := EXECBLOCK('M712NEED', .F., .F., {CPRODUTO,NNECESSIDADE,CDATA})

MATA712.PRX - MA712RECALC() -> CSAI:=EXECBLOCK("M712SAI",.F.,.F.,{CPRODUTO,CSAI,APERIODOS[W]})

MATA712.PRX - MA712RECALC() -> CSAI:=EXECBLOCK("M712SAI",.F.,.F.,{CPRODUTO,NSAIDA,APERIODOS[W]})

MATA712.PRX - MAT712OPSC() -> CTIPO711 := EXECBLOCK("A650CCF",.F.,.F.,{CPRODUTO,CTIPO711,APERIODOS[NPER]})

MATA712.PRX - MATA712EHC() -> LMT710EXP := EXECBLOCK("MT710EXP",.F.,.F.,{CZI_PROD,MOPC,CZI_NRRV,CZI_QUANT})

MATA712.PRX - MATA712INP() -> AADDBUTTONS := EXECBLOCK("M710BUT",.F.,.F.)

MATA712.PRX - MATA712INP() -> AFILALMOX := RETEXECBLOCK("A710FILALM", {(CALIASTOP)->B1_COD, CALMOXD, CALMOXA}, "A", NIL,NIL,NIL,LEXISTBB1)

MATA712.PRX - MATA712INP() -> AOPC := EXECBLOCK('M710NOPC',.F.,.F.,{(CALIASTOP)->B1_COD,NSALDO})

MATA712.PRX - MATA712INP() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SB1", CQUERY})

MATA712.PRX - MATA712INP() -> CMT710B2  := RETEXECBLOCK("MT710B2", {(CALIASTOP)->B1_COD, CALMOXD, CALMOXA}, "C", NIL,NIL,NIL,LEXISTBB2)

MATA712.PRX - MATA712INP() -> EXECBLOCK("MTA710",.F.,.F.)

MATA712.PRX - MATA712INP() -> LOCAL LSHALT := IF(EXISTBLOCK("M710SHALT"),EXECBLOCK('M710SHALT',.F.,.F.),.F.)

MATA712.PRX - MATA712INP() -> M710NIV := EXECBLOCK("M710NIV",.F.,.F.)

MATA712.PRX - MATA712MAT() -> LMT710EXP := EXECBLOCK("MT710EXP",.F.,.F.,{(CALIASTOP)->CZJ_PROD,COPC,(CALIASTOP)->CZJ_NRRV,(CALIASTOP)->CZK_QTNECE})

MATA712.PRX - MATA712TB1() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SB1", CQUERY})

MATA712.PRX - MT712TREE2() -> LOCAL LSHALT := IF(EXISTBLOCK("M710SHALT"),EXECBLOCK('M710SHALT',.F.,.F.),.F.)

MATA712.PRX - MTA712OK() -> LRET := EXECBLOCK("MTA710AP",.F.,.F.)

MATA712.PRX - PROCSC6() -> CA712FIL := EXECBLOCK("A712SQL", .F., .F., "SC6")

MATA720.PRX - A720AGLUT() -> EXECBLOCK("MA720CPU",.F.,.F.,{2})

MATA720.PRX - A720BROWSE() -> A720CPU := EXECBLOCK("MA720CPU",.F.,.F.,{3,ACAMPOS})

MATA720.PRX - A720MAKE() -> EXECBLOCK("A720OP",.F.,.F.)

MATA720.PRX - A720MAKE() -> EXECBLOCK("MTA720A",.F.,.F.)

MATA720.PRX - MTA720EXEC() -> A720CPU := EXECBLOCK("MA720CPU",.F.,.F.,{1})

MATA730.PRX - A730LIMPA() -> CRETBLOCK := EXECBLOCK("A730FSC2",.F.,.F.,CCONDICAO)

MATA730.PRX - A730MONTPES() -> CRETBLOCK := EXECBLOCK("A730FSC2",.F.,.F.,CCONDICAO)

MATA730.PRX - A730MONTPES() -> EXECBLOCK("MTA730MNU",.F.,.F.)

MATA730.PRX - A730RUNCALC() -> AFILOPER := EXECBLOCK("A730FILT",.F.,.F.,MV_PAR08)

MATA730.PRX - A730RUNCALC() -> LLOOP := EXECBLOCK("A730FOPE",.F.,.F.,{SC2->(C2_NUM+C2_ITEM+C2_SEQUEN+C2_ITEMGRD),SG2->G2_CODIGO,SG2->G2_PRODUTO,SG2->G2_OPERAC})

MATA730.PRX - A730UTEIS() -> NHNUTEIS := EXECBLOCK("A730HNUT",.F.,.F.,{NI})

MATA750.PRX - A750ALTERA() -> AACHORET := EXECBLOCK("MT750CMP",.F.,.F., {AALTER})

MATA750.PRX - A750EXCLUI() -> LRETPE := EXECBLOCK('A750EXCL',.F.,.F.)

MATA750.PRX - A750GRVSHC() -> EXECBLOCK("M750GRIM",.F.,.F.,{AIMPORT[NX]})

MATA750.PRX - A750GRVSHC() -> LRETPE := EXECBLOCK("M750VIMP",.F.,.F.,{AIMPORT,NX})

MATA750.PRX - A750LERARQ() -> URETPE := EXECBLOCK("M750LCSV",.F.,.F.,{FT_FREADLN()})

MATA750.PRX - A750TUDOOK() -> LRET := EXECBLOCK('A750ALT',.F.,.F.)

MATA750.PRX - MATA750() -> AACHORET := EXECBLOCK("MT750CMP",.F.,.F., {AACHO})

MATA750.PRX - MENUDEF() -> EXECBLOCK("MTA750MNU",.F.,.F.)

MATA760.PRX - A760POINT() -> EXECBLOCK("A760FIM",.F.,.F.)

MATA760.PRX - A760POINT() -> EXECBLOCK("M760SC2",.F.,.F.)

MATA760.PRX - A760POINT() -> LM760OPI := EXECBLOCK("M760OPI",.F.,.F.)

MATA760.PRX - A760POINT() -> LM760PPED := EXECBLOCK("M760PPED",.F.,.F.,{SB1->B1_COD})

MATA760.PRX - A760POINT() -> NRET:= EXECBLOCK('M760SLDP', .F., .F., {SB1->B1_COD,NSALDO})

MATA780.PRX - A780TUDOOK() -> LRET := EXECBLOCK("MT780TOK",.F.,.F.,{NOPC,A780CALEND,ACALENDS})

MATA780.PRX - MENUDEF() -> EXECBLOCK("MTA780MNU",.F.,.F.)

MATA800.PRX - A800FILTRA() -> CSACRAMCOND := EXECBLOCK("MA800FIL",.F.,.F.,{CSACRAMCOND})

MATA805.PRX - A805LINOK() -> LRET := EXECBLOCK("MT805LOK",.F.,.F.)

MATA900.PRW - A900ALTERA() -> ABUTTONUSR := EXECBLOCK("MA900BTN",.F.,.F.)

MATA900.PRW - A900DELETA() -> ABUTTONUSR := EXECBLOCK("MA900BTN",.F.,.F.)

MATA900.PRW - A900DELETA() -> EXECBLOCK("MA900DEL",.F.,.F.)

MATA900.PRW - A900INCLUI() -> ABUTTONUSR := EXECBLOCK("MA900BTN",.F.,.F.)

MATA900.PRW - MENUDEF() -> EXECBLOCK("MA900MNU",.F.,.F.)

MATA905.PRX - MENUDEF() -> EXECBLOCK("MT905MNU",.F.,.F.)

MATA906.PRX - A906PROCESSA() -> EXECBLOCK("MT906CTM",.F.,.F.,"SFA")

MATA906.PRX - COEFAPR() -> CALIASSD2 := EXECBLOCK ("A906CFAP", .F., .F., {DDATADE, DDATAATE})

MATA906.PRX - MENUDEF() -> EXECBLOCK("MT906MNU",.F.,.F.)

MATA908.PRX - A908INVENT() -> ASAIDAS[NY,2] := EXECBLOCK("M908SUNI",.F.,.F.,{ASAIDAS[NY,2]})

MATA908.PRX - PROCDEV() -> NQTDENF:=A909CONV((CALIASSD1)->D1_COD,IIF(LM908SUNI,EXECBLOCK("M908SUNI",.T.,.T.,{(CALIASSD1)->D1_QUANT}),(CALIASSD1)->D1_QUANT),MV_PAR02,(CALIASSB1)->B1_CONV,(CALIASSB1)->B1_TIPCONV)

MATA910.PRW - A910FORNEC() -> IF !EXECBLOCK("MTVALNF",.F.,.F.,{"SF1",XFILIAL(),CNFISCAL,CSERIE,CFORNECE,CLOJAFOR})

MATA910.PRW - A910GRAVA() -> EXECBLOCK("MTA910I",.F.,.F.)

MATA910.PRW - A910LINOK() -> LRET := EXECBLOCK("MT910LOK",.F.,.F.,{LRET})

MATA910.PRW - A910NFISCAL() -> EXECBLOCK("MTA910E",.F.,.F.)

MATA910.PRW - A910TUDOK() -> LRET := EXECBLOCK("MAT910OK",.F., .F., {DDEMISSAO, CTIPO, CNFISCAL, CESPECIE, CA100FOR, CLOJA})

MATA910.PRW - MENUDEF() -> EXECBLOCK("MT910MNU",.F.,.F.)

MATA916.PRW - MENUDEF() -> EXECBLOCK("MT916MNU",.F.,.F.)

MATA916.PRW - MTA916IMP() -> COBSPONTO := EXECBLOCK("MTOBSNFE",.F.,.F.,{SF3->F3_NFISCAL,SF3->F3_SERIE,SF3->F3_CLIEFOR,SF3->F3_LOJA})

MATA916.PRW - MTA916IMP() -> CSERVPONTO := EXECBLOCK("MTDESCRNFE",.F.,.F.,{SF3->F3_NFISCAL,SF3->F3_SERIE,SF3->F3_CLIEFOR,SF3->F3_LOJA})

MATA916.PRW - MTA916IMP() -> EXECBLOCK("MTGRAVNFE",.F.,.F.,{ALLTRIM(MV_PAR08),ALLTRIM(CARQRPS)})

MATA916.PRW - MTA916IMP() -> LIMPRPS := EXECBLOCK("MTIMPRPS",.F.,.F.,{SF3->F3_NFISCAL,SF3->F3_SERIE,SF3->F3_CLIEFOR,SF3->F3_LOJA})

MATA916.PRW - RETIMPOST() -> AINDICE := EXECBLOCK("MT916IND", .F., .F.,{SF3->F3_NFISCAL,SF3->F3_SERIE,SF3->F3_CLIEFOR,SF3->F3_LOJA})

MATA920.PRW - A920CLIENT() -> IF !EXECBLOCK("MTVALNF",.F.,.F.,{CALIAS,XFILIAL(CALIAS),C920NOTA,C920SERIE,CCLIENTE,C920LOJA})

MATA920.PRW - A920FINANC() -> AA920SE1ADC := ACLONE(EXECBLOCK("A920SE1ADC",.F.,.F.,{"SE1"}))

MATA920.PRW - A920GRAVA() -> EXECBLOCK("MT920IT",.F.,.F.)

MATA920.PRW - A920GRAVA() -> EXECBLOCK("MTA920C",.F.,.F.)

MATA920.PRW - A920GRAVA() -> EXECBLOCK("MTA920I",.F.,.F.)

MATA920.PRW - A920LINOK() -> LRET := EXECBLOCK("MT920LOK",.F.,.F.,{LRET})

MATA920.PRW - A920NFSAI() -> EXECBLOCK("MTA920E",.F.,.F.)

MATA920.PRW - A920NFSAI() -> IF !EXECBLOCK("MT920PN",.F.,.F.,)

MATA920.PRW - A920NFSAI() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "MA920BUT", .F., .F. ) ) == "A"

MATA920.PRW - A920NFSAI() -> L920DELETA := EXECBLOCK("MT920TOK",.F.,.F.)

MATA920.PRW - A920NFSAI() -> LOCAL LMA920AQISS := IIF(EXISTBLOCK( "MA920AQISS"),EXECBLOCK("MA920AQISS",.F.,.F.),.F.)

MATA920.PRW - A920TUDOK() -> LRET := EXECBLOCK("MT100TOK",.F.,.F.,{LRET})

MATA920.PRW - MACOLS920() -> ACPOSD2 := EXECBLOCK("MA920SD2",.F.,.F.)

MATA920.PRW - MENUDEF() -> EXECBLOCK("MA920MNU",.F.,.F.)

MATA926.PRW - ATUCOMP() -> EXECBLOCK("MATUCOMP",.F.,.F.,ACHAVE)

MATA926.PRW - M926COLS() -> ACAMPOS := EXECBLOCK("MT926CDL",.F.,.F.,{ACAMPOS})

MATA926.PRW - M926COLS() -> CVALIDCPONOV := EXECBLOCK("M926VLCPNF",.F.,.F.,{AHEADER[NA][2],AHEADER[NA][6]})

MATA927A.PRW - M927APAG() -> ACPIAPAG  := EXECBLOCK("IETUMOVP",.F.,.F.,{ADETPAG})

MATA927A.PRW - M927APAG() -> ADETPAGPE := EXECBLOCK("IETUSF1P",.F.,.F.,{ATITULOS[NTIT], ADETPAG})

MATA927A.PRW - M927APAG() -> LCONTINUA := EXECBLOCK("IETUSD1P",.F.,.F.,{ATITULOS[NTIT]})

MATA927A.PRW - M927AREC() -> ACPIACOB  := EXECBLOCK("IETUMOVC",.F.,.F.,{ADETCOB})

MATA927A.PRW - M927AREC() -> ADETCOBPE := EXECBLOCK("IETUANTR",.F.,.F.,{(CALIAS)->R_E_C_N_O_,ATITULOS[NTIT], ADETCOB})

MATA927A.PRW - M927AREC() -> CFILUSR:=EXECBLOCK("IETUFILR",.F.,.F. ,{CQRYAUX})

MATA930.PRX - A930RPENTRADA() -> EXECBLOCK("MT930SF3",.F.,.F.)

MATA930.PRX - A930RPSAIDA() -> EXECBLOCK("MT930SF3",.F.,.F.)

MATA930.PRX - A930RPSAIDA() -> IF !(EXECBLOCK ("MTA930F2",.F.,.F.,{CALIAS}))

MATA940.PRX - A940LOADPRO() -> CDESCPE := EXECBLOCK("A940DES",.F.,.F.,{CTIPO,CNCM,CPROD,CTEC})

MATA940.PRX - A940LOADPRO() -> CNCM := EXECBLOCK("A940NCM",.F.,.F.,{CTIPO,CNCM,CPROD,CTEC})

MATA940.PRX - A940LOADPRO() -> CPROD := EXECBLOCK("A940PRD",.F.,.F.,{CTIPO,CNCM,CPROD,CTEC})

MATA940.PRX - A940TITNF() -> ARETMG := EXECBLOCK("A940STMG",.F.,.F.,{"SD1",;

MATA940.PRX - SINTEGRA() -> ARETMG := EXECBLOCK("A940STMG",.F.,.F.,{CALIASSD1,;

MATA940.PRX - SINTEGRA() -> EXECBLOCK("MTA56E",.F.,.F., {CALIASSD1, STRZERO(NITEM,3)})

MATA940.PRX - SINTEGRA() -> EXECBLOCK("MTA56S",.F.,.F., {CALIASSD2, STRZERO(NITEM,3)})

MATA940.PRX - SINTEGRA() -> EXECBLOCK("MTA8586",.F.,.F.)

MATA940.PRX - SINTEGRA() -> EXECBLOCK("MTATIP70",.F.,.F.,{AARRAY70})

MATA940.PRX - SINTEGRA() -> EXECBLOCK("MTATIP71",.F.,.F.,{,AARRAY71})

MATA940.PRX - SINTEGRA() -> EXECBLOCK("MTREG71",.F.,.F.,{(CALIASDT6)->DT6_FILDOC, (CALIASDT6)->DT6_DOC, (CALIASDT6)->DT6_SERIE})

MATA940.PRX - SINTEGRA() -> IF !EXECBLOCK("MT940FIL" ,.F.,.F.,{(CALIASSF3)->F3_FILIAL, (CALIASSF3)->F3_CLIEFOR, (CALIASSF3)->F3_LOJA, (CALIASSF3)->F3_NFISCAL, (CALIASSF3)->F3_SERIE } )

MATA940A.PRX - A940APROCESSA() -> EXECBLOCK("MTREG71",.F.,.F.,{(CALIASDT6)->DT6_FILDOC, (CALIASDT6)->DT6_DOC, (CALIASDT6)->DT6_SERIE})

MATA940A.PRX - A940AREG11() -> AARRAY:=EXECBLOCK("A940EFS",.F.,.F.)

MATA940A.PRX - A940AREG88() -> CREGISTRO:=EXECBLOCK("M940GR88")

MATA940A.PRX - CREATETBL() -> CARQ088 := EXECBLOCK("M940TP88")

MATA941.PRX - A941APURA() -> EXECBLOCK("MATA940R",.F.,.F.)

MATA941.PRX - A941REG11() -> AARRAY:=EXECBLOCK("A940EFS",.F.,.F.)

MATA941.PRX - A941REG70E71() -> CREGISTRO := EXECBLOCK("MTA940B",.F.,.F.)

MATA950.PRX - FISGETEND() -> CENDALTE := EXECBLOCK('FISATEND',.F.,.F.,{ CENDERECO, CUF })

MATA950.PRX - FISGETSER() -> CRETORNO := EXECBLOCK("MTGETS",.F.,.F.,{CRETORNO,CSERIE,CTIPO})

MATA950.PRX - FSESTINV() -> (AALIAS[1])->CODIGO:= IIF(LA950PRD,EXECBLOCK("A950PRD",.F.,.F.,{CALIASSB1}),(CALIASSB1)->B1_COD)

MATA950.PRX - FSPRDINV() -> ARETPE:= EXECBLOCK( 'MA950INV', .F., .F., {CALIASSB9})

MATA950.PRX - NFCOMPL() -> ARETMG := EXECBLOCK("A940STMG",.F.,.F.,{CALIAS,;

MATA950.PRX - RETTOTICMS() -> ARETMG := EXECBLOCK("A940STMG",.F.,.F.,{CALIASSD1,;

MATA953.PRX - A953APURA() -> ACOLS5[NPOS] :=EXECBLOCK("GIASCDEB",.F.,.F.)

MATA953.PRX - A953PROCESSA() -> AGUIAS := EXECBLOCK("GDEBESP", .F., .F.,APARAM)

MATA953.PRX - A953PROCESSA() -> ARET := EXECBLOCK ("MT953TIT", .F., .F., {LTITULO, CIMPOSTO, CIMP, CLCPADTIT, DDTINI, DDTFIM, DDTVENC, NMOEDTIT, LGUIAREC, NMES, NANO, LCONTAB, AGNREST, CMVSIGNRE, CPRODEC, CORGARREC, NVALGUIASF6})

MATA960.PRX - GRAVAFORM() -> EXECBLOCK("MA960DEX", .F., .F.)

MATA960.PRX - GRAVAFORM() -> EXECBLOCK("MA960DUP", .F., .F.)

MATA960.PRX - RETCMPSSF6() -> APERET := EXECBLOCK("MA960GREC", .F., .F., {CRECEITA, CUF})

MATA975.PRX - A975MOVIMENT() -> CNBM := EXECBLOCK("MTANCM975", .F., .F., {"SD1"})

MATA975.PRX - A975MOVIMENT() -> CNBM := EXECBLOCK("MTANCM975", .F., .F., {"SD2"})

MATA975.PRX - A975RESUMO() -> IF EXECBLOCK("A975FILT",.F.,.F.)

MATA977.PRX - A977PROCDNF() -> ADNFRG2 :=EXECBLOCK("DNF63RG2",.F.,.F.)

MATA978.PRX - M978DARF() -> AINFCOMP:=EXECBLOCK ("A978COMP", .F., .F., {"SE2CPY", ABAIXA, AFORNECE, CCODRETVAR, DSQD (CPERIOD, DDTAPUR), DDTAPUR, MBTQS (CPERIOD, DDTAPUR), CPERIOD, VAL(CCNPJDARF), CCODMUN, CCODRET})

MATA978.PRX - M978DARF() -> CCHAVE := EXECBLOCK("A978PRF",.F.,.F.,CCHAVE)

MATA978.PRX - M978DARF() -> LR10 := EXECBLOCK("A978R10", .F., .F., CCHAVE)

MATA978.PRX - M978R02 () -> AENDCOB := EXECBLOCK("A978ENDCOB",.F.,.F.,)

MATA978.PRX - M978WIZ () -> APAINEIS:=EXECBLOCK ("A978WIZ", .F., .F., {APAINEIS})

MATA981.PRW - A981FILTRA() -> EXECBLOCK("MTA981E", .F., .F., {CALIASQRY,NTIPO})

MATA981.PRW - MENUDEF() -> EXECBLOCK("MT981MNU",.F.,.F.)

MATA983.PRW - MENUDEF() -> EXECBLOCK("MT983MNU",.F.,.F.)

MATA992.PRW - A992ALTERA() -> EXECBLOCK("M992ALT",.F.,.F., NOPCA )

MATA992.PRW - MENUDEF() -> EXECBLOCK("M992MNU",.F.,.F.)

MATA994.PRW - MENUDEF() -> EXECBLOCK("MA994MNU",.F.,.F.)

MATA999A.PRW - MENUDEF() -> EXECBLOCK("M999AMNU",.F.,.F.)

MATC010.PRW - BROWPLANW() -> LRETPEBUTP := EXECBLOCK("MC010BUT",.F.,.F.,{@ODLG,APOSOBJ,APROD,AFORMULAS,ATOT})

MATC010.PRW - GERAREV() -> CARQUSU := EXECBLOCK("MC010NOM",.F.,.F.,CARQMEMO)

MATC010.PRW - GRAVA() -> CARQUSU := EXECBLOCK("MC010NOM",.F.,.F.,CARQMEMO)

MATC010.PRW - MC010GRVEX() -> EXECBLOCK("MC010GRV",.F.,.F.,LGRAVA)

MATC010.PRW - MENUDEF() -> EXECBLOCK ("MTC010MNU",.F.,.F.)

MATC010X.PRX - ADDARRAY() -> CDESCPROD := EXECBLOCK('MC010DES',.F.,.F.,{SB1->B1_COD})

MATC010X.PRX - MC010FORM2() -> AMC010ADD := EXECBLOCK('MC010ADD',.F.,.F.,CPRODUTO)

MATC010X.PRX - MC010FORM2() -> AMC010ALT := EXECBLOCK ('MC010ALT',.F.,.F.,{AARRAY})

MATC010X.PRX - MC010FORM2() -> NQUANTPE := EXECBLOCK('MC010QTD',.F.,.F.,{SB1->B1_COD})

MATC010X.PRX - MC010FORMA() -> AMC010ADD := EXECBLOCK('MC010ADD',.F.,.F.,CPRODUTO)

MATC010X.PRX - MC010FORMA() -> AMC010ALT := EXECBLOCK ('MC010ALT',.F.,.F.,{AARRAY})

MATC010X.PRX - MC010FORMA() -> NQUANTPE := EXECBLOCK('MC010QTD',.F.,.F.,{SB1->B1_COD})

MATC010X.PRX - MC010GRAVA() -> EXECBLOCK("MC010ARR",.F.,.F.,{AARRAY,CARQ})

MATC010X.PRX - MC010REV() -> EXECBLOCK("MC010ARR",.F.,.F.,{AARRAY,CARQ})

MATC010X.PRX - MONTSTRU() -> LRETPE := EXECBLOCK("MC010EST",.F.,.F.,{CALIASWHILE,CALIASCOD,CALIASCOMP})

MATC010X.PRX - MONTSTRU() -> NRETORNO:=EXECBLOCK("MC010PR",.F.,.F.,{CALIASCOD,CALIASCOMP,CALIASTRT,NQUANT,RECNO()})

MATC010X.PRX - MT010EXECF() -> LRET := IF(VALTYPE(LRETPE:=EXECBLOCK('MT010FO', .F., .F., {CCOD}))=='L', LRETPE, LRET)

MATC010X.PRX - QUALCUSTO() -> NCUSTOBACK:= EXECBLOCK("MC010CUS",.F.,.F.,{CPRODUTO,NCUSTOPAD})

MATC030.PRX - ADDARRAY() -> ARETPE := EXECBLOCK('MC030ARR', .F., .F.,{AITEMPE,CALIAS})

MATC030.PRX - MC030MONTA() -> ARETORNO := EXECBLOCK('MC030PIC', .F., .F., ARETORNO)

MATC030.PRX - MC030MONTA() -> CIDENT := EXECBLOCK("MC030IDMV",.F.,.F.,{D3_OP,D3_CC})

MATC030.PRX - MC030MONTA() -> LTESNEST := EXECBLOCK("MTAAVLTES",.F.,.F.)

MATC030.PRX - MENUDEF() -> EXECBLOCK ("MTC030MNU",.F.,.F.)

MATC030.PRX - MW030BROWS() -> ARETCABEC := EXECBLOCK('MC030PRD', .F., .F.)

MATC030.PRX - MW030BROWS() -> ARETIDENT := EXECBLOCK('MC030IDE', .F., .F.,{ASTRU})

MATC030.PRX - MW030BROWS() -> ARETPRJ := EXECBLOCK('MC030PRJ', .F., .F., {"TRB",AHEADER,ACOLS[LEN(ACOLS)]})

MATC030.PRX - MW030BROWS() -> ASALINI2 := EXECBLOCK('MC030SALD', .F., .F.,{ASALINI})

MATC030.PRX - MW030BROWS() -> EXECBLOCK('MC030GRV', .F., .F., {"TRB",ASTRU,ATRBP[NY,NX]})

MATC040.PRX - MC040CON() -> LOCAL ABUTTONS := { {'BMPVISUAL',{|| IF(!LMC040IMP,A040IMP(NSALDO,NSALDOLOTE,OTREE,AREGS),EXECBLOCK("MC040IMP",.F.,.F.,{NSALDO,NSALDOLOTE,AREGS}))},STR0042},;

MATC040.PRX - MENUDEF() -> EXECBLOCK ("MTC040MNU",.F.,.F.)

MATC040.PRX - MONTALINE() -> LRET := EXECBLOCK("EXIBELIN",.F.,.F.,{AVARAUX})

MATC050.PRX - C040MATSCRDISP() -> UINFO := EXECBLOCK("MC050INF", .F., .F., {AINFO})

MATC050.PRX - M050EXPERG() -> LRET:= EXECBLOCK("MC050PERG",.F.,.F.,)

MATC050.PRX - MC050CON() -> ARETPE:= EXECBLOCK("MTC050FI",.F.,.F.,{"SB1",AACHO})

MATC050.PRX - MENUDEF() -> EXECBLOCK("MTC050MNU",.F.,.F.)

MATC050.PRX - MTC050DLGV() -> ARETPE:= EXECBLOCK("MTC050CP",.F.,.F.,{CALIAS,AACHO})

MATC050.PRX - MTC050DLGV() -> ARETPE:= EXECBLOCK("MTC050FI",.F.,.F.,{CALIAS,AACHO})

MATC050.PRX - MTC050TREE() -> ARET := EXECBLOCK("MC050SLD",.F.,.F.,{ATOTAIS[LEN(ATOTAIS)]})

MATC050.PRX - MTC050TREE() -> CRETQRY:=EXECBLOCK("MC050QRY",.F.,.F.,{CQUERY})

MATC050.PRX - MTC050TREE() -> EXECBLOCK("MC050TREE",.F.,.F.,{OTREE})

MATC050.PRX - MTC050TREE() -> UFILSC := EXECBLOCK("MC050FSC", .F., .F., { RECNO() })

MATC070.PRX - MENUDEF() -> EXECBLOCK ("MTC070MNU",.F.,.F.)

MATC070.PRX - MW070BROWS() -> ANEW := EXECBLOCK("MC070CAB", .F., .F.)

MATC070.PRX - MW070BROWS() -> EXECBLOCK("MC070BUT",.F.,.F.,{@ODLG})

MATC090.PRX - MENUDEF() -> EXECBLOCK("MC090MNU",.F.,.F.)

MATC100.PRX - CA100RETCQ() -> ACAMPOS := EXECBLOCK ("MT100CPO",.F.,.F.,{NQTSAL,NQTDISP,NQTSOL,COBS,NQTREQ})

MATC100.PRX - MENUDEF() -> EXECBLOCK ("MTC100MNU",.F.,.F.)

MATGRADE.PRX - MATVLDGGRD() -> LRETVLDGRD := EXECBLOCK("MTVLDGRD",.F.,.F.,{ __OGRADE:GETNAMEPROD(NIL,N,NCOLUNA)} )

MATGRADE.PRX - MONTAGRADE() -> ACOLUNA := EXECBLOCK("PVORDGRC",.F.,.F.,{::CPRODREF})

MATGRADE.PRX - SHOW() -> EXECBLOCK( "A410GRDW", .F., .F. , { ::AHEADAUX,::ACOLSAUX,::NPOSLINO })

MATGRADE.PRX - SHOW() -> EXECBLOCK( "MTPOSGRD",.F.,.F.)

MATGRADE.PRX - SHOW() -> LGRDBTTOT := EXECBLOCK("GRDBTTOT",.F.,.F.)

MATGRADE.PRX - SHOW() -> LGRDVITOT := EXECBLOCK("GRDVITOT",.F.,.F.)

MATI010.PRX - V1000() -> ARETPE := EXECBLOCK("MT010EAI",.F.,.F.,{ACAB,NOPCX})

MATI010.PRX - V1000() -> CAUXLOCPAD := EXECBLOCK("M010LOCP",.F.,.F.,{NOPCX,CCODPRO,CLOCPAD})

MATI010.PRX - V2000() -> ARETPE := EXECBLOCK("MT010EAI",.F.,.F.,{APROD,NEVENTO})

MATI010.PRX - V2000() -> CADDXML := EXECBLOCK("PCPADDTAGS",.F.,.F.,{CENTITY,CEVENT,CPONT,OMODEL})

MATI010.PRX - V2000() -> CAUXLOCPAD := EXECBLOCK("M010LOCP",.F.,.F.,{NEVENTO,CCODE,CLOCPAD})

MATI010.PRX - V4000_O() -> ARETPE := EXECBLOCK("MT010EAI",.F.,.F.,{APROD,NOPERATION})

MATI010.PRX - V4000_O() -> CAUXLOCPAD := EXECBLOCK("M010LOCP",.F.,.F.,{NOPERATION,CCODE,CLOCPAD})

MATI010.PRX - V4000_O() -> CJSON := EXECBLOCK("MT010JIN",.F.,.F.)

MATI020.PRX - V2000() -> ARETPE := EXECBLOCK("MTI020NOM",.F.,.F.,{AVENDOR,OXML:_TOTVSMESSAGE:_BUSINESSMESSAGE:_BUSINESSCONTENT:_NAME:TEXT})

MATI030.PRW - V2000() -> ARETPE := EXECBLOCK("MTI030NOM",.F.,.F.,{ACLIENTE,OXML:_TOTVSMESSAGE:_BUSINESSMESSAGE:_BUSINESSCONTENT:_NAME:TEXT})

MATI030.PRW - V2000() -> CADDXML := EXECBLOCK("MT030JIX",.F.,.F.,{CEVENT,OMODEL})

MATI030O.PRW - MATI030O() -> CJSON := EXECBLOCK("MT030JIN",.F.,.F., {CEVENT,OMODEL})

MATI040O.PRW - MATI040O() -> ADADOSSA3 := EXECBLOCK("M040OEAI",.F.,.F.,{ADADOSSA3, NOPCX, OEAIOBET:GETJSON()})

MATI103.PRX - V2000 () -> CRETPE:= EXECBLOCK( "MT103DOC", .F., .F., {CDOCUMENT})

MATI103A.PRX - V1000() -> CRETPE:= EXECBLOCK( "MT103DOC", .F., .F., {CDOCPRO})

MATI103A.PRX - V2000() -> CRETPE:= EXECBLOCK( "MT103DOC", .F., .F., {CDOCDEF})

MATI103A.PRX - V2000() -> CRETPE:= EXECBLOCK( "MT103DOC", .F., .F., {CDOCPRO})

MATI120.PRW - V3002() -> ARETPE := EXECBLOCK("ITMT120",.F.,.F.,{ACAB,AITENS,AITENSRAT,AITENSPRJ})

MATI120.PRW - V3002() -> CRETPE:= EXECBLOCK( "MTI120PC", .F., .F. )

MATI261.PRX - V1000() -> LMI261RCV := EXECBLOCK("MI261RCV",.F.,.F.,{OXMLI261})

MATI261.PRX - VALIDDEPOS() -> EXECBLOCK("A261LOC",.F.,.F., {CPRODUTO,CLOCAL,NORIGDEST})

MATI410.PRW - V3002() -> ARETPE := EXECBLOCK("MT410EAI",.F.,.F.,{ACAB,AITENS})

MATI410.PRW - V3002() -> CXMLRET += EXECBLOCK("MT410TCODE",.F.,.F.,{})

MATI410.PRW - V3002() -> CXMLRET := EXECBLOCK("LOCAXRMC", .F., .F., {CXMLRET})

MATI410.PRW - V3002() -> CXMLRET := EXECBLOCK("LOCAXRMI", .F., .F., {CXMLRET})

MATI410.PRW - V4003() -> ARETPE := EXECBLOCK("MT410EAI",.F.,.F.,{ACAB,AITENS})

MATI632.PRW - V1000() -> CADDXML := EXECBLOCK("PCPADDTAGS",.F.,.F.,{CENTITY,CEVENT,"SG2->"})

MATI650.PRW - V2000() -> ADADOS := EXECBLOCK('MTI650RCOP',.F.,.F.,APARAM)

MATI650.PRW - V2000() -> ANEWOPER := EXECBLOCK('MTI650ADOP',.F.,.F.,AOPER[LEN(AOPER)])

MATI650.PRW - V2000() -> CADDXML := EXECBLOCK("PCPADDTAGS",.F.,.F.,{CENTITY,CEVENT,CPONT})

MATI650.PRW - V2000() -> CDESCPROD := EXECBLOCK("MTI650DESC",.F.,.F.,{AEMPEN[NI,D4COD], AEMPEN[NI,D4RECNO]})

MATI650.PRW - V2000() -> CLOTCODE := EXECBLOCK('MTI650LOTE',.F.,.F.,CPONT+"->")

MATI650.PRW - V2000() -> CUM2 := EXECBLOCK('MTI650UMOP',.F.,.F.,APARAM)

MATI650.PRW - V2000() -> CUNITTIME := EXECBLOCK('MTI650UTTP',.F.,.F.,APARAM)

MATI650.PRW - V2000() -> LCONSCOMP := EXECBLOCK("MTI650FILC",.F.,.F.,{;

MATI650.PRW - V2000() -> LENVEMPE := EXECBLOCK("I650EMP",.F.,.F.,{&(CPONT+'->C2_NUM')})

MATI650.PRW - V2000() -> NFATOR := EXECBLOCK('MTI650FCOP',.F.,.F.,APARAM)

MATI650.PRW - V2000() -> NTIMEMAC := EXECBLOCK('MTI650TMAC',.F.,.F.,APARAM)

MATI681.PRW - RUNINTEGRA() -> ARET := EXECBLOCK('MATI681EXC',.F.,.F.,ASH6)

MATI681.PRW - RUNINTEGRA() -> ARET := EXECBLOCK('MATI681EXC',.F.,.F.,ASH6AUX)

MATI681.PRW - RUNINTEGRA() -> ARETDATAS := EXECBLOCK("MTI681DT",.F.,.F.,{DDATEINI,DDATEFIM})

MATI681.PRW - RUNINTEGRA() -> ASH6AUX := EXECBLOCK('MATI681CRG',.F.,.F.,ASH6)

MATI681.PRW - RUNINTEGRA() -> CNEWOPER := EXECBLOCK('MATI681OPR',.F.,.F.,{CNUMOP,COPERACAO,CMAQUINA,CPT})

MATI681.PRW - RUNINTEGRA() -> EXECBLOCK('MT681ALXML',.F.,.F.,OXML)

MATI681.PRW - RUNINTEGRA() -> LRETPE := EXECBLOCK("MATI681DTA")

MATI681.PRW - RUNINTEGRA() -> NQTREFDEST := EXECBLOCK('MTI681QTAP',.F.,.F.,{CNUMOP,CPRDREFDST,NREFQTDTO,"R"})

MATI681.PRW - RUNINTEGRA() -> NQTREFORIG := EXECBLOCK('MTI681QTAP',.F.,.F.,{CNUMOP,CPRDREFORG,NREFUGQTD,"R"})

MATI681.PRW - RUNINTEGRA() -> NQUANT := EXECBLOCK('MTI681QTAP',.F.,.F.,{CNUMOP,CPRODUTO,NQTDAPR,"A"})

MATI681.PRW - RUNINTEGRA() -> NQUANT := EXECBLOCK('MTI681QTAP',.F.,.F.,{CNUMOP,CPRODUTO,NQTDREF,"R"})

MATI682.PRW - V1000() -> ARET := EXECBLOCK('MATI681EXC',.F.,.F.,ASH6)

MATI682.PRW - V1000() -> ASH6AUX := EXECBLOCK('MATI681CRG',.F.,.F.,ASH6)

MATIDI.PRW - MTGRSB2FIL()() -> CQUERYPE := EXECBLOCK("MTGRSB2FIL")

MATN030.PRX - A30ALTERA() -> IF EXISTBLOCK( "MA030BUT" ) .AND. VALTYPE( AUSRBUT := EXECBLOCK( "MA030BUT", .F., .F., { 4 } ) ) == "A"

MATN030.PRX - A30ALTERA() -> IF EXISTBLOCK( "MA030DBT" ) .AND. VALTYPE( AUSRBUT := EXECBLOCK( "MA030DBT", .F., .F., { 4 } ) ) == "A"

MATN030.PRX - A30ALTERA() -> IF VALTYPE(LEXECUTA := EXECBLOCK("M030PALT",.F.,.F.,{NOPCA})) == "L" .AND. !LEXECUTA

MATN030.PRX - A30ALTERA() -> LEXECUTA := EXECBLOCK("M030ALT",.F.,.F.)

MATN030.PRX - A30ALTERA() -> LEXECUTA := EXECBLOCK("M030ALT",.F.,.F.,NOPCA)

MATN030.PRX - A30ALTERA() -> LVLDINT := EXECBLOCK("MT030INT",.F.,.T.)

MATN030.PRX - A30DELETA() -> EXECBLOCK("M030EXC",.F.,.F.)

MATN030.PRX - A30DELETA() -> IF EXISTBLOCK( "MA030BUT" ) .AND. VALTYPE( AUSRBUT := EXECBLOCK( "MA030BUT", .F., .F., { 5 } ) ) == "A"

MATN030.PRX - A30DELETA() -> IF EXISTBLOCK( "MA030DBT" ) .AND. VALTYPE( AUSRBUT := EXECBLOCK( "MA030DBT", .F., .F., { 5 } ) ) == "A"

MATN030.PRX - A30DELETA() -> LEXECUTA := EXECBLOCK("M030DEL",.F.,.F.)

MATN030.PRX - A30INCLUI() -> EXECBLOCK("M030INC",.F.,.F., NOPCA )

MATN030.PRX - A30INCLUI() -> IF EXISTBLOCK( "MA030BUT" ) .AND. VALTYPE( AUSRBUT := EXECBLOCK( "MA030BUT", .F., .F., { 3 } ) ) == "A"

MATN030.PRX - A30INCLUI() -> IF EXISTBLOCK( "MA030DBT" ) .AND. VALTYPE( AUSRBUT := EXECBLOCK( "MA030DBT", .F., .F., { 3 } ) ) == "A"

MATN030.PRX - A30INCLUI() -> IF EXISTBLOCK( "MA030VINC" ) .AND. !( LRET := EXECBLOCK( "MA030VINC", .F., .F. ) )

MATN030.PRX - A30VISUAL() -> IF EXISTBLOCK( "MA030DBT" ) .AND. VALTYPE( AUSRBUT := EXECBLOCK( "MA030DBT", .F., .F., { 2 } ) ) == "A"

MATN030.PRX - M030ALTTRA() -> EXECBLOCK("MALTCLI",.F.,.F.)

MATN030.PRX - MA030TRANS() -> EXECBLOCK("M030INC",.F.,.F., NOPC )

MATN030.PRX - MATA030GRV() -> EXECBLOCK("M030SAO",.F.,.F.,{5})

MATN030.PRX - MATA030GRV() -> EXECBLOCK("M030SAO",.F.,.F.,{NOPCAO})

MATN410.PRW - A410BONUS() -> ABONUS:=EXECBLOCK('A410BONU',.F.,.F.,{ACOLS,{NPPROD,NPQTDVEN,NPTES}})

MATN410.PRW - A410BONUS() -> ACOLS[NZ] := EXECBLOCK("A410BLCO",.F.,.F.,{AHEADER,ACOLS[NZ]})

MATN410.PRW - A410GRAVA() -> ASALDOSDC := EXECBLOCK("M410PSDC",.F.,.F.)

MATN410.PRW - A410GRAVA() -> ASALDOSDC := EXECBLOCK("M410RLIB",.F.,.F.,ASALDOSDC)

MATN410.PRW - A410GRAVA() -> EXECBLOCK("GEMXGRCVND",.F.,.F.,{NOPCAO ,M->C5_NUM ,M->C5_CONDPAG})

MATN410.PRW - A410GRAVA() -> EXECBLOCK("GEMXGRCVND",.F.,.F.,{NOPCAO ,SC5->C5_NUM ,SC5->C5_CONDPAG})

MATN410.PRW - A410GRAVA() -> EXECBLOCK("M410AGRV",.F.,.F.,{ NOPCAO })

MATN410.PRW - A410GRAVA() -> EXECBLOCK("MA410DEL",.F.,.F.)

MATN410.PRW - A410GRAVA() -> EXECBLOCK("MTA410E",.F.,.F.)

MATN410.PRW - A410GRAVA() -> EXECBLOCK("MTA410I",.F.,.F.,NX)

MATN410.PRW - A410GRAVA() -> EXECBLOCK("MTA410T",.F.,.F.)

MATN410.PRW - A410GRAVA() -> IF AT(UPPER("EXEC"),X5DESCRI()) > 0

MATN410.PRW - A410TABELA() -> NPRCVEN := EXECBLOCK("A410TAB",.F.,.F.,{CPRODUTO,CTABPREC,NLIN,NQTDE,CCLIENTE,CLOJA,CLOTECTL,CNUMLOTE,LLOTE})

MATN410.PRW - MA410FLUXO() -> LREPROCAID:= EXECBLOCK("M410REC",.F.,.F., {CNUMPV, AFLUXO} )

MATN410.PRW - MA410FLUXO() -> MAFISALT("IT_VALIPI",EXECBLOCK("M410IPI",.F.,.F.,),NITEM,.T.)

MATN410.PRW - MA410RESID() -> LCONTINUA := EXECBLOCK("M410VRES",.F.,.F.)

MATN410.PRW - MA410RESID() -> LCONTINUA := EXECBLOCK("MT410ACE",.F.,.F.,{NOPC})

MATN410A.PRW - A410KEYF9() -> CCONSSXB := IF(VALTYPE(CCONSSXB:=EXECBLOCK("CN120SXB",.F.,.F.))=="C",CCONSSXB,"CN9003")

MATN410A.PRW - A410PROCDV() -> EXECBLOCK("M410ABN",.F.,.F.)

MATN410A.PRW - A410PROCDV() -> EXECBLOCK("M410PCDV",.F.,.F.,{CALIASSD1})

MATN410A.PRW - A410PROCDV() -> EXECBLOCK("M410STTS",.F.,.F.,{7})

MATN410A.PRW - A410REMBEN() -> EMPTY(ACOLS[N,NPOSCOD]) .OR. (SB1->(DBSEEK(XFILIAL("SB1")+ACOLS[N,NPOSCOD])) .AND. IIF(L410REMB,EXECBLOCK("M410REMB",.F.,.F.,{SB1->B1_COD}),ALLTRIM(SB1->B1_TIPO) != "BN")) .OR.;

MATN410A.PRW - GTQRYDEVOL() -> CQUERYAUX := EXECBLOCK("A410RNF",.F.,.F.,{ DDATADE, DDATAATE, LFORN, LFORNECE })

MATN410A.PRW - MA410BOM() -> EXECBLOCK("MA410BOM",.F.,.F.,{ABOM})

MATN410A.PRW - MA410NFVP3() -> LPROCESSA := EXECBLOCK("MTPROCP3",.F.,.F.,{CALIASSB6,.T.})

MATN410B.PRW - A410RENTPV() -> ARENTAB := EXECBLOCK("MA410RPV",.F.,.F.,ARENTAB)

MATN410B.PRW - A410RETSML() -> EXECBLOCK('MA410SML',.F.,.F.,{ALISTBOX})

MATN410B.PRW - A410SMLFRT() -> EXECBLOCK('MA410FRT',.F.,.F.,{ARET})

MATN410B.PRW - INTPVSSERV() -> APE := EXECBLOCK("M410SSERV",.F.,.F.,{ACAB,AITENS,NOPCAO })

MATN410B.PRW - PARA MANIPULACAO DAS VARIAVEIS NVALMERC E NPRCLISTA ³() -> ,AVENCTO := EXECBLOCK("GMMA410DUPL",.F.,.F.,{M->C5_NUM ,M->C5_CONDPAG,DDATACND,,MAFISRET(,"NF_BASEDUP"),AVENCTO}) ;

MATN410B.PRW - PARA MANIPULACAO DAS VARIAVEIS NVALMERC E NPRCLISTA ³() -> ACTION ( EXECBLOCK("GMMA410CVND",.F.,.F.,{NOPC ,M->C5_NUM ,M->C5_CONDPAG ,DDATACND ,MAFISRET(,"NF_BASEDUP")}) ;

MATN410B.PRW - PARA MANIPULACAO DAS VARIAVEIS NVALMERC E NPRCLISTA ³() -> ADUPL := EXECBLOCK("M410VCT",.F.,.F.,{ADUPL,MAFISRET(,"NF_BASEDUP")})

MATN410B.PRW - PARA MANIPULACAO DAS VARIAVEIS NVALMERC E NPRCLISTA ³() -> ASOLID := EXECBLOCK("M410SOLI",.F.,.F.,{NITEM})

MATN410B.PRW - PARA MANIPULACAO DAS VARIAVEIS NVALMERC E NPRCLISTA ³() -> AVENCTO := EXECBLOCK("GMMA410DUPL",.F.,.F.,{M->C5_NUM ,M->C5_CONDPAG,DDATACND,,MAFISRET(,"NF_BASEDUP") ,AVENCTO}, .F., .F.)

MATN410B.PRW - PARA MANIPULACAO DAS VARIAVEIS NVALMERC E NPRCLISTA ³() -> EXECBLOCK("M410ICM",.F.,.F., { NITEM } )

MATN410B.PRW - PARA MANIPULACAO DAS VARIAVEIS NVALMERC E NPRCLISTA ³() -> EXECBLOCK("M410PLNF",.F.,.F.)

MATN410B.PRW - PARA MANIPULACAO DAS VARIAVEIS NVALMERC E NPRCLISTA ³() -> LM410FLDR := EXECBLOCK("M410FLDR",.F.,.F.)

MATN410B.PRW - PARA MANIPULACAO DAS VARIAVEIS NVALMERC E NPRCLISTA ³() -> MAFISALT("IT_VALIPI",EXECBLOCK("M410IPI",.F.,.F.,{ NITEM }),NITEM,.T.)

MATN410C.PRW - A410CDBAR() -> IIF(LCODBARRA .AND. !LM410BAR,A410ENTRABARRA(OGETD),IIF(LCODBARRA .AND. LM410BAR,EXECBLOCK("M410CODBAR",.F.,.F.,{NOPC,OGETD}),))

MATN410C.PRW - MA410PVNFS() -> DDATABASE := IF(VALTYPE(DDATAPE := EXECBLOCK("M410ALDT", .F., .F.))=='D', DDATAPE , DDATABASE)

MATN410C.PRW - MA410PVNFS() -> EXECBLOCK( "M461DINF", .F., .F. )

MATN410C.PRW - MA410PVNFS() -> LCONTINUA := EXECBLOCK("M410PVNF",.F.,.F.,NREG)

MATR103A.PRX - M103RTFIN() -> CNUMDOC:= EXECBLOCK("MTR103DC",.F.,.F.,{MV_PAR01,CNUMDOC})

MATR103A.PRX - REPORTPRINT() -> AQUERY:= EXECBLOCK("MTR103QF2",.F.,.F.,{CSELECT,CWHERE1,CORDER})

MATR103A.PRX - REPORTPRINT() -> CNUMC:= EXECBLOCK("MTR103CO",.F.,.F.,{MV_PAR01,CNUMC})

MATR110.PRX - C110AE() -> EXECBLOCK("M110MAIL",.F.,.F.,{APEDMAIL})

MATR110.PRX - C110PC() -> EXECBLOCK("M110MAIL",.F.,.F.,{APEDMAIL})

MATR263.PRW - GERARQ() -> CNODIAM := EXECBLOCK('MTR263CM',.F.,.F.,CNODIA2)

MATR440.PRX - REPORTPRINT() -> LVALIDSB1 := EXECBLOCK("MT170SB1",.F.,.F.,{CALIASSB1})

MATR440.PRX - REPORTPRINT() -> NAUXQUANT := EXECBLOCK("MR440QTD",.F.,.F.,NQUANT)

MATR440.PRX - REPORTPRINT() -> NSALDAUX := EXECBLOCK("MT170SLD",.F.,.F.,{NSALDO,SB2->B2_COD,SB2->B2_LOCAL})

MATR460.PRX - GRAVATERC() -> IF EXISTBLOCK("A460ALTRB") .AND. VALTYPE(ARETPE := EXECBLOCK("A460ALTRB",.F.,.F.,{ATERCEIROS})) =="A"

MATR460.PRX - R460ANPROCESSO() -> AA460AMZP := EXECBLOCK("A460AMZP",.F.,.F.,'')

MATR460.PRX - R460EMPROCESSO() -> AA460AMZP := EXECBLOCK("A460AMZP",.F.,.F.,'')

MATR460.PRX - R460GRAVA() -> EXECBLOCK("A460UNIT",.F.,.F.,{CPRODUTO,CLOCAL,MV_PAR13,CARQTEMP,{'QTCUS',NQTDE,NCUSTO}})

MATR460.PRX - R460IMP() -> A460LOCFIL := EXECBLOCK("A460RLOC",.F.,.F.,'')

MATR460.PRX - R460IMP() -> AA460AMZP := EXECBLOCK("A460AMZP",.F.,.F.,'')

MATR460.PRX - R460IMP() -> EXECBLOCK("A460UNIT",.F.,.F.,{SB1->B1_COD,"",MV_PAR13,CARQTEMP,{'ADADOSCF9',ADADOSCF9[01],ADADOSCF9[02]}})

MATR460.PRX - R460IMP() -> EXECBLOCK("A460UNIT",.F.,.F.,{SB1->B1_COD,(CALIASTOP)->B2_LOCAL,MV_PAR13,CARQTEMP,{'ASALATU',ASALATU[01],ASALATU[02]}})

MATR460.PRX - R460IMP() -> LSALDTESN3 := EXECBLOCK("A460TESN3",.F.,.F.,{SB1->B1_COD,MV_PAR13})

MATR460.PRX - R460TERCEIROS() -> EXECBLOCK("A460TUNI",.F.,.F.,{SB1->B1_COD ,CLOCTERC ,DFECH ,CARQTEMP})

MATR460.PRX - REPORTPRINT() -> A460LOCFIL := EXECBLOCK("A460RLOC",.F.,.F.,'')

MATR460.PRX - REPORTPRINT() -> EXECBLOCK("A460UNIT",.F.,.F.,{SB1->B1_COD,"",MV_PAR13,CARQTEMP,{'ADADOSCF9',ADADOSCF9[01],ADADOSCF9[02]}})

MATR460.PRX - REPORTPRINT() -> EXECBLOCK("A460UNIT",.F.,.F.,{SB1->B1_COD,(CALIASTOP)->B2_LOCAL,MV_PAR13,CARQTEMP,{'ASALATU',ASALATU[01],ASALATU[02]}})

MATR460.PRX - REPORTPRINT() -> LSALDTESN3 := EXECBLOCK("A460TESN3",.F.,.F.,{SB1->B1_COD,MV_PAR13})

MATR470.PRX - MT470IMP() -> CRETPE := EXECBLOCK("MR470IND",.F.,.F.,{CINDICE2})

MATR470.PRX - MT470IMP() -> CRETPE := EXECBLOCK("MTR470ES",.F.,.F.,"SD1")

MATR470.PRX - MT470IMP() -> CRETPE := EXECBLOCK("MTR470ES",.F.,.F.,"SD2")

MATR470.PRX - MT470IMP() -> CRETPE := EXECBLOCK("MTR470ES",.F.,.F.,"SD3")

MATR470.PRX - MT470IMP() -> UOBSNEW := EXECBLOCK("MA470OBS",.F.,.F.,"SD1")

MATR470.PRX - MT470IMP() -> UOBSNEW := EXECBLOCK("MA470OBS",.F.,.F.,"SD2")

MATR470.PRX - MT470IMP() -> UOBSNEW := EXECBLOCK("MA470OBS",.F.,.F.,"SD3")

MATR475.PRW - MATR475() -> PROCESSA({ |LEND| EXECBLOCK("M475IMPPER",.F.,.F.,{SF1->F1_ESPECIE, SF1->F1_SERIE, SF1->F1_DOC, SF1->F1_TIPODOC, SF1->F1_FORNECE, SF1->F1_LOJA, LVISUALPDF})}, STR0053 + ALLTRIM(STR(NNUMDOCIMP)) + "/" + ALLTRIM(STR(NNUMREGS)))

MATR620.PRX - C620IMP() -> CQUERYADD := EXECBLOCK("F620QRY", .F., .F., {ARETURN[7]})

MATR680.PRX - C680TRB() -> CQUERYADD := EXECBLOCK("F680QRY", .F., .F., {ARETURN[7]})

MATR700.PRX - C700IMP() -> CQUERYADD := EXECBLOCK("F700QRY", .F., .F., {ARETURN[7]})

MATR909.PRX - PROCDEV() -> NQTDENF:=A909CONV((CALIASSD1)->D1_COD,IIF(LM908SUNI,EXECBLOCK("M908SUNI",.T.,.T.,{(CALIASSD1)->D1_QUANT}),(CALIASSD1)->D1_QUANT),MV_PAR09,(CALIASSB1)->B1_CONV,(CALIASSB1)->B1_TIPCONV)

MATR914.PRW - R914PONTO() -> NDEDUZ := TRANSFORM(EXECBLOCK("MT914DED",.F.,.F.),"@E 999,999,999.99")

MATR930.PRX - LIVRARRAYOBS() -> ACOLOBS := EXECBLOCK("MATR930A", .F., .F.,{ACOLOBS})

MATR930.PRX - R930IMP() -> EXECBLOCK("MATR932",.F.,.F.)

MATR935.PRX - MATR935R3() -> LMODOCOMP := EXECBLOCK("MTR935C",.F.,.F.)

MATR939.PRW - IMPREL() -> CALIBLH := EXECBLOCK("SPEDALTH",.F.,.F.,{STOD(CDATAFIN),''})

MATR945.PRX - R945IMP() -> AALIQFUNR := EXECBLOCK("MTR94501",.F.,.F.,{(CALIASSFT)->FT_CLIEFOR,(CALIASSFT)->FT_LOJA, SA2->A2_TIPORUR, SM0->M0_PRODRUR})

MATR950.PRX - R950IMP() -> CARQTEMP:= EXECBLOCK("DIPIARQ",.F.,.F.)

MATR950.PRX - R950IMP() -> CCFO_SAI:=EXECBLOCK("DIPISAI",.F.,.F.)

MATR961.PRX - R961IMP() -> EXECBLOCK("MATR962",.F.,.F.)

MATR968.PRW - MT968PRINT() -> AMTCLINFE := EXECBLOCK("MTCLINFE",.F.,.F.,{(CALIASSF3)->F3_NFISCAL,(CALIASSF3)->F3_SERIE,(CALIASSF3)->F3_CLIEFOR,(CALIASSF3)->F3_LOJA})

MATR968.PRW - MT968PRINT() -> COBSPONTO := EXECBLOCK("MTOBSNFE",.F.,.F.,{(CALIASSF3)->F3_NFISCAL,(CALIASSF3)->F3_SERIE,(CALIASSF3)->F3_CLIEFOR,(CALIASSF3)->F3_LOJA})

MATR968.PRW - MT968PRINT() -> CSERVPONTO := EXECBLOCK("MTDESCRNFE",.F.,.F.,{(CALIASSF3)->F3_NFISCAL,(CALIASSF3)->F3_SERIE,(CALIASSF3)->F3_CLIEFOR,(CALIASSF3)->F3_LOJA})

MATR978.PRX - MTR978DISP() -> AREGRACP:=EXECBLOCK("MA330CP",.F.,.F.)

MATR979.PRX - REPORTDEF() -> AREGRACP  :=EXECBLOCK("MA330CP",.F.,.F.)

MATR979.PRX - REPORTPRINT() -> AREGRACP:=EXECBLOCK("MA330CP",.F.,.F.)

MATV030.PRX - MATA030IPG() -> LRETIPG := EXECBLOCK( 'MATA030IPG' , .F. , .F. , {NOPERATION} )

MATV030.PRX - VALBTOK() -> LOKBLK := EXECBLOCK("VBTOK030",.F.,.F., {NOPC} )

MATV410.PRW - A410CHECAB1() -> CCODIGO := EXECBLOCK("MTA410BR",.F.,.F.,CCODIGO)

MATV410.PRW - A410LOJA() -> CCODVDBLK := EXECBLOCK("A410PVCL",.F.,.F.,"A1_VEND")

MATV410.PRW - A410VLDTOK() -> LRET := EXECBLOCK("MT410TOK",.F.,.F.,{NOPC,ARECNOSE1RA})

MATV410.PRW - MA410VLDUS() -> LRET := EXECBLOCK( "MA410VLD", .F., .F., { NOPCA } )

MATV410A.PRW - A410GVALID() -> EXECBLOCK("A410GVLD",.F.,.F.,{NLINACOLS,N,NCOLUNA})

MATV410A.PRW - A410LINOK() -> ACOLS[N][NPPRCVEN] := EXECBLOCK("MA410PR",.F.,.F.)

MATV410A.PRW - A410LINOK() -> LRETORNO := EXECBLOCK("GEM410LI",.F.,.F.,{N})

MATV410A.PRW - A410LINOK() -> LRETORNO := EXECBLOCK("M410ACDL",.F.,.F.)

MATV410A.PRW - A410LINOK() -> LRETORNO := EXECBLOCK("M410LIOK",.F.,.F.,O)

MATV410A.PRW - A410RATLOK() -> LRETORNO := EXECBLOCK("MRATLOK",.F.,.F.)

MATV410A.PRW - A410TIPO9() -> LRET := EXECBLOCK("A410VTIP",.F.,.F.,{LRET})

MATV410A.PRW - A410TIPO9() -> LRET := EXECBLOCK("M410TIP9",.F.,.F.)

MATV410A.PRW - A410TIPO9() -> NPARCELAS := EXECBLOCK("MT410PC",.F.,.F.)

MATV410A.PRW - A410TRAVA() -> ARETORNO  := EXECBLOCK("MT410TRV",.F.,.F.,{M->C5_CLIENTE,M->C5_LOJACLI,IIF(M->C5_TIPO$"DB","F","C")})

MATV410A.PRW - A410TUDOK() -> LRETORNA  := EXECBLOCK("MTA410",.F.,.F.)

MATV410A.PRW - A410VALDEL() -> LRETPE := EXECBLOCK("M410LDEL",.F.,.F.,{LRET})

MATXALC.PRX - MAALCDOC() -> AMTALCGRU := IF(VALTYPE(ARETPE:=EXECBLOCK("MTALCGRU",.F.,.F.,{CAPROV,CGRUPO}))=="A",ARETPE,AMTALCGRU)

MATXALC.PRX - MAALCDOC() -> CUSERSOLIC:= EXECBLOCK("MTUSRSOLIC", .F., .F., {SCR->CR_TIPO,SCR->CR_NUM})

MATXALC.PRX - MAALCDOC() -> EXECBLOCK("MTALCALT",.F.,.F.)

MATXALC.PRX - MAALCDOC() -> EXECBLOCK("MTALCDOC",.F.,.F.,{ADOCTO,DDATAREF,NOPER,CITGRP})

MATXALC.PRX - MAALCDOC() -> EXECBLOCK("MTSOLICAT", .F., .F., {CTIPODOC,CDOCTO,"","CR_NUM",CUSERSOLIC,.T.})

MATXALC.PRX - MAALCDOC() -> IF VALTYPE(CMTALCAPR := EXECBLOCK("MTALCAPR",.F.,.F.,{CTIPODOC,CDOCTO,NVALDCTO,DDATAREF})) == "C" .AND.;

MATXALC.PRX - MAALCDOC() -> LCALCULO := EXECBLOCK("MTALCFIM",.F.,.F.,{ADOCTO,DDATAREF,NOPER,CDOCSF1,LRESIDUO})

MATXALC.PRX - MAALCDOC() -> LRETORNO := (EXECBLOCK("MT097GRV",.F.,.F.,{ADOCTO,DDATAREF,NOPER,CDOCSF1,LRESIDUO,CAPROV,CUSUARIO,CGRUPO}))

MATXALC.PRX - MAGRPAPEC() ->    AAPVPE := EXECBLOCK("GRPAPEC",.F.,.F.,{AENTCTB,LENTCTB,CTPDOC})

MATXALC.PRX - MASALALC() -> ARET097SLD := EXECBLOCK("MT097SLD",.F.,.F.,{NSALDO,NMOEDA,DDTSALDO})

MATXALC.PRX - MTGETALCPE() -> AMTALCDOC := EXECBLOCK("MTALCPER",.F.,.F.)

MATXALC.PRX - SCHEDCOMALC() -> CUSERSOLIC:= EXECBLOCK("MTUSRSOLIC", .F., .F., {SCR->CR_TIPO,SCR->CR_NUM})

MATXALC.PRX - SCHEDCOMALC() -> EXECBLOCK("MTSOLICAT", .F., .F., {CTIPODOC,CDOCTO,"","CR_NUM",CUSERSOLIC,.T.})

MATXATU.PRX - ADUPCRED() -> EXECBLOCK( "M461DUPCR", .F., .F. )

MATXATU.PRX - ATUASB6() -> EXECBLOCK("SB6GRAVA",.F.,.F.)

MATXATU.PRX - ATUSALDUP() -> LATUSALDO := EXECBLOCK("MATATUSL",.F.,.F.)

MATXATU.PRX - EVALGENERIC() -> EXECBLOCK(FUNNAME(),.F.,.F.)

MATXATU.PRX - F100TOP() -> CDTEMIS := EXECBLOCK ("SPDF1001",.F.,.F.)

MATXATU.PRX - F100TOP() -> CDTEMIS := EXECBLOCK ("SPDF1006",.F.,.F.)

MATXATU.PRX - F100TOP() -> CQUERY := EXECBLOCK("SPDF100Q", .F. , .F. , {CQUERY, CALIAS})

MATXATU.PRX - FGRVIMPPCC() -> ACRETS :=EXECBLOCK("FINCDRET")

MATXATU.PRX - FGRVIMPPCC() -> EXECBLOCK("F050COF",.F.,.F.,NREGSE2)

MATXATU.PRX - FGRVIMPPCC() -> EXECBLOCK("F050CSL",.F.,.F.,NREGSE2)

MATXATU.PRX - FGRVIMPPCC() -> EXECBLOCK("F050GER",.F.,.F.,ARECIMPOS)

MATXATU.PRX - FGRVIMPPCC() -> EXECBLOCK("F050IRF",.F.,.F.,NREGSE2)

MATXATU.PRX - FGRVIMPPCC() -> EXECBLOCK("F050ISS",.F.,.F.,NREGSE2)

MATXATU.PRX - FGRVIMPPCC() -> EXECBLOCK("F050PIS",.F.,.F.,NREGSE2)

MATXATU.PRX - FGRVIRRF() -> EXECBLOCK("F050IRF",.F.,.F.,NREGIORIG)

MATXFIS.PRX - MAFISALIQIV() -> ANFITEM[NITEM][IT_ALIQIMP][NIMP]:= EXECBLOCK(ATES[TS_SFC][NIMPOSTO][SFB_FORMENT],.F.,.F.,{"A",NITEM,AINFO},(LEFT(ATES[TS_SFC][NIMPOSTO][SFB_FORMENT],2)=="U_"))

MATXFIS.PRX - MAFISALIQIV() -> ANFITEM[NITEM][IT_ALIQIMP][NIMP]:= EXECBLOCK(ATES[TS_SFC][NIMPOSTO][SFB_FORMSAI],.F.,.F.,{"A",NITEM,AINFO},(LEFT(ATES[TS_SFC][NIMPOSTO][SFB_FORMENT],2)=="U_"))

MATXFIS.PRX - MAFISBSIV() -> ANFITEM[NITEM][IT_BASEIMP][NIMP]:= EXECBLOCK(ATES[TS_SFC][NIMPOSTO][SFB_FORMENT],.F.,.F.,{"B",NITEM,AINFO},(LEFT(ATES[TS_SFC][NIMPOSTO][SFB_FORMENT],2)=="U_"))

MATXFIS.PRX - MAFISBSIV() -> ANFITEM[NITEM][IT_BASEIMP][NIMP]:= EXECBLOCK(ATES[TS_SFC][NIMPOSTO][SFB_FORMSAI],.F.,.F.,{"B",NITEM,AINFO},(LEFT(ATES[TS_SFC][NIMPOSTO][SFB_FORMENT],2)=="U_"))

MATXFIS.PRX - MAFISEDITCELL() -> VALID IIF( LMAVLDIMP , EXECBLOCK("MAVLDIMP", .F., .F. , { OBROWSE:AARRAY[NROW,1] , OBROWSE:AARRAY[NROW,3] , OBROWSE:AARRAY[NROW,5] , CCELULA , &(CMACRO) } ) , .T. ) .AND. &CVALID

MATXFIS.PRX - MAFISINSEREIMP() -> LATUIMPMAN := EXECBLOCK("MFISIMP",.F.,.F.,{NVALOR,AIMPCOD,CIMPOSTO,NBASE})

MATXFIS.PRX - MAFISSOMAIT() -> EXECBLOCK("MXTOTIT",.F.,.F.,{0})

MATXFIS.PRX - MAFISVLIV() -> ANFITEM[NITEM][IT_VALIMP][NIMP]:= EXECBLOCK(ATES[TS_SFC][NIMPOSTO][SFB_FORMENT],.F.,.F.,{"V",NITEM,AINFO},(LEFT(ATES[TS_SFC][NIMPOSTO][SFB_FORMENT],2)=="U_"))

MATXFIS.PRX - MAFISVLIV() -> ANFITEM[NITEM][IT_VALIMP][NIMP]:= EXECBLOCK(ATES[TS_SFC][NIMPOSTO][SFB_FORMSAI],.F.,.F.,{"V",NITEM,AINFO},(LEFT(ATES[TS_SFC][NIMPOSTO][SFB_FORMENT],2)=="U_"))

MATXFIS.PRX - MAGRVCDR() -> LRET := EXECBLOCK( "VLCODRET",.F.,.F.,{ OLIST:AARRAY[OLIST:NAT][1] , CCODRET })

MATXFIS.PRX - MARATEIO() -> ARATEIO := EXECBLOCK("MARATEIO",.F.,.F.,{CTPRATDESP,CTPRATFRETE,CTPRATSEG,CTPRATNTR,CTPRATTARA})

MATXFUNA.PRX - CALCLOTE() -> ARETPE := EXECBLOCK("CALCLELM",.F.,.F.,{CPRODUTO,NNECES,IF(CQUEBRA == "N",AQTDNQ ,AQTD)})

MATXFUNA.PRX - CALCLOTE() -> EXECBLOCK("MTCALCL",.F.,.F., {CQUEBRA, CMODO, NNECES})

MATXFUNA.PRX - CRIACPROVA() -> CLOTE := EXECBLOCK("LOTECONT",.F.,.F.,{CPROGRAMA})

MATXFUNA.PRX - DETPROVA() -> EXECBLOCK("CT105CTK", .F., .F., ACT5[NX,2][NY])

MATXFUNA.PRX - DETPROVA() -> EXECBLOCK("CT5CPOS",.F.,.F.,{ACT5[NX]})

MATXFUNA.PRX - GETTRBSTRU() -> IF EXISTBLOCK("MA330IND") .AND. VALTYPE(CINDRDMK := EXECBLOCK("MA330IND",.F.,.F.)) == "C"

MATXFUNA.PRX - GETTRTSTRU() -> AREGRACP:=EXECBLOCK("MA330CP",.F.,.F.)

MATXFUNA.PRX - HEADPROVA() -> EXECBLOCK("CONFILE",.F.,.F.,{CARQUIVO,NRETHANDLE} )

MATXFUNA.PRX - NXTSX5NOTA() -> CFILSX5 := EXECBLOCK("CHGX5FIL",.F.,.F.)

MATXFUNA.PRX - RDSELECT() -> @2.1,10 SAY OVALOR VAR NVALORSEL PICTURE "@E 999,999,999,999.99"

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

MATXFUNA.PRX - RDSELECT() -> OMARK:OBROWSE:BALLMARK := {|| NVALORSEL:=EXECBLOCK(CRDM,.F.,.F.),OVALOR:REFRESH(),OMARK:OBROWSE:REFRESH(.T.)}

MATXFUNA.PRX - SALDOSB2() -> IF EXISTBLOCK("MTSLDSER") .AND. VALTYPE(LMTSLDSER := EXECBLOCK("MTSLDSER",.F.,.F.,{(CALIASSB2)->B2_COD})) == "L"

MATXFUNA.PRX - SX5NUMNOTA() -> CFILSX5 := EXECBLOCK("CHGX5FIL",.F.,.F.)

MATXFUNA.PRX - SX5NUMNOTA() -> IF ( ! EXECBLOCK("SX5NOTA",.F.,.F.,{CFILSX5, SX5->X5_TABELA, SX5->X5_CHAVE, SX5->(X5DESCRI(,,,,.F.))}) )

MATXFUNA.PRX - SX5NUMNOTA() -> LCONTINUA := EXECBLOCK("MTVALRPS",.F.,.F.,{CSERNF, CNUMNF})

MATXFUNA.PRX - SX5TROCA() -> BVALIDNUM := { |X,Y| EXECBLOCK( "NFSVLNUM", .F., .F., { X,Y } ) }

MATXFUNA.PRX - XMOEDA() -> NRETPE := EXECBLOCK("MTXMOEDA",.F.,.F.,{NVALOR,NMOEDP,NMOEDD,DDATA,NDECIMAL,NTAXAP,NTAXAD,NVALRET})

MATXFUNB.PRX - A460NUMIT() -> NITENS := EXECBLOCK("MTAITNFS",.F.,.F.,{NITENS,CSERIE})

MATXFUNB.PRX - AVALCOND() -> LXFIS:= (MAFISFOUND() .AND. __PROCNAME<>"EXECBLOCK")

MATXFUNB.PRX - D3VALIDO() -> LRETPE := EXECBLOCK('D3VALIDO', .F., .F., CALIAS)

MATXFUNB.PRX - NGGARANSD1() -> EXECBLOCK("NGGARESSD1",.F.,.F.)

MATXFUNB.PRX - NGSD1GESTL() -> EXECBLOCK("NGFIMOS",.F.,.F.)

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

MATXFUNB.PRX - VALIDACUSTO() -> CFILCTT := EXECBLOCK("CTBFILVLD", .F., .F., "CTT")

MATXFUNC.PRX - MENVIAMAIL() -> AMTENVCC:= EXECBLOCK("MMENCC"+SUBSTR(CEVENTO,1,3))

MATXFUNC.PRX - MENVIAMAIL() -> AMTENVML := EXECBLOCK("MTENVML",.F.,.F.,{CMAILCTAAUT,CMAILCONTA,CMAILSENHA,CMAILSERVER})

MATXFUNC.PRX - MENVIAMAIL() -> ARETORMAIL:=EXECBLOCK("MFILTRMAIL",.F.,.F.,{CPARUSUARIO,CPARGRUSUARIO,CPAREMAILS})

MATXFUNC.PRX - MENVIAMAIL() -> AUSERALT := EXECBLOCK("MMENTO"+SUBSTR(CEVENTO,1,3),.F.,.F.,{AUSERS})

MATXFUNC.PRX - MENVIAMAIL() -> CMENSAGEM:=EXECBLOCK(CBLOCKUSER,.F.,.F.,{ADADOS,CMENSAGEM})

MATXFUNC.PRX - MENVIAMAIL() -> LENVIA:=EXECBLOCK("MAVALMMAIL",.F.,.F.,{CEVENTO,ADADOS,CPARUSUARIO,CPARGRUSUARIO,CPAREMAILS,LEVRH})

MATXFUNC.PRX - MSDOCVIEW() -> NRET := EXECBLOCK( "MTADOCOPEN", .F., .F.,{CVERB,ALLTRIM(CFILE),"",CDIR})

MATXFUNC.PRX - MSVERAC9() -> LRET := EXECBLOCK("MSDOCFIL",.F.,.F.,{AC9->(RECNO())})

MATXMAG.PRX - APURADIF() -> CQUERY := EXECBLOCK("APDIF01", .F., .F., {CQUERY})

MATXMAG.PRX - APURADIF() -> CQUERY := EXECBLOCK("APDIF02", .F., .F., {CQUERY})

MATXMAG.PRX - CALCRB() -> CDBF+=EXECBLOCK("M913F2",.F.,.F.,)

MATXMAG.PRX - CALCRB() -> CDBFF1+=EXECBLOCK("M913F1",.F.,.F.,)

MATXMAG.PRX - CALCRB() -> CTOP+=EXECBLOCK("M913F2",.F.,.F.,)

MATXMAG.PRX - CALCRB() -> CTOPF1+=EXECBLOCK("M913F1",.F.,.F.,)

MATXMAG.PRX - D5PROC () -> CAD->D_MUNIC:=EXECBLOCK("CV115MUN", .F., .F., {'SA1'})

MATXMAG.PRX - DADOSDAPI() -> EXECBLOCK("DAPIMGD1",.F.,.F.,{CALIASSD1,DDATAINI,DDATAFIM})

MATXMAG.PRX - DADOSDAPI() -> EXECBLOCK("DAPIMGD2",.F.,.F.,{CALIASSD2,DDATAINI,DDATAFIM})

MATXSPED.PRW - REGK280() -> EXECBLOCK("REGK280",.F.,.F.,{CALIK280,DDATADE,DDATAATE})

MATXSPED.PRW - TROCATIPO() -> ATIPO := EXECBLOCK("SPDFIS001", .F., .F., {ATIPO})

MDTA005.PRX - ALTMDT005() -> EXECBLOCK("MDTA0053",.F.,.F.)

MDTA005.PRX - ALTMDT005() -> EXECBLOCK("MDTA0054",.F.,.F.)

MDTA005.PRX - CHKDEL005() -> IF !EXECBLOCK( "MDTA0055", .F., .F. )

MDTA005.PRX - MDT005OPE() -> EXECBLOCK( "MDTA0052", .F., .F. )

MDTA005.PRX - MDTALTTRF() -> NNUMFIC := EXECBLOCK( "MDTA0056" )

MDTA005.PRX - VISMDT005() -> EXECBLOCK("MDTA0054",.F.,.F.)

MDTA020.PRX - FMDTA0201() -> EXECBLOCK("MDTA0201",.F.,.F., { NOPCX })

MDTA075.PRX - MDT075INC() -> EXECBLOCK("MDTA075INC",.F.,.F.)

MDTA075.PRX - MDT075PRE() -> EXECBLOCK("MDTA075CAD",.F.,.F.)

MDTA075.PRX - MDT075VAL() -> EXECBLOCK("MDTA0752",.F.,.F.)

MDTA120.PRX - ALEXA120() -> EXECBLOCK("MDTA120AL",.F.,.F.)

MDTA120.PRX - CHCKGRAEX() -> LRET := EXECBLOCK( "MDTA1202", .F., .F. )

MDTA120.PRX - CHKTA120() -> LRET := EXECBLOCK( "MDTA1201", .F., .F. )

MDTA120.PRX - FVLDCONFIRM() -> LRET := EXECBLOCK( "MDTA1202", .F., .F. )

MDTA120.PRX - MDT120AUDIO() -> EXECBLOCK("VMDT120P",.F.,.F.)

MDTA120.PRX - REXAME120() -> EXECBLOCK("VAUDIO120",.F.,.F.)

MDTA145.PRX - MDTA145INI() -> CTEMPQUERY :=  EXECBLOCK("MDTA1452",.F.,.F.)

MDTA145.PRX - MDTIMPTMI() -> RETURN EXECBLOCK("MDTA1451",.F.,.F.)

MDTA155.PRX - MDT155GRV() -> EXECBLOCK( "MDTA1551", .F., .F. )

MDTA155.PRX - MDT155GRV() -> EXECBLOCK( "MDTA1553", .F., .F. )

MDTA155.PRX - MDTAHIS() -> CDESCRI += EXECBLOCK( "MDTA1605", .F., .F., AATEND[ NX, 7 ] )

MDTA155.PRX - MENUDEF() -> AROTINA := EXECBLOCK( "MDTA1555", , , AROTINA )

MDTA160.PRX - MDT160FWEX() -> EXECBLOCK("MDTR4601",.F.,.F.,{.F.})

MDTA160.PRX - NG160CID() -> LTMPRET := EXECBLOCK("MDTA160VL",.F.,.F.)

MDTA160.PRX - NG160DIAG() -> EXECBLOCK("MDTA1551",.F.,.F.)

MDTA160.PRX - NG160DIAG() -> EXECBLOCK("MDTA1553",.F.,.F.)

MDTA160.PRX - NG160DIAG() -> EXECBLOCK("MDTA1554",.F.,.F.)

MDTA160.PRX - NG160DIAG() -> EXECBLOCK("MDTA1602",.F.,.F.)

MDTA160.PRX - NG195AGE() -> ARETBT := EXECBLOCK("MDTA160BT",.F.,.F.)

MDTA161.PRX - MDT161GRV() -> EXECBLOCK( "MDTA1612", .F., .F. )

MDTA161.PRX - MDT161GRV() -> EXECBLOCK( "MDTA1614", .F., .F. )

MDTA161.PRX - MDT161TUDOK() -> LRET := EXECBLOCK( "MDTA1613", .F., .F. )

MDTA180.PRX - GRAVAMMRY() -> EXECBLOCK( "MDTA1803", .F., .F., ADADOSPE2 )

MDTA180.PRX - MENUDEF() -> ARET := EXECBLOCK( "MDTA1801", .F., .F. )

MDTA190.PRX - FEXAMEPER() -> ARETPE := EXECBLOCK( "MDTA1901" , .F. , .F. )

MDTA200.PRX - A200CHK() -> EXECBLOCK( "MDTA2003", .F., .F. )

MDTA200.PRX - A200CHK() -> IF !EXECBLOCK( "MDT160ASO", .F., .F. )

MDTA200.PRX - A200IMP() -> LRET := EXECBLOCK('MDTR4651', .F., .F., ADADOS )

MDTA200.PRX - MDT200GRV() -> EXECBLOCK( "MDTA2001", .F., .F. )

MDTA200.PRX - NG200IMP() -> EXECBLOCK( "MDTA1603", .F., .F. )

MDTA200.PRX - NG200IMP() -> EXECBLOCK('MDTR4651',.F.,.F., ADADOS )

MDTA200.PRX - NG200INC() -> EXECBLOCK( "MDTA2002", .F., .F. )

MDTA210.PRX - NG210GRV() -> EXECBLOCK( 'MDTA2102', .F., .F., { M->TO0_LAUDO, M->TO0_TIPREL, M->TO0_DTINIC, M->TO0_DTFIM, NOPCX } )

MDTA333.PRW - FGRAVAPRG() -> EXECBLOCK("MDTA3332",.F.,.F.,{LDEVOL})

MDTA410.PRW - DELETEREG() -> IF !EXECBLOCK( "MDTA4101", .F., .F., {CALIAS} )

MDTA450.PRX - MDT450CPEX() -> EXECBLOCK( 'MDTA4502', .F., .F. )

MDTA540.PRW - MDT540EX() -> AADD( AROTINA, { "LEGENDA", "EXECBLOCK('MDTA5402',.F.,.F.)", 0, 6 } )

MDTA540.PRW - MDT540EX() -> MBROWSE( 6, 1, 22, 75, "TLA", , , , , , EXECBLOCK( "MDTA5401", .F., .F. ) )

MDTA540.PRW - MENUDEF() -> AADD( AROTINA, { "LEGENDA", "EXECBLOCK('MDTA5402',.F.,.F.)", 0, 6 } )

MDTA555.PRW - MDT555HIS() -> CFILBLOCK := CVALTOCHAR( EXECBLOCK( "MDTA5551", .F., .F. ) )

MDTA575.PRW - A575GRAVA() -> EXECBLOCK("MDTA5751",.F.,.F.,{.T.,ACOBRWA,AHOBRWA})

MDTA620.PRX - MDT620EPWH() -> LRET := EXECBLOCK( "MDTA6202", .F., .F. )

MDTA620.PRX - MENUDEF() -> AADITENS := EXECBLOCK( "MDTA6206", .F., .F., { AROTINA } )

MDTA620.PRX - NGEPILINOK() -> LRET := EXECBLOCK( "MDTA6204" )

MDTA620.PRX - NGEPIS620() -> EXECBLOCK( "MDTA6203", .F., .F., { ACOLS, AHEADER } )

MDTA620.PRX - NGEPITUDOK() -> LRET := EXECBLOCK( "MDTA6205" )

MDTA645.PRW - MDT645VOTO() -> EXECBLOCK( "MDTA6451", .F., .F. , { XFILIAL("TNQ"), CMANDATO, ACOLS[NX,NMAT] } )

MDTA665.PRW - MDT665INC() -> ABTN:=EXECBLOCK("MDTA6651",.F.,.F.)

MDTA665.PRW - MDT665TOK() -> EXECBLOCK("MDTA6652",.F.,.F.,{.T.,ACOLS,AHEADER})

MDTA685.PRX - MDT685COMM() -> EXECBLOCK("MDTA6854",.F.,.F., { NOPCX } )

MDTA685.PRX - MDT685IMP() -> EXECBLOCK("MDT685IMP",.F.,.F.)

MDTA685.PRX - MDT685POS() -> LRET := EXECBLOCK( "MDTA6851",.F.,.F., APARAM )

MDTA695.PRX - FEPIMDT695() -> XRETORNO := EXECBLOCK( "MDTA6953", .F., .F. )

MDTA695.PRX - FIMPEPIDEV() -> EXECBLOCK( "MDTA695A", .F., .F., { AOLDACOLS, OGETAUX:ACOLS } )

MDTA695.PRX - IMPRECIBO() -> EXECBLOCK( "MDTA6957", .F., .F. )

MDTA695.PRX - MDT695AUTO() -> ARET := EXECBLOCK( "MDTA6959", .F., .F., { ACAB, AITEM } )

MDTA695.PRX - MDTEPIS2240() -> IF EXISTBLOCK( 'MDTA695B' ) .AND. EXECBLOCK( 'MDTA695B', .F., .F. )

MDTA695.PRX - MDTMOVSA() -> EXECBLOCK( "MDTA6955", .F., .F. )

MDTA695.PRX - MENUDEF() -> IF VALTYPE( ATMPROT := EXECBLOCK( "MDTA6956", .F., .F. ) ) == "A"

MDTA695.PRX - NG695LINOK() -> ACOLS := EXECBLOCK( "MDTA6958", .F., .F., APARAM )

MDTA695.PRX - NG695TUDOK() -> LRET := EXECBLOCK( "MDTA6954", .F., .F., { ACOLSAUX, AGRIDAUX [ _NHEADER ] } )

MDTA695.PRX - NG695TUDOK() -> LRET := EXECBLOCK( 'MDT695VL', .F., .F., {NX} )

MDTA695.PRX - NGFUN695() -> EXECBLOCK( "MDTA6952", .F., .F. )

MDTR465.PRX - IMPASOM1() -> EXECBLOCK( "MDTR4653", .F., .F. )

MDTR465.PRX - IMPASOM2() -> COBSAD := EXECBLOCK( "MDTR4652" )

MDTR465.PRX - IMPASOM2() -> EXECBLOCK( "MDTR4653", .F., .F., OPRINT )

MDTR465.PRX - IMPASOM3() -> COBSAD := EXECBLOCK( "MDTR4652" )

MDTR465.PRX - IMPASOM3() -> EXECBLOCK( "MDTR4653", .F., .F., OPRINT )

MDTR465.PRX - NGNRPAGASO() -> ARET := EXECBLOCK( "MDTR4654", .F., .F., { NLINE, NPAG, NCONTROL } )

MDTR520.PRX - MDT520MLT() -> CSRAF3 := EXECBLOCK('MDTR5202',.F.,.F.)

MDTR700.PRX - MDTERMO700() -> CCNPJ:= EXECBLOCK( "MDTR7003", .F., .F. )

MDTR700.PRX - NGMDT700() -> EXECBLOCK( "MDTR7002", .F., .F., { OPRINTPPP, LIN } )

MDTR700.PRX - NGMDT700() -> EXECBLOCK('MDTR7001',.F.,.F., {@AHIST[I]})

MDTR830.PRX - MDTR830MOD2() -> CCGCSEM := EXECBLOCK("MDTR8301",.F.,.F.)

MDTR830.PRX - MOD3MDTR830() -> CCGCSEM := EXECBLOCK("MDTR8301",.F.,.F.)

MDTR850.PRX - FCHAMAPE() -> EXECBLOCK('MDTR8502',.F.,.F.)

MDTR850.PRX - FCHAMAPE() -> EXECBLOCK('MDTR8504',.F.,.F.)

MDTR850.PRX - PROC850TIT() -> ARETPE := EXECBLOCK('MDTR8501',.F.,.F., {NMODELOIMP, NMODELOIMP, CTITEXE})

MDTUTIL.PRX - MDTMOVEST() -> CRET := EXECBLOCK( "MDT695EPI",.F.,.F. )

MDTUTIL.PRX - MDTMOVEST() -> EXECBLOCK( "MDT630EPI",.F.,.F. )

MDTUTIL.PRX - SITFUNFICHA() -> LSEMPONENT := EXECBLOCK('MDTVALDEM',.F.,.F.)

MDTUTIL.PRX - SITMDTFUNC() -> LSEMPONENT := EXECBLOCK('MDTVALDEM',.F.,.F.)

MNTA080.PRX - CHKCENTRAB() -> EXECBLOCK("MNTA0806",.F.,.F.,{VTRABA,VCUSTO})

MNTA080.PRX - COMMITINFO() -> EXECBLOCK("MNTA080",.F.,.F.,{OMODEL,'FORMCOMMITTTSPOS','MNTA080',LALTLIN})

MNTA080.PRX - COMMITINFO() -> EXECBLOCK("MNTA080",.F.,.F.,{OMODEL,'FORMCOMMITTTSPRE','MNTA080',LALTLIN})

MNTA080.PRX - COMMITINFO() -> EXECBLOCK("MNTA080",.F.,.F.,{OST9,'MODELCOMMITNTTS','MNTA080'})

MNTA080.PRX - COMMITINFO() -> EXECBLOCK("MNTA080",.F.,.F.,{OST9,'MODELCOMMITTTS','MNTA080'})

MNTA080.PRX - FVALID2() -> LRET := EXECBLOCK("MNTA0804",.F.,.F.)

MNTA080.PRX - FWHENPRODT() -> AMNTA6004 := EXECBLOCK( "MNTA6004", .F., .F., {(CTEMPTABLE)->CODBEM} )

MNTA080.PRX - MENUDEF() -> AROTINA := EXECBLOCK( 'MNTA080M', .F., .F., { AROTINA } )

MNTA080.PRX - MODELST9() -> EXECBLOCK("MNTA080O",.F.,.F.,{1,CALIAS,OSTRUCTAUX})

MNTA080.PRX - MODELSTB() -> EXECBLOCK("MNTA080O",.F.,.F.,{1,CALIAS,OSTRUCTAUX})

MNTA080.PRX - MODELTPE() -> EXECBLOCK("MNTA080O",.F.,.F.,{1,CALIAS,OSTRUCTAUX})

MNTA080.PRX - MODELTPY() -> EXECBLOCK("MNTA080O",.F.,.F.,{1,CALIAS,OSTRUCTAUX})

MNTA080.PRX - VALCANCEL() -> LRET := EXECBLOCK( 'MNTA080', .F., .F., {OMODEL, 'FORMCANCEL', 'MNTA080'} )

MNTA080.PRX - VIEWST9() -> EXECBLOCK("MNTA080O",.F.,.F.,{2,CALIAS,OSTRUCTAUX})

MNTA080.PRX - VIEWSTB() -> EXECBLOCK("MNTA080O",.F.,.F.,{2,CALIAS,OSTRUCTAUX})

MNTA080.PRX - VIEWTPY() -> EXECBLOCK("MNTA080O",.F.,.F.,{2,CALIAS,OSTRUCTAUX})

MNTA081.PRW - MNTATUSTF() -> EXECBLOCK("MNTA081A",.F.,.F.)

MNTA083.PRW - COMMITINFO() -> EXECBLOCK("MNTA083",.F.,.F.,{OMODEL,'FORMCOMMITTTSPOS','MNTA083',LALTLIN})

MNTA083.PRW - COMMITINFO() -> EXECBLOCK("MNTA083",.F.,.F.,{OMODEL,'FORMCOMMITTTSPRE','MNTA083',LALTLIN})

MNTA083.PRW - COMMITINFO() -> EXECBLOCK("MNTA083",.F.,.F.,{OST9,'MODELCOMMITNTTS','MNTA083'})

MNTA083.PRW - COMMITINFO() -> EXECBLOCK("MNTA083",.F.,.F.,{OST9,'MODELCOMMITTTS','MNTA083'})

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

MNTA083.PRW - MODELST9() -> APE836 := EXECBLOCK("MNTA0836",.F.,.F.,{'ST9'})

MNTA083.PRW - MODELST9() -> EXECBLOCK("MNTA0835",.F.,.F.,{1,CALIAS,OSTRUCTAUX})

MNTA083.PRW - MODELTQS() -> APE836 := EXECBLOCK("MNTA0836",.F.,.F.,{'TQS'})

MNTA083.PRW - MODELTQS() -> EXECBLOCK("MNTA0835",.F.,.F.,{1,CALIAS,OSTRUCTAUX})

MNTA083.PRW - VALCANCEL() -> LRET := EXECBLOCK( 'MNTA083', .F., .F., {OMODEL, 'FORMCANCEL', 'MNTA083'} )

MNTA083.PRW - VIEWST9() -> EXECBLOCK("MNTA0835",.F.,.F.,{2,CALIAS,OSTRUCTAUX})

MNTA084.PRW - COMMITINFO() -> EXECBLOCK("MNTA084",.F.,.F.,{OMODEL,'FORMCOMMITTTSPOS','MNTA084',LALTLIN})

MNTA084.PRW - COMMITINFO() -> EXECBLOCK("MNTA084",.F.,.F.,{OMODEL,'FORMCOMMITTTSPRE','MNTA084',LALTLIN})

MNTA084.PRW - COMMITINFO() -> EXECBLOCK("MNTA084",.F.,.F.,{OST9,'MODELCOMMITNTTS','MNTA084'})

MNTA084.PRW - COMMITINFO() -> EXECBLOCK("MNTA084",.F.,.F.,{OST9,'MODELCOMMITTTS','MNTA084'})

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

MNTA084.PRW - MODELDA3() -> EXECBLOCK("MNTA0845",.F.,.F.,{1,CALIAS,OSTRUCTAUX})

MNTA084.PRW - MODELST9() -> EXECBLOCK("MNTA0845",.F.,.F.,{1,CALIAS,OSTRUCTAUX})

MNTA084.PRW - MODELTT8() -> EXECBLOCK("MNTA0845",.F.,.F.,{1,CALIAS,OSTRUCTAUX})

MNTA084.PRW - VALCANCEL() -> LRET := EXECBLOCK( 'MNTA084', .F., .F., {OMODEL, 'FORMCANCEL', 'MNTA084'} )

MNTA084.PRW - VIEWDA3() -> EXECBLOCK("MNTA0845",.F.,.F.,{2,CALIAS,OSTRUCTAUX})

MNTA084.PRW - VIEWST9() -> EXECBLOCK("MNTA0845",.F.,.F.,{2,CALIAS,OSTRUCTAUX})

MNTA084.PRW - VIEWTT8() -> EXECBLOCK("MNTA0845",.F.,.F.,{2,CALIAS,OSTRUCTAUX})

MNTA085.PRW - MODELDEF() -> EXECBLOCK("MNTA0852",.F.,.F.,{ OMODEL, 'MASTER' })

MNTA085.PRW - VIEWDEF() -> EXECBLOCK("MNTA0853",.F.,.F.,{ OVIEW, 'VIEW_MASTER' })

MNTA086.PRW - MENUDEF() -> AROT := EXECBLOCK("MNTA0861",.F.,.F.,{ AROT } )

MNTA090.PRW - MNTA090IM() -> IF !EXECBLOCK("MNTA0901",.F.,.F.)

MNTA098.PRX - FMONTAHEA() -> ACPOSALTER := EXECBLOCK("NG098CPU",.F.,.F.)

MNTA098.PRX - MNT98CONSE() -> LRET := EXECBLOCK("MNTA0982",.F.,.F.)

MNTA098.PRX - MNTA098() -> EXECBLOCK("MNTA0981",.F.,.F.,{_CBEMPAI})

MNTA098.PRX - MNTA098() -> EXECBLOCK("MNTA098C",.F.,.F.)

MNTA098.PRX - MNTA098() -> LRET := EXECBLOCK("MNTA098B",.F.,.F.)

MNTA098.PRX - MNTA098BEM() -> ACPOSALTER := EXECBLOCK("NG098CPU",.F.,.F.)

MNTA098.PRX - MNTA098SBE() -> ACPOSALTER := EXECBLOCK("NG098CPU",.F.,.F.)

MNTA120.PRX - FFILTERBRW() -> CCONDTEMP:= EXECBLOCK("MNTA1205",.F.,.F.)

MNTA120.PRX - MENUDEF() -> AROTNEW := EXECBLOCK("MNTA1204",.F.,.F.,{AROTINA})

MNTA120.PRX - NG120CHK() -> RETURN EXECBLOCK("MNTA120L",.F.,.F.,{CTIPO})

MNTA120.PRX - NG120LINO4() -> LRET := EXECBLOCK("MNTA1202",.F.,.F.)

MNTA120.PRX - NG120OBRIG() -> LRET := EXECBLOCK("MNTA1203",.F.,.F.)

MNTA130.PRX - MNT130PR() -> EXECBLOCK("MNTA1301",.F.,.F.,{AVALIMPORT})

MNTA130.PRX - MNT130PR() -> EXECBLOCK("MNTA1302",.F.,.F.)

MNTA170.PRX - ALTFAMIST9() -> RETURN EXECBLOCK("MNTA1702", .F., .F.)

MNTA170.PRX - MENUDEF() -> AROTUSU := EXECBLOCK( "MNTA1705", .F., .F. )

MNTA170.PRX - MNT170CHK() -> LRET := EXECBLOCK("MNTA1704",.F.,.F.)

MNTA170.PRX - NG170FOLD() -> EXECBLOCK("MNTA1703",.F.,.F.,{OFOLDER170})

MNTA180.PRX - MNTA180CON() -> EXECBLOCK("MNTA1801",.F.,.F.)

MNTA231.PRX - MNT231DEST() -> AMNTA2319  := EXECBLOCK( 'MNTA2319', .F., .F., { CROD } )

MNTA231.PRX - MNTA231BE() -> IF !EXECBLOCK("MNTA2313",.F.,.F.)

MNTA231.PRX - MNTA231BE() -> IF !EXECBLOCK("MNTA2317",.F.,.F.)

MNTA231.PRX - MNTA231ES() -> IF !EXECBLOCK("MNTA2313",.F.,.F.)

MNTA231.PRX - MNTA231ES() -> LMNT2326 := EXECBLOCK("MNTA2326", .F., .F.)

MNTA231.PRX - MNTA231FIN() -> LFECHA := EXECBLOCK("MNTA2312",.F.,.F.)

MNTA231.PRX - MNTA231MTV() -> NSULCO := EXECBLOCK( 'MNTA2318', .F., .F., { CPNEU, 1, NSULCO } )

MNTA231.PRX - MNTA231RET() -> EXECBLOCK( 'MNTA2314' , .F., .F., { XY } )

MNTA231.PRX - MNTA231RET() -> EXECBLOCK( 'MNTA2315' , .F., .F., { 'D', YX })

MNTA231.PRX - MNTA231RET() -> EXECBLOCK( 'MNTA2315' , .F., .F., { 'E', XK })

MNTA231.PRX - MNTA231RET() -> EXECBLOCK( 'MNTA2315' , .F., .F., { 'S', YK })

MNTA231.PRX - MNTA231RET() -> EXECBLOCK( 'MNTA2315' , .F., .F., { 'T', M })

MNTA231.PRX - MNTA231RET() -> EXECBLOCK("MNTA2311",.F.,.F.)

MNTA231.PRX - MNTA231STL() -> EXECBLOCK( 'MNTA231A', .F., .F. )

MNTA231.PRX - MNTA231VLD() -> LRET := EXECBLOCK( 'MNTA231V', .F., .F., {CPRODANT, CPRODATU, CALMOANT, CALMOATU, CSTATUS} )

MNTA232.PRW - CONSISPNEU() -> IF !EXECBLOCK("MNTA2324",.F.,.F.,{CPNEU,CLOCALIZ, APNEUSFIM})

MNTA232.PRW - CRIACABECALHO() -> @ NCABECY+021,NCABECX+290 MSGET NPOSCON2 OF OPANEL PICTURE '@E 999,999,999' VALID POSITIVO(NPOSCON2) .AND. IF( LMNTA2327 , EXECBLOCK("MNTA2327",.F.,.F.,{NPOSCON2,CCODBEM,2}),.T.) SIZE 60,08 HASBUTTON WHEN LTEMCON2 .AND. LWHENCON2 PIXEL

MNTA232.PRW - CRIARODAPE() -> EXECBLOCK("MNTA2321",.F.,.F.,{OPANEL})

MNTA232.PRW - DLGPNEU() -> CCCUSTO := EXECBLOCK( 'MNTA232B', .F., .F., { CPNEU1 } )

MNTA232.PRW - DLGPNEU() -> CITEMCTA := EXECBLOCK( 'MNTA232C', .F., .F., { CPNEU1 } )

MNTA232.PRW - DLGPNEU() -> IF !EXECBLOCK("MNTA2313",.F.,.F.)

MNTA232.PRW - DLGPNEU() -> L2322 := EXECBLOCK("MNTA2322",.F.,.F.,{"A"})

MNTA232.PRW - DLGPNEU() -> L2322 := EXECBLOCK("MNTA2322",.F.,.F.,{"E"})

MNTA232.PRW - DLGPNEU() -> L2322 := EXECBLOCK("MNTA2322",.F.,.F.,{"R"})

MNTA232.PRW - DLGPNEU() -> L2322 := EXECBLOCK("MNTA2322",.F.,.F.,{"S"})

MNTA232.PRW - DLGPNEU() -> L2326 := EXECBLOCK("MNTA2326", .F., .F.)

MNTA232.PRW - DLGPNEU() -> NSULCO1 := EXECBLOCK( 'MNTA2318', .F., .F., { CPNEU1, IIF( LSAIPNEU, 1, IIF( LTROCAPNEU, 2, 3 ) ), NSULCO1 } )

MNTA232.PRW - MNTA232ANE() -> APNEUSFIM[NF][__LOCPAD__] := EXECBLOCK("MNTA2323",.F.,.F.,{APNEUSFIM[NF]})

MNTA232.PRW - MNTA232RET() -> EXECBLOCK( 'MNTA2314' , .F., .F., { XY } )

MNTA232.PRW - MNTA232RET() -> EXECBLOCK( 'MNTA2315' , .F., .F., { 'D', YX })

MNTA232.PRW - MNTA232RET() -> EXECBLOCK( 'MNTA2315' , .F., .F., { 'E', XK })

MNTA232.PRW - MNTA232RET() -> EXECBLOCK( 'MNTA2315' , .F., .F., { 'S', YK })

MNTA232.PRW - MNTA232RET() -> EXECBLOCK( 'MNTA2315' , .F., .F., { 'T', M })

MNTA232.PRW - MNTA232RET() -> EXECBLOCK( 'MNTA2320', .F., .F., { STJ->TJ_ORDEM, STJ->TJ_PLANO } )

MNTA232.PRW - MNTA232RET() -> EXECBLOCK("MNTA2311",.F.,.F.)

MNTA232.PRW - RODPOPUP() -> EXECBLOCK("MNTA2325",.F.,.F., {OMENU})

MNTA260.PRX - GERACON() -> LRET := EXECBLOCK( 'MNTA2602', .F., .F., { (CTRBSTJ)->TJ_FILIAL, (CTRBSTJ)->TJ_ORDEM, (CTRBSTJ)->TJ_PLANO } )

MNTA260.PRX - MNT260OSC() -> IF !EXECBLOCK("NGTERMOT",.F.,.F.)

MNTA265.PRX - MNT265IMP() -> EXECBLOCK( 'IMPOSMNT', .F., .F., { .F., CMEPLA, CMAPLA, AMATOS } )

MNTA265.PRX - MNT265IMP() -> IF !EXECBLOCK("MNTIMPOS",.F.,.F.,{STJ->TJ_PLANO,STJ->TJ_ORDEM,STJ->TJ_DTMPINI,CMEPLA,CMAPLA,AMATOS})

MNTA265.PRX - MNTA265() -> ADBFTRBA := EXECBLOCK("MNTA2651",.F.,.F.)

MNTA265.PRX - MNTA265ALT() -> EXECBLOCK("MNTA2652",.F.,.F.,{STJ->TJ_ORDEM, STJ->TJ_PLANO})

MNTA280.PRX - MENUDEF() -> ARETBT := EXECBLOCK( 'MNTA280B', .F., .F. )

MNTA280.PRX - MN280AUTO() -> EXECBLOCK("MNTA2807",.F.,.F.)

MNTA280.PRX - MNT280AL() -> DDATASS := EXECBLOCK("MNTA280F",.F.,.F.)

MNTA280.PRX - MNT280CPO() -> ACAMPOSN2 := EXECBLOCK("MNTA2803",.F.,.F.)

MNTA280.PRX - MNT280CPO() -> ACAMPOSN2 := EXECBLOCK("MNTA2902",.F.,.F.)

MNTA280.PRX - MNT280CPO() -> ACAMPOSN2 := EXECBLOCK("MNTA2957",.F.,.F.)

MNTA280.PRX - MNT280CPO() -> ACAMPOSS := EXECBLOCK("MNTA280A",.F.,.F.)

MNTA280.PRX - MNT280CPO() -> ANGBUTTON := EXECBLOCK( 'MNTA2809', .F., .F., { NOPCX } )

MNTA280.PRX - MNT280CPO() -> ARELAC2 := EXECBLOCK("MNTA290A",.F.,.F.)

MNTA280.PRX - MNT280CPO() -> CRELAC := EXECBLOCK("MNTA280G",.F.,.F.)

MNTA280.PRX - MNT280GRV() -> EXECBLOCK( 'MNTA2807', .F. , .F. )

MNTA280.PRX - MNT280GRV() -> EXECBLOCK( 'MNTA280J', .F., .F. )

MNTA280.PRX - MNT280GRV() -> EXECBLOCK("MNTA2807",.F.,.F.)

MNTA280.PRX - MNT280GRV() -> EXECBLOCK("MNTA2909",.F.,.F., {NMODO})

MNTA280.PRX - MNT280GRV() -> EXECBLOCK("MNTFE290",.F.,.F.)

MNTA280.PRX - MNT280TOK() -> IF !EXECBLOCK("MNTA2802",.F.,.F.)

MNTA280.PRX - MNT280TOK() -> XPE280I := EXECBLOCK( 'MNTA280I', .F., .F., { NOPCX } )

MNTA280.PRX - MNTA280() -> CCONDTMP:= EXECBLOCK("MNTA2801",.F.,.F.)

MNTA280.PRX - MNTA280() -> CCONDTMP:= EXECBLOCK("MNTA280D",.F.,.F.)

MNTA280.PRX - MNTA280() -> EXECBLOCK("MNTA280C",.F.,.F.)

MNTA280.PRX - MNTA280CHE() -> IF !EXECBLOCK("MNTA2802",.F.,.F.)

MNTA280.PRX - MNTA280COR() -> ACORESPE := EXECBLOCK("MNTA2805",.F.,.F.)

MNTA280.PRX - MNTA280IN() -> IF !EXECBLOCK( "MNTA280E", .F., .F. )

MNTA280.PRX - MNTA280IN() -> IF !EXECBLOCK( "MNTA280H", .F., .F. )

MNTA280.PRX - MNTA280LEG() -> ALEGENPE := EXECBLOCK("MNTA2806",.F.,.F.)

MNTA280.PRX - NG280SAT() -> CADDFILTRO := EXECBLOCK("MNTA2804",.F.,.F.)

MNTA290.PRX - MNTA290FCH() -> ARET := EXECBLOCK("MNTA2908",.F.,.F.)

MNTA291.PRW - MNT291IOS() -> EXECBLOCK("MNTA291A", .F., .F., {STJ->TJ_ORDEM,STJ->TJ_PLANO})

MNTA291.PRW - MNT291IOS() -> EXECBLOCK("MNTA420T", .F., .F.)

MNTA295.PRW - MENUDEF() -> ARETBT := EXECBLOCK( 'MNTA295B', .F., .F. )

MNTA295.PRW - MNTA295() -> CFILMBRTQB += EXECBLOCK("MNTA2951",.F.,.F.)

MNTA295.PRW - MNTA295COR() -> ACORESPE := EXECBLOCK("MNTA2958",.F.,.F.)

MNTA295.PRW - MNTA295GOS() -> EXECBLOCK( 'MNTA2954', .F., .F. )

MNTA295.PRW - MNTA295GOS() -> EXECBLOCK( 'MNTA295E', .F., .F., AMNTA295E )

MNTA295.PRW - MNTA295GOS() -> EXECBLOCK("ENE1W003",.F.,.F.)

MNTA295.PRW - MNTA295GOS() -> EXECBLOCK("MNTA2952",.F.,.F.)

MNTA295.PRW - MNTA295GOS() -> EXECBLOCK("MNTA2955",.F.,.F.,{@OPNL02})

MNTA295.PRW - MNTA295GOS() -> EXECBLOCK("MNTA295D",.F.,.F.)

MNTA295.PRW - MNTA295GOS() -> IF !EXECBLOCK("NGIMPOS",.F.,.F.,{STJ->TJ_PLANO,STJ->TJ_ORDEM,STJ->TJ_DTMPINI})

MNTA295.PRW - MNTA295GOS() -> XRET := EXECBLOCK("MNTA2956",.F.,.F.)

MNTA295.PRW - MNTA295LEG() -> ALEGENPE := EXECBLOCK("MNTA2959",.F.,.F.)

MNTA295.PRW - MNTA295OK() -> EXECBLOCK("NGIMPOS",.F.,.F.,{STJ->TJ_PLANO,STJ->TJ_ORDEM,STJ->TJ_DTMPINI})

MNTA295.PRW - MNTA295OK() -> LRET := EXECBLOCK("MNTA2953",.F.,.F.)

MNTA295.PRW - NG295SERV() -> IF !EXECBLOCK( "MNTA295A", .F., .F. )

MNTA305.PRW - MNTA305SAT() -> EXECBLOCK(("MNTA3053"),.F.,.F.)

MNTA315.PRW - A315ADET() -> CFILPRI := EXECBLOCK("MNTA3153",.F.,.F.)

MNTA315.PRW - A315ADET() -> _CFIL := EXECBLOCK("MNTA3152",.F.,.F.)

MNTA330.PRX - A330DELMOV() -> EXECBLOCK("MNTA3301",.F.,.F.)

MNTA330.PRX - A330DELMOV() -> EXECBLOCK("MNTA3302",.F.,.F.)

MNTA330.PRX - A330FINAL() -> LRET330A := EXECBLOCK("MNTA330A",.F.,.F.,{AMNTA330A})

MNTA330.PRX - A330GRAVA() -> EXECBLOCK("MNTA3303",.F.,.F.)

MNTA330.PRX - A330GRAVA() -> EXECBLOCK("MNTA3304",.F.,.F.)

MNTA330.PRX - A330GRAVA() -> EXECBLOCK("MNTA3306",.F.,.F.)

MNTA330.PRX - A330GRAVA() -> EXECBLOCK("MNTA3309",.F.,.F.,{XFILIAL("STG") + (CTRB)->TF_CODBEM + (CTRB)->TF_SERVICO + (CTRB)->TF_SEQRELA + ATAREFA[I][1] + ATAREFA[I][5][X][1] + ATAREFA[I][5][X][2]})

MNTA330.PRX - A330GRAVA() -> EXECBLOCK("MNTA330F",.F.,.F.)

MNTA330.PRX - A330GRAVA() -> EXECBLOCK("NGADDETAPA",.F.,.F.)

MNTA330.PRX - A330GRAVA() -> EXECBLOCK("NGETAPNEX",.F.,.F.)

MNTA330.PRX - A330GRAVA() -> IF !EXECBLOCK("MNTA3307",.F.,.F.)

MNTA330.PRX - A330GRAVA() -> LEXISTOS := EXECBLOCK( 'MNTA330V', .F., .F., { CORDEM } )

MNTA330.PRX - A330GRAVA() -> LSTJ := EXECBLOCK( 'MNTA3308', .F., .F., {CTRB, AMNTA3308})

MNTA330.PRX - A330PROC() -> RETURN EXECBLOCK("MNTA330G",.F.,.F.,{ _TIPO, _CUMDOIS})

MNTA335.PRW - MENUDEF() -> _AROTINA := EXECBLOCK("MNTA3351",.F.,.F.,{AROTINA})

MNTA340.PRX - A340ASIM() -> EXECBLOCK("MNTA3403",.F.,.F.)

MNTA340.PRX - A340ASIM() -> EXECBLOCK("MNTA3405",.F.,.F.)

MNTA340.PRX - A340ASIM() -> EXECBLOCK("MNTA3407",.F.,.F.)

MNTA340.PRX - A340ASIM() -> EXECBLOCK("MNTA420Q", .F., .F.)

MNTA340.PRX - A340ASIM() -> LSOCOMP := EXECBLOCK("MNTA3408",.F.,.F.)

MNTA340.PRX - A340CONFP() -> IF !EXECBLOCK("MNTA340C",.F.,.F.)

MNTA340.PRX - A340TER() -> CCODPRO := EXECBLOCK("MNTA340A",.F.,.F.)

MNTA340.PRX - A340TER() -> EXECBLOCK("MNTA340B",.F.,.F.)

MNTA340.PRX - A340TER() -> LGERASA := EXECBLOCK("MNTA3409",.F.,.F.)

MNTA340.PRX - MNTA340PROB() -> EXECBLOCK("MNTA340F",.F.,.F.,{.T.})

MNTA340.PRX - MNTA340TRB() -> EXECBLOCK( 'MNTA340D', .F., .F., { @ADBF, @ADBF1, @ADBF001 } )

MNTA340.PRX - NG340TRB() -> EXECBLOCK("MNTA340G",.F.,.F.,{CTRB340})

MNTA365.PRX - CHKMAN() -> IF !EXECBLOCK("MNTA365A",.F.,.F.,{LCANCEL,NPOS,DDTNEW,DDTATU})

MNTA365.PRX - MNT365KILL() -> LVISCANC := EXECBLOCK("MNTA365C",.F.,.F.)

MNTA365.PRX - MONTALEFT() -> AADDCOL := EXECBLOCK("MNTA365I",.F.,.F.)

MNTA400.PRX - CHECKCOD() -> IF !EXECBLOCK("NGTERMOR",.F.,.F.)

MNTA400.PRX - FFILTERBRW() -> CFILTROTOP += " AND " + EXECBLOCK("MNTA400O",.F.,.F.)

MNTA400.PRX - FNG400VETA() -> IF EXECBLOCK("MNTA400K",.F.,.F.,CCODFUNC)

MNTA400.PRX - MENUDEF() -> AROTINA := EXECBLOCK("MNTA4008",.F.,.F.)

MNTA400.PRX - MENUDEF() -> AROTINA:= EXECBLOCK("MNTA400I",.F.,.F.,{AROTINA})

MNTA400.PRX - MNT400RELAC() -> AARR := EXECBLOCK("MNTA400J",.F.,.F.,AARR1)

MNTA400.PRX - MNT400VFIN() -> IF !EXECBLOCK("MNTA400G",.F.,.F.)

MNTA400.PRX - MNTA400COM() -> EXECBLOCK("MNTA4014")

MNTA400.PRX - MNTA400ECA() -> EXECBLOCK("MNTA400D",.F.,.F.)

MNTA400.PRX - NG400BOT() -> EXECBLOCK("MNTA4005",.F.,.F.)

MNTA400.PRX - NG400CHKFIM() -> IF !EXECBLOCK("MNTA400F",.F.,.F.)

MNTA400.PRX - NG400CHKFIM() -> IF !EXECBLOCK("NGFINALI",.F.,.F.)

MNTA400.PRX - NG400DELP() -> LRETOR := EXECBLOCK('NGTERMOU',.F.,.F.)

MNTA400.PRX - NG400ETA() -> @ 2,50 BUTTON STR0176 OF OPAINELPAI SIZE 40,12 ACTION EXECBLOCK("UEM002FILB",.F.,.F.)

MNTA400.PRX - NG400ETA() -> ACPOSALTPQ := EXECBLOCK("NG405CPU",.F.,.F.)

MNTA400.PRX - NG400ETA() -> EXECBLOCK("MNTA4001",.F.,.F.)

MNTA400.PRX - NG400ETA() -> EXECBLOCK("MNTA400E",.F.,.F.)

MNTA400.PRX - NG400ETA() -> LRET := EXECBLOCK("MNTA400M",.F.,.F.)

MNTA400.PRX - NG400EXC() -> EXECBLOCK("MNTA400A",.F.,.F.)

MNTA400.PRX - NG400EXC() -> IF !EXECBLOCK("NGTERMOT",.F.,.F.)

MNTA400.PRX - NG400FILSTL() -> CONDSTL += EXECBLOCK("MNTA4007",.F.,.F.)

MNTA400.PRX - NG400FIM() -> ARELACPE := EXECBLOCK("MNT40012",.F.,.F.)

MNTA400.PRX - NG400FIM() -> EXECBLOCK("MNT40017",.F.,.F.)

MNTA400.PRX - NG400FIM() -> EXECBLOCK("NG400FI1",.F.,.F.)

MNTA400.PRX - NG400FIM() -> EXECBLOCK("NGFIMPAD",.F.,.F.)

MNTA400.PRX - NG400FIM() -> LRET := EXECBLOCK("MNT40011",.F.,.F.)

MNTA400.PRX - NG400FIM() -> LSEMINS := EXECBLOCK("NGSEMINS",.F.,.F.)

MNTA400.PRX - NG400INV() -> IF !EXECBLOCK("MNTA400C",.F.,.F.)

MNTA400.PRX - NG400LEG() -> EXECBLOCK("MNT400LE",.T.,.T.)

MNTA400.PRX - NG400TAR() -> LRET := EXECBLOCK("MNTA400L",.F.,.F.)

MNTA400.PRX - NG400TUDOK() -> IF !EXECBLOCK("NGTERMOP",.F.,.F.)

MNTA400.PRX - NG401INC() -> EXECBLOCK("MNT40013",.F.,.F.)

MNTA400.PRX - NG401INC() -> EXECBLOCK("MNT40014",.F.,.F.)

MNTA400.PRX - NG401INC() -> EXECBLOCK("MNTA4003",.F.,.F.)

MNTA400.PRX - NG401INC() -> EXECBLOCK("NG400INS",.F.,.F.)

MNTA400.PRX - NGCRIACOR() -> _ACORES := EXECBLOCK("MNTA400COR",.F.,.F.)

MNTA400.PRX - NGFECHASS() -> EXECBLOCK("MNTA4012",.F.,.F.)

MNTA400.PRX - NGFECHASS() -> LFINSS := EXECBLOCK("MNTA400N",.F.,.F.)

MNTA400.PRX - NGMSGARAN() -> IF !EXECBLOCK("MNT40015",.F.,.F.)

MNTA400.PRX - NGMSGARAN() -> LBAIXAEST := EXECBLOCK("MNT40016",.F.,.F.)

MNTA400.PRX - NGMSGARAN() -> LRETPON := EXECBLOCK("NGCDELIN",.F.,.F.)

MNTA400.PRX - NGMSGARAN() -> LRETPON := EXECBLOCK("NGCHKINS",.F.,.F.)

MNTA400.PRX - NGRETNOREG() -> IF !EXECBLOCK("MNTA4009",.F.,.F.)

MNTA400.PRX - NGX400ETA() -> IF !EXECBLOCK("MNTA400B",.F.,.F.)

MNTA401.PRX - MNTA401() -> EXECBLOCK( "MNTA4014", .F., .F., { ARADIO } )

MNTA401.PRX - MNTA401() -> EXECBLOCK("MNTA4013",.F.,.F.)

MNTA401.PRX - MNTA401() -> IF LMNTA4015 .AND. !EXECBLOCK('MNTA4015', .F., .F., {STJ->TJ_ORDEM, STJ->TJ_PLANO})

MNTA401.PRX - STL4011() -> ACPOSALTER := EXECBLOCK("NG401CPU",.F.,.F.)

MNTA401.PRX - STL4011() -> EXECBLOCK("MNTA4011",.F.,.F.)

MNTA405.PRX - MNTA405() -> EXECBLOCK("MNTA4051",.F.,.F.)

MNTA410.PRX - C410CHK() -> IF !EXECBLOCK( 'MNTA4106', .F., .F., { AGETINS, AHEAINS } )

MNTA410.PRX - FCOLSINS() -> EXECBLOCK( 'MNTA4105', .F., .F., { NTAIL, CALSQRY } )

MNTA410.PRX - MENUDEF() -> _AROTINA := EXECBLOCK("MNTA410A",.F.,.F.,AROTINA)

MNTA410.PRX - MNTA410DEL() -> LRET := EXECBLOCK( 'MNTA4100', .F., .F., { ACOL, NPOS, AHEAD } )

MNTA410.PRX - MNTA410PR() -> EXECBLOCK("MNTA4102",.F.,.F.)

MNTA410.PRX - MNTA410PR() -> EXECBLOCK("MNTA4103",.F.,.F.)

MNTA410.PRX - MNTA410TL() -> EXECBLOCK("MNTA420R", .F., .F.,{ATAREFA[I][1], ATAREFA[I][5][X][1], ATAREFA[I][5][X][2] })

MNTA410.PRX - NG410GRAVA() -> EXECBLOCK("MNTA4101",.F.,.F.)

MNTA410.PRX - NG410GRAVA() -> EXECBLOCK("NGETAPNEX",.F.,.F.)

MNTA410.PRX - NG410INET() -> ACHOICE := EXECBLOCK("MNTA410E",.F.,.F., {ACHOICE})

MNTA410.PRX - NG410INET() -> EXECBLOCK("MNTA4104",.F.,.F.)

MNTA410.PRX - NG410INET() -> EXECBLOCK("NGADDETAPA",.F.,.F.)

MNTA410.PRX - NG410INET() -> EXECBLOCK("NGIMPOS",.F.,.F.,{STJ->TJ_PLANO,STJ->TJ_ORDEM,STJ->TJ_DTMPINI})

MNTA410.PRX - NG410INET() -> IF !EXECBLOCK("MNTA410B",.F.,.F.)

MNTA410.PRX - NG410INET() -> IF !EXECBLOCK("MNTA410C",.F.,.F.)

MNTA410.PRX - NG410INLI() -> LRET := EXECBLOCK( 'MNTA410D', .F., .F., { OGET:ACOLS, OGET:NAT, OGET:AHEADER } )

MNTA415.PRX - MNTA415() -> ABUTTONS := EXECBLOCK( 'MNTA4156', .F., .F., { ABUTTONS } )

MNTA415.PRX - MNTA415PI() -> ACPOSALTER := EXECBLOCK("NG415CPU",.F.,.F.)

MNTA415.PRX - MNTA415PI() -> EXECBLOCK("MNT41509")

MNTA415.PRX - MNTA415TP() -> LRET := EXECBLOCK("MNT41505",.F.,.F.)

MNTA415.PRX - MNTA415TU() -> EXECBLOCK("MNT41503",.F.,.F.)

MNTA415.PRX - MNTA415TU() -> IF !EXECBLOCK( 'MNT41510', .F., .F., { XX } )

MNTA415.PRX - MNTA415TU() -> IF !EXECBLOCK("MNT41504",.F.,.F.)

MNTA415.PRX - MNTA415TU() -> IF !EXECBLOCK("MNT41508",.F.,.F.,{XX})

MNTA415.PRX - NG415ACOLS() -> ACPOSALTER := EXECBLOCK("NG415CPU",.F.,.F.)

MNTA415.PRX - NG415CAD() -> LWHEN := EXECBLOCK( "MNTA415B", .F., .F., { NPOSCO1, NPOSCO2 } )

MNTA415.PRX - NG415FIM() -> AMNT415A := ACLONE(EXECBLOCK("MNT415A",.F.,.F.,{AARRAYOS, LSHOW}))

MNTA415.PRX - NG415FIM() -> EXECBLOCK("MNT41501",.F.,.F.)

MNTA415.PRX - NG415FIM() -> IF !EXECBLOCK("MNT41502",.F.,.F.)

MNTA415.PRX - NG415FIM() -> LFINAL := EXECBLOCK("NG415FOS",.F.,.F.)

MNTA415.PRX - NGCHKSOBHR() -> RETURN EXECBLOCK("MNT41507",.F.,.F.,{NTIPOI4,NCODIG4,NDATAI4,NHORAI4,NDATAF4,NHORAF4})

MNTA420.PRX - CHKSER() -> IF !EXECBLOCK("MNTA4209",.F.,.F.)

MNTA420.PRX - MENUDEF() -> AROTINA:= EXECBLOCK("MNTA420I",.F.,.F.,{AROTINA})

MNTA420.PRX - MNTA420() -> CFILMBRSTJ += EXECBLOCK("MNTA420L",.F.,.F.)

MNTA420.PRX - MNTA420() -> EXECBLOCK("MNTA420A", .F., .F.)

MNTA420.PRX - MNTA420() -> EXECBLOCK("MNTA420M",.F.,.F.)

MNTA420.PRX - MNTA420PR() -> EXECBLOCK("MNTA4201",.F.,.F.)

MNTA420.PRX - MNTA420PR() -> EXECBLOCK("MNTA4208",.F.,.F.)

MNTA420.PRX - MNTA420PR() -> EXECBLOCK("MNTA420Q", .F., .F.)

MNTA420.PRX - MNTA420RO() -> LPERODDS := EXECBLOCK( "MNTA420N", .F., .F., LPERODDS )

MNTA420.PRX - NG420ALTE() -> EXECBLOCK( 'MNTA420V', .F., .F., { AGETINS, AGETINSAL, AHEADER } )

MNTA420.PRX - NG420ALTE() -> IF EXECBLOCK("MNTA420U",.F.,.F.,{XFILIAL('SC1'),STJ->TJ_ORDEM,'OS001',CCODPSC1})

MNTA420.PRX - NG420ATINS() -> EXECBLOCK("MNTA4202",.F.,.F.)

MNTA420.PRX - NG420ATINS() -> EXECBLOCK("MNTA4203",.F.,.F.)

MNTA420.PRX - NG420ATINS() -> EXECBLOCK("MNTA4205",.F.,.F.)

MNTA420.PRX - NG420ATINS() -> EXECBLOCK("MNTA420R", .F., .F.)

MNTA420.PRX - NG420BOT() -> EXECBLOCK("MNTA420S", .F., .F., {STJ->TJ_ORDEM, STJ->TJ_PLANO})

MNTA420.PRX - NG420CHK() -> LRET := EXECBLOCK("MNTA4207",.F.,.F.)

MNTA420.PRX - NG420CHK() -> LRET := EXECBLOCK("MNTA420F",.F.,.F.)

MNTA420.PRX - NG420CHKLIN() -> LRETCHK := EXECBLOCK( 'MNTA420K', .F., .F., { ACOLSCHK, NVLIN, AHEADER } )

MNTA420.PRX - NG420DELI() -> LRETORDE  := EXECBLOCK('NGTERMOU',.F.,.F.)

MNTA420.PRX - NG420DELI() -> LRETORDE := EXECBLOCK( 'MNTA4200', .F., .F., { ACOLSUSE, NLINATU, AHEADER } )

MNTA420.PRX - NG420INC() -> EXECBLOCK("MNTA4204",.F.,.F.)

MNTA420.PRX - NG420INC() -> EXECBLOCK("MNTA4206",.F.,.F.)

MNTA420.PRX - NG420INC() -> EXECBLOCK("MNTA420G",.F.,.F.)

MNTA420.PRX - NG420INC() -> EXECBLOCK("MNTA420J",.F.,.F.,{NOPCX,CCODBEM,CCODFIL})

MNTA420.PRX - NG420INC() -> EXECBLOCK("MNTA420P",.F.,.F.,{NOPCX})

MNTA420.PRX - NG420INC() -> EXECBLOCK("MNTA42BT",.F.,.F.)

MNTA420.PRX - NG420INC() -> EXECBLOCK("NGADDETAPA",.F.,.F.)

MNTA420.PRX - NG420INC() -> EXECBLOCK("NGETAPNEX",.F.,.F.)

MNTA420.PRX - NG420INC() -> IF !EXECBLOCK("MNTA420D",.F.,.F.)

MNTA420.PRX - NG420INC() -> IF !EXECBLOCK("NGIMPOS",.F.,.F.,{STJ->TJ_PLANO,STJ->TJ_ORDEM,STJ->TJ_DTMPINI})

MNTA420.PRX - NG420INC() -> IF !EXECBLOCK("NGTERMOT",.F.,.F.)

MNTA420.PRX - NG420INC() -> L420GRAVA := EXECBLOCK("MNTA420X",.F.,.F.,{STJ->TJ_ORDEM})

MNTA420.PRX - NG420INSU() -> ACOLS := EXECBLOCK("MNTA420W",.F.,.F., {ACOLS,AHEADER})

MNTA420.PRX - NG420INSU() -> ATEMPBUT := EXECBLOCK( 'MNTA420Y', .F., .F. )

MNTA420.PRX - NG420INSU() -> EXECBLOCK("MNTA420E",.F.,.F.)

MNTA420.PRX - NG420VERCON() -> EXECBLOCK("MNTA420B",.F.,.F.)

MNTA420.PRX - NGCHKBEMLOC() -> IF !EXECBLOCK("MNTA420H",.F.,.F.)

MNTA435.PRX - F435NEXT() -> ACOBRW6 := ACLONE( EXECBLOCK( 'MNTA435R', .F., .F.,;

MNTA435.PRX - F435NEXT() -> EXECBLOCK("MNTB4352")

MNTA435.PRX - F435NEXT() -> IF !EXECBLOCK("MNTA435O",.F.,.F.,{ ACOBRW6[NTEMPXX], AHOBRW2 }) .AND. ;

MNTA435.PRX - FCADETAPA() -> EXECBLOCK("MNTA435K",.F.,.F.,{ CORDEMTJ, CTRBQ400 } )

MNTA435.PRX - FCADETAPA() -> LRET := EXECBLOCK( "MNTA4359",.F.,.F.,{ NOPCX,(CTRBQ400) } )

MNTA435.PRX - FFINA435() -> ARELACPE := EXECBLOCK("MNT40012",.F.,.F.,{AHOBRW6, ACOBRW6})

MNTA435.PRX - FFINA435() -> EXECBLOCK("MNT40017",.F.,.F.)

MNTA435.PRX - FFINA435() -> EXECBLOCK("NG400FI1",.F.,.F.)

MNTA435.PRX - FFINA435() -> NRET := EXECBLOCK("MNTA4352",.F.,.F., { NRET })

MNTA435.PRX - FGRAVA435() -> ATEMPAUX := ACLONE(EXECBLOCK("MNTA4353",.F.,.F.,{.F.,AHOBRW6,ADADOSOS[NLINEOS,5][NINDOS]}))

MNTA435.PRX - FGRAVA435() -> ATEMPAUX := ACLONE(EXECBLOCK("MNTA4353",.F.,.F.,{.T.,AHOBRW6,ADADOSOS[NLINEOS,5][NINDOS]}))

MNTA435.PRX - FGRAVA435() -> CMSGSS += EXECBLOCK( "MNTA435M",.F.,.F.,{ CMSGSS, STJ->TJ_CODBEM, STJ->TJ_ORDEM, STJ->TJ_PLANO, ;

MNTA435.PRX - FGRAVA435() -> EXECBLOCK("MNTA4354",.F.,.F.,{AHOBRW6,AINSNAOGRA})

MNTA435.PRX - FGRAVA435() -> EXECBLOCK("MNTA435I",.F.,.F.)

MNTA435.PRX - FGRAVA435() -> EXECBLOCK("MNTB4354")

MNTA435.PRX - FMNTA405() -> ACOLS := EXECBLOCK("MNTA435L",.F.,.F.,{AHEADER,ACOLS,NCNT})

MNTA435.PRX - FMNTA405() -> ACPOSALTER := EXECBLOCK("NG405CPU", .F., .F.)

MNTA435.PRX - FNGGAR435() -> CTMPLOCAL:= EXECBLOCK("MNTA435A",.F.,.F.,{"L"})

MNTA435.PRX - FNGGAR435() -> CTMPUNI:= EXECBLOCK("MNTA435A",.F.,.F.,{"U"})

MNTA435.PRX - FNGGAR435() -> NTMPQNT:= EXECBLOCK("MNTA435A",.F.,.F.,{"Q"})

MNTA435.PRX - FPRGNEXT() -> ACOBRW6 := ACLONE( EXECBLOCK( 'MNTA435R', .F., .F.,;

MNTA435.PRX - FPRGNEXT() -> EXECBLOCK("MNTB4351")

MNTA435.PRX - FPRGNEXT() -> IF !EXECBLOCK("MNTA435O",.F.,.F.,{ ACOBRW6[NTEMPXX], AHOBRW2 }) .AND. ;

MNTA435.PRX - FTRBETAPA() -> ACPOSALTPQ := EXECBLOCK("NG405CPU",.F.,.F.)

MNTA435.PRX - FTRBINSPRE() -> ANAO := EXECBLOCK("MNTA435E",.F.,.F.,ANAO)

MNTA435.PRX - FVALDEL435() -> EXECBLOCK("MNTB4353",.F.,.F.,{AARRTMP,LDEL})

MNTA435.PRX - FVALIDOK() -> LRET := EXECBLOCK( "MNTA435N", .F., .F., { "VALID_CONFIRM", ADADOSOS } )

MNTA435.PRX - LINOKTL435() -> EXECBLOCK( "MNTA435D",.F.,.F.,{ @ACOLS,AHEADER } )

MNTA435.PRX - LINOKTL435() -> IF !EXECBLOCK("MNTA435O",.F.,.F.,{ ACOLS[N], AHOBRW2 }) .AND. ;

MNTA435.PRX - LINOKTL435() -> LBAIXAEST := EXECBLOCK("MNTA4356",.F.,.F.)

MNTA435.PRX - LOADINFSTJ() -> ATXTCAMPO := EXECBLOCK("MNTA435H",.F.,.F.,ATXTCAMPO)

MNTA435.PRX - LOADINSUM() -> ACOBRW6 := EXECBLOCK("MNTA435P",.F.,.F., {ACOBRW6,AHOBRW2})

MNTA435.PRX - LOADREGAOS() -> CCONDXPE := EXECBLOCK("MNTA4006",.F.,.F.)

MNTA435.PRX - MNT435CALLB() -> LRET := EXECBLOCK( "MNTA4358",.F.,.F., { NOP,(CTRBIP) } )

MNTA435.PRX - MNT435CAN() -> EXECBLOCK( "MNTA435B",.F.,.F., {CORDEM})

MNTA435.PRX - MNT435CAN() -> IF !EXECBLOCK( "MNTA435F",.F.,.F., {CORDEM})

MNTA435.PRX - MNT435FIN() -> LRET := EXECBLOCK("MNT40011",.F.,.F.)

MNTA435.PRX - MNT435FIN() -> LSEMINS := EXECBLOCK("NGSEMINS",.F.,.F.)

MNTA435.PRX - MNTA435() -> CCODFUNC := EXECBLOCK("MNTA435G",.F.,.F.)

MNTA435.PRX - MNTA435BAR() -> ABTN := EXECBLOCK("MNTA4351",.F.,.F.)

MNTA435.PRX - MNTA435BAR() -> ABUTTON := ACLONE(EXECBLOCK("MNTA435J",.F.,.F.,{ABUTTON}))

MNTA435.PRX - NGRETNO435() -> IF !EXECBLOCK("MNTA4009",.F.,.F.)

MNTA470.PRX - MNTA470GRV() -> EXECBLOCK("MNTA470",.F.,.F.,{OTPN,'MODELCOMMITNTTS','MNTA470'})

MNTA470.PRX - MNTA470GRV() -> EXECBLOCK("MNTA470",.F.,.F.,{OTPN,'MODELCOMMITTTS','MNTA470'})

MNTA470.PRX - MTA470CAN() -> LRET := EXECBLOCK("MNTA470",.F.,.F.,{OMODEL,'FORMCANCEL','MNTA470'})

MNTA480.PRX - MNTA480GRA() -> ACPOSALTER := EXECBLOCK("NG480CPU",.F.,.F.)

MNTA490.PRX - MNTA490() -> EXECBLOCK( 'MNTA4905', .F., .F., {ABUTTONS,CTRBA490} )

MNTA490.PRX - MNTA490INS() -> ACOLS := EXECBLOCK("MNTA4906",.F.,.F., {ACOLS,AHEAINS})

MNTA490.PRX - MNTA490INS() -> EXECBLOCK( 'MNTA4903', .F., .F., { AGETINS, AGETINSAL, CCALL, AHEADER } )

MNTA490.PRX - MNTA490INV() -> LRET := EXECBLOCK( "MNTA4904", .F., .F., { (CTRBA490)->TJ_ORDEM, (CTRBA490)->TJ_PLANO } )

MNTA490.PRX - MNTA490MAQ() -> LRET := EXECBLOCK( "MNTA4904", .F., .F., { (CTRBA490)->TJ_ORDEM, (CTRBA490)->TJ_PLANO } )

MNTA490.PRX - MNTA490OS() -> LRET := EXECBLOCK("MNTA4902",.F.,.F.)

MNTA490.PRX - MNTA490PR() -> EXECBLOCK("MNTA420Q", .F., .F.)

MNTA490.PRX - NGLIBERAOS() -> EXECBLOCK("MNTA4901",.F.,.F.,CCVORDEM)

MNTA490.PRX - NGLIBERAOS() -> EXECBLOCK("NGIMPOS",.F.,.F.,{STJ->TJ_PLANO,STJ->TJ_ORDEM,STJ->TJ_DTMPINI})

MNTA510.PRX - MNTA510PRO() -> LSEMINS := EXECBLOCK("NGSEMINS",.F.,.F.)

MNTA510.PRX - MNTA510STL() -> EXECBLOCK("MNTA5101",.F.,.F.)

MNTA545.PRX - MENUDEF() -> AROTINA := EXECBLOCK("MNTA5457",.F.,.F.,{AROTINA})

MNTA545.PRX - MNTA545CHK() -> IF !EXECBLOCK("MNTA5454",.F.,.F.)

MNTA545.PRX - NG545COR() -> _ACORES := EXECBLOCK("MNT545L2",.F.,.F.)

MNTA545.PRX - NG545FOLD() -> ACAMPOS := EXECBLOCK( "MNTA5453", .F., .F. )

MNTA545.PRX - NG545FOLD() -> ANGBUTTON := EXECBLOCK("MNTA5455",.F.,.F.,{ANGBUTTON})

MNTA545.PRX - NG545FOLD() -> EXECBLOCK("MNTA5451",.F.,.F.,{CALIAS1,NREG,NOPCX})

MNTA545.PRX - NG545FOLD() -> M->TRH_FILIAL := EXECBLOCK("MNTA5456",.F.,.F.)

MNTA545.PRX - NG545LEG() -> EXECBLOCK("MNT545L1",.F.,.F.)

MNTA550.PRW - A550CONOK() -> CMENOKF := EXECBLOCK( 'MNTA5500', .F., .F., { M->TQ2_CODBEM } )

MNTA550.PRW - A550GRAV() -> EXECBLOCK("MNTA5501",.F.,.F.,{ST9->T9_FILIAL, ST9->T9_CODBEM})

MNTA550.PRW - A550TRAS() -> EXECBLOCK("MNTA5501",.F.,.F.,{ST9->T9_FILIAL, ST9->T9_CODBEM})

MNTA600.PRX - MNT600DEST() -> AMNTA6004  := EXECBLOCK( 'MNTA6004', .F., .F., { M->TR4_CODBEM } )

MNTA600.PRX - MNT600DEST() -> EXECBLOCK("MNTA6001",.F.,.F.,{LFIM})

MNTA600.PRX - MNT600GRA() -> EXECBLOCK("MNTA6002",.F.,.F.)

MNTA600.PRX - MNT600GRA() -> EXECBLOCK("MNTA6006",.F.,.F.)

MNTA600.PRX - MNT600KM() -> CTMPCMP := EXECBLOCK("MNTA6003",.F.,.F.,{.F.,CBANDA})

MNTA600.PRX - NGMOVEST() -> AEXP1 := EXECBLOCK( 'MNTA6007', .F., .F., AEXP1 )

MNTA600.PRX - NGMOVEST() -> EXECBLOCK("MNTA6005",.F.,.F.,{SD3->D3_FILIAL,SD3->D3_DOC,SD3->D3_NUMSEQ})

MNTA610.PRX - MNT610GRAV() -> IF !EXECBLOCK("MNTA6102",.F.,.F.)

MNTA615.PRX - MNT615OBRI() -> LRETPE := EXECBLOCK("MNTA6151",.F.,.F.)

MNTA615.PRX - MNT615TB() -> EXECBLOCK("MNTA6152",.F.,.F.,{LOK,NOPCX})

MNTA630.PRX - MNA630BG() -> LMNTA6301 := EXECBLOCK("MNTA6301",.F.,.F.)

MNTA635.PRX - FABASTECE() -> EXECBLOCK("MNT655D3CC", .F. , .F. , {'RE0', CFROTA, CCUSTO, NIL })

MNTA635.PRX - FABASTECE() -> EXECBLOCK("MNTA6351",.F.,.F., { TQN->( RECNO() ), CFLABAST, CFLVEI, AREP[I] } )

MNTA635.PRX - FVALABAST() -> LRET2 := EXECBLOCK("MNTA6352", .F. , .F. )

MNTA635.PRX - MNT635CONS() -> EXECBLOCK("MNTA6603",.F.,.F.)

MNTA635.PRX - MNT635GRA() -> EXECBLOCK("MNTA6355",.F.,.F.,{AAUX[I]})

MNTA635.PRX - MNT635GRA() -> LGRAVAERRO := EXECBLOCK("MNTA6356", .F. , .F. , {AAUX[I], CERRO })

MNTA635.PRX - MNTA635() -> CQUERY += EXECBLOCK("MNTA6354",.F.,.F.)

MNTA645.PRX - MNA645CN() -> CCUSTO := EXECBLOCK("MNTA6451",.F.,.F.)

MNTA650.PRX - MNA650INI() -> IF !EXECBLOCK( "MNTA6501", .F., .F. )

MNTA650.PRX - MNA650MO() -> AUSRBUT := EXECBLOCK( "MNTA6502",.F.,.F. )

MNTA655.PRX - MNA655BG() -> CCCUSTO := EXECBLOCK("MNTA6558",.F.,.F.,{CCCUSTO})

MNTA655.PRX - MNA655BG() -> EXECBLOCK( 'MNT655D3CC', .F. , .F. , { 'RE0', M->TQN_FROTA, CCTCUSSD3,;

MNTA655.PRX - MNA655BG() -> IF !EXECBLOCK( 'MNTA6553', .F., .F. )

MNTA655.PRX - MNA655BG() -> IF !EXECBLOCK("MNT655JUST",.F.,.F.,{'1',CFILBEM,M->TQN_NABAST})

MNTA655.PRX - MNA655BG() -> IF !EXECBLOCK("MNTA655SEN", .F. , .F. )

MNTA655.PRX - MNA655HR() -> IF !EXECBLOCK("MNTA6552", .F. , .F. )

MNTA655.PRX - MNA655HR() -> IF !EXECBLOCK("MNTA6557",.F.,.F.,{M->TQN_POSTO,M->TQN_LOJA,M->TQN_CNPJ})

MNTA655.PRX - MNT655SC() -> AMNTA6556 := EXECBLOCK("MNTA6556", .F., .F., {CALIAS, NREG, NOPCX})

MNTA655.PRX - MNT655SC() -> CRETESP := EXECBLOCK("MNTA6551", .F. , .F. )

MNTA655.PRX - MNT655SC() -> EXECBLOCK("MNTA6555",.F.,.F.,{(NOPCA == 1), NOPCX})

MNTA655.PRX - MNT655VAL() -> IF !EXECBLOCK("MNTA6557",.F.,.F.,{M->TQN_POSTO,M->TQN_LOJA,M->TQN_CNPJ})

MNTA655.PRX - MNTA655A() -> EXECBLOCK("MNT655D3CC", .F. , .F. , {'DE0',TQN->TQN_FROTA, CCCUSTO, CFILTQF ,SD3->(RECNO())})

MNTA655.PRX - MNTA655A() -> EXECBLOCK("MNT655D3CC", .F. , .F. , {'RE0',TQN->TQN_FROTA, TQN->TQN_CCUSTO, CFILTQF ,SD3->(RECNO()) } )

MNTA655.PRX - MNTA655A() -> IF !EXECBLOCK("MNTA6552", .F. , .F. )

MNTA655.PRX - MNTA655E() -> EXECBLOCK("MNT655D3CC", .F. , .F. , {'DE0',VVDADOE[1], VVDADOE[11], CFILTQF ,SD3->(RECNO())})

MNTA655.PRX - MNTA655E() -> EXECBLOCK("NGUTIL4C",.F.,.F.,{VVDADOE[1],DDTACUFP,CHRACU,NCONTAFP,NACUMFIP})

MNTA655.PRX - MNTA655E() -> IF !EXECBLOCK("MNT655JUST",.F.,.F.,{'1',CFILTPN,VVDADOE[13]})

MNTA655.PRX - MNTA655E() -> IF !EXECBLOCK("MNTA655EX")

MNTA655.PRX - MNTA655PUNI() -> LRET := EXECBLOCK( 'MNTA6550', .F., .F. )

MNTA656.PRW - MENUDEF() -> AROTTMP := EXECBLOCK("MNTA656B", .F. , .F.,{AROTINA} )

MNTA656.PRW - MNT655HEAD() -> EXECBLOCK("MNTA656H", .F. , .F.,{AHEADER})

MNTA656.PRW - MNT656COM() -> OGETBRW:ACOLS[N][NPOSMOTOR] := EXECBLOCK("MNTA6562", .F. , .F. )

MNTA656.PRW - MNT656EXJG() -> EXECBLOCK("MNT655D3CC", .F. , .F. , {'DE0', TQN->TQN_FROTA, VVDADOE[11], CFILTQF })

MNTA656.PRW - MNT656EXJG() -> EXECBLOCK("NGUTIL4C", .F., .F., {VVDADOE[1], DDTACUFP, CHRACU, NCONTAFP, NACUMFIP})

MNTA656.PRW - MNT656EXJG() -> EXECBLOCK("NGUTIL4C",.F.,.F.,{VVDADOE[1],DDTACUFP,CHRACU,NCONTAFP,NACUMFIP})

MNTA656.PRW - MNT656LAN() -> LRET := EXECBLOCK("MNTA6563",.F.,.F.)

MNTA656.PRW - MNT656LUB() -> EXECBLOCK( "MNT655D3CC" , .F. , .F. , { 'RE0' , CFROTA , STJ->TJ_CCUSTO , CFIL } )

MNTA656.PRW - MNT656OK() -> IF !EXECBLOCK("MNTA6565",.F.,.F.,{NPAR,CPOSTO,CLOJA,CTANQUE,CCOMBUSTIV,OBRW1:ACOLS,NLINHA})

MNTA656.PRW - MNT656OK() -> XAFERIHOD := EXECBLOCK("MNT656VL",.F.,.F.,{ACOLS[N][NPOSFROTA]})

MNTA656.PRW - MNTA656BLO() -> RETURN EXECBLOCK("MNTA6564",.F.,.F.)

MNTA656.PRW - MNTA656INC() -> EXECBLOCK("LOGABAST",.F.,.F.,{AGRAVALOG})

MNTA656.PRW - MNTA656INC() -> EXECBLOCK("MNT655D3CC", .F. , .F. , {'DE0', TQN->TQN_FROTA, TQN->TQN_CCUSTO, CFILTQF })

MNTA656.PRW - MNTA656INC() -> EXECBLOCK("MNT655D3CC", .F. , .F. , {'RE0', ST9->T9_CODBEM, CCCUSTO, ST9->T9_FILIAL })

MNTA656.PRW - MNTA656INC() -> EXECBLOCK("MNT655D3CC", .F. , .F. , {'RE0', TQN->TQN_FROTA, TQN->TQN_CCUSTO, CFILTQF })

MNTA656.PRW - MNTA656INC() -> XAFERIHOD := EXECBLOCK("MNT656VL",.F.,.F.,{ACOLS[NI][NPOSFROTA]})

MNTA656.PRW - MNTA656VAL() -> XAFERIHOD := EXECBLOCK("MNT656VL",.F.,.F.,{ACOLS[NI][NPOSFROTA]})

MNTA656.PRW - MNTA656WHE() -> LRET := EXECBLOCK("MNTA6566",.F.,.F.,{NVAR,LRET,NOPCX})

MNTA659.PRW - MNT659VAL() -> ARETURN := EXECBLOCK("MNTA6592",.F.,.F.,{CCODBEM,CFILBEM,DDTABAST,CHHABAST,ARETURN})

MNTA660.PRX - MNTA660() -> CQUERY += EXECBLOCK("MNTA6601",.F.,.F.)

MNTA670.PRX - MNA670CN() -> EXECBLOCK("MNT655D3CC", .F. , .F. , {'RE0', TQN->TQN_FROTA, TQN->TQN_CCUSTO, NIL })

MNTA670.PRX - MNA670CN() -> IF !EXECBLOCK("MNTA6702",.F.,.F.,{ARET6701})

MNTA670.PRX - MNA670MO() -> ARET6701 := EXECBLOCK("MNTA6701",.F.,.F., {NQTLITROS, ARET656VL, ODLG1} )

MNTA681.PRW - MNT681DEL() -> EXECBLOCK("MNT655D3CC", .F. , .F. , {'DE0', ST9->T9_CODBEM, ST9->T9_CCUSTO, ST9->T9_FILIAL })

MNTA681.PRW - MNT681DEL() -> EXECBLOCK("NGUTIL4C", .F., .F., {TQN->TQN_FROTA, DDTACUFP, CHRACU, NCONTAFP, NACUMFIP})

MNTA681.PRW - MNT681DEL() -> EXECBLOCK("NGUTIL4C",.F.,.F.,{TQN->TQN_FROTA,DDTACUFP,CHRACU,NCONTAFP,NACUMFIP})

MNTA681.PRW - MNT681GRAV() -> EXECBLOCK("MNT655D3CC", .F. , .F. , {'DE0', TQN->TQN_FROTA, TQN->TQN_CCUSTO, CFILTQF })

MNTA681.PRW - MNT681GRAV() -> EXECBLOCK("MNT655D3CC", .F. , .F. , {'RE0', TQN->TQN_FROTA, TQN->TQN_CCUSTO, CFILTQF })

MNTA681.PRW - MNT681LUB() -> EXECBLOCK( "MNT655D3CC" , .F., .F., { 'RE0', CFROTA, STJ->TJ_CCUSTO, CFIL } )

MNTA683.PRW - GRAVADADOS() -> EXECBLOCK("MNTA6831",.F.,.F.)

MNTA700.PRX - MNT700ALTE() -> (CTRB7001)->ERROVA := EXECBLOCK("MNTA7002",.F.,.F.,{"2",(CTRB7001)->CODERRO,.F.})

MNTA700.PRX - MNT700ALTE() -> (CTRB7001)->ERROVA := EXECBLOCK("MNTA7002",.F.,.F.,{"2",CCODERR,.F.})

MNTA700.PRX - MNT700ALTE() -> (CTRB7002)->TQQ_ERROVA := EXECBLOCK("MNTA7002",.F.,.F.,{"2",CCODERR,.F.})

MNTA700.PRX - MNT700ALTE() -> IF !EXECBLOCK("MNT655JUST",.F.,.F.,{'2',M->TQQ_FILIAL,M->TQQ_NABAST})

MNTA700.PRX - MNT700ALTE() -> LACEITA := EXECBLOCK("MNTA7002",.F.,.F.,{CCODERR," ",LACEITA})

MNTA700.PRX - MNTA700EXC() -> IF !EXECBLOCK("MNT655JUST",.F.,.F.,{'2',TQQ->TQQ_FILIAL,TQQ->TQQ_NABAST})

MNTA700.PRX - MNTA700MO() -> RETURN EXECBLOCK("MNTA7001",.F.,.F.)

MNTA716.PRX - FINCLUITAB() -> EXECBLOCK( "MNTA1311", .F., .F. )

MNTA716.PRX - FINCLUITAB() -> EXECBLOCK("MNTA1301",.F.,.F.,{AVALIMPORT})

MNTA720.PRX - MENUDEF() -> AMNTA7207 := EXECBLOCK("MNTA7207", .F., .F., {AROTINA})

MNTA720.PRX - MNT720ALL() -> EXECBLOCK("MNTA7201",.F.,.F.)

MNTA720.PRX - MNT720ALL() -> IF EXISTBLOCK('MNTA720B') .AND. !EXECBLOCK('MNTA720B', .F., .F., { NOPCX, AHEADER, ACOLS })

MNTA720.PRX - MNT720IN() -> AMNTA7203 := EXECBLOCK("MNTA7203", .F., .F., {ANOCHOICE, ANOFIELDS, NOPCX})

MNTA720.PRX - MNT720IN() -> AMNTA7205 := EXECBLOCK("MNTA7205", .F., .F., {NOPCX})

MNTA720.PRX - MNT720IN() -> AMNTA7208 := EXECBLOCK("MNTA7208", .F., .F., {ACOLS, AHEADER, NOPCX})

MNTA720.PRX - MNT720IN() -> EXECBLOCK("MNTA7209")

MNTA720.PRX - MNTA720() -> AMNTA7206 := EXECBLOCK("MNTA7206", .F., .F.)

MNTA735.PRW - FCHECKTUDO() -> LRET := EXECBLOCK('MNTA735',.F.,.F.,{OMODEL,'MODELPOS',OMODEL:CID})

MNTA735.PRW - FGRAVA() -> EXECBLOCK('MNTA735',.F.,.F.,{OMODEL,'FORMCOMMITTTSPOS',OMODEL:CID})

MNTA735.PRW - FGRAVA() -> EXECBLOCK('MNTA735',.F.,.F.,{OMODEL,'FORMCOMMITTTSPRE',OMODEL:CID,@OGRID})

MNTA735.PRW - FLINOK() -> LRET := EXECBLOCK('MNTA735',.F.,.F.,{OMODEL,'FORMLINEPOS',OMODEL:CID})

MNTA735.PRW - MNT735LIST() -> EXECBLOCK("MNTA735A",.F.,.F.,{OGRID})

MNTA735.PRW - MNTA735OS() -> EXECBLOCK("MNTA7353",.F.,.F.)

MNTA735.PRW - MNTA735SS() -> EXECBLOCK("MNTA7354",.F.,.F.)

MNTA735.PRW - MODELDEF() -> EXECBLOCK("MNTA7357",.F.,.F.,{.T.,@OSTRUCTTG})

MNTA735.PRW - VIEWDEF() -> EXECBLOCK("MNTA7357",.F.,.F.,{.F.,@OSTRUCTTG})

MNTA745.PRW - MNTR745RE() -> RETURN EXECBLOCK("MNTA7452",.F.,.F.)

MNTA765.PRX - FSETACTV() -> EXECBLOCK( 'MNTA765', .F., .F., { OMODEL, 'MODELPRE', OMODEL:CID } )

MNTA765.PRX - MENUDEF() -> AROTINA := EXECBLOCK("MNTA7654",.F.,.F.,{AROTINA})

MNTA765.PRX - MNT765CONF() -> EXECBLOCK("MNTA7651",.F.,.F.,{OMODEL})

MNTA765.PRX - MNT765COR() -> APECOR := EXECBLOCK("MNTA7657",.F.,.F.,{ACORES})

MNTA765.PRX - MNT765GRA() -> EXECBLOCK("MAR1W010",.F.,.F.,{OMODEL})

MNTA765.PRX - MNT765PARC() -> ACAMPOSPE := EXECBLOCK("MNTA765E",.F.,.F.,{NROTINA})

MNTA765.PRX - MNTA765TP() -> EXECBLOCK("MAR1W010",.F.,.F.,{OMODEL})

MNTA765.PRX - NGPARCELAS() -> ACAMPOSPE := EXECBLOCK("MNTA765E",.F.,.F.,{NROTINA})

MNTA765.PRX - PROCINTFIN() -> APARCELAS[NI][5] := EXECBLOCK("MNTA7655",.F.,.F.,{,,OMODEL})

MNTA765.PRX - PROCINTFIN() -> LTITFIN := EXECBLOCK("MNTA7659",.F.,.F.,{OMODEL})

MNTA805.PRX - MENUDEF() -> AROTINA := EXECBLOCK( 'MNTA8054', .F., .F., { AROTINA } )

MNTA805.PRX - MNA805DOC() -> EXECBLOCK("MNTA8052",.F.,.F.)

MNTA805.PRX - MNTA805() -> CFILMBROST9 := EXECBLOCK("MNTA8051",.F.,.F.)

MNTA805.PRX - PROCGRDOC() -> LTITFIN := EXECBLOCK("MNTA8055",.F.,.F.)

MNTA806.PRW - MENUDEF() -> AROTINA := EXECBLOCK( 'MNTA8053', .F., .F., { AROTINA } )

MNTA830.PRX - MNTA830ACE() -> EXECBLOCK("MNTA8302",.F.,.F.)

MNTA830.PRX - MNTA830ACE() -> NDIAS := EXECBLOCK("NGVCTMAN",.F.,.F.)

MNTA830.PRX - MNTA830FIF() -> IF !EXECBLOCK("MNTA8301",.F.,.F.)

MNTA830.PRX - MNTA830GET() -> EXECBLOCK("MNTA830A",.F.,.F.,{ODLG3})

MNTA830.PRX - MNTA830VIR() -> EXECBLOCK("MNTA8303",.F.,.F.)

MNTA851.PRW - MNTA851EX() -> EXECBLOCK( "MNTA851E",.F.,.F.,{ NRECNO } )

MNTA851.PRW - MNTA851SB() -> ATRANSFS := EXECBLOCK( "MNTA851A",.F.,.F.,{ CCODBEM, DDATA } )

MNTA875.PRX - MNTA875CFI() -> EXECBLOCK("MNTA8752",.F.,.F.,{CBEMR,DLEITR,CHORAR,NDIFCO})

MNTA902.PRX - DELETEIDENT() -> EXECBLOCK("SGAA1004",.F.,.F.)

MNTA902.PRX - FCARLOC() -> ALOCAIS := EXECBLOCK("MNTA902F", .F., .F., {CVALOR,NTIPVER})

MNTA902.PRX - MNT902GRAVA() -> EXECBLOCK("SGAA1002",.F.,.F.)

MNTA902.PRX - MNT902INB() -> EXECBLOCK("MNTA9029",.F.,.F.)

MNTA902.PRX - MNT902INB() -> EXECBLOCK("SGAA1003",.F.,.F.)

MNTA902.PRX - MNT902INB() -> IF !EXECBLOCK("MNTA9023",.F.,.F.)

MNTA902.PRX - MNT902MAIN() -> AUSERTAF := EXECBLOCK("MNTA902B",.F.,.F.)

MNTA902.PRX - MNT902MAIN() -> EXECBLOCK("MNTA902G",.F.,.F.,{OPNLBTN2})

MNTA902.PRX - MNT902MNU() -> AITENSADD := EXECBLOCK("MNTA9027",.F.,.F.,{SUBSTR(CCOD,4,3),SUBSTR(CCOD,1,3)})

MNTA902.PRX - MNT902MNU() -> EXECBLOCK("MNTA9025",.F.,.F.)

MNTA902.PRX - MNT902REST() -> LRET := EXECBLOCK("MNTA902A", .F. , .F. , {CCODNIV, CTIPO, COPERAC, CRESTRI, LRET })

MNTA902.PRX - MNT902ROS() -> EXECBLOCK("MNTA9026",.F.,.F.)

MNTA902.PRX - MNT902TREE() -> EXECBLOCK("MNTA9022",.F.,.F.)

MNTA902.PRX - MNT902VCHG() -> EXECBLOCK("MNTA9028",.F.,.F.,{CCODITEM, CCARGO, LCARGA})

MNTA985.PRW - FBUSVEIC() -> CQUERY := EXECBLOCK("MNTA9856",.F.,.F.,{CQUERY,SM0->M0_CODIGO})

MNTA985.PRW - GRAVENT985() -> LRET := EXECBLOCK("MNTA9855",.F.,.F.,{LENTRADA,LSAIDA,{(CTRBVEI)->EMPRESA,(CTRBVEI)->FILIAL,(CTRBVEI)->CODBEM}})

MNTA985.PRW - GRAVENT985() -> LRET := EXECBLOCK("MNTA9857",.F.,.F.,{LENTRADA,LSAIDA,{(CTRBVEI)->EMPRESA,(CTRBVEI)->FILIAL,(CTRBVEI)->CODBEM}})

MNTA985.PRW - GRAVSAI985() -> LRET := EXECBLOCK("MNTA9855",.F.,.F.,{LENTRADA,LSAIDA,{(CTRBVEI)->EMPRESA,(CTRBVEI)->FILIAL,(CTRBVEI)->CODBEM}})

MNTA985.PRW - GRAVSAI985() -> LRET := EXECBLOCK("MNTA9857",.F.,.F.,{LENTRADA,LSAIDA,{(CTRBVEI)->EMPRESA,(CTRBVEI)->FILIAL,(CTRBVEI)->CODBEM}})

MNTA985.PRW - M985RELAC() -> XRETPE := EXECBLOCK("MNTA9853",.F.,.F.,{CCAMPO,(CTRBVEI)->FILTTI,(CTRBVEI)->EMPTTI})

MNTA985.PRW - M985RETCN() -> EXECBLOCK("NGUTIL4C",.F.,.F.,{VDADOATU[4],DDTACUFP,CHRACU,NCONTAFP,NACUMFIP})

MNTA985.PRW - M985RETCN() -> EXECBLOCK("NGUTIL4C",.F.,.F.,{VVDADOE[1],DDTACUFP,CHRACU,NCONTAFP,NACUMFIP})

MNTA985.PRW - M985VISENT() -> AUSERBTN := ACLONE(EXECBLOCK("MNTA9854",.F.,.F., ATITLES))

MNTA985.PRW - M985VISENT() -> BNGGRAVA := {|| EXECBLOCK("MNTA985E", .F., .F., {LENTRADA, LSAIDA, {(CTRBVIS)->FILIAL, (CTRBVIS)->PLACA, (CTRBVIS)->DOCMOT}}), VLDVISENT()}

MNTA985.PRW - M985VISENT() -> EXECBLOCK("MNTA985I",.F.,.F.,{LENTRADA,LSAIDA,{(CTRBVIS)->FILIAL, (CTRBVIS)->PLACA, (CTRBVIS)->DOCMOT}})

MNTA985.PRW - M985VISSAI() -> AUSERBTN := ACLONE(EXECBLOCK("MNTA9854",.F.,.F., ATITLES))

MNTA985.PRW - MNT985ENT() -> AUSERBTN := ACLONE(EXECBLOCK("MNTA9854",.F.,.F., ATITLES))

MNTA985.PRW - MNT985ENT() -> EXECBLOCK("MNTA9858",.F.,.F.,{LENTRADA,LSAIDA,{(CTRBVEI)->EMPRESA,(CTRBVEI)->FILIAL,(CTRBVEI)->CODBEM}})

MNTA985.PRW - MNT985SAI() -> AUSERBTN := ACLONE(EXECBLOCK("MNTA9854",.F.,.F., ATITLES))

MNTA985.PRW - MNT985SAI() -> EXECBLOCK("MNTA9858",.F.,.F.,{LENTRADA,LSAIDA,{(CTRBVEI)->EMPRESA,(CTRBVEI)->FILIAL,(CTRBVEI)->CODBEM}})

MNTA985.PRW - MNT985SAI() -> LRET := EXECBLOCK("MNTA985D",.F.,.F.,{LENTRADA,LSAIDA,{(CTRBVEI)->EMPRESA,(CTRBVEI)->FILIAL,(CTRBVEI)->CODBEM}})

MNTA985.PRW - MNT985VEI() -> CQUERY := EXECBLOCK("MNTA9856",.F.,.F.,{CQUERY,SM0->M0_CODIGO})

MNTA985.PRW - MNTA985() -> ABUTTONS := ACLONE( EXECBLOCK("MNTA985J",.F.,.F., ABUTTONS) )

MNTA985.PRW - MNTA985() -> AUSERBTN := ACLONE(EXECBLOCK("MNTA9854", .F., .F., ATITLES))

MNTA985.PRW - MNTA985() -> EXECBLOCK("MNTA9859",.F.,.F.,{@ADBFVEI,@OPANEL11,@OFOLDER})

MNTA985.PRW - MNTA985() -> EXECBLOCK("MNTA985A",.F.,.F.,{@ADBFOS,@OPANEL21,@OFOLDER})

MNTA985.PRW - MNTA985() -> EXECBLOCK("MNTA985B",.F.,.F.,{@ADBFES,@OPANEL22})

MNTA985.PRW - MNTA985() -> EXECBLOCK("MNTA985C",.F.,.F.,{@ADBFVEI,@ADBFOS,@ADBFES})

MNTA985.PRW - PELO EXECBLOCK PELO MOTIVO DE PENDÊNCIA DÉBITO TÉCNICO() -> EXECBLOCK("MNTA9852",.F.,.F.,{LENTRADA,LSAIDA,{(CTRBVEI)->EMPRESA,(CTRBVEI)->FILIAL,(CTRBVEI)->CODBEM}})

MNTA985.PRW - PELO EXECBLOCK PELO MOTIVO DE PENDÊNCIA DÉBITO TÉCNICO() -> EXECBLOCK("MNTA985F",.F.,.F.,{(CTRBVEI)->CODBEM})

MNTA985.PRW - VLDVISSAI() -> BNGGRAVA := {|| EXECBLOCK("MNTA985E", .F., .F., {LENTRADA, LSAIDA, {(CTRBVIS)->FILIAL, (CTRBVIS)->PLACA, (CTRBVIS)->DOCMOT}})}

MNTA985.PRW - VLDVISSAI() -> EXECBLOCK("MNTA985I",.F.,.F.,{LENTRADA,LSAIDA,{(CTRBVIS)->FILIAL, (CTRBVIS)->PLACA, (CTRBVIS)->DOCMOT}})

MNTA986.PRX - MNT986PRO() -> EXECBLOCK("MNTA1301",.F.,.F.,{AVALIMPORT})

MNTA990.PRX - FALTERDTOS() -> LALTCPO := EXECBLOCK( 'MNTA990D', .F., .F., { (CALIAS)->ORDEM, (CALIAS)->DTMPINI } )

MNTA990.PRX - FBUSCAOS() -> CQUERY := EXECBLOCK("MNTA9909",.F.,.F.,{CQUERY})

MNTA990.PRX - FBUSCAOS() -> EXECBLOCK("MNTA9904",.F.,.F.,{C990TRB1,C990STJTMP})

MNTA990.PRX - FFILDATAOS() -> AMNTA9906 := EXECBLOCK( 'MNTA9906', .F., .F., { C990TRB3, ADBFA } )

MNTA990.PRX - FGRAVATT1() -> EXECBLOCK("MNTA990B",.F.,.F.)

MNTA990.PRX - FIMPPROG() -> RETURN EXECBLOCK("MNTA9908",.F.,.F.,{C990TRB3})

MNTA990.PRX - FMPBA01CHK() -> XPE9903 := EXECBLOCK("MNTA9903")

MNTA990.PRX - FPASSAESQ() -> EXECBLOCK( 'MNTA9905', .F., .F., { C990TRB1 } )

MNTA990.PRX - FPASSAESQ() -> IF !EXECBLOCK("MNTA990D",.F.,.F.,{(C990TRB3)->ORDEM,(C990TRB3)->DTMPINI})

MNTA990.PRX - FPASSRIGHT() -> IF LMNTA9906 .AND. VALTYPE( AMNTA9906 := EXECBLOCK( 'MNTA9906', .F., .F., { C990TRB2, ADBFA } ) ) == 'A'

MNTA990.PRX - FPASSRIGHT() -> IF LMNTA9906 .AND. VALTYPE( AMNTA9906 := EXECBLOCK( 'MNTA9906', .F., .F., { C990TRB3, ADBFA } ) ) == 'A'

MNTA990.PRX - FPROGAUTO() -> IF LMNTA9906 .AND. VALTYPE( AMNTA9906 := EXECBLOCK( 'MNTA9906', .F., .F., { C990TRB2, ADBFA } ) ) == 'A'

MNTA990.PRX - FPROGAUTO() -> IF LMNTA9906 .AND. VALTYPE( AMNTA9906 := EXECBLOCK( 'MNTA9906', .F., .F., { C990TRB3, ADBFA } ) ) == 'A'

MNTA990.PRX - FVISUALOS() -> ANGBUTTON := EXECBLOCK( "MNTA990E", .F., .F. )

MNTA990.PRX - IMPRIMIROS() -> EXECBLOCK( 'IMPOSMNT', .F., .F., { .F., CMEPLA, CMAPLA, AMATRIOS, CTEMPSTL } )

MNTA990.PRX - IMPRIMIROS() -> EXECBLOCK( 'MNTIMPOS', .F., .F., { STJ->TJ_PLANO, STJ->TJ_ORDEM, STJ->TJ_DTMPINI, , , AMATRIOS, CTEMPSTL } )

MNTA990.PRX - LIBERAROS() -> LALTERADT := EXECBLOCK("MNTA990D",.F.,.F.,{(C990TRB1)->ORDEM,(C990TRB1)->DTMPINI})

MNTA990.PRX - MNT990CHKL() -> IF !EXECBLOCK("MNTA990C",.F.,.F.)

MNTA990.PRX - MNTA990CAD() -> CTEMP := EXECBLOCK( 'MNTEXE990', .F., .F. )

MNTA990.PRX - MNTA990CAD() -> CTEMP := EXECBLOCK( 'MNTLIB990', .F., .F. )

MNTA990.PRX - MNTA990CAD() -> CTEMP := EXECBLOCK( 'MNTPGR990', .F., .F. )

MNTA990.PRX - MNTA990CAD() -> EXECBLOCK("MNTA9905",.F.,.F.,{C990TRB1})

MNTA990.PRX - MNTA990CAD() -> EXECBLOCK("MNTA9907",.F.,.F.)

MNTA990.PRX - MNTA990CAD() -> IF LMNTA9906 .AND. VALTYPE( AMNTA9906 := EXECBLOCK( 'MNTA9906', .F., .F., { C990TRB2, ADBFA } ) ) == 'A'

MNTA990.PRX - MNTA990CAD() -> IF LMNTA9906 .AND. VALTYPE( AMNTA9906 := EXECBLOCK( 'MNTA9906', .F., .F., { C990TRB3, ADBFA } ) ) == 'A'

MNTA990.PRX - MNTA990CAD() -> OPANELBALL := EXECBLOCK("MNTA990A",.F.,.F.,{OPANELBALL})

MNTA990.PRX - MNTA990CAD() -> XRET9902 := EXECBLOCK("MNTA9902",.F.,.F.,{@ATRB1, @ADBF, @ATRB2, @ADBFA, @ACPOCOMPL})

MNTA990.PRX - MNTA990CAD() -> _ANGBTN := EXECBLOCK("MNTA9901",.F.,.F.,{ANGBTN})

MNTA995.PRX - CREATEFOOTER() -> EXECBLOCK("MNTA9951",.F.,.F.,{OPANEL})

MNTA998.PRX - IMPPNEU() -> EXECBLOCK('MNTA9983',.F.,.F.)

MNTA998.PRX - IMPPNEU() -> LGRAVA := IIF(!EXECBLOCK('MNTA9982',.F.,.F.),.F.,LGRAVA)

MNTC125.PRW - LOADPNEU() -> EXECBLOCK("MNTC1252", .F., .F., {CPNEU, IF(LMNTC1251,AMNTC1251[1][2],{}), IF(LMNTC1251,AMNTC1251[2][2],{})})

MNTC510.PRX - OSHISTORI() -> ACOLORS := ACLONE( EXECBLOCK("MNTC5101",.F.,.F.) )

MNTC510.PRX - OSHISTORI() -> CFILTER := EXECBLOCK("MNTC5103",.F.,.F.)

MNTC510A.PRW - := {|| NG510PROC(() -> CFILTER := EXECBLOCK( 'MNTC5103', .F., .F. )

MNTC510A.PRW - MENUDEF() -> ABUTTONS := ACLONE( EXECBLOCK( 'MNTC5102', .F., .F. ) )

MNTC755.PRW - FGETCORES() -> ACORESUSR := EXECBLOCK("MT103COR",.F.,.F.,{ACORES})

MNTC755.PRW - FGETCORES() -> ACORESUSR := EXECBLOCK("MT105COR",.F.,.F., {ACORES} )

MNTC755.PRW - FGETCORES() -> ACORESUSR := EXECBLOCK("MT110COR",.F.,.F.,{ACORES})

MNTC790.PRX - MENUDEF() -> AROTINA := EXECBLOCK("MNTC7901",.F.,.F.,{AROTINA})

MNTC795.PRW - MNTC795MON() -> AAUX := ACLONE( EXECBLOCK("MNTA080B",.F.,.F.) )

MNTC935.PRW - MNTDCVIS() -> ACOLSROD := EXECBLOCK("MNTC9351",.F.,.F.)

MNTC935.PRW - MONTATREE() -> LADDFIL := EXECBLOCK("MNTC9352",.F.,.F.)

MNTI005.PRW - I005INCSS()() -> EXECBLOCK("MNTI5004",.F.,.F.)

MNTI005.PRW - I005VISSS()() -> EXECBLOCK("MNTI5004",.F.,.F.)

MNTI005.PRW - I05CDGRAV()() -> EXECBLOCK('MNTI5006', .F., .F., { CCODSS } )

MNTI005.PRW - I05CODBEM(CVA() -> EXECBLOCK("MNTI5001",.F.,.F.)

MNTI005.PRW - I05VLDCPO()() -> CMSGERRO:= EXECBLOCK( 'MNTI5007', .F., .F., { CCAMPO, CVALOR } )

MNTI005.PRW - I05VLDUSRCP()() -> EXECBLOCK("MNTI5003",.F.,.F.)

MNTI005.PRW - INGCONPAD(CCO() -> CQUERY += EXECBLOCK( 'MNTI005A', .F., .F. )

MNTI851.PRW - IMPORTXML() -> EXECBLOCK( "MNTI851B",.F.,.F.,{ TV1->TV1_FILIAL, TV1->TV1_EMPRES, TV1->TV1_CODBEM, TV1->TV1_DTSERV,;

MNTNG.APW - CANCELSO() -> CERROR:= EXECBLOCK("MNTNG",.F.,.F.,{ "CANCEL_VALID" , OWS })

MNTNG.APW - COUNTERFINISH() -> CERROR:= EXECBLOCK("MNTNG",.F.,.F.,{ "COUNTER_VALID_FINISH" , OWS })

MNTNG.APW - CREATESO() -> CERROR := EXECBLOCK( 'MNTNG', .F., .F., { 'CREATE_VALID_ORDER', OWS } )

MNTNG.APW - CREATESO() -> EXECBLOCK("MNTNG",.F.,.F.,{ "CREATED_ORDER", OWS })

MNTNG.APW - FIGNOREENT() -> XIGNORE := EXECBLOCK("MNTNG",.F.,.F.,{"COMPANY_GROUP_IGNORE", OWS})

MNTNG.APW - FINISH() -> CERROR := EXECBLOCK( 'MNTNG', .F., .F., { 'FINISH_VALID_ORDER', OWS } )

MNTNG.APW - FINISH() -> EXECBLOCK("MNTNG",.F.,.F.,{ "FINISHED_ORDER", OWS })

MNTNG.APW - FINISH() -> XVALUE := EXECBLOCK( 'MNTNG', .F., .F., { 'UPDATE_FINISH_ORDER', OPARSER } )

MNTNG.APW - NGGSTLSTQ() -> EXECBLOCK("MNTNG",.F.,.F.,{ "CREATED_PLANNED_INPUT", OWS })

MNTNG.APW - QAREA() -> CFILTER := EXECBLOCK("MNTNG",.F.,.F.,{"FILTER_AREA",OWS})

MNTNG.APW - QCOSTCENTER() -> CFILTER := EXECBLOCK("MNTNG",.F.,.F.,{"FILTER_COSTCENTER",OWS})

MNTNG.APW - QEQUIPMENT() -> CFILTER := EXECBLOCK("MNTNG",.F.,.F.,{"FILTER_EQUIPMENT",OWS})

MNTNG.APW - QFAMILY() -> CFILTER := EXECBLOCK("MNTNG",.F.,.F.,{"FILTER_FAMILY",OWS})

MNTNG.APW - QORDER() -> CFILTER := EXECBLOCK( 'MNTNG', .F., .F., { 'FILTER_ORDER', OWS } )

MNTNG.APW - QPRODUCT() -> CFILTER := EXECBLOCK("MNTNG",.F.,.F.,{"FILTER_PRODUCT",OWS})

MNTNG.APW - QREQUEST() -> CFILTER := EXECBLOCK( 'MNTNG', .F., .F., { 'FILTER_REQUEST', OWS } )

MNTNG.APW - QSERVICE() -> CFILTER := EXECBLOCK("MNTNG",.F.,.F.,{"FILTER_SERVICE",OWS})

MNTNG.APW - QTHIRDPART() -> CFILTER := EXECBLOCK("MNTNG",.F.,.F.,{"FILTER_THIRDPART",OWS})

MNTNG.APW - QTOOL() -> CFILTER := EXECBLOCK("MNTNG",.F.,.F.,{"FILTER_TOOL",OWS})

MNTNG.APW - QWAREHOUSE() -> CFILTER := EXECBLOCK("MNTNG",.F.,.F.,{"FILTER_WAREHOUSE",OWS})

MNTNG.APW - SEQUIPMENT() -> CLOCTREE := EXECBLOCK("MNTNG",.F.,.F.,{"DESCRIPTION_LOCALIZATION",OWS, (CALIASQRY)->T9_CODBEM })

MNTNG.APW - UPDATESO() -> CERROR := EXECBLOCK( 'MNTNG', .F., .F., { 'UPDATE_VALID_ORDER', OWS } )

MNTR675.PRX - R675IMP() -> EXECBLOCK("MNTR6751",.F.,.F.)

MNTR675.PRX - RW675IMP() -> EXECBLOCK("MNTR675G",.F.,.F.,{1})

MNTR676.PRX - MNTRBASIMP() -> EXECBLOCK("MNTR675G",.F.,.F.,{2})

MNTSR.PRW - ASSIGN() -> EXECBLOCK( 'MNTA280J', .F., .F. )

MNTSR.PRW - CLOSE() -> EXECBLOCK("MNTA2909",.F.,.F.,{ 3 })

MNTSR.PRW - CLOSE() -> EXECBLOCK("MNTFE290",.F.,.F.)

MNTSR.PRW - CREATESO() -> EXECBLOCK( 'MNTA2952', .F., .F., { ARETURN[1,3] } )

MNTSR.PRW - CREATESO() -> XRET := EXECBLOCK("MNTA2956",.F.,.F.)

MNTSR.PRW - UPSERT() -> EXECBLOCK("MNTA2807",.F.,.F.)

MNTSR.PRW - VALIDBUSINESS() -> AENTRYPT := EXECBLOCK("MNTA2908",.F.,.F.)

MNTSR.PRW - VALIDBUSINESS() -> IF !EXECBLOCK( "MNTA280E", .F., .F. )

MNTSR.PRW - VALIDBUSINESS() -> IF EMPTY( CERROR ) .AND. ( EXISTBLOCK( 'MNTA2953' ) .AND. !EXECBLOCK( 'MNTA2953', .F., .F. ) )

MNTSR.PRW - VALIDBUSINESS() -> XPE280I := EXECBLOCK( 'MNTA280I', .F., .F., { ::GETOPERATION() } )

MNTSTEP.PRW - FGERA() -> CSEQUENCE := EXECBLOCK("MNTSTEP",.F.,.F.,{"SEQUENCE", OSTQ, CCODASSET, CSERVICE, CSTEP, COPTION})

MNTUTIL.PRX - ABREMNT() -> EXECBLOCK("MNTUTILATU",.F.,.F.)

MNTUTIL.PRX - FVALIDETA() -> EXECBLOCK("MNTUTIL1",.F.,.F.)

MNTUTIL.PRX - GERAOPNEW() -> AMATA650 := EXECBLOCK("NGMNTOP",.F.,.F.,AMATA650)

MNTUTIL.PRX - MNTEXECSD3() -> AIT241 := EXECBLOCK( 'NGMOVSD3', .F., .F., AIT241 )

MNTUTIL.PRX - MNTMOVEST() -> AAUTOITENS := EXECBLOCK("NGMOVSD3", .F., .F., AAUTOITENS)

MNTUTIL.PRX - NGMANATIV() -> IF !EXECBLOCK("NGMANATIV",.F.,.F.,{CCOD,CSERV,SEQ})

MNTUTIL.PRX - NGPROCETA() -> IF !EXECBLOCK("NGPROETA",.F.,.F.,{NOPCX})

MNTUTIL01.PRW - FPNEULOTE() -> EXECBLOCK("PNEULOT1",.F.,.F.,{OSCROLLBOX,NLINULT,NCOLULT})

MNTUTIL01.PRW - FPNEULOTE() -> EXECBLOCK("PNEULOT2",.F.,.F.)

MNTUTIL01.PRW - NGFUNCRH() -> LRETOR := EXECBLOCK("NGUTILVF",.F.,.F.,{CCODFUNV,LMENTELA,DDTFIM,LVALIDARH})

MNTUTIL01.PRW - NGPNEULOTE() -> EXECBLOCK("PNEULOT2",.F.,.F.)

MNTUTIL01.PRW - NGPONTOENTR() -> EXECBLOCK(CNOMEPR,.F.,.F.)

MNTUTIL01.PRW - NGPONTOENTR() -> EXECBLOCK(CNOMEPR,.F.,.F.,VVETPAR)

MNTUTIL01.PRW - NGPONTOENTR() -> LRETP := EXECBLOCK(CNOMEPR,.F.,.F.)

MNTUTIL01.PRW - NGPONTOENTR() -> LRETP := EXECBLOCK(CNOMEPR,.F.,.F.,VVETPAR)

MNTUTIL_CONTADOR.PRW - NGCHKHISTO() -> ARETPE := EXECBLOCK( 'NGUTIL4A', .F., .F., { CVBEM, DVDATA, NVPOSCONT, CHORA, NTIPOC, LGETVAR } )

MNTUTIL_CONTADOR.PRW - NGCHKHISTO() -> AVETRE[2] := EXECBLOCK("NGUTIL4D", .F., .F., {AVETRE[2]})

MNTUTIL_CONTADOR.PRW - NGCHKHISTO() -> CTPLANC := EXECBLOCK("NGUTIL4T",.F.,.F.)

MNTUTIL_CONTADOR.PRW - NGCONTAP() -> ARETORNO:= EXECBLOCK("NGUTILF", .F., .F., {CBEMF, STOD(CDTCON), CHRCON})

MNTUTIL_CONTADOR.PRW - NGKMTQS() -> EXECBLOCK("NGKMTQS1", .F., .F., CPNEU, CVIDA, NKMATU, NKMANT, NKMDIF, CTIPOLAN, LDEL)

MNTUTIL_CONTADOR.PRW - NGRECALREG() -> IF EXECBLOCK("NGUTIL4S",.F.,.F.,{&(AARQHIST[3]),&(AARQHIST[6]),&(AARQHIST[9]),IST9ATU,LVIRA,NVPOSC,CFILCONT,NVARDSTP,;

MNTUTIL_CONTADOR.PRW - NGVALIVARD() -> XVALOR := EXECBLOCK( "NGCHECVAR", .F., .F., { LSAIDA, CVBEM, NPOSCON, DVLEIT, CVHORA, NTIPOC, NVARDCAL, NVARMEN, AVETCHK } )

MNTUTIL_OS.PRW - F4MNTLOCAL() -> AARRAYAUX := EXECBLOCK('MTF4LOC', .F., .F., {AARRAYF4})

MNTUTIL_OS.PRW - F4MNTLOCAL() -> ADELARRF4 := EXECBLOCK("MTVLDLOC",.F.,.F.,ACLONE(AARRAYF4))

MNTUTIL_OS.PRW - NGALCGERCOMP() -> EXECBLOCK("NGPRODAL",.F.,.F.,{ABLO[4]})

MNTUTIL_OS.PRW - NGALCGERCOMP() -> EXECBLOCK("NGTERCAL",.F.,.F.,{ABLO[5]})

MNTUTIL_OS.PRW - NGCALCUSTI() -> NCUSTO := EXECBLOCK("NGCALCUSTI", .F., .F., { NCUSTOATU, CTIPR, CCODIN, NQUANT, NRECUR, NVALORUNI, CLOCAL, CTIPOH, CSEQREL, CEMP, CFIL, NCUSTOOLD })

MNTUTIL_OS.PRW - NGCONFOSAUT() -> LRETAUT := EXECBLOCK("NGUT0301",.F.,.F.)

MNTUTIL_OS.PRW - NGD1INCTL() -> EXECBLOCK("NGFIMOS",.F.,.F.)

MNTUTIL_OS.PRW - NGDELETOS() -> EXECBLOCK("NGDELDIN",.F.,.F.)

MNTUTIL_OS.PRW - NGDTHORFINAL() -> EXECBLOCK("NG_ESN",.F.,.F.)

MNTUTIL_OS.PRW - NGESTCOMP() -> EXECBLOCK("MNTA3401",.F.,.F.)

MNTUTIL_OS.PRW - NGESTCOMP() -> EXECBLOCK("MNTA3402",.F.,.F.)

MNTUTIL_OS.PRW - NGESTCOMP() -> EXECBLOCK("MNTA3404",.F.,.F.)

MNTUTIL_OS.PRW - NGESTCOMP() -> EXECBLOCK("MNTA4102",.F.,.F.)

MNTUTIL_OS.PRW - NGESTCOMP() -> EXECBLOCK("MNTA4201",.F.,.F.)

MNTUTIL_OS.PRW - NGESTCOMP() -> EXECBLOCK("MNTA420S", .F., .F., AARRAYSD4)

MNTUTIL_OS.PRW - NGFINAL() -> EXECBLOCK("MNTA4002",.F.,.F.)

MNTUTIL_OS.PRW - NGGERASA() -> ASCPRETURN := EXECBLOCK("NGALTSCP",.F.,.F.,{CCODPROD,COS,ABLO,CITEMPOS,CPLN})

MNTUTIL_OS.PRW - NGGERASA() -> EXECBLOCK( 'MNTSCPUSER', .F., .F., { CCODPROD, CNUMSA, CITEMSA } )

MNTUTIL_OS.PRW - NGGERASA() -> LRETPE  := EXECBLOCK( 'NGNOGERASA', .F., .F., { CCODPROD, CNUMOP, NQTD, CALMOX, DDATGERASA, CCCGERASA, COBS, CITEMSA, ABLO } )

MNTUTIL_OS.PRW - NGGERASC1() -> CCCUST := EXECBLOCK( 'NGGERSC2', .F., .F., { CCODPR, CLOCAL, COP, CFORNE } )

MNTUTIL_OS.PRW - NGGERASC1() -> EXECBLOCK("NGGERASC11",.F.,.F.,{ STJ->TJ_ORDEM, STJ->TJ_PLANO,IF(EMPTY(CFORNETER) ,"P","T" ) , IF(EMPTY(CFORNETER) ,CCODPR,CFORNE ) } )

MNTUTIL_OS.PRW - NGGERASC1() -> EXECBLOCK("NGSEPARASC",.F.,.F.,{ACAMPO})

MNTUTIL_OS.PRW - NGGERASC1() -> LGERASC := IIF( EXISTBLOCK( 'NGNOGERASC' ), !EXECBLOCK( 'NGNOGERASC', .F., .F., { COP, CCODPR, CLOCAL } ), LGERASC )

MNTUTIL_OS.PRW - NGGERASC7() -> AAUX := ACLONE( EXECBLOCK("NGUTIL51",.F.,.F.,{ACAB, AITEM}) )

MNTUTIL_OS.PRW - NGGEROSAUT() -> EXECBLOCK("NGAUTCLI",.F.,.F.,{CBEM,NCONTAD,PFIL})

MNTUTIL_OS.PRW - NGGOSAUT() -> EXECBLOCK("SUBOSAUT",.F.,.F.)

MNTUTIL_OS.PRW - NGGPREVAUT() -> EXECBLOCK("MNTROSA",.F.,.F.)

MNTUTIL_OS.PRW - NGGRAVSC1CM() -> CCUSTB := EXECBLOCK( "NGGERSC2", .F., .F. , { AVITENC[NVX,1] , AVITENC[NVX,4] } )

MNTUTIL_OS.PRW - NGGRAVSC1CM() -> EXECBLOCK("MNTA3404",.F.,.F.)

MNTUTIL_OS.PRW - NGGRAVSC1CM() -> EXECBLOCK("MNTA4102",.F.,.F.)

MNTUTIL_OS.PRW - NGGRAVSC1CM() -> EXECBLOCK("MT650C1",.F.,.F.)

MNTUTIL_OS.PRW - NGGRAVSC1CM() -> LGERASC := IIF( LNOGERASC, !EXECBLOCK( 'NGNOGERASC', .F., .F., { CVOP, AVITENC[NVX,1], AVITENC[NVX,4] } ), LGERASC )

MNTUTIL_OS.PRW - NGIMP675() -> AOPTIONSPE := EXECBLOCK("IMP675OS", .F., .F.)

MNTUTIL_OS.PRW - NGIMP675() -> EXECBLOCK("MNTIMPOS",.F.,.F.,{STJ->TJ_PLANO,STJ->TJ_ORDEM,STJ->TJ_DTMPINI})

MNTUTIL_OS.PRW - NGPRODMNT() -> APRODUTOS := EXECBLOCK("PRODMNT1",.F.,.F.,{APRODUTOS})

MNTUTIL_OS.PRW - NGSTLTAR() -> LRET := EXECBLOCK( "NGUTI01A",.F.,.F.,{ CTAR } )

MNTUTIL_OS.PRW - NGVERSUBST() -> EXECBLOCK("NGVERSUB",.F.,.F.,CCODBEM)

MNTUTIL_OS.PRW - NGXPROXMAN() -> RETURN EXECBLOCK("NGPROXMAN",.F.,.F.)

MNTW020.PRW - MNTW020TRB() -> IF !EXECBLOCK("MNTW0203",.F.,.F.)

MNTW020.PRW - MNTW20SEND() -> CMAILMSG := EXECBLOCK("MNTW0202",.F.,.F.,{CMAILMSG})

MNTW035.PRW - MNTW035F() -> OPROCESS := EXECBLOCK( "MNTW0353", .F., .F. , {OPROCESS,AREGISTROS} )

MNTW035.PRW - W035RESP(NOPC() -> A_CPOS :=  ACLONE(EXECBLOCK("MNTW0351",.F.,.F.))

MNTW060.PRW - MNTRETMAIL() -> CMAIL := EXECBLOCK( 'MNTW0611', .F., .F., CMAIL )

MOBILESERVICE.PRW - ADDFIELDSBYPE() -> CRESULT := EXECBLOCK( ::CEXECBLOCK, .F., .F. )

MOBILESERVICE.PRW - ADDFIELDSBYPE() -> IF !EMPTY( ::CEXECBLOCK )

MOBILESERVICE.PRW - ADDFIELDSBYPE() -> IF EXISTBLOCK( ::CEXECBLOCK )

MOBILESERVICE.PRW - DESTROY() -> ::CEXECBLOCK := NIL

MOBILESERVICE.PRW - EXECQUERY() -> /*/{PROTHEUS.DOC} SETEXECBLOCK

MOBILESERVICE.PRW - EXECQUERY() -> @PARAM CEXECBLOCK, CARACTER, NOME DO PE PARA ADICIONAR OS CAMPOS À CONSULTA.

MOBILESERVICE.PRW - GETEXECBLOCK() -> METHOD GETEXECBLOCK( ) CLASS MOBILESERVICE

MOBILESERVICE.PRW - GETEXECBLOCK() -> METHOD GETEXECBLOCK()

MOBILESERVICE.PRW - GETEXECBLOCK() -> RETURN ::CEXECBLOCK

MOBILESERVICE.PRW - MAKEQUERYMODEL() -> IF !EMPTY( ::CEXECBLOCK )

MOBILESERVICE.PRW - NEW() -> ::SETEXECBLOCK( CEXECBLOCK )

MOBILESERVICE.PRW - NEW() -> DEFAULT CEXECBLOCK := ""

MOBILESERVICE.PRW - NEW() -> METHOD NEW( CNAME, CEXECBLOCK )

MOBILESERVICE.PRW - NEW() -> METHOD NEW( CNAME, CEXECBLOCK ) CLASS MOBILESERVICE

MOBILESERVICE.PRW - SETEXECBLOCK() -> /*/{PROTHEUS.DOC} GETEXECBLOCK

MOBILESERVICE.PRW - SETEXECBLOCK() -> ::CEXECBLOCK := CEXECBLOCK

MOBILESERVICE.PRW - SETEXECBLOCK() -> DEFAULT CEXECBLOCK := ''

MOBILESERVICE.PRW - SETEXECBLOCK() -> IF !EMPTY( CEXECBLOCK )

MOBILESERVICE.PRW - SETEXECBLOCK() -> METHOD SETEXECBLOCK( CEXECBLOCK )

MOBILESERVICE.PRW - SETEXECBLOCK() -> METHOD SETEXECBLOCK( CEXECBLOCK ) CLASS MOBILESERVICE

MOBILESERVICE.PRW - SETQUERY() -> IF !EMPTY( ::CEXECBLOCK )

MRPDADOS_CARGA_DOCUMENTOS.PRW - MRPCARGAEM() -> ARETPE := EXECBLOCK("P712SQL", .F., .F., {"T4S",CFIELDS,CQUERYCON,CORDER})

MRPDADOS_CARGA_DOCUMENTOS.PRW - MRPCARGAOP() -> ARETPE := EXECBLOCK("P712SQL", .F., .F., {"T4Q",CFIELDS,CQUERYCON,CORDER})

MRPDADOS_CARGA_DOCUMENTOS.PRW - MRPCARGAPC() -> ARETPE := EXECBLOCK("P712SQL", .F., .F., {"T4U",CFIELDS,CQUERYCON,CORDER})

MRPDADOS_CARGA_DOCUMENTOS.PRW - MRPCARGASC() -> ARETPE := EXECBLOCK("P712SQL", .F., .F., {"T4T",CFIELDS,CQUERYCON,CORDER})

MRPDADOS_CARGA_ENGENHARIA.PRW - MRPCARGAPR() -> ARETPE := EXECBLOCK("P712SQL", .F., .F., {"HWA",CFIELDS,CQUERYCON,CORDER})

MRPDADOS_CARGA_ENGENHARIA.PRW - MRPCARGAPR() -> NSLDPE := EXECBLOCK("P712SINI",.F.,.F.,{AAUX[PRD_COD], AAUX[PRD_SLDDIS], IIF(LUSAME, AAUX[PRD_FILIAL], CFILANT)})

MRPDADOS_CARGA_ENGENHARIA.PRW - MRPCARGAVP() -> ARETPE := EXECBLOCK("P712SQL", .F., .F., {"T4M",CFIELDS,CQUERYCON,CORDER})

MSCBSPOOL.PRX - LIXEIRA() -> IF! EXECBLOCK("MSCBLIXO")

NFAEXMLCHI.PRW - NFAEXMLCHI() -> CXML += EXECBLOCK("M485ADUANA",.F.,.F.,{(CALIASXML)->F2_FILIAL,(CALIASXML)->F2_DOC,(CALIASXML)->F2_SERIE,(CALIASXML)->F2_ESPECIE,(CALIASXML)->F2_CLIENTE,(CALIASXML)->F2_LOJA})

NFAEXMLCHI.PRW - NFAEXMLCHI() -> CXML += EXECBLOCK("M485NCC",.F.,.F.,{CFILPE,CDOCPE,CSERPE,CESPPE,CCLIPE,CLOJPE})

NFAEXMLCHI.PRW - NFAEXMLCHI() -> CXML += EXECBLOCK("M485NDC",.F.,.F.,{CFILPE,CDOCPE,CSERPE,CESPPE,CCLIPE,CLOJPE})

NFAEXMLCHI.PRW - NFAEXMLCHI() -> CXML += EXECBLOCK("M485NF",.F.,.F.,{CFILPE,CDOCPE,CSERPE,CESPPE,CCLIPE,CLOJPE,CMODVEN})

NFAEXMLCHI.PRW - NFAEXMLCHI() -> CXML += EXECBLOCK("M485REFNF",.F.,.F.,{CFILPE,CDOCPE,CSERPE,CESPPE,CCLIPE,CLOJPE})

NFAEXMLCHI.PRW - NFAEXMLCHI() -> CXML += EXECBLOCK("M485TRANS",.F.,.F.,{(CALIASXML)->F2_FILIAL,(CALIASXML)->F2_DOC,(CALIASXML)->F2_SERIE,(CALIASXML)->F2_ESPECIE,(CALIASXML)->F2_CLIENTE,(CALIASXML)->F2_LOJA})

NFAEXMLCHI.PRW - NFAEXMLCHI() -> LDOCEXP := EXECBLOCK("M485DOCEXP",.F.,.F.,{(CALIASXML)->F2_FILIAL,(CALIASXML)->F2_DOC,(CALIASXML)->F2_SERIE,(CALIASXML)->F2_ESPECIE,(CALIASXML)->F2_CLIENTE,(CALIASXML)->F2_LOJA})

NFEAM.INI -  -> (PREREG) (_ATOTAL[81] := IIF(_ATOTAL[80],EXECBLOCK("MTDESCRNFE",.F.,.F.,{SF3->F3_NFISCAL,SF3->F3_SERIE,SF3->F3_CLIEFOR,SF3->F3_LOJA}),""),.T.)

NFEEXCEL.PRW - ATUDADOS() -> EXECBLOCK("NFEEXCEL",.F.,.F.,"IMPDADOS_BASE")

NFEEXCEL.PRW - CRIAESTRU() -> EXECBLOCK("NFEEXCEL",.F.,.F.,"SET_ESTRUTURA")

NFEEXCEL.PRW - EXPNFEEXCEL() -> IF(EASYENTRYPOINT("NFEEXCEL"),EXECBLOCK("NFEEXCEL",.F.,.F.,"DADOSXLS"),)

NFEEXCEL.PRW - IMPPROCXLS() -> EXECBLOCK("NFEEXCEL",.F.,.F.,"IMPDADOS_WORK")

NFEEXCEL.PRW - IMPPROCXLS() -> EXECBLOCK("NFEEXCEL",.F.,.F.,"TELA_RETORNO")

NFEEXCEL.PRW - IMPPROCXLS() -> IF(EASYENTRYPOINT("NFEEXCEL"),EXECBLOCK("NFEEXCEL",.F.,.F.,"DADOSXLS"),)

NFEEXCEL.PRW - SETCPOSPLAN() -> ACPOSUSER := IF(EASYENTRYPOINT("NFEEXCEL"), EXECBLOCK("NFEEXCEL",.F.,.F., { "EXP_DADOS_DUIMP", ACPOSUSER }) , ACPOSUSER )

NFEEXCEL.PRW - STRUSQL() -> EXECBLOCK("NFEEXCEL",.F.,.F.,"SET_ESTRUTURA_MACRO")

NFERE.INI -  -> (PREREG) (_ATOTAL[81] := IIF(_ATOTAL[80],EXECBLOCK("MTDESCRNFE",.F.,.F.,{SF3->F3_NFISCAL,SERIENFID("SF3",2,"F3_SERIE"),SF3->F3_CLIEFOR,SF3->F3_LOJA}),""),.T.)

NFSEXML102.PRW - NFSEM102(CCOD() -> CSTRING := EXECBLOCK("XML10202",.F.,.F.,CSTRING)

NFSEXMLENV.PRW - NFSEXMLENV( CTI() -> CSTRING := EXECBLOCK("XMLENV02",.F.,.F.,CSTRING)

NGGERAOS.PRX - CORRGRAVA() -> M->TS_ORDEM := EXECBLOCK("NGGEROS2",.F.,.F.)

NGGERAOS.PRX - NGGERAOSTJ() -> EXECBLOCK("NGGEROS1",.F.,.F.)

NGGERAOS.PRX - PREVGRAVA() -> EXECBLOCK("NGADDETAPA",.F.,.F.)

NGGERAOS.PRX - PREVGRAVA() -> EXECBLOCK("NGETAPNEX",.F.,.F.)

NGIND001.PRX - FCALCFORM() -> NRETTEMP := EXECBLOCK("NGIND00B",.F.,.F.,{NRET,CINDATU,CTXTFORMULA,ARETFUNC,NXXX,NYYY,ACADTIPO})

NGINTFIN.PRW - GERATITULO() -> ARETTITULO := EXECBLOCK("MNTA7655",.F.,.F.,{ ATITULO, LEN(::APARCELAS) })

NGINTFIN.PRW - GERATITULO() -> EXECBLOCK("MNTA7656",.F.,.F.)

NGMNT00.PRX - NGFIMOS() -> EXECBLOCK("MNTA4002",.F.,.F.)

NGMNT00.PRX - NGRETCC() -> EXECBLOCK("NGMNTCC1",.F.,.F.,{ST9->T9_CODBEM, ST9->T9_CCUSTO,ST9->T9_CENTRAB})

NGUTIL.PRX - NGALTTAR() -> LRET := EXECBLOCK("NGVALTAR",.F.,.F.,CTAR)

NGUTIL.PRX - NGATUERP() -> EXECBLOCK("NGATUERP", .F., .F., { CALIAS, COPER } )

NGUTIL.PRX - NGBEGINPRM() -> EXECBLOCK("NGBEGINP",.F.,.F.,ANGBEGINPRM)

NGUTIL.PRX - NGCAD01() -> EXECBLOCK( "NGCAD01F", .F., .F., {CALIAS, NREG, NOPCX, NOPCA, FUNNAME()} )

NGUTIL.PRX - NGCAD02() -> EXECBLOCK( "NGCAD02F", .F., .F., {CALIAS, NREG, NOPCX, NOPCA, FUNNAME()} )

NGUTIL.PRX - NGF3TAR() -> CF3TAR := EXECBLOCK("NGTROCF3",.F.,.F.)

NGUTIL.PRX - NGRETURNPRM() -> EXECBLOCK("NGRETURN",.F.,.F.,ANGBEGINPRM)

NGUTIL.PRX - NGTWFPROCB() -> OPROCESS := EXECBLOCK( 'NGTWFPRO', .F., .F., { OPROCESS, CORIGIN } )

OFCNHA02.PRW - OFCNHA0203IMPORTALISTAPRECOS() -> ACPOSSB1 := EXECBLOCK("OFCNH2B1",.F.,.F.)

OFIA060.PRW - OA0600011_TELA1() -> IF !EXECBLOCK("OA060SEL",.F.,.F.,{ SF1->F1_DOC , SF1->F1_SERIE , SF1->F1_FORNECE , SF1->F1_LOJA })

OFIA060.PRW - OA0600041_FINALIZACONFERENCIA() -> EXECBLOCK("OA060DOK",.F.,.F.,{ LOKCONF , SF1->(RECNO()) })

OFIA070.PRW - OA0700081_FINALIZACONFERENCIA() -> EXECBLOCK("OXX002FIN",.F.,.F.)

OFIA180.PRW - OA1800051_GRAVA_ENDERECO() -> EXECBLOCK("OA180DGR",.F.,.F.,{ SB1->B1_COD , "S"+CARQ , CENDOLD , CENDNEW })

OFIA212.PRW - OA2120115_STATUSCONFERENCIA() -> EXECBLOCK("OA212STA",.F.,.F.,{ CCONFERENCIA , CSTATUS, CTPORIGEM })

OFIA212.PRW - OA2120165_IMPRIMECONFERENCIA() -> EXECBLOCK("IMPOSOC",.F.,.F.,{VM3->VM3_CODIGO})

OFIA290.PRW - OA2900021_A103NFISCAL_APOSOK() -> LRETORNO := EXECBLOCK("OA290DOK",.F.,.F.,{APARAMETROS[1] ,;

OFIA340.PRW - OA3400251_EMAIL() -> EXECBLOCK("OA340MAI",.F.,.F.,{ CEMAILDIV , CVOLUME })

OFIA340.PRW - OA3400301_CHAMAPEAPOSAPROVREPROV() -> EXECBLOCK("OA340DOK",.F.,.F.,{CAPRREPR,CVOLUME,AITENS})

OFIA350.PRW - OA3500041_FINALIZACONFERENCIA() -> EXECBLOCK("OA350DOK",.F.,.F.,{ LOKCONF , VM7->VM7_VOLUME })

OFIC050.PRW - OC0500031_IMPRIMIR() -> EXECBLOCK("OC050IMP",.F.,.F.,{NTP})

OFIC060.PRW - OC0600031_IMPRIMIR() -> EXECBLOCK("OC060IMP",.F.,.F.,{NTP})

OFIC170.PRW - OC1700038_IMPRIMIR() -> EXECBLOCK("ORCAMTO",.F.,.F.,{VS1->VS1_NUMORC})

OFIGM000.PRW - FS_GRAMS() -> IF !EXECBLOCK("OG000TOK",.F.,.F.)

OFIGM100.PRW - FS_SAI1() -> EXECBLOCK("OGM100PED",.F.,.F.)

OFIGM100.PRW - FS_SELITENS() -> EXECBLOCK("NFENTPEC",.F.,.F., { AENT1[X,1] ,  AENT1[X,2] , AENT1[X,3] , AENT1[X,4] } )

OFIGM100.PRW - FS_SELITENS() -> EXECBLOCK("NFPECSER",.F.,.F., { ASAI1[X,1] , ASAI1[X,2] } )

OFIGM130.PRW - FS_SELITENS() -> EXECBLOCK("NFENTRADA",.F.,.F.,ANOTAENT[J])

OFIGM130.PRW - FS_SELITENS() -> EXECBLOCK("NFPECSER",.F.,.F.,ANOTASAI[1])

OFIIA000.PRW - FS_GRAIA000() -> IF !EXECBLOCK("OFA000FG",.F.,.F.)

OFIIA000.PRW - IA000() -> EXECBLOCK("OI000AM3",.F.,.F.)

OFIIA000.PRW - IA000IMP() -> AINCSB1 := EXECBLOCK("OFMT010A",.F.,.F.,{AINCSB1})

OFIIA000.PRW - IA000IMP() -> AITEM := EXECBLOCK("OFIIANFE",.F.,.F.,{AITEM})

OFIIA000.PRW - IA000IMP() -> EXECBLOCK("OFA000DPG",.F.,.F.,{VI0->VI0_NUMNFI,VI0->VI0_SERNFI,VI0->VI0_CODFOR,VI0->VI0_LOJFOR})

OFIIA000.PRW - IA000IMP() -> EXECBLOCK("OFIIACHK",.F.,.F.)

OFIIA000.PRW - IA000IMP() -> EXECBLOCK("OFMT010D",.F.,.F.,{AINCSB1})

OFIIA000.PRW - OFIIA000() -> CFILTRO:=EXECBLOCK("IA000FIL",.F.,.F.)

OFIIA020.PRW - FS_GRAVAPEC() -> CTESSAI := EXECBLOCK("EDISB1TS",.F.,.F.,{CTESSAI})

OFIIA020.PRW - FS_GRAVAPEC() -> EXECBLOCK("IA020DPG",.F.,.F.,{CPECINT})

OFIIA040.PRW - FS_CODSEG() -> EXECBLOCK("OA04DPGR",.F.,.F.)

OFIIA070.PRW - OFIIA070() -> EXECBLOCK("FIIA070",.F.,.F.,{})

OFIIA070.PRW - OFIIA070() -> EXECBLOCK("FOIA070",.F.,.F.,{})

OFIIA070.PRW - OFIIA070() -> EXECBLOCK("GMIA070",.F.,.F.,{DPDATAMOVTO,CPCHASSI,XOPC,LBROWSE,LPTELADIG})

OFIIA070.PRW - OFIIA070() -> EXECBLOCK("HOIA070",.F.,.F.,{})

OFIIA230.PRW - FS_INTVID() -> EXECBLOCK("IA230MSG",.F.,.F., { "\INT\IMP\DSM\"+CEMPFIL+"\ENVDSM.IMP" , CMSG } )

OFIIA290.PRW - FS_LVDEMDIA() -> IF !EXECBLOCK("OFA290DD",.F.,.F.,{"SF1"})

OFIIA290.PRW - FS_LVDEMDIA() -> IF !EXECBLOCK("OFA290DD",.F.,.F.,{"VE6"})

OFIIA290.PRW - FS_LVDEMDIA() -> IF !EXECBLOCK("OFA290DD",.F.,.F.,{"VO2"})

OFIIA310.PRW - OFIIA310() -> AVETOR[I,2] := EXECBLOCK("OFA310SA", .F., .F., AVETOR[I])

OFIIA310.PRW - OFIIA310() -> IF !EXECBLOCK("OFA310SD",.F.,.F.,{"VI0"})

OFIIA440.PRW - FS_GRAVA() -> EXECBLOCK("IA440DPG",.F.,.F.,{SB1->B1_COD})

OFIIR080.PRW - FS_GERAREL() -> EXECBLOCK("IR080ORD",.F.,.F.,{AVETORDEM,ATABULACAO})

OFINJD01.PRW - RUNPROC() -> EXECBLOCK("OJD01AGR",.F.,.F.)

OFINJD10.PRW - OFJD10INCSB1() -> LRETORNO := EXECBLOCK("PROCINCPECAJD",.F.,.F., { CCODSB1 } )

OFINJD15.PRW - OFNJD15AOS() -> LRET := EXECBLOCK("ONJD15VA", .F., .F., APARPE )

OFINJD25.PRW - JD25HVPERM() -> NHORAFBLOCK  := IIF(EXISTBLOCK('OFJD25HF'), EXECBLOCK("OFJD25HF",.F.,.F.), 22)

OFINJD25.PRW - JD25HVPERM() -> NHORAIBLOCK  := IIF(EXISTBLOCK('OFJD25HI'), EXECBLOCK("OFJD25HI",.F.,.F.),  6)

OFIOA550.PRW - OA550INC() -> EXECBLOCK("OA550SGM",.F.,.F.)

OFIOA550.PRW - OA550INC() -> EXECBLOCK("OA550VLD",.F.,.F., { NRESPAVISO } )

OFIOA560.PRW - OFIOA560FL() -> CFILTROVX5 := EXECBLOCK("OF560VX5",.F.,.F.,{ "2" , CFILTRO })

OFIOC010.PRW - C10MC030MONTA() -> LTESNEST := EXECBLOCK("MTAAVLTES",.F.,.F.)

OFIOC270.PRW - FS_IMPORC() -> EXECBLOCK("ORCAMTO",.F.,.F.,{VS1->VS1_NUMORC})

OFIOC470.PRW - FS_MONTAVET() -> CQUERY := EXECBLOCK("OFC470FDV",.F.,.F., {CQUERY})

OFIOC470.PRW - FS_MONTAVET() -> CQUERY := EXECBLOCK("OFC470FIL",.F.,.F., {CQUERY})

OFIOC520.PRW - MENUDEF() -> ARECEBE := EXECBLOCK("OC520ART",.F.,.F.,{AROTINA} )

OFIOC520.PRW - OC520ATU() -> EXECBLOCK("OC520ATU",.F.,.F.,{LATUPAR})

OFIOC520.PRW - OC520VISUAL() -> ACPOCTM := EXECBLOCK("OC520CPO",.F.,.F., ACPOCTM)

OFIOM010.PRW - FS_GETKEY() -> EXECBLOCK("VA010DPGR",.F.,.F.,{VV1->VV1_CHAINT,NOPCE,VO5->(RECNO())})

OFIOM010.PRW - FS_OM010GRA() -> EXECBLOCK("OM010DPGR",.F.,.F.,{NOPC})

OFIOM010.PRW - FS_OM010LOK() -> IF !EXECBLOCK("OM010BLOQ",.F.,.F.)

OFIOM010.PRW - MENUDEF() -> ARECEBE := EXECBLOCK("OM010AROT",.F.,.F.,{AROTINA} )

OFIOM010.PRW - OFIOM010() -> CFILUSER := EXECBLOCK("OFI010FBRW",.F.,.F.,CCONDICAO)

OFIOM010.PRW - OM010I() -> ABOTOES := EXECBLOCK("INCBOT010",.F.,.F.,{ABOTOES})

OFIOM020.PRW - FS_ALTREQ() -> AITENSNEW := EXECBLOCK("OM020APEC", .F., .F., {AITENSNEW})

OFIOM020.PRW - FS_ALTREQ() -> EXECBLOCK("RDLOCALIZ",.F.,.F.,{@AITENSNEW})

OFIOM020.PRW - FS_ALTREQ() -> LRET := EXECBLOCK("OM020ALT",.F.,.F.)

OFIOM020.PRW - FS_ALTREQ() -> LVERTPGCC := EXECBLOCK("VERTPGCC",.F.,.F.,{"OFIOM020"})

OFIOM020.PRW - FS_ALTTPREQ() -> RETURN( EXECBLOCK("ALTTPREQ",.F.,.F.) )

OFIOM020.PRW - FS_CHAMAGRAREQ() -> LRET := EXECBLOCK("OM020RDOK", .F., .F., {CREQDEV})

OFIOM020.PRW - FS_FIELD020() -> LRET := EXECBLOCK("OM020VLD",.F.,.F.,{_CREADVAR})

OFIOM020.PRW - FS_FIELD020() -> LVERTPGCC := EXECBLOCK("VERTPGCC", .F., .F., {"OFIOM020"})

OFIOM020.PRW - FS_FORMUL() -> CRETFORM := EXECBLOCK("OM020FML",.F.,.F.,{ _COPER , _CTIPTEM })

OFIOM020.PRW - FS_IMPORC() -> EXECBLOCK("RQPCOM020",.F.,.F.,{NI,NREG})

OFIOM020.PRW - FS_ITRELE() -> AITEREL := EXECBLOCK("OX001IRL",.F.,.F.,{AITEREL})

OFIOM020.PRW - FS_ORDBUSCA() -> EXECBLOCK("ORDBUSCA",.F.,.F.,{AVO2NOSNUM})

OFIOM020.PRW - FS_PECAORC() -> APE := EXECBLOCK("OM020VSJ",.F.,.F.,{APECAORC})

OFIOM020.PRW - FS_TUDOK020() -> LRETORNO := EXECBLOCK("OM020TOK",.F.,.F.)

OFIOM020.PRW - FS_VALIMPORC() -> LRET := EXECBLOCK("OM020VIO",.F.,.F.,{NREG})

OFIOM020.PRW - FS_VLDALT020() -> IF !EXECBLOCK("OM020VDV",.F.,.F.,{ AITEADEV[NAUXPOS,2] , AITEADEV[NAUXPOS,6] , AITEADEV[NAUXPOS,7] , AITEADEV[NAUXPOS,10] , NQTDDEV })

OFIOM020.PRW - NFRETREM() -> ACABNFE := EXECBLOCK("OM020SF1",.F.,.F.,{ACABNFE})

OFIOM020.PRW - NFRETREM() -> ATEMP := EXECBLOCK("OM020SD1",.F.,.F.,{ATEMP})

OFIOM020.PRW - OM020() -> EXECBLOCK("OM3020TP",.F.,.F.)

OFIOM020.PRW - OM020() -> IF IIF(LOM020AST,EXECBLOCK("OM020AST",.F.,.F.,{VO1->VO1_STATUS}),VO1->VO1_STATUS) # "A"

OFIOM020.PRW - OM020007_MATRIZDEV() -> IF !EXECBLOCK("OM020QDV",.F.,.F.)

OFIOM020.PRW - OM0200091_LIMITECREDITOPECASORCAMENTO() -> LVERTPGCC := EXECBLOCK("VERTPGCC",.F.,.F.,{"OFIOM020"})

OFIOM020.PRW - OM020A() -> IF IIF(LOM020AST,EXECBLOCK("OM020AST",.F.,.F.,{VO1->VO1_STATUS}),VO1->VO1_STATUS) # "A"

OFIOM020.PRW - OM020FOKVSJ() -> LRETORNO := EXECBLOCK("OM020OKV",.F.,.F.,{CREADVAR})

OFIOM020.PRW - OM020LEG() -> ALEGENDA := EXECBLOCK("OM020CLG", .F., .F., {ALEGENDA})

OFIOM020.PRW - OM020LEG() -> URETORNO := EXECBLOCK("OM020COR", .F., .F., {URETORNO, ALEGENDA})

OFIOM020.PRW - OM020MOVESTOQUE() -> AITENSNEW := EXECBLOCK("OM020APEC", .F., .F., {AITENSNEW})

OFIOM020.PRW - OM020MOVESTOQUE() -> EXECBLOCK("RDLOCALIZ",.F.,.F.,{@AITENSNEW})

OFIOM020.PRW - OM020PREM() -> ACABPV := EXECBLOCK("OM020SC5",.F.,.F.,{ACABPV})

OFIOM020.PRW - OM020PREM() -> AITETEMPPV := EXECBLOCK("OM020SC6",.F.,.F.,{AITETEMPPV})

OFIOM020.PRW - OM020PREM() -> EXECBLOCK("OM020GREM",.F.,.F.,{CNOTA,CSERIE})

OFIOM020.PRW - OM020PREM() -> IF !EXECBLOCK("OM020APV",.F.,.F.)

OFIOM020.PRW - OM020PRET() -> EXECBLOCK("OM020GRT",.F.,.F.,{CNUMERO,CSERIE})

OFIOM020.PRW - OM020REM() -> EXECBLOCK("OM020PAR",.F.,.F., CGRPSX1)

OFIOM020.PRW - OM020VO3CRIAREGISTRO() -> EXECBLOCK("POM020DG",.F.,.F.)

OFIOM020.PRW - OM020VSJMANUAL() -> IF IIF(LOM020AST,EXECBLOCK("OM020AST",.F.,.F.,{VO1->VO1_STATUS}),VO1->VO1_STATUS) $ "D/F/C"

OFIOM030.PRW - FS_030TUDOK() -> LRET := EXECBLOCK("OM030TOK",.F.,.F.,{ACLONE(AAUXAHEADER),ACLONE(AAUXACOLS)})

OFIOM030.PRW - FS_030TUDOK() -> LVERTPGCC := EXECBLOCK("VERTPGCC",.F.,.F.,{"OFIOM030"})

OFIOM030.PRW - FS_030VALID() -> LRET := EXECBLOCK("OM030VLD",.F.,.F.,{__READVAR})

OFIOM030.PRW - FS_030VALID() -> LVERTPGCC := EXECBLOCK("VERTPGCC",.F.,.F.,{"OFIOM030"})

OFIOM030.PRW - FS_ALTSRV() -> EXECBLOCK("OM030ADG",.F.,.F.)

OFIOM030.PRW - FS_ALTSRV() -> LRET := EXECBLOCK("OM030VAS",.F.,.F.)

OFIOM030.PRW - FS_ALTSRV() -> LVERTPGCC := EXECBLOCK("VERTPGCC",.F.,.F.,{"OFIOM030"})

OFIOM030.PRW - FS_GRSRVS() -> EXECBLOCK("IMPSUBORD",.F.,.F.)

OFIOM030.PRW - FS_GRSRVS() -> EXECBLOCK("OM030DPGR",.F.,.F.)

OFIOM030.PRW - FS_GRSRVS() -> LRETPE := EXECBLOCK("OM030ANGR",.F.,.F.,)

OFIOM030.PRW - FS_MOVSRVTERC() -> EXECBLOCK("OM030TERC",.F.,.F.)

OFIOM030.PRW - FS_SELECIONA() -> IF !EXECBLOCK("OM030VTS",.F.,.F.,{2,M->VO4_TIPSER,M->VO4_TIPTEM,.F.,.F.})

OFIOM030.PRW - FS_SERTEM() -> IF !EXECBLOCK("OM030VTS",.F.,.F.,{1,CTIPSER,CTIPTEM,LMENSAGEM,LTPO})

OFIOM030.PRW - FS_VALDEL() -> LRET := EXECBLOCK("OM030DEL",.F.,.F.,{NABA})

OFIOM030.PRW - MENUDEF() -> IF VALTYPE( ANOVBOT := EXECBLOCK("OM030ROT", .F., .F.) ) == "A"

OFIOM030.PRW - OM030() -> ANEWBOT := EXECBLOCK("OM030ABT", .F., .F., {ANEWBOT})

OFIOM030.PRW - OM030() -> EXECBLOCK("OM3020TP",.F.,.F.)

OFIOM030.PRW - OM030() -> LRET := EXECBLOCK("OM030INI",.F.,.F.,{})

OFIOM030.PRW - OM030A() -> IF IIF(LOM030AST,EXECBLOCK("OM030AST",.F.,.F.,{VO1->VO1_STATUS}),VO1->VO1_STATUS) # "A"

OFIOM030.PRW - OM030LEG() ->     ALEGENDA := EXECBLOCK("OM030CLG", .F., .F., {ALEGENDA})

OFIOM030.PRW - OM030LEG() ->         URETORNO := EXECBLOCK("OM030COR", .F., .F., {URETORNO, ALEGENDA})

OFIOM030.PRW - OM030OKNO() -> EXECBLOCK("OM030OKN",.F.,.F.,{LOPERACAO})

OFIOM070.PRW - FS_APONTAMENTO() -> EXECBLOCK("OM070DGR", .F., .F.)

OFIOM070.PRW - FS_VALSRV() -> LRET := EXECBLOCK("OM070VLD ",.F.,.F.)

OFIOM070.PRW - OFIOM070() -> @ 234, 198 BUTTON OREQPEC  PROMPT OEMTOANSI(STR0042) OF ODLGELETRONIC SIZE 30,11 PIXEL ACTION EXECBLOCK("O070RQPC",.F.,.F.,)

OFIOM110.PRW - DESCRI110() -> CLOCALIZ := EXECBLOCK("LOCAOM110",.F.,.F.,{(CALIASSB1)->B1_COD})

OFIOM110.PRW - DESCRI110() -> CLOCALIZ := EXECBLOCK("LOCAOM110",.F.,.F.,{SB1->B1_COD})

OFIOM110.PRW - FECHAVENDA() -> EXECBLOCK("EMINFO110",.F.,.F.)

OFIOM110.PRW - FECHAVENDA() -> EXECBLOCK("EMITTO110",.F.,.F.)

OFIOM110.PRW - FECHAVENDA() -> EXECBLOCK("RETPEC110",.F.,.F.)

OFIOM110.PRW - FECHAVENDA() -> LINTNF := EXECBLOCK("INTNFBAL",.F.,.F.)

OFIOM110.PRW - FS_CANCELA() -> IF !EXECBLOCK("CANORC110",.F.,.F.)

OFIOM110.PRW - FS_CONFEXC() -> CLOCALIZENT := EXECBLOCK("LOCAOM110",.F.,.F.,{SB1->B1_COD})

OFIOM110.PRW - FS_CONFEXC() -> EXECBLOCK("DESBLO110",.F.,.F.,{AHEADERP,ACOLSP,X_,NOPC})

OFIOM110.PRW - FS_DESBLQITE() -> CLOCALIZENT := EXECBLOCK("LOCAOM110",.F.,.F.,{SB1->B1_COD})

OFIOM110.PRW - FS_EDITLOCAL() -> CLOCALIZENT := EXECBLOCK("LOCAOM110",.F.,.F.,{SB1->B1_COD})

OFIOM110.PRW - FS_EDITLOCAL() -> EXECBLOCK("LOCALIZ",.F.,.F.,{CNEWITE})

OFIOM110.PRW - FS_FECVDA() -> EXECBLOCK("ORDBUSCB",.F.,.F.)

OFIOM110.PRW - FS_FECVDA() -> IF !(LESTNEG := EXECBLOCK("VALESTNEG",.F.,.F.))

OFIOM110.PRW - FS_FECVDA() -> LRET := EXECBLOCK("OFM110A",.F.,.F.)

OFIOM110.PRW - FS_FECVDA() -> LRET := EXECBLOCK("OFM110B",.F.,.F.)

OFIOM110.PRW - FS_FILBOTAO() -> LRET := EXECBLOCK("VALBOT110",.F.,.F.,{NPAG,NBOT})

OFIOM110.PRW - FS_FINORC() -> EXECBLOCK("OFM110C",.F.,.F.)

OFIOM110.PRW - FS_FOLDER() -> IF !(LESTNEG := EXECBLOCK("VALESTNEG",.F.,.F.))

OFIOM110.PRW - FS_FOLDER() -> LINTNF := EXECBLOCK("INTNFBAL",.F.,.F.)

OFIOM110.PRW - FS_GETCHA() -> EXECBLOCK("VA010DPGR",.F.,.F.,{VV1->VV1_CHAINT,3,0})

OFIOM110.PRW - FS_IMPORCOSV() -> EXECBLOCK("IMPORCVSJ",.F.,.F.,{VO1->VO1_NUMOSV})

OFIOM110.PRW - FS_INTLOJA() -> AITEPV := EXECBLOCK("VETITLOJA",.F.,.F.,{ACABPV,AITEPV})

OFIOM110.PRW - FS_PREENCHE() -> GET_LOCALI := EXECBLOCK("LOCAOM110",.F.,.F.,{SB1->B1_COD})

OFIOM110.PRW - FS_PRINTORC() -> EXECBLOCK("ORCAMTO",.F.,.F.,{M->VS1_NUMORC})

OFIOM110.PRW - FS_PRINTORC() -> IF EXECBLOCK("IMPORCBAL",.F.,.F.)

OFIOM110.PRW - FS_SALDOPEC() -> NSALDO := EXECBLOCK("ESTOF110",.F.,.F.)

OFIOM110.PRW - FS_SALVAR() -> EXECBLOCK("GRVNEG110",.F.,.F.)

OFIOM110.PRW - FS_TOTPEC() -> IF !EXECBLOCK("CHKPRO110",.F.,.F.)

OFIOM110.PRW - FS_TOTPEC() -> LINTNF := EXECBLOCK("INTNFBAL",.F.,.F.)

OFIOM110.PRW - FS_TRANALMO() -> CLOCALIZENT := EXECBLOCK("LOCAOM110",.F.,.F.,{SB1->B1_COD})

OFIOM110.PRW - FS_TRANALMO() -> CLOCALIZSAI := EXECBLOCK("LOCAOM110",.F.,.F.,{SB1->B1_COD})

OFIOM110.PRW - FS_TRANSFER() -> EXECBLOCK("TRASFE110",.F.,.F.,{AHEADERP,ACOLSP,N,NOPC})

OFIOM110.PRW - GERA_PEDIDO() -> EXECBLOCK("INTBAL01",.F.,.F.)

OFIOM110.PRW - GERA_PEDIDO() -> EXECBLOCK("INTPED110",.F.,.F.,{@ACABPV,@AITEPV})

OFIOM110.PRW - GERA_PEDIDO() -> IF !EXECBLOCK("INTPEDBAL",.F.,.F.)

OFIOM110.PRW - GERA_TITULO() -> EXECBLOCK("OM110TIT",.F.,.F.)

OFIOM110.PRW - IMPRIME_DOC() -> EXECBLOCK("BLQCOB",.F.,.F.,{CNOTA,,,,CPREFNF,"1",COBS1,COBS2,COBS3,VS1->VS1_CODBCO})

OFIOM110.PRW - IMPRIME_DOC() -> EXECBLOCK("CONTCDCI",.F.,.F.,{SEM->EM_CONTRAT})

OFIOM110.PRW - IMPRIME_DOC() -> EXECBLOCK("IMPDOC110",.F.,.F.,{M->VS1_NUMORC,CNOTA,CSERIE})

OFIOM110.PRW - IMPRIME_DOC() -> EXECBLOCK("NFPECSER",.F.,.F.,{CNOTA,CSERIE})

OFIOM140.PRW - FS_IMPGAR() -> LRETPE := EXECBLOCK("OM140IGA",.F.,.F.,{CTIPTEM})

OFIOM140.PRW - FS_LIBOSV() -> AITENSNEW := EXECBLOCK("OM140AP", .F., .F., {AITENSNEW})

OFIOM140.PRW - FS_LIBOSV() -> IF !EXECBLOCK("VA140DPGR",.F.,.F.,{VO1->VO1_NUMOSV})

OFIOM140.PRW - FS_LIBOSV() -> LRETORNO := EXECBLOCK("OM140CHK",.F.,.F.)

OFIOM140.PRW - FS_VALOSV() -> IF !EXECBLOCK("OM140FSR",.F.,.F.,{VO1->VO1_NUMOSV,ASELSRVC[NCONT,SRVC_TIPSER],ASELSRVC[NCONT,SRVC_GRUSER],ASELSRVC[NCONT,SRVC_CODSER]})

OFIOM150.PRW - FS_CANGAR() -> LRETPE := EXECBLOCK("OM150IGA",.F.,.F.,{CTIPTEM})

OFIOM150.PRW - FS_GRACANCEL() -> IF !EXECBLOCK("OM150VCO",.F.,.F.,{})

OFIOM150.PRW - FS_GRACANCEL() -> IF !EXECBLOCK("VA150DPGR",.F.,.F.,{})

OFIOM150.PRW - OM150ESTRE() -> AITENSNEW := EXECBLOCK("OM150AP", .F., .F., {AITENSNEW})

OFIOM160.PRW - FS_ADMCPO() -> LRETPE := EXECBLOCK("OM160VLD",.F.,.F.)

OFIOM160.PRW - FS_LISTBOX() -> LRETPE := EXECBLOCK("OM160TIK",.F.,.F.,{CPARAM01})

OFIOM16A.PRW - FS_FECHAR() -> EXECBLOCK("O160ANGR",.F.,.F.)

OFIOM16A.PRW - FS_FECHAR() -> EXECBLOCK("O160DPGR",.F.,.F.)

OFIOM16A.PRW - FS_FECHAR() -> EXECBLOCK("O160DPTR",.F.,.F.)

OFIOM16A.PRW - FS_FECHAR() -> IF !EXECBLOCK("OFM160A",.F.,.F.)

OFIOM16A.PRW - FS_FECHAR() -> LRETFECH := EXECBLOCK("OFIM16ACHK",.F.,.F.,{VO1->VO1_NUMOSV})

OFIOM16B.PRW - FS_IMPDOC1() -> EXECBLOCK("BLQCOB",.F.,.F.,{CNOTA,,,,SF2->F2_PREFIXO,"1",COBS1,COBS2,COBS3,CCODBCO})

OFIOM16B.PRW - FS_IMPDOC1() -> EXECBLOCK("CONTCDCI",.F.,.F.,{SEM->EM_CONTRAT})

OFIOM16B.PRW - FS_IMPDOC1() -> EXECBLOCK("NFPECSER",.F.,.F.,{CNOTA,CSERIE})

OFIOM16C.PRW - FS_IMPDOC2() -> EXECBLOCK("BLQCOB",.F.,.F.,{CNOTA,,,,SF2->F2_PREFIXO,"1",COBS1,COBS2,COBS3,CCODBCO})

OFIOM16C.PRW - FS_IMPDOC2() -> EXECBLOCK("CONTCDCI",.F.,.F.,{SEM->EM_CONTRAT})

OFIOM16C.PRW - FS_IMPDOC2() -> EXECBLOCK("NFPECSER",.F.,.F.,{CNOTA,CSERIE})

OFIOM16C.PRW - FS_IMPDOC2() -> EXECBLOCK("RELPECE",.F.,.F.,{AVETOSV[IXI,1],AVETOSV[IXI,2],"F"})

OFIOM16D.PRW - FS_IMPDOC3() -> EXECBLOCK("BLQCOB",.F.,.F.,{CNOTA,,,,SF2->F2_PREFIXO,"1",COBS1,COBS2,COBS3,CCODBCO})

OFIOM16D.PRW - FS_IMPDOC3() -> EXECBLOCK("CONTCDCI",.F.,.F.,{SEM->EM_CONTRAT})

OFIOM16D.PRW - FS_IMPDOC3() -> EXECBLOCK("NFPECSER",.F.,.F.,{CNOTA,CSERIE})

OFIOM220.PRW - OM220CANCELA() -> EXECBLOCK("ORDCANC",.F.,.F.)

OFIOM220.PRW - OM220CANCELA() -> LRET := EXECBLOCK("OFM220FN",.F.,.F.)

OFIOM220.PRW - OM220CANCELA() -> LRET := EXECBLOCK("OFM220IN",.F.,.F.)

OFIOM260.PRW - FS_DESBLQ() -> AITENSNEW := EXECBLOCK("OM260AP", .F., .F., {AITENSNEW})

OFIOM270.PRW - FS_ESCALAR() -> EXECBLOCK("OM270GRV",.F.,.F.)

OFIOM350.PRW - FS_EXPAGEND() -> EXECBLOCK("OF350GRORC",.F.,.F.)

OFIOM350.PRW - FS_OM350EMAIL() -> EXECBLOCK("O350EMAIL",.F.,.F.)

OFIOM350.PRW - OM350() -> ANEWBOT := EXECBLOCK("OM350ABT",.F.,.F.,{ANEWBOT})

OFIOM350.PRW - OM350CONF() -> EXECBLOCK("OM350CON",.F.,.F.,{VSO->VSO_NUMIDE})

OFIOM390.PRW - OFIOM390() -> CFILTRO += EXECBLOCK("OMSQLSD1",.F.,.F.,{"1"})

OFIOM390.PRW - OFIOM390() -> LRET := EXECBLOCK("OM390VLD",.F.,.F.,{ CCONFNF })

OFIOM390.PRW - OM3900021_EMAIL() -> EXECBLOCK("OM390MAI",.F.,.F.,{CEMAILDIV})

OFIOM390.PRW - OM3900115_STATUSCONFERENCIA() -> EXECBLOCK("OM390STA",.F.,.F.,{ CCONFERENCIA , CSTATUS, CTPORIGEM })

OFIOM390.PRW - OM3900301_CHAMAPEAPOSAPROVREPROV() -> EXECBLOCK("OM390DOK",.F.,.F.,{CAPRREPR,ANFS,AITENS})

OFIOM430.PRW - CRIALINHAACOLS() -> AAUXACOLS := EXECBLOCK("OM430COL",.F.,.F.,{ ACLONE(AAUXACOLS) , 0 , 0 })

OFIOM430.PRW - FS_GERATRANS() -> CTESINTE := EXECBLOCK("OFM430TES",.F.,.F.,{"E"})

OFIOM430.PRW - FS_GERATRANS() -> CTESINTS := EXECBLOCK("OFM430TES",.F.,.F.,{"S"})

OFIOM430.PRW - FS_GERATRANS() -> EXECBLOCK("OM430APV",.F.,.F.)

OFIOM430.PRW - FS_GERATRANS() -> EXECBLOCK("OM430DPG",.F.,.F.)

OFIOM430.PRW - FS_GERTRA() -> EXECBLOCK("OM430FIM",.F.,.F.,{LRET})

OFIOM430.PRW - FS_MONTATELA() -> ACPOSAUX := EXECBLOCK("OM430EDT",.F.,.F.)

OFIOM430.PRW - FS_MONTATELA() -> ANEWBOT := EXECBLOCK("OM430ABT",.F.,.F.,{ANEWBOT})

OFIOM430.PRW - FS_OK() -> EXECBLOCK("OM430DGV",.F.,.F.)

OFIOM430.PRW - FS_OK() -> EXECBLOCK("OM430GRV",.F.,.F.,{ NOPC , ACOLS[I] , VS3->(RECNO()) })

OFIOM430.PRW - FS_OK() -> EXECBLOCK("OM430GRV",.F.,.F.,{ NOPC , ACOLS[NI] , VS3->(RECNO()) })

OFIOM430.PRW - FS_OK() -> LRET := EXECBLOCK("OM430AVA", .F., .F.)

OFIOM430.PRW - MENUDEF() -> ARECEBE := EXECBLOCK("O430AROT",.F.,.F.,{AROTINA} )

OFIOM430.PRW - MONTAACOLS() -> ACOLS[NREG] := EXECBLOCK("OM430COL",.F.,.F.,{ ACLONE(ACOLS[NREG]) , ( CALIASVS3A )->RECVS3 , ( CALIASVS3A )->RECSB1 })

OFIOM430.PRW - MONTAAHEADER() -> CCPOADICIONAL := EXECBLOCK("OM430CPO",.F.,.F.,{ NOPCTELA })

OFIOM430.PRW - OM430CANTRANSF() -> IF !EXECBLOCK("OM430DCA",.F.,.F.)

OFIOM430.PRW - OM430GERANF() -> EXECBLOCK("OM430FIM",.F.,.F.,{LRET})

OFIOM430.PRW - OM430IMPORD() -> EXECBLOCK("ORDBUSCB",.F.,.F.,{"O"})

OFIOM430.PRW - OM430PREPEC() -> EXECBLOCK("OM430LIN",.F.,.F.)

OFIOM450.PRW - OM450DOCCOMP() -> EXECBLOCK("OM450IMP",.F.,.F.,{VDP->VDP_CODIGO})

OFIOR250.PRW - FS_OR25AV() -> EXECBLOCK("GRAVGRPVEI",.F.,.F.)

OFIOR250.PRW - IMPORM_250() -> EXECBLOCK("CONTABIL",.F.,.F.)

OFIOR250.PRW - OFIOR250() -> EXECBLOCK("GERAARQTXT",.F.,.F.)

OFIOR370.PRW - FS_IMPNOTPS() -> EXECBLOCK("NFPECSER",.F.,.F.,{SF2->F2_DOC,SF2->F2_SERIE})

OFIOR700.PRW - FS_IMPORDBUSC() -> EXECBLOCK("ORDBUSCA",.F.,.F.,{ADEVNOSNUM})

OFIOR700.PRW - FS_IMPORDBUSC() -> EXECBLOCK("ORDBUSCA",.F.,.F.,{AREQNOSNUM})

OFIOR700.PRW - FS_IMPRIMIR() -> EXECBLOCK("ORDBUSCB",.F.,.F.)

OFIOR700.PRW - FS_IMPRIMIR() -> EXECBLOCK("ORDBUSCB",.F.,.F.,{"O"})

OFIPM040.PRW - FS_GERAB7NF() -> LRET := EXECBLOCK("OPM040B7",.F.,.F.,{})

OFIPM040.PRW - FS_IMPDIV() -> EXECBLOCK("OPM040DV",.F.,.F.,{NTP,ACLONE(AITENS)})

OFIPM040.PRW - FS_IMPRIMIR() -> EXECBLOCK("OPM040R",.F.,.F.,{CNRORELI,CNRORELF})

OFIPM040.PRW - FS_IMPRIMIR() -> EXECBLOCK("OPM040SEQ",.F.,.F.,{VPE->VPE_CODIGO})

OFIPM040.PRW - GERANFE() -> EXECBLOCK("OPM040NFE",.F.,.F.,{ACABEC,AITENS,ARET[1,1],ARET[1,2]})

OFIPM040.PRW - GERAPEDIDO() -> AVET := EXECBLOCK("OPM040CPO",.F.,.F.,{ACABECS,AITESAI})

OFIPM040.PRW - OPM040MENU() -> AROTUSR := EXECBLOCK("OPM040AR",.F.,.F.)

OFIPM900.PRW - FS_VALIND() -> AITENSNEW := EXECBLOCK("OF900AP", .F., .F., {AITENSNEW})

OFIPM900.PRW - FS_VALIND() -> EXECBLOCK("OF900DGR",.F.,.F.,)

OFIRVW02.PRW - RUNPROC() -> EXECBLOCK("ORVW02E2",.F.,.F.)

OFIRVW02.PRW - RUNPROC() -> EXECBLOCK("ORVW02E3",.F.,.F.)

OFIRVW02.PRW - RUNPROC() -> EXECBLOCK("ORVW02E4",.F.,.F.)

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

OFIXA011.PRW - OFIXA011() -> CFILTROX11 := EXECBLOCK("POXA011FBR",.F.,.F.,{.F.})

OFIXA011.PRW - OXA011() -> EXECBLOCK("OA011FIM",.F.,.F.)

OFIXA011.PRW - OXA011() -> IF !EXECBLOCK("OA011APRO",.F.,.F.,{NOPC})

OFIXA011.PRW - OXA011CLO() -> EXECBLOCK("OA011DCL",.F.,.F.)

OFIXA011.PRW - OXA011CLO() -> IF !EXECBLOCK("OX011CLONE",.F.,.F.)

OFIXA011.PRW - OXA011LEG() -> ALEGENDA := EXECBLOCK("OA011LEG",.F.,.F.,{ALEGENDA})

OFIXA011.PRW - OXA011LEG() -> EXECBLOCK("OA011COR",.F.,.F.)

OFIXA011.PRW - OXA011OSC() -> EXECBLOCK("OA011DOSCL",.F.,.F.)

OFIXA011.PRW - OXA011OSC() -> IF !EXECBLOCK("OX011OSCL",.F.,.F.)

OFIXA012.PRW - OXA012CT() -> EXECBLOCK("ORDBUSCB",.F.,.F.,{"OR","CANCELA"})

OFIXA012.PRW - OXA012LEG() -> ALEGENDA := EXECBLOCK("OX012LEG",.F.,.F.,{ALEGENDA})

OFIXA016.PRW - MENUDEF() -> ARECEBE := EXECBLOCK("OX016ROT",.F.,.F.,{AROTINA} )

OFIXA016.PRW - OXA016L() -> EXECBLOCK("OX016GLB",.F.,.F.)

OFIXA016.PRW - OXA016L() -> IF !EXECBLOCK("OXA016LB",.F.,.F.)

OFIXA018.PRW - OA18ROBJOR() -> RETURN EXECBLOCK("OX018COR",.F.,.F.,{"O",CSTATUS,CTIPORC,CGERFIN})

OFIXA018.PRW - OA18ROBJPD() -> RETURN EXECBLOCK("OX018COR",.F.,.F.,{"P",CPEDSTA})

OFIXA018.PRW - OX018001B_RETORNACONDORCAMENTO() -> CCONDICAO := EXECBLOCK("OX018ADS", .F., .F., {CSTATUS, CTPORC, CGERFIN, CCONDICAO})

OFIXA018.PRW - OXA018CMENU() -> AMENU := EXECBLOCK("OX018ARV",.F.,.F.,{AMENU})

OFIXA018.PRW - OXA018MTOR() -> CFILTROX18 := EXECBLOCK("OX018FBR", .F., .F.)

OFIXA020.PRW - OXA020A() -> APARAM := EXECBLOCK("OX020PAR",.F.,.F.)

OFIXA020.PRW - OXA020A() -> EXECBLOCK("OX020ORC",.F.,.F.)

OFIXA020.PRW - OXA020I() -> @ APOSOBJ[1,1]+004,APOSOBJ[1,2]+(NTAM*04)+005 MSCOMBOBOX OFILORI VAR CFILORI ITEMS AFILIAIS VALID FS_TROCAFIL() .AND. IIF(LPEVLDFILIAL,EXECBLOCK("OX020FIL", .F., .F., {1,CFILORI}),.T.) SIZE (NTAM*2),08 OF ODLG1 PIXEL

OFIXA020.PRW - OXA020I() -> @ APOSOBJ[1,1]+004,APOSOBJ[1,2]+(NTAM*08)+005 MSCOMBOBOX OFILDES VAR CFILDES ITEMS AFILIAIS VALID IIF(LPEVLDFILIAL,EXECBLOCK("OX020FIL", .F., .F., {2,CFILDES}),.T.) SIZE (NTAM*2),08 OF ODLG1 PIXEL

OFIXA020.PRW - OXA020R() -> AITENSNEW := EXECBLOCK("OX020AP", .F., .F., {AITENSNEW})

OFIXA020.PRW - OXA020R() -> EXECBLOCK("OX020REJ",.F.,.F.)

OFIXA020.PRW - OXA200038_PEOX020WHN() -> LRET := EXECBLOCK("OX020WHN", .F., .F., {NTIPO})

OFIXA021.PRW - FS_DBCLICK() -> EXECBLOCK("OX021TEL",.F.,.F.,{NLIN,.T.})

OFIXA021.PRW - FS_DBCLICK() -> _AINTITE := EXECBLOCK("OX021MARC", .F., .F., {_AINTITE})

OFIXA021.PRW - FS_MARCA() -> _AINTITE := EXECBLOCK("OX021MARC", .F., .F., {_AINTITE})

OFIXA021.PRW - OFIXA021() -> EXECBLOCK("ROMBALCAO",.F.,.F.,{VS1->VS1_SERNFI,VS1->VS1_NUMNFI})

OFIXA100.PRW - OXA100LEG() -> ALEGENDA := EXECBLOCK("OX100LEG",.F.,.F.,{ALEGENDA})

OFIXA100.PRW - OXA100LEG() -> URETORNO := EXECBLOCK("OX100COR",.F.,.F.,{URETORNO,ALEGENDA})

OFIXA120.PRW - OXA120CBRW() -> CXA120DEFFILTER += IIF( !EMPTY(CXA120DEFFILTER) , " .AND. " , " " ) + EXECBLOCK("POA011FT",.F.,.F.,{.T.})

OFIXA120.PRW - OXA120CBRW() -> CXA120DEFFILTER += IIF( !EMPTY(CXA120DEFFILTER) , " .AND. " , " " ) + EXECBLOCK("POXA011FBR",.F.,.F.,{.T.})

OFIXA120.PRW - OXA120EXEC() -> EXECBLOCK("ORCAMTO", .F., .F., {VS1->VS1_NUMORC})

OFIXC001.PRW - FS_FILPREC() -> LRET := EXECBLOCK("OC001FOR",.F.,.F.,{VEG->VEG_CODIGO, VEG->VEG_GRUFOR, VEG->VEG_GRUPOS, VEG->VEG_FORMUL})

OFIXC001.PRW - OC001BDESC() -> CLOCALI2 := EXECBLOCK("LOCAOM110",.F.,.F.,{ SB1->B1_COD })

OFIXC001.PRW - OC001BESTOQUE() -> EXECBLOCK("OC001EST",.F.,.F.)

OFIXC001.PRW - OC001DISITE() -> EXECBLOCK("OC001EST",.F.,.F.)

OFIXC001.PRW - OC001MSPEC() -> AITERELP := EXECBLOCK("OX001IRL",.F.,.F.,{AITERELP})

OFIXC001.PRW - OFIXC001() -> EXECBLOCK("OC001AVI",.F.,.F.)

OFIXC001.PRW - OFIXC001() -> EXECBLOCK("OC001TEL",.F.,.F.)

OFIXC001.PRW - OFIXC001() -> IF !EXECBLOCK("OC001INI",.F.,.F.)

OFIXC001.PRW - OFXC0010018_PONTOENTRADAENCHOICE() -> EXECBLOCK("OC001CAN",.F.,.F.,{CCHAVE,CGRUPO,CCODITE,CDESC, AITERELP})

OFIXC001.PRW - OFXC0010018_PONTOENTRADAENCHOICE() -> EXECBLOCK("OC001TOK",.F.,.F.,{CCHAVE,CGRUPO,CCODITE,CDESC, AITERELP})

OFIXC008.PRW - FS_FILPREC() -> EXECBLOCK("M_OXC008",.F.,.F.)

OFIXC008.PRW - OC008BDESC() -> CLOCALIZ := EXECBLOCK("LOCAOM110",.F.,.F.,{(CALIASSB1)->B1_COD})

OFIXC008.PRW - OC008ITEREL() -> AITEREL1 := EXECBLOCK("OX001IRL",.F.,.F.,{AITEREL1})

OFIXFUNA.PRW - FMX_GERNFS() -> AAUXPARC := EXECBLOCK("PEGERNFT",.F.,.F.,{ ACLONE(APARC) })

OFIXFUNA.PRW - FMX_GERNFS() -> IF !EXECBLOCK("PEGERNFS",.F.,.F.)

OFIXFUNA.PRW - FMX_GRVOSSTAT() -> EXECBLOCK("OXASTVO1",.F.,.F.,{_CNUMOSV,VO1->VO1_STATUS,_CSTATUS,IIF(LVO1DATSTA,VO1->VO1_DATSTA,NIL),IIF(LVO1HORSTA,VO1->VO1_HORSTA,NIL)})

OFIXFUNA.PRW - FM_GVECVSC() -> EXECBLOCK("OX001VEC",.F.,.F.,{VEC->VEC_PECINT,VEC->VEC_DATVEN,SD2->D2_TES,SD2->D2_BASEICM,VEC->VEC_QTDITE,"VEC"})

OFIXI001.PRW - OFIXI001() -> ARET := EXECBLOCK("OI001FNV",.F.,.F.,{CFASEATU})

OFIXI001.PRW - OFIXI001() -> CEXPRESSAO := EXECBLOCK("OXI01DIV",.F.,.F.,)

OFIXI001.PRW - OFIXI001() -> EXECBLOCK("OI001RDE",.F.,.F.)

OFIXI001.PRW - OFIXI001() -> EXECBLOCK("OI001SCO",.F.,.F.)

OFIXI001.PRW - OFIXI001() -> EXECBLOCK("ORDBUSCB",.F.,.F.,{"O","AVANCA"})

OFIXI001.PRW - OFIXI001() -> EXECBLOCK("OXIEMAIL",.F.,.F.,)

OFIXI001.PRW - OFIXI001() -> EXECBLOCK("OXVS7DGR",.F.,.F.)

OFIXI001.PRW - OFIXI001() -> EXECBLOCK("OXVS7DGT",.F.,.F.)

OFIXX001.PRW - FS_AVRES2() -> EXECBLOCK("OX001VEC",.F.,.F.,{SB1->B1_COD,VEC_DATVEN,OGETPECAS:ACOLS[OGETPECAS:NAT,FG_POSVAR("VS3_CODTES","AHEADERP")],NBASEICM,VEC_QTDITE,"TRB"})

OFIXX001.PRW - OFIXX001() -> AADD(ANEWBOT ,{"E5", {|| EXECBLOCK("OX001OPC",.F.,.F.,{NOPC})  }, STR0174 } )

OFIXX001.PRW - OFIXX001() -> ANEWBOT := EXECBLOCK("OX001ABT",.F.,.F.,{ANEWBOT})

OFIXX001.PRW - OFIXX001() -> ANEWBOT := EXECBLOCK("OXX001ABOT",.F.,.F.,{ANEWBOT})

OFIXX001.PRW - OX0010134_IMPORTAORCCSV() -> ADADOS := EXECBLOCK("OX001131", .F., .F., {CCONTENT, CFILE})

OFIXX001.PRW - OX0010134_IMPORTAORCCSV() -> AEXTDATA := EXECBLOCK("OX001132", .F., .F., {})

OFIXX001.PRW - OX0010181_CAMPOSALTERARLINHA() -> ARET := EXECBLOCK("OX001ALT",.F.,.F.,{ NTPGD , ACLONE(AALTPAD) })

OFIXX001.PRW - OX001ABOS() -> IF !EXECBLOCK("OX001VEX", .F., .F., {NNOVAOS, CNUMOS})

OFIXX001.PRW - OX001CONSPEC() -> SETKEY(VK_F8,{|| EXECBLOCK("OX001F8",.F.,.F.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

OFIXX001.PRW - OX001CONSPEC() -> SETKEY(VK_F9,{|| EXECBLOCK("OX001F9",.F.,.F.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

OFIXX001.PRW - OX001DELP() -> IF !(EXECBLOCK("OX001ADP",.F.,.F.))

OFIXX001.PRW - OX001DELP() -> IF !(EXECBLOCK("OX001DDP",.F.,.F.))

OFIXX001.PRW - OX001DELP() -> IF !(EXECBLOCK("OXA001DELP",.F.,.F.))

OFIXX001.PRW - OX001DELP() -> IF !(EXECBLOCK("OXA001VDEL",.F.,.F.))

OFIXX001.PRW - OX001EXEC() -> CVS3NMOSTRA := EXECBLOCK("OX001AHP",.F.,.F.,{ CVS3NMOSTRA })

OFIXX001.PRW - OX001EXEC() -> CVS4NMOSTRA := EXECBLOCK("OX001AHS",.F.,.F.,{ CVS4NMOSTRA })

OFIXX001.PRW - OX001EXEC() -> EXECBLOCK("OX001MF1",.F.,.F.)

OFIXX001.PRW - OX001EXEC() -> EXECBLOCK("OX001NME",.F.,.F.)

OFIXX001.PRW - OX001EXEC() -> SETKEY(VK_F8,{|| EXECBLOCK("OX001F8",.F.,.F.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

OFIXX001.PRW - OX001EXEC() -> SETKEY(VK_F9,{|| EXECBLOCK("OX001F9",.F.,.F.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

OFIXX001.PRW - OX001EXPVSJ() -> EXECBLOCK("IMPORCVSJ",.F.,.F.,{VO1->VO1_NUMOSV})

OFIXX001.PRW - OX001EXPVSJ() -> EXECBLOCK("OX001DEX",.F.,.F.)

OFIXX001.PRW - OX001EXPVSJ() -> EXECBLOCK("OX001IOR",.F.,.F.,{VO1->VO1_NUMOSV})

OFIXX001.PRW - OX001FAT() -> CCPOALT := EXECBLOCK("OFX01OSV",.F.,.F.)

OFIXX001.PRW - OX001FAT() -> EXECBLOCK("IMPSUBORD",.F.,.F.)

OFIXX001.PRW - OX001FAT() -> EXECBLOCK("ORDBUSCB",.F.,.F.,{"OR","CANCELA"})

OFIXX001.PRW - OX001FAT() -> EXECBLOCK("OX001DCN",.F.,.F.)

OFIXX001.PRW - OX001FAT() -> EXECBLOCK("OX001DEX",.F.,.F.)

OFIXX001.PRW - OX001FAT() -> EXECBLOCK("OXIEMAIL",.F.,.F.,)

OFIXX001.PRW - OX001FAT() -> EXECBLOCK("ROMBALCAO",.F.,.F.,{VS1->VS1_SERNFI,VS1->VS1_NUMNFI})

OFIXX001.PRW - OX001FAT() -> IF !EXECBLOCK("OX001CAN",.F.,.F.)

OFIXX001.PRW - OX001FAT() -> IF !EXECBLOCK("OX001FAT",.F.,.F.)

OFIXX001.PRW - OX001FAT() -> IF !EXECBLOCK("OX001OK",.F.,.F.)

OFIXX001.PRW - OX001FAT() -> IF !EXECBLOCK("OX01CANCEL",.F.,.F.)

OFIXX001.PRW - OX001FAT() -> IF !EXECBLOCK("OXA001DBFAT",.F.,.F.)

OFIXX001.PRW - OX001FAT() -> LRET := EXECBLOCK("OX001AEX",.F.,.F.)

OFIXX001.PRW - OX001FAT() -> LRET := EXECBLOCK("OX001VPO",.F.,.F.)

OFIXX001.PRW - OX001FPOK() -> EXECBLOCK("OX001PPC",.F.,.F.)

OFIXX001.PRW - OX001FPOK() -> IF !EXECBLOCK("CHKPRO110",.F.,.F.)

OFIXX001.PRW - OX001FPOK() -> IF !EXECBLOCK("OX001AFP",.F.,.F.)

OFIXX001.PRW - OX001FPOK() -> IF !EXECBLOCK("OX001VSP",.F.,.F.)

OFIXX001.PRW - OX001FPOK() -> LEXIBEKIT := EXECBLOCK("OX001VKT",.F.,.F., {M->VS3_GRUITE, M->VS3_CODITE})

OFIXX001.PRW - OX001FPOK() -> LKITIMP := EXECBLOCK("OX001PIK",.F.,.F.,)

OFIXX001.PRW - OX001FSOK() -> IF !EXECBLOCK("OX001AFS",.F.,.F.)

OFIXX001.PRW - OX001GERLB() -> EXECBLOCK("OX01DSLO",.F.,.F.)

OFIXX001.PRW - OX001GETCHA() -> EXECBLOCK("VA010DPGR",.F.,.F.,{VV1->VV1_CHAINT,3,0})

OFIXX001.PRW - OX001GRV() -> EXECBLOCK("ORDBUSCB",.F.,.F.,{"OR","CANCELA",ARESDEL})

OFIXX001.PRW - OX001GRV() -> EXECBLOCK("OX001DGR",.F.,.F.)

OFIXX001.PRW - OX001GRV() -> EXECBLOCK("OX001GVS1",.F.,.F.)

OFIXX001.PRW - OX001GRV() -> EXECBLOCK("OX001GVS3",.F.,.F.)

OFIXX001.PRW - OX001GRV() -> EXECBLOCK("OX001VS1",.F.,.F.)

OFIXX001.PRW - OX001GRV() -> EXECBLOCK("OX001VS3",.F.,.F.)

OFIXX001.PRW - OX001GRV() -> EXECBLOCK("PERESITE",.F.,.F.,{"OFIXX001G"})

OFIXX001.PRW - OX001GRV() -> IF !EXECBLOCK("OX001GRA",.F.,.F.)

OFIXX001.PRW - OX001GSUG() -> AINCBOT := EXECBLOCK("OX001SUG",.F.,.F.,{AINCBOT})

OFIXX001.PRW - OX001IMPR() -> EXECBLOCK("ORCAMTO",.F.,.F.,{VS1->VS1_NUMORC})

OFIXX001.PRW - OX001INCON() -> APARAMBOX := EXECBLOCK("OX01INCX",.F.,.F.,{"1",APARAMBOX,ARETPARAM,ASERV})

OFIXX001.PRW - OX001INCON() -> ASERV := EXECBLOCK("OX01INCX",.F.,.F.,{"2",APARAMBOX,ARETPARAM,ASERV})

OFIXX001.PRW - OX001INCON() -> EXECBLOCK("OX01DINC",.F.,.F.,{CSEQINC,_CGRUPO,_CCODIGO,_CDESCRICAO})

OFIXX001.PRW - OX001INCON() -> EXECBLOCK("OX01INCP",.F.,.F.,{APECA,NCNTFOR})

OFIXX001.PRW - OX001INCON() -> EXECBLOCK("OX01INCS",.F.,.F.,{ASERV,NCNTFOR})

OFIXX001.PRW - OX001INCON() -> SETKEY(VK_F8,{|| EXECBLOCK("OX001F8",.F.,.F.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

OFIXX001.PRW - OX001INCON() -> SETKEY(VK_F9,{|| EXECBLOCK("OX001F9",.F.,.F.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

OFIXX001.PRW - OX001ITEREL() -> AITEREL := EXECBLOCK("OX001IRL",.F.,.F.,{AITEREL})

OFIXX001.PRW - OX001KEYF4() -> LRETORNO := EXECBLOCK("OX001CPC",.F.,.F.,{CTMPCODITE})

OFIXX001.PRW - OX001KEYF4() -> LRETORNO := EXECBLOCK("OX001CPC",.F.,.F.,{SB1->B1_COD})

OFIXX001.PRW - OX001KEYF4() -> SETKEY(VK_F8,{|| EXECBLOCK("OX001F8",.F.,.F.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

OFIXX001.PRW - OX001KEYF4() -> SETKEY(VK_F9,{|| EXECBLOCK("OX001F9",.F.,.F.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

OFIXX001.PRW - OX001LDOFI() -> AIDESCONS := EXECBLOCK("OXA012LS", .F., .F., {CNUMORC})

OFIXX001.PRW - OX001LDOFI() -> AIDESCONT := EXECBLOCK("OXA012LP", .F., .F., {CNUMORC})

OFIXX001.PRW - OX001LDOFI() -> IF EXECBLOCK("OX001GLB")

OFIXX001.PRW - OX001LINPOK() -> LRET := EXECBLOCK("OX001LKP",.F.,.F.,{LRET})

OFIXX001.PRW - OX001LINSOK() -> LRET := EXECBLOCK("OX001LKS",.F.,.F.,{LRET})

OFIXX001.PRW - OX001PREPEC() -> EXECBLOCK("OX001FIS",.F.,.F.)

OFIXX001.PRW - OX001RESITE() -> AAUXITENS := EXECBLOCK("OX001ARS",.F.,.F.,{ACLONE(AITENSNEW)})

OFIXX001.PRW - OX001RESITE() -> AITENSNEW := EXECBLOCK("OX001AP", .F., .F., {AITENSNEW})

OFIXX001.PRW - OX001RESITE() -> CDOCUMENTO := EXECBLOCK("OX001RES",.F.,.F.)

OFIXX001.PRW - OX001RESITE() -> CDOCUMENTO := EXECBLOCK("OX00RESERV",.F.,.F.)

OFIXX001.PRW - OX001RESITE() -> NVRESERVA := EXECBLOCK("PERESITE",.F.,.F.,{"OFIXX001"})

OFIXX001.PRW - OX001SAIR() -> EXECBLOCK("OX001SAI",.F.,.F.)

OFIXX001.PRW - OX001SAIR() -> EXECBLOCK("OXA001SAIR",.F.,.F.)

OFIXX001.PRW - OX001SLDPC() -> NSALDO := EXECBLOCK("ESTOF110",.F.,.F.)

OFIXX001.PRW - OX001SLDPC() -> NSALDO := EXECBLOCK("OX001SPC",.F.,.F.)

OFIXX001.PRW - OX001SOBEREL() -> EXECBLOCK("OX001SRL",.F.,.F., {{CCODSALVA, CGRUSALVA, CDESSALVA, CTESSALVA}})

OFIXX001.PRW - OX001SOBEREL() -> IF !EXECBLOCK("OX001PIR",.F.,.F.,{ CGRUPOVAL , CCODITEVAL })

OFIXX001.PRW - OX001TELA() -> EXECBLOCK("OX001TEL",.F.,.F.,{NOPC})

OFIXX001.PRW - OX001TSER() -> IF !EXECBLOCK("OX001VTS",.F.,.F.,{CTIPSER,CTIPTEM,LMENSAGEM})

OFIXX001.PRW - OX001TUDOK() -> LRET := EXECBLOCK("OFIX01TUDOK",.F.,.F.,{LRET})

OFIXX001.PRW - OX001TUDOK() -> LRET := EXECBLOCK("OX001TOK",.F.,.F.,{LRET})

OFIXX001.PRW - OX001VLABERT() -> IF !EXECBLOCK("OX001VPP",.F.,.F.)

OFIXX001.PRW - OX001VLDENC() -> EXECBLOCK("ORDBUSCB",.F.,.F.,{"OR","ALTERA"})

OFIXX001.PRW - OX001VLDENC() -> EXECBLOCK("ORDBUSCB",.F.,.F.,{"OR","INCLUI"})

OFIXX001.PRW - OX001VLDENC() -> EXECBLOCK("OX001HCB",.F.,.F.)

OFIXX001.PRW - OX001XC008() -> SETKEY(VK_F8,{|| EXECBLOCK("OX001F8",.F.,.F.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

OFIXX001.PRW - OX001XC008() -> SETKEY(VK_F9,{|| EXECBLOCK("OX001F9",.F.,.F.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

OFIXX001.PRW - OX001XC009() -> SETKEY(VK_F8,{|| EXECBLOCK("OX001F8",.F.,.F.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

OFIXX001.PRW - OX001XC009() -> SETKEY(VK_F9,{|| EXECBLOCK("OX001F9",.F.,.F.,{ M->VS1_NUMORC , M->VS3_GRUITE , M->VS3_CODITE }) })

OFIXX002.PRW - OX0020061_STATUSCONFERENCIA() -> EXECBLOCK("OX002STA",.F.,.F.,{ CCONFERENCIA , CSTATUS, CTPORIGEM })

OFIXX002.PRW - OX0020161_LIBERAITENSCONFERIDOS() -> AAUXITENS := EXECBLOCK("OX002ARS",.F.,.F.,{AITENSNEW})

OFIXX002.PRW - OX0020161_LIBERAITENSCONFERIDOS() -> EXECBLOCK("OXX002FIN",.F.,.F.)

OFIXX002.PRW - OX0020161_LIBERAITENSCONFERIDOS() -> LRETORN := EXECBLOCK("OX002LIB",.F.,.F.)

OFIXX002.PRW - OX0020161_LIBERAITENSCONFERIDOS() -> LRETORN := EXECBLOCK("OXX002DTR",.F.,.F.)

OFIXX003.PRW - OFIXX003() -> EXECBLOCK("PEOX003BTN")

OFIXX003.PRW - OX003LIB() -> LRETORN := EXECBLOCK("OX003ALB",.F.,.F.)

OFIXX003.PRW - OX003TUDOK() -> IF !EXECBLOCK("OX003TO1",.F.,.F.)

OFIXX004.PRW - OFIXX004() -> SETKEY(VK_F8,{|| EXECBLOCK("OX004F8",.F.,.F.,{NSALDOF8}) })

OFIXX004.PRW - OX004COND() -> IF !EXECBLOCK("OX004ACP",.F.,.F.)

OFIXX004.PRW - OX004COND() -> IF !EXECBLOCK("OX004DCP",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> AITETEMPPV := EXECBLOCK("OX004AIP",.F.,.F.,{AITETEMPPV})

OFIXX004.PRW - OX004FAT2() -> AITETEMPPV := EXECBLOCK("OXX004AIPV",.F.,.F.,{AITETEMPPV})

OFIXX004.PRW - OX004FAT2() -> EXECBLOCK("NFPECSER",.F.,.F.,{CNOTA,CSERIE})

OFIXX004.PRW - OX004FAT2() -> EXECBLOCK("OX004ATR",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> EXECBLOCK("OX004ILJ",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> EXECBLOCK("OXX004ATRA",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> EXECBLOCK("OXX004ILOJ",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> IF !EXECBLOCK("OX004AFT",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> IF !EXECBLOCK("OX004AMP",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> IF !EXECBLOCK("OX004AOR",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> IF !EXECBLOCK("OX004APV",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> IF !EXECBLOCK("OX004DFT",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> IF !EXECBLOCK("OX004DNF",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> IF !EXECBLOCK("OXX004AFAT",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> IF !EXECBLOCK("OXX004AMPV",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> IF !EXECBLOCK("OXX004APV",.F.,.F.)

OFIXX004.PRW - OX004FAT2() -> LOKRESERV := EXECBLOCK("OX004RIT",.F.,.F.,{VS1->VS1_NUMORC})

OFIXX004.PRW - OX004FAT2() -> LOKRESERV := EXECBLOCK("OX04RESITE",.F.,.F.,{VS1->VS1_NUMORC})

OFIXX004.PRW - OX004FOK() -> IF !EXECBLOCK("OX004SE4",.F.,.F.)

OFIXX004.PRW - OX004GERFIN() -> ABAIXA := EXECBLOCK("OX004BXF", .F., .F., ABAIXA)

OFIXX004.PRW - OX004GERFIN() -> ATITULO := EXECBLOCK("OX004TIT",.F.,.F.,{ATITULO,OGETP004:ACOLS[NCNTFOR]})

OFIXX005.PRW - OFX0050011_REPLICARCADASTRO() -> CQUERYAUX := EXECBLOCK("OX005QRP",.F.,.F.)

OFIXX005.PRW - OX005GRV() -> EXECBLOCK("OX005DGR",.F.,.F.)

OFIXX100.PRW - OX1000061_CONDICAO_NEGOCIADA() -> LRET := EXECBLOCK("OX100CNG",.F.,.F.,{ SE4->E4_TIPO })

OFIXX100.PRW - OX100BXFIN() -> ABAIXA := EXECBLOCK("OX100BXF", .F., .F., ABAIXA)

OFIXX100.PRW - OX100CONDNEG() -> IF !EXECBLOCK("OX100VCP",.F.,.F.,{ SE4->E4_TIPO })

OFIXX100.PRW - OX100EXEC() -> AVO4CSER := EXECBLOCK("OX100SER", .F., .F., {"0", ""})

OFIXX100.PRW - OX100EXEC() -> CVOONALTERA := ALLTRIM(EXECBLOCK("OX100NVO",.F.,.F.,))

OFIXX100.PRW - OX100EXEC() -> EXECBLOCK("OX100CLB",.F.,.F., { @OLBTTP } )

OFIXX100.PRW - OX100EXEC() -> EXECBLOCK("OX100MF1",.F.,.F.)

OFIXX100.PRW - OX100F8() -> EXECBLOCK("OX100F8",.F.,.F.)

OFIXX100.PRW - OX100FECHA() -> IF !EXECBLOCK("OFM160A",.F.,.F.)

OFIXX100.PRW - OX100FECHA() -> IF !EXECBLOCK("OX100A",.F.,.F.)

OFIXX100.PRW - OX100FOVS9() -> IF !EXECBLOCK("OX100SE4",.F.,.F.)

OFIXX100.PRW - OX100GERNF() -> AFINA040 := EXECBLOCK("OX100TIT",.F.,.F.,{ AFINA040 , (CALIASVS9)->RECVS9 })

OFIXX100.PRW - OX100GERNF() -> ARETPE := EXECBLOCK("OX100E4A",.F.,.F.)

OFIXX100.PRW - OX100GERNF() -> EXECBLOCK("OX100ANP",.F.,.F.)

OFIXX100.PRW - OX100GERNF() -> EXECBLOCK("PEOM160ANP",.F.,.F.)

OFIXX100.PRW - OX100IMPDOC() -> EXECBLOCK("BLQCOB",.F.,.F.,{CNOTA,,,,SF2->F2_PREFIXO,"1",COBS1,COBS2,COBS3,CCODBCO})

OFIXX100.PRW - OX100IMPDOC() -> EXECBLOCK("NFPECSER",.F.,.F.,{CNOTA,CSERIE})

OFIXX100.PRW - OX100IMPPF() -> EXECBLOCK("PREFECT2",.F.,.F.,{AOSPREFEC})

OFIXX100.PRW - OX100LBDES() -> IF EXECBLOCK("OX100GLB")

OFIXX100.PRW - OX100OPCOES() -> AAUXBOTPARC := EXECBLOCK("OX100BTO",.F.,.F.)

OFIXX100.PRW - OX100PDFOK() -> EXECBLOCK("OX100FOP",.F.,.F.,{"D",CREADVAR})

OFIXX100.PRW - OX100PDFOK() -> IF !EXECBLOCK("OX100VLP",.F.,.F.,{"D",CREADVAR})

OFIXX100.PRW - OX100PDLOK() -> IF !EXECBLOCK("OX100LOK",.F.,.F.)

OFIXX100.PRW - OX100PECA() -> AAUXCCP :=  EXECBLOCK("OX100CCP",.F.,.F.,{ CTIPTEM, OGETDETVO3:ACOLS[NPOS, DVO3GRUITE ] , OGETDETVO3:ACOLS[NPOS, DVO3CODITE ] , AAUXCCP, CNUMOS })

OFIXX100.PRW - OX100PECA() -> AVO3DPEC := EXECBLOCK("OX100PEC", .F., .F., {"1", AAUXVALPEC[NCNTFOR, 01], AAUXVALPEC[NCNTFOR, 02]})

OFIXX100.PRW - OX100PFECH() -> EXECBLOCK("O160ANGR",.F.,.F.)

OFIXX100.PRW - OX100PFECH() -> EXECBLOCK("O160DPGR",.F.,.F.)

OFIXX100.PRW - OX100PFECH() -> EXECBLOCK("O160DPTR",.F.,.F.)

OFIXX100.PRW - OX100PFECH() -> EXECBLOCK("OX100AGR",.F.,.F.)

OFIXX100.PRW - OX100PFECH() -> EXECBLOCK("OX100AOR",.F.,.F.)

OFIXX100.PRW - OX100PFECH() -> EXECBLOCK("OX100DGR",.F.,.F.)

OFIXX100.PRW - OX100PFECH() -> EXECBLOCK("OX100DTR",.F.,.F.)

OFIXX100.PRW - OX100PRFOK() -> EXECBLOCK("OX100FOP",.F.,.F.,{"R",CREADVAR})

OFIXX100.PRW - OX100PRFOK() -> IF !EXECBLOCK("OX100VLP",.F.,.F.,{"R",CREADVAR})

OFIXX100.PRW - OX100SC6PEC() -> AITETEMPPV := EXECBLOCK("OX100AIP",.F.,.F.,{AITETEMPPV})

OFIXX100.PRW - OX100SC6SER() -> AITETEMPPV := EXECBLOCK("OX100AIP",.F.,.F.,{AITETEMPPV})

OFIXX100.PRW - OX100SDFOK() -> EXECBLOCK("OX100FOS",.F.,.F.,{"D",CREADVAR})

OFIXX100.PRW - OX100SDFOK() -> IF !EXECBLOCK("OX100VLS",.F.,.F.,{"D",CREADVAR})

OFIXX100.PRW - OX100SEL() -> IF !EXECBLOCK("OX100SEL",.F.,.F.,{AVETTTP})

OFIXX100.PRW - OX100SLPRC() -> AAUXCCS :=  EXECBLOCK("OX100CCS",.F.,.F.,{ OGETDETVO4:ACOLS[NCNTFOR,DVO4TIPTEM] , OGETDETVO4:ACOLS[NCNTFOR,DVO4TIPSER] , AAUXCCS })

OFIXX100.PRW - OX100SNEG() -> EXECBLOCK("OX100DGN",.F.,.F.)

OFIXX100.PRW - OX100SNEG() -> EXECBLOCK("OX100VOO",.F.,.F.,)

OFIXX100.PRW - OX100SRFOK() -> EXECBLOCK("OX100FOS",.F.,.F.,{"R",CREADVAR})

OFIXX100.PRW - OX100SRFOK() -> IF !EXECBLOCK("OX100VLS",.F.,.F.,{"R",CREADVAR})

OFIXX100.PRW - OX100SRVC() -> AVO4DSER := EXECBLOCK("OX100SER", .F., .F., {"1", AAUXVALSER[NCNTFOR, 37]})

OFIXX100.PRW - OX100VSY() -> EXECBLOCK("OX001VEC",.F.,.F.,{ VSY->VSY_PECINT , VSY->VSY_DATVEN , OGETDETVO3:ACOLS[ NPOSGET , DVO3TIPTEM ] , 0 , VSY->VSY_QTDITE , "VSY" })

OGA010.PRW - GRVMODELO() -> LRETORNO := EXECBLOCK("OG010GRV",.F.,.F., {OMODEL})

OGA180.PRW - OGA180CAN() -> IF EXECBLOCK("OG180CAN",.F.,.F.) = .F.

OGA180.PRW - OGA180R() -> IF EXECBLOCK("OG180REJ",.F.,.F.) = .F.

OGA245.PRW - OG245ANF()() -> EXECBLOCK("OG245TNFE",.F.,.F.,{SF1->F1_FILIAL, SF1->F1_DOC, SF1->F1_SERIE, SF1->F1_FORNECE, SF1->F1_LOJA, SF1->F1_EMISSAO})

OGA245.PRW - OGA245NFT() -> ARETPE := EXECBLOCK("OG245ANF",.F.,.F.,{ACAB,AITENS})

OGA245.PRW - VIEWDEF() -> OVIEW := EXECBLOCK("OGA245BUT",.F.,.F.,{OVIEW})

OGA250.PRW - GRVMODELO() -> LRETORNO := EXECBLOCK("OGA250GRV",.F.,.F.,{OMODEL,"POSMODELO","OGA250"})

OGA250.PRW - OGA250ANA() -> EXECBLOCK("OG250ANA",.F.,.F.)

OGA250.PRW - OGA250NF() -> CNUMOP :=  IIF(EXISTBLOCK("AGRX50OP"),EXECBLOCK('AGRX50OP',.F.,.F.,),'')

OGA250.PRW - OGA250NF() -> LRETORNO := EXECBLOCK("OG250NFVD",.F.,.F.,{NJJ->NJJ_FILIAL, NJJ->NJJ_CODROM})

OGA250.PRW - OGA250PESA() -> LEXEC := EXECBLOCK('OG250PES',.F.,.F.,APARAM)

OGA250C.PRW - OGA250C() -> EXECBLOCK("OG250ATLZ",.F.,.F.,{NJJ->NJJ_FILIAL, NJJ->NJJ_CODROM })

OGA250C.PRW - OGA250C() -> IF EXECBLOCK("OG250ATUC",.F.,.F.) = .F.

OGA251.PRW - OGA251GSIMB() -> LRETPE := EXECBLOCK( "OGA251R1",.F.,.F.,{NJR->NJR_CODENT, NJR->NJR_LOJENT, PCCODENT, PCLOJENT})

OGA261A.PRW - GERAPVSRV() -> ARETPEPV := EXECBLOCK("OG261APV",.F.,.F.,{ACABEC,AITENS})

OGA262.PRW - FGRAVANKG() -> EXECBLOCK('OGA262PE', .F.,.F.,{"NKG", NKG->(RECNO()) ,  } )

OGA262.PRW - FGRAVANKG() -> LRETPE := EXECBLOCK('OG262S2', .F.,.F.,{PCALIASNJR, PCALIASNKQ, PCALIASNJM,CENTDEV,CLOJDEV,PNFATMUL,PDINIPER,PDFIMPER,PNPER,PCSERORI,PCNFORI } )

OGA280.PRW - GRVMODELO() -> EXECBLOCK( "OG331APG", .F., .F. )

OGA280.PRW - POSMODELO() -> ARETBLOCK := EXECBLOCK ("OG280PREGV", .F., .F.)

OGA290.PRW - GRVMODELO() -> EXECBLOCK( "OG332APG", .F., .F. )

OGA290.PRW - OGA290C() -> ARET1 :=  EXECBLOCK('OG290F40',.F.,.F.,{AFINA040})

OGA290.PRW - OGA290C() -> ARET2 :=  EXECBLOCK('OG290F50',.F.,.F.,{AFINA050})

OGA290.PRW - OGA290C() -> IF (! EXECBLOCK("OG290COK",.F.,.F.) )

OGA290.PRW - POSMODELO() -> ARETBLOCK := EXECBLOCK ("OG290PREGV", .F., .F.)

OGA300.PRW - OGA300PED() -> ARETPE := EXECBLOCK("AG300PVAC",.F.,.F.,{OMODEL, APEDIDO[1], AITENS})

OGA360.PRW - GERAPDCOMP() -> APEDIDO := EXECBLOCK("OG360PC",.F.,.F.,{ACAB,ALINHA})

OGA360.PRW - GERAPDVEND() -> APEDIDO := EXECBLOCK("OG360PV",.F.,.F.,{ACAB,AREG})

OGA360.PRW - OG360GRVMD () -> EXECBLOCK("OG360FIM",.F.,.F.,{ ATITSGRDO })

OGA360LIQ.PRW - OGA360LIQC() -> EXECBLOCK("F565E5", .F., .F.)

OGA360LIQ.PRW - OGA360LIQC() -> EXECBLOCK("FIN565E2",.F.,.F.)

OGA430B.PRW - FNFCPLCPRA() -> ARETPE := EXECBLOCK("OGA430B2",.F.,.F.,{ACAB,AITENS})

OGA430B.PRW - OGA430BNFCPLV() -> ARETPE := EXECBLOCK("OGA430B1",.F.,.F.,{ACAB,AITENS})

OGA450.PRW - A450GERNDC() -> ARETPESE2 := EXECBLOCK("OG450NDC",.F.,.F.,{AFINA040, CFILCTR + CCODCTR})

OGA710.PRW - INTEGRAEEC() -> ARET := EXECBLOCK('OG710001',.F.,.F.,{ACAB, AITENS, NOPCAO})

OGA710.PRW - XEECAP100I() -> ARETPE := EXECBLOCK("OGA710P2",.F.,.F.,{ACAB,AITENS,AAUX})

OGX008.PRW - OGX008A() -> ARETPE := EXECBLOCK("OGX008IT",.F.,.F.,{ CALIASNJM , ALINHA, ((CALIASNJM)->NJM_SUBTIP $ '44|46|') })

OGX008.PRW - OGX008A() -> ARETPE := EXECBLOCK("OGX008PV",.F.,.F.,{ACAB,AITENS})

OGX008.PRW - OGX008PV()() -> EXECBLOCK("OGX008PG",.F.,.F.,{SC5->C5_FILIAL, SC5->C5_NUM})

OGX008.PRW - SELNFS() -> ARETPE := EXECBLOCK("OG008SLNF",.F.,.F.,{CQUERYSD1, CFILTRO, CORDER})

OGX009.PRW - SELNFSDEV() -> ARETPE := EXECBLOCK("OG009SLNF",.F.,.F.,{CQUERYSD2, CFILTRO, CORDER})

OGX700.PRW - OGX700MTPG() -> ARETPESE1 := EXECBLOCK("OGX70SE1",.F.,.F.,{AFINA040, OMODEL})

OGX700.PRW - OGX700MTPG() -> ARETPESE2 := EXECBLOCK("OGX70SE2",.F.,.F.,{AFINA050, OMODEL})

OMSA010.PRX - MAREJTABPRC() -> EXECBLOCK("OS010REJ",.F.,.F.,{NPRCANT, DA1->DA1_PRCVEN})

OMSA010.PRX - MATABPRVEN() -> LSA1ESTE := EXECBLOCK("OM010ESTE",.F.,.F.)

OMSA010.PRX - MATABPRVEN() -> NRESULT := EXECBLOCK("OM010PRC",.F.,.F.,{CTABPRECO,CPRODUTO,NQTDE,CCLIENTE,CLOJA,NMOEDA,DDATAVLD,NTIPO})

OMSA010.PRX - MAVLDTABPRC() -> LVALIDO := EXECBLOCK("OM010VIG",.F.,.F.,CCODTAB)

OMSA010.PRX - MENUDEF() -> EXECBLOCK("OM010MNU",.F.,.F.)

OMSA010.PRX - MODELDEF() -> LOCAL AUSRMEMO:= IF( EXISTBLOCK( "OM010MEM" ), EXECBLOCK( "OM010MEM", .F.,.F. ), {} )

OMSA010.PRX - MONTACOLS() -> ACAMPOS := EXECBLOCK("OM010CPO",.F.,.F.)

OMSA010.PRX - MONTACOLS() -> ACOLS[NTAMCOLS,NX] := EXECBLOCK("OM010COL",.F.,.F.,{CALIASDA1,ALLTRIM(CFIELD)})

OMSA010.PRX - MONTACOLS() -> CQUERY := EXECBLOCK("OM010QRY",.F.,.F.,{CQUERY})

OMSA010.PRX - OMS010COM() -> BAFTER:= {|OMODEL,CID,CALIAS| IIF(CALIAS=="DA1",EXECBLOCK("OM010DA1",.F.,.F.,{NTIPO,NOPC}),.T.) }

OMSA010.PRX - OMS010COM() -> BBEFORE:= {|OMODEL,CID,CALIAS| EXECBLOCK("OS010MNP",.F.,.F., MV_PAR02 ) }

OMSA010.PRX - OMS010COM() -> BBEFORE:= {|OMODEL,CID,CALIAS| IIF(CALIAS=="DA0",EXECBLOCK( "OS010EXT", .F., .F. ),.T.) }

OMSA010.PRX - OMS010COM() -> BBEFORE:= {|OMODEL,CID,CALIAS| IIF(CALIAS=="DA0",EXECBLOCK( "OS010MAN", .F., .F. ),.T.) }

OMSA010.PRX - OMS010COM() -> BTTS:= {|OMODEL,CID,CALIAS| EXECBLOCK("OS010END",.F.,.F.,{NTIPO,NOPC})}

OMSA010.PRX - OMS010COM() -> EXECBLOCK("OS010GRV",.F.,.F.,{NTIPO,NOPC})

OMSA010.PRX - OMS010FOR() -> ABUTTONUSR := EXECBLOCK("OS010BTN",.F.,.F.)

OMSA010.PRX - OMS010FOR() -> ACOLS := EXECBLOCK("OS010COL",.F.,.F.,{AHEADER,ACOLS})

OMSA010.PRX - OMS010FOR() -> ACOLS[NTAMCOLS] := EXECBLOCK("OS010LCO",.F.,.F.,{AHEADER,ACOLS[NTAMCOLS]})

OMSA010.PRX - OMS010FOR() -> CCONDICAO := EXECBLOCK("OM010FIL",.F.,.F.,{CCONDICAO})

OMSA010.PRX - OMS010FOR() -> CQUERY := EXECBLOCK("OM010FIL",.F.,.F.,{CQUERY})

OMSA010.PRX - OMS010GDLO() -> ACOLS := EXECBLOCK("OS010COL",.F.,.F.,{AHEADER,ACOLS})

OMSA010.PRX - OMS010GDLO() -> ACOLS[NTAMCOLS] := EXECBLOCK("OS010LCO",.F.,.F.,{AHEADER,ACOLS[NTAMCOLS]})

OMSA010.PRX - OMS010GDLO() -> CCONDICAO := EXECBLOCK("OM010FIL",.F.,.F.,{CCONDICAO})

OMSA010.PRX - OMS010GDLO() -> CQUERY := EXECBLOCK("OM010FIL",.F.,.F.,{CQUERY})

OMSA010.PRX - OMS010GDPR() -> EXECBLOCK("OS01ACOL",.F., .F.)

OMSA010.PRX - OMS010GRV() -> EXECBLOCK( "OS010EXT", .F., .F. )

OMSA010.PRX - OMS010GRV() -> EXECBLOCK( "OS010MAN", .F., .F. )

OMSA010.PRX - OMS010GRV() -> EXECBLOCK("OM010DA1",.F.,.F.,{NTIPO,NOPCAO})

OMSA010.PRX - OMS010GRV() -> EXECBLOCK("OS010END",.F.,.F.,{NTIPO,NOPCAO})

OMSA010.PRX - OMS010GRV() -> EXECBLOCK("OS010GRV",.F.,.F.,{NTIPO,NOPCAO})

OMSA010.PRX - OMS010GRV() -> EXECBLOCK("OS010MNP",.F.,.F., CPRODUTO )

OMSA010.PRX - OMS010GRV() -> LOCAL AUSRMEMO:= IF( EXISTBLOCK( "OM010MEM" ), EXECBLOCK( "OM010MEM", .F.,.F. ), {} )

OMSA010.PRX - OMS010LEG() -> ALEGENDA := EXECBLOCK("OM010LEG",.F.,.F.,ALEGENDA)

OMSA010.PRX - OMS010LINOK() -> LRET := EXECBLOCK("OM010LOK",.F.,.F.)

OMSA010.PRX - OMS010LOAD() -> EXECBLOCK("OS01ACOL",.F., .F.)

OMSA010.PRX - OMS010LOK() -> LRETORNO := EXECBLOCK("OM010LOK",.F.,.F.)

OMSA010.PRX - OMS010PROC() -> CQUERY := EXECBLOCK("OM010REJ",.F.,.F.,{CQUERY})

OMSA010.PRX - OMS010PROC() -> EXECBLOCK("OM010SC6",.F.,.F.)

OMSA010.PRX - OMS010PROC() -> LATUAL := EXECBLOCK("OM010ATUA",.F.,.F.)

OMSA010.PRX - OMS010PROC() -> LRET := EXECBLOCK("OM010VLD",.F.,.F.,{APARAM})

OMSA010.PRX - OMS010TAB() -> ABUTTONUSR := EXECBLOCK("OS010BTN",.F.,.F.)

OMSA010.PRX - OMS010TAB() -> EXECBLOCK("OS01ACOL",.F., .F.)

OMSA010.PRX - OMS010TCOK() -> LRET := EXECBLOCK("OM010TOK",.F.,.F.)

OMSA010.PRX - OMS010TOK() -> LRET := EXECBLOCK("OM010TOK",.F.,.F.)

OMSA010.PRX - OMS010TUDOK() -> LRET := EXECBLOCK("OM010TOK",.F.,.F.,{OMODEL})

OMSA010.PRX - OS010CANDEL() -> LRET := EXECBLOCK("OS010DEL",.F.,.F.,{CCODTAB})

OMSA010.PRX - VIEWDEF() -> ABUTTONUSR := EXECBLOCK("OS010BTN",.F.,.F.)

OMSA010.PRX - VIEWDEF() -> LOCAL AUSRMEMO:= IF( EXISTBLOCK( "OM010MEM" ), EXECBLOCK( "OM010MEM", .F.,.F. ), {} )

OMSA010A.PRX - MODELDEF() -> LOCAL AUSRMEMO  := IF( EXISTBLOCK( "OM010MEM" ), EXECBLOCK( "OM010MEM", .F.,.F. ), {} )

OMSA040.PRW - COMMITMDL() -> EXECBLOCK("OS040GRV",.F.,.F.,{NOPCX})

OMSA040.PRW - MENUDEF() -> AROTUSER := EXECBLOCK("OM040BRW",.F.,.F.)

OMSA040.PRW - POSVLDMDL() -> LRET := EXECBLOCK("OM040DEL",.F.,.F.)

OMSA040.PRW - POSVLDMDL() -> LRET := EXECBLOCK("OM040TOK",.F.,.F.)

OMSA040.PRW - VIEWDEF() -> ABTNPE := EXECBLOCK( "OM040BTN", .F., .F. )

OMSA050.PRW - COMMITMDL() -> EXECBLOCK("OS050GRV",.F.,.F.,{NOPCX})

OMSA060.PRW - COMMITMDL() -> EXECBLOCK("OS060GRV", .F., .F., {NOPC} )

OMSA060.PRW - POSVLDMDL() -> LRET := EXECBLOCK( "OM060DEL", .F., .F. )

OMSA060.PRW - POSVLDMDL() -> LRET := EXECBLOCK( "OM060VLD", .F., .F. )

OMSA060.PRW - VIEWDEF() -> IF VALTYPE( AUSRBUT := EXECBLOCK( "OM060BUT", .F., .F. ) ) == "A"

OMSA090.PRW - OMS090TOK() -> LRETPE := EXECBLOCK("OM090TOK",.F.,.F.)

OMSA100.PRW - MENUDEF() -> EXECBLOCK("OM100MNU",.F.,.F.)

OMSA100.PRW - OMS100TOK() -> LRET := EXECBLOCK("OM100TOK",.F.,.F.,{NOPC})

OMSA200.PRW - ADTOTUDOK() -> LRET := EXECBLOCK("OMA200ADT",.F.,.F.,{NOPCX,NTOTAL,NFRETE})

OMSA200.PRW - GERACARGA() -> EXECBLOCK("OS200DAK",.F.,.F.)

OMSA200.PRW - GERACARGA() -> EXECBLOCK("OS200GER",.F.,.F.)

OMSA200.PRW - MENUDEF() -> EXECBLOCK("OM200MNU",.F.,.F.)

OMSA200.PRW - OM200TRANS() -> ARETTRAN := EXECBLOCK('OM200DTR',.F.,.F.,{CDAKTRANSP,CNTRANS,AARRAYMAN,AARRAYCARGA})

OMSA200.PRW - OMS200CARGA() -> ACARGASPE := EXECBLOCK("OM200GEC",.F.,.F.,{AARRAYGERA,CVEICULO,CDAKTRANSP})

OMSA200.PRW - OMS200EPAD() -> ARETPE := EXECBLOCK("OMSA200E", NIL, NIL, {CPRODUTO, CPEDIDO})

OMSA200.PRW - OMS200PMOT() -> EXECBLOCK("OS200MOT",.F.,.F.)

OMSA200.PRW - OMSA200() -> CRETPE := EXECBLOCK("OM200BRW",.F.,.F.)

OMSA200.PRW - OMSA200() -> IF VALTYPE( ACORESPE := EXECBLOCK("OM200CND",.F.,.F.) ) == "A"

OMSA200.PRW - OMSABRECARGA() -> ARETCARGA := EXECBLOCK("OM200AD2",.F.,.F.,{OCARGAS, AARRAYCARGA, OCARGAS:AHEADERS, OCARGAS:BLINE, OENABLE, ODISABLE})

OMSA200.PRW - OMSBUSCAPED() -> ARETPE := EXECBLOCK("OM200GR2",.F.,.F.,{"TRBPED",AARRAYROTA,AARRAYZONA,AARRAYSETOR})

OMSA200.PRW - OMSBUSCAPED() -> EXECBLOCK("OM200GRV",.F.,.F.)

OMSA200.PRW - OMSBUSCAPED() -> LOCAL LOM200PED  := EXISTBLOCK("OM200PED") .AND. EXECBLOCK("OM200PED",.F.,.F.)

OMSA200.PRW - OMSBUSCAPED() -> XRETPE := EXECBLOCK("OM200CLI",.F.,.F.,{(CALIASQRY)->C5_FILIAL,(CALIASQRY)->C5_NUM,CCLIENTE,CLOJA})

OMSA200.PRW - OMSBUSCAPED() -> XRETPE := EXECBLOCK("OM200DA7",.F.,.F.,{(CALIASQRY)->C5_FILIAL,CCLIENTE,CLOJA,(CALIASQRY)->C5_NUM,AREGDA7})

OMSA200.PRW - OMSBUSCAPED() -> XRETPE := EXECBLOCK("OM200QRY",.F.,.F.,{ CQUERY , AARRAYTIPO,AARRAYMOD, 1 })

OMSA200.PRW - OMSBUSCAPED() -> XRETPE := EXECBLOCK("OM200QRY",.F.,.F.,{ CQUERYSA1, AARRAYTIPO,AARRAYMOD, 2 })

OMSA200.PRW - OMSBUSCAPED() -> XRETPE := EXECBLOCK("OM200TPC",.F.,.F.,{(CALIASQRY)->C9_PRODUTO,(CALIASQRY)->B1_TIPCAR,.T.,AARRAYMOD})

OMSA200.PRW - OMSCARREGA() -> CQUERYPE := EXECBLOCK("OM200CAR",.F.,.F.,{ GETLASTQUERY()[2] , 1 })

OMSA200.PRW - OMSCARREGA() -> EXECBLOCK("OM200FIM",.F.,.F.)

OMSA200.PRW - OMSCARREGA() -> LRETPE := EXECBLOCK("OM200OK",.F.,.F.,{ AARRAYMAN, AARRAYCARGA, NPOSCARGA})

OMSA200.PRW - OMSCARREGA() -> LRETPE := EXECBLOCK("OS200PC9",.F.,.F.,{CALIASSC9})

OMSA200.PRW - OMSESTSC9() -> EXECBLOCK("OM200EST",.F.,.F.)

OMSA200.PRW - OMSTRANSP() -> ABUTTONUSR := EXECBLOCK("OS200VEI",.F.,.F.)

OMSA200.PRW - OMSTRANSP() -> AVEICULO := EXECBLOCK("OS200MNT",.F.,.F.,{CVEICULO,CMOTORISTA,CAJUDA1,CAJUDA2,CAJUDA3,3,CVEICULO2,CVEICULO3})

OMSA200.PRW - OMSTRANSP() -> EXECBLOCK("OS200ASS",.F.,.F.)

OMSA200.PRW - OMSTROCA() -> ARETPE := EXECBLOCK("OM200MRC",.F.,.F.,{AARRAYMAN,NPOSMAN})

OMSA200.PRW - OMSTROCA() -> ARETPE := EXECBLOCK("OM200MRP",.F.,.F.,{AARRAYMAN,NPOSMAN})

OMSA200.PRW - OMSTROCASEQ() -> ARETPE := EXECBLOCK("OM200ADC",.F.,.F.,{OPEDMAN:AARRAY, OPEDMAN:AHEADERS, OPEDMAN:BLINE, OLIBERADO, OCALEND, OHORARIO, OVEICULO, OPEDMAN})

OMSA200.PRW - OMSVLDTRANSP() -> LRETPE := EXECBLOCK("OM200VEI",.F.,.F.,{CVEICULO})

OMSA200.PRW - OMSVLESTDAK() -> LRETPE := EXECBLOCK("OMSA200P",.F.,.F.,{DAK->DAK_COD,DAK->DAK_SEQCAR})

OMSA200.PRW - OS200ASSOC() -> ABUTTONUSR := EXECBLOCK("OS200VEI",.F.,.F.)

OMSA200.PRW - OS200ASSOC() -> AVEICULO := EXECBLOCK("OS200MNT",.F.,.F.,{CVEICULO,CMOTORISTA,CAJUDA1,CAJUDA2,CAJUDA3,4,CVEICULO2,CVEICULO3})

OMSA200.PRW - OS200ASSOC() -> EXECBLOCK("OS200ASS",.F.,.F.)

OMSA200.PRW - OS200BLQ() -> LRETPE := EXECBLOCK("OM200BLQ",.F.,.F.,{LBLOQUEIO})

OMSA200.PRW - OS200CORD() -> NRETPE := EXECBLOCK("OM200ORP",.F.,.F.,{AHEADORD[NPOSORD][2]})

OMSA200.PRW - OS200CRIATRB() -> ARETPE := EXECBLOCK("DL200TRB",.F.,.F.,ACAMPOS)

OMSA200.PRW - OS200CRIATRB() -> SA1->(EXECBLOCK("DL200TR2",.F.,.F.,{__OTMPTAB }))

OMSA200.PRW - OS200DIVSC9() -> EXECBLOCK("OM200DV9",.F.,.F.,{NRECSC9,NQTDNEW})

OMSA200.PRW - OS200DIVSC9() -> EXECBLOCK("OM200SC9",.F.,.F.)

OMSA200.PRW - OS200DIVSC9() -> NRETPE := EXECBLOCK("OMS200DIV",.F.,.F.)

OMSA200.PRW - OS200LEG() -> IF VALTYPE( ALEGENPE := EXECBLOCK("OM200LEG",.F.,.F.) ) == "A"

OMSA200.PRW - OS200MOTOR() -> LRETPE := EXECBLOCK("OM200MOT",.F.,.F.)

OMSA200.PRW - OS200PROCEST() -> ARETPE := EXECBLOCK("OS200ES3",.F.,.F.,{DAK->DAK_COD,DAK->DAK_SEQCAR})

OMSA200.PRW - OS200PROCEST() -> EXECBLOCK("OS200ES2",.F.,.F.,{DAK->DAK_COD,DAK->DAK_SEQCAR})

OMSA200.PRW - OS200PROCEST() -> EXECBLOCK("OS200EST",.F.,.F.,{DAK->DAK_COD,DAK->DAK_SEQCAR})

OMSA200.PRW - OS200PROCMAN() -> EXECBLOCK("OS200PM",.F.,.F.)

OMSA200.PRW - OS200TOK() -> LRETPE := EXECBLOCK("OS200TOK",.F.,.F.)

OMSA200.PRW - OS200VISCG() -> ABUTTONUSR := EXECBLOCK("OS200VSB",.F.,.F.)

OMSA200.PRW - OS200VISCG() -> ARETPE := EXECBLOCK("OM200ADC",.F.,.F.,{OPEDMAN:AARRAY, OPEDMAN:AHEADERS, OPEDMAN:BLINE, OLIBERADO, OCALEND, OHORARIO, OVEICULO, OPEDMAN})

OMSA200.PRW - OS200VLDCG() -> LRET := EXECBLOCK("OM200VCG",.F.,.F.,{CCODCARDES,CSEQCARDES,CCODCARORI,CSEQCARORI})

OMSA200.PRW - OS200VLDIV() -> LRETPE := EXECBLOCK("OM200DIV",.F.,.F.,{NQTDNEW})

OMSA200.PRW - OSA200MONT() -> ABUTTONS := EXECBLOCK("OS200DEA",.F.,.F.,{ABUTTONS})

OMSA200.PRW - OSA200MONT() -> ABUTTONUSR := EXECBLOCK("OS200BUT",.F.,.F.)

OMSA200.PRW - OSA200MONT() -> AHEADORD := EXECBLOCK("OM200ORD",.F.,.F.,AHEADORD)

OMSA200.PRW - OSA200MONT() -> ARETCARGA := EXECBLOCK("OM200AD2",.F.,.F.,{OCARGAS, OCARGAS:AARRAY, OCARGAS:AHEADERS, OCARGAS:BLINE, OENABLE, ODISABLE})

OMSA200.PRW - OSA200MONT() -> ARETPE := EXECBLOCK("DL200BRW",.F.,.F.,ACPOBRW)

OMSA200.PRW - OSA200MONT() -> EXECBLOCK("OM200ENC",.F.,.F.)

OMSA200.PRW - OSA200MONT() -> LOM200DLG := EXECBLOCK("OM200DLG",.F.,.F.)

OMSA200.PRW - OSA200REFR() -> ARETCARGA := EXECBLOCK("OM200AD2",.F.,.F.,{AOBJETOS[1], AOBJETOS[1]:AARRAY, AOBJETOS[1]:AHEADERS, AOBJETOS[1]:BLINE, OENABLE, ODISABLE})

OMSA200.PRW - OSAGRCARGA() -> EXECBLOCK("OSAGRCAR",.F.,.F.,{{{CCODCARORI,CSEQCARORI}},CCODCARDES,CSEQCARDES})

OMSA210.PRW - DS210GERA() -> EXECBLOCK("OM210GRV",.F.,.F.,{CCODUNI})

OMSA210.PRW - OMS210UNT() -> LRETPE := EXECBLOCK("OM210UNT",.F.,.F.,{(CALIAS)->C9_CLIENTE, (CALIAS)->C9_LOJA, (CALIAS)->C9_PRODUTO})

OMSA215.PRW - MENUDEF() -> EXECBLOCK("OM215MNU",.F.,.F.)

OMSA215.PRW - OMS215PROC() -> LGERACAR := EXECBLOCK("OM215PCA",.F.,.F.,{AGERA})

OMSA320.PRW - MENUDEF() -> EXECBLOCK("OM320MNU",.F.,.F.)

OMSA320.PRW - OMS320DEV() -> ALINHA := EXECBLOCK("OM320LIN",.F.,.F.,ALINHA)

OMSA320.PRW - OMS320DEV() -> EXECBLOCK("OM320DEV",.F.,.F.)

OMSA320.PRW - OMS320EST() -> EXECBLOCK("OM320EST",.F.,.F.)

OMSA320.PRW - OMS320LOK() -> LRETPE := EXECBLOCK("OM320LOK",.F.,.F.,{LRET})

OMSA320.PRW - OMS320MAN() -> ABUTTONUSR := EXECBLOCK("OS320BTN",.F.,.F.)

OMSA320.PRW - OMS320MAN() -> ACPOUSR := EXECBLOCK("OM320CPO",.F.,.F.)

OMSA320.PRW - OMS320MAN() -> EXECBLOCK("OM320GRV",.F.,.F.)

OMSA320.PRW - OMS320TOK() -> LRETPE := EXECBLOCK("OM320TOK",.F.,.F.)

OMSA341.PRW - CPOTIT341() -> CRETPE := EXECBLOCK("OM341CTI",.F.,.F.)

OMSA341.PRW - MENUDEF() -> EXECBLOCK("OMS341MNU",.F.,.F.)

OMSA341.PRW - OMS341CAN() -> EXECBLOCK("OM341CBX",.F.,.F.,{NBAIXA,(CALIASDAM)->DAMRECNO})

OMSA341.PRW - OMS341CAN() -> LRETPE := EXECBLOCK("OM341CAN",.F.,.F.,{CCLIENTE, CLOJA, CCARGA, CSEQCAR})

OMSA341.PRW - OMS341CHG() -> IF !EXECBLOCK("OS341MRK",.F.,.F.,{__CALITRB,__CALICPS,NQTDETIT,NVALTIT,NTOTREC,NVALJUR,NDESCONT,NABATIM,NPGPARC,NQTDCPS,;

OMSA341.PRW - OMS341CLI() -> AUSER := EXECBLOCK("OMS341BP",.F.,.F.)

OMSA341.PRW - OMS341CLI() -> CRETPE := EXECBLOCK("OM341HIS",.F.,.F.)

OMSA341.PRW - OMS341CLI() -> EXECBLOCK("OMS341CO", .F., .F.,)

OMSA341.PRW - OMS341CLI() -> LRETPE := EXECBLOCK("OS341BLQ",.F.,.F.)

OMSA341.PRW - OMS341FEC() -> LRET := EXECBLOCK("OMS341FE",.F.,.F.)

OMSA341.PRW - OMS341FLD() -> LRET := EXECBLOCK("OS341FLD",.F.,.F.,{NFLDDST, NFLDATU, OFOLDER, AGETDAD, __CALITRB, __CALICPS, __CALIPRC, CCARGA, CSEQCAR})

OMSA341.PRW - OMS341GRV() -> EXECBLOCK("OMS341GT",.F.,.F.)

OMSA341.PRW - OMS341LOK() -> LRET := EXECBLOCK("OMS341LO",.F.,.F.)

OMSA341.PRW - OMS341MAN() -> ACPOUSR := EXECBLOCK("OM341CPO",.F.,.F.)

OMSA341.PRW - OMS341MAN() -> AUSBUTTONS := EXECBLOCK( "OMS341BC", .F., .F. )

OMSA341.PRW - OMS341MAN() -> EXECBLOCK("OMS341CF",.F.,.F.,{CCARGA,CSEQCAR})

OMSA341.PRW - OMS341OK() -> EXECBLOCK("OMS341CHQ",.F.,.F., ACOLSSEF)

OMSA341.PRW - OMS341OK() -> EXECBLOCK("OMS341SEF",.F.,.F., ACOLSSEF)

OMSA341.PRW - OMS341OK() -> LRET := EXECBLOCK("OMS341OK", .F., .F.)

OMSA341.PRW - OMS341TIT() -> AUSER := EXECBLOCK("OMS341BP",.F.,.F.)

OMSA341.PRW - OMS341TIT() -> CRETPE := EXECBLOCK("OM341HIS",.F.,.F.)

OMSA341.PRW - OMS341TIT() -> EXECBLOCK("OMS341CO", .F., .F.,)

OMSA341.PRW - OMS341TIT() -> LRETPE := EXECBLOCK("OS341BLQ",.F.,.F.)

OMSA341.PRW - OMS341TOK() -> LRET := EXECBLOCK("OMS341TO",.F.,.F.)

OMSA341.PRW - OMS341TRB() -> CRETPE := EXECBLOCK("OM341QRY",.F.,.F.,{CQRY})

OMSA341.PRW - OMS341TRB2() -> CRETPE := EXECBLOCK("OM341QRY",.F.,.F.,{CQRY})

OMSA341.PRW - OMS341TREE() -> LRET := EXECBLOCK("OS341TRE",.F.,.F.,{__CALITRB, __CALICPS, __CALIPRC, CCARGA, CSEQCAR, ACOLSLIQ})

OMSA341.PRW - OMSA341() -> CCONDICAO += EXECBLOCK("OM341CND",.F.,.F.)

OMSA341.PRW - OMSA341() -> EXECBLOCK("OS341BRW",.F.,.F.)

OMSA341.PRW - OMSA341() -> EXECBLOCK("OS341TNF",.F.,.F.,{"F"})

OMSA341.PRW - OMSCMC7COM() -> EXECBLOCK("OMSCMC7",.F.,.F.,{CBUFFER,NLINHA})

OMSA341.PRW - OMSCMC7TEC() -> EXECBLOCK("OMSCMC7",.F.,.F.,{CBUFFER,NLINHA})

OMSA341.PRW - OMSGRVDAM() -> EXECBLOCK("OS341SE1",.F.,.F.,CBAIXA)

OMSA341.PRW - OS341BXAUT() -> AOS341CBX := EXECBLOCK("OS341CBX",.F.,.F.,{CBANCO,CAGENCIA,CCONTA,CMOTBX})

OMSA341.PRW - OS341BXAUT() -> EXECBLOCK("OS341FBA",.F.,.F.,{CCARGA,CSEQCAR})

OMSA460B.PRX - MONTAQUERY() -> CRETPE := EXECBLOCK("M460QRY",.F.,.F.,{ CQRYSC9 , 1 })

OMSA460B.PRX - MONTAQUERY() -> CRETPE := EXECBLOCK("M461QRYDAK",.F.,.F.,{ CQRYDAK })

OMSA460B.PRX - OS460BRANF() -> EXECBLOCK("OS460NOT",.F.,.F.,{ACARGAS})

OMSA460B.PRX - OS460LOCNF() -> EXECBLOCK("M460BLOC",.F.,.F.,{ACARGAS})

OMSA460B.PRX - OSNUMNOTA() -> ARETPE := EXECBLOCK("OS460SNF",.F.,.F.,{})

OMSA460B.PRX - VALIDMARK() -> LRET := EXECBLOCK("M461AVAL",.F.,.F.,{LRET})

OMSA521B.PRW - OM521BRANF() -> EXECBLOCK("SF2520E",.F.,.F.)

OMSA521B.PRW - OM521BRANF() -> LVALIDO := EXECBLOCK("MS520VLD",.F.,.F.)

OMSATPR5.PRW - OMSCOORFIL() -> ARETPE := EXECBLOCK("OMSTPR02",.F.,.F.,{DAK->DAK_FILIAL,  DAK->DAK_COD, DAK->DAK_SEQCAR })

OMSM020.PRW - A411GRAVA() -> ±±³DESCRI‡…O ³ ESSE EXECBLOCK VALIDA OS CRITERIOS INFORMADOS PELO USUARIO.  ³±±

OMSXCPL6.PRW - CPL6ENVPED() -> EXECBLOCK("OMSTOL02",.F.,.F.,{DDTINI,CHRINI,DDATABASE,TIME(),AENVPE,AFALHPE})

OMSXCPL6.PRW - QRYPEDIDO() -> CRETPE := EXECBLOCK("OSCP6QRY",.F.,.F.)

OMSXCPL6B.PRW - PERMESTCAR() -> ARETPE := EXECBLOCK("OMSCPL6A",.F.,.F.,{CFILPED,CPEDIDO,CCARGA,CVIAGEM,CSEQINT,LVIAGCOMP,CITEM,CPRODUTO,LESTPEDSEL})

OMSXCPL7.PRW - GERACARGA() -> ARETORNOPE := EXECBLOCK('OMSCPL7D',.F.,.F.,{CVIAGID,CTRANSP, CPLACA,CREGID })

OMSXCPL7.PRW - GERACARGA() -> COMSGFECL := EXECBLOCK('OMSCPL7F',.F.,.F.,{CVIAGID,CCLASFRETE,CREGID })

OMSXCPL7.PRW - GERACARGA() -> COMSGFETP := EXECBLOCK('OMSCPL7E',.F.,.F.,{CVIAGID,CTIPOPER,CREGID })

OMSXCPL7.PRW - GERACARGA() -> EXECBLOCK('OMSCPL7C',.F.,.F.,{CCODCARGA,CREGID,CVIAGID})

OMSXCPL7.PRW - GERACARGA() -> EXECBLOCK('OMSCPL7G',.F.,.F.,{CCODCARGA, CREGID, CVIAGID})

OMSXFUN.PRW - OMSHASCG() -> LRETPE:= EXECBLOCK("OMSPEDCG",.F.,.F.,{CPEDIDO,LRET})

OMSXFUN.PRW - OMSVISCG() -> ACPOADD := EXECBLOCK("OSVCGADD",.F.,.F.)

OMSXFUN.PRW - OMSVISCG() -> ARETPE := EXECBLOCK("OSVCGCLI",.F.,.F.,{DAI->DAI_FILIAL, DAI->DAI_PEDIDO, DAI->DAI_CLIENT, DAI->DAI_LOJA})

OMSXFUN.PRW - OSAVALDAI() -> EXECBLOCK("OMSXEST",.F.,.F.,{"DAI",CCARGA,CSEQCAR})

OMSXFUN.PRW - OSAVALDAI() -> EXECBLOCK("OMSXEST",.F.,.F.,{"DAK",CCARGA,CSEQCAR})

OMSXFUN.PRW - OSAVALDAI() -> EXECBLOCK("OMSXEST",.F.,.F.,{"DAK",SF2->F2_CARGA,SF2->F2_SEQCAR})

OMSXFUN.PRW - OSAVALDAI() -> LPENEXCDAK := EXECBLOCK("OMSNEDAK",.F.,.F.,{DAI->DAI_FILIAL, DAI->DAI_COD, DAI->DAI_SEQCAR, DAI->DAI_SEQUEN, SC9->C9_QTDLIB})

OMSXFUN.PRW - OSPCCPCOB() -> LGRAVOU := EXECBLOCK("OSCOBFOR",.F.,.F.,{CCARGA,CSEQCAR,NVALOR})

OMSXFUN.PRW - OSPESOPROD() -> NRETPE := EXECBLOCK("OM200PES",.F.,.F.,{CPRODUTO})

OMSXFUN.PRW - OSPRCAPARM() -> NCAPAC := EXECBLOCK("OMSCPARM",.F.,.F.,{CPRODUTO,CFILPV})

ORGA030.PRX - CANCELARPOSTO() -> EXECBLOCK( "ORG030MOV", .F., .F., {4, RCL->RCL_FILIAL, RCL->RCL_POSTO, RCL->RCL_DEPTO, RCL->RCL_STATUS})

ORGA030.PRX - CANCELARPOSTO() -> LRETBLOCK := EXECBLOCK( "ORG030MOV", .F., .F., {3, RCL->RCL_FILIAL, RCL->RCL_POSTO, RCL->RCL_DEPTO, RCL->RCL_STATUS})

ORGA030.PRX - CONGELARPOSTO() -> EXECBLOCK( "ORG030MOV", .F., .F., {2, RCL->RCL_FILIAL, RCL->RCL_POSTO, RCL->RCL_DEPTO, RCL->RCL_STATUS})

ORGA030.PRX - CONGELARPOSTO() -> LRETBLOCK := EXECBLOCK( "ORG030MOV", .F., .F., {1, RCL->RCL_FILIAL, RCL->RCL_POSTO, RCL->RCL_DEPTO, RCL->RCL_STATUS})

ORGA030.PRX - FSOLPOSITION() -> EXECBLOCK("ORG10CON",.F.,.F.)

ORGM010.PRW - FCADRBTA10() -> BBLKINC := { || IF( LINCPOSTO, EXECBLOCK("ORGMSOL1",.F.,.F., { RBT->RBT_FILIAL, RBT->RBT_CODMOV } ), .T. ) }

ORGM010.PRW - FCADRBTA10() -> EXECBLOCK("ORG10CON",.F.,.F.)

ORGM010.PRW - ORGM10CONFIRMA() -> EXECBLOCK("ORG10CON",.F.,.F.)

ORGM010.PRW - ORGM10INC() -> EXECBLOCK("ORG10CON",.F.,.F.)

P107JCTB.PRW - A107JOBAFJ() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"AFJ", CQUERY})

P107JCTB.PRW - A107JOBC2() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SC2", CQUERY})

P107JCTB.PRW - A107JOBC4() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SC4", CQUERY})

P107JCTB.PRW - A107JOBC6() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SC6", CQUERY})

P107JCTB.PRW - A107JOBC7() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SC7", CQUERY})

P107JCTB.PRW - A107JOBD4() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SD4", CQUERY})

P107JCTB.PRW - A107JOBINI() -> AFILALMOX := RETEXECBLOCK("A710FILALM",{SB1->B1_COD,CALMOXD,CALMOXA},"A",NIL,NIL,NIL,LEXISTBB1)

P107JCTB.PRW - A107JOBINI() -> AOPC := EXECBLOCK('M710NOPC',.F.,.F.,{SB1->B1_COD,NSALDO})

P107JCTB.PRW - A107JOBINI() -> CMT710B2 := RETEXECBLOCK("MT710B2",{SB1->B1_COD,CALMOXD,CALMOXA},"C", NIL,NIL,NIL,LEXISTBB2)

P107JCTB.PRW - A107PPESTS() -> AFILALMOX := RETEXECBLOCK("A710FILALM",{SB1->B1_COD,CALMOXD,CALMOXA},"A",NIL,NIL,NIL,LEXISTBB1)

P107JCTB.PRW - A107PPESTS() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SB1", CQUERY})

P107JCTB.PRW - A107PPESTS() -> CMT710B2 := RETEXECBLOCK("MT710B2",{SB1->B1_COD,CALMOXD,CALMOXA},"C", NIL,NIL,NIL,LEXISTBB2)

PCOA030.PRW - PCOA0301() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA0301", .F., .F. ) ) == "A"

PCOA030.PRW - PCOA0302() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "PCOA0302", .F., .F. ) ) == "A"

PCOA035.PRW - PCOA0351() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA0351", .F., .F. ) ) == "A"

PCOA040.PRW - PCOA0401() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA0401", .F., .F. ) ) == "A"

PCOA050.PRW - A050OK() -> EXECBLOCK("PCO50GRV",.F.,.F.,{NCALLOPCX})

PCOA050.PRW - A050OK() -> IF !EXECBLOCK("PCOA0504",.F.,.F.,{NCALLOPCX,AENCHAUTO,ACOLSAKD,AHEADAKD})

PCOA050.PRW - A050VIEW() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "PCO50BUT", .F., .F. ) ) == "A"

PCOA050.PRW - AKDLINOK() -> LRET := EXECBLOCK("PCOA0505",.F.,.F.)

PCOA050.PRW - PCO050BLQ() -> LVLD := EXECBLOCK("PCOA0507",.F.,.F.,{LVLD})

PCOA050.PRW - PCOA0501() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA0501", .F., .F. ) ) == "A"

PCOA050.PRW - PCOA0502() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "PCOA0502", .F., .F. ) ) == "A"

PCOA050.PRW - PCOA0503() -> CQRY506+= EXECBLOCK("PCOA0506",.F.,.F.)

PCOA050.PRW - PCOA0503() -> IF VALTYPE( AUSFIELD := EXECBLOCK( "PCOA0503", .F., .F. ) ) == "A"

PCOA060.PRW - PCOA0601() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA0601", .F., .F. ) ) == "A"

PCOA070.PRW - PCOA0701() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA0701", .F., .F. ) ) == "A"

PCOA100.PRW - PCOA1002() -> EXECBLOCK("PCOA1007",.F.,.F.,CARQUIVO)

PCOA100.PRW - PCOA1002() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "PCOA1002", .F., .F. ) ) == "A"

PCOA100.PRW - PCOA1004() -> IF !EXECBLOCK("PCOA1004", .F., .F., {NOPC})

PCOA100.PRW - PCOA1005() -> ARETFIL := EXECBLOCK("PCOA1005",.F.,.F.)

PCOA100.PRW - PCOA100AFA() -> EXECBLOCK( "PCOAFAGRV", .F., .F.,{CLFASE,CBKPFASE} )

PCOA100.PRW - PCOPE001() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA1001", .F., .F. ) ) == "A"

PCOA100.PRW - PCOXFUN1() -> AUSRBUTONS := EXECBLOCK("PCOA1003",.F.,.F.)

PCOA101.PRW - A101EXCLDEPEND() -> EXECBLOCK("PCOA1013",.F.,.F.)

PCOA101.PRW - PCOA1011  ?() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA1011", .F., .F. ) ) == "A"

PCOA110.PRW - PCOA1101() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA1101", .F., .F. ) ) == "A"

PCOA120.PRW - PCO120FRV() -> EXECBLOCK("PCOA1202",.F.,.F.)

PCOA120.PRW - PCO120REVFIN() -> EXECBLOCK("PCO120GRV",.F.,.F.)

PCOA120.PRW - PCOA1201() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA1201", .F., .F. ) ) == "A"

PCOA123.PRW - _DET_LAN2() -> EXECBLOCK("PCOA1202",.F.,.F.)

PCOA160.PRW - PCOA1601() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA1601", .F., .F. ) ) == "A"

PCOA170.PRW - PCOA1704() -> IF !EXECBLOCK("PCOA1704", .F., .F., {NOPC})

PCOA170.PRW - PCOPE001() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA1701", .F., .F. ) ) == "A"

PCOA170.PRW - PCOXFUN1() -> AUSRBUTONS := EXECBLOCK("PCOA1703",.F.,.F.)

PCOA171.PRW - PCOA1711() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA1711", .F., .F. ) ) == "A"

PCOA180.PRW - PCOA1804() -> IF !EXECBLOCK("PCOA1804", .F., .F., {NOPC})

PCOA180.PRW - PCOA180IT() -> IF VALTYPE( ADADOSAK2 := EXECBLOCK( "PCOA1805", .F., .F. ) ) != "A"

PCOA180.PRW - PCOPE001() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA1801", .F., .F. ) ) == "A"

PCOA180.PRW - PCOXFUN1() -> AUSRBUTONS := EXECBLOCK("PCOA1803",.F.,.F.)

PCOA190.PRW - PCOA1901() -> AUSROTINA := EXECBLOCK( "PCOA1901", .F., .F. )

PCOA210.PRW - PCOA2101() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA2101", .F., .F. ) ) == "A"

PCOA210.PRW - PCOA2103() -> IF VALTYPE( AUSFIELD := EXECBLOCK( "PCOA2103", .F., .F. ) ) == "A"

PCOA220.PRW - PCOA2201() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA2201", .F., .F. ) ) == "A"

PCOA240.PRW - PCOA2402() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "PCOA2402", .F., .F. ) ) == "A"

PCOA240.PRW - PCOA2403() -> IF VALTYPE( AUSFIELD := EXECBLOCK( "PCOA2403", .F., .F. ) ) == "A"

PCOA310.PRW - A310EXPROC() -> CWHERE := EXECBLOCK( "PCOA3104", .F., .F.,{CPROCESSO,CITEM,ACLONE(ARET),CALIASENTID,CWHERE})

PCOA310.PRW - A310PROCED() -> CPE3105 := EXECBLOCK( "PCOA3105", .F., .F.,{CPROCESSO,CITEM,ACLONE(ARET),CALIASENTID,__CPROCID})

PCOA310.PRW - PCOA3101() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA3101", .F., .F. ) ) == "A"

PCOA310.PRW - PCOA3102() -> LRET := EXECBLOCK( "PCOA3102", .F., .F.,{CPROCESSO,CITEM,ACLONE(ARET)})

PCOA310.PRW - PROCLANC() -> CQUERY := EXECBLOCK( "PCOA3103", .F., .F.,{CPROCESSO,CITEM,ACLONE(ARET),CALIASENTID,CQUERY})

PCOA462.PRW - A462OK() -> IF !EXECBLOCK("PCOA4624",.F.,.F.,{NCALLOPCX,AENCHAUTO,ACOLSAM6,AHEADAM6})

PCOA462.PRW - PCOA4621() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA4621", .F., .F. ) ) == "A"

PCOA462.PRW - PCOA4623() -> IF VALTYPE( AUSFIELD := EXECBLOCK( "PCOA4623", .F., .F. ) ) == "A"

PCOA463.PRW - A463OK() -> IF !EXECBLOCK("PCOA4634",.F.,.F.,{NCALLOPCX,AENCHAUTO,ACOLSAM7,AHEADAM7,AGETDAUTO})

PCOA463.PRW - PCOA4631() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA4631", .F., .F. ) ) == "A"

PCOA463.PRW - PCOA4633() -> IF VALTYPE( AUSFIELD := EXECBLOCK( "PCOA4633", .F., .F. ) ) == "A"

PCOA480.PRW - A480NEXT_PANE() -> LRET := EXECBLOCK("PCO480VLD",NGRADE)

PCOA481.PRW - PCOA4811() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA4811", .F., .F. ) ) == "A"

PCOA481.PRW - PCOA4813() -> IF VALTYPE( LOK := EXECBLOCK( "PCOA4813", .F., .F. ,LRET) ) == "L"

PCOA482.PRW - PCOA4821() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOA4821", .F., .F. ) ) == "A"

PCOA482.PRW - PCOA4823() -> IF VALTYPE( LOK := EXECBLOCK( "PCOA4823", .F., .F. ,LRET) ) == "L"

PCOA490.PRW - PCO490PLAN() -> IF VALTYPE(ACPOSUSR := EXECBLOCK("PCOA4902",ALV->ALV_CFGPLN,AM1->AM1_CODIGO))="A"

PCOA493.PRW - PCOA493() -> IF VALTYPE(ACPOSUSR := EXECBLOCK("PCOA4932"))="A"

PCOA493.PRW - PCOA493() -> IF VALTYPE(ACPOSUSR := EXECBLOCK("PCOA4933"))="A"

PCOA493.PRW - PCOA493() -> IF VALTYPE(ACPOSUSR := EXECBLOCK("PCOA4934"))="A"

PCOA493.PRW - PCOA493() -> IF VALTYPE(ACPOSUSR := EXECBLOCK("PCOA4935"))="A"

PCOA495.PRW - PCOA495() -> IF VALTYPE(ACPOSUSR := EXECBLOCK("PCOA4952"))="A"

PCOA496.PRW - PCOA496() -> IF VALTYPE(ACPOSUSR := EXECBLOCK("PCOA4962"))="A"

PCOA500.PRW - MENUDEF() -> AROTINA := ACLONE(EXECBLOCK("PCO500MEN",.F.,.F.,AROTINA))

PCOA500.PRW - PCOA5002() -> LVLD5002 := EXECBLOCK("PCOA5002",.F.,.F.)

PCOA500.PRW - PCOA5003() -> CFILTROROT := EXECBLOCK("PCOA5003",.F.,.F.,{CFILTROROT})

PCOA500.PRW - PCOA5004() -> LVLD5004:= EXECBLOCK("PCOA5004",.F.,.F.)

PCOA500.PRW - PCOA500BLQ() -> EXECBLOCK( "PC500BLQ", .F., .F.)

PCOA500.PRW - PCOA500BTN() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "PCOA500BTN", .F., .F. ) ) == "A"

PCOA500.PRW - PCOA500CAB³() -> IF VALTYPE( AUSFIELD := EXECBLOCK( "PCOA500CAB", .F., .F. ) ) == "A"

PCOA500.PRW - PCOA500LIB() -> EXECBLOCK( "PC500LIB", .F., .F.)

PCOA530.PRW - =POST> ' + CRLF() -> CAUXHTM := EXECBLOCK("PCO530HTM",.F.,.F.,{CHTM})

PCOA530.PRW - A530SELCTS() -> _ACTGS := EXECBLOCK("P530CTG",.F.,.F.,{_ACTGS})

PCOA530.PRW - PC530HTMWF() -> CAUX := EXECBLOCK("PCO530BRW",.F.,.F.,{CURL,CPASTA})

PCOA530.PRW - PCOA530() -> CTXTBLQ := EXECBLOCK( "PCOA5301", .F., .F.,{CTXTBLQ, _ADADOSBLQ})

PCOA530.PRW - PCOA530() -> EXECBLOCK( "PCOFECBL", .F., .F. )

PCOA530.PRW - PCOA530() -> LRET:= EXECBLOCK("PCOA5307",.F.,.F.,{LRET,_ADADOSBLQ,NDET})

PCOA530.PRW - PCOA530() -> LRETDES := EXECBLOCK("PCODESVC",.F.,.F.,{_ADADOSBLQ})

PCOA530.PRW - PCOA5302() -> CMSG5302:= EXECBLOCK("PCOA5302",.F.,.F.,{CMENSAGEM})

PCOA530.PRW - PCOA5303() -> EXECBLOCK("PCOA5303",.F.,.F.)

PCOA530.PRW - PCOA5304() -> EXECBLOCK ("P530EWF",.F.,.F.,{AWFDADOS,AEMAIL,COBS,CMENSAGEM})

PCOA530.PRW - PCOA5304() -> EXECBLOCK("PCOA5304",.F.,.F.)

PCOA530.PRW - PCOA5305() -> ARET:=EXECBLOCK("PCOA5305",.F.,.F.,{NVALCTG , NVALEMP , AKD->AKD_VALOR1 })

PCOA530.PRW - PCOA5306() -> LCONTINUA := EXECBLOCK("PCOA5306",.F.,.F.,{ CCHAVE } )

PCOA530.PRW - PCOWFCT() -> LRET := EXECBLOCK("WFPCOA530", .F., .F., { CCDUSRP, CCDUSRF, CCDCNTG, CIDALI })

PCOC340.PRW - PCOC3401() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOC3401", .F., .F. ) ) == "A"

PCOC341.PRW - PCOC3411() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOC3411", .F., .F. ) ) == "A"

PCOC350.PRW - PCOC3501() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOC3501", .F., .F. ) ) == "A"

PCOC350.PRW - PCOC350PFI() -> LRETPE :=EXECBLOCK("PCO350GRF",.F.,.F.,{APROCESSA,NX})

PCOC351.PRW - PCOC351 () -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PCOC3511", .F., .F. ) ) == "A"

PCOC360.PRW - PCOC360PFI() -> LRETPE :=EXECBLOCK("PCO360GRF",.F.,.F.,{APROCESSA,OVIEW:NAT})

PCOSINCCO.PRW - SINCCT1() -> EXECBLOCK("PCOSINC01",.F.,.F., {SUPERGETMV("MV_PCOSINC",.T.,"1"), "CT1", 2, .T.})

PCOSINCCO.PRW - SINCCTT() -> EXECBLOCK("PCOSINC01",.F.,.F., {SUPERGETMV("MV_PCOSINC",.T.,"1"), "CTT", 2, .T.})

PCOXDIV.PRW - AUXREVISA() -> NRECNEW := EXECBLOCK("PCOCOP",.F.,.F., {AALIASCPY[NY]})

PCOXDIV.PRW - PCOVLDFORM() -> IF "EXECBLOCK" $ CLINE .OR. LTXT

PCOXINC.PRW - PCOAK1AUT() -> AHEADERAK2 := EXECBLOCK("PCOAK2HED",.F.,.F.,AHEADERAK2)

PCOXINC.PRW - PCOAK1PLAN() -> EXECBLOCK("PCOINFTREE",.F.,.F., CARQUIVO)

PCOXINC.PRW - PCOAK1PLAN() -> LRET := EXECBLOCK("PCOAKKLST",.F.,.F.)

PCOXINC.PRW - PCOAK1PLAN() -> LVALID:=EXECBLOCK("PCOVALID",.F.,.F.,CARQUIVO)

PCOXINC.PRW - PCOAOOLIT() -> EXECBLOCK("PCOAK2GRV",.F.,.F.)

PCOXINC.PRW - PCOAOOLIT() -> EXECBLOCK("PCODELITM",.F.,.F.)

PCOXINC.PRW - PCOAOOLIT() -> LRETPE := EXECBLOCK("PCOGRVITPL",.F.,.F.)

PCOXINC.PRW - PCOATLZ_BOTAO() -> LVALIDUSR := EXECBLOCK( "PCOVLDFLT", .F., .F., { OGD[2]:AHEADER, OGD[2]:ACOLS } )

PCOXINC.PRW - PCODELGDOK() -> LLRET := EXECBLOCK ("PCODLIN",.F.,.F.)

PCOXINC.PRW - PCOIDENTF3() -> CCONPAD := EXECBLOCK( "PCOIDENTF3", .F., .F., { CCONPAD } )

PCOXINC.PRW - PCOWRITEIT() -> EXECBLOCK("PCOAK2GRV",.F.,.F.)

PCOXINC.PRW - PCOWRITEIT() -> EXECBLOCK("PCODELITM",.F.,.F.)

PCOXINC.PRW - PCOWRITEIT() -> LRETPE := EXECBLOCK("PCOGRVITPL",.F.,.F.)

PCOXINC.PRW - PCOXAK2LINOK() -> LRET := EXECBLOCK("PCOAK2LOK",.F.,.F.)

PCOXINC.PRW - PCOXGD1LINOK() -> LRET := EXECBLOCK("PCOAK2LOK",.F.,.F.)

PCOXINT.PRW - PCODETLAN() -> EXECBLOCK ("PCOGRVCOM",.T.,.T.)

PCOXINT.PRW - PCOPARSEFIL() -> CFLTTMP :=EXECBLOCK("PCOFILTORI",.F.,.F.,CFLTTMP)

PCOXINT.PRW - PCOVLDLAN() -> CCHVAUX := EXECBLOCK("PCOAKDCHV" ,.F.,.F., {CPROCESSO , CITEM , .T. ,CCHAVE} )

PCOXINT.PRW - PCOVLDLAN() -> EXECBLOCK( "PCOFECBL", .F., .F. )

PCOXINT.PRW - PCOVLDLAN() -> IF !EXECBLOCK("PCOVLBLQ",.F.,.F.,{NMOEDACFG,NVALREAL,NVALPRV,CCHAVER,CPROCESSO,CITEM,CPROGRAMA,CCHAVERD,ADATAINIFIM,AAUXFIL,LUSALOTE,APCOBKPBLQ})

PCOXPNJ.PRW - PCOEXPPRO() -> NPRECAGRE := EXECBLOCK("PCOX001A", .F., .F., SG1->G1_COMP)

PCOXPNJ.PRW - PCOGRVPLAN() -> EXECBLOCK("PCOALYINC", .F., .F.)

PCOXPNJ.PRW - PCOPRCPLAN() -> NPRECAGRE := EXECBLOCK("PNJXPREC", .F., .F., CAGREGADOR,CTIPOPLAN)

PCOXPNJ.PRW - PCOREPROC() -> IF VALTYPE(ACPOSUSR := EXECBLOCK("PCOXPNJ1"))="A"

PCOXPNJ.PRW - PCOREPROC() -> IF VALTYPE(ACPOSUSR := EXECBLOCK("PCOXPNJ2"))="A"

PCOXPNJ.PRW - PCOVISURATEIOALX() -> IF VALTYPE(ACPOSUSR := EXECBLOCK("PCOXPNJ3"))="A"

PCOXPNJ.PRW - PCOVISURATEIOALX() -> IF VALTYPE(ACPOSUSR := EXECBLOCK("PCOXPNJ4"))="A"

PCOXSLD.PRW - PCOWRITESLD() -> LCONTINUA := EXECBLOCK("PCOGRVSLD",.F.,.F.,{CALIASAKD,CCONFIG,AVALOR,CTIPOMOV,DDATA,CCHAVE,CNIVSINT})

PCPA107.PRW - A107ADTREE() -> LOCAL LSHALT:= IF(EXISTBLOCK("M710SHALT"),EXECBLOCK('M710SHALT',.F.,.F.),.F.)

PCPA107.PRW - A107ATUPERIODO() -> APERIODOS := EXECBLOCK("A710PERI", .F., .F., APERIODOS )

PCPA107.PRW - A107DSALDO() -> NSLDPE := EXECBLOCK("A710SINI",.F.,.F.,{CPRODUTO,NSALDO})

PCPA107.PRW - A107EXPLES() -> LMT710EXP := EXECBLOCK("MT710EXP",.F.,.F.,{ADADOS[NI,G1COMP],COPCIONAIS,CREVISAO,NQUANTITEM})

PCPA107.PRW - A107EXPLES() -> NQTDRET := EXECBLOCK( "M710QTDE", .F., .F., {CPRODUTO, NQUANTITEM, DDATANES} )

PCPA107.PRW - A107GERAOP() -> ARETPE := EXECBLOCK("M711SC2",.F.,.F.,ACLONE(AMATA650))

PCPA107.PRW - A107GERASC() -> ARETPE := EXECBLOCK("A712CNTSC1",.F.,.F.,{CPRODUTO,NQUANT,ACAMPOS})

PCPA107.PRW - A107GERASC() -> IF VALTYPE(NNEWQTDBX := EXECBLOCK("A710QTDBX",.F.,.F., {NQUANT,NPERIODO,APERIODOS[NPERIODO]})) == "N" .AND. NNEWQTDBX <= NQUANT

PCPA107.PRW - A107GRAVC1() -> ARETPE :=EXECBLOCK("A711CSC1",.F.,.F.,ACLONE(AITEM))

PCPA107.PRW - A107GRAVC1() -> LRET:= EXECBLOCK ("MT711VLSC",.F.,.F.,APARAM)

PCPA107.PRW - A107NEXTUTIL() -> DDATA := EXECBLOCK("A710DTUTIL",.F.,.F.,{DDATA, LWEEKEND, DDATAOLD, .F.})

PCPA107.PRW - A107OPSC() -> EXECBLOCK("MTA710OPSC",.F.,.F.,{CNUMOPDIG})

PCPA107.PRW - A107TRATAREV() -> LTRATAREV := EXECBLOCK("A710REV",.F.,.F.)

PCPA107.PRW - A107VERHF() -> CFC := EXECBLOCK("A650CCF",.F.,.F.,{CPRODUTO,CTIPO711,DDATPRF})

PCPA107.PRW - PCP107OK() -> LRET := EXECBLOCK("MTA710AP",.F.,.F.)

PCPA107.PRW - PCP107OPSC() -> CTIPO711 := EXECBLOCK("A650CCF",.F.,.F.,{CPRODUTO,CTIPO711,APERIODOS[NPER]})

PCPA107.PRW - PCPA107EHC() -> LMT710EXP := EXECBLOCK("MT710EXP",.F.,.F.,{ADADOS[NI,OQPROD],MOPC,ADADOS[NI,OQNRRV],ADADOS[NI,OQQUANT]})

PCPA107.PRW - PCPA107INP() -> AADDBUTTONS := EXECBLOCK("M710BUT",.F.,.F.)

PCPA107.PRW - PCPA107INP() -> EXECBLOCK("MTA710",.F.,.F.)

PCPA107.PRW - PCPA107INP() -> LOCAL LSHALT := IF(EXISTBLOCK("M710SHALT"),EXECBLOCK('M710SHALT',.F.,.F.),.F.)

PCPA107.PRW - PCPA107INP() -> M710NIV := EXECBLOCK("M710NIV",.F.,.F.)

PCPA107.PRW - PCPA107MAT() -> LMT710EXP := EXECBLOCK("MT710EXP",.F.,.F.,{ADADOS[NI,ORPROD],COPC,ADADOS[NI,ORNRRV],ADADOS[NI,OTQTNECE]})

PCPA107.PRW - PCPA107TB1() -> CA710FIL := EXECBLOCK("A710SQL", .F., .F., {"SB1", CQUERY})

PCPA124EVDEF.PRW - ABRETELAOP() -> IF !EXECBLOCK("M632GOPABR",.F.,.F.)

PCPA129.PRW - PROCNXTNIV() -> URET := EXECBLOCK("M200BMP", .F., .F., {CPROMPT, CFOLDERA, CFOLDERB})

PCPA129.PRW - PROMPTTREE() -> CM200TEXT := EXECBLOCK("M200TEXT", .F., .F., {CRET,;

PCPA129.PRW - TREERECURS() -> CREVPI := EXECBLOCK ("A200RVPI",.F.,.F.,{CPRODUTO, CREVISAO, SG1->G1_COD, CREVPI})

PCPA129.PRW - TREERECURS() -> URET := EXECBLOCK("M200BMP", .F., .F., {CPROMPT, CFOLDERA, CFOLDERB})

PCPA135.PRW - A135COPIA() -> EXECBLOCK('MT202CSI', .F., .F., {MV_PAR02, MV_PAR04})

PCPA135.PRW - EXECAPROVA() -> EXECBLOCK ("MTA202APROV",.F.,.F.,{CPRODUTO})

PCPA135.PRW - P135LEGEND() -> ALEGUSR := EXECBLOCK("MT202LEG",.F.,.F., { 2 })

PCPA135.PRW - P135VALPAI() -> LRET:=EXECBLOCK("MT202PAI",.F.,.F.,CPAI)

PCPA136IMP.PRW - GETQRYEMP() -> CRETPE := EXECBLOCK("P136FIL", .F., .F., "AFJ")

PCPA136IMP.PRW - GETQRYPDV() -> CRETPE := EXECBLOCK("P136FIL", .F., .F., "SC6")

PCPA136IMP.PRW - GETQRYPMP() -> CRETPE := EXECBLOCK("P136FIL", .F., .F., "SHC")

PCPA136IMP.PRW - GETQRYPRV() -> CRETPE := EXECBLOCK("P136FIL", .F., .F., "SC4")

PCPA144.PRW - ATUDOCS() -> AAUXDOC := EXECBLOCK("P144ITM",.F.,.F.,{"ATUDOCS",CTICKET,APRODUTOS[OBRWPROD:NAT][IND_APRODUTOS_CODIGO],ADOCS,NINDDOCS,0,__LUSAME})

PCPA144.PRW - ATURESULTA() -> AAUXRST := EXECBLOCK("P144ITM",.F.,.F.,{"ATURESULTA",CTICKET,APRODUTOS[NAT][IND_APRODUTOS_CODIGO],ARESULTS,NINDRES,NPOS,__LUSAME})

PCPA144.PRW - GRIDDOCS() -> ACABCUSTOM := EXECBLOCK("P144COL",.F.,.F.,{"GRIDDOCS",AHEADERDOC})

PCPA144.PRW - GRIDRESULT() -> ACABCUSTOM := EXECBLOCK("P144COL",.F.,.F.,{"GRIDRESULT",AHEADERRES})

PCPA144.PRW - INIADOCS() -> AAUXDOC := EXECBLOCK("P144ATGR",.F.,.F.,{"INIADOCS",ADOCS, 1})

PCPA144.PRW - INIARESUL() -> AAUXRST := EXECBLOCK("P144ATGR",.F.,.F.,{"INIARESUL",ARESULTS, 1})

PCPA144.PRW - MONTACAB() -> CLABEL  := EXECBLOCK("P144BTN", .F., .F., {CTICKET, 1})

PCPA144.PRW - MONTACAB() -> OBTNCUSTOM := TBUTTON():NEW(21, 435, CLABEL, OPNLCAB, {|| EXECBLOCK("P144BTN", .F., .F., {CTICKET, 2})}, 50, 15,,,.F.,.T.,.F.,,.F.,,,.F.)

PCPA144.PRW - VALIDAGERA() -> LRET := EXECBLOCK("P144VLGD",.F.,.F.,{CTICKET})

PCPA200.PRW - A200TREECM() -> CM200CPTX  := EXECBLOCK("M200CPTX",.F.,.F.,{CTEXTO,AESTRU[NZ][1],AESTRU[NZ][2],SB1->B1_DESC,AESTRU[NZ][3],AESTRU[NZ][4],AESTRU[NZ][8],AESTRU[NZ][9]})

PCPA200.PRW - ADDCMPTREE() -> LMT200EXP := EXECBLOCK("MT200EXP",.F.,.F., {CCODPROD, CCODPAI})

PCPA200.PRW - ADDITEMTR() -> LADDTREE := EXECBLOCK("P200EXTR",.F.,.F.,{P200RETINF(CCARGOCOMP, "PAI"), P200RETINF(CCARGOCOMP,"COMP"), CTRT, CGRUPOOPC, CITEMOPC})

PCPA200.PRW - ALTFLDMDL() -> EXECBLOCK("PCA200MD",.F.,.F.,{"MODEL",@OSTRMASTER,@OSTRCMP,@OSTRDET})

PCPA200.PRW - ALTFLDVIEW() -> EXECBLOCK("PCA200MD",.F.,.F.,{"VIEW",@OSTRMASTER,@OSTRCMP,@OSTRDET,CORDEM})

PCPA200.PRW - LOADCOMPON() -> BSORT := EXECBLOCK("PC200ORD",.F.,.F.,AFIELDS)

PCPA200.PRW - MENUDEF() -> EXECBLOCK("PCP200MNU",.F.,.F.)

PCPA200.PRW - P200AVAREV() -> LRETPE := EXECBLOCK("MT200GRE",.F.,.F.)

PCPA200.PRW - P200TREECH() -> LMT200EXP := EXECBLOCK("MT200EXP",.F.,.F., {CCODPROD, CCODPAI})

PCPA200.PRW - P200VALCPO() -> LRET := EXECBLOCK("PA200PRD", .F., .F., {CPAI, CCOMP})

PCPA200.PRW - P200VLDPAI() -> LRET := EXECBLOCK("PA200PRD", .F., .F., {OMDLPAI:GETVALUE("G1_COD"), ""})

PCPA200.PRW - PCPA200() -> EXECBLOCK("MA200FNI",.F.,.F.)

PCPA200.PRW - PCPA200() -> IF GETMV('MV_NIVALT') == 'S' .AND. IF(EXISTBLOCK("MA200CNI"),EXECBLOCK("MA200CNI",.F.,.F.),.T.)

PCPA200.PRW - PCPA200MNU() -> EXECBLOCK("P200GRAV", .F., .F., {NOPC, {}})

PCPA200.PRW - PCPA200MNU() -> LRETPE := EXECBLOCK("P200BLQOP", .F., .F., {NOPCAO})

PCPA200.PRW - PROMPTTREE() -> CM200TEXT := EXECBLOCK("M200TEXT", .F., .F., {CPROMPT,;

PCPA200.PRW - REVISAOPI() -> SOREVPE[CCODPAI + CCODCOMP] := EXECBLOCK("A200RVPI",.F.,.F., {CCODPAI, CREVPAI, CCODCOMP, CREVCOMP})

PCPA200.PRW - VIEWDEF() -> ABUTTONS := EXECBLOCK("P200ADBUT", .F., .F.)

PCPA200EVDEF.PRW - ATUALIZAREVISAO() -> EXECBLOCK("M200REVI",.F.,.F.)

PCPA200EVDEF.PRW - INTTS() -> EXECBLOCK("P200GRAV", .F., .F., OEVENT:ARECNOS)

PCPA200SUB.PRW - A200REVISG5() -> EXECBLOCK("M200REVI", .F., .F.)

PCPA712.PRW - LOADTELA1() -> ADADOSPE := EXECBLOCK("P712LDTL",.F.,.F., ADADOSPE)

PCPA712.PRW - VALIDAPAG1() -> LRET := EXECBLOCK("P712VLD",.F.,.F.,{"TELA_1",SOPARAM:TOJSON()})

PCPA712.PRW - VALIDAPAG2() -> LRET := EXECBLOCK("P712VLD",.F.,.F.,{"TELA_2",SOPARAM:TOJSON()})

PCPA712.PRW - VALIDAPAG3() -> LRET := EXECBLOCK("P712VLD",.F.,.F.,{"TELA_3",SOPARAM:TOJSON()})

PCPA712.PRW - VALIDAPAG4() -> LRET := EXECBLOCK("P712VLD",.F.,.F.,{"TELA_4",SOPARAM:TOJSON()})

PCPA712.PRW - VALIDAPAG5() -> LRET := EXECBLOCK("P712VLD",.F.,.F.,{"TELA_5",SOPARAM:TOJSON()})

PCPA750.PRX - ASTRUSHC() -> AACHORET := EXECBLOCK("MT750CMP",.F.,.F., {AACHO})

PCPA750.PRX - P750GRVSHC() -> EXECBLOCK("M750GRIM",.F.,.F.,{AIMPORT[NX]})

PCPA750.PRX - P750GRVSHC() -> LRETPE := EXECBLOCK("M750VIMP",.F.,.F.,{AIMPORT,NX})

PCPA750.PRX - P750LERARQ() -> URETPE := EXECBLOCK("M750LCSV",.F.,.F.,{FT_FREADLN()})

PCPA750EVDEF.PRW - MODELPOSVLD() -> LRETPE := EXECBLOCK('A750EXCL',.F.,.F.)

PCPXFUN.PRX - MAALCENG() -> EXECBLOCK("MTALCDOC",.F.,.F.,{ADOCTO,DDATAREF,NOPER})

PCPXFUN.PRX - MARKOPCPCP() -> AOPCRET := EXECBLOCK("MTOPCADD",.F.,.F.,{AOPCIONAIS})

PCPXFUN.PRX - MARKOPCPCP() -> AREGS  := EXECBLOCK('ADDOPC',.F.,.F.,{AREGS,CPRODANT,COPCIONAIS})

PCPXFUN.PRX - MARKOPCPCP() -> LRET := EXECBLOCK('SELEOPC',.F.,.F.,{LPREESTR,CREVISAO})

PCPXFUN.PRX - MARKOPCPCP() -> LRETOPI:=EXECBLOCK("MTGEROPI",.F.,.F.)

PCPXFUN.PRX - OPGERAQIP() -> LQPMTA650 := EXECBLOCK ("QPMTA650",.F.,.F.)

PCPXFUN.PRX - PCPINTGPPI() -> LRET := EXECBLOCK('PCPXFUNPPI',.F.,.F.,FUNNAME())

PCPXFUN.PRX - SELEOPCPCP() -> LSELEOPC:= EXECBLOCK("MTSELEOP",.F.,.F.,{CRET,CPROD,CPROG})

PLAUDCAROL.PRW - TRANSFSET() -> EXECBLOCK('PCARAUD2',.F.,.F.,{AGUIAUDIT[NX,1],CALICAB,CALIEVE,LTRANSFERE,CDEPARTRET,AGUIAUDIT[NX,2],NQTDAUDIT}) )

PLCREDANS.PRW - MAIS29VIDAS() -> ANEWDTREA := EXECBLOCK("PANSREJ2",.F.,.F.,{SELF:CMESBASREAJ,SELF:CANOBASREAJ})

PLDEBITANS.PRW - GETEXIBSQ() -> CSQL := EXECBLOCK("PLANSD02",.F.,.F.,{CSQL})

PLFUNCADGE.PRW - PLSALTCPOS() -> CMSG := EXECBLOCK("PLALTCPMS",.F.,.F.,{CMSG})

PLMEXP.PRW - PCLIENTE()() -> CFILTRO += EXECBLOCK("PLMCLI01",.F.,.F.)

PLMEXP.PRW - PCLIENTE()() -> CFILTROSE1 += EXECBLOCK("PLMFIN01",.F.,.F.)

PLMEXP.PRW - PCLIENTE()() -> CQUERYSA1 += EXECBLOCK("PLMCLI01",.F.,.F.)

PLMEXP.PRW - PCLIENTE()() -> CQUERYSA1 += EXECBLOCK("PLMCLI02",.F.,.F.)

PLMEXP.PRW - PCLIENTE()() -> CQUERYSE1 += EXECBLOCK("PLMFIN01",.F.,.F.)

PLMEXP.PRW - PCLIOMS()() -> LOKCLI := EXECBLOCK("PLMCLI01",.F.,.F.)

PLMEXP.PRW - PCLIOMS()() -> LOKFIN := EXECBLOCK("PLMFIN01",.F.,.F.)

PLMEXP.PRW - PCONDICAO()() -> LOKCND := EXECBLOCK("PLMCND01",.F.,.F.)

PLMEXP.PRW - PCONDICAO()() -> LOKTES := EXECBLOCK("PLMTES01",.F.,.F.)

PLMEXP.PRW - PCONFIG()() -> EXECBLOCK("PLMCFG01",.F.,.F.)

PLMEXP.PRW - PTABPRC(CSB1() -> CQUERY += EXECBLOCK("PLMPRD01",.F.,.F.)

PLMEXP.PRW - PTABPRC(CSB1() -> CQUERYDA0 += EXECBLOCK("PLMTAB01",.F.,.F.)

PLMEXP.PRW - XPPRODUTO(LGEN() -> CFILTRO += EXECBLOCK("PLMPRD01",.F.,.F.)

PLMEXP.PRW - XPPRODUTO(LGEN() -> CQUERY += EXECBLOCK("PLMPRD01",.F.,.F.)

PLMEXP.PRW - XPPRODUTO(LGEN() -> CQUERYSB1 += EXECBLOCK("PLMPRD01",.F.,.F.)

PLMEXP.PRW - XPPRODUTO(LGEN() -> LOKPRD := EXECBLOCK("PLMPRD02",.F.,.F.)

PLMVCPRZATEND.PRW - GETFILTROPRAZO() -> CFILTRO += EXECBLOCK("PL790FIL")

PLMXFUN.PRW - HHJOBTBL() -> EXECBLOCK("PLMFUN01",.F.,.F.)

PLMXFUN.PRW - PPRODUTO() -> CGDIR := EXECBLOCK("PLMGNDIR",.F.,.F.)

PLMXFUN.PRW - PPRODUTO() -> EXECBLOCK("PLMGEN01",.F.,.F.,{__CDIR,CGDIR, CDIR})

PLS720FUN.PRW - PL720GCP() -> ARETDOP := EXECBLOCK("PLS720DOP",.F.,.F.,{LDOP,NVLRTPF,NVLRTAD,NVLRBPF})

PLS720FUN.PRW - PL720GMF() -> EXECBLOCK("PLS720G1",.F.,.F.,{ CALIAS, CNUMGUIA} )

PLS720FUN.PRW - PL720GPG() -> EXECBLOCK("PLGERBD7",.F.,.F.,{ BD6->(RECNO()) } )

PLS720FUN.PRW - PLBD6GRV() -> NPERHE := EXECBLOCK("PLSHRESP",.F.,.F.,{ NPERHE,DDATANA,CHORCIR,CCODTAB,.F.,.F.,CCODPAD,CCODPRO,.F.} )

PLS720FUN.PRW - PLBD7GRV() -> EXECBLOCK("P720GRVG",.F.,.F.,{XFILIAL("BD7")+BCI->(BCI_CODOPE+BCI_CODLDP+BCI->BCI_CODPEG+&(CALIAS+"->"+CALIAS+"_NUMERO")+&(CALIAS+"->"+CALIAS+"_ORIMOV")),NOPC,'2'})

PLS720FUN.PRW - PLDIGPRO() -> EXECBLOCK("PLRFASBD6",.F.,.F.,{ BD6->(RECNO()) } )

PLS720FUN.PRW - PLS63DUP() -> LCRIT063 := EXECBLOCK("PLS72063",.F.,.F.,{CCODOPE, CCODLDP, CCODPEG, CNUMERO, CCODRDA})

PLSA001.PRW - P001FINAL() -> IF !EXECBLOCK("PLS001OK",.F.,.F., {NOPC})

PLSA001.PRW - P001VALRE() -> ARETPTO := EXECBLOCK("PLSBD701",.F.,.F.,{AAUX,AVALOR,ARDAS,ACRI,AVETTAB,CCODPAD,CCODPRO,CMESPAG,CANOPAG,ADADUSR,ADADRDA,DDATPRO})

PLSA001.PRW - P001VLD() -> LCONSIDERAREGRADEVALOR := EXECBLOCK("PLSVL002",.F.,.F.,{LRET})

PLSA001.PRW - P001VLD() -> LRET := EXECBLOCK("PLSVL001",.F.,.F.,{LRET})

PLSA001.PRW - PL001MOV() -> ACOLSB45 := EXECBLOCK("PLPROTITEM",.F.,.F.,{ACOLSB45,ACABB45})

PLSA001.PRW - PL001MOV() -> ACOLSB45 := EXECBLOCK("PLVLPROTIT",.F.,.F.,{ACOLSB45,ACABB45})

PLSA001.PRW - PL001MOV() -> EXECBLOCK("PL001AFT", .F. , .F., {BOW->BOW_PROTOC, B44->(B44_OPEMOV+B44_ANOAUT+B44_MESAUT+B44_NUMAUT)})

PLSA001.PRW - PL001MOV() -> IF !(EXECBLOCK("PLSVALEXC", .F., .F.))

PLSA001.PRW - PLSA001() -> CFILPE := EXECBLOCK("PLA001FL",.F.,.F.,{})

PLSA001.PRW - PLSA001AUT() -> ARETCRIREE := EXECBLOCK("PLSCRIRMB",.F.,.F.,{ARET[1],ARET[2]})

PLSA001.PRW - PLSA001BD7() -> ARET := EXECBLOCK("PLS001VLRS",.F.,.F.,{LRET,{NVLRPAGPRO,NVLRMANPRO,NVLRGLOPRO,NVLRBPRPRO},{NVLRPAGGUI,NVLRMANGUI,NVLRGLOGUI,NVLRBPRGUI},CCODPRO,CCODPAD,CMATRUSR,CCODRDA,CCODESP,ACRI})

PLSA001.PRW - PLSA001BD7() -> ARETVLAP:= EXECBLOCK("P001VLAP",.F.,.F.,{NVLRAPR,NVLRCON,NVLRMAN,NVLRGLO,OBRWPRO:ACOLS,OBRWPRO:AHEADER,B1N->B1N_SEQUEN})

PLSA001.PRW - PLSA001BOT() -> APTBOT := EXECBLOCK("PLSBUTOP",.F.,.F.,{"PLSA001"})

PLSA001.PRW - PLSA001BOT() -> APTOENTRB1 := EXECBLOCK("PLS001B1",.F.,.F.)

PLSA001.PRW - PLSA001BOT() -> APTOENTRB2 := EXECBLOCK("PLS001B2",.F.,.F.)

PLSA001.PRW - PLSGRVREM() -> EXECBLOCK("PLSGE001",.F.,.F.,{})

PLSA001A.PRW - BSPROTHEUS() -> LRET := EXECBLOCK("PLBSPROT",.F.,.F.,{CIDUSER,CSENDIGIT})

PLSA001A.PRW - P001AINDEF() -> AOBS := EXECBLOCK( "PL773OBS", .F., .F., {APROCED} )

PLSA001A.PRW - PBOWFINAL() -> EXECBLOCK("PLGRVBOW",.F.,.F.,{BOW->(RECNO())})

PLSA001A.PRW - PBOWVLD() -> LRET := EXECBLOCK("PLVLD01A",.F.,.F.,{LRET, OENCAUTAUX, NOPC})

PLSA001A.PRW - PLBOWAPR() -> ABTADD := EXECBLOCK("PLS001ASA2",.F.,.F.,{AROTAUTO})

PLSA001A.PRW - PLBOWAPR() -> ARETPTO  := EXECBLOCK("PLS002FOR",.F.,.F.,{CCODFORN,CLOJA,CNAT,CPREFIXO,CNUMTIT,CTIPO,DVENCTO,CCODINT,CCODEMP,CMATRIC})

PLSA001A.PRW - PLBOWAPR() -> ARETPTO := EXECBLOCK("PLS001CLI",.F.,.F.,{CCODCLI,CLOJA,CNAT,CPREFIXO,CNUMTIT,CTIPTIT,DVENCTO})

PLSA001A.PRW - PLBOWAPR() -> DDATA := EXECBLOCK("PL001ADTV",.F.,.F.,{})

PLSA001A.PRW - PLBOWAPR() -> DDTBLQCTB := EXECBLOCK("PLSDBLCTB", .F., .F.)

PLSA001A.PRW - PLBOWAPR() -> EXECBLOCK("P001AFIM",.F.,.F.,{B44->B44_PROTOC})

PLSA001A.PRW - PLBOWAPR() -> LAPROVA := EXECBLOCK("PLSAPRRE",.F.,.F.,{CPROTOC,DAPROV,DVENC})

PLSA001A.PRW - PLBOWMOV() -> AATALHOS := EXECBLOCK("PLSKEY01A",.F.,.F.,{})

PLSA001A.PRW - PLBOWMOV() -> ABUTTONS := ACLONE( EXECBLOCK( "ABTN001A",.F.,.F.,{ABUTTONS} ))

PLSA001A.PRW - PLBOWMOV() -> ARETBTN := EXECBLOCK("PL001ADBT",.F.,.F.,{ABUTTONS})

PLSA001A.PRW - PLBOWMOV() -> EXECBLOCK("AOPN001A",.F.,.F.,{@OBRWPRO})

PLSA001A.PRW - PLBOWMOV() -> M->BOW_PROTOC := EXECBLOCK("PL773PE2",.F.,.F.,{"BOW",M->BOW_PROTOC,.F.,.F.,NOPC,.F.,""})

PLSA001A.PRW - PLGRVBOX() -> EXECBLOCK("PLGRVBOX",.F.,.F.,{BOX->(RECNO())})

PLSA001A.PRW - PLSA001A() -> ABTADD := EXECBLOCK("PLBOWBTADD",.F.,.F.,{AROTINA})

PLSA001A.PRW - PLSA001A() -> ACDCORESAUX := EXECBLOCK("PLREEMDCOR ",.F.,.F.)

PLSA001A.PRW - PLSA001A() -> ACORESAUX := EXECBLOCK("PLREEMACOR",.F.,.F.,{ })

PLSA001A.PRW - PLSA001A() -> CFILTROBOW := EXECBLOCK("PL001FIL", .F., .F.)

PLSA001A.PRW - PLSGRVITE() -> EXECBLOCK("PLGRVBIN",.F.,.F.,{BIN->(RECNO())})

PLSA001A.PRW - PLSTATUSBOX() -> CSTATUSBOX := EXECBLOCK("PL001STA", .F., .F., {CSTATUSBOX})

PLSA003.PRW - PLS003AL1() -> EXECBLOCK("PLSA003A6",.F.,.F.,{})

PLSA003.PRW - PLS003ALT() -> EXECBLOCK("PLSA003A5",.F.,.F.,{})

PLSA003.PRW - PLSA003EXC() -> IF EXECBLOCK("PLSA003A2",.F.,.F.,{})

PLSA003.PRW - PLSA003INC() -> AROTINA := EXECBLOCK("PLSA003A3",.F.,.F.,{AROTINA})

PLSA003.PRW - PLSA003INC() -> CFILTRO := EXECBLOCK("PLSA003FI",.F.,.F.,{CFILTRO,ARETFIL,CALIAS})

PLSA003.PRW - PLSA003ODA() -> EXECBLOCK("PLSA003A8",.F.,.F.,{CALIAS,CCODINT,CCODEMP,CMATRIC,CTIPREG,CCONEMP,CVERCON,;

PLSA003.PRW - PLSA003ODA() -> M->BSQ_MATANT := EXECBLOCK("PLSMATANT",.F.,.F.,{CCODINT+CCODEMP+CMATRIC+CTIPREG})

PLSA003.PRW - PLSA003VAR() -> AROTINA := EXECBLOCK("PLSA003A7",.F.,.F.,{AROTINA})

PLSA003.PRW - PLSA003VIS() -> ACAMPOS := EXECBLOCK(CFUNCPO,.F.,.F.,APAR)

PLSA003.PRW - PLSA003VRR() -> AROTINA := EXECBLOCK("PLSA003A4",.F.,.F.,{AROTINA})

PLSA010.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("PL010ENT", .F., .F.)

PLSA090.PRW - A090FINAL() -> CMSGOBS := EXECBLOCK("PLS090F2",.F.,.F.,{COPEMOV,CANOAUT,CMESAUT,CNUMAUT,CCODOPEG,CTIPOGUIA,OBRWPRO,LAUDITORIA})

PLSA090.PRW - A090FINAL() -> CMSGTAXA := EXECBLOCK("PLS090F1",.F.,.F.)

PLSA090.PRW - MENUDEF() -> ACORES := EXECBLOCK( "PLS090CR",.F.,.F., ACORES )

PLSA090.PRW - MENUDEF() -> APTOENTRADA := EXECBLOCK("PLS090M1",.F.,.F.)

PLSA090.PRW - MENUDEF() -> APTOENTRADA := EXECBLOCK("PLS090M2",.F.,.F.)

PLSA090.PRW - MENUDEF() -> APTOENTRADA := EXECBLOCK("PLS090M3",.F.,.F.)

PLSA090.PRW - MENUDEF() -> AROTINA := EXECBLOCK("PLS090M4",.F.,.F., AROTINA)

PLSA090.PRW - PL090TITCP() -> ARET := EXECBLOCK("PL090SGUI",.F.,.F.,{BEA->BEA_OPEMOV,BEA->BEA_ANOAUT,BEA->BEA_MESAUT,BEA->BEA_NUMAUT,CSTATUS})

PLSA090.PRW - PLA090LIB() -> APERET09S := EXECBLOCK("PL09009S",.F.,.F.,{BEA->(BEA_OPEMOV+BEA_ANOAUT+BEA_MESAUT+BEA_NUMAUT),BE2->BE2_SEQUEN,.F.})

PLSA090.PRW - PLA090LIB() -> ARETVALID := EXECBLOCK("PL90VLDLIB",.F.,.F.,{CCHAVLIB,.F.})

PLSA090.PRW - PLA090LIB() -> ARETVALID := EXECBLOCK("PL90VLDLIB",.F.,.F.,{CNUMLIB,.F.})

PLSA090.PRW - PLA090LIB() -> NQTDPRO := EXECBLOCK("PLIBESAL",.F.,.F.,{ BE2->BE2_SALDO, CCHAVLIB } )

PLSA090.PRW - PLA090LIB() -> NQTDPRO := EXECBLOCK("PLIBESAL",.F.,.F.,{ BE2->BE2_SALDO, CNUMLIB } )

PLSA090.PRW - PLBUSCACLIEN() -> ARETPTO := EXECBLOCK("PLS090CLI",.F.,.F.,{ARET})

PLSA090.PRW - PLPESINTSXB() -> CRET := EXECBLOCK("PL90ALTA", .F., .F., CWHR)

PLSA090.PRW - PLSA090() -> CFILTRO := EXECBLOCK( "PL090FIL", .F., .F., {CFILTRO} )

PLSA090.PRW - PLSA090ACO() -> EXECBLOCK("PLS090AC",.F.,.F.)

PLSA090.PRW - PLSA090BOT() -> APTBOT := EXECBLOCK("PLSBUTOP",.F.,.F.,{"PLSA090"})

PLSA090.PRW - PLSA090BOT() -> APTOENTRB1 := EXECBLOCK("PLS090B1",.F.,.F.)

PLSA090.PRW - PLSA090BOT() -> APTOENTRB2 := EXECBLOCK("PLS090B2",.F.,.F.)

PLSA090.PRW - PLSA090BOT() -> CCODCRI := EXECBLOCK("PLS090B3",.F.,.F.)

PLSA090.PRW - PLSA090BXT() -> ACAIXAFIN := EXECBLOCK("PLS090CX",.F.,.F.,ACAIXAFIN)

PLSA090.PRW - PLSA090BXT() -> ARET := EXECBLOCK("PL090SGUI",.F.,.F.,{BEA->BEA_OPEMOV,BEA->BEA_ANOAUT,BEA->BEA_MESAUT,BEA->BEA_NUMAUT,CSTATUS})

PLSA090.PRW - PLSA090BXT() -> EXECBLOCK("PLS090BX",.F.,.F.)

PLSA090.PRW - PLSA090CAN() -> EXECBLOCK("PLS090CAN",.F.,.F.)

PLSA090.PRW - PLSA090CAN() -> IF ! EXECBLOCK("PL090CKCAN",.F.,.F.,{ BEA->BEA_CODPEG,BEA->BEA_NUMGUI,BEA->BEA_MATRIC,BEA->BEA_NUMAUT,LRPC } )

PLSA090.PRW - PLSA090CAN() -> IF !EXECBLOCK("PL090CKCAN",.F.,.F.,{BEA->BEA_CODPEG,BEA->BEA_NUMGUI,BEA->BEA_MATRIC,BEA->BEA_NUMAUT,LRPC})

PLSA090.PRW - PLSA090CPR() -> AQUACOB:=EXECBLOCK("PLS090QDCP",.F.,.F.,{APAGTORESP,LWHEN2})

PLSA090.PRW - PLSA090FLD() -> CCAMPOS += ","+EXECBLOCK("PL090FL1",.F.,.F.)

PLSA090.PRW - PLSA090GRV() -> ARETAUX := EXECBLOCK(BCL->BCL_FUNMFS,.F.,.F.,{CALIASPRI,"2",&(CALIASCAB+"->"+CALIASCAB+"_OPEMOV"),"2",&CCPOFASE,;

PLSA090.PRW - PLSA090GRV() -> ARETITENS := EXECBLOCK("PLS90ITENS",.F.,.F.,{ACOLSITE,AHEADERITE})

PLSA090.PRW - PLSA090GRV() -> ARETPTO  := EXECBLOCK("PLS002FOR",.F.,.F.,{CCODFORN,CLOJA,CNAT,CPREFIXO,CNUMTIT,CTIPO,DVENCTO,CCODINT,CCODEMP,CMATRIC})

PLSA090.PRW - PLSA090GRV() -> ARETPTO := EXECBLOCK("PLS001CLI",.F.,.F.,{CCODCLI,CLOJA,CNAT,CPREFIXO,CNUMTIT,CTIPTIT,DVENCTO})

PLSA090.PRW - PLSA090GRV() -> CCHAVSE1 := EXECBLOCK("PLSA090CRT",.F.,.F.,{CPREFIXO,CNUMTIT,CTIPTIT,DVENCTO,NOPC,CPARCTIT,CTIPOROTESP})

PLSA090.PRW - PLSA090GRV() -> CSENHAPLS := EXECBLOCK("PLS090L1",.F.,.F.,{"3",.F.,DDATINT})

PLSA090.PRW - PLSA090GRV() -> CSENHAPLS := EXECBLOCK("PLS090L1",.F.,.F.,{CTIPOROTESP,.F.,DDATA})

PLSA090.PRW - PLSA090GRV() -> CSITUAC  := EXECBLOCK("PL090SIT",.F.,.F.,{ADADBEA,ACOLSITE,AHEADERITE,CSITUAC,NITENSAUT,NITENSNEG,NAUDITNEG,LAUDITORIA} )

PLSA090.PRW - PLSA090GRV() -> EXECBLOCK("PL090CGP")

PLSA090.PRW - PLSA090GRV() -> EXECBLOCK("PLS090GR",.F.,.F.,{NOPC,LAUTORI,LREEMBOLSO,COPEMOV,CANOAUT,CMESAUT,CNUMAUT,ARETB7B,LWEB})

PLSA090.PRW - PLSA090GRV() -> EXECBLOCK("PLS090GR",.F.,.F.,{NOPC,LAUTORI,LREEMBOLSO})

PLSA090.PRW - PLSA090GRV() -> LGERB53 := EXECBLOCK("P90PTB53",.F.,.F., {LVEIOCOMU,LTISSON,ADADBEA,ACOLSITE,AHEADERITE})

PLSA090.PRW - PLSA090ICP() -> EXECBLOCK('PL736IMP',.F.,.F.,{ADADOSCOMPRA,CNOMCLI,CPAGTORESP,NVLRTOTAL,CCODRDA,COPERDA,CCODLOC,CLOCAL,CMATRIC,CNOMUSR,;

PLSA090.PRW - PLSA090INS() -> LGERB53 := EXECBLOCK("P90INB53",.F.,.F., {CALIASCAB,(CALIASCAB)->(RECNO()),ACOLSITE,AHEADERITE})

PLSA090.PRW - PLSA090MF() -> CCODLDP := EXECBLOCK( "PLS090LD",.F.,.F.,{LAUTORIZ,CCODLDP,CTIPGUI} )

PLSA090.PRW - PLSA090MF() -> EXECBLOCK("P090ABD6",.F.,.F.,{CALIASPRI,CCHVGUIPE})

PLSA090.PRW - PLSA090MF() -> EXECBLOCK(CFUNGRV,.F.,.F.,{APAR})

PLSA090.PRW - PLSA090MF() -> EXECBLOCK(CFUNINI,.F.,.F.,APAR)

PLSA090.PRW - PLSA090MOV() -> IF ! EXECBLOCK("PLS090EX",.F.,.F.)

PLSA090.PRW - PLSA090REC() -> EXECBLOCK("PLSA090REC",.F.,.F.)

PLSA090.PRW - PLSA090USR() -> ARETBLC := EXECBLOCK("PLSMSCRI",.F.,.F.,{ARETCON,ARETFIN})

PLSA090.PRW - PLSA090USR() -> ARETPTOENT := EXECBLOCK("PLS090MATR",.F.,.F.,{CMATRIC,LRPC})

PLSA090.PRW - PLSA090USR() -> LPERFOR := EXECBLOCK("PLSPRFRF",.F.,.F.,ARETFIN[2])

PLSA090.PRW - PLSA090VLD() -> EXECBLOCK("PLS090AR",.F.,.F.,{NOPC,.T.})

PLSA090.PRW - PLSA090VLD() -> IF !EXECBLOCK("PLS090OK",.F.,.F., {NOPC,OBRWPRO})

PLSA090.PRW - PLSACOMC() -> LGERB53 := EXECBLOCK("P90INB53",.F.,.F., {CALIASCAB,(CALIASCAB)->(RECNO()),ACOLSITE,AHEADERITE})

PLSA090.PRW - PLSACOMP() -> CSENHAAUT := EXECBLOCK("PLS090L1",.F.,.F.,{"3",.F.,BE4->BE4_DATPRO})

PLSA090.PRW - PLSACOMP() -> CSENHAAUT := EXECBLOCK("PLS090L1",.F.,.F.,{BEA->BEA_ORIGEM,.F.,BEA->BEA_DATPRO})

PLSA090.PRW - PLSAGRVEVO() -> EXECBLOCK("PLGRVBQV",.F.,.F.,{ACOLSBQV,AHEADERBQV,NOPC,CCHVBE4})

PLSA090.PRW - PLSAGRVINT() -> BE4->BE4_SENHA := EXECBLOCK("PL090SNHA",.F.,.F.,{CSTATUS,DDATABASE,ADADBEA})

PLSA090.PRW - PLSAGRVINT() -> BE4->BE4_SENHA := EXECBLOCK("PL090SNHA",.F.,.F.,{CSTATUS,DDATABASE})

PLSA090.PRW - PLSANAINT() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{PLSPTUGET("CD_SERVICO",ACODSPROC[NFOR]),"ENVENT","",PLSPTUGET("TP_TABELA",ACODSPROC[NFOR]),NIL,CTRANORI,APTUITEBKP})

PLSA090.PRW - PLSANAINT() -> ARETCOM := EXECBLOCK("PL090ACOM",.F.,.F., {ADADOS,ACODSPROC})

PLSA090.PRW - PLSANAINT() -> EXECBLOCK("PLS090PT",.F.,.F.,{ADADOS,ACODSPROC,LOK} )

PLSA090.PRW - PLSAUTREM() -> ARETCOM := EXECBLOCK("PL090ACOM",.F.,.F., {ADADOS,APROCAUX})

PLSA090.PRW - PLSAUTREM() -> LRET := EXECBLOCK("PL090VPTU",.F.,.F., {ADADUSR,ADADOS,APROCAUX})

PLSA090.PRW - PLSAUTREM() -> TPTAB := EXECBLOCK( "PLSVATBI", .F., .F., {TPTAB,LPTUON80,.F.} )

PLSA090.PRW - PLSMOVCRI() -> BBLOCKPTO:= {|| EXECBLOCK("PLS090MO",.F.,.F.,{OCRITICA,AHISCRI,CCODPAD,CCODPRO,CSEQUEN,CDESPRO,CTIPO,ADADOS,LFORCAR,CTITADIC,LAUDITO})}

PLSA090.PRW - PLSMOVCRI() -> LFORCAR := EXECBLOCK( "PL090FOR", .F., .F., {RETCODUSR(),AHISCRI,ADADOS} )

PLSA090.PRW - PLSPROCATO() -> ARETAUX := EXECBLOCK(BCL->BCL_FUNMFS,.F.,.F.,{CALIASPRI,"2",COPEMOV,"2",&CFASE,BCI->BCI_CODLDP,BCI->BCI_CODPEG,"",BCL->BCL_GUIREL,;

PLSA090.PRW - PLSPROCATO() -> CCHAVSE1 := EXECBLOCK("PLSA090CRT",.F.,.F.,{CPREFIXO,CNUMTIT,CTIPTIT,DVENCTO,K_INCLUIR,CPARCTIT,CTIPOROTESP})

PLSA090.PRW - PLSPROCATO() -> EXECBLOCK("PL090CGP")

PLSA090.PRW - PLSTITSTAT() -> ARET := EXECBLOCK("PL090SGUI",.F.,.F.,{BEA->BEA_OPEMOV,BEA->BEA_ANOAUT,BEA->BEA_MESAUT,BEA->BEA_NUMAUT,CSTATUS})

PLSA090.PRW - PLSXBGUIORI() -> CRET := EXECBLOCK("PL90ALTA", .F., .F., CWHR)

PLSA090.PRW - PLVISGUI() -> ACAMPOS := EXECBLOCK(CFUNCPO,.F.,.F.,APAR)

PLSA090.PRW -  -> STATIC BIMPG2:= {|| A090POSARQ(), IF(.T.,IF(EXISTBLOCK("PLSA090IMP"),EXECBLOCK("PLSA090IMP",.F.,.F.,{"2"}),IIF(GETNEWPAR("MV_PLSTISS","1")=="1", PLSR430N({"2",LIMPGUIDIR}), PLSR430({"2",LIMPGUIDIR}))),(HELP("",1,"PLSR430")))}

PLSA090OD.PRW - A090FINALO() -> CMSGTAXA := EXECBLOCK("PLS090F1",.F.,.F.)

PLSA090OD.PRW - PLA090OFLD() -> CCAMPOS += ","+EXECBLOCK("PL090OFL1",.F.,.F.)

PLSA090OD.PRW - PLA090VLDO() -> EXECBLOCK("PLS090AR", .F. , .F. ,{NOPC, .T. })

PLSA090OD.PRW - PLA090VRDO() -> CINVCLA := EXECBLOCK("PL090OFL2",.F.,.F.)

PLSA090OD.PRW - PLS090FIL() -> CFILTRO := EXECBLOCK("PL090OFI", .F. , .F. ,{CFILTRO, .T. })

PLSA090OD.PRW - PLS090O() -> CFILTRO := EXECBLOCK( "PL090FIL", .F., .F., {CFILTRO} )

PLSA090OD.PRW - PLS090OMOV() -> EXECBLOCK("PLSODDIA", .F. , .F. )

PLSA090OD.PRW -  -> STATIC BIMPG2:= {|| A090POSARQ(), IF(BEA->BEA_STATUS$"1,2,3,4",IF(EXISTBLOCK("PLSA090IMP"),EXECBLOCK("PLSA090IMP",.F.,.F.,{"1"}),PLSR431N({"0",LIMPGUIDIR})),(HELP("",1,"PLSR431")))}

PLSA092.PRW -  -> #DEFINE  BIMPGUIAE{|| IF(EXISTBLOCK("PL092EVO")  ,EXECBLOCK("PL092EVO"  ,.F.,.F.),IIF(PLSTISSVER() >= "3" ,PLSR420N(3),PLSR470({"2",.F.}))) }

PLSA092.PRW - A092FINAL() -> EXECBLOCK("PLA092FIM",.F.,.F.,{(CCODOPE+"."+CANOINT+"."+CMESINT+"."+CNUMINT),BE4->BE4_MATRIC,CSENHAPLS})

PLSA092.PRW - EXCVISITA() -> EXECBLOCK("PLBVSTM",.F.,.F.,{CGUIA, CCODIGO, K_EXCLUIR })

PLSA092.PRW - MENUDEF() -> APTOENTRADA := EXECBLOCK("PLS092M1",.F.,.F.)

PLSA092.PRW - MENUDEF() -> APTOENTRADA := EXECBLOCK("PLS092M2",.F.,.F.)

PLSA092.PRW - MENUDEF() -> APTOENTRADA := EXECBLOCK("PLS092M3",.F.,.F.)

PLSA092.PRW - PLSA092() -> APTOENTRADA := EXECBLOCK("PLS092M2",.F.,.F.)

PLSA092.PRW - PLSA092() -> APTOENTRADA := EXECBLOCK("PLS092M3",.F.,.F.)

PLSA092.PRW - PLSA092() -> CFILTRO := EXECBLOCK( "PL092FIL", .F., .F., {CFILTRO} )

PLSA092.PRW - PLSA092AVM() -> EXECBLOCK("PLBVSTM",.F.,.F.,{CCHAVE, M->BOZ_CODIGO, 3 })

PLSA092.PRW - PLSA092BOT() -> APTOETB1 := EXECBLOCK("PLS092B1",.F.,.F.)

PLSA092.PRW - PLSA092BOT() -> APTOETB2 := EXECBLOCK("PLS092B2",.F.,.F.)

PLSA092.PRW - PLSA092BOT() -> CCODCRI := EXECBLOCK("PLS092B3",.F.,.F.)

PLSA092.PRW - PLSA092IVM() -> EXECBLOCK("PLBVSTM",.F.,.F.,{CCHAVE, M->BOZ_CODIGO, K_INCLUIR })

PLSA092.PRW - PLSA092MOV() -> ABUTTONUSR := EXECBLOCK("PLS181BT",.F.,.F.)

PLSA092.PRW - PLSA092MOV() -> CCAMPOS += EXECBLOCK("PLS092CP",.F.,.F.,{CCAMPOS})

PLSA092.PRW - PLSA092MOV() -> EXECBLOCK("PLA092AUD",.F.,.F.,{(CCODOPE+"."+CANOINT+"."+CMESINT+"."+CNUMINT),BE4->BE4_MATRIC,CSENHA})

PLSA092.PRW - PLSA092MOV() -> IF NOPC == K_EXCLUIR .AND. EXISTBLOCK("PLS092EX") .AND. ! EXECBLOCK("PLS092EX",.F.,.F.)

PLSA092.PRW - PLSA092VLD() -> CSENHAPLS := EXECBLOCK("PLS090L1",.F.,.F.,{"3",.F.,DDATINT})

PLSA092.PRW - PLSA092VLD() -> CSENHAPLS := EXECBLOCK("PLS090L1",.F.,.F.,{"3",.F.,M->BE4_DATPRO})

PLSA092.PRW - PLSA092VLD() -> EXECBLOCK("PLS181GR",.F.,.F.,{"A",OBRWBQV})

PLSA092.PRW - PLSA092VLD() -> EXECBLOCK("PLS181GR",.F.,.F.,{"I",OBRWBQV})

PLSA092.PRW - PLSA092VLD() -> IF !EXECBLOCK("PLS092OK", .F., .F., {NOPC, OBRWPRO})

PLSA092.PRW - PLSA92DTIN() -> BE4->BE4_SENHA := EXECBLOCK("PLS090L1",.F.,.F.,{"3",.F.,DDATINT})

PLSA092.PRW - PLSA92DTIN() -> EXECBLOCK("PLS092INT",.F.,.F.,{DDATINT,CHORINT,BE4->BE4_SENHA,BE4->BE4_REGINT,LRPC})

PLSA092.PRW - PLSA92DTIN() -> EXECBLOCK("PLS092INT",.F.,.F.,{DDATINT,CHORINT,BE4->BE4_SENHA,BE4->BE4_REGINT})

PLSA092.PRW - PLSA92DTIN() -> LRETDAYIN := EXECBLOCK("P92DAYIN",.F.,.F.,{BE4->(BE4_CODOPE+BE4_ANOINT+BE4_MESINT+BE4_NUMINT),DDATINT,CHORINT})

PLSA092.PRW - PLSHGIH() -> AADD(ABT, {"RELATORIO",{ || EXECBLOCK("PLSCRIGB",.F.,.F.,{ADADOS,ACABEC,CTITULO,CTPREL,NTMREL}) },"IMPRIMIR"} )

PLSA092.PRW - PLSHGIH() -> AADD(ABT, {"RELATORIO",{ || EXECBLOCK(CRDMAKE,.F.,.F.,{ADADOS,ACABEC,CTITULO,CTPREL,NTMREL}) },"IMPRIMIR"} )

PLSA09A.PRW - A090FINAA() -> CMSGOBS := EXECBLOCK("PLS09AF2",.F.,.F.,{COPEMOV,CANOAUT,CMESAUT,CNUMAUT,CCODOPEG,OBRWPRO,LAUDITORIA})

PLSA09A.PRW - MENUDEF() -> ACORES := EXECBLOCK( "PLS09ACR",.F.,.F., ACORES )

PLSA09A.PRW - MENUDEF() -> APTOENTRADA := EXECBLOCK("PLS09AM1",.F.,.F.)

PLSA09A.PRW - MENUDEF() -> APTOENTRADA := EXECBLOCK("PLS09AM2",.F.,.F.)

PLSA09A.PRW - MENUDEF() -> APTOENTRADA := EXECBLOCK("PLS09AM3",.F.,.F.)

PLSA09A.PRW - PLA09AVLDO() -> IF !EXECBLOCK("PLS09AOK",.F.,.F., {NOPC,OBRWPRO})

PLSA09A.PRW - PLS09AFIL() -> CFILTRO := EXECBLOCK("PL09AOFI", .F. , .F. ,{CFILTRO, .T. })

PLSA09A.PRW - PLS09AMOV() -> EXECBLOCK("PL09AFIM",.F.,.F.,{CTP,NOPC,COPEMOV,CANOAUT,CMESAUT,CNUMAUT,LAUDITORIA})

PLSA09A.PRW - PLS09AMOV() -> EXECBLOCK("PLSAADIA", .F. , .F. )

PLSA09A.PRW - PLSA09ABOT() -> APTBOT := EXECBLOCK("PLSAUTOP",.F.,.F.,{"PLSA090"})

PLSA09A.PRW - PLSA09ABOT() -> APTOENTRB1 := EXECBLOCK("PLS09AB1",.F.,.F.)

PLSA09A.PRW - PLSA09ABOT() -> APTOENTRB2 := EXECBLOCK("PLS09AB2",.F.,.F.)

PLSA09A.PRW - PLSA09ABOT() -> CCODCRI := EXECBLOCK("PLS09AB3",.F.,.F.)

PLSA09A.PRW - PLSA09ACAN() -> EXECBLOCK("PLS09ACAN",.F.,.F.)

PLSA09A.PRW - PLSA09ACAN() -> IF !EXECBLOCK("PL09ACKCAN",.F.,.F.,{CGUIREF})

PLSA09A.PRW - PLSA09AFLD() -> CCAMPOS := EXECBLOCK("PL09AFL1",.F.,.F.,{CCAMPOS})

PLSA09A.PRW - PLSA09AGRV() -> CSENHAPLS := EXECBLOCK("PLS09AL1",.F.,.F.,{CTP,.F.,DDATA})

PLSA09A.PRW - PLSPESAUT() -> LRET := EXECBLOCK("PLSPESPR",.F.,.F.,{})

PLSA09A.PRW - RETCAMP() -> ACAMPOB := EXECBLOCK("PLS09ACP",.F.,.F.,{CCAMPOB,CTP,CCAMNOB})

PLSA09P.PRW - PL09PESAUT() -> LRET := EXECBLOCK("PLSPESPR",.F.,.F.,{})

PLSA09P.PRW - PLA09PVLDO() -> CSENHAPLS := EXECBLOCK("PLS090L1",.F.,.F.,{"11",.F.,DDATABASE})

PLSA09P.PRW - PLA09PVLDO() -> IF !EXECBLOCK("PLS09AOK",.F.,.F., {NOPC,OBRWPRO})

PLSA09P.PRW - PLS09PBOT() -> APTBOT := EXECBLOCK("PLSAUTOP",.F.,.F.,{"PLSA090"})

PLSA09P.PRW - PLS09PBOT() -> APTOENTRB1 := EXECBLOCK("PLS09AB1",.F.,.F.)

PLSA09P.PRW - PLS09PBOT() -> APTOENTRB2 := EXECBLOCK("PLS09AB2",.F.,.F.)

PLSA09P.PRW - PLS09PBOT() -> CCODCRI := EXECBLOCK("PLS09AB3",.F.,.F.)

PLSA09P.PRW - PLS09PMOV() -> EXECBLOCK("PLSAADIA", .F. , .F. )

PLSA09P.PRW - PLSA09PCAN() -> EXECBLOCK("PLS09ACAN",.F.,.F.)

PLSA09P.PRW - PLSA09PCAN() -> IF !EXECBLOCK("PL09ACKCAN",.F.,.F.,{CGUIREF})

PLSA09P.PRW - PLSA09PFLD() -> CCAMPOS := EXECBLOCK("PL09AFL1",.F.,.F.,{CCAMPOS})

PLSA09P.PRW - PLSA09PGRV() -> CSENHAPLS := EXECBLOCK("PLS09AL1",.F.,.F.,{CTP,.F.,DDATA})

PLSA101.PRW - PLSA101ATU() -> ARETPTO := EXECBLOCK("PLS101IO",.F.,.F.,{CMATRICFAM,NINDICE,CINDREA,CANOMES})

PLSA101.PRW - PLSA101ATU() -> EXECBLOCK("PL101FAM",.F.,.F.,{NINDICE, CINDREA, CMATRICFAM} )

PLSA101.PRW - PLSA101ATU() -> EXECBLOCK("PL101SUB",.F.,.F.,{NINDICE, CINDREA, CSUBCON} )

PLSA105.PRW - MENUDEF() -> APE := EXECBLOCK("PLS105MN")

PLSA105.PRW - PL105CLO() -> EXECBLOCK("PLS105CL",.F.,.F.)

PLSA118.PRW - RETSALPAR() -> NSALARIO := EXECBLOCK("PLS118SL",.F.,.F.,{BA3->(BA3_CODINT+BA3_CODEMP+BA3_MATRIC)})

PLSA169.PRW - MENUDEF() -> APTOENTRADA := EXECBLOCK("PLS169M1",.F.,.F.)

PLSA169.PRW - PL169HIST() -> EXECBLOCK("PL169HIS",.F.,.F.,ALOG)

PLSA169.PRW - PL169MOV() -> PROCESSA( {|| EXECBLOCK("PL169PROU",.F.,.F.,{CALIAS,NREG,NOPC}) }, STR0020 )

PLSA169.PRW - PL169OPC() -> EXECBLOCK("PL169OPC", .F., .F., {LFAMILIA, COLDMAT, CCODINT, CCODEMP, CMATRIC, COLDUSR})

PLSA169.PRW - PL169PROC() -> EXECBLOCK("PL169FIM",.F.,.F.,{COLDMAT,CNEWMAT})

PLSA169.PRW - PL169PROC() -> EXECBLOCK("PL169GRV",.F.,.F.,{COLDMAT,CNEWMAT,COLDUSR,CNEWUSR})

PLSA169.PRW - PLS169TIT() -> LOBRGTIT := EXECBLOCK("PL169VTI",.F.,.F.,{NCNT})

PLSA169.PRW - PLS169TPA() -> LVLDTP := EXECBLOCK("PL169VLTP",.F.,.F.,NIL)

PLSA169.PRW - PLSMATTIT() -> CMATAUX := EXECBLOCK("PLRETMAT",.F.,.F.,{ CALIAS })

PLSA170.PRW - PLSVLDTOK() -> IF ( ! LPTOENTR ) .OR. ( EXECBLOCK("PLS170CP",.F.,.F.) )

PLSA175.PRW - PLSA175RGR() -> IF ! EXECBLOCK("PLS175RF",.F.,.F.,{CALIASPRI,CNAMEUSR})

PLSA179.PRW - PLSA179MOV() -> EXECBLOCK("PL179GRV",.F.,.F.,{NOPC})

PLSA235.PRW - CARREGADADOS() -> LPULA :=EXECBLOCK("PLS235BQC",.F.,.F.)

PLSA235.PRW - PLSA235() -> EXECBLOCK("PL235FIM",.F.,.F.)

PLSA260.PRW - A260MOV() -> APL260AGR := EXECBLOCK("PLS260AGR",.F.,.F.)

PLSA260.PRW - A260MOV() -> CSQLFILIAL := EXECBLOCK( "PLSXFILI", .F., .F., {"SE1"} )

PLSA260.PRW - A260MOV() -> EXECBLOCK("PL260CAR", .F., .F., { ACABFAM, ADADFAM, OBRWUSR:AHEADER, AALTUSR, OBRWUSR:AVETTRAB, NOPCX })

PLSA260.PRW - A260MOV() -> EXECBLOCK("PL260INC",.F.,.F.,OBRWUSR)

PLSA260.PRW - A260MOV() -> EXECBLOCK("PLS260ALT",.F.,.F.,OBRWUSR)

PLSA260.PRW - A260MOV() -> EXECBLOCK("PLS260DGR",.F.,.F.,{@APL260AGR})

PLSA260.PRW - A260MOV() -> EXECBLOCK("PLS260FIM",.F.,.F.)

PLSA260.PRW - A260MOV() -> IF !EXECBLOCK("PLS260EXCL",.F.,.F.)

PLSA260.PRW - A260MOV() -> IF VALTYPE( ABUTUSR := EXECBLOCK( "A260USBT", .F., .F. ) ) <> "A"

PLSA260.PRW - A260MOV() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "PLS260BUT", .F., .F. ) ) == "A"

PLSA260.PRW - A260MOV() -> OBRWUSR:ACOLS[NIND,OBRWUSR:FIELDPOS("BA1_TIPINC",OBRWUSR:AHEADER)] :=  EXECBLOCK("PL260TPI",.F.,.F.,{'1',OBRWUSR:ACOLS[NIND,OBRWUSR:FIELDPOS("BA1_TIPINC",OBRWUSR:AHEADER)]})

PLSA260.PRW - A260MOV() -> OBRWUSR:ACOLS[NIND,OBRWUSR:FIELDPOS("BA1_TIPINC",OBRWUSR:AHEADER)] := EXECBLOCK("PL260TPI",.F.,.F.,{'1',OBRWUSR:ACOLS[NIND,OBRWUSR:FIELDPOS("BA1_TIPINC",OBRWUSR:AHEADER)]})

PLSA260.PRW - A260MOV() -> OBRWUSR:ACOLS[NIND,OBRWUSR:FIELDPOS("BA1_TIPINC",OBRWUSR:AHEADER)] := EXECBLOCK("PL260TPI",.F.,.F.,{'2',OBRWUSR:ACOLS[NIND,OBRWUSR:FIELDPOS("BA1_TIPINC",OBRWUSR:AHEADER)]})

PLSA260.PRW - A260MOV() -> OBRWUSR:ACOLS[NIND,OBRWUSR:FIELDPOS("BA1_TIPINC",OBRWUSR:AHEADER)] := EXECBLOCK("PL260TPI",.F.,.F.,{'3',OBRWUSR:ACOLS[NIND,OBRWUSR:FIELDPOS("BA1_TIPINC",OBRWUSR:AHEADER)]})

PLSA260.PRW - PL260BLOCO() -> AABLF := EXECBLOCK("PL260ABF",.F.,.F.,{@LOKBLOQFM,@APL260ABLF,@_CMESSAGE, @AABLF})

PLSA260.PRW - PL260BLOCO() -> AAUXLOG := EXECBLOCK("PLS260LF",.F.,.F.,{APL260ABLF,NP20,ALOG})

PLSA260.PRW - PL260BLOCO() -> EXECBLOCK("PLS260ABLF",.F.,.F.,{@LOKBLOQFM,@APL260ABLF,@_CMESSAGE})

PLSA260.PRW - PL260BLOCO() -> EXECBLOCK("PLS260BCA",.F.,.F.,{"B"})

PLSA260.PRW - PL260BLOCO() -> EXECBLOCK("PLS260BCA",.F.,.F.,{"D"})

PLSA260.PRW - PL260BLOCO() -> EXECBLOCK('PL260BFA',.F.,.F.,{CMATRIC})

PLSA260.PRW - PL260BLOCO() -> IF !(EXECBLOCK("PLS260MN",.F.,.F.,{NOPC}))

PLSA260.PRW - PL260BLOCO() -> IF VALTYPE( ABUTTAUX := EXECBLOCK("PL260BUB", .F., .F.,{"F"} ) ) == "A"

PLSA260.PRW - PL260BLOUS() -> AABLU := EXECBLOCK("PL260ABU",.F.,.F.,{@LOKBLOQUS,@APL260ABLU,@_CMESSAGE})

PLSA260.PRW - PL260BLOUS() -> AABLU := EXECBLOCK("PLS260ABLU",.F.,.F.,{@LOKBLOQUS,@APL260ABLU,@_CMESSAGE})

PLSA260.PRW - PL260BLOUS() -> AAUXLOG:= EXECBLOCK("PLS260DB",.F.,.F.,{APL260ABLU,NP20,ALOG})

PLSA260.PRW - PL260BLOUS() -> EXECBLOCK('PL260BUS',.F.,.F.)

PLSA260.PRW - PL260BLOUS() -> IF !(EXECBLOCK("PLS260MN",.F.,.F.,{NOPC}))

PLSA260.PRW - PL260BLOUS() -> IF VALTYPE( ABUTTAUX := EXECBLOCK("PL260BUB", .F., .F.,{"U"} ) ) == "A"

PLSA260.PRW - PL260BLOUS() -> LGRAV := EXECBLOCK("PLS260BF",.F.,.F.,{NOPC,CMATRIC+CTIPREG,DDATA,NACAO,ALOG})

PLSA260.PRW - PL260CARDAD() -> ARETAUX := EXECBLOCK("PLSA260DAD",.F.,.F.,ARETDAD)

PLSA260.PRW - PL260CARDAD() -> CMATAUX := EXECBLOCK("PLRETMAT",.F.,.F.,{ CALIAS } )

PLSA260.PRW - PL260CLAS() -> ALIMITE := EXECBLOCK("P260CADM",.F.,.F.,{LTIPO})

PLSA260.PRW - PL260CORES() -> AAUXCOR:= EXECBLOCK('PL260COR',.F.,.F.)

PLSA260.PRW - PL260OPC() -> EXECBLOCK("PLSAIOPF",.F.,.F.,{OBRWOPC,OBRWOUSU,OBRWFROPC,OBRWUFROPC})

PLSA260.PRW - PL260VLD() -> DRET := EXECBLOCK("PL260VLD",.F.,.F.,{LJURIDICO,DRET,DDATABASE})

PLSA260.PRW - PLS260VLDO() -> EXECBLOCK('PLVLOPUS',.F.,.F.)

PLSA260.PRW - PLS260VLDO() -> LRET := EXECBLOCK('PLVLOPUR',.F.,.F.)

PLSA260.PRW - PLSA260FOR() -> ENCHOICEBAR(ODLGFOR,{|| IIF(EXISTBLOCK("PLS260OCOB"),EXECBLOCK("PLS260OCOB",.F.,.F.,{OBRWBBU,OBRWBFY}),.T.),NOPCA := 1,ODLGFOR:END()},{|| NOPCA := 2,ODLGFOR:END()}) )

PLSA260.PRW - PLSA260MOV() -> IF !(EXECBLOCK("PLS260MN",.F.,.F.,{NOPC}))

PLSA260.PRW - PLSA260OK() -> LRET := EXECBLOCK("PLS260VU",.F.,.F.,{NOPC})

PLSA260.PRW - PLSA260REM() -> EXECBLOCK("PLS260INC",.F.,.F.)

PLSA260.PRW - PLSA260VDC() -> LRET := EXECBLOCK("P260VCPT",.F.,.F.,{OBRWBCP,OBRWUSR,ACOLSBCP})

PLSA260.PRW - PLSA260VID() -> IF VALTYPE( ABUTVID := EXECBLOCK("A260VDBT", .F., .F. ) ) <> "A"

PLSA260.PRW - PLSA260VLD() -> LRET := EXECBLOCK("PLS260US",.F.,.F.)

PLSA260.PRW - PLSTIPREG() -> LOCAL BBLOCK:= {||CRETBLOCK := IIF(EXISTBLOCK("PLSTPRG"),EXECBLOCK("PLSTPRG",.F.,.F.,{CSEQ}),CSEQ)}

PLSA261.PRW - PLSA261EFA() -> ARET := EXECBLOCK(CEXPRDM,.F.,.F.,{CCODIGO,BDE->BDE_MOTIVO,CCODINT,NIL,4,.T.})

PLSA261.PRW - PLSA261EUS() -> ARET := EXECBLOCK(CEXPRDM,.F.,.F.,{CCODIGO,BDE->BDE_MOTIVO,CCODINT,NIL,3,.T.})

PLSA261.PRW - PLSA261REC() -> EXECBLOCK("PLS737IM",.F.,.F.)

PLSA262.PRW - PLSA262EXC() -> LOCAL BOK := { || (IIF(EXISTBLOCK("PLSA262EXC"),IF(EXECBLOCK("PLSA262EXC",.F.,.F.,{COPERAD,CCODIGO}),(NOPCA := 1, ODLG:END()),.F.),(NOPCA := 1, ODLG:END())))}

PLSA262.PRW - PLSA262EXP() -> EXECBLOCK("PLS262GR",.F.,.F.)

PLSA262.PRW - PLSA262EXT() -> ARET := EXECBLOCK(CEXPRDM,.F.,.F.,{CCODIGO,M->BDE_MOTIVO,CCODINT,ODLG})

PLSA262.PRW - PLSA262PRN() -> ARET := EXECBLOCK(CEXPRDM,.F.,.F.,{BDE->BDE_CODIGO,BDE->BDE_MOTIVO,BDE->BDE_CODINT,NIL,5,.T.,LIMPRIM,NIL,LNEW,NIL,.T.,LIMPRESSAO})

PLSA262.PRW - RETDTVLD() -> DRET := EXECBLOCK("PLS262DT",.F.,.F.,{DRET})

PLSA264.PRW - CLSCAR() -> ARETCAR := EXECBLOCK("PL264CLS",.F.,.F.,ACLSCAR)

PLSA264.PRW - PLSEXEC() -> ARET := EXECBLOCK("PLS264L4",.F.,.F.)

PLSA264.PRW - PLSEXEC() -> ARETCAR := EXECBLOCK("PLS264CA",.F.,.F.,{BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC),BA1->BA1_TIPREG})

PLSA264.PRW - PLSEXEC() -> ARETINFO := EXECBLOCK("PL264INFO",.F.,.F.,{DADOS->NOMEUSUARI,DADOS->DTNACTO,DADOS->DTVALID,DADOS->DTINC,DADOS->PLANO,DADOS->TPCONTRATO,BA3->BA3_TIPOUS,ARETNOME[1][3]})

PLSA264.PRW - PLSEXEC() -> ARETINFO:= EXECBLOCK("PL264INFO",.F.,.F.,{DADOS->NOMEUSUARI,DADOS->DTNACTO,DADOS->DTVALID,DADOS->DTINC,DADOS->PLANO,DADOS->TPCONTRATO,BA3->BA3_TIPOUS,ARETNOME[1][3]})

PLSA264.PRW - PLSEXEC() -> ARETPTO:= EXECBLOCK("PLS264E2",.F.,.F.,{_NTIPO,ACRITICAS})

PLSA264.PRW - PLSEXEC() -> ARETPTO := EXECBLOCK("PLS264E2",.F.,.F.,{_NTIPO,ACRITICAS})

PLSA264.PRW - PLSEXEC() -> ARETSQL := EXECBLOCK("PL264QRY",.F.,.F.,{CSELECT1,CSELECT2,CSQL})

PLSA264.PRW - PLSEXEC() -> CARQUIVO := EXECBLOCK( "PLS264ARQ",.F.,.F.,{CARQUIVO} )

PLSA264.PRW - PLSEXEC() -> CNLIN:= EXECBLOCK( "PLS264FW",.F.,.F.,{CNLIN} )

PLSA264.PRW - PLSEXEC() -> CSQL += EXECBLOCK("PLS264OB",.F.,.F.)

PLSA264.PRW - PLSEXEC() -> DDTVALI := EXECBLOCK("PLS264DT",.F.,.F.,{DDTVALI})

PLSA264.PRW - PLSEXEC() -> EXECBLOCK( "PLS264CB",.F.,.F.,{NW} )

PLSA264.PRW - PLSEXEC() -> EXECBLOCK("PLRRN360",.F.,.F.,{'', ADADOS, LWEB,GETMV("MV_RELT")})

PLSA264.PRW - PLSEXEC() -> EXECBLOCK("PLS264L2",.F.,.F.,{CALIAS})

PLSA264.PRW - PLSEXEC() -> EXECBLOCK("PLS264L3",.F.,.F.)

PLSA264.PRW - PLSEXEC() -> EXECBLOCK("PLS264VL",.F.,.F.,{DDTVALI})

PLSA264.PRW - PLSEXEC() -> IF ! EXECBLOCK("PLS264EM",.F.,.F.,{_NTIPO})

PLSA264.PRW - PLSEXEC() -> IF ! EXECBLOCK("PLS264FAM",.F.,.F.) .OR. EXECBLOCK("PLS264FAM",.F.,.F.,{BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC)})

PLSA264.PRW - PLSEXEC() -> LPTOREE := EXECBLOCK("PLS264REE",.F.,.F.,{BED->(RECNO()),BA1->(RECNO())})

PLSA298.PRW - PL298MOV() -> IF EXECBLOCK( "PLS298ENC", .F., .F., { }, .F. )

PLSA298.PRW - PLPESQGUIA() -> ABUTTONS := EXECBLOCK("PLSBUTDV",.F.,.F.)

PLSA298.PRW - PLPQGUIA() -> APL298GUI := EXECBLOCK('PL298GUI',.F.,.F.,{CCHAVE,CTIPOPES,LCHKCHK,ABROWGUI})

PLSA298.PRW - PLPQGUIA() -> CSQL := EXECBLOCK("PL298PESBD",.F.,.F.,{CSQL})

PLSA300.PRW - PLSA300CALL() -> AADD( ABUTTONS,{CPICTBT,{ || EXECBLOCK("PL300F11",.F.,.F.,{M->BBO_CODPAC,M->BBO_CODESP}) },CDESCBT,CTITBT} )

PLSA300.PRW - PLSA300CALL() -> ADADBT:=EXECBLOCK("PL300DAD",.F.,.F.)

PLSA300.PRW - PLSA300SEL() -> ANEWCAMPOS := EXECBLOCK("PLCAMMARC",.F.,.F.)

PLSA300.PRW - PLSA300SEL() -> EXECBLOCK("PLS300AGF",.F.,.F., {NOPCAO} )

PLSA305.PRW - PLSA305GUI() -> ARETAUX := EXECBLOCK(BCL->BCL_FUNMFS,.F.,.F.,{CALIASPRI,"2",COPERDA,"2"&CCPOFASE,BCI->BCI_CODLDP,BCI->BCI_CODPEG,"",BCL->BCL_GUIREL,.T.,DDATABASE})

PLSA305.PRW - PLSA305GUI() -> EXECBLOCK(CFUNGRV,.F.,.F.,{K_INCLUIR})

PLSA305.PRW - PLSA305MOV() -> ABUTTONS := EXECBLOCK("PLS305BOT",.F.,.F.)

PLSA305.PRW - PLSA305MOV() -> CFIELDBTH += "," + EXECBLOCK("PLFIL305",.F.,.F.)

PLSA305.PRW - PLSA305MOV() -> EXECBLOCK("PL305ATM",.F.,.F.,{.T.,AUSERFOLDERS})

PLSA310.PRW - PLSA310MOV() -> EXECBLOCK("PL310GRV",.F.,.F.,{NOPC})

PLSA315.PRW - PLSA315() -> ADADBT:=EXECBLOCK("PLS315DAD",.F.,.F.)

PLSA315.PRW - PLSA315() -> ANEWCOLUM := EXECBLOCK("PLS315HOR",.F.,.F.)

PLSA315.PRW - PLSA315() -> APTBOT := EXECBLOCK("PLSBUTOP",.F.,.F.,{"PLSA315"})

PLSA315.PRW - PLSA315ATD() -> EXECBLOCK("PL315IMP",.F.,.F.,{CABEC1,CABEC2,TITULO,NLIN,"BBD",CCODLOC,CDESLOC,AHORMED,OHORARIOS})

PLSA315.PRW - PLSA315AUT() -> EXECBLOCK("PL315AUT", .F., .F., {BBD->(RECNO())})

PLSA315.PRW - PLSA315COR() -> CCOR := EXECBLOCK("PLS315COR",.F.,.F.,{CCOR,AHORMED,NLIN})

PLSA315.PRW - PLSA315ENC() -> ANEWCAMPOS := EXECBLOCK("PLCAMMARC",.F.,.F.)

PLSA315.PRW - PLSA315EPR() -> IF ( ! EXISTBLOCK("PLS315EA") ) .OR. (EXECBLOCK("PLS315EA",.F.,.F.,{"PA"}))

PLSA315.PRW - PLSA315PRO() -> EXECBLOCK("PL315GPA", .F., .F., {})

PLSA315.PRW - PLSA315SMD() -> ARETPTO := EXECBLOCK("PLS315ES",.F.,.F.,{AHORMED,LCANCELA})

PLSA315.PRW - PLSA315SMD() -> ARETPTO := EXECBLOCK("PLS315SL",.F.,.F.,{LCONS,AHORMED,LRET})

PLSA315.PRW - PLSA315VET() -> AHORARIOS[LEN(AHORARIOS)] := EXECBLOCK("PLS315AHR",.F.,.F., {AHORARIOS[LEN(AHORARIOS)]})

PLSA315.PRW - PLSA315VLD() -> EXECBLOCK("PLS315PC",.F.,.F.,{BATUDADOS,CCDAMBU,ASALAS,OMEDICOS})

PLSA315.PRW - PLSA315VLD() -> EXECBLOCK("PLS315VLD",.F.,.F.,{OHORARIOS})

PLSA315.PRW - PLSA315VLD() -> IF ( ! EXISTBLOCK("PLS315EA") ) .OR. (EXECBLOCK("PLS315EA",.F.,.F.,{"VP"}))

PLSA315.PRW - PLSPOPUP() -> ABUTTONS := EXECBLOCK("PL315RCBOT",.F.,.F.,{ASTATUS,OHORARIOS,OHORARIOS:NAT,ASALAS,OMEDICOS,ASALAS[OMEDICOS:NAT],OHORARIOS:AARRAY[OHORARIOS:NAT]})

PLSA315.PRW - VALIDSTATU() -> LRETORNO := EXECBLOCK("PLS315ST",.F.,.F., { NTIPO, CCID })

PLSA315.PRW - VALIDSTATU() -> LRETORNO := EXECBLOCK("PLS315VS",.F.,.F., { BBD->( RECNO() ), ASTATUS, NTIPO, NPOS })

PLSA340.PRW - PLSA340MOV() -> EXECBLOCK("PL340GRV",.F.,.F.,{NOPC})

PLSA360.PRW - GRAVAREDEREF() -> EXECBLOCK("PLS360BB0",.F.,.F.)

PLSA360.PRW - MANUTREF() -> ABUTTONS := ACLONE(EXECBLOCK("PLA360B1",.F.,.F.,{ABUTTONS} ))

PLSA360.PRW - MANUTREF() -> EXECBLOCK("PLSA360FIM",.F.,.F.,{NOPC})

PLSA360.PRW - PLSA360() -> CFILTRO:= EXECBLOCK("PLA360FL",.F.,.F.,CFILTRO)

PLSA360.PRW - PLSA360BLO() -> EXECBLOCK("PLS360BLQ",.F.,.F.,{NOPC})

PLSA360.PRW - PLSA360BLO() -> EXECBLOCK("PLS360DSBLQ",.F.,.F.,{NOPC})

PLSA365.PRW - GRAVAREDEREF() -> EXECBLOCK("PL365BOT1",.F.,.F.,{"3",,,,NOPC})

PLSA365.PRW - MANUTREF() -> ABOT := EXECBLOCK("PL365BOT1",.F.,.F.,{NOPC,CCODIGO,CCODLOC,CCODESP})

PLSA365.PRW - MANUTREF() -> ABUTESP := ACLONE(EXECBLOCK("PL365BB8",.F.,.F.,{"1",ABUTESP}))

PLSA365.PRW - MANUTREF() -> ACTIVATE DIALOG ODLG ON INIT ( ENCHOICEBAR(ODLG, {|| IF( PLSA365TOK(NOPC) .AND. IF(EXISTBLOCK("PL365VAL"),EXECBLOCK("PL365VAL",.F.,.F.),.T.),(NOPCA:=1,ODLG:END(),.F.),.F.) },BCANCEL,.F.,ABUTTONS )) CENTERED

PLSA365.PRW - MANUTREF() -> EXECBLOCK("PL365CHK",.F.,.F.,{NOPCA,BAU->BAU_CODIGO,CCODLOC,CCODESP})

PLSA365.PRW - MANUTREF() -> EXECBLOCK("PL365FIM",.F.,.F.)

PLSA365.PRW - MANUTREF() -> OGET07 := TPLSBRW():NEW(APOSOBJ3[1][1],APOSOBJ3[1][2],APOSOBJ3[1][4],APOSOBJ3[1][3],NIL  ,OFOLDER:ADIALOGS[6],NIL ,  ,NIL ,NIL,NIL, .T.,NIL  ,.T.,NIL,AHEADER,ACOLS,.F.,"BB8",NOPC,AFOLDERS[6],NIL,NIL,NIL,AVETGET07,'PLSBB8VLD','PLSBB8DEL',BFILTER,IF(EXISTBLOCK("PL365BB8"),{|| EXECBLOCK("PL365BB8",.F.,.F.,{"2"}) },{|| }),ABUTESP,,IF(EXISTBLOCK("PL365BB8"),{|| EXECBLOCK("PL365BB8",.F.,.F.,{"3"}) },{|| }))

PLSA365.PRW - PLSA365DCP() -> EXECBLOCK("PL365BOT1",.F.,.F.,{"4",,,,NOPC})

PLSA367.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("PL367ROT", .F., .F.)

PLSA460.PRW - PLSA460LIB() -> CSENHAPLS := EXECBLOCK("PLS090L1",.F.,.F.,{CTIPOROTESP,.F.,DDATA})

PLSA460.PRW - PLSA460LIB() -> EXECBLOCK("PLS460GR",.F.,.F.,{K_INCLUIR,.T.})

PLSA470.PRW - A470IND() -> CFOR :=  EXECBLOCK("PL470MAK",.F.,.F.,{CFOR})

PLSA470.PRW - A470IND() -> CFOR := EXECBLOCK("PL470FIL",.F.,.F.,{CFOR})

PLSA470.PRW - MENUDEF() -> ABTADD := EXECBLOCK("PL470BAD",.F.,.F.,{AROTINA})

PLSA470.PRW - PLSA470() -> CFILBAF := EXECBLOCK("PL470BAF",.F.,.F.,CFILBAF)

PLSA470.PRW - PLSA470DEL() -> EXECBLOCK("PL470EXC",.F.,.F.,{CCODRDA,CANOLOT,CMESLOT})

PLSA470.PRW - PLSA470DEL() -> EXECBLOCK("PL470LEX",.F.,.F.,APL470LEX)

PLSA470.PRW - PLSA470E01() -> EXECBLOCK("PL470EXC",.F.,.F.,{CCODRDA,CANOLOT,CMESLOT})

PLSA470.PRW - PLSA470EXC() -> LRET := EXECBLOCK("PLS470OK",.F.,.F.,{"ET",DDATABASE})

PLSA470.PRW - PLSA470MOV() -> LRET := EXECBLOCK("PLS470OK",.F.,.F.,{"EL",DDATABASE})

PLSA470.PRW - PLSA470NEW() -> CFILTPPRE :=  EXECBLOCK("PL470MAK",.F.,.F.,{CFILTPPRE})

PLSA470.PRW - PLSA470NEW() -> LRET := EXECBLOCK("PLS470OK",.F.,.F.,{"I",DDATABASE})

PLSA470.PRW - PROCTITE() -> EXECBLOCK("PL470FLT",.F.,.F.)

PLSA470.PRW - QTDVLDRDA() -> ARET := EXECBLOCK("PLS470RD",.F.,.F.)

PLSA475T.PRW - RPLSA475PRO() -> CSQL += EXECBLOCK("PL475FIL",.F.,.F.,{CSQL})

PLSA480.PRW - MENUDEF() -> AAUXROT := EXECBLOCK("PL480RT1",.F.,.F.,)

PLSA480.PRW - PL480COP() -> AAUXROT := EXECBLOCK("PL480RT4",.F.,.F.,)

PLSA498.PRW - ATUSTATISS() -> EXECBLOCK("PLS498OK",.F.,.F.)

PLSA498.PRW - MENUDEF() -> APTOENT := EXECBLOCK("PLS498MN",.F.,.F.)

PLSA498.PRW - PLRTGUPEG() -> ARETFUN := EXECBLOCK("PL498LIBPG", .F., .F., {LINFADIC, LEXIBEMSG, CINFADIC})

PLSA498.PRW - PLS498FIL() -> CFILTRO  := EXECBLOCK( "PLSFI498",.F.,.F., {CFILTRO,CRDADE,CRDAAT,CLOCALDE,CLOCALAT,CMESDE,CMESAT,CANODE,CANOAT,CTIPGUI,COPCFASE,DDATDE,DDATATE} )

PLSA498.PRW - PLS498VLS() -> CCAMPONG := EXECBLOCK("PLS498BT",.F.,.F.,{CCAMPONG})

PLSA498.PRW - PLSA498RPT() -> APAR := EXECBLOCK('PLSA49R',.F.,.F.,{APAR})

PLSA500.PRW - MENUDEF() -> APLSYO := EXECBLOCK('PL500F12',.F.,.F.,{'1',BCL->BCL_ALIAS,RECNO(),K_AJUSTE})

PLSA500.PRW - MENUDEF() -> AROTADIC := EXECBLOCK("PLS500BRW",.F.,.F.,{AROTINA})

PLSA500.PRW - PLE500F12() -> EXECBLOCK('PL500F12',.F.,.F.,{'2',CALIAS,NREG,NOPC})

PLSA500.PRW - PLMONTACOLS() -> ACOLS[NTAM,NI]:= EXECBLOCK("PLS500VI",.F.,.F.,{AHEADER,ACOLS,CFIELD,NTAM})

PLSA500.PRW - PLSA500ACT() -> AROTANA := EXECBLOCK("P500BTAG",.F.,.F.,{OBRWITE,OBRWCRI})

PLSA500.PRW - PLSA500ACT() -> EXECBLOCK("PL500ACF",.F.,.F.,{ BCL->BCL_TIPGUI, CCODOPE + CCODLDP + CCODPEG + CNUMERO + CORIMOV, CALIAS } )

PLSA500.PRW - PLSA500ACT() -> IF ( !LPLS500AG ) .OR. ( LPLS500AG .AND. EXECBLOCK("PLS500AG",.F.,.F.,{OBRWITE:FIELDGET("BDX_ACAO",NIND),OBRWITE:FIELDGET("BDX_SEQUEN",NIND)}) )

PLSA500.PRW - PLSA500BLO() -> EXECBLOCK("PLS500BLO",.F.,.F.,{CCODOPE,CCODLDP,CCODPEG,CNUMGUIA,CORIMOV,CCPOSIT,CALIAS,NREG,NOPC})

PLSA500.PRW - PLSA500BLO() -> LOCAL LBLLIBER:= IIF( EXISTBLOCK("PL500LIB"), EXECBLOCK("PL500LIB",.F.,.F.), .F. )

PLSA500.PRW - PLSA500BOK() -> IF ! EXECBLOCK("PLS500OK",.F.,.F.,{CTIPOGUIA,NOPC,AHEADPE,ACOLSPE})

PLSA500.PRW - PLSA500BOK() -> LRET := EXECBLOCK(CFUNSAI,.F.,.F.,APAR)

PLSA500.PRW - PLSA500GML() -> AROTANA := EXECBLOCK("P500BTAG",.F.,.F.,{OBRWPRO,OBRWGLO})

PLSA500.PRW - PLSA500MOV() -> ABOTAUX := EXECBLOCK(CFUNBOT,.F.,.F.)

PLSA500.PRW - PLSA500MOV() -> ABUTTONS := ACLONE(EXECBLOCK("P500INCBT",.F.,.F.,{ABUTTONS} ))

PLSA500.PRW - PLSA500MOV() -> EXECBLOCK("P500BTOG",.F.,.F.,{'1',@ODLG})

PLSA500.PRW - PLSA500MOV() -> EXECBLOCK("PLS500GR",.F.,.F.,{CTIPOGUIA,NOPC})

PLSA500.PRW - PLSA500MOV() -> EXECBLOCK(ALLTRIM(AFILES[NFOR,15]),.F.,.F.,{CALIASAUX,CTIPOGUIA,NOPC})

PLSA500.PRW - PLSA500MOV() -> EXECBLOCK(CFUNGRV,.F.,.F.,APAR)

PLSA500.PRW - PLSA500MOV() -> EXECBLOCK(CFUNINI,.F.,.F.,APAR)

PLSA500.PRW - PLSA500MOV() -> IF ! EXECBLOCK(CFUNEDT,.F.,.F.,APAR)

PLSA500.PRW - PLSA500MOV() -> LRET := EXECBLOCK("PLS500LC",.F.,.F., {NOPC,CALIAS})

PLSA500.PRW - PLSA500MOV() -> OBRWBD6:BAFTERADD:= {||IIF(VALTYPE(BBRWADD)=="B",EVAL(BBRWADD),),EXECBLOCK("P500BTOG",.F.,.F.,{'2',@ODLG})}

PLSA500.PRW - PLSA500MOV() -> OBRWBD6:OBROWSE:OBROWSE:BDELETE:= {||IIF(VALTYPE(BBRWDEL)=="B",EVAL(BBRWDEL),),EXECBLOCK("P500BTOG",.F.,.F.,{'3',@ODLG})}

PLSA500.PRW - PLSA500NUM() -> NRET := EXECBLOCK("PLS500NM",.F.,.F.,{CALIAS,CCODOPE,CCODLDP,CCODPEG})

PLSA500.PRW - PLSA500OPC() -> @ NLIN,NCOL BUTTON APLSYO[3] ACTION EVAL( {|| EXECBLOCK("PL500F12",.F.,.F.,{'2',CALIAS,NREG,NOPC}) } )SIZE 150, 10 OF ODLG PIXEL

PLSA500.PRW - PLSA500OPC() -> APLSYO := EXECBLOCK("PL500F12",.F.,.F.,{'1',CALIAS,NREG,NOPC})

PLSA500.PRW - PLSA500RCB() -> EXECBLOCK("PLSREVPC",.F.,.F.,{BCL->BCL_TIPGUI,CLOCALEXEC,.F.,.T.})

PLSA500.PRW - PLSA500RCB() -> LEXEC := EXECBLOCK("PLSREVAL",.F.,.F.,{'1',CCHAVEGUI,CALIAS})

PLSA500.PRW - PLSA500RCP() -> EXECBLOCK("PLSREVPC",.F.,.F.,{BCL->BCL_TIPGUI,CLOCALEXEC,.T.,.T.})

PLSA500.PRW - PLSA500RCP() -> LEXEC := EXECBLOCK("PLSREVAL",.F.,.F.,{'0',CCHAVEGUI,CALIAS})

PLSA500.PRW - PLSA500RFS() -> EXECBLOCK("PLS500RF",.F.,.F.,{BCL->BCL_TIPGUI,CALIAS,CCODOPE,CCODLDP,CCODPEG,CNUMERO,CORIMOV})

PLSA500.PRW - PLSA500RFS() -> LRET := EXECBLOCK("PLS500ARF",.F.,.F.,{BCL->BCL_TIPGUI,CALIAS,CCODOPE,CCODLDP,CCODPEG,CNUMERO,CORIMOV})

PLSA500.PRW - PLSA500RPG() -> EXECBLOCK("PLS500RF",.F.,.F.,{BCL->BCL_TIPGUI,CALIAS,CCODOPE,CCODLDP,CCODPEG,CNUMERO,CORIMOV})

PLSA500.PRW - PLSA500RPG() -> EXECBLOCK("PLSREVPC",.F.,.F.,{BCL->BCL_TIPGUI,CLOCALEXEC,.T.,.F.})

PLSA500.PRW - PLSA500RPG() -> LEXEC := EXECBLOCK("PLSREVAL",.F.,.F.,{'2',CCHAVEGUI,CALIAS})

PLSA500.PRW - PLSA500RPG() -> LRET := EXECBLOCK("PLS500ARF",.F.,.F.,{BCL->BCL_TIPGUI,CALIAS,CCODOPE,CCODLDP,CCODPEG,CNUMERO,CORIMOV})

PLSA500.PRW - PLSA500STA() -> EXECBLOCK(CFUNGRV,.F.,.F.,{NOPC})

PLSA500.PRW - PLSA500VLD() -> LRET := EXECBLOCK("PLS500VL",.F.,.F.,{CCAMPO,CTIPOGUIA})

PLSA500.PRW - PLSGLOPEG() -> IF !(EXECBLOCK("PLSGLOTO",.F.,.F., {LGUIPEG}))

PLSA500.PRW - VLDDEL() -> LRET := EXECBLOCK("PL500VLDEL",.F.,.F.,{NOPCBOT, LRET})

PLSA510.PRW - PLGERREC() -> APL510BM1 := EXECBLOCK("PL510BM1", .F., .F., AVLRCOB)

PLSA510.PRW - PLGERREC() -> ARETPTO := EXECBLOCK("PLS510AC",.F.,.F.,{_CNIVEL,_CCHAVE,NVALOR,ACRITICA,CMES,CANO,CNUMCOB,AVLRCOB,LGERSE1})

PLSA510.PRW - PLGERREC() -> CTIPTIT := EXECBLOCK("PLS510TT",.F.,.F.,{CPREFIXO,CNUMERO,CTIPTIT})

PLSA510.PRW - PLGERREC() -> EXECBLOCK("PLSGERTF",.F.,.F.)

PLSA510.PRW - PLGERREC() -> EXECBLOCK(ALANUSU[NI,21],.F.,.F.,{CMATUSU,CANO,CMES,BA3->BA3_FORPAG,{},NIL,_CNIVEL,_CCHAVE,ALANUSU,'2'})

PLSA510.PRW - PLS510CJR() -> EXECBLOCK("PLS510CN",.F.,.F.,{BSQ->(RECNO()),SE1->(RECNO())})

PLSA510.PRW - PLS510JR() -> EXECBLOCK("PLS510BS",.F.,.F.,{ SE1->E1_PREFIXO,SE1->E1_NUM,SE1->E1_PARCELA,SE1->E1_TIPO,SE1->(RECNO()),BSQ->(RECNO())})

PLSA510.PRW - PLS510JR() -> LCOBJUR := EXECBLOCK("PLS510GRJR",.F.,.F.,{ SE1->E1_PREFIXO,SE1->E1_NUM,SE1->E1_PARCELA,SE1->E1_TIPO,SE1->(RECNO()),NJUROS })

PLSA510.PRW - PLSGRVBM1() -> ARETPE := EXECBLOCK("PLCNTBM1", .F., .F., AVLRCOB)

PLSA510.PRW - PLSGRVBM1() -> EXECBLOCK("PLGRVBM1", .F., .F., {})

PLSA530.PRW - P530TUDOOK() -> LRET := EXECBLOCK("P530VLDOK",.F.,.F.,{OENCBXA,NOPC})

PLSA627.PRW - A627BUSNAT() -> CRET := EXECBLOCK("PL627NAT",.F.,.F.,{CTIPO, CNATNIVEL, CKEYCLI, CKEYPRO, CNIVCOB, CMDFATPT})

PLSA627.PRW - A627ITENS() -> ARETPTO := EXECBLOCK("PLS627OG",.F.,.F.,{ACOBABR})

PLSA627.PRW - A627ITENS() -> CSQL := EXECBLOCK("PLS627QR",.F.,.F.,{CSQL})

PLSA627.PRW - MENUDEF() -> AADD(AROTINA,{ STR0208 , 'EXECBLOCK("PLR590", .F., .F., {})' , 0 , K_IMPRIMIR , 0, NIL})

PLSA627.PRW - PL627BXCAN() -> EXECBLOCK("PL627CAN", .F., .F.)

PLSA627.PRW - PL627MOV() -> IF !EXECBLOCK("PL627EXC",.F.,.F.)

PLSA627.PRW - PLS627CRI() -> ACRITICAS := ACLONE(EXECBLOCK("PL627CRI",.F.,.F.,{ACRITICAS}))

PLSA627.PRW - PLS627NIV() -> ACLIFOR[1] := EXECBLOCK("PLSVRNIV", .F., .F., { CCODINT,CCODEMP,CNUMCON,CVERCON,CSUBCON,CVERSUB,CMAT})

PLSA627.PRW - PLS627PROC() -> EXECBLOCK("PL627FIM",.F.,.F.)

PLSA627.PRW - PLS627VENC() -> AVENC := EXECBLOCK("PL627VCT", .F., .F., {M->BDC_VENCTO,;

PLSA627.PRW - PLSA625MDA() -> CNOSSON  := EXECBLOCK("PLNUMBCO",.F.,.F.,{CPREFIXO, CNUMERO, CANO, CMES, ACHAVES, CNIVCOB})

PLSA627.PRW - PLSA625MDA() -> CNUMERO := EXECBLOCK("PLNUMTIT",.F.,.F.,{CPREFIXO,CNUMERO})

PLSA627.PRW - PLSA625MDA() -> CPREFIXO := EXECBLOCK("PLPREFE1",.F.,.F.,{CPREFIXO, CNUMERO, CANO, CMES, ACHAVES, CNIVCOB, CORIG, CCUSOPE})

PLSA627.PRW - PLSA625MDA() -> CPREFIXO := EXECBLOCK("PLPREFE2",.F.,.F.,{CANO,CMES})

PLSA627.PRW - PLSA625SE1() -> EXECBLOCK("PLS625ES",.F.,.F.,{CNUMCOB})

PLSA627.PRW - PLSA625SE1() -> EXECBLOCK("PLS625ET",.F.,.F.,{CNUMCOB})

PLSA627.PRW - PLSA627OK() -> LRET := EXECBLOCK("PL627BOK",.F.,.F.,{LRET, NOPC})

PLSA627.PRW - PLSA627OK() -> LRET := EXECBLOCK("PL627BOK",.F.,.F.,{LRET,NOPC})

PLSA627.PRW - PLSACOBRG() -> AMATAUX := EXECBLOCK("PL627VCB",.F.,.F.,{IIF(CTIPOUS == '1',"F","J"),AMATAUX})

PLSA627.PRW - PLSACOBRG() -> ARETAGL := EXECBLOCK("PL627AGL",.F.,.F.,{AMATAUX} )

PLSA627.PRW - PLSGERTIT() -> ARETPTO := EXECBLOCK("PLS510AC",.F.,.F.,{_CNIVEL,CCHAVE,NVALOR,ACRITICA,CMES,CANO,CNUMCOB,AVLRCOB,.F.})

PLSA627.PRW - PLSGERTIT() -> AVLRCOB := EXECBLOCK("PLSALTCOB",.F.,.F., { AVLRCOB } )

PLSA627.PRW - PLSGTNITEM() -> NLIMITENS  := EXECBLOCK("PLSGTNIT",.F.,.F.,{CNIVELCOB,AMATNIV,NNUMITESX6})[1]

PLSA628.PRW - A628GRAVA() -> EXECBLOCK("PL628GR",.F.,.F.)

PLSA628.PRW - PL628MOV() -> IF !EXECBLOCK("PL628EXC",.F.,.F.)

PLSA629.PRW - CHECKEXCTIT() -> CFILIALX5 := EXECBLOCK("CHGX5FIL",.F.,.F.)

PLSA629.PRW - CHECKTITNCC() -> ARETORPE := EXECBLOCK("PL629E1V",.F.,.F., { SE1->E1_PREFIXO,SE1->E1_NUM,SE1->E1_PARCELA,SE1->E1_TIPO,SE1->E1_CLIENTE,SE1->E1_LOJA,LERRO,AERRO,ARECSE1 } )

PLSA629.PRW - P629EXCE1() -> CFILIALX5 := EXECBLOCK("CHGX5FIL",.F.,.F.)

PLSA660.PRW - PL660FETA() -> EXECBLOCK("PL660FETA",.F.,.F.)

PLSA660.PRW - PLS660COOK() -> IF ! EXECBLOCK("PL660VDC",.F.,.F.)

PLSA660.PRW - PLS660FILC() -> AROTADIC := EXECBLOCK("PL660FC",.F.,.F.,{AROTINA})

PLSA660.PRW - PLS660FILS() -> IF !(EXECBLOCK("PLS660SC",.F.,.F.,{NOPC}))

PLSA660.PRW - PLS660PREA() -> LRET := EXECBLOCK("PL660REA",.F.,.F.,{CALIAS,CCHAVE,NORDEM})

PLSA660.PRW - PLSA660CON() -> IF !(EXECBLOCK("PLS660CT",.F.,.F.,{NOPC}))

PLSA660.PRW - PLSA660MOV() -> ABOT := EXECBLOCK("PLS660BOT",.F.,.F.,{})

PLSA660.PRW - PLSA660MOV() -> EXECBLOCK("PL660GRV",.F.,.F.,{NOPCX})

PLSA660.PRW - PLSA660MOV() -> IF !(EXECBLOCK("PLS660GR",.F.,.F.,{NOPC}))

PLSA660.PRW - PLSA660OK() -> IF ! EXECBLOCK("PL660VDE",.F.,.F.)

PLSA660.PRW - PLSA660RES() -> IF !(EXECBLOCK("PLS660MN",.F.,.F.,{NOPCX}))

PLSA660B.PRW - BLQCONF() -> LRET := EXECBLOCK('PLBLQFAM',.F.,.F.,{CBLOQUEIO,CMOTBLQ,DDATBLQ,CTCALIAS,DDATINC,DDATPED})

PLSA660B.PRW - BLQCONF() -> LRET := EXECBLOCK('PLBLQSUB',.F.,.F.,{CBLOQUEIO,CMOTBLQ,DDATBLQ,CTCALIAS,DDATINC,DDATPED,CBLOQFUT})

PLSA660B.PRW - BLQCONF() -> LRET := EXECBLOCK('PLBLQUSR',.F.,.F.,{CBLOQUEIO,CMOTBLQ,DDATBLQ,CTCALIAS,DDATINC,DDATPED})

PLSA660B.PRW - BLQSUBCONT() -> EXECBLOCK("PL660BQ1",.F.,.F.,{CTIPO, DDATBLQ, CMOTIVO, LGRVHIST})

PLSA660B.PRW - BLQSUBCONT() -> EXECBLOCK("PL660BQ2",.F.,.F.,{CTIPO, DDATBLQ, CMOTIVO, LGRVHIST})

PLSA660B.PRW - PL660DEL() -> LOK:=EXECBLOCK("PL660EXBT6",.F.,.F.,{CCODPRO,CCODVER})

PLSA660B.PRW - PL660DOP() -> LRET := EXECBLOCK("PL660OUS",.F.,.F.,{})

PLSA660B.PRW - PLS660BLQ() -> IF !(EXECBLOCK("PLS660MN",.F.,.F.,{NOPC, IF(EMPTY(BQC->BQC_CODBLO),"0","1")}))

PLSA660B.PRW - PLS660CONS() -> IF !(EXECBLOCK("PLS660MN",.F.,.F.,{NOPC, IF(EMPTY(BQC->BQC_CODBLO),"0","1")}))

PLSA660B.PRW - PLS660CONS() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "PL660SBUT", .F., .F. ) ) == "A"

PLSA660B.PRW - PLS660SOOK() -> CSQL := EXECBLOCK("PL660BCQ",.F.,.F.,{CSQL})

PLSA660B.PRW - PLS660SOOK() -> LRET := EXECBLOCK("PL660OPE",.F.,.F.,{NOPC})

PLSA660B.PRW - PLSA660FOR() -> EXECBLOCK("PLS660FG",.F.,.F.)

PLSA660B.PRW - PLSVLDVER() -> LRET := EXECBLOCK("PLS660NP",.F.,.F.,{LRET,M->BT6_CODPRO,M->BT6_VERSAO})

PLSA660C.PRW - RUN_COPIA() -> AARRAY := EXECBLOCK("PLS660TAB",.F.,.F.,{AARRAY})

PLSA720.PRW - GETTXADM() -> CPLSREGANVE := EXECBLOCK("PLSDATAN",.F.,.F.,{BD6->BD6_TIPGUI,CPLSREGANVE})

PLSA720.PRW - PLBUSPROTAB() -> CCODSER := EXECBLOCK("PLS500PSA",.F.,.F.,{CCODSER,CUNIORI,DDATPRO,BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC+BA1_TIPREG+BA1_DIGITO)})

PLSA720.PRW - PLBUSPROTAB() -> LFOUNDBR8 := EXECBLOCK("PLS500PR",.F.,.F.,{LFOUNDBR8,CCODSER})

PLSA720.PRW - PLMFGUIA() -> IF ! EXECBLOCK("PLS720VF",.F.,.F.,{CALIAS,CNAMEUSER})

PLSA720.PRW - PLMONQTPER() -> ARET := EXECBLOCK("PLMQTPER",.F.,.F.,{CCODSEQ,CCODPAD,CCODPRO,NQTDPRO,LMEMORY,CCHAVEGUI,DDATPRO,LVALID,NPOSBD6,ABL0,ARET,CCODTAB})

PLSA720.PRW - PLRETPORTE() -> CPORTE := EXECBLOCK("PLRETPOR",.F.,.F.,{CCODPAD,CCODPRO,CINTPAD,CCODTAB,DDATPRO,CPORTE})

PLSA720.PRW - PLSA720EVE() -> ARETPTO := EXECBLOCK("PLS720EV", .F., .F., { CTIPOGUIA, CLOCALEXEC, LVALORCOBR, LVALORPAGTO, CALIAS, CCHAVEGUI, LRET, ARETFUN } )

PLSA720.PRW - PLSA720GRV() -> ARETAUX := EXECBLOCK("PL720COMPE",.F.,.F.,{ARETAUX,(CALIAS)->&( CALIAS + "_DATPRO" ),(CALIAS)->&( CALIAS + "_ANOPAG" ),(CALIAS)->&( CALIAS + "_MESPAG" ) } )

PLSA720.PRW - PLSA720IPR() -> CPTOENT := EXECBLOCK("PLS720PR",.F.,.F.)

PLSA720.PRW - PLSA720MF() -> EXECBLOCK("PL720FIMMF",.F.,.F.,{CTIPOGUIA,CCHAVEGUI,CTIPO})

PLSA720.PRW - PLSA720MF() -> EXECBLOCK("PLS720AG",.F.,.F.,{CTIPOGUIA,CLOCALEXEC,CCHAVEGUI,AITENSGLO,OBRWITE})

PLSA720.PRW - PLSA720MF() -> EXECBLOCK("PLS720FIM",.F.,.F.,{CTIPOGUIA,CCHAVEGUI})

PLSA720.PRW - PLSA720UND() -> ACONVERSAO := EXECBLOCK("PL720AUND",.F.,.F., { ACONVERSAO } )

PLSA720.PRW - PLSA720VMF() -> EXECBLOCK("PLSMUDFS",.F.,.F.,{CTIPOGUIA,CLOCALEXEC})

PLSA720.PRW - PLSA720VPR() -> CPLSREGANVE := EXECBLOCK("PLSDATAN",.F.,.F.,{BCL->BCL_TIPGUI,CPLSREGANVE})

PLSA720.PRW - PLSPARCOP() -> EXECBLOCK("PL720PCO",.F.,.F.)

PLSA756.PRW - PLS756DEL() -> LRET := EXECBLOCK("PLS756VU",.F.,.F.,{5})

PLSA756.PRW - PLS756GRV() -> ARETPTO  := EXECBLOCK("PLS002FOR",.F.,.F.,{CCLIFOR,CLOJA,CNAT,CPREFIXO,CNUMTIT,CTIPO,DVENCTO,CCODINT,CCODEMP,CMATRIC})

PLSA756.PRW - PLS756GRV() -> ARETPTO := EXECBLOCK("PLS756CLI",.F.,.F.,{CCLIFOR,CLOJA,CNAT,CPREFIXO,CNUMTIT,CTIPTIT,DVENCTO})

PLSA756.PRW - PLS756GRV() -> LAPROVA := EXECBLOCK("PLSCOBDB",.F.,.F.,{CPROTOC,DAPROV,DVENCTO})

PLSA756.PRW - PLS756TOK() -> LRET := EXECBLOCK("PLS756VU",.F.,.F.,{NOPC})

PLSA770.PRW - A770BLO() -> EXECBLOCK("PL770REL", .F., .F., {ALOG} )

PLSA772.PRW - GRAVACAR() -> AARQLOCAL := EXECBLOCK( "PLSQTDEB", .F., .F., {NI, LPORTAL, ADADOS, AFINAN, CWEBOUT} )

PLSA773.PRW - A773MAIL() -> CHTML := EXECBLOCK( "PL773MAI", .F., .F., {LPROTRN395, CHTML, CBODY} )

PLSA773.PRW - P773AUTCON() -> EXECBLOCK("PL773PE3",.F.,.F.,{CALIAS,CNUMPROTO,CGUIA,LALTB00})

PLSA773.PRW - P773AUTINC() -> CNUMPROTO := EXECBLOCK("PL773PE2",.F.,.F.,{CALIAS,CNUMPROTO,LINTERC,LCHAMBOTAO,NOPC,LCHAMTMK,CMATRIC})

PLSA773.PRW - P773AUTOR() -> AOBS := EXECBLOCK( "PL773OBS", .F., .F., {APROCED} )

PLSA773.PRW - P773NEGAT() -> AOBS := EXECBLOCK( "PL773OBS", .F., .F., {APROCED} )

PLSA773.PRW - P773TMKCON() -> EXECBLOCK("PL773PE01",.F.,.F.,{CCODATETMK,M->UC_PROTANS,B00->(RECNO()) })

PLSA773.PRW - PL773JUST() -> EXECBLOCK("PL773DOC",.F.,.F.,{CPATHEST, CARQDOC})

PLSA773.PRW - PL773RNREL() -> ARET := EXECBLOCK( "PLREL395", .F., .F., {ADADOS,AAUTORIZAD,ANEGATIVAS,LATENDTMK,LIMPEMAIL,CEMAIL} )

PLSA773.PRW - PLSA773GER() -> EXECBLOCK( "PLS773DOT", .F., .F., {CALICAB,CCHVGUI,AGUIA,ANEGATIVAS,ABENE} )

PLSA782.PRW - A782SBX() -> AREGALT[NFOR] := EXECBLOCK("PLS782DAD",.F.,.F.,{"2",AREGALT[NFOR]})

PLSA782.PRW - A782SBX() -> AREGEXC[NFOR] := EXECBLOCK("PLS782DAD",.F.,.F.,{"3",AREGEXC[NFOR]})

PLSA782.PRW - A782SBX() -> AREGMUD[NFOR] := EXECBLOCK("PLS782DAD",.F.,.F.,{"5",AREGMUD[NFOR]})

PLSA782.PRW - A782SBX() -> AREGREI[NFOR] := EXECBLOCK("PLS782DAD",.F.,.F.,{"4",AREGREI[NFOR]})

PLSA790.PRW - A790ATEND() -> ABT1:=EXECBLOCK("PL790NOMEBT")

PLSA790.PRW - A790ATEND() -> APTBOT := EXECBLOCK("PLSBUTOP",.F.,.F.,{"PLSA790"})

PLSA790.PRW - A790ATEND() -> EXECBLOCK("PL790BT1",.F.,.F.,{OBTT1, 1})

PLSA790.PRW - A790ATEND() -> EXECBLOCK("PL790BT2",.F.,.F.,{OBTT2, 1})

PLSA790.PRW - A790ATEND() -> IF EXISTBLOCK("PL790NOMEBT") .AND. LEN(ABT1:=EXECBLOCK("PL790NOMEBT"))>1

PLSA790.PRW - A790ATEND() -> IF(EXISTBLOCK("P790BTOG"),EXECBLOCK("P790BTOG",.F.,.F.,{'2',@ODLG}),NIL),;

PLSA790.PRW - A790ATEND() -> OBTT1 := TBUTTON():NEW( NLI, (ASIZE[3]*0.77), CNOMEBT1, ODLG,{|| IIF( LEN(APROAUD) > 0, EXECBLOCK("PL790BT1",.F.,.F.,{OBTT1, 2} ) ,NIL ) }, 45, 11,,,,.T.)

PLSA790.PRW - A790ATEND() -> OBTT2 := TBUTTON():NEW( NLI, (ASIZE[3]*0.85), CNOMEBT2, ODLG,{|| IIF( LEN(APROAUD) > 0, EXECBLOCK("PL790BT2",.F.,.F.,{OBTT2, 2} ) ,NIL ) }, 45, 11,,,,.T.)

PLSA790.PRW - PLCALCREEMB() -> ARET := EXECBLOCK("PLS001VLRS",.F.,.F.,{LRET,{NVLRPAGPRO,NVLRMANPRO,NVLRGLOPRO,NVLRBPRPRO},{NVLRPAGGUI,NVLRMANGUI,NVLRGLOGUI,NVLRBPRGUI},CCODPRO,CCODPAD,CMATRUSR,CCODRDA,CCODESP,ACRI})

PLSA790.PRW - PLS790ATU() -> ARET :=EXECBLOCK("PL790QRY",.F.,.F.,{ CSQL1,CSQL3BE4,CSQL5,CSQL7,CSQL3BEA } )

PLSA790.PRW - PLS790DBCLICK() -> ACAMPOS := EXECBLOCK("PLS790CP",.F.,.F.,{ACAMPOS})

PLSA790.PRW - PLS790DBCLICK() -> EXECBLOCK("PL790FIM",.F.,.F.)

PLSA790.PRW - PLS790FIN() -> OBOTAO02 := SBUTTON():NEW(180, 180, 4, {|| IF(EXISTBLOCK("PLSBOLETO"),EXECBLOCK("PLSBOLETO",.F.,.F.),HELP("",1,"PLSBOLETO")) },OFOLDER:ADIALOGS[3],.T.)

PLSA790.PRW - PLS790MAUD() -> EXECBLOCK("P790MAUD",.F.,.F.,{COPEMOV,CANOAUT,CMESAUT,CNUMAUT,CCODPAD,CCODPRO})

PLSA790.PRW - PLSAUDON() -> &(CALIASCAB+"->"+CALIASCAB+"_SENHA")  := EXECBLOCK("PLS090L1",.F.,.F.,{IIF(BEA->BEA_LIBERA == "1","2","1"),.T.,&(CALIASCAB+"->"+CALIASCAB+"_DATPRO")} )

PLSA790.PRW - PLSAUDON() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{CCODPROITE,"ENVDES",PADR(&(CALIASITE+"->"+CALIASITE+"_DESPRO"),80),NIL,CCODPAD,ALLTRIM(CTRANORI),NIL})

PLSA790.PRW - PLSAUDON() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{CCODPROITE,"ENVDES",PADR(BR8->BR8_DESCRI,80),NIL,CCODPAD,ALLTRIM(CTRANORI),NIL})

PLSA790.PRW - PLSAUDON() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{CCODPROITE,"ENVSAI","",NIL,CCODPAD,ALLTRIM(CTRANORI),NIL})

PLSA790.PRW - PLSAUDON() -> TPTAB := EXECBLOCK("PLSVATBI", .F., .F., {TPTAB,LPTUON80,.F.})

PLSA790.PRW - PLSTATTRAN() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{ALLTRIM(PLSPTUGET("CD_SERVICO",ARETOLN[2][NX])),"SOLENT","",NIL,NIL,ALLTRIM(CTRANORI),NIL})

PLSA790.PRW - PLSTATTRAN() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{PLSPTUGET("CD_SERVICO",ARETOLN[2][NI]),"SOLENT","",NIL,NIL,ALLTRIM(CTRANORI),NIL})

PLSA790.PRW - ³() -> &(CALICAB+"->"+CALICAB+"_SENHA")  := EXECBLOCK("PLS090L1",.F.,.F.,{IIF(BEA->BEA_LIBERA == "1","2","1"),.T.,&(CALICAB+"->"+CALICAB+"_DATPRO")} )

PLSA790.PRW - ³() -> &(CALICAB+"->"+CALICAB+"_SENHA") := EXECBLOCK("PLS090L1",.F.,.F.,{IIF(CALICAB =="B4Q","11","3") ,.F.,&(CALICAB+"->"+CALICAB+"_DATPRO")})

PLSA790.PRW - ³() -> ARETGRVSE1 := EXECBLOCK("PLSA790CRT",.F.,.F.,{CPREFIXO,CNUMTIT,CTIPTIT,DVENCTO,NOPC,CPARCTIT,CTIPOROTESP,BEA->BEA_CODCLI,BEA->BEA_LOJA})

PLSA790.PRW - ³() -> ARETPTO  := EXECBLOCK("PLS002FOR",.F.,.F.,{CCODFORN,CLOJA,CNAT,CPREFIXO,CNUMTIT,CTIPO,DVENCTO,CCODINT,CCODEMP,CMATRIC})

PLSA790.PRW - ³() -> ARETPTO := EXECBLOCK("PLS001CLI",.F.,.F.,{CCODCLI,CLOJA,CNAT,CPREFIXO,CNUMTIT,CTIPTIT,DVENCTO})

PLSA790.PRW - ³() -> EXECBLOCK("PLS790GR",.F.,.F.,{K_INCLUIR,.T.})

PLSA790.PRW - ³() -> EXECBLOCK("PLSREVPC",.F.,.F.,{BD6->BD6_TIPGUI,"1",.T.,.F.})

PLSA790C.PRW - SETAUDITORIA() -> CCODDEP := EXECBLOCK("PLSDEPTO", .F., .F., {CORIMOV,CTIPO,LAUTORIZACAO,CCARINT,LFUTURA,LREEMBOLSO,LEVOLU,LINTERN,ADADCRI,ACABCRI,ACOLSITE,AHEADERITE,CALIASITE,CALIASCRI,CREGINT,LPARTIC} )

PLSA790C.PRW - SETAUDITORIA() -> OB53 := EXECBLOCK("PL790INIP", .F., .F., {OB53} )

PLSA790M.PRW - MENUDEF() -> AADD( ASUBMENU, { EXECBLOCK("PL790NOMEBT",.F.,.F. ), EXECBLOCK("PL790BT2",.F.,.F. ), 0, 0} )

PLSA790M.PRW - MENUDEF() -> ARET := EXECBLOCK("PLSAUDBT",.F.,.F.,{} )

PLSA790V.PRX - PLS790ANA() -> EXECBLOCK("PLSGRB53", .F., .F., {B53->(RECNO())} )

PLSA790V.PRX - PLS790VFI() -> ARET := EXECBLOCK("PLSAUDFI",.F.,.F.,{})

PLSA800.PRW - MENUDEF() -> ABTADD := EXECBLOCK("PL800MNU",.F.,.F.,{AROTINA})

PLSA800.PRW - PLSA800OK() -> LRET := EXECBLOCK("PLS800OK",.F.,.F.)

PLSA800.PRW - PLSVLDBHI() -> LRET := EXECBLOCK("PLSVLBHI",.F.,.F.,LRET)

PLSA940.PRW - PLS940ALT() -> LRET := EXECBLOCK("PLS940VLD",.F.,.F.,{NOPC})

PLSA955.PRW - PLS955OBG() -> LGRAVA := EXECBLOCK( "PLS955GV", .F., .F., {COPCPE} )

PLSA973.PRW - PLMATVALIDA() -> CRETPE := EXECBLOCK("PLSXMLMAT",.F.,.F.,{CMATARQ,CNOMUSR})

PLSA973.PRW - PLSCG() -> CNUMAUT := EXECBLOCK( "PLSTMLLIB",.F.,.F.,{ CNUMAUT,COPEMOV,CCODRDA,"","","" } )

PLSA973.PRW - PLSCGB() -> CNUMAUT := EXECBLOCK( "PLSTMLLIB",.F.,.F.,{ CNUMAUT,COPEMOV,CCODRDA,"","","" } )

PLSA973.PRW - PLSIVRDA() -> CCODRP := EXECBLOCK("PLSCODRP",.F.,.F.,{CCODRP,NIDX})

PLSA973.PRW - PLSLGSP() -> ARETPE := EXECBLOCK( "PLTISESP",.F.,.F.,{CCBOS} )

PLSA973.PRW - PLSLGSP() -> AUNIDADES := EXECBLOCK( "PLSXMLAUN",.F.,.F.,AUNIDADES )

PLSA973.PRW - PLSLGSP() -> CMATRIC := EXECBLOCK( "PLSXMLMAT",.F.,.F.,{CMATRIC,CNOMEUSU} )

PLSA973.PRW - PLSLGSP() -> CNUMAUT := EXECBLOCK( "PLSTMLLIB",.F.,.F.,{ CNUMSEN,COPEMOV,CCODRP,CTIPO,CMATRIC,CGUIPRI,LHONOR,LEVOLU } )

PLSA973.PRW - PLSLGSP3() -> ARETTAG := EXECBLOCK( "PLSXMLDAT",.F.,.F.,{CGUIA} )

PLSA973.PRW - PLSLGSP3() -> AUNIDADES := EXECBLOCK( "PLSXMLAUN",.F.,.F.,AUNIDADES )

PLSA973.PRW - PLSLGSP3() -> CMATRIC := EXECBLOCK( "PLSXMLMAT",.F.,.F.,{CMATRIC,CNOMEUSU} )

PLSA973.PRW - PLSLGSP3() -> CNUMAUT := EXECBLOCK( "PLSTMLLIB",.F.,.F.,{ CNUMSEN,COPEMOV,CCODRP,CTIPO,CMATRIC,CGUIPRI,LHONOR,LEVOLU,CTIPO == "3" .AND. !LHONOR } )

PLSA973.PRW - PLSPROCRES() -> COBS := EXECBLOCK("PLSOBSXML",.F.,.F.,{ARET})

PLSA973.PRW - PLSSA() -> CNUMAUT := EXECBLOCK( "PLSTMLLIB",.F.,.F.,{ CNUMAUT,COPEMOV,"","","","" } )

PLSA973.PRW - PLSSAB() -> CNUMAUT := EXECBLOCK( "PLSTMLLIB",.F.,.F.,{ CNUMAUT,COPEMOV,"","","","" } )

PLSA973.PRW - PLSVEB() -> ARET := EXECBLOCK( " PLSA973VAL ",.F.,.F.,{ADADOS,ARET,DDATA,CHORA})

PLSA973.PRW - PLSXPAD() -> AMATPAD := EXECBLOCK( "PLSXMLPAD",.F.,.F.,{CCODPAD,CCODPRO,CDESCRIC,CTPPROC,CTIPGUI,CVERSAO,DDATREA} )

PLSA973.PRW - PLSXPROF() -> CCODRP := EXECBLOCK( "PLSXMLPROF",.F.,.F.,{CTIPO,CCODRP,CNUM,CNUMIMP,CORIGEM,NIDX,PLSAJUDAT(CDATA),CHORA,AMATC} )

PLSA973.PRW - PLSXSCU() -> ARETPROF := EXECBLOCK( "PLSXMLSCU",.F.,.F.,{CSIGLA,CCRM,CUF,CCODPROF,CES,CNOME,CCBOS} )

PLSA973.PRW - PLSXSCU() -> EXECBLOCK( "PLINCBQ1",.F.,.F.,{CCODPROF,CSIGLA,CCRM,CUF,CES,ADADOS,COBSOLETO,LINC,CNOME,CCBOS} )

PLSA973.PRW - PLTRCBOIMP() -> ARETPE := EXECBLOCK("PLTISESP",.F.,.F.,{"2",CTIPPRO,CNOME,CCBOX,CESPX,""})

PLSA973.PRW - VLDMATPEXML() -> CRETPEMT := EXECBLOCK("PLSXMLMAT",.F.,.F.,{CMATARQ,CNOMUSR,CMATORIG})

PLSA973L.PRW - PLSINALUP() -> EXECBLOCK("PL974BXX", .F., .F., {"1"})

PLSA973L.PRW - PLSTRCBOS() -> ARETPE := EXECBLOCK( "PLTISESP",.F.,.F.,{XCCBOS} )

PLSA973L.PRW - PLSVARVINC() -> AERRVARVIN := EXECBLOCK("PLIMPTDO",.F.,.F.,{AERRVARVIN,CCODTAB, CALIAS, CCDTERM} )

PLSA973L.PRW - PLSVARVINC() -> CVLRBUS := EXECBLOCK("PLCODPAD",.F.,.F.,{CCODTAB, CALIAS, CCDTERM,CDIRETO, CTAGCRIT, ATABDUP,CATUTAB,CVLRBUS} )

PLSA973L.PRW - PLTRCBOSUB() -> ARETPE := EXECBLOCK("PLTISESP",.F.,.F.,{"1",CTIPPRO,CNOMPROF,CCBOX,CESPX,CCODGLO,LRET})

PLSA974.PRW - PLSACOLS() -> CQUERY := EXECBLOCK("PL974FIL", .F., .F., {CQUERY})

PLSA974.PRW - PLSAVLDBLQ() -> EXECBLOCK("PL974BXX", .F., .F., {"4"})

PLSA974.PRW - PLSFILXML() -> EXECBLOCK("PLSFILPRO",.F.,.F.,{})

PLSA974.PRW - PLSMANBXX() -> EXECBLOCK("PL974BXX", .F., .F., {"1"})

PLSA974.PRW - PLSMANBXX() -> EXECBLOCK("PL974BXX", .F., .F., {"2"})

PLSA974.PRW - PLSMANBXX() -> EXECBLOCK("PL974BXX", .F., .F., {"3"})

PLSA977AB.PRW - MENUDEF() -> ABOTADD := EXECBLOCK("PL977MEN",.F.,.F.,{AROTINA})

PLSA977AB.PRW - PLGERGRPFA() -> EXECBLOCK("PL977FAM",.F.,.F.,{CCODFAM})

PLSA977AB.PRW - PLSA977AB() -> CFILTER := EXECBLOCK("PL977FIL", .F., .F., {CFILTER})

PLSA977AB.PRW - PLSA977AB() -> OBROWSE := EXECBLOCK("PL977LEG", .F., .F., {OBROWSE})

PLSA99B.PRW - A99BMAIL() -> AHTML := EXECBLOCK( "PL99BMAI", .F., .F., {@CSUBJECT, @CHTML, CBODY, CTIPREL} )

PLSA99B.PRW - PL99BGRVRP() -> EXECBLOCK("PL99GRVSOL",.F.,.F.,{BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC+BA1_TIPREG+BA1_DIGITO),B49->B49_CODUSR})

PLSA99B.PRW - PL99BPRORT() -> AVLRMENS[NNX,4] := EXECBLOCK( "PL99BVAL", .F., .F., {CMATRIC,AVLRMENS[NNX,2],AVLRMENS[NNX,1],AVLRMENS[NNX,4],DDATA} )

PLSA99B.PRW - PL99BPRORT() -> NPERCMES := 100 - EXECBLOCK("PLPRORAT", .F., .F., {DDATA, PLDAYVENCCOB(BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC)), .T.})[1]

PLSA99B.PRW - PL99BRELAT() -> ARET := EXECBLOCK( "PL99BCON", .F., .F., {ADADOS,LIMPEMAIL,LPORTALWEB} )

PLSANSAJUSTE.PRW - PLANSPROC() -> LCONTINUA := EXECBLOCK("PANSREJ4",.F.,.F.,(CALIASQRY)->BA3REC)

PLSBAIXA.PRW - MENUDEF() -> AVETS := EXECBLOCK("PLBX09",.F.,.F.)

PLSBAIXA.PRW - PLBAIMOV() -> ABUTTONS := EXECBLOCK("PLBX07",.F.,.F.)

PLSBAIXA.PRW - PLBAIMOV() -> ACAMPOS := EXECBLOCK("PLBX05",.F.,.F.)

PLSBAIXA.PRW - PLBAIMOV() -> CCAMPOS := EXECBLOCK("PLBX06",.F.,.F.)

PLSBAIXA.PRW - PLBAIMOV() -> EXECBLOCK("PLBX08",.F.,.F.)

PLSBAIXA.PRW - PLSBAIXA() -> CCONDCOR := EXECBLOCK("PLBX04",.F.,.F.)

PLSBAIXA.PRW - PLSBAIXA() -> CFILTRO += CFILTRO + " .AND. "+EXECBLOCK("PLBX03",.F.,.F.)

PLSBAIXA.PRW - PLSBAIXA() -> NORDEM := EXECBLOCK("PLBX02",.F.,.F.)

PLSBOL.PRW - R580IMP() -> AMSGBOLETO := EXECBLOCK("PLR580MSGB",.F.,.F.)

PLSBOL.PRW - R580IMP() -> AMSGCORPO := EXECBLOCK("PLR580MSGC",.F.,.F.)

PLSBOL.PRW - RET_CBARRA() -> ACODBAR := EXECBLOCK("RETDADOS",.F.,.F.,{CPREFIXO,CNUMERO,CPARCELA,CTIPO,CBANCO,CAGENCIA,CCONTA,CDACCC,CNRODOC,NVALOR,CCART,CMOEDA})

PLSCTB06.PRW - FPOSTABCAB() -> EXECBLOCK("PLSCTBP2",.F.,.F.)

PLSCTB11.PRW - FPOSTABCAB() -> EXECBLOCK("PLSCTBP1",.F.,.F.)

PLSCTB11.PRW - PLPRODADTIT() -> DDTLOTE := EXECBLOCK("PLSCT11DTL", .F., .F., {__NPARTIPCTB, SE1->(RECNO())})

PLSCTBFUN.PRW - PLSMT103() -> LRET := EXECBLOCK("PLSPEMT103",.F.,.F.)

PLSCTP01.PRW - PLSCTP01() -> CRET := EXECBLOCK("PLCTPBUS", .F., .F., { CROTINA, 'BBH', CBUSCA, CRET } )

PLSCTP05.PRW - PLSCTP05() -> CRET := EXECBLOCK("PLCTPBUS", .F., .F., { CROTINA, 'BAZ', CBUSCA, CRET } )

PLSFUNREEMB.PRW - PLCHKDUPRE() -> LRET := EXECBLOCK("PLRMBDUPL",.F.,.F.,{LRET, CTIPDOC, CCPFCNPJ, CMATRIC, CCODPAD, CCODPRO, CNUMDOC, CDATDOC, CVLRDOC })

PLSFUNREEMB.PRW - PLSREEMBIT() -> EXECBLOCK("PLWEBBOW",.F.,.F.,{BOW->(RECNO())})

PLSFUNREEMB.PRW - PLSREEMBIT() -> OITEMREEMB := EXECBLOCK("PLITMRMB",.F.,.F.,{OITEMREEMB})

PLSGUIBCO.PRW - PLSPRGIT() -> LIMPPRC := EXECBLOCK("PLSGTISS",.F.,.F.,{"03",LIMPPRC})

PLSGUIBCO.PRW - PLSSOLIT() -> LIMPPRC := EXECBLOCK("PLSGTISS",.F.,.F.,{"03",LIMPPRC})

PLSM020.PRW - M020DET() -> CSQLFILIAL := EXECBLOCK( "PLSXFILI", .F., .F., {"SE1"} )

PLSM020.PRW - PLDADUSR() -> ARETPTO := EXECBLOCK("PLM020PR",.F.,.F.,{BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC+BA1_TIPREG)})

PLSM020.PRW - PLDEMTIT() -> CSQLFILIAL := EXECBLOCK( "PLSXFILI", .F., .F., {"SE1"} )

PLSM020.PRW - PLDEMTIT() -> OBOTAO02 := SBUTTON():NEW(180, 035, 6, {|| IF(EXISTBLOCK("PLSBOL"),EXECBLOCK("PLSBOL",.F.,.F.),PLSR580()) },,.T.)

PLSM020.PRW - PLHISMOV() -> ARETPE := EXECBLOCK("PL20HFIL",.F.,.F.,{CFILBD6,CFILBE4})

PLSM020.PRW - PLHISMOV() -> ARETPTOEN := EXECBLOCK("PLSHSMOV",.F.,.F.,{ACABMOV,CFILBD6,ADADMOV,AVETTRAB, ACABINT, ADADINT, AVETINT, CFILBE4})

PLSM020.PRW - PLHISMOV() -> CSQL := EXECBLOCK("PL20HQRY",.F.,.F.,{CSQL})

PLSM020.PRW - PLHISMOV() -> EXECBLOCK("PLS20DLG",.F.,.F., {OFOLDER} )

PLSM020.PRW - PLPOSFIN() -> CSQLFILIAL := EXECBLOCK( "PLSXFILI", .F., .F., {"SE1"} )

PLSM020.PRW - PLPOSFIN() -> EXECBLOCK("PLSBOL",.F.,.F.,{ATRBSE1[OBRWFIN:LINHA()][1], OBRWFIN:ACOLS,OBRWFIN:AHEADER}),;

PLSM020.PRW - PLPOSFIN() -> EXECBLOCK("PLSBOL",.F.,.F.,{ATRBSE1[OBRWFIN:LINHA()][1],OBRWFIN:ACOLS,OBRWFIN:AHEADER}),PLSR580()) }, 038, 013 ,,,,.T.)

PLSM020.PRW - PLPOSFIN() -> EXECBLOCK("PLSPFFOL",.F.,.F.)

PLSM020.PRW - PLSLISMSGC() -> ARETURN := EXECBLOCK("PLSPEMGC",.F.,.F.,{BAY->BAY_CODGRU,SMSG1,SMSG2})

PLSM020.PRW - PLVINCPAR() -> CSQLFILIAL := EXECBLOCK( "PLSXFILI", .F., .F., {"SE1"} )

PLSM150.PRW - PLS150USU() -> EXECBLOCK("PLS150P2",.F.,.F.)

PLSM151.PRW - GRAVABXQ() -> EXECBLOCK("PL151GRV",.F.,.F.)

PLSM151.PRW - PLS151CALC() -> ARET := EXECBLOCK("PL151COM",.F.,.F.,{TMP->CODEQU,  TMP->CODVEN, TMP->BENEF,TMP->VALCOM,  TMP->PERCOM, ;

PLSM151.PRW - PLS151CALC() -> ARET1 := EXECBLOCK("PL151VLD",.F.,.F.,{TMP->CODEQU,  TMP->CODVEN, TMP->BENEF,TMP->VALCOM,  TMP->PERCOM, ;

PLSM180.PRW - PLSM180PRO() -> EXECBLOCK("PLS180F",.F.,.F.)

PLSM180.PRW - PLSM180PRO() -> IF ! EXECBLOCK("PLS180AC",.F.,.F.)

PLSM180.PRW - PLSM180PRO() -> LPE180DEL := EXECBLOCK("PLS180DEL",.F.,.F.)

PLSM220.PRW - PLSM220PRO() -> IF !LPLCONGUI .OR. ( LPLCONGUI .AND. EXECBLOCK("PLCONGUI", .F., .F., {@APTOENT,'1'}) )

PLSM220.PRW - PLSM220PRO() -> IF LPLCONGUI .AND. EXECBLOCK("PLCONGUI", .F., .F., {@APTOENT,'2'})

PLSM250.PRW - CARGABD7() -> CSQLBD7 += EXECBLOCK("PLRCTABB",.F.,.F.,{ })

PLSM250.PRW - PLSBD7RED() -> CSQLBD7 += EXECBLOCK("PLRCTABC",.F.,.F.,{ })

PLSM250.PRW - PLSBD7RED() -> CSQLBD7 += EXECBLOCK("PLRCTABD",.F.,.F.,{ })

PLSM260.PRW - M260B5AD() -> CSQLDEP := EXECBLOCK("P260B5AD",.F.,.F.,{CSQLDEP})

PLSM260.PRW - M260B5AD() -> LRETPTO := EXECBLOCK("PM260B5A",.F.,.F.,{TRBD->B5A_IDEREG,TRBD->(B5A_CODINT+B5A_CODEMP+B5A_MATRIC+B5A_TIPREG+B5A_DIGITO),TRBD->B5A_CPFTIT})

PLSM260.PRW - M260B5AT() -> CSQLB5A := EXECBLOCK("P260B5AI",.F.,.F.,{CSQLB5A})

PLSM260.PRW - M260B5AT() -> CUPD := EXECBLOCK("P260B5AT",.F.,.F.,{CUPD})

PLSM260.PRW - M260B5AT() -> LRETPTO := EXECBLOCK("PM260B5A",.F.,.F.,{TRBT->B5A_IDEREG,CCODINT+CCODEMP+CMATRIC+CTIPREG+CDIGITO,TRBT->B5A_CPFTIT})

PLSM260.PRW - M260CLASS() -> EXECBLOCK("PM260CLA",.F.,.F.,{ALLTRIM(STR(TRB1->RECB5A))})

PLSM260.PRW - M260CLASS() -> EXECBLOCK("PM260CLS",.F.,.F.,{ALLTRIM(STR(TRB1->RECB5A))})

PLSM260.PRW - M260FIN() -> CSQL := EXECBLOCK("PL260SE5",.F.,.F.,{CSQL})

PLSM260.PRW - M260FIN() -> CSQL := EXECBLOCK("PLM260CMP",.F.,.F.,{CSQL,"FIN",TRB2->PREFIXO,TRB2->NUMERO,TRB2->PARC,TRB2->TIPO})

PLSM260.PRW - M260FIN() -> CSQL := EXECBLOCK("PLM260FIN",.F.,.F.,{CSQLSEL,CSQLFRM,CSQLWHR})

PLSM260.PRW - M260FIN() -> EXECBLOCK("M260GRV",.F.,.F.,{B5A->(RECNO()),LGERREG})

PLSM260.PRW - M260GERREG() -> EXECBLOCK("M260GRV",.F.,.F.,{B5A->(RECNO()),.T.})

PLSM260.PRW - M260GPE() -> CSQL := EXECBLOCK("PLM260CMP",.F.,.F.,{CSQL,"GPE"})

PLSM260.PRW - M260GPE() -> EXECBLOCK("M260GRV",.F.,.F.,{B5A->(RECNO()),DGPE->TIPUSU != CCODTIT})

PLSM260.PRW - M260REEMB() -> CSQL := EXECBLOCK("M260SQRE",.F.,.F.,{CSQLSEL,CSQLFRM,CSQLWHR,CANOREF,CANOCAL})

PLSM260.PRW - M260REEMB() -> EXECBLOCK("M260GRV",.F.,.F.,{B5A->(RECNO()),LGERREG})

PLSM260.PRW - PL260BX() -> ARETBX := EXECBLOCK("M260BX",.F.,.F.,{CALIAS})

PLSM270.PRW - PROCESSADADOS() -> LCONTINUA:= EXECBLOCK( "PLSTMON1",.F.,.F.,{ CALIAS,( CALIAS )->REG, 1 } )

PLSM270B4O.PRW - PLGETGRUP() -> CRETGRU:= EXECBLOCK("PLSTMON3",.F.,.F.,{CCODPRO,CCODPADPRO})

PLSMCOB.PRW - PLSAVERNIV() -> ACLIFOR[1] := EXECBLOCK("PLSVRNIV", .F., .F., { CCODINT,CCODEMP,CNUMCON,CVERCON,;

PLSMCOB.PRW - PLSVLROPC() -> AAUX := EXECBLOCK(CRDMAKE,.F.,.F.,{CCODINT,CCODEMP,CMATRIC,CTIPREG,_CNIVEL,CCODPLA,CVERPLA,CCODPRO,CVERPRO,CFORPAG})

PLSMCOB.PRW - PLSVLRTXAD() -> AAUX := EXECBLOCK(CRDMAKE,.F.,.F.,{CCODINT,CCODEMP,CMATRIC,CTIPREG,ACOBTX,_CNIVEL,NVALOR})

PLSMCOB2.PRW - ANALISAUSR() -> CANOMESANT := EXECBLOCK("PLCOBDAT", .F., .F., {CANO, CMES})

PLSMCOB2.PRW - ANAREAJID() -> LMUDAFAIXA := EXECBLOCK("PLCB2MDF", .F., .F., {NIDADE,.T.,.F.,NIDADEPLA})

PLSMCOB2.PRW - ANAREAJID() -> LMUDAFAIXA := EXECBLOCK("PLCB2MDF", .F., .F., {NIDADE,LMUDAFAIXA,.F.,NIDADEPLA})

PLSMCOB2.PRW - ANAREAJID() -> LMUDAFAIXA := EXECBLOCK("PLCB2MDF", .F., .F., {NIDADE,LMUDAFAIXA,.T.,NIDADEPLA})

PLSMCOB2.PRW - AVALIALANC() -> LRET := EXECBLOCK('PLAVALAN',.F.,.F.)

PLSMCOB2.PRW - CALCPRORAT() -> NPERCMES := EXECBLOCK("PLPRORAT", .F., .F., {BA1->BA1_DATBLO, PLDAYVENCCOB(BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC)), .T.})[1]

PLSMCOB2.PRW - CHCKBENEFPATRONAL() -> ADADOSPE := EXECBLOCK("PLCPATRO", .F., .F., {CMATRICBENEFICIARO})

PLSMCOB2.PRW - MONTASB1() -> CCODEVE := EXECBLOCK("PLSTRLF",.F.,.F.,{CCODEVE,CCODPRO,COPEFAM})

PLSMCOB2.PRW - MONTATES() -> CCODEVE := EXECBLOCK("PLSTRLF",.F.,.F.,{CCODEVE,CCODPROPLS,COPEFAM})

PLSMCOB2.PRW - PLRPERPR() -> ADADOSPRORATA := EXECBLOCK("PLPRORAT", .F., .F., {DDTINC, NDIAVENCTO, LBLOQUEIO})

PLSMCOB2.PRW - PLSBUSFAI() -> ADADGPE := EXECBLOCK("PLSINTFOL",.F.,.F.,{CCODEVE,CMATUSU,CCODPLA,CVERPLA,COPEFAM,CTPPLAN,CCODFOR,CTPFORN,CSEQDEP,CPLANGPE,CVERBA})

PLSMCOB2.PRW - PLSBUSFAI() -> ADADGPE:=EXECBLOCK("PLSINTFOL",.F.,.F.,{CCODEVE,CMATUSU,CCODPLA,CVERPLA,COPEFAM,CTPPLAN,CCODFOR,CTPFORN,CSEQDEP,CPLANGPE,CVERBA})

PLSMCOB2.PRW - PLSBUSFAI() -> ARET := EXECBLOCK("PLSVLRFAM",.F.,.F.,{ARET,CMATRICFAM,CANO,CMES})

PLSMCOB2.PRW - PLSBUSFAI() -> ARETFUN := EXECBLOCK(AEVENTOSCB[NFOR,21],,.F.,.F.,{CMATRICFAM,CANO,CMES,CFORPAG,AUSUARIOS,LDIRETO,_CNIVEL,_CCHAVE,AEVENTOSCB,'1'})

PLSMCOB2.PRW - PLSBUSFAI() -> CANOMESANT := EXECBLOCK("PLCOBDAT", .F., .F., {CANO, CMES})

PLSMCOB2.PRW - PLSBUSFAI() -> CCARGO := EXECBLOCK("PLSOPCRG", .F., .F., {CCARGO,ARETOPC[NAUX]})

PLSMCOB2.PRW - PLSBUSFAI() -> LFATURA := EXECBLOCK( "PLSFTMCB", .F., .F., { _CNIVEL, _CCHAVE, CANO, CMES } )

PLSMCOB2.PRW - PLSBUSFSL() -> ADADGPE:=EXECBLOCK("PLSINTFOL",.F.,.F.,{CCODEVE,CMATUSU,CCODPLA,CVERPLA,COPEFAM,CTPPLAN,CCODFOR,CTPFORN,CSEQDEP,CPLANGPE,CVERBA})

PLSMCOB2.PRW - PLSBUSFSL() -> ARETFUN := EXECBLOCK(AEVENTOSCB[NFOR,21],.F.,.F.,{CMATRICFAM,CANO,CMES,CFORPAG,AUSUARIOS,LDIRETO,_CNIVEL,_CCHAVE,AEVENTOSCB,'1'})

PLSMCOB2.PRW - PLSBUSFSL() -> CANOMESANT := EXECBLOCK("PLCOBDAT", .F., .F., {CANO, CMES})

PLSMCOB2.PRW - PLSBUSFSL() -> LFATURA := EXECBLOCK("PLSFTMCB",.F.,.F.,{_CNIVEL,_CCHAVE,CANO,CMES})

PLSMCOB2.PRW - PLSCOBRETM() -> AVLPARCIAL := EXECBLOCK("PLSVLRFAM", .F., .F., { AVLPARCIAL, CMATRICFAM, CANO, CMES } )

PLSMCOB2.PRW - PLSCOBRETM() -> DDATAUX1 := EXECBLOCK("PLSDTRETRO", .F., .F., { CMES, CANO, DDATAUX2, AUSUARIOS[NFOR] } )

PLSMCOB2.PRW - PLSCOBRETM() -> DDATBASIDA := EXECBLOCK("PLSBSIDA", .F., .F., { "1",DDATBASIDA,AUSUARIOS[NFOR],CMES,CANO,CMATRICFAM})

PLSMCOB2.PRW - PLSLOADUSR() -> AUSUARIOS := EXECBLOCK("PLSLOADU",.F.,.F.,{AUSUARIOS,COPEFAM,CCODEMP,CMATRIC,CANO,CMES})

PLSMCOB2.PRW - PLSMONVER() -> ADADGPE:=EXECBLOCK("PLSINTFOL",.F.,.F.,{AESPBK2[NFOR][10]+AESPBK2[NFOR][6],CMATUSR,BA3->BA3_CODPLA,BA3->BA3_VERSAO,BA3->BA3_CODINT,ARET[NPOS][45],ARET[NPOS][47],ARET[NPOS][46],ARET[NPOS][48],ARET[NPOS][49],ARET[NPOS][22]})

PLSMCOB2.PRW - PLSMONVER() -> ARETAUX := EXECBLOCK(CRDMAKE,.F.,.F.,{DDATA,CANO,CMES,BKJ->BKJ_FAIDES,ATOTLAN,I})

PLSMCOB2.PRW - PLSMONVER() -> LOCAL ARETLCT := IF(LPLSLCTODIF,EXECBLOCK("PLSLCTODIF",.F.,.F.),{})

PLSMCOB2.PRW - PLSPRUSU() -> NDIARET := EXECBLOCK("PLSCBDR", .F.,.F., { BA3->BA3_CODINT, BA3->BA3_GRPCOB, CANO, CMES, RIGHT(DTOS(DDATABASE),2), NDIARET } )

PLSMCOB2.PRW - PLSRETFCPF() -> ARETURN := EXECBLOCK("PLRETFCPF",.F.,.F.,{CCODINT,CCODEMP,CNUMCON,CVERCON,CSUBCON,CVERSUB,CCODPLA,CVERPLA,CTIPOUS,ARET})

PLSMCOB2.PRW - PLSSLDDCF() -> AVALORES := EXECBLOCK("PLSBSQES",.F.,.F.,{AVALORES,COPEFAM})

PLSMCOB2.PRW - PLSSLDDCF() -> CSQL += EXECBLOCK("PLSDCFAT",.F.,.F.,{CCODLAN})

PLSMCOB2.PRW - PLSSLDDCF() -> LSKIP := EXECBLOCK("PLSFILDC",.F.,.F.,{(PLSSLDDCF)->BSQ_CODLAN,(PLSSLDDCF)->BSQ_USUARI,(PLSSLDDCF)->R_E_C_N_O_})

PLSMCOB2.PRW - PLSTXADOP() -> LESPECIFICO := EXECBLOCK("PLCBTXUS", .F., .F., {ARETOPC,COPEFAM+CCODEMP+CMATRIC+CTIPREG+CDIGITO, NPOSVAL} )

PLSMCOB2.PRW - PLSVALADE() -> AESPECIFICO := EXECBLOCK("PLVALAD1", .F., .F., {COPEFAM+CCODEMP+CMATRIC+AUSUARIOS[NFOR,01], CANO, CMES})

PLSMCOB2.PRW - PLSVALADE() -> DDATBASIDA := EXECBLOCK("PLSBSIDA",.F.,.F.,{"3",DDATBASIDA,AUSUARIOS[NFOR],CMES,CANO,CMATRICFAM})

PLSMCOB2.PRW - PLSVALADE() -> NVALORFAIXA := EXECBLOCK("PLVALAD2", .F., .F., {COPEFAM+CCODEMP+CMATRIC+AUSUARIOS[NFOR,01], NVALORFAIXA, AESPECIFICO})

PLSMCOB2.PRW - PLSVALOPC() -> ADESCESPC := EXECBLOCK("PLSDSCOP", .F., .F., {_CNIVEL,_CCHAVE,AUSUARIOS[NPOSUSR],;

PLSMCOB2.PRW - PLSVALOPC() -> ARETPTO := EXECBLOCK("PLSFTBZX",.F.,.F.,{CSQL})

PLSMCOB2.PRW - PLSVALOPC() -> ARETPTO := EXECBLOCK("PLSFTOPC",.F.,.F.,{CSQL})

PLSMCOB2.PRW - PLSVALOPC() -> AVALORES := EXECBLOCK("PLSVLROP",.F.,.F.,{AVALORES,CMATRICFAM,CANO,CMES})

PLSMCOB2.PRW - PLSVALOPC() -> BVLDOPCPAD := EXECBLOCK("PLSFCOV",.F.,.F.,{(PLSOPCUSR)->REGBF4,CANO,CMES})

PLSMCOB2.PRW - PLSVALOPC() -> DDATBASIDA := EXECBLOCK("PLSBSIDA",.F.,.F.,{"2",DDATBASIDA,AUSUARIOS[NPOSUSR],CMES,CANO,CMATRICFAM})

PLSMCOB2.PRW - PLSVALOPC() -> LDESCONTO := EXECBLOCK("PLSDSCMN", .F., .F., {_CNIVEL,_CCHAVE,AUSUARIOS[NPOSUSR]})

PLSMCOB2.PRW - PLSVLRCOB() -> AADD( ABUTTONS, {"RELATORIO",{|| EXECBLOCK("PLDETCOB",.F.,.F.,{AVALOR[2],AJAFAT[2]}) },STR0010,STR0011})

PLSMCOB2.PRW - PLSVLRCOB() -> AVALOR:= EXECBLOCK("PLCOBFAT",.F.,.F.,{ AVALOR, AJAFAT, CANO, CMES, BA3->(RECNO()) })

PLSMCOB2.PRW - PLSVLRFAI() -> AVALORES := EXECBLOCK("PLSVLRFX",.F.,.F.,{AVALORES,CMATRICFAM,CANO,CMES,CFORPAG})

PLSMCOB2.PRW - PLSVLRFAI() -> DDATBASIDA := EXECBLOCK("PLSBSIDA",.F.,.F.,{"1",DDATBASIDA,AUSUARIOS[NFOR],CMES,CANO,CMATRICFAM})

PLSMCOB2.PRW - PLSVLRFAI() -> LDESCONTO := EXECBLOCK("PLSBA3DM", .F., .F., {_CNIVEL,_CCHAVE,AUSUARIOS[NFOR],LDESCONTO})

PLSMCOB2.PRW - PLSVLRFAI() -> LDESCONTO := EXECBLOCK("PLSDSCMN", .F., .F., {_CNIVEL,_CCHAVE,AUSUARIOS[NFOR]})

PLSMCOB2.PRW - PLSVLRFAM() -> AAUXRET := EXECBLOCK("PLSTRSLD",.F.,.F.,{ARET,CANO,CMES,BA3->BA3_CODINT,BA3->BA3_CODEMP,BA3->BA3_MATRIC,DDATA,BA3->BA3_CODPLA,BA3->BA3_VERSAO,AFOCOPF})

PLSMCOB2.PRW - PLSVLRFAM() -> ARETPER := EXECBLOCK("PL627PER",.F.,.F.,{ARET,SUBSTR(CMATRIC,1,4),SUBSTR(CMATRIC,5,4),SUBSTR(CMATRIC,9,6),CANO,CMES,AEVENTOSCB,ALANUSU,CNUMCOB,NVALTOT})

PLSMCOB2.PRW - PLSVLRFAM() -> ARETPTO := EXECBLOCK("PLSVLRFM",.F.,.F.,{ARET,CMATRIC,CANO,CMES,AJAFAT,ARETMOV,{},ARETACF,ARETACU,CFORPAG})

PLSMCOB2.PRW - PLSVLRFAM() -> CANOMESANT := EXECBLOCK("PLCOBDAT", .F., .F., {CANO, CMES})

PLSMCOB2.PRW - PLSVLRFSL() -> ARETPTO := EXECBLOCK("PLSVLRB1C",.F.,.F.,AVALORES)

PLSMCOB2.PRW - PLSVLRFSL() -> DDATBASIDA := EXECBLOCK("PLSBSIDA",.F.,.F.,{"4",DDATBASIDA,AUSUARIOS[NFOR],CMES,CANO,CMATRICFAM})

PLSMCOB2.PRW - PLSVLRPF() -> CSQL += EXECBLOCK('PLSPARFI', .F., .F.)

PLSMCOB2.PRW - PLSVLRRP() -> DDATBASIDA := EXECBLOCK("PLSBSIDA",.F.,.F.,{"4",DDATBASIDA,AUSUARIOS[NFOR],CMES,CANO,CMATRICFAM})

PLSMCON.PRW - PLPESPFS1|() -> EXECBLOCK("PLPESPFS1",.F.,.F.)

PLSMCON.PRW - PLSABEN() -> ABROWPRO := EXECBLOCK("PLSMATRMB",.F.,.F.)

PLSMCON.PRW - PLSAPCREPQ() -> CSQL := EXECBLOCK("PLPESRDA",.F.,.F.,{CSQLSEL,CSQLFRM,CSQLWHR,CSQLGRP,CSQLORD})

PLSMCON.PRW - PLSAPPFSPQ() -> CSQL := EXECBLOCK("PLPESPRF",.F.,.F.,{CSQLSEL,CSQLWHR,CSQLFRM,CSQLORD})

PLSMCON.PRW - PLSAPUSRPQ() -> TRBPES->(AADD(ABROWUSR,{IF(LEXISTEBLOC,EXECBLOCK('PLSMCORF3',.F.,.F.,{BA1_CODINT+"."+BA1_CODEMP+"."+BA1_MATRIC+"-"+BA1_TIPREG+"-"+BA1_DIGITO,BA1_MOTBLO,BA1_DATBLO,BA1_DATINC}),CCOR),;

PLSMCON.PRW - PLSMBUSCA() -> BA1->(AADD(ABROWUSR,{IF(LEXISTEBLOC,EXECBLOCK('PLSMCORF3',.F.,.F.,{BA1->BA1_CODINT+"."+BA1->BA1_CODEMP+"."+BA1->BA1_MATRIC+"-"+BA1->BA1_TIPREG+"-"+BA1->BA1_DIGITO}),PLLEGBLOQ()),BA1->BA1_CODINT+"."+BA1->BA1_CODEMP+"."+BA1->BA1_MATRIC+"-"+BA1->BA1_TIPREG+"-"+BA1->BA1_DIGITO,;

PLSMCON.PRW - PLSPEGRAU() -> LRET := EXECBLOCK("PLSPES",.F.,.F.,{CCODPAD})

PLSMCON.PRW - PLSPESPFS() -> ABTAUX := EXECBLOCK("PLSBTPFS",.F.,.F.,{ABUTTONS})

PLSMCON.PRW - PLSPESPROC() -> LRET := EXECBLOCK("PLSPESPR",.F.,.F.,{CCODPAD})

PLSMCTMD.PRW - PLSCUSTMOV() -> CSQL := EXECBLOCK("PLMCTCUS",.F.,.F.,{CSQL})

PLSMCTMD.PRW - PLSMOVMC() -> ADADBEA := EXECBLOCK("PLMVMBEA",.F.,.F.,{ADADBEA})

PLSMCTMD.PRW - PLSMOVMC() -> ARETPTO := EXECBLOCK("PLCODCONS",.F.,.F.,{NREGBBD,CCODPAD,CCODPRO,CCODLOC,CCODESP})

PLSMCTMD.PRW - PLSNOTXBDH() -> EXECBLOCK("PLSPTXDH", .F., .F., { CSTATUS, COPEFAT, CNUMFAT, CPREFIXO + CTITULO + CPARCELA + CTIPOTIT, LINTERC, LATUBDH, ACABUPT } )

PLSMCTMD.PRW - PLSPRRDAP() -> EXECBLOCK("PLSBE9SK",.F.,.F.,{CCODRDA,COPERDA,CCODLOC,CCODESP,CCODPLA,CCODPAD,CCODPRO,1})

PLSMCTMD.PRW - PLSRESTOP() -> APLEMPFIL := EXECBLOCK("PLEMPFIL",.F.,.F.,{CTIPO, CALIAS})

PLSMCTMD.PRW - PLSTIPOCOP() -> AAUX := EXECBLOCK("PLTIPATO",.F.,.F.,{CATO, BD7->BD7_CODPAD, BD7->BD7_CODPRO,ARET,0,BD7->BD7_PERCEN, BD6->BD6_DATPRO, CTIPOVLR})

PLSMCTMD.PRW - PLSUSRINTE() -> XINTERNADO := EXECBLOCK("PLSUSRIN",.F.,.F.,{CTIPGUI,CMATRICUSR,DDATAANALISE,CHORPRO,LCAMPOS,LCONFOR,CALIAS,COPEUSR,CCODEMP,CMATRIC,CTIPREG})

PLSMCTMD.PRW - PLSVLDNIMP() -> LRET := EXECBLOCK("PLSVLDIM",.F.,.F.,{CNUMIMP,CCODRDA})

PLSMCTMD.PRW - PLSXMUDFAS() -> ARETAUX := EXECBLOCK(BCL->BCL_FUNMFS,.F.,.F.,{CALIAS,CTIPO,CCODOPE,CTIPGUIA,&CCPOFASE,;

PLSMFUN.PRW - MNTPLSCI() -> ACTIVATE MSDIALOG ODLG ON INIT (EVAL(AOBJGD[1]:BGOTFOCUS,AOBJGD[1]:OBROWSE:OBROWSE),EVAL({ || ENCHOICEBAR(ODLG,{|| NOPCA := 1,PLSENDBRW(),IF(OFOLDER#NIL,/*EVAL(AOBJGD[OFOLDER:NOPTION]:BLOSTFOCUS,AOBJGD[OFOLDER:NOPTION] )*/.T.,.T.),IIF(EXISTBLOCK("PLSMNCIVLD"),EXECBLOCK("PLSMNCIVLD",.F.,.F.),.T.),IF(OBRIGATORIO(AGETS,ATELA),ODLG:END(),NOPCA:=2),IF(NOPCA==1,ODLG:END(),.F.) },{||ODLG:END()},.F.,XABUTTONS)  }))

PLSMFUN.PRW - MNTPLSCI() -> EXECBLOCK("PL226FIM", .F., .F.,{NOPCX})

PLSMFUN.PRW - PLSATUAGE() -> EXECBLOCK("PLSATUAG",.F.,.F.)

PLSMFUN.PRW - PLSBIOMET() -> LVALBIO:= EXECBLOCK('PLBIOMET',.F.,.F.,{CALIAS,CID,LVALIDOPE,CTIPO, CUSR})

PLSMFUN.PRW - PLSCLACAR() -> ACLASSES := EXECBLOCK("PLSCLACA",.F.,.F.,{ACLASSES,ADADUSR})

PLSMFUN.PRW - PLSDADUSR() -> ARETPTOENT := EXECBLOCK("PLSXRGCP",.F.,.F.,{BA3->BA3_CODPLA,BA3->BA3_VERSAO,BA1->BA1_CODPLA,BA1->BA1_VERSAO,BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC)})

PLSMFUN.PRW - PLSDADUSR() -> EXECBLOCK("PLSDDUSR",.F.,.F.,{BA1->BA1_CODINT})

PLSMFUN.PRW - PLSEXPIVL() -> AVALOR := EXECBLOCK("PLSCTVL",.F.,.F.,{AVALOR,CCODINT,CCODEMP,CCONEMP,CVERCON,CCODPLA,CVERPLA,CTIPOGRU,NVIATOT,;

PLSMFUN.PRW - PLSGRVTCP() -> EXECBLOCK("PLSGERTG",.F.,.F.)

PLSMFUN.PRW - PLSISCON() -> ARET := EXECBLOCK("PLSISCON",.F.,.F.)

PLSMFUN.PRW - PLSPORSEN() -> EXECBLOCK("PL226SEN", .F., .F.,{CSENHA})

PLSMFUN.PRW - PLSRETAULI() -> APERET09S := EXECBLOCK("PL09009S",.F.,.F.,{BEA->(BEA_OPEMOV+BEA_ANOAUT+BEA_MESAUT+BEA_NUMAUT),BE2->BE2_SEQUEN,LWEB})

PLSMFUN.PRW - PLSRETPA() -> NRET := EXECBLOCK("PLSPAESP",.F.,.F.,{NRET,CCODINT,CANO,CMES,ARET,CCODEMP,CCODRDA,CCODLOC,CCDPRODUTO,CVRPRODUTO,CESPEC,AVLBLOQ})

PLSMFUN.PRW - PLSRQCON() -> ARET := EXECBLOCK("PLSISCON",.F.,.F.)

PLSMFUN.PRW - PLSTRANGU() -> EXECBLOCK("PLTRANGU",.F.,.F.,{CCODOPE,CCODLDP,CCODPEG,BCI->BCI_TIPGUI})

PLSMFUN.PRW - PLSVLDHOR() -> LRET := EXECBLOCK("PLSVLDHR",.F.,.F.,{CHORA})

PLSMFUN.PRW - PLSVLDOBS() -> CTIPINT := EXECBLOCK("PLS500EX",.F.,.F.,{ M->BE4_GRPINT, M->BE4_TIPINT })

PLSMFUN.PRW - PLSVLDOPER() -> ARETUSR:= EXECBLOCK("PLSUSRBIO",.F.,.F.)

PLSMILE.PRW - GRAVADAD() -> EXECBLOCK("PLSMPOSE",.F.,.F.,{{.T.,CLAYOUT},;

PLSMILE.PRW - GRAVADAD() -> EXECBLOCK(CFPOSEXE,.F.,.F.,{{.T.,CLAYOUT},;

PLSMILE.PRW - GRAVADAD() -> LRET := EXECBLOCK("PLSMVALO",.F.,.F.,{{.T.,CLAYOUT},;

PLSMILE.PRW - GRAVADAD() -> LRET := EXECBLOCK(CFVLDOPE,.F.,.F.,{{.T.,CLAYOUT},;

PLSMILE.PRW - GRAVADAD() -> LVLDOPE := EXECBLOCK("PLMOVAO",.F.,.F.,{ {.T.,CLAYOUT},{.F.,CLINE,AMATLINE,ADADCON,{},AREG},{CFILE,'',CTIPOPEI,CTIPOPEA,ADADXZ5},NIL })

PLSMILE.PRW - GRAVADAD() -> LVLDOPE := EXECBLOCK(CFVLDOPE,.F.,.F.,{ {.T.,CLAYOUT},{.F.,CLINE,AMATLINE,ADADCON,{},AREG},{CFILE,'',CTIPOPEI,CTIPOPEA,ADADXZ5},NIL })

PLSMILE.PRW - GRAVADAD() -> OMODEL := EXECBLOCK("PLSMPREE",.F.,.F.,{{.T.,CLAYOUT},;

PLSMILE.PRW - GRAVADAD() -> OMODEL := EXECBLOCK("PLSMTRAD",.F.,.F.,{{.T.,CLAYOUT},;

PLSMILE.PRW - GRAVADAD() -> OMODEL := EXECBLOCK(CFTRADAD,.F.,.F.,{{.T.,CLAYOUT},;

PLSMILE.PRW - GRAVADAD() -> XRET := EXECBLOCK(CFUNNAME,.F.,.F.,{ADADCON})

PLSMILE.PRW - RETDAD() -> LRET := EXECBLOCK(CPOSEXE,.F.,.F.,{AREG})

PLSMLIB.PRW - PLVLRFAI() -> NRET := EXECBLOCK("PLVLRFAI",.F.,.F.)

PLSMLIB.PRW - SEEKBB8ESP() -> LRET := EXECBLOCK("PLSBB8SK",.F.,.F.,{LRET,CCODRDA,CCODINT,SUBS(CCODLOC,1,3)})

PLSMLIB2.PRW - PLRECHVEST() -> ARET := EXECBLOCK("PLRECEST",.F.,.F.,{CALIAS,LUSUARIO,LRDA,LMOVTO,LFATUR,LINDREGUA,LWHILE,ARET})

PLSMPAG.PRW - ATUALIZAGUIAPAGTO() -> CSQL += EXECBLOCK("PLLIMBD7",.F.,.F.,{"BD5"})

PLSMPAG.PRW - ATUALIZAGUIAPAGTO() -> CSQL += EXECBLOCK("PLLIMBD7",.F.,.F.,{"BD6"})

PLSMPAG.PRW - ATUALIZAGUIAPAGTO() -> CSQL += EXECBLOCK("PLLIMBD7",.F.,.F.,{"BD7"})

PLSMPAG.PRW - ATUALIZAGUIAPAGTO() -> CSQL += EXECBLOCK("PLLIMBD7",.F.,.F.,{"BE4"})

PLSMPAG.PRW - GRAVABMR() -> EXECBLOCK("PLGRBMR",.F.,.F.,{ABMR})

PLSMPAG.PRW - PLCANCRE() -> EXECBLOCK("PLSE2EXC",.F.,.F.)

PLSMPAG.PRW - PLGERCRE() -> ARETPTOENT := EXECBLOCK("PLSPGSC7",.F.,.F.,{ACAB,AITENS,ASALDO,NDESCC7})

PLSMPAG.PRW - PLGERCRE() -> ARETPTOENT := EXECBLOCK("PLSPGSC7",.F.,.F.,{ACAB,AITENS,ASALDO})

PLSMPAG.PRW - PLGERCRE() -> ARETVLRNF := EXECBLOCK("PLVLRNF",.F.,.F.,{ ASALDO, CANO, CMES, CPREFIXO, CNUMERO })

PLSMPAG.PRW - PLGERCRE() -> CNATUREZ := EXECBLOCK("PLNATESP",.F.,.F.)

PLSMPAG.PRW - PLGERCRE() -> EXECBLOCK("PLSPAG02",.F.,.F.,{CCODOPE,CCODRDA,COPELOTE,CANO,CMES,SUBS(CLOTE,7,4), NVLRSE2, NVLRIMP})

PLSMPAG.PRW - PLGERCRE() -> EXECBLOCK("PLSPGSRC",.F.,.F.,{BAU->BAU_CODIGO,CLOTE})

PLSMPAG.PRW - PLSATUVINP() -> CSQL += EXECBLOCK("PLMPACTA",.F.,.F.,{})

PLSMPAG.PRW - PLSATUVINP() -> CSQL += EXECBLOCK("PLMPALAN", .F., .F., {})

PLSMPAG.PRW - PLSATUVINP() -> CSQL += EXECBLOCK("PLMPALAN",.F.,.F.,{})

PLSMPAG.PRW - PLSATUVINP() -> EXECBLOCK("PLLIMBD7",.F.,.F.,{})

PLSMPAG.PRW - PLSATUVINP() -> EXECBLOCK("PLPAGBD7", .F., .F., { CCHAVEGUI } )

PLSMPAG.PRW - PLSATUVINP() -> EXECBLOCK("PLPAGBD7",.F.,.F.,{CCHAVEGUI})

PLSMPAG.PRW - PLSINTGPE() -> AIRRF := EXECBLOCK("PLPAGANT",.F.,.F.,{CCODRDA,CANO,CMES,AIRRF})

PLSMPAG.PRW - PLSLDCRE() -> CSQL += EXECBLOCK("PLMPALAN",.F.,.F.,{})

PLSMPAG.PRW - PLSLDCRE() -> EXECBLOCK("PLPAGBD7",.F.,.F.,{CCHAVEGUI})

PLSMPAG.PRW - PLSLDCRE() -> EXECBLOCK("PLSPAG01",.F.,.F.,{CCODRDA,CANO,CMES,CCODLAN,NSALDO,LGERLOT})

PLSMPAG.PRW - PLSVALPAG() -> AADDBUTTONS:=EXECBLOCK("PLPGBUT",.F.,.F.)

PLSMVLD.PRW - PLSVLDFIN() -> ARETFUN := EXECBLOCK("PLSAUTF1",.F.,.F.,{ARETFUN,CMATRIC,DDATA,CLOCALEXEC})

PLSMVLD.PRW - PLSVLDFIN() -> LOCAL BPONTO  := { || IF(EXISTBLOCK("PLSAUTF2"),EXECBLOCK("PLSAUTF2",.F.,.F.),.T.) }

PLSP500.PRW - A500PQNOTA() -> ARETPTO := EXECBLOCK("PLS500PN",.F.,.F.,{LEXISTE,CALIASPLS,CNOTA,CSENHAPLS,CMATRCOB,ADADRDA,CUNIORI,CCODSEQ})

PLSP500.PRW - A500PQNOTA() -> EXECBLOCK("PLS500PQ",.F.,.F.,{CALIASPLS,CNROIMP,LEXISTE,PLSA500GCF("R502","NR_NOTA")})

PLSP500.PRW - APPFROMTXT() -> CLINE := EXECBLOCK("PLS500LI",.F.,.F.,{CLINE})

PLSP500.PRW - ATUGIHR503() -> EXECBLOCK("PLS500IN",.F.,.F.,{ PLSA500GCF("R503","TP_INTERNA") })

PLSP500.PRW - ATUSEQEV() -> EXECBLOCK("PLS500AP",.F.,.F.,{CALIAS,CCODOPE,CCODLDP,CCODPEG,CNUMERO,CORIMOV,CCODSEQ,&(CALIAS+"->"+CALIAS+"_NUMIMP")})

PLSP500.PRW - CONFNOTA() -> CVARSER := EXECBLOCK("PL500CFN",.F.,.F.,{PLSA500GCF("R504","CD_SERVICO"),CUNIORI,CDATAPRO,CCHAVEMAT})

PLSP500.PRW - CRIAEVENTO() -> CBLOPAG := EXECBLOCK("P500BLPG",.F.,.F.,{"CO",CBLOPAG})

PLSP500.PRW - CRIAEVENTO() -> CBLOPAG := EXECBLOCK("P500BLPG",.F.,.F.,{"FILME",CBLOPAG})

PLSP500.PRW - CRIAEVENTO() -> CBLOPAG := EXECBLOCK("P500BLPG",.F.,.F.,{"PPM",CBLOPAG})

PLSP500.PRW - CRIAEVENTO() -> EXECBLOCK("PLS500CG",.F.,.F.)

PLSP500.PRW - CRIAGUIAHS() -> EXECBLOCK("P500GRVGUI",.F.,.F.,{"BE4"})

PLSP500.PRW - CRIAGUIASV() -> EXECBLOCK("P500GRVGUI",.F.,.F.,{"BD5"})

PLSP500.PRW - MENUDEF() -> AITENS := EXECBLOCK("PL500MNU",.F.,.F.)

PLSP500.PRW - PLSA500GCF() -> CRET := EXECBLOCK("P500GCF",.F.,.F.,{CTIPREG,CDADO,CSEQ,CRET})

PLSP500.PRW - PLSCONTPA() -> AUNIDADES := EXECBLOCK("PL500TPA",.F.,.F.,{AUNIDADES})

PLSP500.PRW - PLSED500CN() -> EXECBLOCK("PLSP500E",.F.,.F.)

PLSP500.PRW - PROCA50() -> ARECNOSGER := ACLONE(EXECBLOCK("PL500MF",.F.,.F.,{ARECNOSGER}))

PLSP500.PRW - PROCA50() -> ARESUMO := EXECBLOCK("PL500AC",.F.,.F.,{LIMPORTAR,LFATAL,CCODSEQ,NTOTAPRIMP,_VL_TOT_FAT,ARESUMO})

PLSP500.PRW - PROCA50() -> CVARSER := EXECBLOCK("PL500CFN",.F.,.F.,{PLSA500GCF("R504","CD_SERVICO"),CUNIORI,CDATAPRO,CCHAVEMAT})

PLSP500.PRW - PROCA50() -> EXECBLOCK("PL500FIM",.F.,.F.,{CCODSEQ})

PLSP500.PRW - PROCA50() -> EXECBLOCK("PLS500AF",.F.,.F.,{ARESUMO})

PLSP500.PRW - PROCA50() -> LFOUNDUSR := EXECBLOCK("PLS500PU",.F.,.F.,{PLSA500GCF("R502","CD_UNI"),PLSA500GCF("R502","ID_BENEF")})

PLSP500X.PRW - DEPARA() -> ARETPE := EXECBLOCK("DEPARAIMP",.F., .F. ,{CCODPAD,CCODPRO2,DDTEXEC,BCI->BCI_CODRDA})

PLSP550X.PRW - MARQ560() -> ANFE := EXECBLOCK("PLSR506",.F.,.F.,{"1"})

PLSPADRC.PRW - MDCOMMIT() -> EXECBLOCK("PLALTB72", .F., .F., {CCHAVEPESQ})

PLSPADRC.PRW - VWOKBUTTONVLD() -> LRET := EXECBLOCK("PLPADRCPA",.F.,.F.,OMODELD)

PLSPTU.PRW - PTULN() -> LGERATPREG := EXECBLOCK("PLSPTUREG",.F.,.F.,{CNOMLAY,CTIPREG})

PLSR430N.PRW - R430NIMP() -> ASADT:=EXECBLOCK("PLR430SADT",.F.,.F.,{ASADT})

PLSR441.PRW - GETTRBQUERY() -> CQUERY := EXECBLOCK("PLR44XP3",.F.,.F.,{ '441'+ATIPREL[MV_PAR07], CQUERY } )

PLSR442.PRW - GETTRBQUERY() -> CQUERY := EXECBLOCK("PLR44XP3",.F.,.F.,{ '442'+ATIPREL[MV_PAR06], CQUERY } )

PLSR442.PRW - GETTRBQUERY() -> CQUERY+= EXECBLOCK("PLR44XP1",.F.,.F.,{ '442' + ATIPREL[MV_PAR06] })

PLSR443.PRW - GETTRBQUERY() -> CQUERY := EXECBLOCK("PLR44XP3",.F.,.F.,{ '443'+ATIPREL[MV_PAR07], CQUERY } )

PLSR444.PRW - GETTRBQUERY() -> CQUERY := EXECBLOCK("PLR44XP3",.F.,.F.,{ '444'+ATIPREL[MV_PAR07], CQUERY } )

PLSR445.PRW - GETTRBQUERY() -> CQUERY := EXECBLOCK("PLR445F7",.F.,.F.,{ CQUERY })

PLSR461.PRW - GETTRBQUERY() -> APTOTPDOC := EXECBLOCK("PLR46XP2",.F.,.F.,{ '461'+ATIPREL[MV_PAR07] })

PLSR461.PRW - GETTRBQUERY() -> CWHERE := EXECBLOCK("PLR46XP3",.F.,.F.,{ '461'+ATIPREL[MV_PAR07] })

PLSR462.PRW - GETTRBQUERY() -> APTOTPDOC := EXECBLOCK("PLR46XP2",.F.,.F.,{ '462'+ATIPREL[MV_PAR06] })

PLSR462.PRW - GETTRBQUERY() -> CWHERE := EXECBLOCK("PLR46XP3",.F.,.F.,{ '462'+ATIPREL[MV_PAR06] })

PLSR463.PRW - GETTRBQUERY() -> APTOTPDOC := EXECBLOCK("PLR46XP2",.F.,.F.,{ '463'+ATIPREL[MV_PAR07] })

PLSR463.PRW - GETTRBQUERY() -> CWHERE := EXECBLOCK("PLR46XP3",.F.,.F.,{ '463'+ATIPREL[MV_PAR07] })

PLSR464.PRW - GETTRBQUERY() -> APTOTPDOC := EXECBLOCK("PLR46XP2",.F.,.F.,{ '464'+ATIPREL[MV_PAR07] })

PLSR464.PRW - GETTRBQUERY() -> CWHERE := EXECBLOCK("PLR46XP3",.F.,.F.,{ '464'+ATIPREL[MV_PAR07] })

PLSR580.PRW - R580IMP() -> AMSGBOLETO := EXECBLOCK("PL580MSB",.F.,.F.)

PLSR580.PRW - R580IMP() -> AMSGCORPO := EXECBLOCK("PL580MGC",.F.,.F.)

PLSR580.PRW - R580IMP() -> AOBSERVACOES := EXECBLOCK("PL580MSO",.F.,.F.)

PLSR580.PRW - RETDADOS() -> ARET := EXECBLOCK("PL580CDB",.F.,.F., { CPREFIXO ,CNUMERO ,CPARCELA ,CTIPO ,CBANCO ,CAGENCIA ,CCONTA ,CDACCC ,CNRODOC ,NVALOR ,CCART ,CMOEDA, CESPEC, CACEITE } )

PLSR580.PRW - RETDADOS() -> ARETNNUM := EXECBLOCK("PL580NNU",.F.,.F., { NNUM ,CDIGNOSSO } )

PLSRECGLO2.PRW - FILVIEWB4E() -> LRET := EXECBLOCK("PRGLOFLD",.F.,.F., {LRET, CCAMPO})

PLSRETCOP.PRW - ANALQTDCO2() -> CSQL += EXECBLOCK("PLSQD6CP",.F.,.F.,{BR8->BR8_NIVEL,NINDICE,CCODNIV,NGRAVI,ANIVEIS,CCODPAD,CCODPRO})

PLSRETCOP.PRW - ANALQTDCO2() -> CSQL += EXECBLOCK("PLSQD6CT",.F.,.F.,{CCODPAD})

PLSRETCOP.PRW - ANALQTDCO2() -> CSQL += EXECBLOCK("PLSQD6DT",.F.,.F.,{CDATINI, CDATFIM, DDATPRO})

PLSRETCOP.PRW - ANALQTDCOP() -> CSQL += EXECBLOCK("PLSQD6CP",.F.,.F.,{BR8->BR8_NIVEL,NINDICE,CCODNIV,NGRAVI,ANIVEIS,CCODPAD,CCODPRO})

PLSRETCOP.PRW - ANALQTDCOP() -> CSQL += EXECBLOCK("PLSQD6CT",.F.,.F.,{CCODPAD})

PLSRETCOP.PRW - PLSCALCCOP() -> ARDAS := EXECBLOCK("PLSRTCP1",.F.,.F.,{ARDAS,ADADUSR,COPERDA,CTIPPREFOR,ASVRDAS})

PLSRETCOP.PRW - PLSCALCCOP() -> ARETCOBLIQ := EXECBLOCK("PLSCBVPG", .F., .F., { NVLRPAGBRU, NVLRAPR, CCODPAD, CCODPRO, CTIPPRE, NQTD, ARETDAD } )

PLSRETCOP.PRW - PLSCALCCOP() -> ARETPTO := EXECBLOCK("PLSRETC2",.F.,.F.,APARPTOENT)

PLSRETCOP.PRW - PLSCALCCOP() -> ARETPTO := EXECBLOCK("PLSRETCP",.F.,.F.,APARPTOENT)

PLSRETCOP.PRW - PLSCALCCOP() -> ARETPTO := EXECBLOCK("PLSMBLF",.F.,.F.,APARPTOENT)

PLSRETCOP.PRW - PLSGRUOPE() -> ARETPTO := EXECBLOCK("PLSGROPE",.F.,.F.,{CTIPO,COPEORI,DDATANALISE,CCODPRO,CCODPAD,CCODPLA,CGRUOPE})

PLSRETCOP.PRW - PLSTABCOP() -> CSQL := EXECBLOCK("PLSPFBHI",.F.,.F.,CSQL)

PLSRETCOP.PRW - QTDEVECOP() -> CSQL += EXECBLOCK("PLSQD6CP",.F.,.F.,{BR8->BR8_NIVEL,NINDICE,CCODNIV,NGRAVI,ANIVEIS,CCODPAD,CCODPRO})

PLSRETCOP.PRW - QTDEVECOP() -> CSQL += EXECBLOCK("PLSQD6CT",.F.,.F.,{CCODPAD})

PLSRETCOP.PRW - QTDEVECOP() -> CSQL += EXECBLOCK("PLSQD6DT",.F.,.F.,{CDATINI, CDATFIM, DDATPRO})

PLSSQLEXEC.PRW - PLSCRIGEN() -> AADD(ABUTTONS, {"RELATORIO",{ || EXECBLOCK("PLSCRIGB",.F.,.F.,{ADADOS,ACABEC,CTITULO,CTPREL,NTMREL}) },"IMPRIMIR"} )

PLSSQLEXEC.PRW - PSILCRIGEN() -> AADD(ABUTTONS, {"RELATORIO", {|| EXECBLOCK(CRDMAKE,.F.,.F.,{ADADOS,ACABEC,CTITULO,CTPREL,NTMREL}) }, "IMPRIMIR"})

PLSTISS.PRW - PLSSADT1() -> LIMPPRC := EXECBLOCK("PLSGTISS",.F.,.F.,{"02",LIMPPRC})

PLSTISS.PRW - PLSTISS3() -> LIMPPRC := EXECBLOCK("PLSGTISS",.F.,.F.,{"03",LIMPPRC})

PLSTISS2.PRW - PLSTISSC() -> LIMPPRC := EXECBLOCK("PLSGTISS",.F.,.F.,{"02",LIMPPRC})

PLSTISS2.PRW - PLSTISSP() -> LIMPPRC := EXECBLOCK("PLSGTISS",.F.,.F.,{"03",LIMPPRC})

PLSTISSON.PRW - BUSCACREDE()() -> CSQL := EXECBLOCK("PLQRYTISS",.F.,.F.,{"1", CSQL, CCODRDA, CDATPAG, CCOMPETEN, CPEGINSQL })

PLSTISSON.PRW - QDEMOPAG() -> CSQL := EXECBLOCK("PLQRYTISS",.F.,.F.,{"1", CSQL, CCODRDA, CDATPAG, CCOMPETEN, CPEGINSQL })

PLSTOSE1.PRW - PLSTOSE1() -> AITEMORI := EXECBLOCK("PLSITEMO",.F.,.F.,{AITEMORI,ABASES,ASTRUSD2})

PLSTOSE1.PRW - PLSTOSE1() -> EXECBLOCK("PLBGQGRV",.F.,.F.)

PLSTOSE1.PRW - PLSTOSE1() -> EXECBLOCK("PLSE1GRV",.F.,.F.,{ LCOMP, NRECSE1, ABASES } )

PLSTOSE1.PRW - PLTITBXCR() -> CSQL := EXECBLOCK('PLRDBXCR', .F., .F., { CSQL } )

PLSTOSE2.PRW - PLSTOSE2() -> ARETPTOENT:= EXECBLOCK("PLSE2BVL",.F.,.F.,{ACAMPOS,BAU->BAU_CODIGO,{},AIMPOSTOS,LVLRNEG})

PLSTOSE2.PRW - PLSTOSE2() -> EXECBLOCK("PLSE2GRV",.F.,.F.)

PLSTRTPTU_SCS2.PRW - PLSTRTPTU()() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{ARET[4][NX][5],"RECSAI","",NIL,ARET[4][NX][4],CTRANORI,NIL})

PLSTRTPTU_SCS2.PRW - PLSTRTPTU()() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{CCODPRO,"RECENT","",NIL,NIL,CTRANORI,NIL})

PLSTRTPTU_SCS2.PRW - PLSTRTPTU()() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{PLSPTUGET("CD_SERVICO",AITENS[NI]),"RECDES","",NIL,NIL,CTRANORI,NIL})

PLSTRTPTU_SCS2.PRW - PLSTRTPTU()() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{PLSPTUGET("CD_SERVICO",AITENS[NI]),"RECDES","",PLSPTUGET("TP_TABELA",AITENS[NI]),NIL,CTRANORI,NIL})

PLSTRTPTU_SCS2.PRW - PTTPTABTUS() -> CTPTAB := EXECBLOCK("PLSVATBI", .F., .F., {CTPTAB,LTBTISS,LRFTISS})

PLSTRTPTU_SCS2.PRW - PTUAUTOSV5() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{CCODPRO,"RECDES","",NIL,NIL,CTRAORIG,NIL})

PLSTRTPTU_SCS2.PRW - PTUDEPABTU() -> ARET := EXECBLOCK("PLPTUBTU",.F.,.F.,{LRECEB,LENVIO,CTIPTAB,CCODPAD,CCODPRO,ARET,BR8->(RECNO()),CTABREF,LREGRAPTU})

PLSTRTPTU_SCS2.PRW - PTUOSV50() -> APLPTUITE := EXECBLOCK("PLPTUITE",.F.,.F.,{CCODPRO,"RECENT","",PLSPTUGET("TP_TABELA",AITENS[NI]),CCODPAD,CTRANORI,NIL})

PLSUA1100.PRW - PLS1100PRO() -> ARET := EXECBLOCK("PLSTRTPTU",.F.,.F., {.T.})

PLSUA1300.PRW - CONTAGEM() -> ARET := EXECBLOCK( "PL1300CONT", .F., .F., {APECONT,BA1->(RECNO())} )

PLSUA1300.PRW - GA1300A() -> AABRANGPE := EXECBLOCK( "PL1300ABRA", .F., .F., {BF7->BF7_CODEDI,BF7->BF7_CODORI,BA1->(RECNO()),BI3->(RECNO())} )

PLSUA1300.PRW - GA1300A() -> CDTVALCARPE := EXECBLOCK( "PL1300TAG", .F., .F., {"DT_VAL_CARTEIRA",BA1->(RECNO())} )

PLSUA1300.PRW - GA1300A() -> CECIVILPE := EXECBLOCK( "PL1300TAG", .F., .F., {"CD_ECIVIL",BA1->(RECNO())} )

PLSUA1300.PRW - GA1300A() -> CNMCONTR := EXECBLOCK( "PL1300TAG", .F., .F., {"NM_CONTR",BA1->(RECNO())} )

PLSUA1300.PRW - GA1300A() -> CNMEMPRABRE := EXECBLOCK( "PL1300TAG", .F., .F., {"NM_EMPR_ABRE",BA1->(RECNO())} )

PLSUA1300.PRW - GA1300A() -> CNMEMPRCOMP := EXECBLOCK( "PL1300TAG", .F., .F., {"NM_EMPR_COMP",BA1->(RECNO())} )

PLSUA1300.PRW - GA1300A() -> CNMFANTASIAEMPR := EXECBLOCK( "PL1300TAG", .F., .F., {"NM_FANTASIA_EMPR",BA1->(RECNO())} )

PLSUA1300.PRW - GA1300A() -> CNMPRODPE := EXECBLOCK( "PL1300TAG", .F., .F., {"NM_PRODUTO",BA1->(RECNO())} )

PLSUA1300.PRW - GA1300A() -> CTP_ACOMPE := EXECBLOCK( "PL1300TAG", .F., .F., {"TP_ACOMOD",BA1->(RECNO())} )

PLSUA1300.PRW - GA1300A() -> CVIA_CARPE := EXECBLOCK( "PL1300TAG", .F., .F., {"CVIA_CARTAO",BA1->(RECNO())} )

PLSUA1300.PRW - GA1300A() -> EXECBLOCK("PL1300XML", .F., .F.,{"T302", T302->(RECNO()), BA1->(RECNO())})

PLSUA1300.PRW - GA1300A() -> EXECBLOCK("PL1300XML", .F., .F.,{"T303", T303->(RECNO()), BA1->(RECNO())})

PLSUA1300.PRW - GA1300A() -> EXECBLOCK("PL1300XML", .F., .F.,{"T305", T305->(RECNO()), BA1->(RECNO())})

PLSUA1300.PRW - GA1300A() -> EXECBLOCK("PL1300XML", .F., .F.,{"T306", T306->(RECNO()), BA1->(RECNO())})

PLSUA1300.PRW - GA1300A() -> EXECBLOCK("PL1300XML", .F., .F.,{"T307", T307->(RECNO()), BA1->(RECNO())})

PLSUA1300.PRW - GA1300A() -> EXECBLOCK("PL1300XML", .F., .F.,{"T308", T308->(RECNO()), BA1->(RECNO())})

PLSUA1300.PRW - GA1300A() -> EXECBLOCK("PL1300XML", .F., .F.,{"T309", T309->(RECNO()), BA1->(RECNO())})

PLSUA1300.PRW - GA1300A() -> EXECBLOCK("PL1300XML", .F., .F.,{"T310", T310->(RECNO()), BA1->(RECNO())})

PLSUA1300.PRW - GA1300A() -> EXECBLOCK("PL1300XML", .F., .F.,{"T311", T311->(RECNO()), BA1->(RECNO())})

PLSUA1300.PRW - GA1300A() -> EXECBLOCK("PL1300XML", .F., .F.,{"T316", T316->(RECNO()), BA1->(RECNO())})

PLSUA1300.PRW - GA1300A() -> EXECBLOCK("PL1300XML", .F., .F.,{"T317", T317->(RECNO()), BA1->(RECNO())})

PLSUA1300.PRW - GERAR316() -> EXECBLOCK("PL1300XML", .F., .F.,{"T301", T301->(RECNO()), 0})

PLSUA1300.PRW - GERAR316() -> EXECBLOCK("PL1300XML", .F., .F.,{"T316", T316->(RECNO()), BA1->(RECNO())})

PLSUA1300.PRW - GERARQ1300() -> EXECBLOCK("PL1300XML", .F., .F.,{"T301", T301->(RECNO()), 0})

PLSUA300.PRW - A300VLDOPC() -> LRET := EXECBLOCK("PL300BT3",.F.,.F.,{TMPVLDOP->(BF4_CODPRO),TMPVLDOP->(BF4_VERSAO),.F.})

PLSUA300.PRW - A300VLDOPC() -> LRET := EXECBLOCK("PL300BT3",.F.,.F.,{TMPVLDOP->(BF4_CODPRO),TMPVLDOP->(BF4_VERSAO),.T.})

PLSUA300.PRW - PLSUA300PREP() -> IF EXECBLOCK("PLSPA300",.F.,.F.)

PLSUA300.PRW - VALIDAR302() -> CANOBENEF := EXECBLOCK("PL300TPPRZ",.F.,.F.,{IIF(CDATINCTIT <  "20110101",CANOBENEF := "05",CANOBENEF := "03")})

PLSUA300.PRW - VEVLRMENS() -> NVALOR := EXECBLOCK("PLS300VLR",.F.,.F.,{NVALOR,CCHAVE})

PLSUA400.PRW - CRIA450ARQ() -> EXECBLOCK("PLU400TMP",.F.,.F.,{})

PLSUA400.PRW - PTUA400CBO() -> CCBOS := EXECBLOCK("PL400CBO",.F.,.F.,{CCBOS,BAU->BAU_CODIGO,BAQ->(RECNO())})

PLSUA410.PRW - DIATAX410() -> ARETPE := EXECBLOCK("PLPT410B", .F., .F.,{ALLTRIM(TRBBC0->CODPAD),ALLTRIM(TRBBC0->CODOPC),CCD_DTH,CVL_DTH})

PLSUA500.PRW - GERAA500() -> ARET := EXECBLOCK( "PLS500REG",.F.,.F. )

PLSUA500.PRW - GERAA500() -> ARETPTO502 := EXECBLOCK("PLS50002",.F.,.F.,{CCODCID})

PLSUA500.PRW - GERAA500() -> ARETPTO504 := EXECBLOCK("PLS50004",.F.,.F.,{CCODESP,CCODPSA,CTIPPAR,CTIPTAB,CPACOTE,CCODPOA})

PLSUA500.PRW - GERAA500() -> ARETPTO505 := EXECBLOCK("PLS50005",.F.,.F.,{CCODESP,CCODPSA,CTIPPAR,CTIPTAB,CPACOTE,CCODPOA})

PLSUA500.PRW - GERAA500() -> ARETPTO506 := EXECBLOCK("PLS50006",.F.,.F.,{CCBOSSOL,CCBOSEXEC,BD6->(RECNO())})

PLSUA500.PRW - GERAA500() -> ARETPTO507 := EXECBLOCK("PLS50007",.F.,.F.,{CTIPCON})

PLSUA500.PRW - GERAA500() -> ARETPTO508 := EXECBLOCK("PLS50008",.F.,.F.,{BD6->(RECNO())})

PLSUA500.PRW - GERAA500() -> ARETPTO509 :=  EXECBLOCK("PLS50009",.F.,.F.,{CSGCONSPR,CNRCONSPR,CUFCONSPR,CNMEXEC})

PLSUA500.PRW - GERAA500() -> ARETPTO510 :=  EXECBLOCK("PLS50010",.F.,.F.,{CSGCONSREQ,CNRCONSREQ,CUFCONSREQ,CNOMEREQ,CCNPJREQ})

PLSUA500.PRW - GERAA500() -> ARETPTO512 := EXECBLOCK("PLS50012",.F.,.F.,{CNUMDOC1,CPREFIXOBTO,CNUMTITBTO,CCOMPET})

PLSUA500.PRW - GERAA500() -> CDESCBR8 := EXECBLOCK("PL500DESC",.F.,.F.,{CDESCBR8})

PLSUA500.PRW - GERAA500() -> CHORFIM := EXECBLOCK("PLS50011",.F.,.F.,{CHORFIM,BD6->(RECNO())})

PLSUA500.PRW - GERAA500() -> CTIPINT := EXECBLOCK("PLS500EX",.F.,.F.,{ BE4->BE4_GRPINT, BE4->BE4_TIPINT })

PLSUA500.PRW - GERAA500() -> EXECBLOCK("PL500FAT",.F.,.F.,{})

PLSUA500.PRW - GERAA500() -> EXECBLOCK("PLS50003",.F.,.F.)

PLSUA500.PRW - PLSRSCON() -> ARET := EXECBLOCK("PLSISCON",.F.,.F.)

PLSUA500X.PRW - CONTRATADOEXECUTANTE() -> CCNESPE := EXECBLOCK("PLU5CNES", .F., .F. , {CCNES, (CALIAS)->CODRDA, (CALIAS)})

PLSUA500X.PRW - DEPARA() -> ARET := EXECBLOCK("PTUDEPARA",.F.,.F.,{CCODPADO,CCODPROO,CDATPRO,CCODRDA})

PLSUA500X.PRW - EXECUTADOS() -> APACOTE := EXECBLOCK("PLSPACOTE",.F.,.F.,CALIAS)

PLSUA500X.PRW - HONORARIO() -> CCNESPE := EXECBLOCK("PLU5CNES", .F., .F. , {ARET[5], (CALIAS)->CODRDA, (CALIAS)})

PLSUA500X.PRW - PLSUA520X() -> ARET := EXECBLOCK("PLS500UNM",.F.,.F.,{CSERV,CAUX,CANEST,CCUSOPE,CFILM})

PLSUA500X.PRW - PROCESSA() -> ANFE := EXECBLOCK("PLSR506",.F.,.F.,{"1"})

PLSUA500X.PRW - PROCESSA() -> ANFE := EXECBLOCK("PLSR506",.F.,.F.,{"2"})

PLSUA510.PRW - MNTARRAY() -> ARETPE := EXECBLOCK("PLU510P1",.F.,.F.,{CNUMERO,CCODOPE,CNUMDOC1,CNUMDOC2,CTIPDOC1,CTIPDOC2,CDTPAGDOC1,CDTPAGDOC2,LOK,CVALORDOC1,CVALORDOC2,SE1->(RECNO()) })

PLSUA510.PRW - PL510BTO() -> TRB->NUMNOT := EXECBLOCK("PLU510P2",.F.,.F.,{TRBBTO->E1_NUMNOTA,"TRBBTO","TRB"})

PLSUA520.PRW - PLUA520JOB() -> CSQL += EXECBLOCK("A520FIL",.F.,.F., {"2", CSQL})

PLSUA550.PRW - PLSUA550PR() -> CCODPSA := EXECBLOCK("PL550PROC",.F.,.F.,{CCODPSA,CCODTAB})

PLSUA550.PRW - PLSUA550PR() -> CDESCBR8 := EXECBLOCK("PL550DESC",.F.,.F.,{CDESCBR8})

PLSUA550X.PRW - DEPARA() -> ARET:= EXECBLOCK("PTUDEPARA",.F.,.F.,{CCODPADO,CCODPROO,CDATPRO,CCODRDA})

PLSUARPC.PRW - BUSCAPERREA() -> CRET := EXECBLOCK("PLSRPC01",.F.,.F.,{ BI3->(RECNO()), BQC->(RECNO()), BT6->(RECNO()), BPF->(RECNO()), CRET} )

PLSUTOKEN.PRW - 3=SHA-1; 5=SHA-25() -> CTOKEN := EXECBLOCK("PTKTOKGE", .F., .F., {CMATRIC})

PLSVLPFUN.PRW - PLMFORCA() -> LPTOENTR := EXECBLOCK("PLSVLPR01",.F.,.F.,{CTIPPRE,LINTERC,NVLRAPR,NVLRAPRPAG,LCOBCOPART,COPEORI,CCODPAD,CCODPRO,CCODUND})

PLSVLPFUN.PRW - PLMFORCA() -> LRET := EXECBLOCK("PLUNMCOI", .F., .F., {LRET, CCODUND})

PLSVLPFUN.PRW - PLVLTBPR() -> ARET := EXECBLOCK("PLVLRET",.F.,.F.,{CALIAS,&(CALIAS)->(RECNO()),ARET,CTABPRE,CCODINT,CCODPAD,CCODPRO,DDATANALISE,CREGATE,CFINATE,CCODTAB,LOBSOLETO,NPORTEORI})

PLSVLPFUN.PRW - PLVLTBPR() -> CSQL :=EXECBLOCK("PLVLRQRY",.F.,.F.,{CSQL})

PLSVLPFUN.PRW - SEEKBB8E() -> LRET := EXECBLOCK("PLSBB8SK",.F.,.F.,{LRET,CCODRDA,CCODINT,CCODLOC } )

PLSVLRPRO.PRW - PLSCALCEVE() -> ARETEXP:= EXECBLOCK(CRDMAKE,.F.,.F.,{NQTDAUX,/*01*/ ACOMEVE[NIND,3], /*02*/ ARET,/*03*/ DDATANALISE,/*04*/ CCODRDAREA, /*05*/;

PLSVLRPRO.PRW - PLSCALCEVE() -> ARETFATM := EXECBLOCK("PLSFATMP",.F.,.F.,{CCODPAD,CCODPRO,CCODINT,CCODRDA,CCODESP,CCODLOC,;

PLSVLRPRO.PRW - PLSCALCEVE() -> ARETPTEN := EXECBLOCK("PLCALCEV",.F.,.F.,{ LCOBCOPART,LCOMPRA,NVLRTOT,ARET,CCODINT,ARDAS,CCODPAD,CCODPRO,CCODPLA,NQTD,DDATPRO,ADADUSR,NVLRAPR,CCHAVELIB })

PLSVLRPRO.PRW - PLSCALCEVE() -> CFINATE := EXECBLOCK("PLSFIATE",.F.,.F.,{CFINATE})

PLSVLRPRO.PRW - PLSCALCEVE() -> LCOBQTDPER := EXECBLOCK("PLSQTPER",.F.,.F.,{CCODPAD,CCODPRO,AQTDPER,NQTD,CCODRDA,CCODLOC,CCODESP,LCOBCOPART,XFILIAL("BD6")+CCHAVEGUI,LCOBQTDPER})

PLSVLRPRO.PRW - PLSCALCEVE() -> NPERHORESP := EXECBLOCK("PLSHRESP",.F.,.F.,{NPERHORESP,DDATCIR,CHORCIR,CCODTAB,LCOBCOPART,LCOMPRA,CCODPAD,CCODPRO,LREEMBOLSO})

PLSVLRPRO.PRW - PLSCALCEVE() -> NQTDAUX := EXECBLOCK("PLMUDQTD",.F.,.F.,{NQTD,ACOMEVE[NIND,1],LCIRURGICO,ARDAS,NPOSRDA,CCONSVIA})

PLSVLRPRO.PRW - PLSCALUCO() -> AORDENSNIV := EXECBLOCK("PLSONVPC",.F.,.F.,{AORDENSNIV,LCOBCOPART,CCODRDA,COPEORI,"3"})

PLSVLRPRO.PRW - PLSCOMEVE() -> ARET := EXECBLOCK("PLSCOMEV",.F.,.F.,APARPTOENT)

PLSVLRPRO.PRW - PLSCOMEVE() -> CPLSREGANVE := EXECBLOCK("PLSDATAN",.F.,.F.,{CTIPOGUIA,CPLSREGANVE})

PLSVLRPRO.PRW - PLSRETTAB() -> AORDENSNIV := EXECBLOCK("PLSTABPA",.F.,.F.,{AORDENSNIV,LREEMBOLSO,LOBSOLETO})

PLSVLRPRO.PRW - PLSRETTAB() -> AORDENSNIV := EXECBLOCK("PLSTABPA",.F.,.F.,{AORDENSNIV,LREEMBOLSO})

PLSVLRPRO.PRW - PLSRETTAB() -> ARETFUN := EXECBLOCK("PLSRTTAB",.F.,.F.,{CCODTAB,CALIAS,CCODPAD,CCODPRO,DDATANALISE,CCODINT,CCODRDA,CCODESP,CSUBESP,CCODLOC,;

PLSVLRPRO.PRW - PLSRETTAB() -> CFINATE := EXECBLOCK("PLSFIATE",.F.,.F.,{CFINATE})

PLSVLRPRO.PRW - PLSRETTAB() -> CSQL := EXECBLOCK("PLBC0SQL",.F.,.F.,{CSQL,CCODRDA,CCODINT,CCODLOC,CCODESP,CSUBESP,CCODPRO,CCODPAD})

PLSVLRPRO.PRW - PLSRETTAUX() -> ARETAUX := EXECBLOCK("PLMANIAUX",.F.,.F.,{ ARETAUX })

PLSVLRPRO.PRW - PLSRETTCR() -> AORDENSNIV := EXECBLOCK("PLSONVPC",.F.,.F.,{AORDENSNIV,LCOBCOPART,CCODRDA,COPEORI,"2"})

PLSVLRPRO.PRW - PLSRETTCR() -> EXECBLOCK("PLSBE9SK",.F.,.F.,{CCODRDA,CCODINT,CCODLOC,CCODESP,CCODPLA,CCODPAD,CCODAUX,NFORBE9})

PLSVLRPRO.PRW - PLSRETUSNV() -> AORDENSNIV := EXECBLOCK("PLSONVPC",.F.,.F.,{AORDENSNIV,LCOBCOPART,CCODRDA,COPEORI,"1"})

PLSVLRPRO.PRW - PLSRETUSNV() -> APLRDAPGT := EXECBLOCK("PLRDAPGT",.F.,.F.,{CCODINT,CCODRDAREAL,CCODLOC,CCODESP,CCODRDA,CSUBESP,CCODTAB,CCODPAD,LREEMBOLSO,CCODUND,CTIPPRE})

PLSVLRPRO.PRW - PLSRETUSNV() -> ARETBMC := EXECBLOCK("PLVLBMC",.F.,.F.,{LINTERC,LCHKNVLOC,LREEMBOLSO,NNIVEIS,CCODINT,CTIPPRE,CCODPRO,;

PLSVLRPRO.PRW - PLSRETUSNV() -> ARETPTOENT := EXECBLOCK("PLSALTUV",.F.,.F.,{NVLRUS,CALIAS,LOK,NVLRREA,CCODRDA,CCODINT,CCODLOC,CCODESP,CREGATE,LCOBCOPART,CCODPRO,CCODUND,DDATANALISE,CCODPAD,NBANDA})

PLSVLRPRO.PRW - PLSRETUSNV() -> ARETPTOENT := EXECBLOCK("PLSVLRPM",.F.,.F.,{ ADADUSR, CPORTEMED, NVLRUS, CALIAS, LOK, NVLRREA, CCODRDA, CCODINT, CCODLOC, CCODESP, CREGATE, LCOBCOPART, CCODPRO, CCODUND, DDATANALISE, CCODPAD, CCODTAB })

PLSVLRPRO.PRW - PLSRETUSNV() -> CCODESP := EXECBLOCK("PLESPBC0",.F.,.F.,{CCODPAD,CCODPRO,CCODINT,CCODRDA,CCODESP,CSUBESP,CCODLOC,DDATPRO,LCOBCOPART,LREEMBOLSO,CTIPPRE})

PLSVLRPRO.PRW - PLSRETUSNV() -> CFINATE := EXECBLOCK("PLSFIATE",.F.,.F.,{CFINATE})

PLSVLRPRO.PRW - PLSRETUSNV() -> CSQL := EXECBLOCK("PLBC0SQL",.F.,.F.,{CSQL,CCODRDA,CCODINT,CCODLOC,CCODESP,CSUBESP,CCODPRO,CCODPAD})

PLSVLRPRO.PRW - PLSRETUSNV() -> EXECBLOCK("PLSBE9SK",.F.,.F.,{CCODRDA,CCODINT,CCODLOC,CCODESP,CCODPLA,CCODPAD,CCODAUX,NFORBE9})

PLSVLRPRO.PRW - PLSRETVFIL() -> ABC0FIL := EXECBLOCK("PLBC0FIL",.F.,.F.,{CCODRDA,CCODINT,CCODLOC,CCODESP,CCODPLA,CCODPAD,CCODPRO,NDESCONTO,NACRESCIMO})

PLSVLRPRO.PRW - PLSRETVFIL() -> ABE9FIL := EXECBLOCK("PLBE9FIL",.F.,.F.,{CCODRDA,CCODINT,CCODLOC,CCODESP,CCODPLA,CCODPAD,CCODPRO,NDESCONTO,NACRESCIMO})

PLSVLRPRO.PRW - PLSRETVFIL() -> AORDENSNIV := EXECBLOCK("PLSONVPC",.F.,.F.,{AORDENSNIV,LCOBCOPART,CCODRDA,COPEORI,"2"})

PLSVLRPRO.PRW - PLSRETVFIL() -> ARETPTOENT := EXECBLOCK("PLSALTM2",.F.,.F.,{NREF,CALIAS,LOK,NVLRFIL,NVLRFILCALC,CCODRDA,CCODINT,CCODLOC,CCODESP,;

PLSVLRPRO.PRW - PLSRETVFIL() -> CFINATE := EXECBLOCK("PLSFIATE",.F.,.F.,{CFINATE})

PLSVLRPRO.PRW - PLSRETVFIL() -> IF EXECBLOCK("PLSBE9SK",.F.,.F.,{CCODRDA,CCODINT,CCODLOC,CCODESP,CCODPLA,CCODPAD,CCODAUX,NFORBE9})

PLSVLRPRO.PRW - PLSRETVPA() -> AORDENSNIV := EXECBLOCK("PLSONVPC",.F.,.F.,{AORDENSNIV,LCOBCOPART,CCODRDA,COPEORI,"2"})

PLSVLRPRO.PRW - PLSRETVPA() -> ARETPTO := EXECBLOCK("PLCVLRPA",.F.,.F.,{PPARAM1,NBANDA,CCONSBD,CANO,CMES,LCOBCOPART,DDATANALISE,CCODPRO,CCODPAD,CCODESP,;

PLSVLRPRO.PRW - PLSRETVPA() -> ARETPTO := EXECBLOCK("PLSVLRPA",.F.,.F.,{ARETPA[1,4],NBANDA,CCONSBD,CANO,CMES,LCOBCOPART,DDATANALISE,CCODPRO,CCODPAD,CCODESP,;

PLSVLRPRO.PRW - PLSRETVPA() -> CFINATE := EXECBLOCK("PLSFIATE",.F.,.F.,{CFINATE})

PLSVLRPRO.PRW - PLSRETVPA() -> EXECBLOCK("PLSBE9SK",.F.,.F.,{CCODRDA,CCODINT,CCODLOC,CCODESP,CCODPLA,CCODPAD,CCODAUX,NFORBE9})

PLSVLRPRO.PRW - PLSRETVREA() -> AORDENSNIV := EXECBLOCK("PLSONVPC",.F.,.F.,{AORDENSNIV,LCOBCOPART,CCODRDA,COPEORI,"2"})

PLSVLRPRO.PRW - PLSRETVREA() -> ARETPTOENT := EXECBLOCK("PLSALTRE",.F.,.F.,{NREF,CALIAS,LOK,LINFORMADA,CCODRDA,CCODINT,CCODLOC,CCODESP,CREGATE,LCOBCOPART,CCODPRO,CCODUND,DDATANALISE,CCODPAD})

PLSVLRPRO.PRW - PLSRETVREA() -> ARETREA01 := EXECBLOCK("PLSREA01",.F.,.F.,{ACOMEVE,NREF,CCODUND})

PLSVLRPRO.PRW - PLSRTBANDA() -> NBANDA := EXECBLOCK("PLSRTBND",.F.,.F.,{NBANDA,CALIAS,CCODOPE,CANO,CMES,LCOBCOPART,LINTERC,COPEINT,DDATANALISE,NNIVEIS,ANIVEIS,CCODPRO,CMODPAG,CCODPAD,CCODESP,;

PLSVLRPRO.PRW - PLSTABPRE() -> ARETPE := EXECBLOCK("PLSTBRDA",.F.,.F.,{CCODINT,CCODRDA,BC6->BC6_CODTAB,CCODPAD,CCODPRO,DDATANALISE,CPADINT,CCODPLA,COPEORI,CCODLOC,NUSPCO,NVRPCO,NUSRCO,NVRRCO,NUSPPP,NVRPPP,NUSRPP,NVRRPP,NBANRE,NBANPA,NDESCONTO,NACRESCIMO,CALIAS,LREEMBOLSO,NREF,CREGATE})

PLSVLRPRO.PRW - PLSTABPRE() -> CFINATE := EXECBLOCK("PLSFIATE",.F.,.F.,{CFINATE})

PLSVLRPRO.PRW - PLSTABPRE() -> CSQL += EXECBLOCK('PLSQRYBC6',.F.,.F.)

PLSVLRPRO.PRW - PLSTABPRE() -> CSQL := EXECBLOCK('PLSSELBC6',.F.,.F.,{CSQL})

PLSXAUT.PRW - PLSABRANG() -> ARETABRANG := EXECBLOCK("PLSABRA1",.F.,.F.,{ADADUSR, ADADRDA, ACRITICAS})

PLSXAUT.PRW - PLSAUTP() -> ARET := EXECBLOCK("PLSAUT02",.F.,.F.,{ARET, DDATA, CHORA, CCDTBPD, CCODPRO, NQTD, CCID, CLOCALEXEC, COPESOL, CCODPRFSOL,;

PLSXAUT.PRW - PLSAUTP() -> ARET := EXECBLOCK("PLSAUT03",.F.,.F.,{ARET,DDATA,CHORA,CCDTBPD,CCODPRO,NQTD,CCID,CLOCALEXEC,COPESOL,CCODPRFSOL,;

PLSXAUT.PRW - PLSAUTP() -> ARETPTOENT := EXECBLOCK("PLSCHGOO",.F.,.F.,{COPEORI,LINTEVE})

PLSXAUT.PRW - PLSAUTP() -> LVLDPRIN := EXECBLOCK("PLAUTPRI",.F.,.F.,{CCODRDA,CCDTBPD,CCODPRO})

PLSXAUT.PRW - PLSAUTPMDD() -> LCONTINUA :=  EXECBLOCK("PLSESP01" ,.F.,.F.,{CCDTBPD,CCODPRO,ADADRDA,ADADUSR,CCODESP,CCODLOC,DDATPRO})

PLSXAUT.PRW - PLSCLASCAR() -> ARETCLA:= EXECBLOCK("PLCLACAR",.F.,.F.,{ACARENCIA,LOK,ADADUSR,CCDTBPD,CCODPRO,COPEUSR,CCODPLA,CVERSAO,LVERBDL,CALIASAUT,CCHAVEAUT})

PLSXAUT.PRW - PLSGRPQTD() -> CSQL += EXECBLOCK("PLSQD6CT",.F.,.F.,{APROCS[3][NI][1]})

PLSXAUT.PRW - PLSTRATEXE() -> LCONTINUA :=  EXECBLOCK("PLSESP01" ,.F.,.F.,{CCDTBPD,CCODPRO,ADADRDA,ADADUSR,BAX->BAX_CODESP,CCODLOC,DDATA})

PLSXAUT.PRW - PLSTRATPER() -> ARETPNT  := EXECBLOCK("PLSTRATP",.F.,.F.,APARAPNT)

PLSXAUT.PRW - PLSTRATPER() -> CSQL += EXECBLOCK("PLPERSIT",.F.,.F.)

PLSXAUT.PRW - PLSTRATPER() -> CSQL += EXECBLOCK("PLSQD6CP",.F.,.F.,{CNIVEL,NNIVEIS,CCODNIV,NGRAVI,__ANIVEIS,CCDTBPD,CCODPRO})

PLSXAUT.PRW - PLSTRATPER() -> CSQL += EXECBLOCK("PLSQD6CT",.F.,.F.,{CCDTBPD})

PLSXAUT.PRW - PLSTRATQTD() -> ARETPNT  := EXECBLOCK("PLSTRATQ",.F.,.F.,APARAPNT)

PLSXAUT.PRW - PLSTRATQTD() -> CSQL += EXECBLOCK("PLQTDSIT",.F.,.F.)

PLSXAUT.PRW - PLSTRATQTD() -> CSQL += EXECBLOCK("PLSQD6CP",.F.,.F.,{CNIVEL,NNIVEIS,CCODNIV,NGRAVI,__ANIVEIS,CCDTBPD,CCODPRO})

PLSXAUT.PRW - PLSTRATQTD() -> CSQL += EXECBLOCK("PLSQD6CT",.F.,.F.,{CCDTBPD})

PLSXAUT.PRW - PLSTRATSOL() -> ARET := EXECBLOCK("PLVLDSOL",.F.,.F.,{CTIPOPROC,COPESOL,BAU->BAU_CODIGO,CCDTBPD,CCODPRO,ADADRDA,CTIPO,ADADUSR,CLOCALEXEC,CCODESP,CCODLOC,LCHECK,ALOCAIS,DDATA,LAUTORIZADO,ARET,AOLDRET})

PLSXAUT.PRW - PLSTRATSOL() -> ARET := EXECBLOCK("PLVLDSOL",.F.,.F.,{CTIPOPROC,COPESOL,BAU->BAU_CODIGO,CCDTBPD,CCODPRO,ADADRDA,CTIPO,ADADUSR,CLOCALEXEC,CESPSOL,CCODLOC,LCHECK,ALOCAIS,DDATA,LAUTORIZADO,ARET,AOLDRET})

PLSXAUT.PRW - PLSUNHM() -> CUNIDADES := EXECBLOCK("PLXAUHM",.F.,.F.,{CUNIDADES})

PLSXAUT.PRW - PLSVLDAUT() -> CSQL += EXECBLOCK("PLPERSIT",.F.,.F.)

PLSXAUT.PRW - PLSVLDGRU() -> CCHAVEAUX := EXECBLOCK("PLSGCOBA",.F.,.F.,{ CALIAS, CFILSEEK, CCHAVEAUX, CCDTBPD,CCODPRO,CMATRUSR,CNUMEROGUIA,DDATA,CCODINT,ADADRDA,NQTD,CREGINT})

PLSXAUT.PRW - PLSVLDLUS() -> CSQL += EXECBLOCK("PLPERSIT",.F.,.F.)

PLSXAUT.PRW - PLSVLDPRE() -> CSQL += EXECBLOCK("PLPERSIT",.F.,.F.)

PLSXAUT.PRW - PLSVLDPRI() -> ARET := EXECBLOCK("PLSPROIN",.F.,.F.,{CCID,CLOCALEXEC,ACODSPROCS,ADADUSR,DDATPRO,CCODPAD,CCODPROC,CSEQUEN, ARET})

PLSXAUT.PRW - PLSVLDPRI() -> CSQL += EXECBLOCK("PLPERSIT",.F.,.F.)

PLSXAUT.PRW - PLSVLDPTP() -> ARET := EXECBLOCK("PLSVLDP1",.F.,.F.,{CCDTBPD,CCODPRO,CLOCALEXEC,ARET})

PLSXFUN.PRW - PLIDSALD() -> NNEWCAT:= EXECBLOCK("PLDIOP01",.F.,.F.,{TRBPAS->REGNUM, TRBPAS->(E2_FORNECE+E2_LOJA), NCATEG } )

PLSXFUN.PRW - PLIMPWEB() -> ARETORNO := EXECBLOCK("PLIMPWEB",.F.,.F.,{LIMPGUI,CGUIA})

PLSXFUN.PRW - PLQDOAUX() -> ARET := EXECBLOCK("PLSQDROEVE", .F., .F., {ARET})

PLSXFUN.PRW - PLQDOAUX() -> CSQL +=EXECBLOCK("PLQDFILBGQ",.F.,.F.)

PLSXFUN.PRW - PLQDOAUX() -> CSQL +=EXECBLOCK("PLQDFILREE",.F.,.F.)

PLSXFUN.PRW - PLTPSERV() -> CRET := EXECBLOCK("PLGRPPRO",.F.,.F.,{CRET,CTPPROC,CCODPAD,CCODPRO,CGRUGEN,LINTERN,CALIASCAB})

PLSXFUN.PRW - PLVLDPRE() -> ARETPTOENT := EXECBLOCK("PLSPREAT",.F.,.F.,{CCRITXAUT,AMAT[1],AMAT[5],AMAT[7]})

PLSXFUN.PRW - PLVLDREQ() -> RETURN(EXECBLOCK("PLVLDREQ",.F.,.F.,CNUMREQ))

PLSXFUN.PRW - PLVLDUSRP() -> ACODUSUARIO := EXECBLOCK("PLSUSUCOD",.F.,.F.,CCODUSR)

PLSXFUN.PRW - PLVLDUSRP() -> ARET := EXECBLOCK("PLSRDUSR",.F.,.F.,{CCODUSR,CVIACAR,CNOMECAR,CLOCALEXEC,CAREAABR,CTPLOCEXEC,CTIPO,CTIPATD, CTRICAR})

PLSXFUN.PRW - PLVLDUSRP() -> LINTERCAMBIO := EXECBLOCK("PLSUSUINT",.F.,.F.,CCODUSR)

PLSXFUN.PRW - PLVLDUSRW() -> CLOGUSR := EXECBLOCK("PLLOGDIF",.F.,.F.,CLOGUSR)

PLSXFUN.PRW - SALDOTIT(CP() -> ARET := EXECBLOCK("PLSIDSALDO", .F., .F., {ARETPASSIVO, ARETATIVO})

PLSXFUN.PRW - SALDOTIT(CP() -> AVLRAT := EXECBLOCK("PLDIOP02",.F.,.F.,{TRBATV->REGNUM, TRBATV->(E1_CLIENTE+E1_LOJA), NCATEG, AVLRAT } )

PLSXMOV.PRW - PLSATUPEG() -> LMUDCOMP := EXECBLOCK("PLMDCPTR",.F.,.F.)

PLSXMOV.PRW - PLSDELMOV() -> CUNDHM := EXECBLOCK( 'PLSUNHMS',.F.,.F.,{CUNDHM} )

PLSXMOV.PRW - PLSDELMOVZ() -> CUNDHM := EXECBLOCK( 'PLSUNHMS',.F.,.F.,{CUNDHM} )

PLSXMOV.PRW - PLSICAB() -> EXECBLOCK( 'PLSICAB1',.F.,.F.,{CTIPGUI,CCODOPE,CCODLDP,CCODPEG,CFASE,CSITUAC,DDATPRO,CHORA,CMES,CANO,CNUMIMP,;

PLSXMOV.PRW - PLSIITE() -> CUNDHM := EXECBLOCK( 'PLSUNHMS',.F.,.F.,{CUNDHM} )

PLSXMOV.PRW - PLSIITE() -> EXECBLOCK( 'PLSIITE1',.F.,.F.,{CSEQMOV,CCODPAD,CCODPRO,CDESPRO,NVLRAPR,NQTD,ATPPAR,CHORINI,CHORFIM,DDTPRO,CSLVPAD,CSLVPRO,CSLVDES} )

PLSXMOV.PRW - PLSIPP() -> EXECBLOCK("PLDTDIGT",.F.,.F.,BCI->(RECNO()))

PLSXMOV.PRW - PLSLESP() -> CSQL += EXECBLOCK("PLORDESP",.F.,.F.)

PLSXMOV.PRW - PLSREDATE() -> ARETPE := EXECBLOCK( "PLXMRATE",.F.,.F.,{ACLONE(ARETFUN),COPEMOV,CCODRDA,CCODLOC,CCODESP,DDATPRO,ADADUSR,;

PLSXMOV.PRW - PLSXAUTP() -> AMATINF := EXECBLOCK("PLSXMINF",.F.,.F.,{ADADOS,AITENS,AMATINF} )

PLSXMOV.PRW - PLSXAUTP() -> ARETPECAB := EXECBLOCK("PLCABXMOV",.F.,.F.,{ADADBEA,ADADBE4} )

PLSXMOV.PRW - PLSXAUTP() -> ARETPRT := EXECBLOCK("PLSPRCAB",.F.,.F.,{ARETFUN})

PLSXMOV.PRW - PLSXAUTP() -> LONLINE := EXECBLOCK("PTXMOVPTON",.F.,.F.,{ADADUSR,ADADRDA,ADADOS,AITENS} )

PLSXMOV.PRW - PLSXAUTP() -> LPLSA235 := EXECBLOCK("PLMOV235",.F.,.F.,{ADADOS,AITENS})

PLSXMOV.PRW - PLSXMOVREG() -> CAUDITORIA := EXECBLOCK("PLAUPTON",.F.,.F.,{ADADUSR,ATRB,COPESOL,ARETAUDPTU} )

PLSXMOV.PRW - PLSXMOVREG() -> LVLDABRAG := EXECBLOCK("PLABRPTU",.F.,.F.,{ADADUSR,ADADRDA,AITENS,COPESOL} )

PLSXMOV.PRW - PLXMVPR() -> ARETPTO := EXECBLOCK( "PLSXMVPR",.F.,.F.,{ADADOS,AITENS,LIMPXML,CTIPOGRV,LIMPTXT,AMATM} )

PLSXTMK.PRW - FGRAVA() -> ARETPTO := EXECBLOCK("PLSTMKCT",.F.,.F.,{NOLDRECBA1})

PLSXTMK.PRW - PLGRATTMK() -> EXECBLOCK( "PLGRVTMK",.F.,.F., {CALIAS,CNUMATD,NIND,CCHAVE,LREC,LRET} )

PLSXTMK.PRW - PLSCALLCENTER() -> ABTN := EXECBLOCK("PLSTMKBUT",.F.,.F.,{ABTN, OBAR})

PLSXTMK.PRW - PLSCALLCENTER() -> ARETPTO := EXECBLOCK("PLSCALL",.F.,.F.,{M->UC_CHAVE,M->UC_ENTIDAD})

PLSXTMK.PRW - PLSFUNATE() -> ABUTTONUSR := EXECBLOCK('PLFUNBOT',.F.,.F.,{CCODINT, CCODEMP, CMATRIC, CTIPREG, ODADBEA})

PLSXTMK.PRW - PLSTMKBOL() -> EXECBLOCK(CROTINA,.F.,.F.,{})

PLSXTMK.PRW - PLSTMKOCO() -> ARET := EXECBLOCK( "PLTMKOCO",.F.,.F., {CASSUNTO,CDESASSU,COCORRE,CDESOCO,COPERAD,CDESOPE,CSTATUS, CFUNC, ACOLS, AHEADER} )

PLSXTMK.PRW - PLSTMKPRE() -> ABTN := EXECBLOCK("PLSTMKBT2",.F.,.F.,{ABTN, OBAR})

PLSXTMK.PRW - PLSTREE() -> ARETPTOENT := EXECBLOCK("PLSXRGCP",.F.,.F.,{CCODPLA,CVERSAO,CCODPLABA1,CVERSAOBA1,BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC)})

PLSXTMK.PRW - PLSTREE() -> AVETOR := EXECBLOCK("PLSTMKT2",.F.,.F.,{OTREEUSR,CMATRICBA1,CCODPLA,CVERSAO,CCODPLABA1,CVERSAOBA1,AVETOR})

PLSXTMK.PRW - PLSTREE() -> AVETOR := EXECBLOCK("PLTMKBA1",.F.,.F.,{AVETOR,CMATRIC})

PLSXTMK.PRW - PLSTREE() -> EXECBLOCK("PLSTMKT1",.F.,.F.,{OTREECON,CMATRICBA1,CCODPLA,CVERSAO,CCODPLABA1,CVERSAOBA1})

PMOBBENEF.PRW - 3=SHA-1; 5=SHA-256; () -> CREDEATEND := EXECBLOCK("PMOBBE07", .F., .F., {SELF:OBENEFICIARY})

PMOBBENEF.PRW - 3=SHA-1; 5=SHA-256; () -> OOBJBACKUP := EXECBLOCK("PMOBBE04", .F., .F., {SELF:OBENEFICIARY})

PMOBBENEF.PRW - 3=SHA-1; 5=SHA-256; () -> OPMOBBE02 := EXECBLOCK("PMOBBE02", .F., .F., {SELF:OBENEFICIARY})

PMOBBENEF.PRW - SETGRACEMAP() -> AAUX := EXECBLOCK("PMOBBE05", .F., .F., {CCODINT+CCODEMP+CMATRIC+CTIPREG+CDIGITO,CCODPLA,CVERPLA,DDATCAR})

PMOBBENEF.PRW - SETPERMISSIONSMAP() -> ARET := EXECBLOCK("PMOBBE06", .F., .F., {CJSONPERM, CCONTRACT, CTIPUSR, CNIVELCOB, CNOMEEMP, CGRAUPA, DDATBLO, CMOTBLO})

PMOBFINMOD.PRW - GETLINHADIGITAVEL() -> CCODBAR := EXECBLOCK("PMOBFI03", .F., .F., {CPREFIXO,CNUMERO,CPARCELA,CTIPO,CBANCO,CFORMREC,CAGENCIA,CCONTA,CDIGITO,CNOSSONUM,NVALLIQUI,CCART,CMOEDA,CESPEC,CACEITE,NTITULOID} )

PMOBFINMOD.PRW - GETSITUACAO() -> CSITUACAO := EXECBLOCK("PMOBFI02", .F., .F.,{NVALORBASE, DVENCTO, NTITULOID})

PMOBFINMOD.PRW - GETTIPOCOBRANCA() -> CTIPOCOBRANCA := EXECBLOCK("PMOBFI01", .F., .F., { CFORMREC, NTITULOID })

PMOBFINMOD.PRW - LISTADEBITOS() -> CDESCRICAO := EXECBLOCK("PMOBFI05", .F., .F. , {TRB1->(E1_PREFIXO),TRB1->(E1_NUM),TRB1->(E1_PARCELA),TRB1->(E1_TIPO)} )

PMOBGUIMOD.PRW - PDFGUIAINTERNACAO() -> ADADOSGUIA := EXECBLOCK("PLR430INT", .F., .F., {ADADOSGUIA})

PMOBGUIMOD.PRW - PDFGUIASADT() -> ADADOSGUIA := EXECBLOCK("PLR430SADT", .F., .F., {ADADOSGUIA})

PMSA001.PRW - A001CFGCOL() -> LRETUSRBLK := EXECBLOCK("PM001BLK",.F.,.F.)

PMSA001.PRW - A001IMPORT() -> EXECBLOCK("PMA001FIM",.F.,.F.)

PMSA010.PRW - A010GD1TUDOK() -> LRET := EXECBLOCK( "P010GD1", .F., .F., {ACOLS, AHEADER} )

PMSA010.PRW - A010GD2TUDOK() -> LRET := EXECBLOCK( "P010GD2", .F., .F., {ACOLS, AHEADER} )

PMSA010.PRW - A010GD3TUDOK() -> LRET := EXECBLOCK( "P010GD3", .F., .F., {ACOLS, AHEADER} )

PMSA010.PRW - A010GD4TUDOK() -> LRET := EXECBLOCK( "P010GD4", .F., .F., {ACOLS, AHEADER} )

PMSA010.PRW - A010GD5TUDOK() -> LRET := EXECBLOCK( "P010GD5", .F., .F., {ACOLS, AHEADER} )

PMSA010.PRW - MENUDEF() -> AROTINANEW := EXECBLOCK("PMA10ROT",.F.,.F.,AROTINA)

PMSA010.PRW - PA010COPY() -> EXECBLOCK("PMA010FCC", .F., .F.)

PMSA010.PRW - PA010CPYINI() -> EXECBLOCK("PA010INI",.F.,.F.)

PMSA010.PRW - PA010DIALOG() -> AHEADRECR := EXECBLOCK("PMA010RE",.F.,.F.,{ATMPSV5,ATMP2SV5})

PMSA010.PRW - PA010DIALOG() -> APRODAUX := EXECBLOCK("PMA010PD",.F.,.F.,{AHEADPROD})

PMSA010.PRW - PA010DIALOG() -> ATEMPSV := EXECBLOCK("PMA010AC",.F.,.F.,{AHEADERSV[1]})

PMSA010.PRW - PA010DIALOG() -> ATEMPSV := EXECBLOCK("PMA010AC",.F.,.F.,{AHEADERSV[4]})

PMSA010.PRW - PA010DIALOG() -> EXECBLOCK("PMA010GRV",.F.,.F., {L010INCLUI,L010ALTERA,L010EXCLUI,(NOPCA==1)} )

PMSA015.PRW - PA015CPYINI() -> EXECBLOCK("PA015INI",.F.,.F.)

PMSA015.PRW - PA015DIALOG() -> EXECBLOCK("PMA015GRV",.F.,.F., {L015INCLUI,L015ALTERA,L015EXCLUI,(NOPCA==1)} )

PMSA015.PRW - PMS15LEREG() -> IF VALTYPE( ACPONOT := EXECBLOCK( "PMS015NC", .F., .F. ) ) <> "A"

PMSA050.PRW - PMS105VLDE() -> LRET := EXECBLOCK("PMA50VLD",.F.,.F.,{.F.,.F.,.T.})

PMSA050.PRW - PMSA050OK() -> LOK := EXECBLOCK("PMA50VLD",.F.,.F.,{INCLUI,ALTERA,.F.})

PMSA100.PRW - AF5ATUTRF() -> ACAMPOSUSR := EXECBLOCK("PM100AF5", .F., .F., {ACAMPOS, APARAM})

PMSA100.PRW - MENUDEF() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PM100ROT", .F., .F. ) ) == "A"

PMSA100.PRW - PMS100ALT() -> EXECBLOCK("PMS100A1",.F.,.F.)

PMSA100.PRW - PMS100ALT() -> EXECBLOCK("PMS100A2",.F.,.F.,{NOPC})

PMSA100.PRW - PMS100ALT() -> IF VALTYPE(AUSBUTTONS := EXECBLOCK("PM100BU2", .F., .F.)) == "A"

PMSA100.PRW - PMS100ALTCUS() -> RETURN EXECBLOCK("PMS100AC", .F., .F.)

PMSA100.PRW - PMS100AUXEDT() -> EXECBLOCK("PMAF2CST")

PMSA100.PRW - PMS100AUXEDT() -> EXECBLOCK("PMAF2CST", .F., .F.)

PMSA100.PRW - PMS100AUXEDT() -> EXECBLOCK("PMSXCUST")

PMSA100.PRW - PMS100DLG() -> EXECBLOCK("PMA100PRJ", .F., .F.)

PMSA100.PRW - PMS100DLG() -> EXECBLOCK("PMA100SA", .F., .F., {NOPCX})

PMSA100.PRW - PMS100DLG() -> EXECBLOCK("PMS100A4",.F.,.F.)

PMSA100.PRW - PMS100DLG() -> EXECBLOCK("PMS100ORC",.F.,.F.,{CFILIALAF1,CORCAMENTOAF1,CDESCRICAOAF1})

PMSA100.PRW - PMS100DLG() -> IF EXECBLOCK("PMA100INC")

PMSA100.PRW - PMS100DLG() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "PM100BUT", .F., .F. ) ) == "A"

PMSA100.PRW - PMS100DLG() -> LCONFEXCTE := EXECBLOCK("PMA100EX", .F., .F.)

PMSA100.PRW - PMS100IMPORT() -> EXECBLOCK("PM100POC", .F., .F.)

PMSA100.PRW - PMS100IMPORT() -> LRET := EXECBLOCK("PM100CPY", .F., .F.,APM100CPY)

PMSA100.PRW - PMS100OK() -> LRET := EXECBLOCK("PMA100ALT",.F.,.F.)

PMSA101.PRW - PMS101CMP() -> EXECBLOCK("PMA101CP",.F.,.F.,{ 'AF5',AF5->(RECNO()),AE1->(RECNO()),N101QUANT })

PMSA101.PRW - PMS101CMP2() -> EXECBLOCK("PMA101CP",.F.,.F.,{ 'AF2',AF2->(RECNO()),AE1->(RECNO()),N101QUANT })

PMSA101.PRW - PMS101DLG() -> ABUTTONS := EXECBLOCK("PMA101BU",.F.,.F.,{ABUTTONS})

PMSA101.PRW - PMS101DLG() -> EXECBLOCK("PMA101SA", .T., .T., {(NOPC==1), NOPCX})

PMSA101.PRW - PMS101DLG() -> IF !EXECBLOCK("PMA101DEL",.F.,.F.)

PMSA101.PRW - PMS101DLG() -> LPMS101MSG := EXECBLOCK("PMS101MSG", .F., .F.)

PMSA101.PRW - PMS101IMPOR() -> EXECBLOCK("PMA101IMP",.F.,.F.,{CCOMPOS,NQUANT})

PMSA101.PRW - PMS101IMPOR() -> IF EXECBLOCK("PMA101E2",.F.,.F.,{CAUX})==.T.

PMSA101.PRW - PMS101IMPOR() -> IF EXECBLOCK("PMA101E3",.F.,.F.,{CAUX})==.T.

PMSA103.PRW - A103GD1LINOK() -> LRET := EXECBLOCK("A103LINOK1",.F.,.F.,{LRET})

PMSA103.PRW - A103GD4LINOK() -> LRET := EXECBLOCK("A103LINOK4",.F.,.F.,{LRET})

PMSA103.PRW - PMS103DLG() -> AAF3FIELD := EXECBLOCK("PMA103REC", .T., .T., {AAF3FIELD})

PMSA103.PRW - PMS103DLG() -> ABUTTONS:= EXECBLOCK("PMA103BTN",.F.,.F.,{ABUTTONS})

PMSA103.PRW - PMS103DLG() -> ATMPSV5 := EXECBLOCK("PMA103REC", .T., .T., {ATMPSV5})

PMSA103.PRW - PMS103DLG() -> EXECBLOCK("PMA103FI",.F.,.F.,{L103INCLUI,L103ALTERA,L103EXCLUI,(NOPC == 1)})

PMSA103.PRW - PMS103DLG() -> IF !EXECBLOCK("PMA103ALT",.F.,.F.)

PMSA103.PRW - PMS103DLG() -> IF !EXECBLOCK("PMA103DEL",.F.,.F.)

PMSA103.PRW - PMS103DLG() -> IF !EXECBLOCK("PMA103INC",.F.,.F.)

PMSA103.PRW - PMS103DLG() -> LPMS103MSG := EXECBLOCK("PMS103MSG", .F.,.F.)

PMSA103.PRW - PMS103GRAVA() -> EXECBLOCK("PMA103GRV",.F.,.F.)

PMSA110.PRX - PMS110AVAL() -> IF EXECBLOCK("PMA110INC", .T., .T.)

PMSA110.PRX - PMS110AVAL() -> IF EXECBLOCK("PMA110ORC", .T., .T.)

PMSA110.PRX - PMS110GERA() -> EXECBLOCK("PM110AF8",.F.,.F.)

PMSA110.PRX - PMS110GERA() -> EXECBLOCK("PM110AF9",.F.,.F.)

PMSA110.PRX - PMS110GERA() -> EXECBLOCK("PM110AFA",.F.,.F.)

PMSA110.PRX - PMS110GERA() -> EXECBLOCK("PM110AFB",.F.,.F.)

PMSA110.PRX - PMS110GERA() -> EXECBLOCK("PM110AFC",.F.,.F.)

PMSA110.PRX - PMS110GERA() -> EXECBLOCK("PM110AFD",.F.,.F.)

PMSA110.PRX - PMS110GERA() -> EXECBLOCK("PMA110GERA",.F.,.F.)

PMSA200.PRW - A200CTRMENU() -> EXECBLOCK ("P200FER",.F.,.F.,OMENU2)

PMSA200.PRW - A200ENCERRA() -> EXECBLOCK("PMA200ENC", .F., .F., {LRET})

PMSA200.PRW - AF2ATUCODE() -> ACAMPOSUSR := EXECBLOCK("PM200AF2", .F., .F., {ACAMPOS, APARAM})

PMSA200.PRW - AF5ATUCODE() -> ACAMPOSUSR := EXECBLOCK("PM200AF5", .F., .F., {ACAMPOS, APARAM})

PMSA200.PRW - AF9ATUCODE() -> ACAMPOSUSR := EXECBLOCK("PM200AF9", .F., .F., {ACAMPOS, APARAM})

PMSA200.PRW - AF9NOIDX() -> ACAMPOSUSR := EXECBLOCK("P200AF92", .F., .F., {ACAMPOS, APARAM})

PMSA200.PRW - AFCATUCODE() -> ACAMPOSUSR := EXECBLOCK("PM200AFC", .F., .F., {ACAMPOS, APARAM})

PMSA200.PRW - AFCATUTRF() -> ACAMPOSUSR := EXECBLOCK("PM200_AFC", .F., .F., {ACAMPOS, APARAM})

PMSA200.PRW - AFCNOIDX() -> ACAMPOSUSR := EXECBLOCK("P200AFC2", .F., .F., {ACAMPOS, APARAM})

PMSA200.PRW - MENUDEF() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PM200ROT", .F., .F. ) ) == "A"

PMSA200.PRW - PMS200ALT() -> EXECBLOCK("PMS200A1",.F.,.F.)

PMSA200.PRW - PMS200ALT() -> EXECBLOCK("PMS200A2",.F.,.F.)

PMSA200.PRW - PMS200ALT() -> IF VALTYPE(AUSBUTTONS := EXECBLOCK("PM200BU2", .F., .F.)) == "A"

PMSA200.PRW - PMS200ALTCUS() -> ARETUSR := EXECBLOCK("PMS200CPRV",.F.,.F. )

PMSA200.PRW - PMS200ALTCUS() -> LRET := EXECBLOCK(ARETUSR[(APARAM1[1]-4),2],.F.,.F., {CFILTROPAFA, CFILTROB1, APARAM1, CFILTROAE8, CFILTRORAFA,CFLTAFAUSR} )

PMSA200.PRW - PMS200ALTCUS() -> RETURN EXECBLOCK("PMS200AC", .F., .F.)

PMSA200.PRW - PMS200AUXEDT() -> EXECBLOCK("PMSXCUST")

PMSA200.PRW - PMS200CHANGEEDT() -> IF ! EXECBLOCK("PMSCHGEDT", .F., .F., {INCLUI, ALTERA})

PMSA200.PRW - PMS200CMP() -> ADLGVER := EXECBLOCK("PMSDLGCOM",.F.,.F.)

PMSA200.PRW - PMS200CMP() -> EXECBLOCK("PMA200CP",.F.,.F.,{ 'AFC',AFC->(RECNO()),AE1->(RECNO()),NQUANT })

PMSA200.PRW - PMS200CMP2() -> @ 165, 171 BUTTON STR0077 SIZE 35 ,11  FONT ODLG:OFONT ACTION IIF(LOK:=(IIF(LPMA200VOK,EXECBLOCK("PMA200VOK",.F.,.F.,{CCOMPOS}),.T.)),ODLG:END(), .F.) OF ODLG PIXEL WHEN !EMPTY(NQUANT) .AND. !EMPTY(CCOMPOS) .AND. PMS200USRVLD()

PMSA200.PRW - PMS200CMP2() -> EXECBLOCK("PMA200CP",.F.,.F.,{ 'AF9',AF9->(RECNO()),AE1->(RECNO()),NQUANT })

PMSA200.PRW - PMS200DLG() -> EXECBLOCK("PMA200AL", .F., .F., {L200INCLUI, L200VISUAL, L200ALTERA, L200EXCLUI})

PMSA200.PRW - PMS200DLG() -> EXECBLOCK("PMA200MENU",.F.,.F.,{OTREE,CARQUIVO})

PMSA200.PRW - PMS200DLG() -> EXECBLOCK("PMA200PRJ", .F., .F.)

PMSA200.PRW - PMS200DLG() -> EXECBLOCK("PMA200SA", .F., .F., {NOPCX})

PMSA200.PRW - PMS200DLG() -> IF EXECBLOCK("PMA200INC")

PMSA200.PRW - PMS200DLG() -> LDELPRJ:= EXECBLOCK("PMA200DEL",.F.,.F.,)

PMSA200.PRW - PMS200FASE() -> EXECBLOCK("PM200FAS", .F., .F.)

PMSA200.PRW - PMS200FASE() -> EXECBLOCK("PMA200FA", .F., .F.,{AF8->AF8_PROJET, AF8->AF8_FASE})

PMSA200.PRW - PMS200FASE() -> LOK := EXECBLOCK("PMA200GRV",.F.,.F.)

PMSA200.PRW - PMS200IMPCOM() -> EXECBLOCK("P200CPY1",.F.,.F.)

PMSA200.PRW - PMS200IMPCOM() -> EXECBLOCK("PMA200IMP",.F.,.F.,{CCOMPOS,NQUANT})

PMSA200.PRW - PMS200IMPCOM() -> LCONTINUA := EXECBLOCK( "PMVALIMP",.F.,.F.,{CPROJET, CTAREFA, CCOMPOS})

PMSA200.PRW - PMS200IMPORT() -> ARET := EXECBLOCK("PM200CPY", .F., .F.,{NORCPRJ,CALIAS,NRECNO})

PMSA200.PRW - PMS200IMPORT() -> IF EXECBLOCK("PM100CPY", .F., .F.,APM100CPY)

PMSA200.PRW - PMS200IMPORT() -> LCALC := EXECBLOCK("PMACPYCAL", .F., .F.)

PMSA200.PRW - PMS200LEG() -> ALEGENDA := EXECBLOCK("PMA200LEG", .T., .T., {ACORES})

PMSA200.PRW - PMS200OK() -> LRET := EXECBLOCK("PMA200CO", .F., .F., {INCLUI, ALTERA})

PMSA200.PRW - PMS200RECALC() -> EXECBLOCK( "PM200MARK",.F.,.F.,{CPROJECT, CREV})

PMSA200.PRW - PMS200SBLT() -> AAUX := EXECBLOCK("PM200SLP",.F.,.F.)

PMSA200.PRW - PMS200SBLT() -> CFILTROUS := EXECBLOCK("PM200SLF",.F.,.F.)

PMSA200.PRW - PMS200SUBS() -> EXECBLOCK("PMS200SUB", .F., .F.,{"P"})

PMSA200.PRW - PMS200SUBS() -> EXECBLOCK("PMS200SUB", .F., .F.,{"R"})

PMSA200.PRW - PMS200TO201() -> IF !EXECBLOCK("PMA200TR", .F., .F., {NOPC, CEDT})

PMSA200.PRW - PMS200USER() -> EXECBLOCK("PMS200VISU",.F.,.F.)

PMSA200.PRW - PMS200USRVLD() -> LRET := EXECBLOCK("PMA200VLD",.F.,.F.,NIL)

PMSA200.PRW - PMSA200() -> CFILUSER := EXECBLOCK("PM200BFIL",.F.,.F.)

PMSA200.PRW - RECODEPROJ() -> EXECBLOCK("PMS200AT",.F.,.F.,{AEDT,ATAREFA})

PMSA200.PRW - RECODEPROJ() -> LCONTINUA := EXECBLOCK("PM200RP", .F., .F., {LCONTINUA})

PMSA200.PRW - VIEWDEF() -> ABUTTONUSR := EXECBLOCK("PM200BU2",.F.,.F.)

PMSA200.PRW - VIEWDEF() -> AUSBUTTONS := EXECBLOCK("PM200BUT",.F.,.F.)

PMSA201.PRW - A201GD1TUDOK() -> LRET := EXECBLOCK("PMA201OK", .F., .F.)

PMSA201.PRW - PMS201DLG() -> EXECBLOCK("PMA201SA", .T., .T., {LOK, NOPCX})

PMSA201.PRW - PMS201DLG() -> IF !EXECBLOCK("PMA201DEL",.F.,.F.)

PMSA201.PRW - PMS201DLG() -> LCONTINUA := EXECBLOCK("PMA201EX",.F.,.F.)

PMSA203.PRW - A203CHKALOC() -> ACONFIG[6]:=EXECBLOCK('PMA203EQ',.F.,.F.)

PMSA203.PRW - A203GD1LINOK() -> LRET := EXECBLOCK("A203LINOK1",.F.,.F.,{LRET})

PMSA203.PRW - A203GD5TUDOK() -> LRET := EXECBLOCK("PMA203T5",.F.,.F.)

PMSA203.PRW - A203GDCALCCUST() -> EXECBLOCK("PMA203CUS",.F.,.F.,{NGET})

PMSA203.PRW - A203GDCRNTDOK() -> LRET = EXECBLOCK("P203TDOK",.F.,.F.,{OGDPRDCRON:AHEADER,OGDPRDCRON:ACOLS})

PMSA203.PRW - A203GDDEL() -> LRET := EXECBLOCK("PMA203VEX",.F.,.F.,{ATMPCOLS,NTMPN})

PMSA203.PRW - A203GDPRDLOK() -> LRET = EXECBLOCK("P203LOK",.F.,.F.,{OGDPRDCRON:AHEADER,OGDPRDCRON:ACOLS})

PMSA203.PRW - A203PRDCRON() -> ACOLSEDAEF := EXECBLOCK("PMA203AEF", .T., .T.)

PMSA203.PRW - A203RECURSOS() -> CEQUIPE:=EXECBLOCK('PMA203EQ',.F.,.F.)

PMSA203.PRW - A203SIMULACAO() -> AAUX := EXECBLOCK("PMSRDSIM",.F.,.F.,{ACLONE(AHEADERSV[NPOSFLDREC]), ACLONE(ACOLSSV[NPOSFLDREC][NX])})

PMSA203.PRW - A203SIMULACAO() -> AAUX:=EXECBLOCK("PMSRDORD",.F.,.F.)

PMSA203.PRW - A203SIMULACAO() -> ADADOSSIM :=EXECBLOCK('PMA203SI',.F.,.F.,{ADADOSSIM})

PMSA203.PRW - AGDTUDOK() -> EXECBLOCK("PM203MAIL",.F.,.F.)

PMSA203.PRW - PMS203DFIM() -> LRET := EXECBLOCK("PM203FNA",.F.,.F.)

PMSA203.PRW - PMS203DLG() -> ABUTTONS:= EXECBLOCK("PMA203BTN",.F.,.F.,{ABUTTONS})

PMSA203.PRW - PMS203DLG() -> ACOLSSV :=  EXECBLOCK("PMS203ALT",.F.,.F.,{ ACOLSSV } )

PMSA203.PRW - PMS203DLG() -> EXECBLOCK("PMA203CL", .T., .T., {})

PMSA203.PRW - PMS203DLG() -> EXECBLOCK("PMA203FI",.F.,.F.,{L203INCLUI,L203ALTERA,L203EXCLUI})

PMSA203.PRW - PMS203DLG() -> EXECBLOCK("PMA203FM",.F.,.F.,{L203INCLUI,L203ALTERA,L203EXCLUI,(NOPC == 1)})

PMSA203.PRW - PMS203DLG() -> IF !EXECBLOCK("PMA203ALT",.F.,.F.)

PMSA203.PRW - PMS203DLG() -> IF !EXECBLOCK("PMA203DEL",.F.,.F.)

PMSA203.PRW - PMS203DLG() -> IF !EXECBLOCK("PMA203INC",.F.,.F.)

PMSA203.PRW - PMS203DLG() -> LCONTINUA := EXECBLOCK("PMA203EX",.F.,.F.)

PMSA203.PRW - PMS203GRAVA() -> CRET := EXECBLOCK("PMA203ASS",.F.,.F.,{CMAILDEST,CASSUNTO})

PMSA203.PRW - PMS203GRAVA() -> CRET := EXECBLOCK("PMA203MSG",.F.,.F.,{CMAILDEST,CMENSAGEM})

PMSA203.PRW - PMS203GRAVA() -> EXECBLOCK("PMA203GRV",.F.,.F.)

PMSA203.PRW - PMS203GRAVA() -> EXECBLOCK("PMSXCUST")

PMSA203.PRW - PMS203VIS() -> AHEADINSU:=EXECBLOCK("PMA203NS",.F.,.F.,{AHEADINSU})

PMSA203.PRW - PMS203VIS() -> AHEADPROD:=EXECBLOCK("PMA203PD",.F.,.F.,{AHEADPROD})

PMSA203.PRW - PMS203VIS() -> AHEADRECR:=EXECBLOCK("PMA203RE",.F.,.F.,{AHEADRECR})

PMSA203.PRW - PMS203VIS() -> ATEMPSV := EXECBLOCK("PMA203AC",.F.,.F.,{AHEADERSV[NPOSALOC]})

PMSA203.PRW - PMS203VIS() -> ATEMPSV := EXECBLOCK("PMA203AC",.F.,.F.,{AHEADERSV[NPOSPROD]})

PMSA203.PRW - PMS203VIS() -> ATMPSV5 := EXECBLOCK("PMA203RC", .T., .T., {ATMPSV5})

PMSA203.PRW - PMSA203CHK() -> LRETORNO := EXECBLOCK("PMA203VLD",.F.,.F.,{LA203INCLUI,LA203ALTERA,LA203EXCLUI})

PMSA205.PRW - PA205CPYINI() -> EXECBLOCK("PA205INI",.F.,.F.)

PMSA205.PRW - PA205DIALOG() -> EXECBLOCK("PMA205GRV",.F.,.F., {L205INCLUI,L205ALTERA,L205EXCLUI,(NOPCA==1)} )

PMSA205.PRW - PA205DLG2() -> LIMPEXP := EXECBLOCK("PMA205IE",.F.,.F.)

PMSA210.PRW - PMS210FRV() -> BOK:={|| M->AF8_FASE :=M->AFE_FASEOR, LGRAVAOK:=((EMPTY(M->AFE_FASEOR).OR.M->AFE_FASEOR==AF8->AF8_FASE .OR. PMSFASEPCO()) .AND. EXECBLOCK('PMA210OK',.F.,.F.,{'2'})),ODLG:END()}

PMSA210.PRW - PMS210FRV() -> EXECBLOCK("PMA210FR", .F., .F., {LGRAVAOK})

PMSA210.PRW - PMS210RVS() -> BOK:={|| M->AF8_FASE :=M->AFE_FASE, LGRAVAOK:=(M->AFE_FASE==AF8->AF8_FASE .OR. PMSFASEPCO(@CENCERRA)) .AND. EXECBLOCK('PMA210OK',.F.,.F.,{'1'}),ODLG:END()}

PMSA210.PRW - PMS210RVS() -> EXECBLOCK("PMA210IRV", .F., .F., {LGRAVAOK})

PMSA220.PRW - A220VLDEM() -> LRETBLOCK := EXECBLOCK("PMAEMPVLD", .F., .F. ,{L220INCLUI, L220VISUAL, L220ALTERA, L220EXCLUI})

PMSA220.PRW - PMS220AT() -> EXECBLOCK("PMA220GPL")

PMSA220.PRW - PMS220AT() -> IF !EXECBLOCK("PMA220PL")

PMSA220.PRW - PMS220CP() -> IF !EXECBLOCK("PMA220CP")

PMSA220.PRW - PMS220EM() -> IF !EXECBLOCK("PMA220EM")

PMSA220.PRW - PMS220OP() -> IF !EXECBLOCK("PMA220OP")

PMSA220.PRW - PMS220PM() -> AMENUNEW := EXECBLOCK("PMS220BTN",.F.,.F.,{AROTPM})

PMSA220.PRW - PMS220SA() -> AUSRROTINA := EXECBLOCK("PMA220BSA", .F., .F.)

PMSA220.PRW - PMS220SA() -> IF !EXECBLOCK("PMA220SA")

PMSA220.PRW - PMS220SC() -> AUSRROTINA := EXECBLOCK("PMA220AB", .F., .F.,{AROTINA})

PMSA220.PRW - PMS220SC() -> AUSRROTINA := EXECBLOCK("PMA220BT", .F., .F.)

PMSA220.PRW - PMS220SC() -> IF !EXECBLOCK("PMA220SC")

PMSA220.PRW - PMS220WRAT() -> IF !EXECBLOCK("PMA220WR")

PMSA230.PRW - PMS230DC() -> EXECBLOCK("PM230DOC",.F.,.F.,{AF9->AF9_PROJET,AF9->AF9_TAREFA})

PMSA230.PRW - PMS230SAVE() -> LRET := EXECBLOCK("PMA230SD", .F., .F., {CALIAS, NRECVIEW})

PMSA230.PRW - PMS230VIEW() -> LRET := EXECBLOCK("PMA230VD", .F., .F., {CALIAS, NRECVIEW})

PMSA310.PRW - A310CONFEDT() -> LCONTINUA := EXECBLOCK("PMA311IN",.F.,.F.)

PMSA310.PRW - PMS310DLG() -> EXECBLOCK( "AF8GRAVA",.F.,.F.,)

PMSA310.PRW - PMS310DLG() -> EXECBLOCK("PMA310MNU",.F.,.F., {@OMENU, @OTREE, CARQUIVO, L310VISUAL })

PMSA311.PRW - AFFTUDOK() -> LRET  := EXECBLOCK("PMA311VL",.F.,.F.,{__LREJEC,__CQNCREJ})

PMSA311.PRW - PMA311BT() -> IF !EXECBLOCK("PMA311EX",.F.,.F.)

PMSA311.PRW - PMA311BT() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "PMA311BT", .F., .F. ) ) == "A"

PMSA311.PRW - PMS311DLG() -> LCONTINUA := EXECBLOCK("PMA311AL",.F.,.F.)

PMSA311.PRW - PMS311GRAVA() -> EXECBLOCK("PMA311GRV",.F.,.F.)

PMSA311.PRW - PMSVLRELAC() -> LRET := EXECBLOCK("PMA311VR",.F.,.F.,{CPROJET, CREVISA, CTAREFA, NPERC})

PMSA320.PRW - PMS320DLG() -> LCONTINUA := EXECBLOCK("PM320ALT", .F., .F. )

PMSA320.PRW - PMS320DLG() -> LCONTINUA := EXECBLOCK("PM320EXC", .F., .F. )

PMSA320.PRW - PMS320DLG() -> LCONTINUA := EXECBLOCK("PM320INC", .F., .F. )

PMSA320.PRW - PMS320GRAVA() -> EXECBLOCK("PMDELAFU", .F., .F., { NRECAFU })

PMSA320.PRW - PMS320GRV() -> LRETURN:= EXECBLOCK("PMA320TOK", .F., .F.)

PMSA320.PRW - PMS320GVAUX() -> EXECBLOCK("PM320GRV", .F., .F.,{@ACONFIG})

PMSA320.PRW - PMS320GVAUX() -> EXECBLOCK("PMSGRVAFU", .F., .F., {AFU->AFU_FILIAL,AFU->AFU_CTRRVS,;

PMSA320.PRW - PMS320PER() -> ARETPE := EXECBLOCK("PMS320CPO",.F.,.F.,{APARAMFIELDS})

PMSA320.PRW - PMSA320() -> AFILTOPBOT := ACLONE(EXECBLOCK("PMS320FIL",.F.,.F., AFILTOPBOT ))

PMSA321.PRW - A321LINOK() -> LRET := EXECBLOCK( 'PM321LOK', .F., .F. )

PMSA321.PRW - PMS321DLG() -> BOK := {||IIF(OGET:TUDOOK() .AND. EXECBLOCK("PMA321BOK",.F.,.F.,{NOPCX}),(ODLG:END(),LOK:=.T.),LOK := .F.)}

PMSA321.PRW - PMS321DLG() -> CDOCAUX := EXECBLOCK( "PMSA321DOC", .F., .F. )

PMSA321.PRW - PMS321DLG() -> LOK := EXECBLOCK("PMA321GA", .F., .F., {LOK})

PMSA400.PRW - PMA400PROCES() -> EXECBLOCK("PMA400CT",.F.,.F.)

PMSA400.PRW - PMA400PROCES() -> NCSTHRS := EXECBLOCK("PMS400CAL",.F.,.F.,{NCSTHRS,NTOTHRS})

PMSA410.PRW - MENUDEF() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PM410ROT", .F., .F. ) ) == "A"

PMSA410.PRW - PMS200IMPCOM() -> EXECBLOCK("PMA200IMP",.F.,.F.,{CCOMPOS})

PMSA410.PRW - PMS410DLG() -> EXECBLOCK("PMA410MENU",.F.,.F.,{OTREE,CARQUIVO,ODLG})

PMSA410.PRW - PMS410DLG() -> LDELPRJ:= EXECBLOCK("PMA200DEL",.F.,.F.,)

PMSA500.PRW - PMS500ATU() -> EXECBLOCK("PMA500ATU" ,.F. ,.F.)

PMSA500.PRW - PMS500EFT() -> EXECBLOCK("PMS500_2",.F.,.F.)

PMSA500.PRW - PMS500EFT() -> LCONTINUA := EXECBLOCK("PMS500_1",.F.,.F.)

PMSA500.PRW - PMSA500() -> EXECBLOCK("PMA500AROT" ,.F. ,.F.)

PMSA510.PRW - MENUDEF() -> ABOTADIC := EXECBLOCK("PMS510BOT",.F.,.F.,AROTINA)

PMSA510.PRW - PMS510VLD() -> LRET := EXECBLOCK("PM510GRV", .F., .F.)

PMSA510.PRW - PMS510VLD() -> LRET := EXECBLOCK("PM510VLD", .F., .F., {NOPCX})

PMSA600.PRW - MENUDEF() -> IF VALTYPE( AUSROTINA := EXECBLOCK( "PM600ROT", .F., .F. ) ) == "A"

PMSA600.PRW - PMS600CHANGE() -> NVAL := EXECBLOCK("PMSA600F", .F., .F., {(CARQUIVO)->ALIAS,(CARQUIVO)->RECNO})

PMSA600.PRW - PMS600PLAN() -> ABOD := EXECBLOCK("PMSAF8BD",.F.,.F.)

PMSA600.PRW - PMS600PV() -> AARRAYFAT[(LEN(AARRAYFAT))][7] := EXECBLOCK("PMSA600AF",.F.,.F.,{"AFA"})

PMSA600.PRW - PMS600PV() -> AARRAYFAT[LEN(AARRAYFAT)][7] := EXECBLOCK("PMSA600AF",.F.,.F.,{"AFB"})

PMSA600.PRW - PMS600PV() -> ACOLSC6[NY] := EXECBLOCK("PMA600COL",.F.,.F.,{ACOLSC6[NY],AHEADC6,AARRAYFAT[NZ]})

PMSA600.PRW - PMS600PV() -> EXECBLOCK("PMSA600PV", .F., .F.)

PMSA700.PRW - PMS700DLG() -> LCONTINUA := EXECBLOCK("PM700EXC", .F., .F. )

PMSA700.PRW - PMS700GRAVA() -> EXECBLOCK("PMDELAJK", .F., .F., { NRECAJK })

PMSA700.PRW - PMS700GRAVA() -> EXECBLOCK("PMSGRVAJK", .F., .F., {AJK->AJK_FILIAL,AJK->AJK_CTRRVS,;

PMSA700.PRW - PMS700GRV() -> LRETURN:= EXECBLOCK("PMA700TOK", .F., .F.)

PMSA710.PRW - PMS710DLG() -> EXECBLOCK("P710GRVCP", .F.,.F.)

PMSA800.PRW - PMS800DLG() -> ABUTTONS := EXECBLOCK("PMA800BTN",.F.,.F.,{ABUTTONS})

PMSC010.PRW - PMSREADRECS() -> CRECAUX := EXECBLOCK("PMC010REC",.F.,.F.,{CAUXREC})

PMSC010A.PRW - AUX010SINC() -> EXECBLOCK("P010ATAB",.F.,.F.,{OAPP})

PMSC010A.PRW - AUX010SINC() -> IF !EXECBLOCK("PMA010FR", .F., .F.)

PMSC010A.PRW - AUX010SINC() -> LRET := EXECBLOCK("P010AFCVL", .F., .F.)

PMSC010A.PRW - AUX010WRITE() -> ADADOSUSR := EXECBLOCK("PMSGETFLD", .F.,.F., { ADADOSUSR , 1 , NW } )

PMSC010A.PRW - AUX010WRITE() -> ADADOSUSR := EXECBLOCK("PMSGETFLD", .F.,.F., { ADADOSUSR , 2 , NW })

PMSC010A.PRW - AUX010WRITE() -> AFA->AFA_ALOC := EXECBLOCK("PMS010IM", .F., .F., {ARELAC[NZ,2]})

PMSC010A.PRW - AUX010WRITE() -> EXECBLOCK("PMSPUTFLD", .F. , .F. , {ADADOSUSR, 1, NW} )

PMSC010A.PRW - AUX010WRITE() -> EXECBLOCK("PMSPUTFLD", .F. , .F. , {ADADOSUSR, 2, NW} )

PMSC010A.PRW - AUX010WRITE() -> IF LPMSVLRPRD .AND. EXECBLOCK("PMSVLRPRD",.F.,.F.)

PMSC010A.PRW - PMCADDPRJ() -> EXECBLOCK("PMSSETFLD", .F. , .F. , {OPROJECT, 1, LEN(APROJECT)} )

PMSC010A.PRW - PMCADDPRJ() -> EXECBLOCK("PMSSETFLD", .F. , .F. , {OPROJECT, 2, LEN(APROJECT)} )

PMSC010A.PRW - PMCADDPRJ() -> LRETAF9 := EXECBLOCK("P010AF9S", .F., .F.)

PMSC010A.PRW - PMCADDPRJ() -> LRETAFC := EXECBLOCK("P010AFCS", .F., .F.)

PMSC010A.PRW - PMCADDPRJ() -> NAFAALOC := EXECBLOCK("PMS010EX", .F., .F., {AFA->AFA_ALOC})

PMSC010A.PRW - PMSLOGINT() -> CTEXTO := EXECBLOCK("PMSEXCE1", .F., .F., {CTEXTO, CSEP, CALIAS})

PMSC010A.PRW - PMSLOGINT() -> CTEXTO := EXECBLOCK("PMSEXCE2", .F., .F., {CTEXTO, CSEP, CALIAS})

PMSC010B.PRW - AUX010BEXP() -> IF !EXECBLOCK("PMA010FR", .F., .F.)

PMSC010B.PRW - AUX010BGRV() -> ADADOSUSR := EXECBLOCK("PMSGETFLD", .F.,.F., { ADADOSUSR , 1 , NW } )

PMSC010B.PRW - AUX010BGRV() -> ADADOSUSR := EXECBLOCK("PMSGETFLD", .F.,.F., { ADADOSUSR , 2 , NW })

PMSC010B.PRW - AUX010BGRV() -> AFA->AFA_ALOC := EXECBLOCK("PMS010IM", .F., .F., {ARELAC[NZ,2]})

PMSC010B.PRW - AUX010BGRV() -> EXECBLOCK("PMSPUTFLD", .F. , .F. , {ADADOSUSR, 1, NW} )

PMSC010B.PRW - AUX010BGRV() -> EXECBLOCK("PMSPUTFLD", .F. , .F. , {ADADOSUSR, 2, NW} )

PMSC010B.PRW - PMCADDPRJ() -> NAFAALOC := EXECBLOCK("PMS010EX", .F., .F., { (CALIASQRY)->(AFA_ALOC) , (CALIASQRY)->(RECNO_) } )

PMSC010B.PRW - PMSCALCAMAR() -> AFA->AFA_ALOC := EXECBLOCK("PMS010IM", .F., .F., {ARELAC[NZ,2]})

PMSC100.PRW - PMSC100AEX() -> ARETBUTT := EXECBLOCK("PMC100AEX",.F.,.F.)

PMSC100.PRW - PMSC100EV() -> ARETBUTT := EXECBLOCK("PMC100EV",.F.,.F.)

PMSC100.PRW - PMSC100PFS() -> ARETBUTT := EXECBLOCK("PMC100PGF",.F.,.F.)

PMSC120.PRW - AUXLOADARRAY() -> IF EXECBLOCK("PMSUSERMNT")

PMSC130.PRW - PM130CALC() -> ARET := EXECBLOCK("PMS130PV", .F. , .F. , { ARET , AVET , CPROJETO , CREVISA , DDTFIM } )

PMSMONIT.PRW - AUXUSRGTT() -> ABUTTMP := EXECBLOCK("PMSMON02")

PMSMONIT.PRW - AUXUSRGTT() -> AMENU := EXECBLOCK("PMSMON01",,,{AMENU})

PMSMONIT.PRW - FINALIZA() -> ACNTSOBRIG := EXECBLOCK("PMSMON07",,,{ALISTA, ACNTSOBRIG})

PMSMONIT.PRW - FINALIZA() -> ALISTA := EXECBLOCK( "PMSMONFIN", .F., .F., { ALISTA } )

PMSMONIT.PRW - FINALIZA() -> CMSGEML := EXECBLOCK( "PMSMONEML", .F., .F., { CMSGEML, AMOTIVOS } )

PMSMONIT.PRW - PMMONCTRMNU() -> EXECBLOCK("PMSMON03", .F., .F., OMENU)

PMSMONIT.PRW - PMMONCTRMNU() -> OAUX := EXECBLOCK("PMSMON08", .F., .F., OMENU)

PMSMONIT.PRW - PMMONSWTSK() -> ADADOS:= EXECBLOCK("PMSMONIT",.F.,.F.,{ADADOS})

PMSMONIT.PRW - PMSCFGREC() -> CFILTMON := EXECBLOCK("PMSMTFIL",.F.,.F.)

PMSMONIT.PRW - PMSMONIT() -> CFILTMON := EXECBLOCK("PMSMTFIL",.F.,.F.)

PMSMONIT.PRW - PMSMONREJ() -> AAUXBLK := EXECBLOCK("PMSMON05", .T., .T., {AAUX})

PMSMONIT.PRW - PMSMONVLD() -> LVALID:=EXECBLOCK("PMSMONLIB",.F.,.F.)

PMSMONIT.PRW - SIMFCHKDLG() -> ABUTTMP := EXECBLOCK("PMSMON06", .T., .T., {AFIELDLST})

PMSMONIT.PRW - SIMFCHLCLK() -> LPERET := EXECBLOCK( 'PMSFCHLCLK',.F.,.F., { AJO->AJO_PROJET, AJO->AJO_REVISA, AJO->AJO_TAREFA, AJO->AJO_ITEM } )

PMSWMT120.PRW - INCLUI -> ARETPE := EXECBLOCK("PWSMT120",.F.,.F.,{ACABEC,AITENS,ARATCTBPC,AADTPC})

PMSWMT410.PRW - ALTERAR -> CNATUREZA := EXECBLOCK(CNATUREZA,.F.,.F.,{OCABE,OCORPO})

PMSXFUN.PRX - AUXDLGAF81() -> ABUTTONS := EXECBLOCK("PMSAF8BD",.F.,.F.)

PMSXFUN.PRX - AUXDLGAF81() -> CFILHOS := EXECBLOCK("PMSAF801", .F., .F., {CFILHOS})

PMSXFUN.PRX - AUXDLGAF82() -> ABOD := EXECBLOCK("PMSAF8BD",.F.,.F.)

PMSXFUN.PRX - AUXDLGAF82() -> ACAMPOS := EXECBLOCK("PMSAF8DLG",.F.,.F.,{ACAMPOS})

PMSXFUN.PRX - AUXDLGAF82() -> CFILHOS := EXECBLOCK("PMSAF801", .F., .F., {CFILHOS})

PMSXFUN.PRX - CARGATARREC() -> AUSERINFO:=EXECBLOCK("PMSRDUSR",.F.,.F.)

PMSXFUN.PRX - DISTRECURSO() -> EXECBLOCK("PMSXGANT", .F., .F., {AAXTASK,AALLTASK})

PMSXFUN.PRX - PMSAFGTOK() -> LRET := EXECBLOCK("PMSAFGMB", .F., .F., {LRET})

PMSXFUN.PRX - PMSAFLTOK() -> LRET := EXECBLOCK("PMSAFLRAT", .F., .F.)

PMSXFUN.PRX - PMSAFNTOK() -> LRET := EXECBLOCK("PMSAFNV", .F., .F.)

PMSXFUN.PRX - PMSAFRTOK() -> LRET := EXECBLOCK("PMSVLF2", .F., .F.)

PMSXFUN.PRX - PMSAFRTOK() -> NTOTTIT := EXECBLOCK("PMSTOKFI",.F.,.F.,{NTOTTIT, NTOTVAL})

PMSXFUN.PRX - PMSAJETOK() -> LRET := EXECBLOCK("PMSAJEMB", .F., .F.,{LRET})

PMSXFUN.PRX - PMSAJETOK() -> NTOTTIT := EXECBLOCK("PMSTOKMB",.F.,.F.,{NTOTTIT, NTOTVAL})

PMSXFUN.PRX - PMSATUEMP() -> CLOCAL := EXECBLOCK("PMSALTARM",.F.,.F.,{CLOCAL,CPROJETO,CTAREFA,NQUANT,CPRODUTO,CSINAL})

PMSXFUN.PRX - PMSAVALAFF() -> EXECBLOCK("PMSDELAFF",.F.,.F.)

PMSXFUN.PRX - PMSAVALAFF() -> LGERA := EXECBLOCK("PMSAFLCP",.F.,.F.)

PMSXFUN.PRX - PMSAVALAFP() -> EXECBLOCK("PMSSE1AFT",.F.,.F.)

PMSXFUN.PRX - PMSAVALAFU() -> AARRAYSD3 := EXECBLOCK("PMSSD3AFU",.F.,.F.,{NEVENTO,AARRAYSD3})

PMSXFUN.PRX - PMSAVALAFU() -> LCONTINUA := EXECBLOCK("PMSAFUSD3", .F., .F.,{NEVENTO ,CALIAS})

PMSXFUN.PRX - PMSAVALPRJ() -> EXECBLOCK("PMSGAFX",.F.,.F.)

PMSXFUN.PRX - PMSCHKUSER() -> LRET := EXECBLOCK("PMSVLDUSR", .T., .T., { CPROJETO, CTAREFA, CEDT, CEDTPAI, NCHECK, CCAMPO, CREVISA, CUSERID, LCHECKPAI, LRET } )

PMSXFUN.PRX - PMSCOTPAFA() -> NCUSTO := EXECBLOCK("PMSXCUSPRV",.F.,.F.,{NCUSTO})

PMSXFUN.PRX - PMSDLGAF1() -> ABUTTONS := EXECBLOCK("PMSAF1BD",.F.,.F.)

PMSXFUN.PRX - PMSDLGAF1() -> CFILHOS := EXECBLOCK("PMSAF101", .F., .F., {CFILHOS})

PMSXFUN.PRX - PMSDLGFI() -> AALTER := EXECBLOCK("PMSAFRCPO", .F., .F., {AALTER})

PMSXFUN.PRX - PMSDLGFI() -> EXECBLOCK("PMSFISCR",.F.,.F.,{ODLG,NOPCAO})

PMSXFUN.PRX - PMSDLGFI() -> LVALIDO := EXECBLOCK("FA050PMS",.F.,.F.)

PMSXFUN.PRX - PMSDLGMB() -> EXECBLOCK("PMSMBSCR",.F.,.F.,{ODLG,NOPCAO})

PMSXFUN.PRX - PMSDLGNF() -> AALTER := ACLONE(EXECBLOCK("PMSAFNCPO", .F.,.F.,{AALTER,AHEADER,ACOLS}))

PMSXFUN.PRX - PMSDLGNF() -> AALTER := EXECBLOCK("PMSXALTER", .F., .F., {AALTER})

PMSXFUN.PRX - PMSDLGNF() -> EXECBLOCK("PMSNFESCR",.F.,.F.,{ODLG,NOPCAO})

PMSXFUN.PRX - PMSDLGNFS() -> EXECBLOCK("PMSNFSCR",.F.,.F.,{ODLG,NOPCAO})

PMSXFUN.PRX - PMSDLGRC() -> EXECBLOCK("PMSDLGRC", .F., .F.)

PMSXFUN.PRX - PMSDLGRC() -> EXECBLOCK("PMSRCSCR",.F.,.F.,{ODLG,NOPCAO})

PMSXFUN.PRX - PMSDLGRC() -> LVALIDO := EXECBLOCK("FA040PMS",.F.,.F.)

PMSXFUN.PRX - PMSDLGREDISTREC() -> AAUX:=EXECBLOCK("PMSRDORD",.F.,.F.)

PMSXFUN.PRX - PMSDLGSA() -> AALTER := ACLONE(EXECBLOCK("PMSAFHCPO", .F.,.F.,{AALTER,AHEADER,ACOLS}))

PMSXFUN.PRX - PMSDLGSA() -> EXECBLOCK("PMSSASCR",.F.,.F.,{ODLG,NOPCAO})

PMSXFUN.PRX - PMSDLGSC() -> EXECBLOCK("PMSSCSCR",.F.,.F.,{ODLG,NOPCAO})

PMSXFUN.PRX - PMSGRVSC() -> EXECBLOCK("PMSGRVSC",.F.,.F.)

PMSXFUN.PRX - PMSGRVSC7() -> EXECBLOCK("PMSSC701", .F., .F., {CNUMSOLIC,CITEM})

PMSXFUN.PRX - PMSINICRTE() -> CQRY := EXECBLOCK( "PMSSD3QRY" , .F. , .F. , { CQRY } )

PMSXFUN.PRX - PMSINICRTE() -> CQRY := EXECBLOCK("PMSQRCRTE", .F., .F., {CQRY,ACRTEPROC,1})

PMSXFUN.PRX - PMSINICRTE() -> CQRY := EXECBLOCK("PMSQRCRTE", .F., .F., {CQRY,ACRTEPROC,2})

PMSXFUN.PRX - PMSINICRTE() -> CQRY := EXECBLOCK("PMSQRCRTE", .F., .F., {CQRY,ACRTEPROC,3})

PMSXFUN.PRX - PMSINICRTE() -> CQRY := EXECBLOCK("PMSQRCRTE", .F., .F., {CQRY,ACRTEPROC,4})

PMSXFUN.PRX - PMSINICRTE() -> CQRY := EXECBLOCK("PMSQRCRTE", .F., .F., {CQRY,ACRTEPROC,5})

PMSXFUN.PRX - PMSINICRTE() -> CQRY := EXECBLOCK("PMSQRCRTE", .F., .F., {CQRY,ACRTEPROC,6})

PMSXFUN.PRX - PMSINICRTE() -> CQRY := EXECBLOCK("PMSQRCRTE", .F., .F., {CQRY,ACRTEPROC,7})

PMSXFUN.PRX - PMSINICRTE() -> CQRYFILAFM := EXECBLOCK("PMSFILAFM",.F.,.F.)

PMSXFUN.PRX - PMSINICRTE() -> LCONSIDERA := EXECBLOCK( "PMSSD3CRTE" , .F. , .F. , { "QRYCRTE" } )

PMSXFUN.PRX - PMSPLANAF1() -> ABOD := EXECBLOCK("PMSAF1BD",.F.,.F.)

PMSXFUN.PRX - PMSPLANAF1() -> CARQUIVO := EXECBLOCK("PMSAF102", .F., .F., {CARQUIVO})

PMSXFUN.PRX - PMSPLANAF8() -> ABOD := EXECBLOCK("PMSAF8BD",.F.,.F.)

PMSXFUN.PRX - PMSPLANAF8() -> ACAMPOS := EXECBLOCK("PMSAF8DLG",.F.,.F.,{ACAMPOS})

PMSXFUN.PRX - PMSPLANAF8() -> CARQUIVO := EXECBLOCK("PMSAF802", .F., .F., {CARQUIVO})

PMSXFUN.PRX - PMSPLANAF8() -> EXECBLOCK("PMXBRCOL", .F., .F., {OBROWSE, CARQUIVO})

PMSXFUN.PRX - PMSPLEXEC() -> AARRAYOP := EXECBLOCK("PMSNUMOP", .F., .F., {AARRAYOP})

PMSXFUN.PRX - PMSPLEXEC() -> AAUXRAT := EXECBLOCK("PMSRATSC", .F., .F., {AAUXRAT})

PMSXFUN.PRX - PMSPLEXEC() -> APMSRATPL := EXECBLOCK("PMSRATPL", .F., .F., {AAUXPROD,AAUXRAT})

PMSXFUN.PRX - PMSPLEXEC() -> EXECBLOCK("PMSEXEEV", .T., .T., {RETCODUSR(), M->AFK_PLANEJ, ATABELA[1], ATABELA[2], ATABELA[3], ATABELA[4]})

PMSXFUN.PRX - PMSPLEXEC() -> EXECBLOCK("PMSEXESC",.F.,.F.)

PMSXFUN.PRX - PMSPLEXEC() -> NQTDEST += EXECBLOCK("PMSPLEST", .F., .F.)

PMSXFUN.PRX - PMSRETRES() -> CRESOURCE := EXECBLOCK("PMSAF8RES",.F.,.F.,{CALIAS,NRECNO})

PMSXFUN.PRX - PMSSELTSK() -> EXECBLOCK("PMSBOTAO",.F.,.F.,{OPANELBOTTOM})

PMSXFUN.PRX - PMSUSRCHK() -> LRET := EXECBLOCK('PMUSRVLD',.F.,.F.,{CALIAS,LINCLUI,LALTERA,LEXCLUI})

PMSXFUN.PRX - PMSUSRDLG() -> IF VALTYPE( AUSBUTTONS := EXECBLOCK( "PMBTUSR", .F., .F. ) ) == "A"

PMSXFUN.PRX - PMSUSRGRV() -> EXECBLOCK('PMGRUSR',.F.,.F.,{CALIAS})

PMSXFUN.PRX - PMSWRITED2() -> EXECBLOCK("PMSNFINC", .F., .F., {(CALIASSD2)->D2_PROJPMS, (CALIASSD2)->D2_EDTPMS, (CALIASSD2)->D2_TASKPMS})

PMSXFUN.PRX - PROCTAREFA() -> AALLTASK := EXECBLOCK("PMSRDSRT",.F.,.F.,{NORDEM, AALLTASK})

PMSXFUN.PRX - PROCTAREFA() -> AAUXTASK := EXECBLOCK("PMSRDSRT",.F.,.F.,{NORDEM, AAUXTASK})

PMSXFUN.PRX - REDISTRGANTT() -> ABUTTON:=EXECBLOCK('PMSREDIS',.F.,.F.,{1})

 

 

 

Gostou? Compartilhe com seus amigos e deixe um comentário! 😎  

Um abraço, e até a próxima