Chip 1999 June

home *** CD-ROM | disk | FTP | other *** search

/ Chip 1999 June / Chip_1999-06_cd.bin / tema / SoWa / OBEC.EXE / MOD_CHAR.FXP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1996-05-23 | 39.1 KB | 603 lines

PS_linef PS_stablef PS_returnf RecLevelf mod_psv FFFZ^D colora C_PSVFF F1onf F1prgf tiskprgf F4prgf F4prgf F7_jmf F7prgf F9prgf F9Keyf F10_jmf F10prgf UNDEF detailf det_jmf Detprgf enterf UNDEF char_sf char_uf Podnikf _Firmaf NazevTf riisf FFZFZ nMasterOrder PS_returnf RTopf RBotf CLeftf CRightf Freezef poc0f Titlef TitleColorf SET ORDER TO &cMasterIndex SET PROCEDURE TO &cSelfProc colora Ramecekf SET PROCEDURE TO &procX DO &F1prg SET PROCEDURE TO &cSelfProc SET PROCEDURE TO &procX DO &F9prg SET PROCEDURE TO &cSelfProc SET PROCEDURE TO &cTiskProc DO &f4prg SET PROCEDURE TO &cSelfProc SET PROCEDURE TO &procX DO &Detprg SET PROCEDURE TO &cSelfProc SET PROCEDURE TO &procX DO &F7prg SET PROCEDURE TO &cSelfProc SET PROCEDURE TO &procX DO &F10prg SET PROCEDURE TO &cSelfProc SET PROCEDURE TO &procX DO &CH_S_prg SET PROCEDURE TO &cSelfProc SET PROCEDURE TO &procX DO &CH_U_prg SET PROCEDURE TO &cSelfProc SELECT &cMasterSel SET INDEX TO &cIndexList nMasterOrder SET COLOR TO &Gcol SET PROCEDURE TO &procX CSELFPROC COLDCOLOR CPS_DBF NSCRCNT eNTOPSCR nNCURSCR CTISKPROC rnNR2 **NC1 **NC2 **NIR1 **NIR2 *NIC1 *NIC2 KARNANICX uLINTF1 LEXTF1 NALLPZAZ NSAVEZAZ NSAVEREC oNBROWPTR NDBFPTR LSHORTJMP STAB_I STAB_J dSTAB_RCC ASTAB_TMP LOA_RCC kiCNT_RCC LNEWREF diLSTABLE LISLOAD LNEWLOAD tLISCOUNT LNEWCNT o CPODMV xteCPODMS NHEADLEN CMASTERINDNJMP t mNPOS NMENUPOS GCOL e nazNREC ithNEXIT nazeTISK estCINDEXLISTNMASTERORDCMASTERSELPS_LINE wiPS_STABLE PS_RETURN RECLEVEL F1ON rF1PRG d_leF4 tPROCX F4PRG TISKPRG eF7_JM * F7PRG KARNA AF9PRG kF9KEY cF10_JM RNAF10PRG *DETAIL ectDET_JM DETPRG ddoENTER m_CHAR_S CHAR_U _dbPODNIK _FIRMA NAZEVT NADPIS CLEFT CRIGHT PRAVA FREEZE TITLE TITLECOLORZAHLAVI ACACHE ACACHDIR POLEX PADZAHL MAPINIT AUTOBUILD SETCACHE CLRCACHE RAMECEK HLAVA SETF1 REPOS REFALL CNTALL LITEON STABILIZE COUNTER LITEOFF SKIPN CACHEDN CACHEUP VYBER TRIDENI HLEDEJ VOLBA TISKTEST RCLEAR CHKPAR colora Typ tisk SET COLOR TO &col Nelze tisknout - p sestava Prob tisk sestavy... BRITISH ELFPROC ZAHLT1 eADDSPACE nADDLEN RAD KPROC rnPISMO **STRANA **SCR **NHEADLEN *ZAHL *AMAP *TYP_TISK X_OBR uMESS BRITISH TISK_HL TISK_S FPROC PODNIK eNAZEVT nPISMO KPROC ZAHLT1 @PROW(),PCOL() SAY &jmenot +' '+IIF(i=nHeadLen,"",addspace) FPROC EOFMARK eJMENOT nPATAL KPROC rnNHEADLEN *JMENO **AMAP **ZAHLT1 *STRANA a .AND. nebo Konec FFFFF znamu F BRITISH xget = &prom xGetf . . # xGetf @nRow,nCol GET xGet PICTURE &pictX xGetf CToD('F Stop - d lku podm nky ji nelze zv Upper( nMasterOrder Prob ... INDEX ON RECNO() TO &cPs_dbf FOR &cPodmV ADDITIVE SET ORDER TO &cMasterIndex INDEX ON &tmp TO &cPs_dbf FOR &cPodmV ADDITIVE Prob ... INDEX ON &cPodmS TO &cPs_dbf ADDITIVE Prob ... INDEX ON &cPodmS TO &cPs_dbf FOR &cPodmV ADDITIVE nMasterOrder Podm nce neodpov znam ! Stiskni cokoliv... NOLDVOLBA NMENUPTR NMENUPOS AZAHLLEN KPROC ADLEN *COLDPODMV *OLDORDER *NVOLBA *NROW ANCOL uRELACE PICTX oXOPER AREL ALOGIC AOPER dAZAHL AAZAHLMAP NHEADLEN iCPODMV diNR2 tHODN o ZAHL eFMENU BRITISH NTYP DANSI STOPSEL mCPODMS NMASTERORDMESS CMASTERINDREPOS RORDRCLEAR azeVRESET estREFALL ISTCLRCACHE DCNTALL a Konec FFFFF xProm = &cProm xPromf Str(FF DTOC(FF Stop - T nelze zv nMasterOrder Prob ... INDEX ON RECNO() TO &cPs_dbf FOR &cPodmV ADDITIVE SET ORDER TO &cMasterIndex INDEX ON &tmp TO &cPs_dbf FOR &cPodmV ADDITIVE Prob ... INDEX ON &cPodmS TO &cPs_dbf ADDITIVE Prob ... INDEX ON &cPodmS TO &cPs_dbf FOR &cPodmV ADDITIVE NOLDVOLBA NMENUPTR NMENUPOS AZAHLLEN KPROC ADLEN *COLDPODMS PODMV NVOLBA *NROW *NCOL ACPROM XPROM uCTYP XOPER ALOGIC AZAHL NHEADLEN CPODMS ANIC1 iHODN diZAHL FMENU STOPSEL tAZAHLDEL CPODMV NMASTERORDMESS CMASTERINDREPOS ORDREFALL CLRCACHE a Konec colora Volba polo SET COLOR TO &col NOLDVOLBA NMENUPTR NMENUPOS AZAHLLEN KPROC ADLEN *NVOLBA *XOPER ACWHEAD uCBASE FREEZSTR ALOGIC POLEX FREEZE AZAHL dNIC1 ANIC2 NHEADLEN iZAHL iFMENU MAPINIT AZAHLDEL tAUTOBUILD NVOLBA NUPTR NUPOS HLLEN eLCLR KPROC AZAHLLEN nNOLDVOLBA NMENUPTR NMENUPOS AZAHL AZAHLLEN AZAHL colora SET COLOR TO &col CMESS NWAIT HLLEN SCR KPROC LDVOLBA NUPTR NUPOS colora SET COLOR TO &col CMESS HLLEN NIR1 nNIC1 colora SET COLOR TO &col CMESS NWAIT HLLEN COL NSTARTT *LISCOUNT ACOUNTER INFOCNT LISCOUNT NALLPZAZ SET COLOR TO &TitleColor TITLE nNIR2 NC2 INFOCNT nZAHLAVI ZAHLAVI eNCURSCR NC1 NTOPSCR nLen = LEN( &tmp ) MOD_PS - Proc PadZahl: Polo rozm r okna ! POLEX eJMENO nZAHL NIC2 MOD_PS - Proc AUTOBUILD: P sestava ! CFREVETA eCFREZAHL nVETA ZAHLAVI nNTOPSCR NCURSCR NHEADLEN *NSCRCNT ANICX JMENO uFREEZE NAZEVT XXXXXXXXX Vyhled XXXXXXXXX XXXXXX Konec - F10 - <Enter> - Esc,^End EVETA EZAHL F7_JM F10_JM DETAIL DET_JM LTOGGLE eNIR1 nHELP LNEWREF LSTABLE NDBFPTR NBROWPTR RCLEAR SKIPN eNIR1 nNBROWPTR NDBFPTR LNEWCNT LISCOUNT NALLPZAZ INFOCNT BRITISH aCache(stab_i+1) = PADR( &stab_tmp, nIC2 - nIC1 + 1 ) LNEWREF STAB_RCC NDBFPTR eSTAB_J nNIR2 NIR1 STAB_I nSTAB_TMP NCURSCR ACACHDIR ACACHE *LSTABLE ABRITISH SET ORDER TO &OldOrder EWREF AB_RCC OLDORDER eCPODMV nLNEWCNT NSAVEZAZ NALLPZAZ nCNT_RCC NSAVEREC LSHORTJMP LSTABLE *LISCOUNT NBROWPTR ACACHE BRITISH aCache(nBrowPtr) = PADR( &tmp, nIC2 - nIC1 + 1 ) ACACHDIR NBROWPTR eBRITISH nVETA NCURSCR nNIR1 ACACHE PS_LINE NHEADLEN POLEX SET ORDER TO &cMasterIndex IndexK = &cIx IndexKf COLORa Vyhled . . # znam neexistuje ! SET ORDER TO &OldOrder znam nen ru ! SET ORDER TO &cMasterIndex SET ORDER TO &OldOrder INDEXK nSCR1 NWIDE *REC2 ANJMP uRKEY NGETCOL OLDORDER NMASTERORDF9KEY AMESSW NDBFPTR iSKIPN iNIR1 NBROWPTR REFALL tCLRCACHE INFOCNT LITEON ACACHDIR nACACHDIR ACACHE eACACHDIR ACACHE eACACHDIR eLINTF1 CLEFT nCRIGHT *SETF1 OFFLINE Tisk rna nen ipravena ! MESSW TISK_HL TISK_S VYBER TRIDENI VOLBA FMENU AZAHLDEL STOPSEL MESSW INFOCNT RAMECEK RCLEAR ZAHLAVI PADZAHL AUTOBUILD HLAVA SETF1 REFALL VRESET REPOS CNTALL STABILIZE COUNTER LITEOFF LITEON SKIPN MAPINIT HLEDEJ CLRCACHE SETCACHE CACHEUP CACHEDN CHKPAR TISKTEST L:\OBEC\ MOD_CHAR.FXP L:\OBEC\MOD_CHAR.PRG