Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1997-03-03 | 11KB | 307 lines

Den,dokl.,pol s731c m7_pokp m7_ucto u7_obru denik c7_obru m7_obru denik c7_obru c7_obru m7_obru denik c7_obru c7_obru cx7_obr doklad nebyl nalezen ehled ch obrat - min. obdob ehled ch obrat za obdob RIIS 7.31 ident_den ident_den Dokl. str(doklad,5) doklad cis_pol cis_pol Datum tran(datum,'@E') datum Skl. sklad sklad MD str(md,15,2) Dal str(dal,15,2) Text str(obdobi_mm,2) obdobi_mm Par.znak par_znak par_znak ned_vyroba ned_vyroba cinnost cinnost Splat. tran(splatnost,'@E') splatnost str(cis_g,5) cis_g ' '+str(rad_tup,2) rad_tup _W_SK1 POLEX _CARA _ _ _F5 _F9KEY PROCX _M7_POKP M7_UCTO _UZAV PLAT_OBDOBMESIC_POK U7_OBRU DENIK M7_OBRU C7_OBRU SKUPINA IDENT_DEN DOKLAD CIS_POL CX7_OBR HLASKA RAMECEK NAZEVT ROK_POK NADPIS PRAVA c()=HOR do hlDOL with 'KLICO etnZAHL ad neSOUC ezenJMENO eturHODN ek =MOD_PSV m_cis1 x_cis1 m_dat x_dat m4_organ m7_obrp denik mod79d M_CIS1 _X_CIS1 M_DAT _X_DAT M4_ORGAN M7_OBRP _DENIK C7_OBRU _IDENT_DEN DOKLAD _DETAIL MOD79D p_uzavf m7_pokp m7_kasa cis_g m7_vdra cis_pok u7_kasa cis_g u7_vdra cis_pok mod79f funkce ehled DPH pokladny za obdob RIIS 7.31 Pok.doklad dok_pok dok_pok Proc. str(proc_d,5,2) proc_d Z klad str(zakl_d,12,2) zakl_d Da str(dan,12,2) Splat. tran(kasa.dat_spl,'@E') (kasa.dat_spl ) klic_d klic_d DI Text kasa.text kasa.text P_UZAV _M7_POKP _ROK_POK _MESIC_POK M7_KASA _CIS_G _M7_VDRA CIS_POK CIS_G_P _U7_KASA U7_VDRA _POLEX T_OBDOBF5 IC_POK PROCX F10_JM F10PRG RAMECEK NAZEVT NADPIS PRAVA KLICO c()=ZAHL do hlSOUC th 'JMENO etnHODN d neI ezenMOD_PSV urOBSAH Celkem za p ehled FF ZAKL_D _SOUC mod79f a7_obru ca7_zak a7_obru ca7_dan a7_vstup ca7_ddan ca7_zak ca7_dan ca7_cdan c7_cdan soucet ehled DPH pokladny za obdob RIIS 7.31 Pok. doklad ca7_cdan.par_znak ca7_cdan.par_znak ' '+ca7_cdan.cinnost ca7_cdan.cinnost Proc. str(ca7_cdan.dan,5,2) ca7_cdan.dan Z klad str(ca7_cdan.zakl,13,2) ca7_cdan.zakl Da str(ca7_cdan.kc_dan,13,2) ca7_cdan.kc_dan Splat. tran(ca7_cdan.datum,'@E') (ca7_cdan.datum ) ca7_cdan.nstr ca7_cdan.nstr str(ca7_cdan.obdobi_mm,2) ca7_cdan.obdobi_mm Text. ca7_cdan.text ca7_cdan.text POLEX _PROCX _RBOT CLEFT _CRIGHT FREEZE _ORDER _JMENO _TITLE TITLECOLORF1 _OBDOBDETAIL F1PRG F4_JM F4PRG F7_JM F7PRG F9KEY F10_JM F10PRG DET_JM DETPRG RAMECEK NAZEVT TISKPRG PS_RETURN KLICO c()=F5 do hlF8 th 'PAR_ZNAK ezenDAL urZAKL *CIS_POL =A7_OBRU SKUPINA UCET OBDOBI_MM ni hla_DO BI_MM CA7_ZAK azKC_DAN eCINNOST h NSTR miDATUM TEXT CA7_DAN etCIDOK ZAK_DAN :HODNOTA _pSKL2 c_pSTR_N +sDAT_VYST .IDENT_VS OBDOBI riA7_VSTUP CA7_DDAN R_ZNAK dCA7_CDAN M7_POKP 0MESIC_POK C7_CDAN oROK_POK vaNADPIS LEVA pravyPRAVA horHOR DOL && horSOUC MOD_PSV dOBSAH Celkem za p ehled FF CA7_CDAN _ZAKL KC_DAN __SOUC colora set color to &color _COLOR _DETAIL MOD79F2 FUNKCE OBD_DPH SOUCET procl$ HLASKA L:\OBEC\07\ S731C.FXP L:\OBEC\07\S731C.PRG