set color to b/bg,w+/rb set color to b/bg m_param m7_ucto m_cis1 x_cis1 m_dat x_dat v1_str x1_str v4_sklad x4_sklad m7_tup skupina m7_desk skupina m7_uskup skupina m7_ucet m4_organ m4_uc_o m7_obru denik m7_stav m7_sstav m7_meny m7_pokl ident_pok m7_denik denik m7_kasa cis_dok c7_kasa c7_kasa c7_kasa ter vloCIS a=33 orBARVAU or BARVA1 iaW_POLE ia=M_PARAM 26PAR_POLE 0POLE7 =-7 PFIRMA FIRMA PUC_POKL cUC_POKL asM7_UCTO e CIS_POK M_CIS1 z=X_CIS1 M_DAT _typX_DAT p_doV1_STR enX1_STR V4_SKLAD zX4_SKLAD iM7_TUP SKUPINA iM7_DESK ayM7_USKUP =M7_UCET UCET pty(tM4_ORGAN ok#p_tM4_UC_O M7_OBRU seDENIK M7_STAV M7_SSTAV LM7_MENY 7_MENA yp_doM7_POKL IDENT_POK M7_DENIK M7_KASA @6CIS_DOK trC7_KASA leSTR 0)DAT_SPL 20TYP_DOK UC_OBD eleDAT_AKT AUTOR S_UCT DOKLAD STR_POK k=PLAT_POK MM_AUTOR W_SK2 c OPRAVA RIIS 7.9 pokladn ho dokladu za Pokladn doklady za &barva1 P_SROZ vloM7_UCTO PLAT_POK rROK_POK r QA1 iaQA2 ia=QA3 26QA4 =-7 QA6 asQA10 e QA11 QA12 z=QA13 QA14 _typQA15 p_doQA16 enQA17 QA18 zQA19 iQA20 QA21 iQA22 ayQA23 =QA24 QA25 pty(tQA26 QA27 k#p_tQA28 QA29 sePOCETA P_OPR_KC P_OPR_MEN MENUP 7_PORADIP1 oKONEC PROCP1 ZVOL_DOK KON_AKT @6KONECA eleAA OK_CA DOLA HORA k=NASTAV ZMENYP VOL_POK doklad Tisk dokladu Storno dokladu Konec c7_kasa mod79d lo denn rkou, nelze stornovat mod_fun vloC7_KASA P_SROZ rVOLBA r DENIK iaCIS_DOK a=MENA 26STR 0DAT_SPL 7 TYP_DOK UC_OBD DAT_AKT cAUTOR asS_UCT e M7_POKL IDENT_POK DOKLAD M7_UCTO ypSTR_POK doPLAT_POK nMM_AUTOR KONEC zPROCP1 iZVOL_DOK KON_AKT iTISK ayMOD79D =UZAVR TXT pty(tHLASKA MOD_FUN _tDOK_ZRUS p_rada ident_pok ehled pokladn ada N zev pokl. ady Doklad ' '+ident_pok+' '+text+' '+str(doklad,3) mod_fun Nelze vkl dat nov doklad mod_fun Doklad byl stornov n, nelze aktualizovat mod_fun c7_kasa p_den denik+str(cis_dok,5) ehled doklad ada Doklad Typ stka M na Kli Stav denik+' '+str(cis_dok,5)+' '+typ_dok+' '+str(kc,12,2)+' '+ mena+' '+klic+' '+iif(s_uct='1','Roz n', iif(s_uct='2','Stornov n','Ne ada,doklad mod_fun c7_kasa c7_obru c7_obru+ c7_obru c7_obru c7_obru c7_obru DENIK vloCIS_DOK S_DOK r M7_POKL iaIDENT_POK C7_KASA 26DOKLAD P_RADA 7 N_LMEZ N_PMEZ N_HMEZ cN_DMEZ asN_PROM e N_HOD N_POC N_TEXT N_HLAV ypN_RAD doN_NVYH nZOBR_NAP MOD_FUN zP_SROZ HLASKA iM7_KASA ayS_UCT =W_POLE P_DEN (tP_DENIK P_CIS_DOK seDAT_SPL TYP_DOK UC_OBD DAT_AKT 7_AUTOR oM7_UCTO STR_POK PLAT_POK MM_AUTOR 6KONEC trM7_OBRU leUCT 0)W_SK2 20CIS_G C7_OBRU leSKUPINA DAL P_MD P_DAL k=P_OPR_MEN CAST_MEN P_OPR_KC PR_KC &sq2 vloP_SROZ S_UCT rMENA r TYP_DOK iaUZAVR 7 POCETA N da hodnot F8 - Funkce F10 - ^End,Esc Pohyb - Konec - german &barva1 99999 DOKLAD Druh cenin : cenina Druh m ny : 999999.999 et :F 999999999.99 999999999.99 Nenalezena organizace GERMAN vloDENIK CIS_DOK rTYP_DOK r M_CIS1 iaC7_KASA 26M7_MENY CENINA 7 MENA DEJ_STAV c_MNOZ e STRED STR CAST_MEN KLIC ypDAT_SPL doPRILOH nIDENTIF VARIAB zTOTOZ ZAVOD iUCET ayP_UST =M4_ORGAN NAZEV_ORG M7_MENY loC7_KASA rZASOBA Den : na : Stav : Poklad. Doklad : Typ dokladu: Druh m ny : Kurz : edisko : stka: CZK Zpracov loh : Text : Osob. slo : nost : P : Var.symbol : vod : / Pen. stav : Organizace : @6,15 &vloz typ_dok pict '@!' DOKLAD DOKLAD p_typ_dok Druh cenin : cenina Druh m ny : @7,15 &vloz mena pict '@!' Cenina neexistuje Nespravn mod_fun @8,15 &vloz str pict '@!' edisko neexistuje! mod_fun c7_obru @8,41 &vloz kurz pict '999999.999' 999999999.99 @9,41 &vloz cast_men pict '999999999.99' Nevypln mod_fun Stav m ny je v pokladn mod_fun 999999999.99 999999999.99 999999.999 @9,10 &vloz kc pict '999999999.99' Nevypln mod_fun Stav m ny je v pokladn mod_fun stka neodpov tu kus mod_fun et :F Ceninu nelze nakoupit mod_fun cenina cenina c7_obru @10,10 &vloz klic pict '@!' neexistuje mod_fun c7_obru @11,15 &vloz dat_spl pict '@E' @11,41 &vloz priloh pict '99' @12,15 &vloz text @14,15 &vloz variab pict '@!' m6_zam.dbf2 m6_zam Osobn slo neexistuje mod_fun @15,15 &vloz totoz @16,15 &vloz dicp to organizace je naveden jin mod_fun @17,15 &vloz variab m7_faodb vars_s m7_fadod vars_s m7_fadod cis_fak m7_faodb cis_fak slo faktury neexistuje mod_fun @18,15 &vloz identif @18,30 &vloz zavod @17,53 &vloz ucet @18,53 &vloz p_ust loKONT r TV_C7 26P_TYP_DOK TYP_DOK 7 M_CIS1 C7_KASA cJMENO_C WJMENO_C TYP_C OK_C MOD_C2 RADEK_C ypSLOUPEC_C MOD_C1 nVARIAB M7_MENY zCENINA DEJ_STAV iNASTAV ayQA2 =P_POM HLASKA MOD_FUN sePAR_POLE V1_STR KLIC C7_OBRU 7_ALL oNSTR CAST_MEN 6KURZ trQA5 )ZASOBA 0P_OPR_MEN P_OPR_KC e_MNOZ STRED ZAZN QA6 M7_DESK k=W_SK2 NAZEV &QA10 o polM6_ZAM b aOSC lniku TOTOZ PRIJMENI oJMENO typQA11 QA12 no poDICP proP_TYP_ORG M7_FAODB 'VARS_S FAKT && tM7_FADOD IDENTIF ICO k_c =ZAVOD ZAV UCET dikacUCET_DOD iP_UST s cP_DF DEJ_FAKTURCIS_FAK oQA14 URQA15 AKTURQA16 AKTURQA17 AKTURC7_GENER Organizace nenalezena! mod_fun Nenalezena organizace F et nenalezen! mod_fun et nenalezen loM4_ORGAN C7_KASA rIDENTIF r ZAVOD iaTXT HLASKA 26MOD_FUN P_TYP_ORG NAZEV_ORG cM4_UC_O P_UST USTAV ICO mod_fun P_POM loP_TYP_DOK TYP_DOK rP_TYP_ORG iaKONECA YP_ORG V_ORG PROCP1 ypZMENP1 NAPOVEDA nPOK_FUN zPOCETA ROZHODNI iMOD_FUN ayK_UDAJUP =OK_CA P_ZAPIS ZAPIS_D cenina m7_kasa cenina replace md_&obd1 with md_&obd1-m7_obru.md replace dal_&obd1 with dal_&obd1-m7_obru.dal replace md_&obd1 with md_&obd1-m7_obru.md replace dal_&obd1 with dal_&obd1-m7_obru.dal m7_obru m7_stav.dbf replace md_&obd1 with md_&obd1+c7_obru.md replace dal_&obd1 with dal_&obd1+c7_obru.dal m7_sstav.dbf replace md_&obd1 with md_&obd1+c7_obru.md replace dal_&obd1 with dal_&obd1+c7_obru.dal P_S_UCT loC7_OBRU rINDIK LOCK_STAV LOCK_SSTAVNSTR 26C7_KASA S_UCT M7_KASA M7_OBRU IDENT_DEN DOKLAD CIS_G AVM7_UCTO CIS_POK DENIK CIS_DOK ypM7_MENY nTYP_DOK PRIJ_M PRIJ_D POC_PM iPOC_PD ayZASOBA =CAST_MEN VYD_M VYD_D POC_VM POC_VD STRED eCENINA W_POLE M7_POKL W_SK2 _SKUPINA oOBD1 OBDOBI_MM PAR_POLE M7_STAV 6M7_SSTAV rM7_DENIK ePK_DOKLAD CINNOST SPLATNOST DAT_SPL PAR_ZNAK P_ZAPIS edisko neexistuje! mod_fun mod_fun Nevypln mod_fun vypln na toto nost Nevypln na organizace mod_fun Nevypln slo faktury mod_fun OK_CA loSTR PAR_POLE rV1_STR C7_KASA _SSTAVHLASKA 26MOD_FUN TOTOZ AVQA11 TYP_DOK IDENTIF QA14 ypVARIAB DOKLAD p_typ_dok p_pom ehled cenin ehled m na N kup Prodej St ed Dat. akt. ' '+mena+str(nakup,10,2)+str(prodej,10,2) +str(stred,10,2)+' '+tran(dat_akt,'@E') mod_fun p_str ehled st edisek ed. N zev nstr+' '+nazev_str edisko mod_fun m7_kurz archiv mod_fun c7_tup c7_tup+ c7_tup c7_tup p_pom det_tup ehled TUP KC N zev ty MD DAL det_tup+' '+m7_desk.kc+' '+m7_desk.nazev+' '+ucet_1+' '+ucet_2 mod_fun m6_zam.dbf2 m6_zam jmeno p_pom ehled zam stnanc ijmen Jm no Os. prijmeni+' '+jmeno+' '+osc hled_zam in mod79a2 mod_fun U tohoto daje nen mod_fun m7_faodb vars_s m7_fadod vars_s p_pom vars_s ehled odb ratelsk ch faktur Vars.sym. Znak Organizace stka vars_s+' '+znak_f+' '+ico+'/'+zav+' '+str(cast_cel,10,2)+' '+ucet_dod ehled dodavatelsk ch faktur Vars.sym. Znak Organizace stka vars_s+' '+znak_f+' '+ico+'/'+zav+' '+str(cast_cel,10,2)+' '+ucet_dod mod_fun nazev p_pom Organizace o Z vod N ico+' '+zavod+' '+nazev_org hled_organ mod_fun Neuvedeno I O mod_fun c4_uc_o c4_uc_o Neexistuje zadny ucet u teto organizace mod_fun p_pom ty pro ICO: vod: stav substr(ustav,1,20)+' '+ucet mod_fun U tohoto daje nen mod_fun loM_CIS1 JMENO_C rWJMENO_C TYP_C RADEK_C AVSLOUPEC_C MOD_C1 C7_KASA P_TYP_DOK TYP_DOK YP_DOK AVP_POM N_LMEZ N_PMEZ N_HMEZ ypN_DMEZ N_PROM nN_HOD N_POC zN_TEXT N_HLAV N_RAD iN_NVYH ayM7_MENY =ZAZN ZOBR_NAP MOD_FUN MENA DEJ_STAV eP_STR V1_STR _OBRKURZ oM7_KURZ ARCHIV VKURZ KURZ 6VDATT rVYBKURZ C7_TUP M7_TUP W_SK2 SKUPINA DET_TUP M7_DESK NAZEV C7_GENER QA10 M6_ZAM &JMENO polN_VYB b aVARIAB TOTOZ oPRIJMENI HLASKA poQA13 roM7_FAODB VARS_S FAKT 'M7_FADOD IDENTIF ZAVOD ZAV k_c =UCET UCET_DOD DICP dikacP_UST iP_DF cDEJ_FAKTURQA14 AKTURQA15 oM4_ORGAN RP_TYP_ORG NAZEV_ORG AKTURM4_UC_O C4_UC_O ifUSTAV Vyhled Zadejte p stnance mod_fun stnanec nebyl nalezen loZAU rW_CESTINA HLASKA AVMOD_FUN c7_obru m7_vstup c7_vstup c7_vstup c7_vstup mod_fun - neni zadefinovan TUP ! mod_fun - neni zadefinovan TUP C7_OBRU loP_DOK DOKLAD rC7_KASA W_UC1 W_UC2 AVW_ST1 W_ST2 W_MD1 W_MD2 W_DAL1 W_DAL2 M7_UCTO AVPLAT_POK M7_VSTUP C7_VSTUP SKUPINA pDET_TUP STR_N nHODNOTA DAT_VYST zPAR_ZNAK W_SK2 KLIC =DAT_SPL CIS_DOK KLICG _HODNOTA M7_DESK HLASKA eMOD_FUN W_TEXT _DENIK DENIK _NAZEV o_DOK W_POR M7_DENIK M7_TUP rVYTVOR_OB NAPLN_COBR c7_obru c7_obru loIDENT_DEN DOKLAD rCIS_POL DATUM AVSKLAD OBDOBI_MM PAR_ZNAK CIS_G RAD_TUP AVNED_VYROBASKUPINA SPLATNOST W_UC1 p_DENIK nW_POR W_ST1 zC7_VSTUP W_MD1 iW_DAL1 ayW_TEXT =_OBD M7_TUP W_SK2 ROBADAT_VYST W_UC2 W_ST2 eSKL2 W_MD2 W_DAL2 edpis Doklady - p ehled Stav pokladny Konec 999999999.99 loKON1 VOL11 RUC_UCT ZOBR_OBR VZOBR_DOK ZOBR_POK C7_KASA c7_obru.dbf2 Doklad nen mod_fun c7_obru c7_obru Doklad nen mod_fun mod79a2 edpis ident_den+' ' ident_den Doklad str(doklad,6) doklad ' '+cis_pol cis_pol ' '+c7_obru.ucet c7_obru.ucet ' '+c7_obru.nstr c7_obru.nstr MD str(c7_obru.md,15,2) c7_obru.md DAL str(c7_obru.dal,15,2) c7_obru.dal Obdob ' '+str(c7_obru.obdobi_mm,2) c7_obru.obdobi_mm loHLASKA MOD_FUN rC7_OBRU POLEX PROCX VRTOP CLEFT CRIGHT FREEZE ORDER JMENO AVHODN YROBATITLE TITLECOLORF1 VSTUP iDETAIL ayF1PRG =F4_JM F4PRG F7_JM ROBAF7PRG F9KEY F10_JM eF10PRG DET_JM DETPRG RAMECEK ANAZEVT oRIIS TISKPRG PS_RETURN rNADPIS OBRMENUP3 MOD_PSV OBSAH - - ^End,Esc Pohyb Konec mod79a2 RIIS 7.9 Stav cenin: Stav pokladny: cenina ' '+m7_meny.mena m7_meny.mena Za den: Po .stav ' '+str(m7_meny.stav_d,10,2) m7_meny.stav_d P str(m7_meny.prij_d,10,2) m7_meny.prij_d V str(m7_meny.vyd_d,10,2) m7_meny.vyd_d Kon.stav str(m7_meny.zasoba,10,2) m7_meny.zasoba j.dokl. ' '+str(m7_meny.poc_pd,5) m7_meny.poc_pd d.dokl. ' '+str(m7_meny.poc_vd,5) m7_meny.poc_vd c: Po . stav ' '+str(m7_meny.stav_m,10,2) m7_meny.stav_m P str(m7_meny.prij_m,10,2) m7_meny.prij_m V str(m7_meny.vyd_m,10,2) m7_meny.vyd_m Kon. stav str(m7_meny.zasoba,10,2) m7_meny.zasoba j.dokl. ' '+str(m7_meny.poc_pm,5) m7_meny.poc_pm d.dokl. ' '+str(m7_meny.poc_vm,5) m7_meny.poc_vm POLEX loPROCX rRBOT CLEFT CRIGHT VFREEZE ORDER JMENO TITLE TITLECOLORF1 YROBAF3 LECOLORF6 DETAIL zF1PRG F4_JM F4PRG iF7_JM ayF7PRG =F9KEY F10_JM F10PRG OBADET_JM DETPRG RAMECEK eNAZEVT TISKPRG PS_RETURN PS_ZAZN 6DATUM rTYP_DOK NADPIS OBRM7_MENY C7_KASA CENINA MENUP3 MOD_PSV mod79a2 Prehled pokladniho deniku RIIS 7.9 ehled doklad pokladny - aktu obdob ' '+m7_kasa.denik m7_kasa.denik s.dokl. ' '+str(m7_kasa.cis_dok,5) m7_kasa.cis_dok ' '+m7_kasa.klic m7_kasa.klic ' '+m7_kasa.typ_dok m7_kasa.typ_dok ' '+m7_kasa.mena m7_kasa.mena str(m7_kasa.kc,12,2) m7_kasa.kc m7_kasa.str m7_kasa.str s.faktury m7_kasa.variab m7_kasa.variab Identifikace m7_kasa.identif m7_kasa.identif m7_kasa.totoz m7_kasa.totoz m7_kasa.text m7_kasa.text Pen. m7_kasa.p_ust m7_kasa.p_ust m7_kasa.ucet m7_kasa.ucet .obd. ' '+str(m7_kasa.uc_obd,2) m7_kasa.uc_obd Splatnost ' '+tran(m7_kasa.dat_spl,'@E') (m7_kasa.dat_spl ) Dat.aktual. ' '+tran(m7_kasa.dat_akt,'@E') (m7_kasa.dat_akt ) POLEX loPROCX rRBOT CLEFT CRIGHT VFREEZE ORDER JMENO TITLE TITLECOLORF1 YROBAF3 LECOLORF6 DETAIL zF1PRG F4_JM F4PRG iF7_JM ayF7PRG =F9KEY F10_JM F10PRG OBADET_JM DETPRG RAMECEK eNAZEVT TISKPRG PS_RETURN oM7_KASA ZAZPOK DATUM rPS_ZAZN OBRNADPIS PRAVA MENUP3 MOD_PSV c7_obru M7_UCTO loDEN_POK MIDENT_DENM7_DENIK MDOKLAD DOKLAD VCIS_POL ENDATUM OBDOBI_MM CINNOST PAR_ZNAK COLORIDENT_DEN YROBAMD ECOLORSPLATNOST SKUPINA PLAT_POK nC7_KASA TYP_DOK zCIS_DOK PUC_POKL STR_POK ayDAT_SPL =W_SK2 C7_OBRU set color to b/w set color to bg/n set color to w+/w set color to w+/bg set color to b/bg,w+/rb set color to w+/b set color to w/n RIIS 7.1 e t n obraty za &barvah loZMENY T_DENNOVY_Z ZMENA1 ZMENA2 S_POL OBI_MM _ZNAK POC_ZAZ ORZOBR_ZAZ RADEK ROBAJ INDIK OLORHOR TNOST POCET nDOP1 C_POKL ayPOC =KONTROLA BANOVY_R OBRAT e_TST ZMENA _UCET PMSTR PMTUP oPMSKUP PMDAT W_POLE 6PMCASTKA rBARVAS BARVAR OBRBARVAT BARVAZ BARVAU BARVAN BARVAH M7_UCTO W_ROK k=OBD PLAT_POK OBDC _GENER &CIS_G polBARVA b aC7_OBRU NAPLN_C7_OW_DENIK pIDENT_DEN DEN_POK poW_TEXT roC7_KASA M7_DENIK 'W_DOKLAD DOKLAD tW_NED_VYR NED_VYROBAW_PAR_ZNAKPAR_ZNAK W_CINNOST CINNOST acW_SPLAT iSPLATNOST M7_UCET URDAL oMD_CELK RDAL_CELK MENU1 KONEC _UC_O raA _c = 6 U POCET1 poPOCET2 Q6 loupec_HLAV1 PROC1 & slHLAV2 olozPROC2 &barvah &barvau ZMENY T_DENQ3 ENCISELNIK BI_MM POCET1 POOCET2 MD_CELK ORDAL_CELK ROBAPOMOC MENU1 OLORBARVA BARVAZ KONEC =POCET2 HLAV1 HLAV2 BAPROC1 PROC2 &barvau &barvas &barvaz &barvar &barvar pis na obou stran &barvaz &barvat Doklad: Var.symbol: innost: Splatnost: &barvau &barvas &barvau &barvar &barvaz &barvar pis na obou stran &barvat &barvaz Celkem: &barvat &barvan D A L &barvau &barvau &barvas &barvaz &barvar &barvar &barvaz &barvat Text: Var.symbol: innost: Splatnost: &barvau loZAZ &barvau &barvaz Esc - Konec ^End - Generuj &barvaz stka: edisko: Skupina: TUP: Dat.vyst.: &barvau &barvas 99999 &barvau loW_DENIK W_TEXT DENW_DOKLAD W_NED_VYR W_PAR_ZNAKW_CINNOST W_SPLAT &barvat &barvaz &barvas &barvau &barvas &barvau 999999999999.99 999999999999.99 &barvau DENIK DOKLAD CIS_POL _ZNAKMD INNOST SKLAD C7_OBRU ST_ZAZ ORMD_CELK DAL_CELK AM7_UCET NAZEV OLORZ &barvau &barvas &barvau loX_TEXT X_NED_VYR X_PAR_ZNAKX_CINNOST X_SPLAT &barvau 999999999.99 loPMCASTKA PMSTR PMSKUP NAKPMTUP PMDAT @ 4,9 &vloz w_denik picture '@!X' mod_fun Chybn identifikace den @ 4,13 &vloz w_text picture '@X' @ 5,10 &vloz w_ned_vyr @ 5,34 &vloz w_par_znak @ 5,55 &vloz w_cinnost @ 5,70 &vloz w_splat picture '@E' CASTKA M7_DENIK KW_DENIK W_TEXT AKTEXT W_DOKLAD DOKLAD HLASKA MOD_FUN _OBRU _CELK OLORPROC1 @ x,8 &vloz ucet picture '@!X' @ x,16 &vloz md @ x,33 &vloz dal @ x,49 &vloz nstr picture 'XXXX' @ x,55 &vloz sklad picture 'XXXX' 999999999999.99 999999999999.99 loNASTAV_Q M7_UCET KNAZEV C7_OBRU _OBRU OKLAD CIS_POL S_POL _CELK AST_ZAZ OLORDAL MD_CELK DAL_CELK @ 18,10 &vloz x_text @ 19,10 &vloz x_ned_vyr @ 19,34 &vloz x_par_znak @ 19,55 &vloz x_cinnost @ 19,70 &vloz x_splat picture '@E' STAV_Q @m+1,35 &vloz pmcastka picture '999999999.99' mod_fun vypln @m+2,35 &vloz pmstr @m+3,35 &vloz pmskup @m+4,35 &vloz pmtup @m+5,35 &vloz pmdat picture '@E' mod_fun vypln no datum STAV_Q PMCASTKA KHLASKA MOD_FUN OKLAD PMSTR PAR_POLE KONTR_STREQ3 PMSKUP ORKONTR_SKUPQ4 _CELK APMTUP KONTR_TUP PMDAT do proc&n do zmen&n with 'get' do zmen&n with 'say' mod7_lib 99999 &barvau ehled ehled st edisek ehled sklad Konec mod7_lib mod_proc mod_proc &barvau &barvau &barvau do hlav&n do proc&n do menu&n &barvau if q