Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1999-04-15 | 146.5 KB | 3,523 lines

mod27b3 MOD27B3 w_Dlradyf mod27f3 Detail dod_list Zadejte slo dod.listu: mod27b3 ehled vystaven ch dodac ch list m2_hfakt faktura M2_ft faktura a2_hfakt faktura A2_ft faktura ehled a r c h i v u dodac ch list RIIS 2.7 Dodac list HLA_FAKT.faktura HLA_FAKT.faktura HLA_FAKT.druh_dokl + ' ' HLA_FAKT.druh_dokl Objedn HLA_FAKT.objednavka HLA_FAKT.objednavka '/' +HLA_FAKT.rok_obj HLA_FAKT.rok_obj zev z subs(HLA_FAKT.nazev_org,1,25) HLA_FAKT.nazev_org Objed.z HLA_FAKT.obj_zak HLA_FAKT.obj_zak HLA_FAKT.dicp HLA_FAKT.dicp Dat.odes. ' '+tran(HLA_FAKT.dat_odesl,'@E') (HLA_FAKT.dat_odesl ) HLA_FAKT.ucet HLA_FAKT.ucet HLA_FAKT.ico HLA_FAKT.ico HLA_FAKT.zavod HLA_FAKT.zavod HLA_FAKT.mesto HLA_FAKT.mesto HLA_FAKT.psc HLA_FAKT.psc HLA_FAKT.stat HLA_FAKT.stat Sklad HLA_FAKT.vydal_skl+' ' HLA_FAKT.vydal_skl HLA_FAKT.stav_fakt + ' ' HLA_FAKT.stav_fakt HLA_FAKT.pozn HLA_FAKT.pozn W_DLRADY POLEX YPEF4 STPOZ STPOR RETURN STPOZ INTOBJ W_AKT ENTER FDETAIL TDET_JM F10_JM F10PRG F9KEY UALRAMECEK FREEZE FZAHL JMENO PROCX _OFFNAZEVT LORM2_HFAKT AFAKTURA IKHLA_FAKT M2_FT NIKFORM_FAKT A2_HFAKT NA2_FT PS_RETURN PS_ZAZN ANADPIS POZLEVA PRAVA SKPRG MOD_PSV OBSAH colora set color to &color COLOR _XOBR c2_pdl+ c2_pdl znam! RIIS 2.7 ehled po dodac ho listu F mod27b3 dodac ho listu Mno iif(ks=0,space(10),str(ks,10,3)) ' ' + kod + ' ' RIIS 2.7 MOD_SYS _FAKT FAKTURA EPS_LINE PEFORM_FAKT C2_PDL SKUPINA RADEK HLASKA HLA_FAKT PS_RETURN POLEX PROCX FRTOP TRBOT CLEFT CRIGHT FREEZE UALORDER PRAVA NADPIS OFFZAHL LORJMENO AHODN IKSOUC PSOUC NIKTITLE TITLECOLORPOC0 RETURN POZF4 F0PRG AMEF1PRG F4_JM F4PRG TISKPRG F7_JM MEF7PRG PEF9PRG EF9KEY F9KEY1 F10_JM MEF10PRG ARAMECEK NAZEVT KLICO KLNAZ SPACEBAR TR_HL1 TR_HL2 PITR_HL3 TR_HL4 KATR_HL5 TR_HL6 TR_HL7 KATR_HL8 TR_HL9 ADET_JM KAENTER DETAIL DETPRG PS_ZAZN MOD_PSV w_Dlradyf mod27f3 Detail faktury Zadejte slo faktury: mod27b3 m2_hfakt faktura ehled vystaven ch faktur M2_ft faktura a2_hfakt faktura A2_ft faktura ehled a r c h i v u faktur RIIS 2.7 Faktura HLA_FAKT.faktura HLA_FAKT.faktura HLA_FAKT.druh_dokl + ' ' HLA_FAKT.druh_dokl Objedn HLA_FAKT.objednavka HLA_FAKT.objednavka '/'+HLA_FAKT.rok_obj HLA_FAKT.rok_obj zev z subs(HLA_FAKT.nazev_org,1,25) HLA_FAKT.nazev_org Objed.z HLA_FAKT.obj_zak HLA_FAKT.obj_zak Fakturov str(HLA_FAKT.cena,12,2) HLA_FAKT.cena Cena-obchodn str(HLA_FAKT.cena-HLA_FAKT.OBALY-HLA_FAKT.dan_fakt, 13,2) HLA_FAKT.cena-HLA_FAKT.OBALY-HLA_FAKT.dan_fakt -celk. str(HLA_FAKT.dan_fakt,9,2) HLA_FAKT.dan_fakt Obaly str(HLA_FAKT.obaly,9,2) HLA_FAKT.obaly Zaokr. str(HLA_FAKT.zaokrouhl,6,2) HLA_FAKT.zaokrouhl HLA_FAKT.dicp HLA_FAKT.dicp Dat.vyst. tran(HLA_FAKT.dat_odesl,'@E') + ' ' (HLA_FAKT.dat_odesl ) Dat.spl. tran(HLA_FAKT.dat_splat,'@E') (HLA_FAKT.dat_splat ) Dat.zdan.pln space(3) + tran(HLA_FAKT.dat_fakt,'@E') + space(4) (HLA_FAKT.dat_fakt ) HLA_FAKT.ucet HLA_FAKT.ucet HLA_FAKT.ico HLA_FAKT.ico HLA_FAKT.zavod HLA_FAKT.zavod HLA_FAKT.mesto HLA_FAKT.mesto HLA_FAKT.psc HLA_FAKT.psc HLA_FAKT.stat HLA_FAKT.stat slo Dod.L. HLA_FAKT.dod_prikaz HLA_FAKT.dod_prikaz ' ' + HLA_FAKT.zem_urceni+' ' HLA_FAKT.zem_urceni Druh dod HLA_FAKT.druh_dod HLA_FAKT.druh_dod K.symbol HLA_FAKT.konst_symb HLA_FAKT.konst_symb Sklad HLA_FAKT.vydal_skl+' ' HLA_FAKT.vydal_skl izuje HLA_FAKT.vyrizuje HLA_FAKT.vyrizuje str (HLA_FAKT.kurz, 10, 2) HLA_FAKT.kurz NETTO/Kg str (HLA_FAKT.hmot_netto,9, 2) HLA_FAKT.hmot_netto BRUTTO/Kg str (HLA_FAKT.hmot_brt,9, 2) HLA_FAKT.hmot_brt Objem HLA_FAKT.objem HLA_FAKT.objem v.text ' ' +HLA_FAKT.druh_txfak + ' ' HLA_FAKT.druh_txfak Jaz.tisku ' ' + HLA_FAKT.jaz_tisku + ' ' HLA_FAKT.jaz_tisku HLA_FAKT.mena+' ' HLA_FAKT.mena HLA_FAKT.stav_fakt + ' ' HLA_FAKT.stav_fakt HLA_FAKT.pozn HLA_FAKT.pozn W_DLRADY POLEX M_FAKT INTOBJ W_AKT ENTER FDETAIL TDET_JM F10_JM F10PRG F9KEY UALRAMECEK FREEZE FZAHL JMENO OFFKLICO LORPROCX AM2_HFAKT KFAKTURA HLA_FAKT KNAZEVT M2_FT OLORFORM_FAKT A2_HFAKT A2_FT PS_RETURN PS_ZAZN NADPIS ALEVA APRAVA AMEMOD_PSV ehled: faktury ech faktur Konec PS_LINE FAKTURA KONEC EVOL11 FAKTURY1 FAKTVSE m1_ident ident c2_pdl c2_pdl znam! RIIS 2.7 ehled po faktury F , ceny jsou v mod27b3 Zadejte po c2_pdl.por c2_pdl.por ' ' + c2_pdl.kod + ' ' c2_pdl.kod Identifikace c2_pdl.ident c2_pdl.ident c2_pdl.nazev c2_pdl.nazev c2_pdl.typ c2_pdl.typ Exter.Ident c2_pdl.ident_odb c2_pdl.ident_odb Mno iif(c2_pdl.ks=0, space(10), str(c2_pdl.ks,10,3)) c2_pdl.ks c2_pdl.MJ c2_pdl.MJ Cena/MJ str(c2_pdl.cenaj,12,2) c2_pdl.cenaj DPH str(c2_pdl.dan,5,2) c2_pdl.dan Cena+DPH celkem str(c2_pdl.cenac,15,2) c2_pdl.cenac Objed. z c2_pdl.obj_zak c2_pdl.obj_zak c2_pdl.stred_fak c2_pdl.stred_fak fak. c2_pdl.klic_fak + ' ' c2_pdl.klic_fak c2_pdl.text c2_pdl.text RIIS 2.7 MOD_SYS NAZEVT E_FAKT PEFAKTURA MKURZ MMENA M1_IDENT IDENT C2_PDL FNAZEV IDENT_ODB CENAJ UALDAN CENAC FTEXT OBJ_ZAK STRED_FAK KLIC_FAK LORFORM_FAKT QWPOR QWPOR1 _FAKT DAN_RAD PORADI _FAKT HLASKA HLA_FAKT PS_RETURN POLEX PROCX ARBOT ACLEFT CRIGHT FREEZE ORDER AMEHOR PRAVA NADPIS MEZAHL PEJMENO EHODN PSOUC METITLE ATITLECOLORPOC0 CEBAR KAF10 F0PRG KAF1PRG F4_JM AF4PRG KATISKPRG F7_JM F7PRG F9PRG F9KEY F9KEY1 _F10_JM F10PRG _RAMECEK _ _KLICO ADRKLNAZ RSPACEBAR TR_HL1 _ _TR_HL2 UCTTR_HL3 RTR_HL4 TR_HL5 _TR_HL6 _ TR_HL7 _TR_HL8 TR_HL9 _ _DET_JM _ ENTER _ _DETAIL _ DETPRG _PS_LINE PS_ZAZN _ MOD_PSV m1_ident ident m4_organ m2_hfakt faktura a2_hfakt faktura RIIS 2.7 ehled v ech po faktur mod27b3 Zadejte slo faktury: Faktura FORM_FAKT.faktura FORM_FAKT.faktura ' ' + FORM_FAKT.kod + ' ' FORM_FAKT.kod Identifikace FORM_FAKT.ident FORM_FAKT.ident FORM_FAKT.nazev FORM_FAKT.nazev m1_ident.typ m1_ident.typ Exter.Ident FORM_FAKT.ident_odb FORM_FAKT.ident_odb Mno iif(FORM_FAKT.ks=0, space(10), str(FORM_FAKT.ks,10,3)) FORM_FAKT.ks FORM_FAKT.MJ FORM_FAKT.MJ Cena/MJ str(FORM_FAKT.cenaj,12,2) FORM_FAKT.cenaj DPH str(FORM_FAKT.dan,5,2) FORM_FAKT.dan PomF.mena+' ' PomF.mena str (PomF.kurz, 10, 2) PomF.kurz Cena+DPH cel/K str(FORM_FAKT.cenaj*FORM_FAKT.ks*PomF.kurz,15,2) FORM_FAKT.cenaj*FORM_FAKT.ks*PomF.kurz Cena v m str(FORM_FAKT.cenaj*FORM_FAKT.ks,15,2) FORM_FAKT.cenaj*FORM_FAKT.ks Objed. z FORM_FAKT.obj_zak FORM_FAKT.obj_zak FORM_FAKT.stred_fak FORM_FAKT.stred_fak Kl.f. FORM_FAKT.klic_fak + ' ' FORM_FAKT.klic_fak FORM_FAKT.text FORM_FAKT.text PomF.ico PomF.ico PomF.zavod PomF.zavod zev z subs(PomF.nazev_org,1,25) PomF.nazev_org Dat.vyst. tran(PomF.dat_odesl,'@E') + ' ' (PomF.dat_odesl ) Dat.spl. tran(PomF.dat_splat,'@E') (PomF.dat_splat ) Dat.zdan.pln space(3) + tran(PomF.dat_fakt,'@E') + space(4) (PomF.dat_fakt ) m4_organ.stat_dod+' ' m4_organ.stat_dod RIIS 2.7 NAZEVT FORM_FAKT HLA_FAKT M1_IDENT IDENT M4_ORGAN M2_HFAKT FAKTURA A2_HFAKT ZAVOD FPOLEX PROCX CLEFT UALCRIGHT FREEZE FORDER D_FAK FPRAVA LORNADPIS JMENO PSOUC TITLE TITLECOLORPOC0 RETURN AMEF0PRG F1PRG F4_JM F4PRG METISKPRG PEF7_JM EF7PRG F9PRG F9KEY MEF9KEY1 AF10_JM LORF10PRG RAMECEK KLICO KLNAZ SPACEBAR TR_HL1 PITR_HL2 TR_HL3 KATR_HL4 TR_HL5 TR_HL6 KATR_HL7 TR_HL8 ATR_HL9 KADET_JM ENTER DETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN _MOD_PSV m_param Statistick rozbor prodeje zbo RIIS 2.7 EUTIF RIISF Podle expedovan bez DPH Podle expedovan a st Podle odb ratel bez DPH v K Podle exp.v a odb ratel bez DPH Dle odb ratel ny bez DPH Komplexn statistika v ciz Konec Podle expedovan bez DPH Podle expedovan DPH Podle expedovan a st Podle odb ratel bez DPH v K Podle odb ratel DPH v K Podle exp.v a odb ratel bez DPH Podle exp.v a odb ratel Dle odb ratel ny bez DPH Dle odb ratel DPH Komplexn statistika v ciz Konec EUTIF RIISF M_PARAM VICESTAT POLE2 MSLEV1POR KOMPZSTAT ODOBD DOOBD M1AOBRQ ID_ORG POM_VOL STATIST1 STATIST2 STATIST3 Statistika prodeje zbo Zadejte dat.zdanit.pln Prob r dat z faktur ... Bez DPH m2_ft m2_hfakt c2_stat1 m2_ft m2_hfakt c2_stU c2_stU Prob r dat z archivu faktur ... a2_ft a2_hfakt c2_stat2 a2_ft a2_hfakt c2_stU c2_stU m2_ft m2_hfakt c2_stat1 m2_ft m2_hfakt c2_stU c2_stU Prob r dat z archivu faktur ... a2_ft a2_hfakt c2_stat2 a2_ft a2_hfakt c2_stU c2_stU Podle polo ek a st (bez DPH) m2_ft m2_hfakt c2_stat1 m2_ft m2_hfakt c2_stU c2_stU m4_organ Prob r dat z archivu faktur ... a2_ft a2_hfakt c2_stat2 a2_ft a2_hfakt c2_stU c2_stU m4_organ Podle expedovan a odb ratel (bez DPH) m2_ft m2_hfakt c2_stat1 m2_ft m2_hfakt c2_stU c2_stU m4_organ Prob r dat z archivu faktur ... a2_ft a2_hfakt c2_stat2 a2_ft a2_hfakt c2_stU c2_stU m4_organ Podle expedovan a odb ratel DPH) m2_ft m2_hfakt c2_stat1 m2_ft m2_hfakt c2_stU c2_stU m4_organ Prob r dat z archivu faktur ... a2_ft a2_hfakt c2_stat2 a2_ft a2_hfakt c2_stU c2_stU m4_organ m1_ident ident c2_stat1 c2_stat2 V zadan m obdob nebyla nalezena faktura. m1_ident, soucet1 Zadejte identifikaci: Detail Detail Statistika expedice zbo za obdob RIIS 2.7 mod27b3 Identifikace c2s.ident c2s.ident c2s.Stat c2s.Stat zev org. c2s.nazev_org c2s.nazev_org c2s.stat1+' ' c2s.stat1 zev zbo c2s.nazev c2s.nazev Mno str(c2s.dodano_ks,10,3) c2s.dodano_ks c2s.mj c2s.mj Celkem [K str(c2s.celkem_kc,12,2) c2s.celkem_kc m.cena[K str(c2s.celkem_kc / c2s.dodano_ks,13,2) c2s.celkem_kc / c2s.dodano_ks Celkem v m str(c2s.celkem_me,13,2) c2s.celkem_me c2s.Mena+' ' c2s.Mena m.cena[M str(c2s.celkem_me/c2s.dodano_ks,15,2) c2s.celkem_me/c2s.dodano_ks sazeb. c2s.jkpov c2s.jkpov c2s.typ c2s.typ c2s.skp c2s.skp c2s.stat+' ' c2s.stat ODOBD DOOBD MOD_SYS TITLE TR_HL1 M2_FT IDENT UMISTENI FAKTURA NAZEV M2_HFAKT NAZEV_ORG DODANO_KS SLEVA LCELKEM_KC SEK_IDENT JKPOV PUVOD FZAVOD STAV_FAKT DAT_FAKT C2_STAT1 RMSLEV1POR C2_STU A2_FT A2_HFAKT C2_STAT2 DAN_RAD M4_ORGAN STAT_DOD STAT1 CELKEM_ME M1_IDENT HLASKA POLEX EPROCX MECLEFT ACRIGHT LORFREEZE ORDER PRAVA NADPIS PIZAHL JMENO KAHODN PSOUC KATITLECOLORPOC0 RETURN _F0PRG F1PRG ADRF4_JM RF4PRG TISKPRG _F7_JM UCTF7PRG RF9PRG F9KEY _F9KEY1 _ F10_JM _F10PRG RAMECEK _RIIS _ NAZEVT _ _KLICO _ KLNAZ _SPACEBAR TR_HL2 TR_HL3 _ TR_HL4 _TR_HL5 TR_HL6 _TR_HL7 ATR_HL8 _ _TR_HL9 _ DET_JM _ _ENTER _ _ DETAIL _ _DETPRG _ PS_LINE _PS_RETURN PS_ZAZN _ F8 _ _ _ _I _ MOD_PSV Seznam faktur pro: Detail F seek &m_dbf..ident + &m_dbf..stat copy to c2q while ident = &m_dbf..ident and stat = &m_dbf..stat SumOdb Poradi Poradi mod27b3 Faktura c2q.faktura zev organizace c2q.nazev_org .dod. str(c2q.dodano_ks,10,3) Zdroj IIF(c2q.puvod='A','Archiv','Fakt.') RIIS 2.7 OBRB2 POLEX PROCX CLEFT CRIGHT FREEZE ORDER PRAVA NADPIS JMENO FHODN PSOUC TITLE TITLECOLORPOC0 _IDENT F0PRG F1PRG F4_JM F4PRG RTISKPRG F7_JM F7PRG F9PRG F9KEY F9KEY1 F10_JM F10PRG RAMECEK NAZEVT KLICO KLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 ETR_HL4 TR_HL5 TR_HL6 METR_HL7 ATR_HL8 LORTR_HL9 DET_JM ENTER DETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN IDENT KAODOBD DOOBD NAZEV KAM_DBF LORM_REC KAC2Q HELP3 MOD_PSV Konec Pohyb -Enter ,PgUp,PgDn a2_hfakt faktura a2_ft faktura m2_hfakt faktura m2_ft faktura c2_pfak+ c2_pfak znam! RIIS 2.7 ehled v ech po faktury: F mod27b3 faktury ' ' + kod + ' ' Mno iif(ks=0,space(10),str(ks,10,3)) Cena/MJ/K str( Mkurz *cenaj,12,2) Cena celk.K str( Mkurz *kcs,12,2) % DPH str( Mkurz *dan,5,2) celkem str( Mkurz *dan_rad,10,2) Cena + DPH str( Mkurz *(kcs+dan_rad),12,2) RIIS 2.7 M_DBF M_REC MOD_SYS CISLO FAKTURA PS_LINE PUVOD A2_HFAKT MKURZ A2_FT M2_HFAKT M2_FT C2_PFAK FRADEK HLASKA PS_RETURN POLEX OLORPROCX CLEFT CRIGHT FREEZE FORDER PRAVA NADPIS JMENO RSOUC PSOUC TITLE TITLECOLORPOC0 F0PRG F1PRG EF4_JM F4PRG TISKPRG MEF7_JM AF7PRG LORF9PRG F9KEY F9KEY1 F10_JM F10PRG RAMECEK NAZEVT KLICO KAKLNAZ SPACEBAR TR_HL1 KATR_HL2 LORTR_HL3 ATR_HL4 KATR_HL5 TR_HL6 TR_HL7 TR_HL8 TR_HL9 DET_JM ENTER DETAIL _DETPRG PS_ZAZN DRMOD_PSV Statistika prodeje zbo Zadejte dat.zdanit.pln Prob r dat z faktur ... Bez DPH m2_ft m2_hfakt c2_stat1 m2_ft m2_hfakt c2_stU c2_stU Prob r dat z archivu faktur ... a2_ft a2_hfakt c2_stat2 a2_ft a2_hfakt c2_stU c2_stU m2_ft m2_hfakt c2_stat1 m2_ft m2_hfakt c2_stU c2_stU Prob r dat z archivu faktur ... a2_ft a2_hfakt c2_stat2 a2_ft a2_hfakt c2_stU c2_stU c2_stat1 m4_organ m1_ident ident c2_stat2 c2_stat2 c2_stat2 V zadan m obdob nebyla nalezena faktura. soucet1 zbozi Detail Prodej zbo dle odb ratel za obdob RIIS 2.7 mod27b3 zev organizace m4_organ.nazev_org m4_organ.nazev_org Celkem [K str( celkem_kc,12,2) celkem_kc Celkem v m str(Mena_C,13,2) Mena_C Mena+' ' stat+' ' zavod zavod ODOBD DOOBD MOD_SYS TITLE TR_HL1 M2_HFAKT ZAVOD M2_FT IDENT FAKTURA NAZEV NAZEV_ORG DODANO_KS SLEVA RCELKEM_KC SEK_IDENT JKPOV PUVOD FMENA RMENA_C STAV_FAKT DAT_FAKT C2_STAT1 MSLEV1POR C2_STU A2_HFAKT A2_FT C2_STAT2 DAN_RAD M4_ORGAN M1_IDENT STAT_DOD HLASKA POLEX PROCX CLEFT ECRIGHT FREEZE ORDER MEHOR LORLEVA PRAVA NADPIS JMENO PSOUC TITLECOLORPOC0 CEBAR LORF3 F0PRG F1PRG F4_JM _F4PRG TISKPRG F7_JM DRF7PRG RF9PRG F9KEY _F9KEY1 UCTF10_JM RF10PRG RAMECEK _RIIS _ NAZEVT _KLICO KLNAZ _SPACEBAR TR_HL2 _ _TR_HL3 _ TR_HL4 _TR_HL5 TR_HL6 TR_HL7 _ TR_HL8 _TR_HL9 DET_JM _ENTER ADETAIL _ _DETPRG _ PS_LINE _PS_RETURN PS_ZAZN _ F8 MOD_PSV et za odb ratele et za odb rat. a m et za st et za st et sou tu v K Konec SOUCET VOL11 MALIAS SUMSTAT FILTERz AND colorz Celkov Celkov et - v Esc,^End Celkem za p ehled: K sum celkem_kc, dodano_ks to Q_celk, Q_dodano for &filt Celkem mno : RIIS 2.7 999,999,999,999.99 999,999,999,999.999 sum celkem_kc to Q_celk for &filt RIIS 2.7 999,999,999,999.99 SCRQ1 FILT1 FILT2 M_CEL Q_CELK MOD_SYS VETARECNO M_COL CELKEM_KC DODANO_KS Q_DODANO ZPETRECNO soubor ! Prob ... RIIS 7.5 ty za odb ratele bez DPH stat, mena ty za odb ratele a m nu bez DPH ty za odb ratele v stat, mena ty za odb ratele a m ty za st stat, rada ty za st adu v ty za st t bez DPH stat, rada ty za st adu bez DPH mod27b3 FILTERz AND SELECT stat, sum (celkem_kc) as celkem_kc, nazev_org, rada, sum (celkem_me) as celkem_me, mena FROM c2s GROUP BY &cGroup INTO DBF c_qq copy to c_sql for &filt SELECT stat, sum (celkem_kc) as celkem_kc, nazev_org, rada, sum (celkem_me) as celkem_me, mena FROM c_sql GROUP BY &cGroup INTO DBF c_qq SELECT stat, sum (celkem_kc) as celkem_kc, nazev_org, rada FROM c2s GROUP BY &cGroup INTO DBF c_qq copy to c_sql for &filt SELECT stat, sum (celkem_kc) as celkem_kc, nazev_org, rada FROM c_sql GROUP BY &cGroup INTO DBF c_qq m_cis1 x_cis1 STAT_DOD STAT_DOD p1_rada xp1_rada ratel nazev_org nazev_org Celkem K str(celkem_kc,15,2) celkem_kc Celkem v m str(celkem_me,13,2) celkem_me Mena+' ' O + z stat+' ' Za st Celkem K str(celkem_kc,15,2) celkem_kc left(cst.text,50) left(cst.text,50) p1_rada.nazev p1_rada.nazev Celk.: 999999999999.99 999999999999.99 p1_rada QALIAS VETARECNO HLASKA QRIIS QNAZEVT NAZEVT POLEX PROCX CLEFT CRIGHT FREEZE ORDER RPRAVA NADPIS JMENO FPSOUC RTITLE TITLECOLORPOC0 _FAKT STAT1 EV1POR HFAKT STAT2 F0PRG F1PRG F4_JM F4PRG TISKPRG F7_JM F7PRG F9PRG F9KEY F9KEY1 F10_JM F10PRG ERAMECEK KLICO KLNAZ MESPACEBAR ATR_HL1 LORTR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 TR_HL8 TR_HL9 DET_JM LORENTER DETAIL DETPRG KAPS_LINE ORPS_RETURN PS_ZAZN ORVOL5 VOL11 CGROUP FILT1 FILT2 _C_SQL CELKEM_KC NAZEV_ORG UCTSTAT RRADA M_CIS1 _X_CIS1 _ CST _S_RIIS HODNOTA _P1_RADA XP1_RADA _ HELP _MOD_PSV ZPETRECNO Konec - Esc colora MCOLOR Prodej zbo dle odb ratel za obdob Detail: F c2_det c2_det+ c2_det c2_detU c2_detU sumace Poradi Poradi mod27b3 Zadejte identifikaci: |........... Identifikace ident ident m1_ident.nazev m1_ident.nazev Faktura faktura faktura .dod. str(dodano_ks,10,3) dodano_ks Celkem [K str(celkem_kc,12,2) celkem_kc Celkem v m str(Mena_C,13,2) Mena_C Mena+' ' m1_ident.typ m1_ident.typ m1_ident.skp m1_ident.skp OBRB2 PS_LINE POLEX PROCX CLEFT CRIGHT FREEZE ORDER PRAVA NADPIS JMENO PSOUC TITLE RTITLECOLORPOC0 LECOLORF9 F0PRG F1PRG F4_JM F4PRG TISKPRG F7_JM F7PRG F9PRG F9KEY F9KEY1 F10_JM F10PRG RAMECEK NAZEVT KLICO KLNAZ SPACEBAR TR_HL1 TR_HL2 ETR_HL3 TR_HL4 TR_HL5 METR_HL6 ATR_HL7 LORTR_HL8 TR_HL9 DET_JM ENTER DETAIL DETPRG PS_RETURN PS_ZAZN ODOBD ORDOOBD ZAVOD KAM4_ORGAN RNAZEV_ORG W_ICO KAW_ZAVOD ORC2_DET C2_STAT2 IDENT FAKTURA MSLEV1POR C2_DETU _M1_IDENT MOD_PSV soubor ! FILTERz Prodej zbo dle odb ratel za obdob ty za polo ky pro: F ty za polo ky - v r pro: F ty za polo ky - v r pro: F AND Zadejte ...: RIIS 2.7 mod27b3 prava dat ... c2_det c2_det1 copy to c_sql for &filt c_sql c2_det1 Identifikace ident ident m1_ident.nazev m1_ident.nazev .dod. str(dodano_ks,10,3) dodano_ks Celkem [K str(celkem_kc,12,2) celkem_kc Celkem v m str(Mena_C,13,2) Mena_C Mena+' ' m1_ident.typ m1_ident.typ m1_ident.skp m1_ident.skp HLASKA POLEX PROCX CLEFT CRIGHT FREEZE ORDER PRAVA NADPIS JMENO PSOUC RTITLE OLORTITLECOLORPOC0 LECOLORF7 F0PRG F1PRG F4_JM F4PRG TISKPRG F7_JM F7PRG F9PRG F9KEY F9KEY1 F10_JM F10PRG RAMECEK NAZEVT KLICO KLNAZ SPACEBAR TR_HL1 ETR_HL2 TR_HL3 TR_HL4 METR_HL5 ATR_HL6 LORTR_HL7 TR_HL8 TR_HL9 DET_JM ENTER DETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN QQW_AL QQW_ZAZ KAVETARECNO FILT1 FILT2 KAODOBD ORDOOBD OLORNAZEV_ORG _IDENT DODANO_KS CELKEM_KC MENA_C C2_DET C2_DET1 CTC_SQL M1_IDENT Q_CENA _ HELP1 _MOD_PSV ZPETRECNO Konec - Esc text dod. listu / faktury RIIS 2.7 te mo nost aktualizovat nebo it nov text, nebo si m ete jen v echny texty prohl et. Aktualizace ehled Konec m2_ftext mod2proc JMENO_C WJMENO_C RADEK_C SLOUPEC_C WWSCR AKTTXT M2_FTEXT ZOBR_ZTXT MOD2PROC cursorz m_dat x_dat m_cis1 x_cis1 RIIS 2.7 Druh textu: @!XXX DRUH_TXFAK wDRUH_TX m2_ftext c2_txt+ c2_txt Z text dod. listu / faktury - k d = ' RIIS 2.7 C2_TXT ,b/bg,,,,w+/rb c2_txt set cursor &cCursor LZMENATXT MENO_C CALIAS CCURSOR LJEMENU LJENPROHL M_DAT X_DAT M_CIS1 X_CIS1 WDRUH_TX JMENO_C WJMENO_C MOD_C2 RADEK_C SLOUPEC_C MOD_C1 M2_FTEXT RC2_TXT RDRUH_TEXTUQRETURN KOPIETXT UNDOL FNLEVY RNPRAVY MOD_TXT Text s k dem ' ' nebyl nalezen ! te mo nost zalo it tento nov text, nebo si jej m ete zkop rovat sledn upravit z jin ho textu. Zalo it jako nov text Kopie z jin ho textu Zobrazen ech text Konec c2_txt Druh p ho textu: @!XXX DRUH_TXFAK wDRUH_TX1 c2_txt+ c2_txt m2_ftext c2_txt mod2proc QOBRAZ WDRUH_TX QRETURN C2_TXT WDRUH_TX1 JMENO_C WJMENO_C MOD_C2 RADEK_C SLOUPEC_C MOD_C1 DRUH_TEXTUALL M2_FTEXT UDRUH ZOBR_ZTXT MOD2PROC V demonstra verzi nen zapojeno. HLASKA V demonstra verzi nen zapojeno. _CISFAK HLASKA soubor ! FILTERz Prodej zbo dle odb ratel za obdob ty za odb ratele pro polo ku: F ty za odb ratele - v r pro polo ku: F ty za odb ratele - v r pro polo ku: F AND Zadejte ...: RIIS 2.7 mod27b3 prava dat ... c2_det1 copy to c_sql for &filt c_sql c2_det1 m4_organ m4_organ nazev_org ratel m4_organ.nazev_org m4_organ.nazev_org .dod. str(dodano_ks,10,3) dodano_ks Celkem [K str(celkem_kc,12,2) celkem_kc HLASKA POLEX PROCX CLEFT CRIGHT FREEZE ORDER PEC_C TEXTUPRAVA NADPIS UZAHL JMENO PSOUC RTITLE RTITLECOLORPOC0 IETXT F0PRG F1PRG F4_JM F4PRG TISKPRG F7_JM F7PRG F9PRG F9KEY F9KEY1 F10_JM F10PRG RAMECEK NAZEVT KLICO KLNAZ SPACEBAR TR_HL1 ETR_HL2 TR_HL3 TR_HL4 METR_HL5 ATR_HL6 LORTR_HL7 TR_HL8 TR_HL9 DET_JM ENTER DETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN QQW_AL QQW_ZAZ KAVETARECNO FILT1 FILT2 KAODOBD ORDOOBD OLORIDENT _DODANO_KS CELKEM_KC EM_KC C2_DET1 C_SQL Q_CENA ZAVRI_OR M4_ORGAN NAZEV_ORG HELP2 MOD_PSV ZPETRECNO Konec - Esc Statistika prodeje zbo Zadejte dat.zdanit.pln m_param Prob r dat z faktur ... m2_ft m2_hfakt c2_Stat3 m2_ft m2_hfakt c2_stU c2_stU Prob r dat z archivu faktur ... a2_ft a2_hfakt c2_Stat1 a2_ft a2_hfakt c2_stU c2_stU c2_Stat1 V zadan m obdob nebyla nalezena faktura. m4_Organ m1_Ident Ident p1_Rada xp1_Rada m_Cis1 x_Cis1 STAT_DOD pom_Stat+ STAT_DOD pom_Stat m1_Plan x1_Plan Ide_Fak Prodej zbo za obdob RIIS 2.7 Komplexn statistika v ciz mod27b3 Zadejte v robek, fakturu: |...........|........... Soucet3 robek Ident Ident zev zbo Nazev Nazev Faktura Faktura Faktura Mena+' ' Celkem v m str(Celkem_Me,13,2) Celkem_Me Celkem [K str(Celkem_Kc,12,2) Celkem_Kc Ext.ident. Ident_Odb Ident_Odb JKPOV Sek_Ident Sek_Ident Zavod Zavod Rada_1 Rada_1 Stat+' ' zev odb. Nazev_Org Nazev_Org zev 1.m. Nazev_Ra1 Nazev_Ra1 Nazev_Rad Nazev_Rad zev st Nazev_Sta Nazev_Sta Celk. hmot. str(Celkem_Hm,11,3) Celkem_Hm K str(iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm) M na/kg str(iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm) POM_FIRMA POM_JEHMOTODOBD DOOBD MOD_SYS M_PARAM FIRMA POLE2 HMOTMESS M2_FT IDENT FAKTURA RADA_1 NAZEV_RA1 NAZEV_RAD M2_HFAKT SLEVA CELKEM_ME RCELKEM_KC ZAVOD ICO_ZAV UNAZEV_ORG RNAZEV_STA NAZEV UIDENT_ODB SEK_IDENT CELKEM_HM PUVOD STAV_FAKT DAT_FAKT C2_STAT3 MSLEV1POR C2_STU A2_FT A2_HFAKT C2_STAT1 HLASKA M4_ORGAN M1_IDENT P1_RADA XP1_RADA M_CIS1 X_CIS1 EPOM_STAT S_RIIS HODNOTA EM1_PLAN AX1_PLAN ORALL STAT_DOD VAHA_MJ IDE_FAK POLEX PROCX CLEFT CRIGHT FREEZE KAORDER KALEVA ORPRAVA NADPIS LORZAHL JMENO PSOUC _TITLE TITLECOLORPOC0 RI_OR ORGAN EV_ORG F0PRG F1ON F1PRG F4_JM _F4PRG _ TISKPRG _F7_JM F7PRG F9PRG _ F9KEY _F9KEY1 F10_JM _F10PRG ARAMECEK _RIIS _ NAZEVT _KLICO KLNAZ _SPACEBAR TR_HL1 _TR_HL2 TR_HL3 _TR_HL4 _ TR_HL5 _ _TR_HL6 _ TR_HL7 _TR_HL8 _ TR_HL9 _ _DET_JM _ ENTER _ _DETAIL _ DETPRG _ _PS_LINE _ PS_RETURN PS_ZAZN MOD_PSV ratel / V robek / M ratel / M ratel / ada / M ratel / 1.m. ady / M ada / V robek / M ada / M 1.m. ady / M robek / M t / V robek / M t / M ada / M t / 1.m. ady / M SKP / V robek / M SKP / M SKP / ada / M SKP / 1.m. ady / M Konec ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... POM_VOLBA POM_OBR SOUCORG NAZEVT SOUCRAD SOUCVYR SOUCSTA SOUCSKP colorz FILTERz AND copy to c_Pomoc for &pom_Filt c_Pomoc c2_Stat3 Ident, Mena ESPOF RIISF robek / M Ident mod27b3 Zadejte v robek: |........... SumaSouc with 1, nazevt, riis, title, 'Ident', .t., .f., .f., .f., .f., .f. Zob_Sumu with riis robek Ident Ident zev v robku Nazev Nazev Mena+' ' Celkem v m str(Celkem_Me,13,2) Celkem_Me Celkem [K str(Celkem_Kc,13,2) Celkem_Kc ESPOF RIISF Ext.ident. Ident_Odb Ident_Odb JKPOV Sek_Ident Sek_Ident Celk. hmot. str(Celkem_Hm,11,3) Celkem_Hm K str(iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm) M na/kg str(iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm) POM_NAZT POM_RIIS TPOM_OBR MMCOLOR POM_ALI POM_ORD POM_VETA POM_F1 POM_F2 POM_FILT POM_DBF DEJ_SUMDBFC_POMOC POLEX PROCX CLEFT CRIGHT FREEZE ORDER EM_KC PRAVA NADPIS UZAHL JMENO RHODN PSOUC TITLE UTITLECOLORPOC0 KEM_HM V_FAKT _FAKT STAT3 EV1POR F0PRG F1PRG F4_JM F4PRG TISKPRG F7_JM F7PRG F9PRG F9KEY EF9KEY1 F10_JM F10PRG ERAMECEK ARIIS ORNAZEVT KLICO KLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 TR_HL8 KATR_HL9 DET_JM ENTER KADETAIL ORDETPRG PS_LINE ORPS_RETURN PS_ZAZN ID_ORG POM_JEHMOTF5 MOD_PSV OTC_QQ DEJ_STAV C2_STAT3 colorz FILTERz AND copy to c_Pomoc for &pom_Filt c_Pomoc c2_Stat3 ratel / V robek / M Nazev_Org, ICO, Zavod, Ident, Mena Nazev_Org ESPOF RIISF SumaSouc with 2, nazevt, riis, title, 'Nazev_Org, Ident', .t., .t., .f., .f., .f., .f. ratel / M Nazev_Org, ICO, Zavod, Mena SumaSouc with 2, nazevt, riis, title, 'Nazev_Org', .f., .t., .f., .f., .f., .f. ratel / ada / M Nazev_Org, ICO, Zavod, Rada, Mena Nazev_Org SumaSouc with 2, nazevt, riis, title, 'Nazev_Org, Rada', .f., .t., .f., .f., .t., .f. ratel / 1.m. ady / M Nazev_Org, ICO, Zavod, Rada_1, Mena Nazev_Org SumaSouc with 2, nazevt, riis, title, 'Nazev_Org, Rada_1', .f., .t., .f., .f., .f., .t. mod27b3 Zadejte odb ratele: |.................................. Zob_Sumu with riis zev odb. Nazev_Org Nazev_Org robek Ident Ident Rada_1 Rada_1 Mena+' ' Celkem v m str(Celkem_Me,13,2) Celkem_Me Celkem [K str(Celkem_Kc,13,2) Celkem_Kc Stat+' ' Zavod Zavod zev v robku Nazev Nazev ESPOF RIISF Ext.ident. Ident_Odb Ident_Odb JKPOV Sek_Ident Sek_Ident Celk. hmot. str(Celkem_Hm,11,3) Celkem_Hm K str(iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm) M na/kg str(iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm) Nazev_Rad Nazev_Rad zev 1.m. Nazev_Ra1 Nazev_Ra1 Celk. hmot. str(Celkem_Hm,11,3) Celkem_Hm K str(iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm) M na/kg str(iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm) POM_NAZT POM_RIIS TPOM_CO POM_OBR MMCOLOR POM_ALI POM_ORD POM_VETA POM_F1 POM_F2 POM_FILT POM_DBF BFPOM_GROU POLEX PROCX CLEFT CRIGHT FREEZE ORDER EM_KC PRAVA NADPIS UZAHL JMENO RHODN PSOUC TITLE UTITLECOLORPOC0 KEM_HM V_FAKT _FAKT STAT3 EV1POR F0PRG F1PRG F4_JM F4PRG TISKPRG F7_JM F7PRG F9PRG F9KEY EF9KEY1 F10_JM F10PRG ERAMECEK ARIIS ORNAZEVT KLICO KLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 TR_HL8 KATR_HL9 DET_JM ENTER KADETAIL ORDETPRG PS_LINE ORPS_RETURN PS_ZAZN POM_TITL ID_ORG TC_POMOC _DEJ_STAV DEJ_SUMDBFPOM_JEHMOTF5 MOD_PSV OTC_QQ colorz FILTERz AND copy to c_Pomoc for &pom_Filt c_Pomoc c2_Stat3 ada / V robek / M Rada, Ident, Mena ESPOF RIISF SumaSouc with 5, nazevt, riis, title, 'Rada, Ident', .t., .f., .f., .f., .t., .f. Tisk_Volba with 'a' ada / M Rada, Mena SumaSouc with 5, nazevt, riis, title, 'Rada', .f., .f., .f., .f., .t., .f. 1.m. ady / M Rada_1, Mena Rada_1 SumaSouc with 6, nazevt, riis, title, 'Rada_1', .f., .f., .f., .f., .f., .t. mod27b3 Zadejte 1.m. Zadejte Zob_Sumu with riis Rada_1 Rada_1 robek Ident Ident zev v robku Nazev Nazev Mena+' ' Celkem v m str(Celkem_Me,13,2) Celkem_Me Celkem [K str(Celkem_Kc,12,2) Celkem_Kc zev 1.m. Nazev_Ra1 Nazev_Ra1 Nazev_Rad Nazev_Rad ESPOF RIISF Ext.ident. Ident_Odb Ident_Odb JKPOV Sek_Ident Sek_Ident Celk. hmot. str(Celkem_Hm,11,3) Celkem_Hm K str(iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm) M na/kg str(iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm) POM_NAZT POM_RIIS TPOM_CO POM_OBR MMCOLOR POM_ALI POM_ORD POM_VETA POM_F1 POM_F2 POM_FILT POM_DBF BFPOM_GROU POLEX PROCX CLEFT CRIGHT FREEZE ORDER EM_KC PRAVA NADPIS UZAHL JMENO RHODN PSOUC TITLE UTITLECOLORPOC0 KEM_HM V_FAKT _FAKT STAT3 EV1POR F0PRG F1PRG F4_JM F4PRG TISKPRG F7_JM F7PRG F9PRG F9KEY EF9KEY1 F10_JM F10PRG ERAMECEK ARIIS ORNAZEVT KLICO KLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 TR_HL8 KATR_HL9 DET_JM ENTER KADETAIL ORDETPRG PS_LINE ORPS_RETURN PS_ZAZN POM_TITL ID_ORG TC_POMOC _DEJ_STAV DEJ_SUMDBFPOM_JEHMOTF5 MOD_PSV OTC_QQ colorz FILTERz AND copy to c_Pomoc for &pom_Filt c_Pomoc c2_Stat3 t / V robek / M Stat, Ident, Mena ESPOF RIISF SumaSouc with 3, nazevt, riis, title, 'Stat, Ident', .t., .f., .t., .f., .f., .f. Tisk_Volba with 'b' t / M Stat, Mena SumaSouc with 3, nazevt, riis, title, 'Stat', .f., .f., .t., .f., .f., .f. ada / M Stat, Rada, Mena , Rada as Klic, Nazev_Rad as Nazev_Kl SumaSouc with 3, nazevt, riis, title, 'Stat, Rada', .f., .f., .t., .f., .t., .f. Tisk_Volba with 'c' t / 1.m. ady / M Stat, Rada_1, Mena , Rada_1 as Klic, Nazev_Ra1 as Nazev_Kl SumaSouc with 3, nazevt, riis, title, 'Stat, Rada_1', .f., .f., .t., .f., .f., .t. Tisk_Volba with 'c' mod27b3 Zadejte st Zob_Sumu with riis Stat+' ' robek Ident Ident Rada_1 Rada_1 Mena+' ' Celkem v m str(Celkem_Me,13,2) Celkem_Me Celkem [K str(Celkem_Kc,13,2) Celkem_Kc zev st Nazev_Sta Nazev_Sta zev v robku Nazev Nazev ESPOF RIISF Ext.ident. Ident_Odb Ident_Odb JKPOV Sek_Ident Sek_Ident Celk. hmot. str(Celkem_Hm,11,3) Celkem_Hm K str(iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm) M na/kg str(iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm) Nazev_Rad Nazev_Rad zev 1.m. Nazev_Ra1 Nazev_Ra1 Celk. hmot. str(Celkem_Hm,11,3) Celkem_Hm K str(iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm) M na/kg str(iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm) POM_NAZT POM_RIIS TPOM_CO POM_OBR MMCOLOR POM_ALI POM_ORD POM_VETA POM_F1 POM_F2 POM_FILT POM_DBF BFPOM_GROU POM_KLIC POLEX PROCX CLEFT CRIGHT FREEZE ORDER EM_KC PRAVA UNADPIS RJMENO PSOUC UTITLE OLORTITLECOLORPOC0 KEM_HM V_FAKT _FAKT STAT3 EV1POR F0PRG F1PRG F4_JM F4PRG TISKPRG F7_JM F7PRG F9PRG EF9KEY F9KEY1 F10_JM EF10PRG ARAMECEK ORRIIS NAZEVT KLICO KLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 KATR_HL8 TR_HL9 DET_JM KAENTER ORDETAIL DETPRG ORPS_LINE PS_RETURN PS_ZAZN POM_TITL TID_ORG _C_POMOC DEJ_STAV FDEJ_SUMDBFPOM_JEHMOTF5 OTMOD_PSV OTC_QQ colorz FILTERz AND copy to c_Pomoc for &pom_Filt c_Pomoc c2_Stat3 SKP / V robek / M SKP, Ident, Mena ESPOF RIISF SumaSouc with 4, nazevt, riis, title, 'SKP, Ident', .t., .f., .f., .t., .f., .f. Tisk_Volba with 'd' SKP / M SKP, Mena SumaSouc with 4, nazevt, riis, title, 'SKP', .f., .f., .f., .t., .f., .f. SKP / ada / M SKP, Rada, Mena , Rada as Klic, Nazev_Rad as Nazev_Kl SumaSouc with 4, nazevt, riis, title, 'SKP, Rada', .f., .f., .f., .t., .t., .f. Tisk_Volba with 'e' SKP / 1.m. ady / M SKP, Rada_1, Mena , Rada_1 as Klic, Nazev_Ra1 as Nazev_Kl SumaSouc with 4, nazevt, riis, title, 'SKP, Rada_1', .f., .f., .f., .t., .f., .t. Tisk_Volba with 'e' mod27b3 Zadejte SKP: |................... Zob_Sumu with riis robek Ident Ident Rada_1 Rada_1 Mena+' ' Celkem v m str(Celkem_Me,13,2) Celkem_Me Celkem [K str(Celkem_Kc,13,2) Celkem_Kc zev v robku Nazev Nazev ESPOF RIISF Ext.ident. Ident_Odb Ident_Odb JKPOV Sek_Ident Sek_Ident Celk. hmot. str(Celkem_Hm,11,3) Celkem_Hm K str(iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm) M na/kg str(iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm) Nazev_Rad Nazev_Rad zev 1.m. Nazev_Ra1 Nazev_Ra1 Celk. hmot. str(Celkem_Hm,11,3) Celkem_Hm K str(iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm) M na/kg str(iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm) POM_NAZT POM_RIIS TPOM_CO POM_OBR MMCOLOR POM_ALI POM_ORD POM_VETA POM_F1 POM_F2 POM_FILT POM_DBF BFPOM_GROU POM_KLIC POLEX PROCX CLEFT CRIGHT FREEZE ORDER EM_KC PRAVA UNADPIS RJMENO PSOUC UTITLE OLORTITLECOLORPOC0 KEM_HM V_FAKT _FAKT STAT3 EV1POR F0PRG F1PRG F4_JM F4PRG TISKPRG F7_JM F7PRG F9PRG EF9KEY F9KEY1 F10_JM EF10PRG ARAMECEK ORRIIS NAZEVT KLICO KLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 KATR_HL8 TR_HL9 DET_JM KAENTER ORDETAIL DETPRG ORPS_LINE PS_RETURN PS_ZAZN POM_TITL TID_ORG _C_POMOC DEJ_STAV FDEJ_SUMDBFPOM_JEHMOTF5 OTMOD_PSV OTC_QQ SELECT Ident, Faktura, Rada_1, Nazev_Ra1, Rada, Nazev_Rad, Mena, sum (Celkem_Me) as Celkem_Me, sum (Celkem_Kc) as Celkem_Kc, ICO, Zavod, ICO_Zav, Nazev_Org, Stat, Nazev_Sta, Nazev, SKP, Typ, Ident_Odb, Sek_Ident, sum (Celkem_Hm) as Celkem_Hm &pom_Klic FROM &pom_Dbf GROUP BY &pom_Grou ORDER BY &pom_Grou INTO DBF &pom_Dbf2 index on &pom_Tag tag Klic POM_DBF POM_GROU TPOM_DBF2 POM_KLIC POM_TAG colorz FILTERz AND copy to c_Pomoc for &pom_Filt c_Pomoc - sou ty za v robek Zadejte v robek: |........... - sou ty za odb ratele, v robek Zadejte odb ratele: |.................................. - sou ty za adu, v robek Zadejte - sou ty za st robek Zadejte st - sou ty za SKP, v robek Zadejte SKP: |................... c_qq2 ESPOF mod27b3 zev odb. Nazev_Org Nazev_Org Stat+' ' robek Ident Ident zev v robku Nazev Nazev Celkem [K str(Celkem_Kc,13,2) Celkem_Kc Zavod Zavod Nazev_Rad Nazev_Rad zev st Nazev_Sta Nazev_Sta ESPOF RIISF Ext.ident. Ident_Odb Ident_Odb JKPOV Sek_Ident Sek_Ident Celk. hmot. str(Celkem_Hm,11,3) Celkem_Hm K str(iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm) M na/kg str(iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Me/Celkem_Hm) POM_CO POM_NAZT TPOM_RIIS POM_TITL POM_GROU POM_OBR MMCOLOR POM_ALI POM_ORD POM_VETA POM_F1 POM_F2 BFPOM_FILT POM_DBF POLEX PROCX CLEFT CRIGHT FREEZE ORDER EM_KC PRAVA UNADPIS RJMENO PSOUC UTITLE OLORTITLECOLORPOC0 KEM_HM V_FAKT _FAKT STAT3 EV1POR F0PRG F1PRG F4_JM F4PRG TISKPRG F7_JM F7PRG F9PRG EF9KEY F9KEY1 F10_JM EF10PRG ARAMECEK ORRIIS NAZEVT KLICO KLNAZ SPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 KATR_HL8 TR_HL9 DET_JM KAENTER ORDETAIL DETPRG ORPS_LINE PS_RETURN PS_ZAZN DEJ_SUMDBFC_POMOC _ID_ORG POM_JEHMOTF5 MOTMOD_PSV OTC_QQ2 OTDEJ_STAV set filter to &pom_Filt POM_ALI POM_ORD TPOM_VETA POM_FILT MMCOLOR colorz ... FILTERz AND copy to c_Pomoc for &pom_Filt c_Pomoc ratele ESPOF RIISF adu, v robek robek Zadejte v robek: |........... Zadejte odb ratele: |.................................. Zadejte st Zadejte SKP: |................... Zadejte Zadejte 1.m. - sou ty za c_qq2 mod27b3 Zob_Sumu with riis zev odb. Nazev_Org Nazev_Org Stat+' ' Rada_1 Rada_1 robek Ident Ident zev v robku Nazev Nazev Celkem [K str(Celkem_Kc,13,2) Celkem_Kc Zavod Zavod zev st Nazev_Sta Nazev_Sta Nazev_Rad Nazev_Rad zev 1.m. Nazev_Ra1 Nazev_Ra1 ESPOF RIISF Ext.ident. Ident_Odb Ident_Odb JKPOV Sek_Ident Sek_Ident Celk. hmot. str(Celkem_Hm,11,3) Celkem_Hm K str(iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm),11,2) iif(Celkem_Hm=0,0,Celkem_Kc/Celkem_Hm) POM_CO POM_NAZT TPOM_RIIS POM_TITL POM_GROU POM_VYR POM_ORG POM_STA POM_SKP POM_RAD POM_RA1 POM_OBR FMMCOLOR POM_ALI POM_ORD POM_VETA POM_F1 POM_F2 POM_FILT PRIVA POM_DBF RPOLEX PROCX UCLEFT CRIGHT RFREEZE ORDER ULEVA OLORPRAVA OLORNADPIS JMENO PSOUC TITLE TITLECOLORPOC0 F0PRG EF1ON F1PRG F4_JM EF4PRG ATISKPRG ORF7_JM F7PRG F9PRG F9KEY F9KEY1 F10_JM F10PRG RAMECEK NAZEVT KLICO KLNAZ KASPACEBAR TR_HL1 TR_HL2 KATR_HL3 ORTR_HL4 TR_HL5 ORTR_HL6 TR_HL7 TR_HL8 TR_HL9 DBFDET_JM _ENTER DETAIL MOTDETPRG FPS_LINE OTPS_RETURN PS_ZAZN OTPOM_T TID_ORG POM_JEHMOTDEJ_SUMDBFC_POMOC MOD_PSV OTC_QQ2 DEJ_STAV colorz FILTERz AND sum all round(Celkem_Kc,2), round(Celkem_Hm,3) to pom_SumKc, pom_SumHm for &pom_Filt double double et - v Esc,^End Esc,^End Celkem K Celk. hmot. 999,999,999,999.99 999,999,999,999.999 POM_RIIS POM_OBR TMMCOLOR POM_ALI POM_ORD POM_VETA POM_F1 POM_F2 POM_FILT POM_SUMKC POM_SUMHM MOD_SYS FCELKEM_KC CELKEM_HM POM_JEHMOTMOD_WIN SUMHM DEJ_STAV filterz colorz Tisk: Na tisk rnu Na obrazovku Mod_Lib Mod_Lib Prob tisk ... POM_CO POM_VOLBA POM_SOUBORPOM_OBR POM_ALI POM_ORD POM_VETA POM_FILT MMCOLOR P_SETUP P_RESET P_6LPI FP_8LPI P_10CPI P_12CPI OTP_16CPI P_20CPI P_BOLDON P_BOLDOFF P_ULINEON P_ULINEOFFP_ITALON RP_ITALOFF P_SUPERON P_SUPEROFFP_SUBON UP_SUBOFF P_DBST_ON P_DBST_OFFP_LETRQUALP_DRAFT P_COMPRESSP_COMP_OFFP_WIDT_ON P_WIDT_OFFP_HEIG_ON P_HEIG_OFFP_NEWPAGE P_KODY MOD_LIB W_TISK NASTAV_PRNMESS DEJ_STAV RIIS 2.7 Nestandardn archivace faktur a dodac ch list ehledu ozna te mezern kem (nebo CTRL-O) z znamy, kter chcete odeslat p es F10 do archivu. Prob hne nestandardn archivace vystaven ch faktur a dodac ch list NEJSOU KONTROLOV VAZNOSTI !! Archivovan data budou vymaz na ze z kladn ch soubor Pokra ovat ? (A/N): A2_HFAKC.DBF2 m2_hfakt faktura m2_ft faktura mod27f3 Detail Archivace ArchFak Zadejte slo faktury: mod27b3 ehled vystaven ch faktur a DL k archivaci RIIS 2.7 Faktura HLA_FAKT.faktura HLA_FAKT.faktura HLA_FAKT.druh_dokl + ' ' HLA_FAKT.druh_dokl Objedn HLA_FAKT.objednavka HLA_FAKT.objednavka zev z subs(HLA_FAKT.nazev_org,1,25) HLA_FAKT.nazev_org Objed.z HLA_FAKT.obj_zak HLA_FAKT.obj_zak Fakturov str(HLA_FAKT.cena,12,2) HLA_FAKT.cena Cena-obchodn str(HLA_FAKT.cena-HLA_FAKT.OBALY-HLA_FAKT.dan_fakt, 13,2) HLA_FAKT.cena-HLA_FAKT.OBALY-HLA_FAKT.dan_fakt -celk. str(HLA_FAKT.dan_fakt,9,2) HLA_FAKT.dan_fakt Obaly str(HLA_FAKT.obaly,9,2) HLA_FAKT.obaly Zaokr. str(HLA_FAKT.zaokrouhl,6,2) HLA_FAKT.zaokrouhl HLA_FAKT.dicp HLA_FAKT.dicp Dat.vyst. tran(HLA_FAKT.dat_odesl,'@E') + ' ' (HLA_FAKT.dat_odesl ) Dat.spl. tran(HLA_FAKT.dat_splat,'@E') (HLA_FAKT.dat_splat ) Dat.zdan.pln space(3) + tran(HLA_FAKT.dat_fakt,'@E') + space(4) (HLA_FAKT.dat_fakt ) HLA_FAKT.ucet HLA_FAKT.ucet HLA_FAKT.ico HLA_FAKT.ico HLA_FAKT.zavod HLA_FAKT.zavod HLA_FAKT.mesto HLA_FAKT.mesto HLA_FAKT.psc HLA_FAKT.psc HLA_FAKT.stat HLA_FAKT.stat slo Dod.L. HLA_FAKT.dod_prikaz HLA_FAKT.dod_prikaz ' ' + HLA_FAKT.zem_urceni+' ' HLA_FAKT.zem_urceni Druh dod HLA_FAKT.druh_dod HLA_FAKT.druh_dod K.symbol HLA_FAKT.konst_symb HLA_FAKT.konst_symb Sklad HLA_FAKT.vydal_skl+' ' HLA_FAKT.vydal_skl izuje HLA_FAKT.vyrizuje HLA_FAKT.vyrizuje str (HLA_FAKT.kurz, 10, 2) HLA_FAKT.kurz NETTO/Kg str (HLA_FAKT.hmot_netto,9, 2) HLA_FAKT.hmot_netto BRUTTO/Kg str (HLA_FAKT.hmot_brt,9, 2) HLA_FAKT.hmot_brt Objem HLA_FAKT.objem HLA_FAKT.objem v.text ' ' +HLA_FAKT.druh_txfak + ' ' HLA_FAKT.druh_txfak Jaz.tisku ' ' + HLA_FAKT.jaz_tisku + ' ' HLA_FAKT.jaz_tisku HLA_FAKT.mena+' ' HLA_FAKT.mena HLA_FAKT.stav_fakt + ' ' HLA_FAKT.stav_fakt HLA_FAKT.pozn HLA_FAKT.pozn PUSTIT BORPOKRAC ZVLCIZFAK M2_HFAKT FAKTURA HLA_FAKT M2_FT FORM_FAKT POLEX PROCX FRTOP CLEFT OTCRIGHT FREEZE ORDER LDOFF INEON NEOFFPRAVA RNADPIS JMENO ROFFHODN USOUC PSOUC TITLE _OFFTITLECOLORPOC0 OMPRESSF1 OMP_OFFF2 IDT_ON IDT_OFFF4 EIG_ON EIG_OFFF7 EWPAGE F0PRG V_PRNF1PRG F4_JM F4PRG TISKPRG F7_JM F7PRG F9PRG F9KEY F9KEY1 F10_JM F10PRG ERAMECEK NAZEVT EKLICO AKLNAZ ORSPACEBAR TR_HL1 TR_HL2 TR_HL3 TR_HL4 TR_HL5 TR_HL6 TR_HL7 TR_HL8 TR_HL9 DET_JM ENTER KADETAIL DETPRG PS_LINE KAPS_RETURN PS_ZAZN INTOBJ W_AKT MOD_PSV c_oznac Nebyly vybr ny (vysv ceny) znamy Opravdu archivovat vybran znamy? (a/n) archivace faktur ... m2_pfakt objednavka a2_hfakt faktura a2_pfakt objednavka a2_ft faktura A2_hfakc faktura m2_hfakc faktura c_oznac, a2_hfakt a2_hfakC c_oznac.dbf A2_HFAKC.DBF2 HLASKA OBRP1 BORMESS _OBJED ZAVRIA2 ZAVRIM2 M2_PFAKT OBJEDNAVKAPOR_FAKT A2_HFAKT FAKTURA OTA2_PFAKT A2_FT AVKAZVLCIZFAK A2_HFAKC M2_HFAKC HLA_FAKT FZUCT RPREVFAKARCC_OZNAC NTRGPZAZ UMM_ZPET PS_RETURN POR_FAKT _OBJED _VETA BORPRAC FAKTURA A2_PFAKT FORM_FAKT A2_FT MOD27BD HLASKA DOD_LIST MOD27BF FAKTURY FAKTURY1 FAKTVSE MOD27S STATIST1 DETAIL HELP3 PORADI STATIST2 SOUCET1 SOUCET SUMSTAT ZBOZI SUMACE HELP1 MOD27Z AKTTXT KOPIETXT MOD27Q VYTAZFAKT VETARECNO ZPETRECNO SUMODB HELP2 STATIST3 SOUCET3 SOUCVYR SOUCORG SOUCRAD SOUCSTA SOUCSKP DEJ_SUMDBF SUMAVYR DEJ_STAV SUMASOUC ZOB_SUMU TISK_VOLBA ARCHFAKNES ARCHFAK PREVFAKARC P:\IN\SK\O\02\ MOD27B3.FXP P:\IN\SK\O\02\MOD27B3.PRG