Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1999-04-15 | 32.1 KB | 726 lines

mod29 MOD29 Expedice hotov RIIS 2.9 . . # . . # Ukon (bylo zm knuto ESC). exped_02 Obrazovka Tisk Disketa Konec _DRUH KU_TISK A_TXT _SOUB AODOBD DOOBD HLASKA VYTVORM UEXPED 2VOLBA 2MENU MOD_SYS FOBRAZ OLORDISKETA ekejte, pros m, po se ... m2_hfakt p2_exp V zadan m obdob nebyla nalezena faktura. m2_pfakt faktura m1_ident ident P2_exp m2_pcen ident . . m2_pozak objednavka m2_zcen objednavka m2_ft faktura exped exped KUPOZ MOD_SYS AM2_HFAKT DAT_ODESL ODOBD DOOBD USTAV_FAKT 2P2_EXP 2JKPOV VYKRES FNAZEV OLORZAVOD ZAKAZNIK UVN_J UDAN_UVN_J FAKTURA DRUH_DOD CENAF_J KSDANF_J 2DAT_SPLAT HLASKA M2_PFAKT FAKTPOR M1_IDENT IDENT VYROBEK EXPED TM2_PCEN CENIK PLATI_DO PLATI_OD M2_POZAK AOBJEDNAVKAM2_ZCEN DRM2_FT AVKA_FAKTURA AKS_FAKTUR _CENAF_J ACENA_J _DANF_J TYP_POR _NAZEV _JKPOV SEK_IDENT _CENA _HDAN G2_KLIC AROK_OBJ KAPORADI KATEXT_TX NAZEV_ORG CENAJ Zadejte v kres: EXPORT disketa Expedice hotov za obdob RIIS 2.9 mod29 kresu exped->vykres exped->vykres zev v robku exped->nazev exped->nazev JKPOV exped->jkpov exped->jkpov s.faktury exped->faktura exped->faktura O exped->ico exped->ico exped->zavod exped->zavod exped->zakaznik exped->zakaznik Kusy str(exped->kusy,10,3) exped->kusy Fakt.cena/1ks ' '+str(exped->cenaf_j,10,2) exped->cenaf_j Fakt.cena/celk ' '+str(exped->cenaf_j*exped->kusy,10,2) exped->cenaf_j*exped->kusy Fakt.da ' '+str(exped->danf_j,10,2) exped->DANf_j Fakt.da /celk ' '+str(exped->DANf_j*exped->kusy,10,2) exped->DANf_j*exped->kusy kl.cena/1ks ' '+str(exped->UVN_J,10,2) exped->UVN_J kl.cena/celk ' '+str(exped->UVN_J*exped->kusy,10,2) exped->UVN_J*exped->kusy kl.da ' '+str(exped->DAN_UVN_J,10,2) exped->DAN_UVN_J kl.da /celk ' '+str(exped->DAN_UVN_J*exped->kusy,10,2) exped->DAN_UVN_J*exped->kusy Druh dod exped->druh_dod exped->druh_dod Datum odesl. ' '+tran(exped->dat_odesl,'@E')+' ' exped->dat_odesl Datum splat. ' '+tran(exped->dat_splat,'@E')+' ' exped->dat_odesl POLEX HFAKT _ODESL V_FAKT 2F9KEY ENTER FDETAIL DET_JM LORF10_JM F10PRG FREEZE URAMECEK NAZEVT ODOBD DOOBD KSNADPIS 2LEVA PRAVA PROCX EXPED JMENO MOD_PSV Tisk - faktury Tisk - v robky kladn cena Fakturovan cena KUTISK A_DRUH _TISK AMODTESTT MOD_SYS XTISKY Cis.vykresu vykres JKPOV jkpov Cis. faktury faktura ICO substr(ico,1,10) zavod Kusy substr(str(kusy,10,3),1,6) Z.cena cel str(uvn_j*kusy,10,2) Z.dan celk str(dan_uvn_j*kusy,10,2) F.cena cel str(cenaf_j*kusy,10,2) F.dan celk str(danf_j*kusy,10,2) Dat.odesl ' '+tran(dat_odesl,'@E') RIIS 2.9.A RIIS 2.9.B Hotove vyrobky 443 (dle faktury) - vydej za:F , ceny: Hotove vyrobky 443 (dle vykresu) - vydej za:F , ceny: Hotove vyrobky 571-4 (dle faktury) - vydej za:F , ceny: Hotove vyrobky 571-4 (dle vykresu) - vydej za:F , ceny: Ostatni zbozi (dle faktury) - vydej za:F , ceny: Ostatni zbozi (dle vykresu) - vydej za:F , ceny: POLEX KUZAHL AJMENO A_TISK EXPED _DRUH FAKTURA URIIS VYKRES 2DRUH_DOD 2NAZEVT ODOBD FDOOBD PRINTIK 9000000 KUSUMA ASUMAC SUMAD ASUMADC ZAHLAVIT STRANA SLSUM U_DRUH 2TISK_HL TISK_S KURIIS APODNIK ANAZEVT ZAHLAVIT POLEX UZAHL HLAVIT @cr,pcol() say &jmenot +' ' 99999999 AFAKTURA KTURA LAVIT POLEX UJMENOT JMENO 2_TISK 2SUMAD DAN_UVN_J ORUVN_J DANF_J CENAF_J USLSUM SUMAC SUMADC _DRUH ZAHLAVIT 2STRANA Vybran objedn vky z V zek pro nad zenou organizaci RIIS 2.9 echny objedn vky (krom storen) budou vybr ny pro p enos do nad z.organizace na disket Ukon Prov Prob r objedn vek .... m2_por m2_hlava c2_obj:9 c2_obj c2_obj1 c2_obj1 m2_dod objednavka m2_pozak objednavka c2_obj1 c2_obj1 objed_02 Objed use objed_02 excl alias &_soub Objedn vky byly vybr ny. RIIS 2.9 enos objedn vek do AS Obrazovka Tisk Disketa Konec POZOR - TISKNU _DRUH KU_TISK A_TXT _SOUB AANSI KTURA MOD_SYS UM2_POR OBJEDNAVKAROK_OBJ KAPORADI M2_HLAVA OBJ_ZAK DAT_VYST RDAT_PRIJ ZAVOD UIDENT KS_POZAD KS_POTVRZ KS_DODANE TER_OV STYP_POR 2CENA STAV_POR AC2_OBJ C2_OBJ1 KAM2_DOD M2_POZAK APOCET KAPOCETC T_KONST _DODANE TEXT_TX AKUSY KA_KUSYDOD TRIDI KAOBJED_02 AVOLBA AMENU PREHLEDY TISKY ADISKETA Stav skladu expedice V r stavu skladu expedice pro nad zenou organizaci RIIS 2.9 Ze skladu expedice budou vybr stavy jeho polo ek pro p enos do nad z. organizace na disket Ukon Prov Prob r stavu skladu ... m1_um m1_ident stav_e stav_e x_idq Lituji, nebyly nalezeny stavy. Prob r stavu skladu. RIIS 2.9 *** P ehled stavu expedice p do nad z.organizace *** stav_e Stav skladu expedice Obrazovka Tisk Disketa Konec POZOR - TISKNU _DRUH KU_TISK A_TXT _SOUB AANSI KTURA MOD_SYS UM1_UM IDENT AVKAM1_IDENT ANAZEV ZASOBA TYP_UM RSTAV_E X_IDQ HLASKA UTXT1 VOLBA PREHLEDY 2TISKY DISKETA V r pohybu skladu expedice pro nad zenou organizaci RIIS 2.9 Ze skladu expedice budou vybr pohyby za dan obdob pro p enos do nad z.organizace na disket Ukon Prov Expedice hotov . . # . . # Ukon (bylo zm knuto ESC). Prob r obrat skladu ... m1_obr m1_ident prijem_e m1_obr m1_ident vydej_e vydej_e V zadan m obdob nebyl nalezen dej. prijem_e V zadan m obdob nebyl nalezen jem. Prob r obrat skladu. RIIS 2.9 *** P ehled souboru p do nad z.organizace *** prijem_e Volba souboru Obrazovka Tisk Disketa Konec dej *** P ehled souboru p do nad z.organizace *** prijem_e *** P ehled souboru v do nad z.organizace *** vydej_e dej POZOR - TISKNU _DRUH KU_TISK A_TXT _SOUB AANSI KTURA ODOBD UDOOBD HLASKA VKAMOD_SYS AM1_OBR IDENT M1_IDENT NAZEV RSKUT_MNOZ PRIJEM TERMIN_OB DATUM TYP_UM_V KOD_OB PRIJEM_E VYDEJ VYDEJ_E ATXT2 KAVOLBA AVOL2 KAPREHLEDY TISKY DISKETA colora set color to &color KUCOLOR AOBRAZ te disketu do achty konec !&pth\test_d a: !&pth\test_d b: ERROR Disketa nebyla vlo ena! Prob enos dat ... copy to &sach\&_soub RIIS 2.9 KUSACHTA ASACH MOD_SYS PANACEK - Esc - Home,End,Tab,Shift+Tab,Sipky,PgUp,PgDn Konec Pohyb go top go bottom APOCET OFFLINE Tisk rna je vypnuta !! HLASKA KU_TXT datez german cx_xx RECNO() C_STRU C_STRU e h l e d polo ek datab ze F RIIS 2.9 EXPORT MexpPol mod29 Zadejte jmeno(i) = "&_jmeno+'&_mezery'" jmeno(i) ="substr(&_jmeno,1,78)" jmeno(i) = "&_jmeno" jmeno(i) = "&_jmeno" jmeno(i) = "'&_mezery'+str(&_jmeno,&f_len,&f_dec)" jmeno(i) = "str(&_jmeno,&f_len,&f_dec)" jmeno(i) = "str(&_jmeno,&f_len,&f_dec)" jmeno(i) = "trans(&_jmeno,'@E') + '&_mezery'" jmeno(i) = "trans(&_jmeno,'@E')" jmeno(i) = "trans(&_jmeno,'@E')" IF &_jmeno jmeno(i) = " 'T' + '&_mezery'" jmeno(i) = " 'F' + '&_mezery'" sele &_dbf sele &_dbf set date &_date KU_QOBR A_DATE GERMAN ACX_XX _KLIC C_STRU POLEX UPROCX VKARBOT ACLEFT CRIGHT FREEZE ORDER RZAHL JMENO TITLE TITLECOLORF1 JEM_E DETAIL KAF1PRG F4_JM AF4PRG KAF7_JM TF7PRG F9KEY F10_JM AF10PRG KADET_JM ADETPRG RAMECEK KARIIS ANAZEVT AENTER ADEL1 FIELD_NAMEFIELD_LEN _JMENO _MEZERY MEFIELD_TYPEF_LEN TYPEF_DEC FIELD_DEC MOD_PSV MEOBSAH pathz Chcete-li exportovat soubor na disk nebo na disketu, vyberte p nou volbu. *** Pokud ne, zm te ESC. *** Pevn disk Disketa set path to &_path _PATH KUOBEX AMOD_WIN PRENOS1 PRENOS2 Zadejte plnou cestu c le exportu: (Pokud adres neexistuje,bude vytvo Cesta nebyla zad !MD &ces_exp > &f_adr\s&ciss\err_hl.txt sele &_dbf Prob export ... copy to &naz_dbf set path to &f_adr,&f_adr\data !copy &naz_dbf &plna_ces >0 sele &_dbf KUCES_EXP AHLASKA A_RECORD NAZ_DBF UPANACEK PLNA_CES AF_INFO pathz set path to &_path te disketu do achty Konec !&pth\test_d a: !&pth\test_d b: ERROR Disketa nebyla vlo Prob export ... copy to &naz_dbf set default to &sach set default to &drive =adir(f_info,'&naz_dbf') sta na disket set path to &f_adr,&f_adr\data !copy &naz_dbf &plna_ces >0 sele &_dbf _PATH S_EXP ASACHTA ATEST HLASKA NAZ_DBF UMESS PANACEK ADRIVE AFREESPACE F_SIZE F_INFO PLNA_CES MARKETING VYTVORM OBRAZ XTISKY PRINTIK TISK_HL TISK_S PRENOBJ PRENSTAV PRENPOH HLASKA DISKETA PANACEK BROUS TISKY PREHLEDY MEXPPOL PRENOS1 PRENOS2 P:\IN\SK\O\02\ MOD29.FXP P:\IN\SK\O\02\MOD29.PRG