Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1999-04-15 | 76KB | 2,011 lines

mod27b MOD27B w_Dlradyf mod27f3 Detail dod_list Zadejte slo dod.listu: mod27b 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 Objedn HLA_FAKT.objednavka HLA_FAKT.objednavka '/' +HLA_FAKT.rok_obj HLA_FAKT.rok_obj zev z ka subs(HLA_FAKT.nazev_org,1,22) HLA_FAKT.nazev_org Objed.z ka HLA_FAKT.obj_zak HLA_FAKT.obj_zak Da HLA_FAKT.dicp HLA_FAKT.dicp Dat.odesl ' '+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 INTOBJ W_AKT ENTER DETAIL DET_JM _ F10_JM _ _F10PRG _ F9KEY _ _RAMECEK _ FREEZE _ _ZAHL _ _ JMENO _ _HODN _ _ PROCX _ _NAZEVT _LM2_HFAKT _FAKTURA _ HLA_FAKT ?M2_FT ? ? FORM_FAKT A2_HFAKT A2_FT ?RIIS PS_RETURN PS_ZAZN _ NADPIS _ _LEVA _ _ PRAVA _ _HOR _ _ _ DOL _ _ _I _ _ _ _ MOD_PSV c2_pdl+ c2_pdl znam! RIIS 2.7 ehled po dodac ho listu F mod27b dodac ho listu Mno iif(ks=0,space(10),str(ks,10,3)) ' ' + kod + ' ' RIIS 2.7 MOD_SYS _FAKT FAKTURA PS_LINE FORM_FAKT C2_PDL SKUPINA RADEK HLASKA HLA_FAKT PS_RETURN POLEX PROCX _ CLEFT _ _CRIGHT _ FREEZE _ _ORDER _ HOR _ _DOL _ _ LEVA _ _PRAVA _ _ NADPIS _ _ZAHL _LJMENO _HODN _ SOUC ?PSOUC ? ? TITLE TITLECOLORPOC0 RETURN _ _F4 _ _ F6 _ _F7 _ _ _ F9 _ _ _F10 _ _ _ F0PRG _F1ON _R_eF1PRG c_e_F4_JM _h_:F4PRG _ ?TISKPRG ? F7_JM ? ?F7PRG ? ? F9PRG ? ?F9KEY ? ? F9KEY1 _ _F10_JM _ F10PRG _ _RAMECEK _ 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_ZAZN _ MOD_PSV w_Dlradyf mod27f3 Detail faktury Zadejte slo faktury: mod27b 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 Objedn HLA_FAKT.objednavka HLA_FAKT.objednavka '/'+HLA_FAKT.rok_obj HLA_FAKT.rok_obj zev z subs(HLA_FAKT.nazev_org,1,22) HLA_FAKT.nazev_org . objedn vky z HLA_FAKT.obj_zak+ ' ' HLA_FAKT.obj_zak Fakturov str(HLA_FAKT.cena,13,2) HLA_FAKT.cena Cena-obchodn str(HLA_FAKT.cena-HLA_FAKT.OBALY-HLA_FAKT.dan_fakt, 13,2) HLA_FAKT.cena -celk. str(HLA_FAKT.dan_fakt,9,2) HLA_FAKT.dan_fakt Obaly str(HLA_FAKT.obaly,9,2) HLA_FAKT.obaly Zaokrouhlen space (6) + str(HLA_FAKT.zaokrouhl,6,2) HLA_FAKT.zaokrouhl Da HLA_FAKT.dicp HLA_FAKT.dicp Dat.vyst. tran(HLA_FAKT.dat_odesl,'@E') + ' ' (HLA_FAKT.dat_odesl ) Dat.splat. 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 Vyst.v m ' ' + 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 DETAIL DET_JM _ F10_JM _ _F10PRG _ F9KEY _ _RAMECEK _ FREEZE _ _ZAHL _ _ JMENO _ _HODN _ _ PROCX _ _M2_HFAKT LFAKTURA _HLA_FAKT NAZEVT ?M2_FT ? ? FORM_FAKT A2_HFAKT RA2_FT ?RIIS PS_RETURN PS_ZAZN _ NADPIS _ _LEVA _ _ PRAVA _ _HOR _ _ _ DOL _ _ _I _ _ _ MOD_PSV m1_ident ident c2_pdl c2_pdl znam! RIIS 2.7 ehled po faktury F , ceny jsou v mod27b Zadejte po c2_pdl.por c2_pdl.por ' ' + c2_pdl.kod + ' ' c2_pdl.kod Ident 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/1ks str(c2_pdl.cenaj,12,2) c2_pdl.cenaj DPH ' '+str(c2_pdl.dan,12,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 faktury c2_pdl.text c2_pdl.text RIIS 2.7 MOD_SYS _FAKT FAKTURA MKURZ MMENA PS_LINE M1_IDENT IDENT C2_PDL NAZEV IDENT_ODB _ _CENAJ _ DAN _ _CENAC _ TEXT _ _OBJ_ZAK _ STRED_FAK KLIC_FAK _ _FORM_FAKT QWPOR QWPOR1 _FAKT DAN_RAD PORADI RHLASKA ?HLA_FAKT PS_RETURN POLEX _ PROCX _ _RTOP _ _ RBOT _ _CLEFT _ _ CRIGHT _ _FREEZE _ ORDER _R_eDOL c_e_LEVA _h_:PRAVA _ ?NADPIS ? ZAHL ? ?JMENO ? ? HODN ? ?SOUC ? ? PSOUC _ _TITLE _ TITLECOLORPOC0 _ _ _F1 _ F2 _ _F3 _ _ F4 CEBAR _ F7 _ _F9 _ F10 _ _F0PRG _ F1ON _ _F1PRG _ F4_JM _ _F4PRG _ TISKPRG _F7_JM _ _ F7PRG _ _F9PRG _ F9KEY F9KEY1 _ F10_JM _F10PRG RAMECEK _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_ZAZN _MOD_PSV m_param Statistick rozbor prodeje zbo RIIS 2.2 Podle expedovan bez DPH Podle expedovan DPH r zbo dle firem r zbo dle firem s v 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 mod27b3 mod27b3 mod27b3 mod27b3 M_AOBRQ M_PARAM VICESTAT POLE2 MSLEV1POR ODOBD DOOBD M1AOBRQ STATIST VYBER ODBERZBOZ STATIST2 MOD27B3 STATIST1 STATIST3 Statistika prodeje zbo Zadejte dat.zdanit.pln Prob r dat z faktur ... Bez DPH m2_ft m2_hfakt c2_stat1 Prob r dat z archivu faktur ... a2_ft a2_hfakt c2_stat2 m2_ft m2_hfakt c2_stat1 Prob r dat z archivu faktur ... a2_ft a2_hfakt c2_stat2 c2_stat1 c2_stat2 m1_ident ident V zadan m obdob nebyla nalezena faktura. m1_ident, Zadejte identifikaci: Detail Detail Statistika expedice zbo za obdob RIIS 2.9 mod27b Identifikace c2s.ident c2s.ident zev zbo c2s->nazev c2s->nazev c2s->umisteni+' ' c2s->umisteni Mno str(c2s.dodano_ks,13,3) c2s.dodano_ks c2s.mj c2s.mj Celkem [K str(c2s.celkem_kc,12,2) c2s.celkem_kc m.cena str(c2s.celkem_kc / c2s.dodano_ks,9,2) c2s.celkem_kc / c2s.dodano_ks sazeb. c2s->jkpov c2s->jkpov ODOBD DOOBD MOD_SYS POLEX PROCX CLEFT CRIGHT FREEZE ORDER RZBOZ PRAVA NADPIS JMENO _ _HODN _ SOUC _ _PSOUC _ TITLE _ _TITLECOLORPOC0 C_FAK _ _F2 M_FAKT _FAKT RF0PRG ?F1ON F1PRG F4_JM _ F4PRG _ _TISKPRG _ F7_JM _ _F7PRG _ _ F9PRG _ _F9KEY _ F9KEY1 _F10_JM R_eF10PRG _e_RAMECEK _:RIIS _ ?NAZEVT ? KLICO ? ?KLNAZ ? ? SPACEBAR ?TR_HL1 ? TR_HL2 _ _TR_HL3 _ TR_HL4 LORTR_HL5 _ TR_HL6 _ _TR_HL7 _ TR_HL8 _ _TR_HL9 _ DET_JM _ENTER _ DETAIL _ _DETPRG _ PS_LINE _PS_RETURN PS_ZAZN _VOL5 _ M2_FT _ _IDENT _ UMISTENI _FAKTURA _ NAZEV _ _MJ _ M2_HFAKT NAZEV_ORG _DODANO_KS _ _ SLEVA _CELKEM_KC SEK_IDENT JKPOV PUVOD _ _DAN _ STAV_FAKT DAT_FAKT _ _C2_STAT1 A2_FT _ _A2_HFAKT C2_STAT2 DAN_RAD M1_IDENT _HLASKA MOD_PSV colora MCOLOR Seznam faktur pro: Detail F seek &m_dbf..ident copy to c2q while ident = &m_dbf..ident Poradi Poradi mod27b Faktura c2q.faktura zev organizace c2q.nazev_org str(c2q.dodano_ks,6,0) Zdroj IIF(c2q.puvod='A','Archiv','Fakt.') RIIS 2.2 OBRB2 POLEX PROCX CLEFT CRIGHT FREEZE ORDER PRAVA NADPIS JMENO PSOUC _ _TITLE _ TITLECOLORPOC0 _ _F1 LECOLORF2 C_FAK _ _F6 M_FAKT _FAKT F0PRG F1PRG RF4_JM ?F4PRG TISKPRG F7_JM _ F7PRG _ _F9PRG _ F9KEY _ _F9KEY1 _ F10_JM _ _F10PRG _ RAMECEK _RIIS R_eNAZEVT _e_KLICO _:KLNAZ _ ?SPACEBAR TR_HL1 ? ?TR_HL2 ? TR_HL3 ?TR_HL4 ? TR_HL5 _ _TR_HL6 _ TR_HL7 LORTR_HL8 _ TR_HL9 _ _DET_JM _ ENTER _ _DETAIL _ DETPRG _PS_LINE _ PS_RETURN PS_ZAZN _ IDENT _ODOBD DOOBD _NAZEV _ M_DBF _ _M_REC _ C2Z 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.2 ehled v ech po faktury: F mod27b faktury ' ' + kod + ' ' Mno iif(ks=0,space(10),str(ks,10,3)) Cena/1ks K str( Mkurz *cenaj,12,2) Cena/Celk.K str( Mkurz *kcs,12,2) % dan ' '+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 RADEK HLASKA _ _PS_RETURN POLEX OLORPROCX _ RTOP _ _RBOT COLORCLEFT CRIGHT FREEZE _ _ORDER PRAVA NADPIS RJMENO ?HODN PSOUC _ TITLE _ _TITLECOLORPOC0 _ _F0 _ F1 _ _F2 _ F3 R_eF6 _e_F7 _ ?F10 F0PRG ? ?F1ON ? F1PRG ?F4_JM ? F4PRG _ _TISKPRG _ F7_JM LORF7PRG _ F9PRG _ _F9KEY _ F9KEY1 _ _F10_JM _ F10PRG _RAMECEK _ 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_ZAZN MOD_PSV text dod. listu / faktury RIIS 2.3 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 OLORC2_TXT DRUH_TEXTUQRETURN RKOPIETXT UNDOL _ _NLEVY NPRAVY 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 w_Dlradyf AktDet Aktual Funkce qfunkce Zadejte slo faktury: mod27b 01000008 m2_hfakt faktura Vystavov hromadn ch doklad M2_ft faktura m_param RIIS 2.7 Faktura HLA_FAKT.faktura HLA_FAKT.faktura HLA_FAKT.hrom_dokl HLA_FAKT.hrom_dokl ' ' + HLA_FAKT.mena HLA_FAKT.mena HLA_FAKT.stav_fakt + ' ' HLA_FAKT.stav_fakt .hrom.dokl. HLA_FAKT.fakt_hromd HLA_FAKT.fakt_hromd zev z subs(HLA_FAKT.nazev_org,1,22) HLA_FAKT.nazev_org Objedn HLA_FAKT.objednavka HLA_FAKT.objednavka '/'+HLA_FAKT.rok_obj HLA_FAKT.rok_obj . objedn vky z HLA_FAKT.obj_zak+ ' ' HLA_FAKT.obj_zak Fakturov str(HLA_FAKT.cena,13,2) HLA_FAKT.cena Cena-obchodn str(HLA_FAKT.cena-HLA_FAKT.OBALY-HLA_FAKT.dan_fakt, 13,2) HLA_FAKT.cena -celk. str(HLA_FAKT.dan_fakt,9,2) HLA_FAKT.dan_fakt Obaly str(HLA_FAKT.obaly,9,2) HLA_FAKT.obaly Zaokrouhlen space (6) + str(HLA_FAKT.zaokrouhl,6,2) HLA_FAKT.zaokrouhl Da HLA_FAKT.dicp HLA_FAKT.dicp Dat.vyst. tran(HLA_FAKT.dat_odesl,'@E') + ' ' (HLA_FAKT.dat_odesl ) Dat.splat. 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 POLEX PROCX CLEFT CRIGHT FREEZE ORDER PRAVA NADPIS TEXTUJMENO USOUC PSOUC TITLE _TITLECOLORPOC0 OLORF0 H_TEXTUF2 IETXT _ _F7 F0PRG UF1PRG F4_JM RF4PRG ?TISKPRG F7_JM F7PRG _ F9PRG _ _F9KEY OLORF9KEY1 _ _F10_JM _ F10PRG _ _RAMECEK _ RIIS _NAZEVT R_eKLICO _e_KLNAZ _:SPACEBAR ?TR_HL1 TR_HL2 ? ?TR_HL3 ? TR_HL4 ?TR_HL5 ? TR_HL6 _ _TR_HL7 _ TR_HL8 LORTR_HL9 _ DET_JM _ _ENTER _ DETAIL _ _DETPRG _ PS_LINE _PS_RETURN PS_ZAZN W_DLRADY INTOBJ _W_AKT _ HROM_AKT _ W_KOEF_MENMDAT_SPL PODNIK MK_SYMB _ OLDMENA OLDKURZ OLDICO _OLDZAV OLDJAZYK _OLDKLIC _ M2_HFAKT FAKTURA HLA_FAKT M2_FT FORM_FAKT M_PARAM _ WDEL_RADY DELKA_RADYI MOD_PSV Zobrazen Vytvo hromad. dokladu hromadn ho dokladu Konec c_oznac c_oznac c_oznac.dbf c_oznac Nebyly vybr znamy faktura c_oznac, c_oznac.dbf faktura M_AOBR MM_FAKT3 M_IDX FAKTURY VYTVOR NTRGPZAZ C_OZNAC ZRUSIT HLASKA XTUFAKTURA UHLA_FAKT HROM_DOKL FAKT_HROMDFOR ECOLORPS_RETURN c2_pdl+ c2_pdl znam! RIIS 2.7 ehled po faktury F mod27b faktury ' ' + kod + ' ' Mno iif(ks=0,space(10),str(ks,10,3)) Cena/1ks K str(Mkurz *cenaj,12,2) Cena/Celk.K str(Mkurz *kcs,12,2) % dan ' '+str(Mkurz *dan,5,2)+' ' /Celkem str(Mkurz *dan_rad,10,2) Cena + DPH str(Mkurz *(kcs+dan_rad),12,2) RIIS 2.7 MOD_SYS _FAKT FAKTURA MKURZ PS_LINE FORM_FAKT C2_PDL HLASKA HLA_FAKT PS_RETURN POLEX PROCX URTOP CLEFT ROMDCRIGHT LORFREEZE ORDER _TEXTUDOL RLEVA PRAVA UNADPIS _ _ZAHL JMENO PSOUC UTITLE TITLECOLORPOC0 _ _F4 OLORF6 _ _F7 _ F9 _ _F10 _ F0PRG _F1ON R_eF1PRG _e_F4_JM _:F4PRG ?TISKPRG F7_JM ? ?F7PRG ? F9PRG ?F9KEY ? F9KEY1 _ _F10_JM _ F10PRG LORRAMECEK _ 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 MENENTER DETAIL DETPRG _ PS_ZAZN MOD_PSV c_oznac Nebyly vybr znamy c2_prot c_oznac, c2_prot c_oznac, doklady ji byly shromadn ny) ! r (faktura F byla vyti na) ! r (jin na) ! r (rozd O) ! r (rozd vod) ! RIIS 2.7 mod2proc m7_kurz m4_organ c2_prot c_oznac, c2_ft c2_ft c2_prot, c2_ft ESPOF c2_prot, c2_ft c2_ft c2_prot c2_ft c_oznac c_oznac.dbf HLASKA MOD_SYS M_ZAZ C_OZNAC C_ZAZNAM ZAZNAM HLA_FAKT OLDKLIC FAKTURA OLDMENA OLDKURZ OLDICO OLDZAV UZAVOD OLDJAZYK JAZ_TISKU C2_PROT OROBJ_ZAK OBJEDNAVKAROK_OBJ UM_AL VYSKOC HROM_DOKL STAV_FAKT FNASTAV MM_FAKT3 CIZIMENA W_UKONCI W_KOEF_MENW_MENA NASTCIZM RMOD2PROC NFAKT_HROMDFOR FORM_FAKT C2_FT _ _PORPOLE RADEK _SKUPINA PODNIK R_eNTRGPZAZ colora set color to &_color _COLOR a2_hfakt faktura faktura ada doklad : @!R F @17,46 get w_rad pict &geTT ada neexistuje, nave te cel prvn slo t ada neexistuje, nave te cel prvn slo t Doklad @!R XXXXXXXXXXXX Bylo p ady, zadejte znovu! slo dokladu mus t numerick slo dokladu mus t vypln Toto slo ji existuje, opravte ho ! Toto slo ji existuje v archivu, najd te posledn ... slo v dan v archivu a za te od n hem Va ce bylo toto slo obsazeno n m rychlej m ... ... vyberte adu znovu, pros HLA_FAKT Doklad aktualizuje n kdo jin , prov te to nebo si vyberte znovu ! set order to &_order _SCRW _ALIAS A2_HFAKT FAKTURA HLA_FAKT _ORDER MM_FAKT3 MM_FAKT4 W_RAD WDEL_RADY GETIK R_ALIAS VYSKOC _DELKA HLASKA ORMM_FAKT31 _KONEC _KONDEL U_CHYBA OLDKLIC QPOLE KLIC1 VYRIZUJE MM_JMENO STAV_FAKT DAT_ODESL DAT_FAKT DAT_SPLAT DOD_PRIKAZCENA NOBALY ROMDDAN_FAKT ZAOKROUHL HMOT_NETTOHMOT_BRT _OBJEM OBJEDNAVKAROK_OBJ HROM_DOKL VYDAL_SKL OBJ_ZAK Aktualizovat lze jen hromadn doklady ! colorz M_QOBRZ M_1ZAZ MCOLA HLA_FAKT HROM_DOKL HLASKA KLICFA FAKTURA W_KLIC W_AKT MOD_SYS CIZIMENA MOD27F3 PS_RETURN Nelze zru it, nen to hromadn doklad ! m7_faodb cis_fak m7_liodb cis_fak Nelze zru it - faktura byla ji zlikvidov Nelze zru it - faktura byla ji Faktura ji byla vyti na - nelze zru it ! Opravdu zru it doklad 'F ' ? (a/n): m7_faodb m7_liodb QQOBR KOD_UZAV KOD_PAR KLICFA HLA_FAKT STAV_FAKT HLASKA FAKTURA MOD_SYS M7_FAODB CIS_FAK M7_LIODB MAT_C_ZU STAV_FA PRIOR FORM_FAKT FAKT_HROMDHROM_DOKL WHILE PS_RETURN Statistika prodeje zbo Zadejte dat.zdanit.pln te obdob , pros Prob r dat z faktur ... m2_ft m2_hfakt SELECT m2_ft.faktura, m2_hfakt.ico, m2_hfakt.zavod, m2_hfakt.dat_odesl, m2_hfakt.dat_splat, m2_hfakt.sleva, {} as dat_zap, 000000000.00 as zap_cel, 000.00 as zad_sleva, SUM (m2_hfakt.kurz * (m2_ft.kcs + m2_ft.dan_rad) * (1 - m2_hfakt.sleva /100)) AS celkem_kc, SUM ((m2_ft.kcs + m2_ft.dan_rad) * m2_hfakt.kurz) AS Bez_slevy, m2_ft.sek_ident AS jkpov, 'O' as puvod, 000000000.00 as cisty_obr, 000000000.00 as bonus, m2_ft.dan FROM m2_ft, m2_hfakt WHERE m2_ft.faktura = m2_hfakt.faktura AND inlist (m2_hfakt.stav_fakt,"4", "5", "6") AND m2_hfakt.dat_fakt BETWEEN odobd .and. doobd AND INLIST (m2_ft.kod, 'X', 'S') AND (SIGN (m2_ft.ks) * SIGN (m2_ft.kcs) = 1 or m2_ft.ks > 0 and empty (m2_ft.kcs) ) AND &podm1 GROUP BY 1 INTO TABLE c21 SELECT m2_ft.faktura, m2_hfakt.ico, m2_hfakt.zavod, m2_hfakt.dat_odesl, m2_hfakt.dat_splat, m2_hfakt.sleva, {} as dat_zap, 000000000.00 as zap_cel, 000.00 as zad_sleva, SUM (m2_hfakt.kurz * (m2_ft.kcs + m2_ft.dan_rad) * (1 - m2_hfakt.sleva /100)) AS celkem_kc, SUM ((m2_ft.kcs + m2_ft.dan_rad) * m2_hfakt.kurz) AS Bez_slevy, m2_ft.sek_ident AS jkpov, 'O' as puvod, 000000000.00 as cisty_obr, 000000000.00 as bonus, m2_ft.dan FROM m2_ft, m2_hfakt WHERE m2_ft.faktura = m2_hfakt.faktura AND inlist (m2_hfakt.stav_fakt,"4", "5", "6") AND m2_hfakt.dat_fakt BETWEEN odobd .and. doobd AND INLIST (m2_ft.kod, 'X', 'S') AND (SIGN (m2_ft.ks) * SIGN (m2_ft.kcs) = 1 or m2_ft.ks > 0 and empty (m2_ft.kcs) ) AND not &podm1 GROUP BY 1 INTO TABLE c21 a7_faodb cis_fak FAODB, m7_faodb cis_fak FAODB, Prob r dat z archivu faktur ... a2_ft a2_hfakt a7_faodb cis_fak FAODB, m7_faodb cis_fak FAODB, m4_adr m4_organ Zadejte I vod, faktura: |...........|..|........... sum_cel DetailW nabidka Statistika expedice zbo za obdob RIIS 2.9 mod27b c22.ico c22.ico c22.zavod c22.zavod zev z m4_organ.nazev_org m4_organ.nazev_org Faktura c22.faktura c22.faktura Dat.Vyst tran(c22.dat_odesl,'@E') c22.dat_odesl Dat.Spl. tran(c22.dat_splat,'@E') c22.dat_splat Dat.Zapl tran(c22.dat_zap,'@E') c22.dat_zap Zapl.celkem str(c22.zap_cel,12,2) c22.zap_cel Splat. ' '+str((c22.dat_splat-c22.dat_odesl),3) (c22.dat_splat-c22.dat_odesl) Cena bez slevy ' '+str(c22.bez_slevy,12,2) c22.bez_slevy Cena v . slevy ' '+str(c22.celkem_kc,12,2) c22.celkem_kc % slevy z fak. ' '+ str(c22.sleva,6,2) c22.sleva % slevy zadan ' '+str(c22.zad_sleva,6,2) c22.zad_sleva Hodnota po slev ' '+str(c22.cisty_obr,12,2) c22.cisty_obr Rozd str(c22.bonus,12,2) c22.bonus str(c22.dan,5,2) c22.dan OBRAZ NAVRAT PODM1 ODOBD DOOBD HLASKA VYBER W_VYB ICO_VYBER MOD_SYS M2_FT FAKTURA M2_HFAKT ZAVOD DAT_ODESL DAT_SPLAT SLEVA DAT_ZAP MDZAP_CEL ZAD_SLEVA DAN_RAD CELKEM_KC BEZ_SLEVY SEK_IDENT JKPOV PUVOD CISTY_OBR BONUS STAV_FAKT DAT_FAKT ROMDKS ETTOA7_FAODB CIS_FAK FAODB AVKAFOR M7_FAODB A2_FT A2_HFAKT M4_ADR M4_ORGAN ?POLEX PROCX ?RTOP ? RBOT _ _CLEFT _ CRIGHT LORFREEZE _ ORDER _ _HOR _ DOL _ _LEVA _ PRAVA _NADPIS JMENO HODN _SOUC PSOUC _TITLE _ TITLECOLORPOC0 _ F0 MENF1 RETURN _F0PRG _ F1ON F1PRG F4_JM F4PRG TISKPRG F7_JM _ F7PRG F9PRG RADYF9KEY F9KEY1 F10_JM _ _F10PRG RAMECEK 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 _ _F8 _ _ _ I _MOD_PSV Faktura : % slevy zadan - Esc, Zaps - Enter 999.99 PS_LINE FAKTURA ZAD_SLEVA CISTY_OBR BEZ_SLEVY BONUS CELKEM_KC PS_RETURN Tisky: ehledu v ech faktur Faktur za jednotliv Vybran ch faktur Konec c_oznac c_oznac.dbf mod_psv KONEC VOL11 C_OZNAC NTRGPZAZ PS_RETURN MOD_PSV M_POZ Prob za organizace ... c_oznac c_oznac.dbf FILTERz AND c_souc copy to c22x1 for &filt c22x1 c_souc Zadejte I vod: |...........|.. Stat. exped. zbo - sou et za organizace v obd. F et za organizace et za organizace - v RIIS 2.9 mod27b c_souc.ico c_souc.ico c_souc.zavod c_souc.zavod zev z m4_organ.nazev_org m4_organ.nazev_org Zapl.celkem str(c_souc.zap_cel,12,2) c_souc.zap_cel Cena bez slevy ' '+str(c_souc.bez_slevy,12,2) c_souc.bez_slevy Cena v . slevy ' '+str(c_souc.celkem_kc,12,2) c_souc.celkem_kc % sl. str( (100 - c_souc.celkem_kc / c_souc.Bez_slevy * 100),6,2) (100 - c_souc.celkem_kc / c_souc.Bez_slevy * 100) Hodnota po slev ' '+str(c_souc.cisty_obr,12,2) c_souc.cisty_obr Rozd +str(c_souc.bonus,12,2) c_souc.bonus M_DBF M_REC C_OZNAC NTRGPZAZ FILT1 FILT2 PS_RETURN ZAVOD ZAP_CEL CELKEM_KC BEZ_SLEVY CISTY_OBR BONUS C_SOUC C22X1 M4_ORGAN POLEX PROCX CLEFT CRIGHT FREEZE ORDER Y_OBR PRAVA NADPIS NJMENO ROMDHODN SOUC PSOUC ETTOTITLE TITLECOLORPOC0 AVKAF0 FAODB HFAKT ORGAN F0PRG ?F1ON ? F1PRG _ _F4_JM _ F4PRG LORTISKPRG _ F7_JM _ _F7PRG _ F9PRG _ _F9KEY _ F9KEY1 _F10_JM F10PRG RAMECEK RIIS _NAZEVT KLICO _KLNAZ _ SPACEBAR RTR_HL1 _ TR_HL2 MENTR_HL3 TR_HL4 TR_HL5 _ TR_HL6 TR_HL7 TR_HL8 _TR_HL9 DET_JM _ENTER _ DETAIL DETPRG PS_LINE PS_ZAZN _ ODOBD DOOBD RADYI MOD_PSV FAKTUR z archivu RIIS 2.7 Vyta dod. list a faktur z archivu do aktu ch soubor ECHNY N VAZNOSTI SI MUS POHL DAT S IVATEL !!! Ukon Prov prac = 'c2_a&ciss' prac1 = 'c2_ap&ciss' prac2 = 'c2_q&ciss' m2_hfakt faktura m2_pfakt objednavka m2_ft faktura a2_hfakt faktura a2_pfakt objednavka a2_ft faktura RIIS 2.7 double Esc slo dokladu: Doklad nebyl nalezen. m2_hfakt Doklad F byl vyta en z archivu. MOD_SYS M2_HFAKT FAKTURA M2_PFAKT OBJEDNAVKAM2_FT A2_HFAKT A2_PFAKT A2_FT AVKASCRQ1 MOD_WIN HLASKA ZOBR_FAK TY_OBR FnastF Vybrat mod27b R faktur z archivu Faktura a2_hfakt.faktura a2_hfakt.faktura Cena (K str(a2_hfakt.cena,11,2) a2_hfakt.cena zev organizace left(a2_hfakt.nazev_org,19) a2_hfakt.nazev_org Dat.odes. tran(a2_hfakt.dat_odesl,'@E')+' ' (a2_hfakt.dat_odesl ) Dat.spl. tran(a2_hfakt.dat_splat,'@E') (a2_hfakt.dat_splat ) Sklad a2_hfakt.vydal_skl + ' ' a2_hfakt.vydal_skl ' ' + a2_hfakt.mena a2_hfakt.mena a2_hfakt.jaz_tisku+ ' ' a2_hfakt.jaz_tisku POLEX PROCX CLEFT CRIGHT FREEZE VKAORDER AVKAPRAVA NADPIS JMENO PSOUC TITLE TITLECOLORPOC0 F0PRG F1PRG F4_JM F4PRG NTISKPRG MDF7_JM F7PRG F9PRG ETTOF9KEY F9KEY1 LORF10_JM VKAF10PRG RAMECEK NAZEVT KLICO KLNAZ SPACEBAR TR_HL1 ?TR_HL2 TR_HL3 ?TR_HL4 ? TR_HL5 _ _TR_HL6 _ TR_HL7 LORTR_HL8 _ TR_HL9 _ _DET_JM _ ENTER _ _DETAIL _ DETPRG _PS_LINE PS_RETURN PS_ZAZN A2_HFAKT _HFAKT MOD_PSV FAKTURA m4_organ Zadejte I Zadejte Z Konec (A\N): Zobrazit faktury pro vybran organizace Zobrazit faktury mimo v r (ostatn mod7_lib Nespr mod7_lib Nespr mod7_lib m2_hfakt.ico m2_hfakt.ico ) .and. m2_hfakt.zavod Stop - d lku podm nky ji nelze zv Zobrazit faktury pro vybran organizace Zobrazit faktury mimo v r (ostatn M4_ORGAN OBRAZ VKANAVRAT W_ICO W_ZAVOD ZOBR_ORGANMOD7_LIB M_SCR HLASKA NW_VYB PODM1 MOD27BD DOD_LIST MOD27BF FAKTURY MOD27S )= "F< STATIST DETAIL HELP3 PORADI MOD27Z AKTTXT KOPIETXT MOD27Q QFUNKCE FAKTURY1 VYTVOR HLASKA FNASTAV AKTDET ZRUSIT ODBERZBOZ DETAILW NABIDKA SUM_CEL VYTAZFAKT ZOBR_FAK FNASTF ICO_VYBER P:\IN\SK\ MOD27B.FXP P:\IN\SK\MOD27B.PRG