Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1998-08-17 | 92KB | 2,441 lines

m_param M_PARAM W_PODNIK FIRMA ) =POLE4 tav,W_PRUMER dW_OCEN_EXPPOLE2 W_OCEN_VYRPOLE5 W_OBDOBI mTER_UZAV "GET_OBD m,MOD91BX 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 h do NV 25 h do nedokon roby 25 z NV - fin 25 z NV - zak 25 esuny 25 ediska 25 r skladov ch obrat 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' EUTIT do tisk with 'tisk12' do tisk with 'tisk8' do tisk with 'TiskNaOd_N_1' do tisk with 'TiskNaOd_O_1' do tisk with 'TiskNaOd_O_2' do tisk with 'tiskpre' do tisk with 'mod54c' do tisk with 'tisk_obr' deactivate popup volba P_SETUP P_RESET P_6LPI =P_8LPI av,P_10CPI dP_12CPI XPP_16CPI P_20CPI YRP_BOLDON P_BOLDOFF P_ULINEON P_ULINEOFFP_ITALON dP_ITALOFF P_SUPERON P_SUPEROFFP_SUBON P_SUBOFF P_DBST_ON P_DBST_OFFP_LETRQUALP_DRAFT "vP_COMP_OFFP_WIDT_ON P_WIDT_OFFP_HEIG_ON P_HEIG_OFFP_NEWPAGE P_KODY hMOD_LIB i=VOL zahNAVRAT 'InKONTROLA 'M_SKLAD ) W_TYP_SKL OTEVRI_DBFOBR hodn(iVOLBA nv_rPODNIK mod54c VYROBA TiskNaOd_N_1 TiskNaOd_O_1 TiskNaOd_O_2 W_TISK TISKS VOLBA =W_MODUL v,W_ARCHIV dW_VOL XPMOD54C OTEVRI_DBFTISKNAOD Prob r obrat ... c_inv:9 c_inv:9 x_inv Prob VN ... W_SKLAD W_TYP =OBR v,C_INV dKOD_OB XPVYDAL_SKL TYP_UM_V FVYD_UM_SKLIDENT X_INV M1_IDENT FKOD_POL dW_PRUMER W_NAKL_S W_NAKL_N FSTAN_NAKL2NAKLAD mod4_lib substr(obr.kod_ob,1,2)='IS' and substr(obr.kod_ob,3,1)#'*' typ_um_v='V' inventura nebyla provedena Protokol inventarizace skladov ch polo Protokol inventarizace skladov ch polo ek, sklad : RIIS 4.2 mod91c ttisk1 Zadejte sklad : 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 MOD4_LIB =C_OBR v,VYDAL_SKL VYD_UM_SKLIDENT HLASKA M1_IDENT LPOLEX FREEZE FPRAVA RAMECEK FNAZEVT L2W_OBDOBI NADPIS OFFPROCX QUALF1 OMP_OFFF3 IDT_ON IDT_OFFF4PRG EIG_OFFF7 EWPAGE F9KEY "ZAHL i=JMENO zahHODN 'MOD_PSV ) OBSAH mod_lib Prob tisk ... mod91t1 W_TISK NASTAV_PRNMOD_LIB v,OBRT M_SKLMOD91T1 mod4_lib xc_prec Ve sklad nedo lo k p polo skladov ch polo skladov ch polo ek, sklad : RIIS 4.2 mod91c ttisk2 Zadejte sklad : 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 W_TYP_SKL MOD4_LIB ,C_PREC SKLAD SKLUM_SKL IDENT XC_PREC LM1_IDENT HLASKA POLEX FFREEZE dLEVA PRAVA L2RAMECEK NAZEVT W_OBDOBI FRIIS LNADPIS "vPROCX _OFFF1 IDT_ON IDT_OFFF3 EIG_OFFF4PRG "F9KEY zahZAHL 'InJMENO 'HODN MOD_PSV BFOBSAH mod_lib Prob tisk ... mod91t2 _PRECW_TISK NASTAV_PRNMOD_LIB ,OBRT SKLMOD91T2 mod4_lib Ve sklad polo Regleta skladu Regleta skladu : RIIS 4.2 mod91c 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 K_SKLAD ECM_SKLAD W_TYP_SKL MOD_SYS ,S_STAV S_PRECEN LS_PRIJEM S_VYDEJ S_PRESUN LS_INV S_ZASOBA S_HAL FTV_REG dMOD4_LIB C_REGL HLASKA FIDENT L2M1_IDENT POLEX FREEZE FLEVA LPRAVA "vHOR _OFFDOL DT_ON RAMECEK FFNAZEVT W_OBDOBI FRIIS NADPIS hPROCX zahF3 'InF4 'F4PRG BFF9KEY dn(iF9 nv_rZAHL i=iJMENO zahlHODN ' I MOD_PSV OBSAH mod_lib Prob tisk ... mod91t3 ECW_TISK NASTAV_PRNMOD_LIB ,OBRT LMOD91T3 mod4_lib Ve sklad polo Regleta skladov ch um Regleta skladov ch um , sklad : RIIS 4.2 mod91c 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 VOLBA ECK_SKLAD M_SKLAD RNW_TYP_SKL MOD_SYS S_STAV LS_PRECEN S_PRIJEM S_VYDEJ LS_PRESUN S_INV S_ZASOBA FS_HAL dTV_REGUM MOD4_LIB C_REGL FHLASKA L2IDENT M1_IDENT POLEX FFREEZE LLEVA "vPRAVA _OFFHOR DT_ON FFRAMECEK NAZEVT FW_OBDOBI hNADPIS "PROCX zahF2 'InF3 ) F4PRG dn(iF9KEY nv_rF9 i=iZAHL zahlJMENO ' HODN MOD_PSV soOBSAH mod_lib Prob tisk ... mod91t9 ECW_TISK NASTAV_PRNMOD_LIB LMOD91T9 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 xc_rekp c_rekv xc_rekv Rekapitulace reglety sklad RIIS 9.2 mod91c 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 ECM_PARAM W_HMT RNPOLE5 S_STAV S_PRECEN LS_PRIJEM S_VYDEJ S_PRESUN LS_INV S_ZASOBA S_HAL FTV_REGUM dW_TYP_SKL MOD4_LIB C_REGL FHLASKA L2PODNIK SKLAD V4_SKLAD FKONSIG LC_REGL_R vIDENT FM1_PLAN STSKLAD FFSTAV_KCS PRECENENI PRIJEM_KCSVYDEJ_KCS PRESUN_KCSIN_ROZ_KCSZASOBA_KCSHAL_VYR CSSTAV 'VAHA_MJ ) PRIJEM VYDEJ BFPRESUN (iINV_ROZDILZASOBA ILC_REKAP SKOD_OB POCET XC_REKAP POC_P = POC_V zaPOCETC ' TYP_UM_V TYP_UM_P PROCENTA aM1_IDENT )KOD_POL W_PRUMER cW_NO_CENA NAKLAD i) W_ST_CENA STAN_NAKL VYDAL_SKL SKUT_MNOZ PLAN_MNOZ PRIJAL_SKLC_REKP C_REKV zXC_REKP 'XC_REKV POLEX )FREEZE (prLEVA cs,11PRAVA odn(HOR "prijDOL i=RAMECEK ahNAZEVT ' W_OBDOBI (i) NADPIS ydePROCX 1,2)F1 odn(i) F2 vydej_kF3 i=i+1 zahl(i)F4PRG jmeF7 ) = "sF9KEY un_kF9 1,2)" ) = JMENO _kcsHODN i) MOD_PSV z.OBSAH menor mod_lib Prob tisk ... C_REKAP ECST_ZAZ W_TISK RNNASTAV_PRNMOD_LIB LMESS STRANA PRESUN C_REGL_R STSKLAD FSKLAD dW_ROZ_KCS TISK_HL4 TISK_S40 FTISK_S4 L2P_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 W_OBDOBI NP_SETUP RNP_COMP_OFFP_SUBON LW_PODNIK P_SUBOFF LP_LETRQUALP_BOLDON P_BOLDOFF P_DRAFT dSTSKLAD ALV4_SKLAD C_REGL_R FNAZEV 2P_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 dPRESUN_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 P_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 REGL_R vSTRANA FP_SUBON pom_Aktf mod4_lib Ve sklad polo c_regl_r c_regl_r xc_r_r Rekapitulace reglety sklad - aktu obdob RIIS 4.3 Rekapitulace reglety sklad RIIS 9.2 mod91c 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 S_PRECEN NS_PRIJEM S_VYDEJ S_PRESUN LS_INV S_ZASOBA S_HAL SKLAD CSTV_REGUM W_TYP_SKL MOD4_LIB dC_REGL KCSHLASKA PODNIK KCSSKLAD DILV4_SKLAD SKONSIG LC_REGL_R STSKLAD FSTAV_KCS vPRECENENI PRIJEM_KCSVYDEJ_KCS PRESUN_KCSIN_ROZ_KCSZASOBA_KCSHAL_VYR CSXC_R_R SPOLEX SFREEZE KCSLEVA CSPRAVA ) DOL RAMECEK BFNAZEVT (iRIIS OZDILW_OBDOBI LNADPIS SPROCX F1 REKAP F4PRG = F6 zaF9KEY ' F9 _UM_V F10_JM aF10PRG )ZAHL JMENO cHODN i) MOD_PSV OBSAH mod_lib Prob tisk ... mod91b_2 mod91b_2 ST_ZAZ CW_TISK NASTAV_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='V' Ve skladech nebyl realizov dej u polo Protokol v RIIS 9.2 mod91c 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 MOD4_LIB NC_OBR STRED_OBR KOD_OB LIDENT HLASKA M1_IDENT VYDAL_SKL V4_SKLAD PODNIK POLEX dFREEZE KCSLEVA PRAVA KCSHOR ILDOL SRAMECEK LNAZEVT W_OBDOBI FRIIS vNADPIS PROCX _KCSF1 EJ_KCS SUN_KCSF3 ROZ_KCSF4 OBA_KCSF4PRG SF9KEY KCSF9 CSZAHL 'JMENO ) HODN BFMOD_PSV (iOBSAH mod_lib Prob tisk ... mod91t61 mod91t6 W_TISK NASTAV_PRNMOD_LIB LPODNIK MOD91T61 MOD91T6 mod4_lib inlist(left(kod_ob,1),'P','O') typ_um_v='V' Ve skladech nebyl realizov jem u polo Protokol p RIIS 9.2 mod91c 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 ident_zak ident_zak Rozp.vy 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 KOD_OB LIDENT STRED_OB HLASKA M1_IDENT POLEX FREEZE dPRAVA KCSHOR KCSRAMECEK ILNAZEVT SW_OBDOBI LRIIS NADPIS FPROCX _KCSF3 EJ_KCS SUN_KCSF4PRG _KCSF6 OBA_KCSF7 CSF9KEY SZAHL KCSJMENO CSHODN ) MOD_PSV OBSAH mod_lib Prob tisk ... mod91t7v W_TISK NASTAV_PRNMOD_LIB LMOD91T7V J.PORKERTFF mod4_lib inlist(kod_ob,'V11','V35','V36') typ_um_v='V' mod4_lib left(kod_ob,1)='V' and left(kod_ob,2)#'VE' typ_um_v='V' Ve skladech nebyl realizov dej u polo h materi lu do NV RIIS 9.2 mod91c ttisk8 Zadejte k d obratu : stred_obr stred_obr ident_zak ident_zak kod_ob kod_ob stka/K str(celkem,11,2) celkem W_PODNIK VYBER_OBR M_SKLAD RNMOD4_LIB C_OBR STRED_OBR IDENT_ZAK KOD_OB IDENT STRED HLASKA POLEX FREEZE dLEVA KCSPRAVA KCSDOL ILRAMECEK SNAZEVT LW_OBDOBI FNADPIS vPROCX _KCSF2 EJ_KCS SUN_KCSF4 _KCSF4PRG _KCSF6 SF9KEY KCSZAHL CSJMENO 'HODN MOD_PSV BFOBSAH mod_lib Prob tisk ... mod91t8 W_TISK NASTAV_PRNMOD_LIB MOD91T8 mod4_lib inlist(left(kod_ob,1),'O') typ_um_v='V' Ve skladech nebylo realizov no odv polo Protokol odv edisek RIIS 9.2 mod91c 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 KOD_OB STRED HLASKA M1_IDENT POLEX FREEZE dPRAVA KCSHOR KCSRAMECEK ILNAZEVT SW_OBDOBI LRIIS NADPIS FPROCX _KCSF3 EJ_KCS SUN_KCSF4PRG _KCSF6 _KCSF7 CSF9KEY SZAHL KCSJMENO CSHODN ) MOD_PSV OBSAH mod_lib Prob tisk ... mod91t12 W_TISK NASTAV_PRNMOD_LIB MOD91T12 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 MOD_PROC DRUH_SKL colora set color to &color COLOR roby do NV podle n kl.st .a zak z NV podle n kl.st .a zak zek - fin z NV podle n kl.st .a zak zek - zak 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 Str_Zak_Ob C1_NABEH C1_NAB1 Zak_Str C1_NABEH C1_NAB2 Str_Zak RIIS 9.2 mod91c 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 NAB_ODV POM_JAKY NAZEVT NW_OBDOBI C1_NAB IDENT KOD_OB IDENT_ZAK SKUT_MNOZ TYP_UM_V STRED_OBR DOKL_CIS dNAKLAD KCSSTRED_NV KCSMAT2 ILMZDY BDOBI FJ_MAT1 vJ_MAT2 J_MZDY KCSJ_VR J_OPM _KCSJ_OPN _KCSOBR _KCSM1_KALKS SPOM_NASEL M7_RENE STRED KCSMATER SKOOP 'PRIP KUSY_D KUSOV FHLASKA ZDILM7_NVPAR C1_NABEH STR_ZAK_OBC1_NAB1 ZAK_STR C1_NAB2 STR_ZAK POLEX PROCX iRTOP zaRBOT ' CLEFT CRIGHT FREEZE aORDER cLEVA PRAVA i) NADPIS JMENO TITLE _SKLTITLECOLORPOC0 (prF4 cs,11F6 odn(F7 "prijF9 i=F10 ahF0PRG ' F1ON F1PRG i) F4_JM ydeF4PRG 1,2)TISKPRG ) F7_JM ej_kF7PRG F9PRG l(i)F9KEY esF9KEY1 jmeF10_JM "sF10PRG n_kRAMECEK ) = KLICO kcsKLNAZ *SPACEBAR TR_HL1 z.TR_HL2 enoTR_HL3 rTR_HL4 kcsTR_HL5 hoTR_HL6 "iTR_HL7 TR_HL8 TR_HL9 = DET_JM a/KENTER no(iDETAIL r(zDETPRG s,1PS_LINE dnPS_RETURN PS_ZAZN doMOD_PSV rOBSAH 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 NSUMY C1_NABEH C1_NAB1 KUMUL C1_NAB2 RIIS 9.2 mod91c ident_zak Celkem za zak Kumul.n kl.st edisek po zak ch (v roba) Kumul.odv kl.st edisek po zak ch - fin Kumul.odv kl.st edisek po zak ch - zak Zadejte zak |......... ident_zak ident_zak ' '+stred_obr stred_obr stred_NV Celkem za st Kumul.n hy zak zek pro st ediska NV (v roba) Kumul.odv zek pro st ediska NV - fin Kumul.odv zek pro st ediska NV - zak 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 NRTOP CLEFT CRIGHT FREEZE ORDER _MNOZ PRAVA dNADPIS KCSZAHL JMENO KCSHODN ILSOUC STITLE LTITLECOLORPOC0 KCSF3 _KCSF6 _KCSF7 _KCSF9 KALKS NASEL F0PRG KCSF1PRG SF4_JM 'F4PRG TISKPRG F7_JM FF7PRG F9PRG ZDILF9KEY F9KEY1 F10_JM _OBF10PRG RAMECEK NAZEVT KLICO KLNAZ iSPACEBAR aTR_HL1 ' TR_HL2 TR_HL3 TR_HL4 aTR_HL5 )TR_HL6 TR_HL7 cTR_HL8 TR_HL9 i) DET_JM ENTER DETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN ORNAB_ODV zW_OBDOBI 'POM_JAKY )MOD_PSV rOBSAH prava dat ... roby do NV podle n kl.st edisek a zak Odv z NV podle n kl.st edisek a zak zek - fin Odv z NV podle n kl.st edisek a zak zek - zak 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 mod91c 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 NS_MAT1 S_MAT2 S_MZDY S_OPM S_OPN S_CELKEM POLEX PROCX dRBOT KCSCLEFT CRIGHT KCSFREEZE ILORDER ECOLORLEVA FPRAVA vNADPIS KCSJMENO _KCSSOUC _KCSTITLE _KCSTITLECOLORPOC0 KCSF2 ZDILF0PRG F1PRG _OBF4_JM F4PRG TISKPRG F7_JM F7PRG F9PRG iF9KEY aF9KEY1 ' F10_JM F10PRG RAMECEK aRIIS )NAZEVT KLICO cKLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 ORTR_HL8 zTR_HL9 'DET_JM ENTER )DETAIL rDETPRG ,11PS_LINE n(PS_RETURN PS_ZAZN i=MESS ahNAB_ODV W_OBDOBI POM_JAKY C1_NABEH eSTRED_OBR kMZDY NABEH eC1_NAB IDENT_ZAK STR_ZAK KOD_OB STR_ZAK_OBI BMOD_PSV Mod_Lib Mod_Lib Prob tisk p ehledu ... mod91c(!9 POM_VETA P_SETUP NP_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 CSW_TISK SNASTAV_PRNMESS MOD91C soubor ! colorz double Celkov Esc,^End Mat1 : K Mat2 : K Mzdy : K VR : K OPM : K OPN : K Celkem: K 9999999999.99 MMCOLOR NHLASKA MOD_WIN S_MAT1 S_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 Meziskl esuny meziskladu do expedic RIIS 9.2 mod91c TiskniP Zadejte mezisklad, expedici a k d obratu: |...|...|.. Funkce PreKumul 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 C1_NAB IDENT NKOD_OB SKUT_MNOZ MEZISKL EXPED INEOFFOPN ALOFF M1_KALKS POM_J_M1 FPOM_J_M2 LPOM_J_MZDYPOM_J_VR POM_J_M FFPOM_J_N ALPOM_M1 CSPOM_M2 OFFPOM_MZDY POM_VR OFFPOM_M POM_N _OFFPOM_2M1 POM_2M2 POM_2MZDY POM_2VR SPOM_2M PRNPOM_2N POM_NASEL IDENT_ZAK TYP_UM_V TYP_UM_P LMATER YKUSY_D KUSOV M7_NVPAR VYDAL_SKL PRIJAL_SKLHLASKA C1_NABEH POLEX PROCX aCLEFT )CRIGHT FREEZE cORDER PRAVA NADPIS JMENO ORSOUC zTITLE 'TITLECOLORPOC0 ,11F2 RETURN BDOBI F0PRG eF1ON F1PRG F4_JM kF4PRG TISKPRG )F7_JM sF7PRG eF9PRG F9KEY F9KEY1 F10_JM F10PRG _OBRAMECEK BRIIS NAZEVT z.KLICO enoKLNAZ rSPACEBAR sTR_HL1 hoTR_HL2 "iTR_HL3 TR_HL4 TR_HL5 = TR_HL6 a/KTR_HL7 o(iTR_HL8 r(zTR_HL9 s,1DET_JM dnENTER DETAIL iDETPRG doPS_LINE rPS_RETURN PS_ZAZN obW_OBDOBI rnMOD_PSV **OBSAH colorz ty za mezisklad ty za meziskl., exped. ty za meziskl., exped., k esuny do exped. z meziskl. Konec MMCOLOR NPRESUMY C1_NABEH PRESUN esuny do expedice z mezisklad RIIS 9.2 mod91c TiskniP Zadejte expedici, mezisklad a k d obratu: |...|...|.. Funkce Pre2Kumul 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 Exped Meziskl POM_VETA POLEX PROCX NRTOP CLEFT CRIGHT FREEZE ORDER PRAVA NADPIS OFFZAHL JMENO FTITLE LTITLECOLORPOC0 OFFF4 _MZDY OFFF7 _OFFF10 F0PRG F1PRG SF4_JM PRNF4PRG TISKPRG F7_JM F7PRG F9PRG LF9KEY F9KEY1 F10_JM YF10PRG RAMECEK NAZEVT KLICO _SKLKLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 aTR_HL5 )TR_HL6 TR_HL7 cTR_HL8 TR_HL9 DET_JM ENTER DETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN ORW_OBDOBI 'EXPED RMOD_PSV )MEZISKL colorz ty za expedici ty za exped., meziskl. ty za exped., meziskl., k Konec MMCOLOR NPRESUMY C1_NABEH Mod_Lib Mod_Lib Prob tisk p ehledu ... mod91c2(!9 mod91c3(!9 POM_VETA P_SETUP NP_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 W_TISK SNASTAV_PRNMESS MOD91C2 MOD91C3 prava dat ... C1_NABEH C1_NAB Meziskl esuny meziskladu do expedic ty za mezisklad ty za mezisklad Zadejte mezisklad: Exped esuny do expedic z meziskladu ty za expedici ty za expedici Zadejte expedici: C1_NABEH C1_NAB Meziskl esuny meziskladu do expedic ty za mezisklad a expedici ty za mezisklad a expedici Zadejte meziskl. a exped.: |...|... Meziskl esuny do expedic z meziskladu ty za expedici a mezisklad ty za expedici a mezisklad Zadejte exped. a meziskl.: |...|... C1_NABEH C1_NAB Meziskl esuny meziskladu do expedic ty za mezisklad, expedici a k ty za mezisklad, expedici a k Zadejte meziskl., exped. a k |...|... Meziskl esuny do expedic z meziskladu ty za expedici, mezisklad a k ty za expedici, mezisklad a k Zadejte exped., meziskl. a k |...|...|.. RIIS 9.2 mod91c 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 NS_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 LF0PRG F1PRG YF4_JM F4PRG TISKPRG F7_JM F7PRG _SKLF9PRG F9KEY F9KEY1 F10_JM F10PRG RAMECEK aRIIS )NAZEVT KLICO cKLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 ORTR_HL8 zTR_HL9 'DET_JM RENTER )DETAIL rDETPRG 1PS_LINE n(PS_RETURN PS_ZAZN i=MESS ahC1_NABEH IDENT KOD_OB MEZISKL eEXPED NABEH kMAT1 )MZDY NABEH C1_NAB W_OBDOBI BMOD_PSV soubor ! colorz double Celkov Esc,^End Mat1 : K Mat2 : K Mzdy : K VR : K OPM : K OPN : K Celkem: K 9999999999.99 MMCOLOR NHLASKA MOD_WIN S_MAT1 S_MAT2 S_MZDY S_OPM S_OPN FFFZ^D select &st_sel W_IDENT W_NAKL_S W_NAKL_N NST_SEL KALKS W_OCEN_VYRM7_NVPAR MATER MAT2_KOOP MAT2_MVV KUSY_D FKUSOV NVPAR LKALK RPL_OD TYP_NAKL FIDENT FFFZ^D select &st_sel W_TYP W_IDENT W_NAKL_S NW_NAKL_N ST_SEL KALKS VYRW_OCEN_VYRM7_NVPAR MATER MAT2_KOOP MAT2_MVV KUSY_D FPRIP KUSOV NVPAR RW_OCEN_EXPKALK PL_OD ALTYP_NAKL IDENT 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 NU1_UM U1_ZAS VYRU1_KALK YRKALK M1_PLAN X1_PLAN V4_SKLAD X4_SKLAD U1_KALKS KALKS FM1_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 mod91c 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 sele &st_sel mod4_lib typ_um_v='V' Ve skladech nebyl realizov n vybran obrat u polo sele &st_sel J.PORKERT EUTIT r skladov ch obrat RIIS 9.2 mod91c 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 NW_TYP_SKL MOD_SYS M_CIS1 VYRX_CIS1 YRHLASKA C_KOD S_RIIS HODNOTA POLEX FPRAVA RAMECEK FTITLE LNAZEVT RRIIS N_EXPNADPIS PROCX _NAKL SPACEBAR FZAHL JMENO _OFFHODN OLORMOD_PSV C_OZNAC ZAZNAM W_KODY SNPOC V_PRNVYBER_OBR MOD4_LIB C_OBR KOD_OB IDENT LM1_IDENT M1_PLAN PODNIK YFREEZE W_OBDOBI _SKLF4PRG F9KEY F10PRG aF10_JM )OBSAH mod_lib Prob tisk ... J.PORKERT mod91t13 EUTIT mod91t15 mod91t14 W_TISK NASTAV_PRNMOD_LIB VYRPODNIK YRMOD91T13 MOD91T15 MOD91T14 za FFF P_OBD MOD91BX (obr.k VYBER_INV TISK1 r(obr^ TTISK1 )#'*u TISK2 TTISK2 skl=G! TISK3 d typS" TTISK3 TISK9 nsole\/ TTISK9 TISK4 elect TTISK4 TISK_HL4 TISK_S40 TISK_S4 TISK5 and s TTISK5 od_ojp TISK6 TTISK6 nd tk| TISK7 typ ; TTISK7 onsom TISK8 endiz TTISK8 lectM TISK12 ex oY TTISK12 HLASKA PROCENTA K_SKLAD o mess TISKNAOD NABKUMUL KUMUL m1_id TISKNIN SUMA_C i. TISKPRE PREKUMUL PRESUN PRE2KUMUL TISKNIP PRESUMY SUMA_C2 STAN_NAKL STAN_NAKL2 OTEVRI_DBF TISK_OBR TTISK_OBR GET_OBD X:\OBEC\09\ MOD91C.FXP X:\OBEC\09\MOD91C.PRG