c7_vdra m7_vdra cis_pok c7_vdra c7_vdra c7_obru / / # german set color to b/w set color to bg/n set color to w+/w set color to b/bg,w+/rb set color to w+/b set color to w/n c7_vdra &barvau et doklad je r od pokladn ho dokladu. Zm nit v pokladn mod_fun M7_VDRA =0CIS_POK C7_VDRA C7_KASA drKLIC coC7_OBRU VARIAB IDENTIF --ZAVOD ----ZDAN_PLN -DICP -----KLIC_D ---PROC_D * ZAKL_D dokCIS_GD ---DAN ------PROCP1 ---OBR5 -----OPRA_NAZ -OBR_KAL --GERMAN cedBARVAS 9i2BARVAR useBARVAZ ra'BARVAU lecBARVAN useBARVAH orQ1 cis_pokQ2 copy sQ3 to c7_vQ4 useQ5 m7_vdraQ6 sele 0Q7 use c7Q8 a excl if c7_kasQ11 klic#Q12 rQ13 e klicQ14 'VD 'POCET useBARVA bru'MENU9 seKONEC ru HOR go DOL I lete allX pacR seZ _kasa endif replace Q _a_v_POR _:DOK_POK M_CIS_G _I_.DENIK _CIS_DOK _ M7_UCTO _CIS_VD _ W_POVD _SUMA _ TEXT _D_ZNAK _ R_ZNAK _ _C_ZNAK _ PORADI9 _PROC9 _ _ ZMENY9 _ _KC _ UZAVR _POM _ _ _ TXT2 _ROZHODNI MOD_FUN _C7_2OBRU &sq2 =0KLIC_S drCISF coDAN C7_KASA UZAVR --SQ2 ----POCET - N da hodnot - Funkce - ^PgDn,^PgUp - ^Home - - ^End,Esc F8 - F10 - Pohyb - Konec - &barvau 9999999.99 &barvau drKLIC_S coKLIC_D SKLAD ZAKL_D --PROC_D ---DAN -ZAKAZKA --VARS ---CISF * DICP dokZDAN_PLN -POZN -----J -----R Vnit doklad Poklad. ada : Doklad : Text dokladu : stka pokladny : et dokladu : 99999 999999999.99 &barvau &barvan K.d Skl. stka klad % DPH Da zka Var.symbol s.faktury DI P Dat.uhrady Pozn.F &barvau C7_KASA =0DENIK CIS_DOK W_POVD coHOR @ x,6 &vloz klic_s neexistuje mod_fun @x ,10 &vloz klic_d neexistuje mod_fun @x ,14 &vloz sklad mod_fun Chybn identifikace skladu @x ,19 &vloz str edisko neexistuje! mod_fun @x ,24 &vloz suma 999999999.99 @x ,37 &vloz zakl_d 9999999.99 @x ,50 &vloz proc_d 9999999.99 @x ,56 &vloz dan picture '9999999.99' @x ,68 &vloz zakazka m7_rene.dbf2 m7_rene slo zak zky neexistuje mod_fun @x+1,6 &vloz vars m7_faodb vars_s m7_fadod vars_s m7_faodb vars_s m7_fadod vars_s Variabiln symbol faktury neexistuje mod_fun @x+1,19 &vloz cisf m7_faodb cis_fak m7_fadod cis_fak m7_fadod cis_fak m7_faodb cis_fak slo faktury neexistuje mod_fun @x+1,32 &vloz dicp @x+1,48 &vloz zdan_pln pict '@E' @x+1,57 &vloz pozn NASTAV9 P_POM KLIC_S --M7_DESK --C7_VDRA --HLASKA ---MOD_FUN * C7_OBRU okPAR_ZNAK -CIS_G --KLIC_D ---Q3 -SKLAD --C_ZNAK cedV4_SKLAD ra'PAR_POLE cV1_STR useQ5 orSUMA _pokW_POVD y sQ6 7_vDAN useZAKL_D draPROC_D e 0D_ZNAK kasQ9 ic#ZAKAZKA rM7_RENE 'VD 'Q10 seVARS bru'C7_KASA seTYP_DOK u M7_FAODB VARS_S FAKT e allM7_FADOD eDICP CIS_FAK e Q11 _a_v_ neexistuje mod_fun neexistuje mod_fun mod_fun Chybn identifikace skladu edisko neexistuje! mod_fun Procento dan klad dan si neodpov mod_fun no procento dan mod_fun stka, a je zaps stky. mod_fun mod_fun na da , a je zaps mod_fun hodnota mod_fun c7_obru c7_obru c7_obru c7_obru =0STAV KLIC_S M7_DESK drC7_VDRA coTXT HLASKA MOD_FUN KLIC_D --P_POM --SKLAD -V4_SKLAD D_FUN * STR okPAR_POLE -V1_STR --DAN --ZAKL_D -PROC_D edSUMA 2C_ZNAK eD_ZNAK ra'C7_3GENER C7_OBRU sePAR_ZNAK rC7_2OBRU sP_DOK DOKLAD useNSTR aSPLATNOST c7CIS_G CIS_GD M7_UCTO asCIS_VD ic#C7_4GENER mod79i dek nelze zru it, lze pouze stornovat. mod_fun dek nelze zru it, byl stornov mod_fun 999999999.99 =0KONEC _DESK _VDRA coDOL -PROC9 -OBR1 -ZMEN9 * NAPOVEDA9 KONTROLA9 MOD79I --FUN_DOK --OK_K -POCET --STAV 2HLASKA eMOD_FUN a'C7_OBRU PAR_ZNAK eC7_VDRA rCIS_G kW_POVD sSUMA ZMENA useC7_KASA aKLIC c7POR M7_UCTO CIS_VD asZDAN_PLN #DOK_POK DENIK CIS_DOK 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 p_pom sklad ehled sklad Sklad. N zev Druh Nstr sklad+' '+nazev+' '+druh_skl+' '+nstr Sklad mod_fun p_str ehled st edisek ed. N zev nstr+' '+nazev_str edisko mod_fun m7_rene.dbf2 p_pom ehled VP VP Rozpiska Str. Kus D.zad. Stav vp+' '+ident+' '+stred+' '+str(ks_zad,9,2)+' '+dtoc(dat_zad)+' '+stav_vp m7_rene mod_fun ratelsk faktury - var.s. ratelsk faktury - s.f. Dodavatelsk faktury - var.s. Dodavatelsk faktury - s.f. Konec m7_faodb vars_s m7_faodb cis_fak m7_fadod vars_s m7_fadod cis_fak p_pom vars_s ehled odb ratelsk ch faktur Vars.sym. Znak Organizace stka Zaplaceno Z loha Splatno vars_s+' '+znak_f+' '+ico+'/'+zav+' '+str(cast_cel,10,2)+ ' '+str(zap_cel,10,2)+' '+str(zal_cel,10,2)+' '+dtoc(dat_spl) ehled odb ratelsk ch faktur slo f. Znak Organizace stka Zaplaceno Z loha Splatno cis_fak+' '+znak_f+' '+ico+'/'+zav+' '+str(cast_cel,10,2)+ ' '+str(zap_cel,10,2)+' '+str(zal_cel,10,2)+' '+dtoc(dat_spl) ehled dodavatelsk ch faktur Vars.sym. slo f. Zn. Organizace stka Zaplaceno Z vars_s+' '+cis_fak+' '+znak_f+' '+ico+'/'+zav+' '+str(cast_cel,10,2)+ ' '+str(zap_cel,10,2)+' '+str(zal_cel,10,2) ehled dodavatelsk ch faktur slo f. Vars.sym. Zn. Organizace stka Zaplaceno Z cis_fak+' '+vars_s+' '+znak_f+' '+ico+'/'+zav+' '+str(cast_cel,10,2)+ ' '+str(zap_cel,10,2)+' '+str(zal_cel,10,2) mod_fun U tohoto daje nen mod_fun M7_TUP drC7_TUP coSKUPINA DET_TUP M7_DESK N_LMEZ N_PMEZ --N_HMEZ --N_DMEZ -N_PROM -N_HOD -N_POC * N_TEXT N_HLAV N_RAD --N_NVYH --ZOBR_NAP MOD_FUN -C7_VDRA --P_POM KLIC_S 2KLIC_D V4_SKLAD eSKLAD kP_STR sV1_STR aM7_RENE c7ZAKAZKA asOBR6 #C7_KASA TYP_DOK VOL11 M7_FAODB 'VARS_S seFAKT u CIS_FAK M7_FADOD VARS lDICP cCISF S_FAK HLASKA c7_2obru m7_vstup c7_vstup c7_vstup c7_vstup mod_fun - neni zadefinovan TUP ! mod_fun - neni zadefinovan TUP mod79a1 C7_2OBRU 0P_DOK C7_VDRA W_UC1 drW_UC2 coW_ST1 W_ST2 W_MD1 W_MD2 W_DAL1 --W_DAL2 --_OBD -M7_UCTO -PLAT_POK -M7_VSTUP C7_VSTUP SKUPINA DET_TUP --STR_N --HODNOTA DAT_VYST -PAR_ZNAK -CIS_G KLIC_S eSUMA a'C7_KASA KLICG e_HODNOTA rM7_DESK kHLASKA sMOD_FUN W_TEXT e_DENIK aDENIK NAZEV c7_DOK W_POR M7_DENIK sDOKLAD #M7_TUP VYTVOR_OB MOD79A1 NAPLN3_COB c7_2obru c7_2obru 0IDENT_DEN DOKLAD CIS_POL drDATUM coNSTR SKLAD --OBDOBI_MM PAR_ZNAK -CIS_G -RAD_TUP -NED_VYROBASKUPINA SPLATNOST W_UC1 --_DENIK --_DOK W_POR -W_ST1 -C7_VSTUP 2W_MD1 eW_DAL1 a'C7_VDRA e_OBD rM7_TUP kDAT_VYST AW_UC2 W_ST2 eSKL2 aW_MD2 W_DAL2 c7_2obru m7_vstup c7_vstup c7_vstup c7_vstup mod_fun - neni zadefinovan TUP ! mod_fun - neni zadefinovan TUP mod79a1 C7_2OBRU 0P_DOK C7_VDRA W_UC1 drW_UC2 coW_ST1 W_ST2 W_MD1 W_MD2 W_DAL1 --W_DAL2 -M7_UCTO -PLAT_POK -M7_VSTUP AC7_VSTUP SKUPINA DET_TUP --STR_N --HODNOTA DAT_VYST -PAR_ZNAK -CIS_G KLIC_D a'CIS_GD C7_KASA eKLICG r_HODNOTA kM7_DESK AHLASKA MOD_FUN eW_TEXT a_DENIK DENIK c7NAZEV A_DOK W_POR sM7_DENIK #DOKLAD M7_TUP VYTVOR_OB MOD79A1 OBNAPLN3_COBW edpis Storno dokladu Konec mod79a1 0KON1 VOL11 drRUC_2UCT oZOBR_OBR MOD79A1 STOR_DOK C7_VDRA --KLIC_S dek lze zru it, nelze stornovat. mod_fun STORNO 9999999.99 999999999.99 HLASKA MOD_FUN drP_POM oSUMA ZAKL_D PROC_D -KLIC_S -KLIC_D -SKLAD ZAKAZKA --CISF --DICP ZDAN_PLN -C_ZNAK D_ZNAK 2KONTROLA9 W_POVD a'OBR6 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 2napln_c7_o &barvah 2menu1 2hlav1 2proc1 2hlav2 2proc2 2zmeny stka dokladu je r od sou tu obrat nit doklad ? mod_fun c7_obru P2_SUMA 0SUMA KLIC_S ZMENY AKONEC --POCET --DOP1 -OK_C NOVY_Z 2ZMENA1 ZMENA2 POC_ZAZ eZOBR_ZAZ rRADEK _DESK AINDIK c7KONTROLA sNOVY_R #OBRAT ZMENA _UCET BPMSTR _COBPMTUP PMSKUP W_SK PMDAT lW_POLE cPMCASTKA eBARVAS BARVAR BARVAT e BARVAZ BARVAU BARVAN BARVAH _v_M7_UCTO _:W_ROK M_ROK _I_.OBD _PLAT_POK OBDC __OBD _GENER _CIS_G _ BARVA _C7_2OBRU W_DENIK _IDENT_DEN DEN_POK _W_TEXT _ C7_VDRA _POZN _ M7_DENIK _TEXT W_DOKLAD _DOKLAD W_NED_VYR NED_VYROBAW_PAR_ZNAKPAR_ZNAK W_CINNOST CINNOST W_SPLAT _SPLATNOST _M7_UCET POCET1 _POCET2 2OBRU MD_CELK _DAL_CELK W_POVD _ROZHODNI MOD_FUN _C7_OBRU &barvah 2menu1 2hlav1 2hlav2 2proc1 2proc2 &barvau 2zmeny ZMENY CISELNIK --POCET1 POOCET2 -MD_CELK -DAL_CELK APOMOC BARVA BARVAZ --KONEC a'POCET2 &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 &barvau &barvaz Esc - Konec ^End - Generuj &barvaz stka: edisko: Skupina: TUP: Dat.vyst.: &barvau &barvas 99999 &barvau 0W_DENIK W_TEXT W_DOKLAD rW_NED_VYR W_PAR_ZNAKW_CINNOST W_SPLAT &barvat &barvaz &barvas &barvau &barvas &barvau 999999999999.99 999999999999.99 &barvau DENIK DOKLAD rCIS_POL _ZNAKMD INNOST SKLAD C7_2OBRU -ST_ZAZ -MD_CELK -DAL_CELK AM7_UCET NAZEV &barvau &barvas &barvau 0X_TEXT X_NED_VYR X_PAR_ZNAKX_CINNOST X_SPLAT &barvau 999999999.99 0PMCASTKA 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' 2proc1 CASTKA M7_DENIK KW_DENIK W_TEXT AKTEXT W_DOKLAD DOKLAD HLASKA --MOD_FUN _2OBRU _CELK 2nastav_q @ 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 CASTKA M7_UCET NAZEV KC7_2OBRU _2OBRU CIS_POL S_POL 2OBRU -ST_ZAZ 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' CASTKA 2OBRU 2OBRU @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 CASTKA PMCASTKA KHLASKA MOD_FUN PMSTR PAR_POLE -KONTR_STREQ3 2OBRU -PMSKUP -KONTR_SKUPQ4 APMTUP KONTR_TUP --PMDAT 2nastav_q do 2proc&n do 2zmen&n with 'get' do 2zmen&n with 'say' mod7_lib 99999 &barvau ehled ehled st edisek ehled sklad Konec mod7_lib mod_proc mod_proc &barvau &barvau 2kontrola1 2pridej_c7 2hlav1 2proc1 2hlav2 2proc2 2menu2 &barvau 2hlav2 2proc2 do 2hlav&n do 2proc&n do 2menu&n &barvau 2kontrola2 2nastav_q if q