Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1999-04-08 | 87KB | 2,337 lines

m_param M_PARAM deW_PODNIK 5FIRMA ba pPOLE4 TiskW_PRUMER aW_OCEN_EXPPOLE2 defW_OCEN_VYRPOLE5 a prW_OBDOBI TER_UZAV eGET_OBD etMOD91BX mod_lib RIIS 9 Tisk protokolu inventury 25 Tisk p skl. polo ek 25 Tisk skladov ch reglet 39 Tisk reglet skl. um 39 Tisk rekapitulace reglety 25 Tisk souhrnn rekap. reglety 25 Tisk protokolu v sklad Tisk protokolu p jmu sklad Tisk protokolu odv esuny 25 r skladov ch obrat 25 dej do spot eby 25 Konec do tisk with 'tisk1' do tisk with 'tisk2' do tisk with 'tisk3' do tisk with 'tisk9' do tisk with 'tisk4' do tisk with 'tisk5' do tisk with 'tisk6' do tisk with 'tisk7' do tisk with 'tisk12' do tisk with 'tiskpre' do tisk with 'tisk_obr' do tisk with 'tisk_vyrs' deactivate popup volba P_SETUP deP_RESET 5P_6LPI a pP_8LPI iskP_10CPI aP_12CPI XPP_16CPI efP_20CPI YRP_BOLDON rP_BOLDOFF P_ULINEON P_ULINEOFFP_ITALON iP_ITALOFF P_SUPERON P_SUPEROFFP_SUBON P_SUBOFF P_DBST_ON P_DBST_OFFP_LETRQUALP_DRAFT P_COMP_OFFP_WIDT_ON P_WIDT_OFFP_HEIG_ON P_HEIG_OFFP_NEWPAGE P_KODY ed(MOD_LIB select VOL use mNAVRAT KONTROLA =M_SKLAD W_TYP_SKL OTEVRI_DBFOBR ifVOLBA 'm6_ID_ORG W_TISK deTISKS 5VOLBA mod4_lib substr(obr.kod_ob,1,2)='IS' and substr(obr.kod_ob,3,1)#'*' typ_um_v='N' inventura nebyla provedena Protokol inventarizace skladov ch polo Protokol inventarizace skladov ch polo ek, sklad : RIIS 4.2 mod91d ttisk1 Zadejte sklad,um ,identif. : |...|...|............ Identifikace ident ident m1_ident.nazev m1_ident.nazev m1_ident.mj m1_ident.mj vydal_skl vydal_skl vyd_um_skl vyd_um_skl N str(naklad,11,2) naklad Z str(plan_mnoz,12,3) plan_mnoz Inv.stav str(skut_mnoz,12,3) skut_mnoz Rozd str(skut_mnoz-plan_mnoz,12,3) skut_mnoz-plan_mnoz Rozd str(round(naklad*(skut_mnoz-plan_mnoz),2),11,2) round(naklad*(skut_mnoz-plan_mnoz),2) Datum tran(termin_ob,'@E') termin_ob VYBER_OBR M_SKLAD 5MOD4_LIB pC_OBR iskVYDAL_SKL VYD_UM_SKLIDENT efHLASKA M1_IDENT rPOLEX FREEZE NEOFFPRAVA ALOFF PERON RAMECEK FFNAZEVT W_OBDOBI NADPIS OFFPROCX QUALF1 OMP_OFFF3 IDT_ON IDT_OFFF4PRG EIG_OFFF7 EWPAGE F9KEY ed(F9KEY1 select ZAHL use mJMENO HODN MOD_PSV OBSAH mod_lib Prob tisk ... mod91t1 W_TISK 5NASTAV_PRNMOD_LIB skOBRT M_SKLMOD91T1 mod4_lib xc_prec Ve sklad nedo lo k p polo skladov ch polo skladov ch polo ek, sklad : RIIS 4.2 mod91d ttisk2 Zadejte sklad,um ,identif. : |...|...|............ Identifikace ident ident m1_ident.nazev m1_ident.nazev m1_ident.mj m1_ident.mj sklad sklad um_skl um_skl Stav str(stav,12,3) Star cena str(round(st_cena*stav,2),11,2) round(st_cena*stav,2) Nov cena str(round(no_cena*stav,2),11,2) round(no_cena*stav,2) Rozd str(rozdil,11,2) rozdil VYBER_PRECM_SKLAD 5W_TYP_SKL MOD4_LIB kC_PREC SKLAD SKLUM_SKL efIDENT XC_PREC rM1_IDENT HLASKA POLEX EOFFFREEZE iLEVA PRAVA FFDOL RAMECEK NAZEVT W_OBDOBI FRIIS LNADPIS PROCX _OFFF1 IDT_ON IDT_OFFF3 EIG_OFFF4PRG ed(F7 F9KEY ect F9KEY1 e mF9 ZAHL =JMENO _DBFMOD_PSV ifOBSAH mod_lib Prob tisk ... mod91t2 _PRECW_TISK 5NASTAV_PRNMOD_LIB kOBRT SKLMOD91T2 mod4_lib Ve sklad polo Regleta skladu Regleta skladu : RIIS 4.2 mod91d ttisk3 Zadejte sklad : Identifikace ident ident m1_ident.nazev m1_ident.nazev m1_ident.mj m1_ident.mj sklad sklad Cena/MJ str(cena,11,2) Stav/MJ str(stav,12,3) jem/MJ str(prijem,12,3) prijem V dej/MJ str(vydej,12,3) vydej esun/MJ str(presun,12,3) presun Inv.rozd./MJ str(inv_rozdil,12,3) inv_rozdil soba/MJ str(zasoba,12,3) zasoba Stav/K str(stav_kcs,11,2) stav_kcs str(preceneni,11,2) preceneni jem/K str(prijem_kcs,11,2) prijem_kcs dej/K str(vydej_kcs,11,2) vydej_kcs esun/K str(presun_kcs,11,2) presun_kcs Inv.roz./K str(in_roz_kcs,11,2) in_roz_kcs soba/K str(zasoba_kcs,11,2) zasoba_kcs S_STAV RECS_PRECEN 5S_PRIJEM NS_VYDEJ kS_PRESUN S_INV SKLS_ZASOBA fS_HAL TV_REG rW_TYP_SKL M_SKLAD MOD4_LIB FC_REGL iHLASKA IDENT M1_IDENT FPOLEX FREEZE PRAVA RAMECEK FFNAZEVT W_OBDOBI FRIIS NADPIS OFFPROCX ed(F2 ect F4 e mF4PRG F6 F9KEY _DBFZAHL ifJMENO 'm6_HODN MOD_PSV amOBSAH mod_lib Prob tisk ... mod91t3 RECW_TISK 5NASTAV_PRNMOD_LIB kOBRT SKLMOD91T3 mod4_lib Ve sklad polo Regleta skladov ch um Regleta skladov ch um , sklad : RIIS 4.2 mod91d ttisk9 Zadejte sklad : Identifikace ident ident m1_ident.nazev m1_ident.nazev m1_ident.mj m1_ident.mj sklad sklad umist umist Cena/MJ str(cena,11,2) Stav/MJ str(stav,12,3) jem/MJ str(prijem,12,3) prijem V dej/MJ str(vydej,12,3) vydej esun/MJ str(presun,12,3) presun Inv.rozd./MJ str(inv_rozdil,12,3) inv_rozdil soba/MJ str(zasoba,12,3) zasoba Stav/K str(stav_kcs,11,2) stav_kcs str(preceneni,11,2) preceneni jem/K str(prijem_kcs,11,2) prijem_kcs dej/K str(vydej_kcs,11,2) vydej_kcs esun/K str(presun_kcs,11,2) presun_kcs Inv.roz./K str(in_roz_kcs,11,2) in_roz_kcs soba/K str(zasoba_kcs,11,2) zasoba_kcs S_STAV RECS_PRECEN 5S_PRIJEM NS_VYDEJ kS_PRESUN S_INV SKLS_ZASOBA fS_HAL TV_REGUM rW_TYP_SKL M_SKLAD MOD4_LIB FC_REGL iHLASKA IDENT M1_IDENT FPOLEX FREEZE PRAVA RAMECEK FFNAZEVT W_OBDOBI FRIIS NADPIS OFFPROCX ed(F2 ect F4 e mF4PRG F6 F9KEY _DBFZAHL ifJMENO 'm6_HODN MOD_PSV amOBSAH mod_lib Prob tisk ... mod91t9 RECW_TISK 5NASTAV_PRNMOD_LIB kOBRT SKLMOD91T9 m_param m_param mod4_lib Ve sklad polo c_regl_r c_regl_r c_rekap xc_rekap Prob kumulace dat ... mod4_lib c_rekp c_rekv c_rekp c_rekv Rekapitulace reglety sklad RIIS 9.2 mod91d ttisk4 Zadejte sklad : sklad sklad zev skladu v4_sklad.nazev v4_sklad.nazev kod_ob kod_ob str(pocet,6) pocet Celkem K str(kcs,11,2) W_ZAV RECM_PARAM 5W_HMT RNPOLE2 kS_STAV S_PRECEN LS_PRIJEM fS_VYDEJ S_PRESUN rS_INV S_ZASOBA S_HAL FTV_REGUM iW_TYP_SKL M_SKLAD MOD4_LIB FC_REGL HLASKA PODNIK SKLAD FV4_SKLAD LKONSIG C_REGL_R FSTSKLAD STAV_KCS FPRECENENI PRIJEM_KCSVYDEJ_KCS PRESUN_KCSIN_ROZ_KCSZASOBA_KCSHAL_VYR CSSTAV M1_PLAN =VAHA_MJ PRIJEM VYDEJ BFPRESUN ifINV_ROZDILZASOBA ILALL SC_REKAP CSKOD_OB POCET _zamKCS elsXC_REKAP .f. POC_P POC_V c_oM set relPOCETC idTYP_UM_V TYP_UM_P PROCENTA tM1_IDENT hIDENT 0KOD_POL mW_PRUMER _W_NO_CENA NAKLAD a_oW_ST_CENA STAN_NAKL VYDAL_SKL SKUT_MNOZ PLAN_MNOZ PRIJAL_SKLC_REKP C_REKV topPOLEX -FREEZE ---LEVA -----PRAVA ----HOR ------DOL ----- RAMECEK NAZEVT cetW_OBDOBI sRIIS ) celNADPIS ezePROCX eva=F1 rava=78F2 ramF4 = .t. F4PRG = 'PF6 kol vy F9KEY o spot w_obJMENO iis=HODN 9.2'I s= 4MOD_PSV moOBSAH mod_lib Prob tisk ... C_REKAP ECST_ZAZ 5W_TISK RNNASTAV_PRNMOD_LIB LMESS fSTRANA rC_REGL_R STSKLAD SKLAD FW_ROZ_KCS TISK_HL4 TISK_S40 TISK_S4 FP_SETUP R e k a p i t u l a c e r e g l e t y s k l a d u MTZ-04 Sklad: ECNAZEVT 5W_OBDOBI NP_SETUP RNP_COMP_OFFP_SUBON LW_PODNIK fP_SUBOFF rP_LETRQUALP_BOLDON P_BOLDOFF P_DRAFT STSKLAD ALV4_SKLAD C_REGL_R FNAZEV P_10CPI stav 999 999 999.99 999 999 999.999 999 999 999.99 999 999 999.99 999 999 999.999 999 999 999.99 999 999 999.999 999 999 999.99 999 999 999.999 Inventurn rozd 999 999 999.99 999 999 999.999 999 999 999.99 999 999 999.999 vyrovn 999 999 999.99 stav 999 999 999.99 999 999 999.99 999 999 999.99 999 999 999.99 999 999 999.99 Inventurn rozd 999 999 999.99 999 999 999.99 vyrovn 999 999 999.99 C_REGL_R CW_HMT NP_BOLDON NP_BOLDOFF LSTAV_KCS PRECENENI PRIJEM_KCSPRIJEM VYDEJ_KCS VYDEJ PRESUN_KCSPRESUN IN_ROZ_KCSINV_ROZDILZASOBA_KCSZASOBA HAL_VYR ========== P j e m ========== ========== V d e j ========== Dr.o. Dr.o. ZZZZZ 99999 999 999 999.99 ZZZZZ 99999 999 999 999.99 K o n e c s k l a d u K o n e c s e s t a v y EGL_R 5P_BOLDON NP_BOLDOFF LDOFF P_10CPI LKONEC_P KONEC_V C_REKP STSKLAD CSC_REKV SKLAD SUN_KCSKOD_OB POCET KCSKCS DILC_REGL_R SP_LETRQUALP_DRAFT P_COMP_OFFL STRANA FP_SUBON pom_Aktf mod4_lib Ve sklad polo c_regl_r c_regl_r Rekapitulace reglety sklad - aktu obdob RIIS 4.3 Rekapitulace reglety sklad RIIS 9.2 mod91d ttisk5 Zadejte sklad : Suma in mod43e sklad sklad zev skladu v4_sklad.nazev v4_sklad.nazev Stav str(stav_kcs,12,2) stav_kcs str(preceneni,12,2) preceneni P str(prijem_kcs,12,2) prijem_kcs V str(vydej_kcs,12,2) vydej_kcs P str(presun_kcs,12,2) presun_kcs Inv.rozd str(in_roz_kcs,12,2) in_roz_kcs Z str(zasoba_kcs,12,2) zasoba_kcs Hal.vyr. str(hal_vyr,12,2) hal_vyr POM_AKT CS_STAV 5S_PRECEN NS_PRIJEM S_VYDEJ S_PRESUN LS_INV S_ZASOBA S_HAL TV_REGUM SW_TYP_SKL M_SKLAD MOD4_LIB C_REGL KCSHLASKA PODNIK KCSSKLAD DILV4_SKLAD SKONSIG LC_REGL_R STSKLAD FSTAV_KCS PRECENENI PRIJEM_KCSVYDEJ_KCS PRESUN_KCSIN_ROZ_KCSZASOBA_KCSHAL_VYR CSALL SPOLEX SFREEZE CSLEVA PRAVA RAMECEK BFNAZEVT ifRIIS OZDILW_OBDOBI LNADPIS SPROCX _zamF3 elsF4 REKAP zF4PRG . F6 c_oF9KEY relF9 idF10 F10_JM F10PRG tZAHL hJMENO 0HODN _MOD_PSV OBSAH mod_lib Prob tisk ... mod91b_2 mod91b_2 ST_ZAZ CW_TISK 5NASTAV_PRNMOD_LIB LSTRANA REGUM YP_SKL 4_LIB KCSS7 KCSP_RESET ILTISK_HL5 SMOD91B_2 LTISK_S5 C_REGL_R mod4_lib inlist(left(kod_ob,1),'V','R') typ_um_v='N' Ve skladech nebyl realizov dej u polo Protokol v RIIS 9.2 mod91d ttisk6 Zadejte st edisko obratu : stred_obr stred_obr kod_ob kod_ob Datum tran(termin_ob,'@E') termin_ob Identifikace ident ident m1_ident.nazev m1_ident.nazev m1_ident.mj m1_ident.mj vydal_skl vydal_skl v4_sklad.konsig+' ' v4_sklad.konsig ident_zak ident_zak Rozpiska ident_vys ident_vys Doklad dokl_cis dokl_cis Cena/MJ str(naklad,11,2) naklad Skut.mno str(skut_mnoz,12,3) skut_mnoz Cena celkem str(round(naklad*skut_mnoz,2),11,2) round(naklad*skut_mnoz,2) VYBER_OBR M_SKLAD 5MOD4_LIB NC_OBR STRED_OBR KOD_OB LIDENT HLASKA M1_IDENT VYDAL_SKL V4_SKLAD PODNIK POLEX FREEZE KCSLEVA PRAVA KCSHOR ILDOL SRAMECEK LNAZEVT W_OBDOBI FRIIS NADPIS PROCX _KCSF1 EJ_KCS SUN_KCSF3 ROZ_KCSF4 OBA_KCSF4PRG SF9KEY ZAHL =JMENO BFMOD_PSV ifOBSAH mod_lib Prob tisk ... mod91t61 mod91t6 W_TISK 5NASTAV_PRNMOD_LIB LPODNIK MOD91T61 MOD91T6 mod4_lib inlist(left(kod_ob,1),'P','O') typ_um_v='N' Ve skladech nebyl realizov jem u polo Protokol p RIIS 9.2 mod91d ttisk7 Zadejte k d obratu : kod_ob kod_ob Datum tran(termin_ob,'@E') termin_ob Identifikace ident ident m1_ident.nazev m1_ident.nazev m1_ident.mj m1_ident.mj vydal_skl vydal_skl Objedn ident_zak ident_zak Dodac list ident_vys ident_vys Doklad dokl_cis dokl_cis Cena/MJ str(naklad,11,2) naklad Skut.mno str(skut_mnoz,12,3) skut_mnoz Cena celkem str(round(naklad*skut_mnoz,2),11,2) round(naklad*skut_mnoz,2) VYBER_OBR M_SKLAD 5MOD4_LIB NC_OBR KOD_OB IDENT LHLASKA M1_IDENT POLEX FREEZE PRAVA KCSRAMECEK NAZEVT KCSW_OBDOBI LRIIS SNADPIS LPROCX BDOBI _KCSF4PRG SUN_KCSF7 ROZ_KCSF9KEY _KCSF9 CSZAHL SJMENO SHODN MOD_PSV =OBSAH mod_lib Prob tisk ... mod91t7 W_TISK 5NASTAV_PRNMOD_LIB LMOD91T7 mod4_lib inlist(left(kod_ob,1),'V','R') typ_um_v='N' 0000000000FF Ve skladech nebyl realizov dej u polo m_param m_param m6_zam m6_zam 0000000000FF Protokol vy deje do spot RIIS 9.2 mod91e ttisk_vyrs Zadejte st edisko obratu : left(right('0000000000'+alltrim(str(vadne_mnoz)),m_param.delka_osc)+space(10),10) left(right('0000000000'+alltrim(str(vadne_mnoz)),m_param.delka_osc)+space(10),10) m6_zam.prijmeni m6_zam.prijmeni m6_zam.jmeno m6_zam.jmeno stred_obr stred_obr kod_ob kod_ob Datum tran(termin_ob,'@E') termin_ob Identifikace ident ident m1_ident.nazev m1_ident.nazev m1_ident.mj m1_ident.mj vydal_skl vydal_skl ident_zak ident_zak Ident2 ident_vys ident_vys Doklad dokl_cis dokl_cis Cena/MJ str(naklad,11,2) naklad Skut.mno str(skut_mnoz,12,3) skut_mnoz Cena celkem str(round(naklad*skut_mnoz,2),11,2) round(naklad*skut_mnoz,2) ZAV_ZAM ZAV_PARAM VOLBA _PRNVYBER_OBR M_SKLAD MOD4_LIB LC_OBR VADNE_MNOZSTRED_OBR KOD_OB IDENT HLASKA M_PARAM CSM6_ZAM M1_IDENT SDELKA_OSC VYDAL_SKL V4_SKLAD LPOLEX FREEZE FLEVA PRAVA _KCSDOL RAMECEK CSNAZEVT KCSW_OBDOBI SRIIS CSNADPIS SPROCX F4PRG BFF9KEY ZDILZAHL LJMENO SHODN MOD_PSV amOBSAH mod_lib Prob tisk ... mod91t65 W_TISK NASTAV_PRNMOD_LIB LMOD91T65 mod4_lib inlist(left(kod_ob,1),'O') typ_um_v='N' Ve skladech nebylo realizov no odv polo Protokol odv edisek RIIS 9.2 mod91d ttisk12 Zadejte st edisko obratu : stred_obr stred_obr Identifikace ident ident m1_ident.nazev m1_ident.nazev m1_ident.mj m1_ident.mj kod_ob kod_ob Datum tran(termin_ob,'@E') termin_ob vydal_skl vydal_skl ident_zak ident_zak Rozpiska ident_vys ident_vys Doklad dokl_cis dokl_cis Cena/MJ str(naklad,11,2) naklad Skut.mno str(skut_mnoz,12,3) skut_mnoz Cena celkem str(round(naklad*skut_mnoz,2),11,2) round(naklad*skut_mnoz,2) VYBER_OBR M_SKLAD MOD4_LIB NC_OBR STRED_OBR IDENT LKOD_OB STRED MNOZHLASKA M1_IDENT POLEX FREEZE PRAVA CSHOR SRAMECEK NAZEVT W_OBDOBI LRIIS NADPIS FPROCX _KCSF3 CSF4PRG KCSF6 BDOBI CSF9KEY SZAHL CSJMENO HODN MOD_PSV OBSAH mod_lib Prob tisk ... mod91t12 W_TISK NASTAV_PRNMOD_LIB LMOD91T12 colora set color to &color COLOR STAV_PRNOBR POCET POCETC Zadejte sklad : Sklad neexistuje mod_proc Nepovolen druh skladu M_SKLAD W_TYP_SKL K_SKLAD RNV4_SKLAD HLASKA ZOBR_SKL LMOD_PROC DRUH_SKL colora set color to &color COLOR z NV podle n kl.st . a zak zek - fin Prob r obrat ... c1_nab c1_nab Ve skladech nebyl realizov n dan pohyb u polo C1_NAB C1_NABEH Str_Zak_Ob C1_NABEH C1_NAB1 Zak_Str C1_NABEH C1_NAB2 Str_Zak RIIS 9.2 mod91d TiskniN Zadejte st edisko, zak zku a k d obratu: |...|.........|.. Kumul.n NabKumul stred_obr stred_obr ident_zak ident_zak kod_ob kod_ob ident ident MNO str(Skut_Mnoz,11,3) Skut_Mnoz Mat1 str(Mat1,13,2) Mat2 str(Mat2,13,2) Mzdy str(Mzdy,13,2) VR str(VR,13,2) OPM str(OPM,13,2) OPN str(OPN,13,2) Celkem str(Mat1+Mat2+Mzdy+VR+OPM+OPN,15,2) Mat1+Mat2+Mzdy+VR+OPM+OPN NAZEVT W_OBDOBI RNC1_NAB IDENT KOD_OB LIDENT_ZAK SKUT_MNOZ TYP_UM_V STRED_OBR DOKL_CIS NAKLAD STRED_NV KOD_POL CSMAT1 SMZDY J_MAT1 FJ_MAT2 J_MZDY _KCSJ_OPM J_OPN CSOBR KCSM1_KALKS SM1_IDENT SM7_RENE STRED MATER SKOOP PRIP =KUSY_D KUSOV HLASKA ifM7_NVPAR C1_NABEH STR_ZAK_OBC1_NAB1 ZAK_STR C1_NAB2 STR_ZAK POLEX PROCX . RTOP c_oCLEFT relCRIGHT idFREEZE ORDER hLEVA 0PRAVA mNADPIS _ZAHL JMENO a_oHODN TITLE TITLECOLORPOC0 JAL_SKLF1 topF3 ---F6 -----F7 ----F9 ------F10 ----- F0PRG F1ON cetF1PRG sF4_JM celF4PRG ezeTISKPRG a=F7_JM a=78F7PRG doF9PRG ramF9KEY F9KEY1 'PF10_JM F10PRG deRAMECEK w_obKLICO is=KLNAZ 9.2'SPACEBAR 4TR_HL1 moTR_HL2 f1TR_HL3 TR_HL4 3 =TR_HL5 = TR_HL6 rg=TR_HL7 yrsTR_HL8 .t.TR_HL9 = 'DET_JM ENTER obraDETAIL 9 =DETPRG diPS_LINE poPS_RETURN PS_ZAZN hMOD_PSV OBSAH colorz ty za st edisko ty za st ., zak ty za st ., zak zku, k Kumulace n kl.st . po zak Kumulace zak zek pro st Konec MMCOLOR RNSUMY C1_NABEH C1_NAB1 LKUMUL C1_NAB2 RIIS 9.2 mod91d ident_zak Celkem za zak Kumul.odv kl.st . po zak ch - fin Zadejte zak |......... ident_zak ident_zak ' '+stred_obr stred_obr stred_NV Celkem za st Kumul.odv zek pro st ediska NV - fin Zadejte st edisko NV: ' '+stred_NV stred_NV ident_zak ident_zak Mat1 str(Mat1,13,2) Mat2 str(Mat2,13,2) Mzdy str(Mzdy,13,2) VR str(VR,13,2) OPM str(OPM,13,2) OPN str(OPN,13,2) Celkem str(Mat1+Mat2+Mzdy+VR+OPM+OPN,15,2) Mat1+Mat2+Mzdy+VR+OPM+OPN POM_CO POLEX PROCX RNRTOP CLEFT LCRIGHT FREEZE ORDER D_OBR PRAVA NADPIS CSZAHL JMENO SHODN TITLE LTITLECOLORPOC0 _KCSF3 KCSF7 KALKS IDENT F0PRG SF1PRG F4_JM =F4PRG TISKPRG F7_JM FF7PRG ifF9PRG F9KEY F9KEY1 _OBF10_JM F10PRG RAMECEK NAZEVT KLICO . KLNAZ SPACEBAR oTR_HL1 relTR_HL2 idTR_HL3 TR_HL4 TR_HL5 tTR_HL6 hTR_HL7 0TR_HL8 mTR_HL9 _DET_JM ENTER a_oDETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN W_OBDOBI MOD_PSV pOBSAH prava dat ... z NV podle n kl.st . a zak zek - fin ty za st ediska ty za st ediska Zadejte st edisko: C1_NABEH C1_NAB Stred_Obr ty za st ediska a zak ty za st ediska a zak Zadejte st edisko a zak |...|......... stred_obr Celkem st C1_NABEH C1_NAB Str_Zak ty za st ediska, zak zku a k d obratu ty za st ediska, zak zku a k d obratu Zadejte st edisko, zak zku a k d obratu: |...|.........|.. stred_obr Celkem st C1_NABEH C1_NAB Str_Zak_Ob RIIS 9.2 mod91d Suma_C ' '+stred_obr stred_obr ident_zak ident_zak kod_ob kod_ob Mat1 str(Mat1,15,2) Mat2 str(Mat2,15,2) Mzdy str(Mzdy,13,2) VR str(VR,13,2) OPM str(OPM,13,2) OPN str(OPN,13,2) Celkem str(Mat1+Mat2+Mzdy+VR+OPM+OPN,15,2) Mat1+Mat2+Mzdy+VR+OPM+OPN Vyhled Konec - Enter - Esc, ^End POM_CO RNS_MAT1 S_MAT2 S_MZDY LS_VR S_OPM S_OPN S_CELKEM POLEX PROCX CSCLEFT CRIGHT SFREEZE ORDER ECOLORLEVA FPRAVA NADPIS _KCSJMENO CSSOUC KCSTITLE STITLECOLORPOC0 ifF10 F0PRG _OBF1PRG F4_JM F4PRG TISKPRG F7_JM F7PRG . F9PRG F9KEY oF9KEY1 relF10_JM idF10PRG RAMECEK tNAZEVT hKLICO 0KLNAZ mSPACEBAR _TR_HL1 TR_HL2 a_oTR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 TR_HL8 LTR_HL9 DET_JM pENTER -DETAIL ---DETPRG ---PS_LINE --PS_RETURN PS_ZAZN W_OBDOBI tC1_NABEH sSTRED_OBR =MZDY NABEH C1_NAB IDENT_ZAK STR_ZAK KOD_OB STR_ZAK_OBI BMOD_PSV Mod_Lib Mod_Lib Prob tisk p ehledu ... mod91d(!9 POM_VETA P_SETUP RNP_RESET P_6LPI P_8LPI LP_10CPI P_12CPI P_16CPI P_20CPI P_BOLDON P_BOLDOFF P_ULINEON P_ULINEOFFP_ITALON P_ITALOFF P_SUPERON P_SUPEROFFP_SUBON LP_SUBOFF RP_DBST_ON P_DBST_OFFP_LETRQUALP_DRAFT CSP_COMP_OFFP_WIDT_ON P_WIDT_OFFP_HEIG_ON P_HEIG_OFFP_NEWPAGE P_KODY MOD_LIB SW_TISK NASTAV_PRNMESS MOD91D soubor ! colorz double Celkov Esc,^End Mat1 : K Mat2 : K Mzdy : K VR : K OPM : K OPN : K Celkem: K 9999999999.99 MMCOLOR RNHLASKA MOD_WIN S_MAT1 LS_MAT2 S_MZDY S_OPM S_OPN Prob r obrat ... c1_nab m7_rene c1_nab c1_nab c1_nab Ve skladech nebyl realizov n dan pohyb u polo C1_NAB C1_NABEH Exped esuny z expedice do mezisklad RIIS 9.2 mod91d TiskniP Zadejte expedici, mezisklad a k d obratu: |...|...|.. Funkce PreKumul exped exped meziskl meziskl kod_ob kod_ob ident ident MNO str(Skut_Mnoz,11,3) Skut_Mnoz Mat1 str(Mat1,13,2) Mat2 str(Mat2,13,2) Mzdy str(Mzdy,13,2) VR str(VR,13,2) OPM str(OPM,13,2) OPN str(OPN,13,2) Celkem str(Mat1+Mat2+Mzdy+VR+OPM+OPN,15,2) Mat1+Mat2+Mzdy+VR+OPM+OPN POM_NASEL C1_NAB RNIDENT KOD_OB SKUT_MNOZ MEZISKL EXPED LINEOFFOPM ALOFF PERON M1_KALKS FPOM_J_M1 LPOM_J_M2 RPOM_J_MZDYPOM_J_VR FPOM_J_M ALPOM_J_N CSPOM_M1 OFFPOM_M2 POM_MZDY FPOM_VR POM_M _OFFPOM_N POM_2M1 POM_2M2 SPOM_2MZDY POM_2VR RNPOM_2M POM_2N IDENT_ZAK TYP_UM_V fTYP_UM_P MATER BPRIP YKUSY_D KUSOV M7_NVPAR PRIJAL_SKLVYDAL_SKL HLASKA C1_NABEH POLEX lPROCX idRTOP CLEFT tCRIGHT hFREEZE 0ORDER a_oPRAVA NADPIS JMENO LTITLE TITLECOLORPOC0 ---F1 ---F2 RETURN BDOBI NABEH D_OBR F0PRG =F1PRG 8F4_JM oF4PRG mTISKPRG F7_JM F7PRG F9PRG F9KEY F9KEY1 _OBF10_JM BF10PRG 2'RAMECEK 4RIIS moNAZEVT f1KLICO KLNAZ 3 =SPACEBAR TR_HL1 rg=TR_HL2 yrsTR_HL3 .t.TR_HL4 = 'TR_HL5 TR_HL6 braTR_HL7 9 =TR_HL8 diTR_HL9 poDET_JM ENTER leDETAIL hDETPRG PS_LINE zPS_RETURN PS_ZAZN (iW_OBDOBI i)MOD_PSV colorz ty za expedici ty za exped., meziskl. ty za exped., meziskl., k esuny expedic do meziskladu Konec NASEL RNMMCOLOR PRESUMY C1_NABEH PRESUN esuny expedic do meziskladu RIIS 9.2 mod91d TiskniP Zadejte mezisklad, expedici a k d obratu: |...|...|.. Funkce Pre2Kumul meziskl meziskl exped exped kod_ob kod_ob ident ident MNO str(Skut_Mnoz,11,3) Skut_Mnoz Mat1 str(Mat1,13,2) Mat2 str(Mat2,13,2) Mzdy str(Mzdy,13,2) VR str(VR,13,2) OPM str(OPM,13,2) OPN str(OPN,13,2) Celkem str(Mat1+Mat2+Mzdy+VR+OPM+OPN,15,2) Mat1+Mat2+Mzdy+VR+OPM+OPN Meziskl Exped POM_VETA POLEX PROCX RNRTOP CLEFT CRIGHT FREEZE ORDER PRAVA NADPIS OFFZAHL JMENO FTITLE LTITLECOLORPOC0 _MZDYF0 _J_VR OFFF4 _MZDY _OFFF10 F0PRG SF1PRG F4_JM RNF4PRG TISKPRG F7_JM F7PRG fF9PRG F9KEY F9KEY1 BF10_JM YF10PRG RAMECEK NAZEVT SKLKLICO KLNAZ SPACEBAR TR_HL1 lTR_HL2 idTR_HL3 TR_HL4 TR_HL5 tTR_HL6 hTR_HL7 0TR_HL8 mTR_HL9 _DET_JM ENTER a_oDETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN W_OBDOBI MEZISKL RMOD_PSV -EXPED colorz ty za mezisklad ty za meziskl., exped. ty za meziskl., exped., k Konec RNMMCOLOR PRESUMY C1_NABEH Mod_Lib Mod_Lib Prob tisk p ehledu ... mod91c2(!9 mod91c3(!9 POM_VETA P_SETUP RNP_RESET P_6LPI P_8LPI P_10CPI P_12CPI P_16CPI P_20CPI P_BOLDON P_BOLDOFF P_ULINEON P_ULINEOFFP_ITALON P_ITALOFF P_SUPERON P_SUPEROFFP_SUBON LP_SUBOFF RP_DBST_ON P_DBST_OFFP_LETRQUALP_DRAFT CSP_COMP_OFFP_WIDT_ON P_WIDT_OFFP_HEIG_ON P_HEIG_OFFP_NEWPAGE P_KODY MOD_LIB SW_TISK NASTAV_PRNMESS MOD91C2 MOD91C3 prava dat ... C1_NABEH C1_NAB Meziskl esuny expedic do meziskladu ty za mezisklad ty za mezisklad Zadejte mezisklad: Exped esuny z expedice do mezisklad ty za expedici ty za expedici Zadejte expedici: C1_NABEH C1_NAB Meziskl esuny expedic do meziskladu ty za mezisklad a expedici ty za mezisklad a expedici Zadejte meziskl. a exped.: |...|... Meziskl esuny z expedice do mezisklad ty za expedici a mezisklad ty za expedici a mezisklad Zadejte exped. a meziskl.: |...|... C1_NABEH C1_NAB Meziskl esuny expedic do meziskladu ty za mezisklad, expedici a k ty za mezisklad, expedici a k Zadejte meziskl., exped. a k |...|... Meziskl esuny z expedice do mezisklad ty za expedici, mezisklad a k ty za expedici, mezisklad a k Zadejte exped., meziskl. a k |...|...|.. RIIS 9.2 mod91d Suma_C meziskl meziskl meziskl Celkem MSKL: exped exped exped Celkem EXP: exped exped meziskl meziskl kod_ob kod_ob Mat1 str(Mat1,15,2) Mat2 str(Mat2,15,2) Mzdy str(Mzdy,13,2) VR str(VR,13,2) OPM str(OPM,13,2) OPN str(OPN,13,2) Celkem str(Mat1+Mat2+Mzdy+VR+OPM+OPN,15,2) Mat1+Mat2+Mzdy+VR+OPM+OPN Vyhled Konec - Enter - Esc, ^End POM_CO RNS_MAT1 S_MAT2 S_MZDY S_OPM S_OPN S_CELKEM POLEX PROCX NEOFFCLEFT CRIGHT FREEZE ORDER ROFFHOR RLEVA PRAVA _OFFNADPIS UALZAHL CSJMENO _OFFHODN T_OFFTITLE TITLECOLORPOC0 TAV_PRNF4 F0PRG BF1PRG YF4_JM F4PRG TISKPRG F7_JM SKLF7PRG F9PRG F9KEY F9KEY1 lF10_JM idF10PRG RAMECEK tNAZEVT hKLICO 0KLNAZ mSPACEBAR _TR_HL1 TR_HL2 a_oTR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 TR_HL8 LTR_HL9 DET_JM RENTER -DETAIL ---DETPRG -PS_LINE --PS_RETURN PS_ZAZN C1_NABEH tIDENT sKOD_OB MEZISKL EXPED NABEH oMAT1 mMAT2 NABEH C1_NAB BW_OBDOBI 'MOD_PSV soubor ! colorz double Celkov Esc,^End Mat1 : K Mat2 : K Mzdy : K VR : K OPM : K OPN : K Celkem: K 9999999999.99 MMCOLOR RNHLASKA MOD_WIN S_MAT1 S_MAT2 S_MZDY S_OPM S_OPN u1_obr ident u1_um ident u1_zas ident u1_kalk ident m1_plan x1_plan v4_sklad x4_sklad u1_kalks ident m1_ident ident m1_kalks x1_kalks m7_nvpar.dbf2 m7_nvpar m7_rene.dbf2 m7_rene U1_OBR IDENT RNU1_UM U1_ZAS U1_KALK M1_PLAN X1_PLAN V4_SKLAD X4_SKLAD U1_KALKS KALKS EOFFM1_IDENT M1_KALKS X1_KALKS M7_NVPAR FM7_RENE FFFZ^D m_cis1 x_cis1 KOD_OB obrat neexistuje select &st_sel c_kod+ KOD_OB c_kod k obrat RIIS 0.0 mod91d d obratu hodnota hodnota c_oznac.dbf2 c_oznac zaznam select &st_sel sele &st_sel inlist(kod_ob Ozna it lze maxim 24 z select &st_sel mod4_lib typ_um_v='N' Ve skladech nebyl realizov n vybran obrat u polo sele &st_sel J.PORKERT EUTIT r skladov ch obrat RIIS 9.2 mod91d ttisk_obr Zadejte k d obratu : zobr_rek in mod91b_2 Rekap. kod_ob kod_ob Identifikace ident ident m1_ident.nazev m1_ident.nazev m1_ident.mj m1_ident.mj vydal_skl vydal_skl stred_obr stred_obr Datum tran(termin_ob,'@E') termin_ob ident_zak ident_zak Rozp./Faktura ident_vys+' ' ident_vys Doklad dokl_cis dokl_cis Cena/MJ str(naklad,11,2) naklad J.PORKERT EUTIT Hmotnost str(m1_plan.vaha_mj,10,3) m1_plan.vaha_mj Skut.mno str(skut_mnoz,12,3) skut_mnoz Cena celkem str(round(naklad*skut_mnoz,2),11,2) round(naklad*skut_mnoz,2) J.PORKERT EUTIT Hmot. celkem str(round(m1_plan.vaha_mj*skut_mnoz,2),12,2) round(m1_plan.vaha_mj*skut_mnoz,2) select &st_sel ST_SEL K_SKLAD M_SKLAD RNW_TYP_SKL M_CIS1 X_CIS1 HLASKA C_KOD S_RIIS HODNOTA POLEX PRAVA EOFFHOR RAMECEK TITLE FNAZEVT LRIIS RNADPIS PROCX _OFFF1 UALSPACEBAR SZAHL _OFFJMENO _OFFI MOD_PSV ORC_OZNAC ZAZNAM W_KODY SNPOC VYBER_OBR MOD4_LIB C_OBR KOD_OB IDENT fM1_IDENT M1_PLAN PODNIK BFREEZE YW_OBDOBI SKLF4PRG F9KEY idF10PRG F10_JM OBSAH mod_lib Prob tisk ... J.PORKERT mod91t13 EUTIT mod91t15 mod91t14 W_TISK NASTAV_PRNMOD_LIB PODNIK MOD91T13 MOD91T15 MOD91T14 za FFF P_OBD MOD91BX no(i)=O TISK1 TTISK1 TISK2 TTISK2 TISK3 jmeno TTISK3 TISK9 TTISK9 TISK4 TTISK4 TISK_HL4 TISK_S40 TISK_S4 TISK5 )='MJp_ TTISK5 )="m?k TISK6 TTISK6 dentEw TISK7 TTISK7 TISK_VYRS TTISK_VYRS TISK12 = i@ TTISK12 HLASKA eno(k PROCENTA K_SKLAD min_ob TISKODV NABKUMUL KUMUL = "vy hodn( TISKNIN SUMA_C TISKPRE PREKUMUL PRESUN PRE2KUMUL TISKNIP PRESUMY SUMA_C2 OTEVRI_DBF TISK_OBR TTISK_OBR GET_OBD X:\OBEC\09\ MOD91E.FXP X:\OBEC\09\MOD91E.PRG