Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1998-08-17 | 94KB | 2,600 lines

m_param M_PARAM W_PODNIK =FIRMA l KPOLE4 no(iW_PRUMER oW_OCEN_EXPPOLE2 noz-W_OCEN_VYRPOLE5 W_OBDOBI oTER_UZAV *GET_OBD z-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 z NV - fin 25 esuny 25 ediska 25 r skladov ch obrat 25 Hodnocen roby 25 Hodnocen roby - ro 25 pro PS mzdy 25 r skl.obrat za obdob 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 'tiskodv' do tisk with 'tiskpre' do tisk with 'mod54c' do tisk with 'tisk_obr' EUTIT do tisk with 'mod91f' do tisk with 'hodn_rok' PORKERTF do tisk with 'mod252d' DUPRF RIISF do tisk with 'tisk_Obd' deactivate popup volba P_SETUP P_RESET =P_6LPI l KP_8LPI o(iP_10CPI oP_12CPI XPP_16CPI z-P_20CPI YRP_BOLDON P_BOLDOFF P_ULINEON P_ULINEOFFP_ITALON ,P_ITALOFF P_SUPERON P_SUPEROFFP_SUBON ="P_SUBOFF nP_DBST_ON P_DBST_OFFP_LETRQUALP_DRAFT _pP_COMP_OFFP_WIDT_ON P_WIDT_OFFP_HEIG_ON P_HEIG_OFFP_NEWPAGE P_KODY ***MOD_LIB ********VOL ******NAVRAT pKONTROLA tM_SKLAD zaW_TYP_SKL OTEVRI_DBFOBR sk = .VOLBA nastPODNIK n mID_ORG mod252d mod54c EXPEDICE mod91f hodn_rok tisk_Obd W_TISK TISKS =VOLBA l KMOD252D (iOTEVRI_DBFW_MODUL XPW_ARCHIV -W_VOL YRMOD54C MOD91F DBFW_OBDZAL FW_OBDOBI FTISK_OBD mod4_lib substr(obr.kod_ob,1,2)='IS' and substr(obr.kod_ob,3,1)#'*' typ_um_v='E' 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 K_SKLAD M_SKLAD =W_TYP_SKL MOD_SYS (iVYBER_OBR MOD4_LIB PC_OBR -VYDAL_SKL VYD_UM_SKLIDENT DBFHLASKA M1_IDENT FPOLEX ,FREEZE PRAVA ROFFHOR ="DOL nRAMECEK NAZEVT FFW_OBDOBI LRIIS pNADPIS OFFPROCX IDT_OFFF2 EIG_ON EIG_OFFF4 EWPAGE F4PRG ***F6 *******F9KEY ****F9KEY1 TROLA tZAHL zaJMENO _DBFI = .MOD_PSV stOBSAH mod_lib Prob tisk ... mod91t1 W_TISK =NASTAV_PRNMOD_LIB (iOBRT PMOD91T1 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 K_SKLAD M_SKLAD =W_TYP_SKL MOD_SYS (iVYBER_PRECMOD4_LIB C_PREC -SKLAD UM_SKL SKLIDENT DBFXC_PREC M1_IDENT FHLASKA ,POLEX FREEZE ROFFPRAVA ="HOR RAMECEK FFNAZEVT LW_OBDOBI pRIIS FNADPIS PROCX _OFFF1 EIG_ON EIG_OFFF3 EWPAGE ***F4PRG *******F7 ****F9KEY pF9KEY1 zaZAHL JMENO _DBFHODN = .I stMOD_PSV mOBSAH mod_lib Prob tisk ... mod91t2 W_TISK =NASTAV_PRNMOD_LIB (iOBRT RECMESS MOD91T2 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 K_SKLAD M_SKLAD =W_TYP_SKL MOD_SYS (iS_STAV RECS_PRECEN S_PRIJEM -S_VYDEJ S_PRESUN LS_INV DBFS_ZASOBA S_HAL FTV_REG ,MOD4_LIB C_REGL HLASKA OFFIDENT ="M1_IDENT nPOLEX FREEZE FFLEVA LPRAVA RAMECEK FFNAZEVT W_OBDOBI FRIIS NADPIS ***PROCX *******F2 ****F3 tF4PRG _DBFF9KEY = .F9 stZAHL mJMENO ithHODN MOD_PSV enOBSAH mod_lib Prob tisk ... mod91t3 W_TISK =NASTAV_PRNMOD_LIB (iOBRT RECMESS MOD91T3 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 S_PRECEN =S_PRIJEM NS_VYDEJ (iS_PRESUN CS_INV S_ZASOBA -S_HAL TV_REGUM LW_TYP_SKL M_SKLAD MOD4_LIB FC_REGL ,HLASKA IDENT M1_IDENT FPOLEX "FREEZE nLEVA PRAVA FFHOR pRAMECEK FNAZEVT W_OBDOBI FRIIS NADPIS FPROCX ***F2 *******F4 ****F4PRG zaF9KEY _DBFZAHL = .JMENO stHODN ithMOD_PSV ifOBSAH mod_lib Prob tisk ... mod91t9 W_TISK =NASTAV_PRNMOD_LIB (iOBRT CMESS MOD91T9 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 M_PARAM =W_HMT RNPOLE2 (iS_STAV CS_PRECEN S_PRIJEM -S_VYDEJ S_PRESUN LS_INV S_ZASOBA S_HAL FTV_REGUM ,W_TYP_SKL M_SKLAD MOD4_LIB FC_REGL "HLASKA nPODNIK SKLAD FFV4_SKLAD LKONSIG pC_REGL_R FSTSKLAD STAV_KCS FPRECENENI PRIJEM_KCSVYDEJ_KCS PRESUN_KCSIN_ROZ_KCSZASOBA_KCSHAL_VYR CSSTAV pM1_PLAN tVAHA_MJ zaPRIJEM VYDEJ BFPRESUN .INV_ROZDILZASOBA ILALL SC_REKAP CSKOD_OB POCET enKCS savXC_REKAP do mPOC_P h ' POC_V tisM POCETC iceTYP_UM_V TYP_UM_P PROCENTA tM1_IDENT oIDENT dKOD_POL sW_PRUMER W_NO_CENA NAKLAD eW_ST_CENA STAN_NAKL VYDAL_SKL SKUT_MNOZ PLAN_MNOZ PRIJAL_SKLC_REKP C_REKV m oPOLEX nFREEZE ***LEVA *****PRAVA ****HOR ******DOL ******RAMECEK NAZEVT re W_OBDOBI RIIS &&NADPIS ecePROCX do k_skF2 with m_F3 d, w_tyF4 if mF4PRG 'escF6 returF9KEY f F9 mod_syZAHL JMENO yberHODN ith I , w_MOD_PSV n OBSAH mod_lib Prob tisk ... C_REKAP ST_ZAZ =W_TISK RNNASTAV_PRNMOD_LIB COBRT VYDEJ STRANA C_REGL_R STSKLAD FSKLAD ,W_ROZ_KCS TISK_HL4 TISK_S40 FTISK_S4 "P_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: NAZEVT =W_OBDOBI NP_SETUP RNP_COMP_OFFP_SUBON W_PODNIK -P_SUBOFF LP_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 W_HMT NP_BOLDON NP_BOLDOFF STAV_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 =P_BOLDON NP_BOLDOFF LDOFF P_10CPI KONEC_P KONEC_V C_REKP STSKLAD CSC_REKV SKLAD SUN_KCSKOD_OB POCET KCSKCS DILC_REGL_R SP_LETRQUALP_DRAFT P_COMP_OFFL pSTRANA 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 S_STAV =S_PRECEN NS_PRIJEM S_VYDEJ S_PRESUN S_INV S_ZASOBA S_HAL SKLAD CSTV_REGUM W_TYP_SKL M_SKLAD ,MOD4_LIB SC_REGL HLASKA KCSPODNIK DILSKLAD SV4_SKLAD LKONSIG C_REGL_R FSTSKLAD pSTAV_KCS FPRECENENI PRIJEM_KCSVYDEJ_KCS PRESUN_KCSIN_ROZ_KCSZASOBA_KCSHAL_VYR CSALL SPOLEX SFREEZE pLEVA tPRAVA zaHOR BFRAMECEK .NAZEVT ILRIIS ILW_OBDOBI SNADPIS CSPROCX savF3 REKAP do mF4PRG h ' F6 tisF7 F9KEY iceF9 _UM_V F10_JM tF10PRG oZAHL dJMENO sHODN MOD_PSV eOBSAH mod_lib Prob tisk ... mod91b_2 mod91b_2 ST_ZAZ W_TISK =NASTAV_PRNMOD_LIB STRANA REGUM YP_SKL 4_LIB KCSP_RESET ILTISK_HL5 SMOD91B_2 LTISK_S5 C_REGL_R mod4_lib inlist(left(kod_ob,1),'V','R') typ_um_v='E' 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 =MOD4_LIB NC_OBR STRED_OBR KOD_OB IDENT HLASKA M1_IDENT VYDAL_SKL V4_SKLAD PODNIK POLEX ,FREEZE SLEVA PRAVA KCSHOR ILDOL SRAMECEK LNAZEVT W_OBDOBI FRIIS pNADPIS FPROCX JEM_KCSF2 EJ_KCS SUN_KCSF4 ROZ_KCSF4PRG _KCSF6 SF9KEY pZAHL tJMENO zaHODN BFMOD_PSV .OBSAH mod_lib Prob tisk ... mod91t61 mod91t6 W_TISK =NASTAV_PRNMOD_LIB PODNIK MOD91T61 MOD91T6 mod4_lib inlist(left(kod_ob,1),'P','O') typ_um_v='E' 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 =MOD4_LIB NC_OBR KOD_OB IDENT HLASKA M1_IDENT POLEX FREEZE PRAVA SRAMECEK NAZEVT KCSW_OBDOBI LRIIS SNADPIS LPROCX BDOBI F4PRG _KCSF6 EJ_KCS SUN_KCSF9KEY _KCSF9 _KCSZAHL CSJMENO SHODN pMOD_PSV tOBSAH mod_lib Prob tisk ... mod91t7 W_TISK =NASTAV_PRNMOD_LIB MOD91T7 mod4_lib inlist(left(kod_ob,1),'O') typ_um_v='E' 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 KOD_OB STRED HLASKA M1_IDENT POLEX FREEZE ,PRAVA KCSRAMECEK LNAZEVT SW_OBDOBI LRIIS NADPIS FPROCX _KCSF4 EJ_KCS F4PRG _KCSF6 _KCSF7 _KCSF9KEY SZAHL SJMENO pHODN zaMOD_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 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 IDENT_ZAK SKUT_MNOZ TYP_UM_V STRED_OBR DOKL_CIS NAKLAD STRED_NV ,KOD_POL SMAT1 KCSMZDY J_MAT1 FJ_MAT2 pJ_MZDY FJ_VR J_OPM _KCSJ_OPN _KCSM1_KALKS SM1_IDENT SM7_RENE STRED MATER SKOOP pPRIP tKUSY_D aKUSOV HLASKA .M7_NVPAR C1_NABEH STR_ZAK_OBC1_NAB1 ZAK_STR C1_NAB2 STR_ZAK POLEX oPROCX do mRTOP h ' RBOT tisCLEFT CRIGHT iceFREEZE ORDER oLEVA dPRAVA sNADPIS ZAHL JMENO eHODN TITLE TITLECOLORPOC0 JAL_SKLF1 m oF3 ***F6 *****F7 ****F9 ******F10 ******F0PRG re F1PRG F4_JM &&F4PRG eceTISKPRG F7_JM k_skF7PRG h m_F9PRG w_tyF9KEY if mF9KEY1 escF10_JM turF10PRG RAMECEK syRIIS KLICO berKLNAZ ith SPACEBAR _TR_HL1 n TR_HL2 *TR_HL3 tTR_HL4 TR_HL5 n sTR_HL6 sklTR_HL7 o xTR_HL8 setTR_HL9 n tDET_JM intENTER DETAIL DETPRG PS_LINE skPS_RETURN PS_ZAZN ceMOD_PSV dnOBSAH 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 KUMUL 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 CRIGHT FREEZE ORDER D_OBR PRAVA ,NADPIS SZAHL JMENO KCSHODN LSOUC STITLE LTITLECOLORPOC0 _KCSF4 _KCSF7 KALKS IDENT F0PRG SF1PRG pF4_JM tF4PRG aTISKPRG F7_JM FF7PRG .F9PRG F9KEY F9KEY1 _OBF10_JM F10PRG RAMECEK NAZEVT oKLICO do mKLNAZ h ' SPACEBAR sTR_HL1 TR_HL2 iceTR_HL3 TR_HL4 TR_HL5 tTR_HL6 oTR_HL7 dTR_HL8 sTR_HL9 DET_JM ENTER eDETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN W_OBDOBI MOD_PSV oOBSAH 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 S_OPM S_OPN S_CELKEM POLEX PROCX ,RBOT SCLEFT CRIGHT KCSFREEZE LORDER ECOLORLEVA FPRAVA pNADPIS FZAHL JMENO _KCSHODN _KCSTITLE STITLECOLORPOC0 .F10 F0PRG _OBF1PRG F4_JM F4PRG TISKPRG F7_JM oF7PRG do mF9PRG h ' F9KEY sF9KEY1 F10_JM iceF10PRG RAMECEK tNAZEVT oKLICO dKLNAZ sSPACEBAR TR_HL1 TR_HL2 eTR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 TR_HL8 LTR_HL9 DET_JM oENTER nDETAIL ***DETPRG ***PS_LINE **PS_RETURN PS_ZAZN **MESS W_OBDOBI C1_NABEH STRED_OBR NABEH mC1_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 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 P_COMP_OFFP_WIDT_ON P_WIDT_OFFP_HEIG_ON P_HEIG_OFFP_NEWPAGE P_KODY MOD_LIB SW_TISK pNASTAV_PRNMESS aMOD91D 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 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 POM_M1 OFFPOM_M2 POM_MZDY FPOM_VR POM_M _OFFPOM_N POM_2M1 POM_2M2 SPOM_2MZDY POM_2VR RNPOM_2M aPOM_2N IDENT_ZAK TYP_UM_V .TYP_UM_P MATER BPRIP YKUSY_D KUSOV M7_NVPAR PRIJAL_SKLVYDAL_SKL HLASKA C1_NABEH POLEX PROCX iceRTOP CLEFT tCRIGHT oFREEZE dORDER ePRAVA NADPIS JMENO LTITLE TITLECOLORPOC0 ***F1 ***F2 RETURN BDOBI NABEH D_OBR F0PRG F1PRG kF4_JM _F4PRG yTISKPRG mF7_JM F7PRG F9PRG F9KEY F9KEY1 _OBF10_JM BF10PRG h RAMECEK _RIIS n NAZEVT *KLICO tKLNAZ SPACEBAR sTR_HL1 sklTR_HL2 o xTR_HL3 setTR_HL4 n tTR_HL5 intTR_HL6 TR_HL7 TR_HL8 TR_HL9 skDET_JM ENTER doDETAIL ceDETPRG dnPS_LINE PS_RETURN PS_ZAZN enW_OBDOBI --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 aTISKPRG F7_JM F7PRG .F9PRG F9KEY F9KEY1 BF10_JM YF10PRG RAMECEK NAZEVT SKLKLICO KLNAZ SPACEBAR TR_HL1 TR_HL2 iceTR_HL3 TR_HL4 TR_HL5 tTR_HL6 oTR_HL7 dTR_HL8 sTR_HL9 DET_JM ENTER eDETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN W_OBDOBI MEZISKL RMOD_PSV nEXPED 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 P_COMP_OFFP_WIDT_ON P_WIDT_OFFP_HEIG_ON P_HEIG_OFFP_NEWPAGE P_KODY MOD_LIB SW_TISK NASTAV_PRNMESS aMOD91C2 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 JMENO _OFFHODN T_OFFTITLE TITLECOLORPOC0 TAV_PRNF4 F0PRG BF1PRG YF4_JM F4PRG TISKPRG F7_JM SKLF7PRG F9PRG F9KEY F9KEY1 F10_JM iceF10PRG RAMECEK tNAZEVT oKLICO dKLNAZ sSPACEBAR TR_HL1 TR_HL2 eTR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 TR_HL8 LTR_HL9 DET_JM RENTER nDETAIL ***DETPRG *PS_LINE **PS_RETURN PS_ZAZN **MESS C1_NABEH IDENT KOD_OB MEZISKL EXPED NABEH _MAT1 yMAT2 mMZDY 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 u1_Obr Ident select &st_sel mod4_lib typ_um_v='E' 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 _OFFJMENO _OFFI MOD_PSV ORC_OZNAC ZAZNAM W_KODY SNPOC PRNU1_OBR aIDENT VYBER_OBR MOD4_LIB .C_OBR KOD_OB M1_IDENT BM1_PLAN YPODNIK FREEZE W_OBDOBI SKLF3 F4PRG F9KEY iceF9 F10PRG tF10_JM oOBSAH FFFZ^D Zadejte sklad : obdob Do: Sklad neexistuje Mod_Proc Nepovolen druh skladu Zadejte obdod prava dat ... m1_Obr c1_Pom2 m1_Obr_A c1_Pom1 c1_Pom1 c1_Pom2 m_cis1 x_cis1 KOD_OB obrat neexistuje u1_Obr Ident select &st_sel c_kod+ KOD_OB c1_Pom1 Ident c_kod k obrat RIIS 0.0 mod91d d obratu hodnota hodnota c_oznac.dbf2 c_oznac zaznam u1_Obr Ident select &st_sel u1_Obr Ident select &st_sel inlist(kod_ob Ozna it lze maxim 24 z u1_Obr Ident select &st_sel mod4_lib typ_um_v='E' Ve skladech nebyl realizov n vybran obrat u polo u1_Obr Ident select &st_sel SKUHF EUTIF r skladov ch obrat - obdob RIIS 9.2 mod91d ttisk_obr Zadejte k d obratu : Obd_Fce 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 SKUHF EUTIF 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) SKUHF EUTIF Hmot. celkem str(round(m1_plan.vaha_mj*skut_mnoz,2),12,2) round(m1_plan.vaha_mj*skut_mnoz,2) u1_Obr Ident select &st_sel ST_SEL POM_DATOD POM_DATDO K_SKLAD M_SKLAD V4_SKLAD HLASKA ZOBR_SKL MOD_PROC DRUH_SKL W_TYP_SKL M1_OBR TERMIN_OB C1_POM2 M1_OBR_A C1_POM1 IDENT FM_CIS1 LX_CIS1 U1_OBR OFFC_KOD UALS_RIIS HODNOTA FFOBRX POLEX _OFFLEVA PRAVA ORHOR RAMECEK STITLE NAZEVT PRNRIIS aNADPIS PROCX 4_LIB .SPACEBAR JMENO BHODN MOD_PSV C_OZNAC ZAZNAM SKLW_KODY VYBER_OBR MOD4_LIB C_OBR iceKOD_OB M1_IDENT M1_PLAN tID_ORG oFREEZE CEBAR F4PRG F9KEY F10PRG F10_JM LOBSAH filterz colorz Dle k du obratu Dle k du obr., polo Konec mod91b_2 POM_ALI POM_ORD POM_VETA POM_FILT MMCOLOR POM_OBR POM_VOL ZOBR_REK MOD91B_2 ZOBR_OBRPODEJ_STAV mod_lib Prob tisk ... J.PORKERT mod91t13 EUTIT mod91t15 mod91t14 W_TISK NASTAV_PRNMOD_LIB PODNIK MOD91T13 MOD91T15 MOD91T14 Rekap Obr_Ide kumulace dat ... rekap SKUHF EUTIF Rekapitulace obrat - dle k du obratu, identifikace polo Kod_Ob d ob. ' '+Kod_Ob+' ' Kod_Ob Identifikace Ident Ident Nazev Nazev SKUHF EUTIF Hmotnost str(Hmotnost,12,3) Hmotnost Skut.mno str(Mnoz_Cel,13,3) Mnoz_Cel stka K str(Cena_Cel,12,2) Cena_Cel Cena/MJ str(Cena_MJ,11,2) Cena_MJ POM_OBR REKAP KOD_OB PRNIDENT HMOTNOST NAZEV CENA_MJ MNOZ_CEL CENA_CEL OBR_IDE OMESS MOD_SYS C_OBR M1_IDENT M1_PLAN VAHA_MJ SKUT_MNOZ CELKEM FNAKLAD POLEX PROCX OFFRBOT UALCLEFT CRIGHT FFFREEZE ORDER _OFFHOR ORLEVA PRAVA NADPIS SZAHL JMENO PRNHODN aSOUC PSOUC TITLE .TITLECOLORPOC0 SKLF7 R_OBR F0PRG iceF1PRG F4_JM F4PRG tTISKPRG oF7_JM dF7PRG F9PRG F9KEY F9KEY1 eF10_JM F10PRG RAMECEK NAZEVT KLICO LKLNAZ SPACEBAR RTR_HL1 nTR_HL2 ***TR_HL3 *TR_HL4 **TR_HL5 TR_HL6 **TR_HL7 TR_HL8 TR_HL9 DET_JM ENTER DETAIL DETPRG kPS_LINE _PS_RETURN PS_ZAZN mID_ORG MOD_PSV za FFF P_OBD MOD91BX do TISK1 TTISK1 TISK2 w_obd TTISK2 TISK3 bi = TTISK3 TISK9 obdob TTISK9 TISK4 TTISK4 TISK_HL4 TISK_S40 TISK_S4 TISK5 TTISK5 ****np TISK6 ***** TTISK6 ****t| TISK7 ***** TTISK7 ****b TISK12 tisn TTISK12 HLASKA PROCENTA K_SKLAD sklad TISKODV NABKUMUL KUMUL endif TISKNIN SUMA_C TISKPRE PREKUMUL PRESUN PRE2KUMUL TISKNIP PRESUMY SUMA_C2 OTEVRI_DBF TISK_OBR TISK_OBD OBD_FCE TTISK_OBR ZOBR_OBRPO GET_OBD X:\OBEC\09\ MOD91D.FXP X:\OBEC\09\MOD91D.PRG