Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1999-04-15 | 195.0 KB | 3,985 lines

m.zak_ff ZvlCizFakf w_Dlradyf hrom_aktf 01000008 set color to b/w set color to bg/n set color to w+/bg set color to b/bg,w+/rb set color to w+/b set color to w/n FFFF$m orderz Prob ichyst dokladu F mod2proc return to &mm_zpet m_param do chyba with error() m2_por objednavka do moderror with sys(16),error(),lineno(1) m1_ident ident m4_adr E_mailf E_mailf HLA_FAKT FORM_FAKT M2_PFAKT m.typf m2_hfakt faktura M2_ft faktura m2_hfakc faktura M2_hlava objednavka m2_pfakt faktura A2_hfakt faktura a2_ft faktura a2_hfakc faktura a2_hlava objednavka A2_pfakt faktura m1_um ident m1_obr ident m2_pozak objednavka m1_zas x1_zas M4_organ m4_uc_o m_dat x_dat m_cis1 x_cis1 m2_zcen objednavka m1_kalk x1_kalk m7_faodb cis_fak m7_liodb cis_fak m2_sfah m2_sfap m1_rez.dbf2 m1_rez ident p_prist Dodac list a faktura Faktura FFFF$m Tvorba dodac ho listu pro sklad: Druh v deje: ( Tvorba dodac ho listu pro sklad: Druh v deje: A k t u a l i z a c e faktury (v , tisk A k t u a l i z a c e faktury slo dod.listu / faktury: DodList na Obj. faktura Doklad aktualizuje n kdo jin , mus te chv li po Shromadn doklad nelze aktualizovat ! Dodac list nebyl vystaven na objedn Doklad nem ete aktualizovat,byl vystaven skladem > < ... ... a Vy vystavujete dodac list pro sklad >F Doklad nen vystaven v na Dodac list nebyl nalezen ! FFFF$m slo objedn @R /99 slo objedn mod2proc objednavka smlouva objednavka slo OBJEDN VKY (ani slo KS) nen v evidenci ! objednavka DodList bez Obj. faktura Doklad aktualizuje n kdo jin , mus te chv li po Shromadn doklad nelze aktualizovat ! Doklad nem ete aktualizovat,byl vystaven skladem > < ... ... a Vy vystavujete dodac list pro sklad >F Doklad nen vystaven v na v4_sklad x4_sklad Doklad neexistuje, vyberte si z n sleduj dky, pros faktura faktura m2_hlava m2_por m2_pozak POR_FAKT m2_zcen m1_ident m1_kalk m1_obr m1_um m1_zas m4_adr m4_organ m4_uc_o m_dat m_cis1 m7_faodb m7_liodb obnova p ehledu ... C_PSV m2_hfakt a2_hfakt index on &m_onindex tag &cps_dbf of &cps_cdx &m_Ndesc index on &m_onindex tag &cps_dbf of &cps_cdx for &m_podm &m_Ndesc set order to &M_trideni set order to &M_trideni ZAK_F ZVLCIZFAK _CISLO_HS PULICE POM_TX MMROLE _UMIST MSTRED_FAKJMENO_C WJMENO_C RADEK_C SLOUPEC_C STORESKLAD_DR_TISKU _DR_LISTU _SCR1 _IDENT _IDENT1 _OBAL _TARA _SCRX W_KLIC OUCET PREHL MM_FAKT3 KOD_OBR ZAVTEXTDL TYP_ZAOKR W_DISPON W_SKUT_MN W_REZ PEMAIL POM_ZALF POM_ZALM POM_SL POM_R POM_RAD POM_RSEK "_USK MDRUHTISKU_DPH_PROC _DPH_KC MDEL_RADY _OPOT )_CENOB STRA1 W_MTISK AKTVETA POM_ZALKCSPOM_ZALCIZPOM_ZALKURPRVNI NENI_ADR FFORMUL POMOC KOD_UZAV INTOBJ KOD_PAR MLOOP MPREP ZMENA_ORG M_VLOZ VAZBA_REZ CELFAK MM_AUTOR W_KOEF_MEN_POCRADP W_MENA MCENA MJAZYK OLDKURZ OLDMENA QVOL11 W_DLRADY HROM_AKT ID_ORG PRIRZBOZI PRADEK WDRUH_TX KSPAM PDOKLAD CASTKA CASTKAC MPOC_TX KLICPOSL KLIC1 KLICFA POM_KOEF POM_MJP ZAVER MHMOT NZBOZVCETN_KS NZBOZBEZDPNCELKSLEVANCELKCAST NMNOZSLEVANKVALSLEVANRADASLEVAMDAT_SPL MK_SYMB BARVAS BARVAR BARVAZ BARVAU BARVAN BARVAH KLICPOR OBRZ5 W_AKT FAKTURA M_TRIDENI M_ONINDEX M_NDESC NDESCENDINM_PODM CPODMV MOD_SYS MMOBJED HLA_FAKT OBJEDNAVKAROK_OBJ KLICOBJ TNMESS AMENA DPKURZ VAJAZ_TISKU CIZIMENA W_UKONCI ANASTCIZM MOD2PROC PRAC1 PRAC2 PRAC3 PRAC4 HL_CYKL M_PARAM DELKA_RADYPOM _RADY TER_UZAV W_R_O_K W_ME__SIC POLE2 JEZAOKR MJAKN NDINMTISKC MTISKHM MTISKINT MCELSAZ MTISKPARAGMTISKOS KAMTISK2OS MZAPZAL TNMZALFAKID MSLEV1POR MCENOBCHODMEMAIL MNALOZ AMPONOVU CILZEMURC PZAVOD ZAVOD PUCET PUSTAV MEXIT DYM2_POR M1_IDENT AIDENT M4_ADR PNAZEV NAZEV_ORG PNAZEV2 INNAZEV_ORG2PMESTO MESTO ULICE TELEFON AGFAX KAPSC E_MAIL TNFORM_FAKT M2_PFAKT M2_HFAKT DM2_FT M2_HFAKC M2_HLAVA POR_FAKT AA2_HFAKT A2_FT A2_HFAKC A2_HLAVA A2_PFAKT AM1_UM M1_OBR M2_POZAK M1_ZAS VKAX1_ZAS M4_ORGAN APDICP M4_UC_O M_DAT X_DAT INM_CIS1 RG2X_CIS1 M2_ZCEN M1_KALK KAX1_KALK AGM7_FAODB ACIS_FAK M7_LIODB NM2_SFAH M2_SFAP DDRUH POUZIJ_REZM1_REZ REZP_PRIST ZAHLAVI LADKLICROK OBJROZH KLIC_F AKS_STAV HLASKA HROM_DOKL VYDAL_SKL JINAMENA JINYKURZ ICOBJ AZOBR_OBJ SMLOUVA KACISLO_HS G2DOD_LIST V4_SKLAD X4_SKLAD ADRUH_SKL GCENA ADAT_ODESL DAT_SPLAT CIS_ZAZ IJ_REZZ PRIST HLAVI ICROK CINNOSTI Aktualizace dodac ho listu / faktury (v , tisk Aktualizace dodac ho listu / faktury Z o b r a z e n dokladu F RIIS 2.7 W_AKT HROM_AKT CIZIMENA W_MENA MJAZYK KLICFA Byl zm n kurz nebo m na, mus te proj t cel doklad! faktura RIIS 2.7 doklad it doklad Archivace Konec mod2pro1 Nelze zru it - faktura byla ji zlikvidov Nelze zru it - faktura byla ji Nelze zru it - faktura m vystaven DL! Zru te DL! Faktura ji byla vyti na - nelze zru it ! Pokud ji p esto chcete zru it, obra te se na Va eho spr vce syst emu spr vci bude zru no (priorita 3). Hromadn doklad zde nelze zru it ! ijte nab dku 'Hromadn doklad'. Opravdu zru it doklad? (a/n): faktura RIIS 2.7 RIIS 2.7 p_prist xp_prist RIIS 2.7 RIIS 2.7 pomoc mod2pro1 if used('&prac3') MLOOP HLASKA W_AKT PREHL ZAVER HL_CYKL HROM_AKT KOBR2 POR_FAKT FAKTURA KLICFA LADKS_FAKTUR VOL11 HLA_FAKT STAV_FAKT SALDO ZAK_F ZAPCIZF MOD2PRO1 PRVNI MZBOZI EXISTZB KOD_UZAV KOD_PAR PRIOR QVOL11 MOD_SYS M7_FAODB CIS_FAK M7_LIODB RECNO DOD_PRIKAZHROM_DOKL FAKT_HROMDZAHR ROMDNAPLROLE FORM_FAKT RUSENI P_PRIST KUXP_PRIST MOD27E POMOC SOUBOR )PRAC3 OBRZ5 Objedn vka (pro zji stavu) nebyla nalezena. Objedn vka je pokryta dod. listy STAVOBJ M2_POR KLICOBJ OBJEDNAVKAROK_OBJ STAV_POR KS_POTVRZ KS_DODANE HLASKA ***** objednavka RIIS 2.7 faktura ***** v4_sklad x4_sklad INTOBJ HLA_FAKT KLICPOSL KLICZAK KAM2_HLAVA ZAVOD OBJEDNAVKAKLICOBJ KPRAC1 FAKTURA NAZEV_ORG DAT_ODESL DAT_SPLAT VYDAL_SKL JAZ_TISKU HROM_DOKL ROK_OBJ KACIS_ZAZ KLIC1 ZOBRAZFAK KLICFA V4_SKLAD X4_SKLAD DRUH_SKL mod2pro1 mod2pro1 mod2pro1 mod2pro1 colorz Pokud budete pokra ovat v aktua- lizaci d le, p daje v ratelsk m saldokontu !! vrat do hlavi echod na po TISKL POC1R ZAK_F KAZOBRS11 MOD2PRO1 ZOBRS1 _SCRX AVKAZMENAS11 KZMENAS1 ZOBRS22 ZOBRS2 ZMENAS22 ZMENAS2 ID_ORG HLA_FAKT STAV_FAKT W_AKT HROM_AKT WZ_COLOR AQWOBR RAZFAK INTOBJ HLAVA3 HLAVAF PROC3 FORMULAR slo objed. z DODAC LIST a7_faodb cis_fak Nelze m nit - faktura ji byla v saldokontu archivov vci je umo no zm nit fakturu, ale pokud p ejdete na po bude zalo ena do salda a z stane i v archivu sald !!!! Doporu : v saldu fakturu zru it nebo ozna it jako za tovanou! Nelze m nit - faktura ji byla zlikvidov vci je umo no zm nit fakturu, ale pokud p ejdete na po bude zalo ena do salda a zcela p kerou likvidaci !! I po zm stek bude fak. v saldu ozna ena za zlikvidovanou ! Nelze zm nit - faktura byla ji vci je umo no zm nit fakturu, ale pokud p ejdete na po bude zalo ena do salda a zcela p kerou likvidaci !! I po zm stek bude fak. v saldu ozna ena za sp rovanou ! Nelze zm nit - faktura byla ji sti) za vci je umo no zm nit fakturu, ale pokud p ejdete na po bude zalo ena do salda a zcela p kerou likvidaci !! I po zm stek bude fak. v saldu ozna ena za za tovanou ! Dodavatel: Banka: Doklad slo/druh: Druh dod vky (k Konstantn symbol: .objed.z Dod.list(p kaz) ratel(I jemce: jemce/Prost PZAVOD PDICP PNAZEV KAPMESTO VLASTUCET PUSTAV PUCET AVKAW_AKT KHROM_AKT A7_FAODB CIS_FAK HLA_FAKT FAKTURA KOD_UZAV HL_CYKL _FAKT HLASKA PRIOR KOD_PAR AM7_FAODB MAT_C_ZU STAV_FA DAT_UCT KLIC1 DAT_ODESL DAT_SPLAT DAT_FAKT OBJEDNAVKAW_DLRADY ROK_OBJ DRUH_DOKL DRUH_DOD KONST_SYMBOBJ_ZAK DOD_PRIKAZICO ZAVOD IKAZDICP PRIJEMCE1 PRIJEMCE2 PRIJEMCE3 KON_PRIJ1 KON_PRIJ2 NAZEV_ORG NAZEV_ORG2OSOBA ULICE MESTO MENU01 colorz mod2proc colorz mod2proc colorz seek &_al..ico + &_al..zavod mod2proc INTOBJ NENI_ADR APOC1 STUCET AVKAQ4 M_AKT FAODB _FAKT _FAKT FAKTURA MM_FAKT1 MM_FAKT3 W_AKT HROM_AKT AZMENS1 _DOKL UCET_SCR T_SYMB_AL RIKAZM4_UC_O AZPZAVOD ZOBR_UCET MOD2PROC PUSTAV PUCET MSCORG _ORG2ZMENA_ORG ZOBR_ORG A_ORG M4_ORGAN ZAVOD ADR_SCR M4_ADR ZOBR_ADR KLICZAK NAPLN_ADR NAZEV_ORG NAZEV_ORG2OSOBA LKURULICE MESTO KONEC @5,62 &vloz mm_fakt3 pict '@! Xxxxxxxxxxxx' faktura Nelze zm nit - zaevidov no (existuj DL)! Zkuste tento doklad vybrat znovu samostatn faktura Toto slo ji existuje ! @5,77 &vloz druh_dokl pict '!X' DRUH_DOKL dokladek @6,62 &vloz druh_dod @7,62 &vloz konst_symb pict '@!X' KONS_S dokladek1 @8,62 &vloz obj_zak pict '@S17' @9,62 &vloz dod_prikaz pict '@!X' @10,62 &vloz ico pict '@!X' @10,75 &vloz zavod pict '@!X' @11,62 &vloz dicp @14,2 &vloz prijemce1 @15,2 &vloz prijemce2 @16,2 &vloz prijemce3 @19,2 &vloz kon_prij1 @20,2 &vloz kon_prij2 @14,34 &vloz nazev_org @15,34 &vloz nazev_org2 @16,34 &vloz osoba @17,34 &vloz ulice @18,34 &vloz mesto @19,34 &vloz psc @20,34 &vloz stat FAKTURA AMM_FAKT3 POR_FAKT HLASKA AMM_FAKT1 KHLA_FAKT DOD_PRIKAZKLICPOSL ZKLICFA PDOKLAD W_AKT HROM_AKT DRUH_DOKL MALIAS ADOKLADEK JMENO_C WJMENO_C MOD_C2 RADEK_C SLOUPEC_C MOD_C1 ID_ORG AKONST_SYMBDOKLADEK1 _SYMBQ6 _SYMBICO ZMENA_ORG ZAVOD KLICZAK ZADRESA NAZEV_ORG NAZEV_ORG2OSOBA ULICE MESTO _ORG2DICP _ORG2Q20 BEZ DANE S DANI BEZ DANE S DANI S DANI S dan Bez dan sob dopravy: Organiza . jednotka vyskladn sto ur , poji izuje: Dopravn dispozice: Dodac a plateb. podm.: Den splatnosti: vod zkr c. splatn.: Forma hrady: Datum vyst.faktury: Dat.uskute .zdanitel.pln HLA_FAKT ZPUS_DOPR ORG_VYSKL1ORG_VYSKL2MISTO_UR1 MISTO_UR2 MISTO_UR3 VYRIZUJE KDDT1 DOP_DISP ZDDT2 ZZEM_URCENIW_AKT HROM_AKT M2_HLAVA DAN_OBJ CIZIMENA DOD_PODM DAT_SPLAT DUV_ZKRAC FORMA_UHR DAT_ODESL DAT_FAKT MENU0A Nelze m nit - faktura ji byla zlikvidov Nelze zm nit - faktura byla ji _FAKT S_DOPR _VYSKL1Q5 _VYSKL2Q6 TO_UR1 TO_UR2 TO_UR3 IZUJE URCENIQ14 POCET DOP_DISP W_AKT HROM_AKT ZMENS2 CIZIMENA KOD_UZAV KOD_PAR APRIOR SYMBHLASKA MBCIN _SCR1 SYMBKONEC @9,11 &vloz pozn @11,17 &vloz zpus_dopr @13,2 &vloz org_vyskl1 @14,2 &vloz org_vyskl2 @16,2 &vloz misto_ur1 @17,2 &vloz misto_ur2 @18,2 &vloz misto_ur3 @19,11 &vloz vyrizuje function '@S23' @20,21 &vloz zem_urceni pict '@!X' ZEM_URCENI zemicka @12,35 &vloz ddt1 function '@S44' @13,35 &vloz ddt2 function '@S44' S DANI S dan Bez dan S DANI S dan BEZ DANE Bez dan @16,63 &vloz dat_splat pict '@E' @17,58 &vloz duv_zkrac @18,50 &vloz forma_uhr @19,63 &vloz dat_odesl pict '@E' @20,63 &vloz dat_fakt pict '@E' S_DOPR YSKL1Q3 YSKL2Q4 KW_AKT HROM_AKT Z_L1L ZMM_JMENO I_VYR VYRIZUJE ZEM_URCENIMALIAS ZEMICKA RCENIJMENO_C WJMENO_C MOD_C2 RADEK_C SLOUPEC_C MOD_C1 RCENIDDT1 DOP_DISP BDOD_PODM SYMBQ13 Text z objed.: kdo jin aktualizuje objedn vku, nebo z n vytv dod.list. te chv li po kat .... Objedn vka nebyla nalezena ! Identifikace .vyd. Obchodn specifikace M_ALIAS POC1R M2_HLAVA 1COBJ 2HLASKA HLA_FAKT KFAKTURA NAPLROLE HLA_FAKT OBJEDNAVKAFAKTURA 2ZAVOD pomoc pomoc Nelze vydat na DOD.LIST - objedn vka je bez po nebo jsou v echna po stornov na ! return to &mm_zpet RIIS 2.7 MOD_SYS ZAVER DNAVKADOL A_FAKT KTURA PLROLE ZSOUBOR IPRVNI POMOC M2_POR KLICOBJ NIPRAC2 OBJEDNAVKAROK_OBJ NISTAV_POR PORADI KAOBJED HLASKA KLICFPOR HLA_FAKT FAKTURA NIZBYTEK KAPOCET AMM_POM BZMENY do PROC&y do Zmen&y with 'say' do Zmen&y with 'say' do Zmen&y with 'get' do Zmen&y with 'say' do Menu&y mod2proc do Proc&y do Proc&y Vydan lze zru it jen p i aktualizaci dod. listu ! Vydan lze zru it jen p i aktualizaci dod. listu ! &barvas COLORa Fakturace dej polo dej obal Obaly Balen Ostatn epravn Text i aktualizaci faktury nelze vyd vat ze skladu ! itahovat skladov polo ky lze jen u z lohov ch faktur ! Druh v deje: @!XXX KOD_OB kod_ob1 d mus nat p smeny 'VE'- v dej z expedice! i aktualizaci faktury nelze vyd vat obaly ze skladu ! Druh v deje: @!XXX KOD_OB kod_ob1 d mus nat p smeny 'VE'- v dej z expedice! m8_pozob ident m8_obal slo obalu: Popis obalu F : TARA: ROZM Obal nenalezen, vyberte si z t to nab mod2proc COLORa mod2proc RIIS 2.7 obalu Balen Ostatn epravn COLORa Fakturace dej polo dej obal Obaly Balen Ostatn epravn Text Sleva celkem loha 1 ceny i aktualizaci faktury nelze vyd vat ze skladu ! itahovat skladov polo ky lze jen u z lohov ch faktur ! Druh v deje: @!XXX KOD_OB kod_ob1 d mus nat p smeny 'VE'- v dej z expedice! i aktualizaci faktury nelze vyd vat obaly ze skladu ! Druh v deje: @!XXX KOD_OB kod_ob1 d mus nat p smeny 'VE'- v dej z expedice! m8_pozob ident m8_obal slo obalu: Popis obalu F : TARA: ROZM Obal nenalezen, vyberte si z t to nab mod2proc COLORa mod2proc RIIS 2.7 obalu Balen Ostatn epravn SLEVA Sleva [%] : 999.99 Nelze vystavit slevu na fakturu bez zbo Sleva na dodan ve v % z ceny pro DPH= slo z l. f.: Faktura nen lohov a7_faodb cis_fak Faktura nen lohov m7_faodb cis_fak faodb COLORa RIIS 2.7 loha Sleva [%] : 999.99 Sleva na p edchoz polo ku ve v % z jej ceny Sleva pro F ve v % z ceny if used('&prac3') mod2pro1 pomoc if used('&prac2') objed RIIS 2.7 COLORa if ! used('&prac3') RIIS 2.7 Nelze tisknout doklad, kter byl shromadn faktura Tisk faktury Tisk dod.listu Pokladn doklad Druh textu: Doklady, kter byly shromadn ny, nelze tisknout jako fakturu ! Doklady, kter byly zkop ny, nelze tisknout jako fakturu ! Druh textu: DRUH_TXFAK wDRUH_TX m2_ftext c2_ftext+ Faktura mus t nejd ve vytisknuta p i aktualizaci! colorz p_prist xp_prist RIIS 2.7 if used('&prac3') FORM_FAKT POM_OBR POM_POCET POM_Q AVKAPOM_X 1POM_R 2POM_U POM_T POM_Z POM_PRIDALPOM_IDBYL ZAVER NIHOR DNAVKAR K_OBJ KAW_AKT HROM_AKT MM_LK NINAPOVEDA AMOD2PROC M_AKT BVOLBA BVOLBA1 SYMBKVYPLN POCET HLAVD PROCD ZMOBJ HLASKA ZRUS_POR 2PRAC3 FAKTURA SKUPINA RADEK ORG2FORM_FAKT HLA_FAKT SLEVA KLIC_FAK _RADEK _SKUP KLICFA _COLOR VOL11 ZAK_F ZAPM2_FT LQVOL11 KURDRUH_DOKL MZALFAKID KOD_OB1 ALKOD_OBR ID_ORG M_DAT JMENO_C ALWJMENO_C MOD_C2 RADEK_C SLOUPEC_C MOD_C1 RIDALKOD_OB M8_POZOB LIDENT M8_OBAL _OBAL NAZEV SEK_IDENT _OPOT OP_KS_KCS _CENOB CENA_KS _DPH_PROC DPH_PROC _DPH_KC DPH_KC MHMOT HMOTNOST MJ_HMOTN HMOTN_KS TN_KS SIRKA DELKA VYSKA _TARA MJ_ROZM ZOBROBAL CENAJ DAN_RAD VAHA_KGJ CENA_Z _KCSX _NAZX MSLEV1POR M_SLEVA CODKUD NAJDISLEVU_ALIAS _ZAZ1 M_ROLUJ TABDPH ETNTABKC _POCRADP ODKUD _PORSINGL _RADEK1 _SLOUP1 JEZAOKR CIZIMENA JEDNCENA POM_ZALF POM_ZALM POM_ZALKCSPOM_ZALCIZPOM_ZALKURM7_FAODB ZNAK_F CAST_CEL SCAST_MEN ZKURZ ALKURA7_FAODB CIS_FAK FAODB NDINZOBRFAKT RIDENT_ODB _TXTX PRVNI AVKA_SCR1 KCIZMEN NMOD_SYS STAV_FAKT ZAPSALDO AFORMUL INTOBJ A_SCRX ZOBRS22 MOD2PRO1 ZOBRS2 POMOC PRAC2 OBJED HLAVA3 FORMULAR YHROM_DOKL MZAVTXT _DR_LISTU MTISKNI WDRUH_TX DRUH_TXFAK_SCR TXFAKVOL4 PREHL MTISKPARAGRK GM2_FTEXT KDRUH C2_FTEXT NDRUH_TEXTUMPOC_TX M_STAV_F MTISKHM NASTOBJEM MDRUHTISKUMPONOVU NASTVYST MTCOL P_PRIST XP_PRIST TISKNI NASTAV_2 KONEC Prob tisk ... vol4f mod2proc mod2pro1 c_fakt c_print mod2pro1 c_fakt c_print mod2pro1 c_fakt c_print mod2proc C_FAKT.TXT mod2pro1 mod2proc - (^) ipky,(^)Home,(^)End,PgUp,PgDn - Esc Pohyb Konec Prohl dokladu c_fakt.txt mod_psv c_fakt.txt fakt.txt !copy fakt.txt &m_txt >nul !copy c_fakt.txt &m_txt >nul CXSCREEN ID_ORG W_AKT AVKAOBR2 1PRAC3 2M_SLEVA CODKUD NAJDISLEVUTABDPH DALTABKC _POCRADP W_MTISK ZSTRA1 IMESS MTISKPARAGSTRA NIS2PARAGO MOD2PROC AZAK_F NIPUV KAPREDTISK CELFAK CXSCREEN1 TISKCELF MOD2PRO1 INASTVYST AC_FAKT C_PRINT ATISKFF BCISF KLICFA SYMBDAT VYST2 TISKF ZM_TXT MJMENO CES_EXP 2MDRUHTISKUNASTSOUBOR_SCR OPAKTISK UM2_SFAH RUHTISKUTXT S2LATWIN UMOD_PSV EXPPOL Identifikace mus t vypln t vypln IDENT AVKAHLASKA colorz U zahrani . dokladu nesm t vypln no DPH ! RIIS 2.7 QWREC AVKAA 1HLASKA FORM_FAKT MEMVAR PRAC3 AVKAFAKTURA 1SKUPINA 2RADEK FORM_FAKT Opravn doklad pom_C2 a7_faodb cis_fak if not used('&prac3') insert into pom_C2 (Faktura, Stred_Fak, Kod, Dan, Kcs, Dan_Rad, Valuty) value (&prac3..faktura, &prac3..stred_fak, pom_Kod, &prac3..dan, pom_Kurz * &prac3..kcs, pom_Kurz * &prac3..dan_rad, &prac3..kcs) pom_C2 c2qmq insert into m7_liodb (cis_fak, rad_fak, kl_fak, kcs, dat_akt, stred, autor) values (klicfa, str(_aa1,2), &_dbf..kod, round (Sg * &_dbf..kcs,2), date(), &_dbf..stred_fak, MM_autor ) _m7cen= _m7cen + round (&_dbf..kcs,2) m7_liodb m7_liodb m7_liodb m7_liodb m7_faodb m7_liodb POM_KOD POM_KURZ POM_FAKT AHLA_FAKT _FAKT 2CTEXT DRUH_DOKL MZNAKF M7_LIODB KLICFA CIS_FAK W_KURZ ZKURZ IPOM_C2 FAKTURA STRED_FAK NIDAN ADAN_RAD NIVALUTY A7_FAODB APRAC3 KLIC_FAK SEK_IDENT M7_FAODB C2QMQ OBAL_F TABDPH TABKC A_POCRADP B_DBF B_M7CEN _ROZD SYMB_VAL ODKUD _PORSINGL _RADEK _SLOUP DAN_F 2M_KOD URAD_FAK KL_DAN KCS_DAN UDAT_AKT 2AUTOR ISKUPROC_DPH MM_AUTOR UJEZAOKR CIZIMENA TYP_ZAOKR KL_FAK MZAPZAL MM_JMENO VYRIZUJE LDAN_FAKT ROBALY ZAOKROUHL STAV_FA ZAVOD ZNAK_F VARS_S KONS_S LKONST_SYMBUCET_DOD DOD_L DOD_PRIKAZDAT_ODES LDAT_ODESL DAT_PRI LDAT_FAKT DAT_SPL DAT_SPLAT CIS_OBJ OBJEDNAVKAROK_OBJ CAST_CEL DAN_CEL CAST_MEN W_MENA faktura faktura M_KOD M_KURZ AKLICFPOR 1HLA_FAKT 2FAKTURA OBJEDNAVKAROK_OBJ PORADI KLICOBJ TYP_POR KAIDENT ZPOR_FAKT KS_FAKTUR SKUPINA KOD_OB NIUMISTENI CENAS APOMOC NICENA M1_IDENT ANAZEV KS_POZAD M2_POZAK TEXT_TX faktura @x,1 &vloz skupina pict '@z' m1_um znam o um sob nen stupn S polo kou ve Va em sklad se pracuje, zkuste to za chv m1_zas znam celkov sob nen stupn S celk. z sobami polo ky se pracuje, zkuste to za chv znam rezervac polo ky nen stupn , zkuste to za chv znam objedn vky nen stupn S touto objedn vkou se pracuje, zkuste to za chv znam objedn vky nebyl nalezen. DodList na Obj. Stor.pol.na Obj Stor.pol.bez Ob @x,4 &vloz kod_ob pict '@!XXX' KOD_OB kod_ob1 d mus nat p smeny 'VE'- v dej z expedice! @x,50 &vloz umisteni pict '!XXXX' nelze p epsat ! !XXXX m1_um @x,69 &vloz ks_faktur Nelze vydat v je v objedn m1_um Nedostate soba na um znam o um sob nen stupn S polo kou ve Va em sklad se pracuje, zkuste to za chv znam celkov sob nen stupn S celk. z sobami polo ky se pracuje, zkuste to za chv znam celkov sob pro identifikaci nebyl nalezen. znam objedn vky nen stupn S touto objedn vkou se pracuje, zkuste to za chv znam objedn vky nebyl nalezen. M_KURZ AFORMUL A_FAKT 2POCET EDNAVKAQ2 KLICFPOR AHLA_FAKT ZFAKTURA IOBJEDNAVKAROK_OBJ PORADI KLICOBJ NIZOBRTEXT APOR_FAKT APOMOC AVKAIDENT KACENA_J ACENA TYP_POR RADEK CENA_Z PROC_PRI USPECH ASKUPINA BM_ALIAS M2_ZCEN MBKS_FAKTUR KSPAM UMISTENI M1_UM SKLAD UM_SKL TYP_UM UHLASKA NAVRAT2 M1_ZAS USKL_HLAVNISKL_HL_UM VAZBA_REZ POUZIJ_REZM1_REZ M1_KALK PL_OD TYP_NAKL M2_POR NAVRAT1 REZUMZAS ZASOBA LMMROLE RZAPIS_OBR STAV_POR KS_DODANE KS_POZAD KOD_OB KOD_OBR UPINA LKOD_OB1 MBM_DAT JMENO_C WJMENO_C ZMOD_C2 LRADEK_C SLOUPEC_C MOD_C1 _UMIST CENAS ZBYTEK KONTR_REZ M_KURZ POR_FAKT ASKUPINA 1UMISTENI 2KOD_OB EDNAVKAR UPINA POMOC M_KURZ POMOC objednavka POR_FAKT OBJEDNAVKAKLICOBJ AKUSYF 1ROK_OBJ KAPORADI HLA_FAKT A_REC FAKTURA KS_FAKTUR POMOC AKS_POZAD ZKS_POTVRZ - ,PgUp,PgDn, - PgDn -F5 -F6 -F7 - Esc,^End Pohyb Adresy Konec W_AKT HROM_AKT AINTOBJ - ,PgUp,PgDn, - PgUp,PgDn - Esc,^End Pohyb Konec W_AKT HROM_AKT - ,PgUp,PgDn, - F5 - F10 - Esc,^End Pohyb Formul Funkce Konec W_AKT HROM_AKT - ,PgUp,PgDn, - ,PgUp,PgDn - F4 - Esc,^End - F10 - ^PgDn,^PgUp - ^Home Pohyb Funkce Konec W_AKT HROM_AKT objednavka Text z objed.: Identifikace Text / n Cel.sazebn Exter.identifik. Cena/MJ Cena celkem Rabat DPH-celk DodList na Obj. Dod.v d.na Obj Dod.v d.bez Obj M2_HLAVA AOBJEDNAVKAHLA_FAKT 1ROK_OBJ ATEXT AFAKTURA AID_ORG NAPLROLE MMROLE AROLE ZZZZZZ.ZZZ 999999.999 ZZZZZZZZ.ZZ 99999999.99 ZZZZZZZZZ.ZZ 999999999.99 ZZ.ZZ 99.99 ZZZ.Z 999.9 ZZZZZZZ.ZZ 9999999.99 _HLAVA DNAVKAKOD 1IDENT ANAZEV ASEK_IDENT IDENT_ODB UMISTENI ZCENAJ AVKAID_ORG PROC_PRI KLIC_FAK ISTRED_FAK DAN_RAD AVKAPRADEK KARADEK SOUCZOB @x,3 &vloz ident pict '@!X' colorz ka neexistuje! case role(11) = 'E' and &prac3..kod = 'M' mod_proc inlist (kod_pol, 'M','N', 'T','U', 'X', 'Y','Z') mod_proc inlist (kod_pol, 'F','P', 'S','A', 'B', 'C','R', 'V', 'I','O') mod_proc inlist (kod_pol, 'M','N', 'T','U', 'X', 'Y','Z') mod_proc mod_proc ident Tuto polo ku nelze vydat, nem MJ ani n m1_npol ident Typ: m1_plan x1_plan @x,16 &vloz nazev pict '@X' @x,42 &vloz sek_ident pict '@X' @x,55 &vloz ident_odb @x,3 &vloz text @x,75 &vloz umisteni pict '!XXXX' nelze p epsat ! !XXXX m1_um @x+1,3 &vloz mj pict '@!XXX' MJ wjmeno_c = '&prac3..mj' @x+1,7 &vloz ks pict '999999.999' function 'ZZZZZZ.ZZZ' if vloz='say' and mhod#&mnaz m1_um Nedostate soba na um !XXXX ZZZZZZ.ZZZ 999999.999 Nelze vydat, z soba (nebo jej st) je rezervovan na dan !XXXX ZZZZZZ.ZZZ 999999.999 znam o um sob nen stupn S polo kou ve Va em sklad se pracuje, zkuste to za chv !XXXX ZZZZZZ.ZZZ 999999.999 znam celkov sob nen stupn S celk. z sobami polo ky se pracuje, zkuste to za chv !XXXX ZZZZZZ.ZZZ 999999.999 znam celkov sob pro identifikaci nebyl nalezen. !XXXX ZZZZZZ.ZZZ 999999.999 !XXXX ZZZZZZ.ZZZ 999999.999 DodList na Obj. Dod.v d.na Obj Dod.v d.bez Obj cenaj @x+1,17 &vloz cenaj pict '99999999.99' function 'ZZZZZZZZ.ZZ' if vloz='say' and mhod#&mnaz ZZ.ZZ 99.99 ZZ.ZZ 99.99 @x+1,57 &vloz dan_rad pict '9999999.99' function 'ZZZZZZZ.ZZ' ZZZZZZZZZ.ZZ 999999999.99 @x+1,42 &vloz dan pict '99.99' function 'ZZ.ZZ' if vloz='say' and mhod#&mnaz proc_pri @x+1,47 &vloz proc_pri pict '999.9' func 'ZZZ.Z' if vloz='say' and mhod#&mnaz ZZZZZZZZ.ZZ 99999999.99 @x+1,48 &vloz klic_fak pict '@!X' @x+1,53 &vloz stred_fak pict '@!X' v1_str x1_str seek &_al..stred_fak edisko neexistuje colorz cursorz mod2proc set cursor &Mcursor @x+1,68 &vloz skp pict '@S11' ZZZZZZ.ZZZ 999999.999 ZZZZZZZZ.ZZ 99999999.99 ZZZZZZZZZ.ZZ 999999999.99 ZZ.ZZ 99.99 ZZZ.Z 999.9 ZZZZZZZ.ZZ 9999999.99 999999999.99 ZZZ.ZZ 999.99 Cena+DPH/po ZZZZZZZZZ.ZZ 999999999.99 DNAVKAQ2 _IDENT NT_ODB STENI AVKAQ13 POCET IMCENA AROLE AVKAIDENT KAUSPECH W_AKT HROM_AKT NAZEV C_PRI M1_IDENT PRAC3 ARADEK BKLIC_FAK _ZCEN MBM_COL M_IDENT M_OBRQ HLASKA W_IDENT W_NAZEV 2ID_ORG UZOBR_POL MOD_PROC MIDENT UMNAZEV VNIMIDENT_ODBIDENT_ODB J_REZSKP MSEK_IDENTCEL_SAZ DOD_CSAZ SEK_IDENT CIZIMENA M1_NPOL MJAZYK HLA_FAKT RZAVOD EX1_IDENT JAK_CSN ROZM_CSN M1_PLAN X1_PLAN MHMOT LHMOTNOST BMJ_VAHY VAHA_MJ POM_MJP PLAN_MJ ZPOM_KOEF LKOEF STRED_FAK MSTRED_FAKVAHA_KGJ TMJAKN MMZAZ SKUPINA _UMIST UMISTENI M1_UM SKLAD UM_SKL TYP_UM JMENO_C WJMENO_C RADEK_C SLOUPEC_C MOD_C2 MOD_C1 KSPAM PREPOC_KCSKCS CENAJ DAN_RAD ZAPM2_FT _QRADEK _QSKUP _KUSICKY M1_KALK CSPL_OD TYP_NAKL OBCH_CENA ZASOBA KCSREZERVACE M1_ZAS SKONTR_REZ2REZUMZAS2 MMROLE ZAPIS_OBR CENA_Z KCSPROC_PRI NMREC SOUCZOB SV1_STR X1_STR MCOLOR MCURSOR ZOBR_STR MOD2PROC C_PROC_PRI ZZ.ZZ 99.99 ZZZZZZZ.ZZ 9999999.99 ZZZZZZZZZ.ZZ 999999999.99 CENA_OB CENAJ DNAVKAM_XDAN ADAN_RAD NA_OB SOUCZOB if used('&prac3') faktura if used('&prac4') m1_plan x1_plan m1_npol ident faktura Typ: if used('&prac3') RIIS 2.7 MOD_SYS PRAC3 AMLOOP AVKAHLA_FAKT 1FAKTURA AKLICFA AFORM_FAKT FORMUL PRAC4 M1_PLAN AX1_PLAN ZCIZIMENA M1_NPOL KAIDENT POR_FAKT M1_IDENT IKS_FAKTUR KLICOBJ AOBJEDNAVKAROK_OBJ KAPORADI AMIDENT MNAZEV MIDENT_ODBMMJ MKLIC_FAK MSEK_IDENTMSKP MHMOT ATXT1 BPOM_MJP TYP_POR BMKLIC_F MBNAZEV IDENT_ODB MJAZYK ZAVOD EX1_IDENT SEK_IDENT JAK_CSN UROZM_CSN ID_ORG VNICEL_SAZ NTDOD_CSAZ IDENT HMOTNOST MJ_VAHY NTVAHA_MJ PLAN_MJ POM_KOEF M2_POZAK ATEXT_TX CENAX CENA_J RCASTKA SKUPINA RADEK UMISTENI LOBRAT BKOD_OB NCENA_Z CENA_Z NPROC_PRI PROC_PRI D_FAK CENAJ _FAKKCS TDAN_RAD STRED_FAK MSTRED_FAKVAHA_KGJ TKLIC_FAK C_PROC_PRIMJAKN ZAVER DEK_C OUPEC_C HLAVAF POCET INTOBJ ZMENY DodList na Obj. Stor.cel.na Obj Stor.cel.bezObj znam v DL F stupn m1_um Nedostate soba na um znam o um sob (F ) nen stupn m1_zas znam celkov sob (F ) nen stupn znam rezervac polo ky nen stupn , zkuste to za chv objednavka znam po objedn stupn znam po objedn nebyl nalezen. znam po DL nen stupn znam dopl v DL nen stupn znam dopl v DL nen stupn m1_um Nedostate soba na um znam o um sob (F ) nen stupn m1_zas znam celkov sob (F ) nen stupn znam dopl v DL nen stupn Hlavi ka DL nen stupn , zopakujte ru , pros znamy nebyly zru eny, zopakujte ru ,pros USPECH MMROLE AROLE AVKAPOR_FAKT 1FAKTURA ASKUPINA ARADEK FORM_FAKT MROLE3 KLICFA IDENT AKOD_OB ZKS_FAKTUR UMISTENI AC_OBJ OBJEDNAVKAROK_OBJ IC_OBJ1 PORADI VKATXT AKTUR HLASKA KATYP_POR AM1_UM SKLAD UM_SKL ODBTYP_UM ZASOBA M1_ZAS ENTSKL_HLAVNISKL_HL_UM VAZBA_REZ POUZIJ_REZM1_REZ BM1_KALK PL_OD MBTYP_NAKL INTOBJ M2_POR REZUMZAS ZAPIS_OBR KS_DODANE HLA_FAKT DodList na Obj. Stor.por.na Obj Stor.por.bezObj m1_um Nedostate soba na um znam o um sob (F ) nen stupn m1_zas znam celkov sob (F ) nen stupn USPECH MMROLE AROLE AVKAMROLE3 1IDENT AKOD_OB UMISTENI M1_UM SKLAD UM_SKL ATYP_UM ZZASOBA AHLASKA PRAC3 AVKAM1_ZAS ISKL_HLAVNISKL_HL_UM VAZBA_REZ POUZIJ_REZKONTR_REZ2M1_KALK PL_OD TYP_NAKL REZUMZAS2 ZAPIS_OBR VNIFAKTURA SKUPINA RADEK _REZFORM_FAKT Neexistuje adresa s k dem 'FA' ani 'HL' ! ZP_PLATBY m4_dop_d OUCET AZPUSPLAT ADDT1 1DDT2 AM4_ORGAN AKLICZAK HLA_FAKT M4_ADR ANAPLN_ADR HLASKA NENI_ADR ANAZEV_ORG NAZEV_ORG2OSOBA IULICE AVNIMESTO A_REZ J_REZM4_UC_O PLAT_TERM ZP_PLATBY M_CIS1 NASEL_DIS M4_DOP_D DOPR_INST1DOPR_INST2FORMA_UHR DOP_DISP DAT_SPLAT DAT_ODESL M2_POZAK KLICOBJ USPLAT AOBJEDNAVKAROK_OBJ APORADI ATEXT_TX Opravn doklad m7_faodb POZAK CTEXT AHLA_FAKT ADRUH_DOKL MZNAKF M7_FAODB KLICFA CIS_FAK STAV_FA AZAVOD ZNAK_F VARS_S AFAKTURA KONS_S RG2KONST_SYMBUCET_DOD IUCET DOD_L DOD_PRIKAZDAT_AKT DAT_ODES DAT_ODESL DAT_PRI DAT_FAKT DAT_SPL DAT_SPLAT CIS_OBJ OBJEDNAVKAROK_OBJ 1DICP INST2AUTOR MM_AUTOR TYP_OSLOV OSLOV M4_ADR ATYP_OSLOV M_CIS1 JMENO HLA_FAKT NAZEV_ORG NAZEV_ORG2ULICE ORG2MESTO OSOBA AM4_ORGAN KLICZAK 2DICP COLORa HCOLOR AHOBR ***** Fnastav mod27f3 pro objedn vku FF Faktura jmeno(i)= "&prac1..faktura" hodn(i)= "&prac1..faktura" Cena (K jmeno(i)= "str(&prac1..cena,11,2)" hodn(i)= "&prac1..cena" zev organizace jmeno(i)= "left(&prac1..nazev_org,19)" hodn(i)= "&prac1..nazev_org" Dat.odes. jmeno(i)= "tran(&prac1..dat_odesl,'@E')+' '" hodn(i)= "(&prac1..dat_odesl )" Dat.spl. jmeno(i)= "tran(&prac1..dat_splat,'@E')" hodn(i)= "(&prac1..dat_splat )" Sklad jmeno(i)= "&prac1..vydal_skl + ' '" hodn(i)= "&prac1..vydal_skl" jmeno(i)= "' ' + &prac1..mena" hodn(i)= "&prac1..mena" jmeno(i)= "&prac1..jaz_tisku+ ' '" hodn(i)= "&prac1..jaz_tisku" POLEX PROCX ARTOP CLEFT CRIGHT FREEZE ORDER _ORG2JMENO ORG2HODN TITLE TITLECOLORSPACEBAR _FAKT _PRIKAZF9 DETAIL F1PRG F4_JM F4PRG F7_JM F7PRG F9KEY AVKAF10_JM 1F10PRG ST2DET_JM DETPRG RAMECEK TR_HL PRAC1 FAKTURA VYDAL_SKL ENTER KLICOBJ W_DLRADY IKLICROK NTDAT MOD_PSV ***** Nelze aktualizovat! DL byl vystaven pro jin sklad faktura set order to &_order Doklad aktualizuje n kdo jin , mus te chv li po Doklad nen vystaven v na 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 hem Va ce bylo toto slo obsazeno n m rychlej m ... ... vyberte adu znovu, pros HLA_FAKT hem Va ce bylo toto slo obsazeno n m rychlej m ... ... vyberte adu znovu, pros M2_KS smlouva m4_dop_d Doklad aktualizuje n kdo jin , mus te chv li po hem Va ce bylo toto slo obsazeno n m rychlej m ... ... vyberte adu znovu, pros set order to &_order _SCRW FAKTURA AQVOL11 VYDAL_SKL HLASKA KLIC1 HLA_FAKT _ORDER 2MM_FAKT3 2OLDMENA AMENA OLDKURZ COLORCIZIMENA POKRACQ 2W_MENA BJINAMENA IMLOOP W_KOEF_MENJINYKURZ ZJAZ_TISKU MJAZYK _ALIAS A2_HFAKT MM_FAKT4 W_RAD MDEL_RADY GETIK AVKAGETT R_ALIAS 2_DELKA MM_FAKT31 _KONEC _KONDEL _CHYBA MDOD_PR ID_ORG M2_HLAVA OBJEDNAVKADDT1 IDDT2 NTKLICZAK ZAVOD INTOBJ TKOD_UCTU ROK_OBJ KAOBJ_ZAK VYRIZUJE STAV_FAKT DAT_ODESL DAT_FAKT DAT_SPLAT KONST_SYMBDOD_PRIKAZMM_JMENO AMDAT_SPL MK_SYMB CILZEMURC ZEM_URCENIADRESA IPOZN LW_AKT NHROM_AKT M2_KS SMLOUVA _CISLO_HS DOP_DISP LNASEL_DIS M4_DOP_D DOPR_INST1DOPR_INST2 @!XXX v4_sklad x4_sklad return to &mm_zpet t uveden daj 'Sklad'! Sklad neexistuje mod2proc v4_skl_z x4_skl_z Pro zadan sklad nem te opr @!XXX @!XXX Nebyl zad d obratu. return to &mm_zpet KOD_OB kod_obr d mus nat p smeny 'VE'- v dej z expedice! KOD_OBR V4_SKLAD AX4_SKLAD MSTRED_FAKNSTR HLASKA MSKLAD 2ZOBR_SKL 2MOD2PROC ADRUH_SKL KPRIRZBOZI V4_SKL_Z X4_SKL_Z PRIHLAS 2M_DAT BOK_C IJMENO_C WJMENO_C NMOD_C2 ZRADEK_C SLOUPEC_C MOD_C1 STORESKLAD Nelze vydat, je NUTNO zru it rezervaci (k d rezervace='N'). Nelze vydat, rezervov no pro F S rezervac sob t to polo ky pracuje n kdo jin , zkuste to pozd Nelze vydat, z soba (nebo jej st) je rezervovan VAZBA_REZ POUZIJ_REZM1_UM REZERVACE NASEL M1_REZ REZROLE KLICOBJ 2KOD_REZ 2USPECH UH_SKL IRZBOZI HLASKA OPRAVNENI MM_AUTOR 2W_DISPON ZASOBA IVYDANO VAZBA_REZ POUZIJ_REZM1_UM REZERVACE VYDREZ J_REZVYDSKUT VYDREAL POUZIJ_REZVAZBA_REZ M1_REZ VYDANO 2REZERVACE M1_UM ZASOBA KVYDEJ M1_ZAS DATUM_VYD VYDREZ J_REZVYDSKUT VYDREAL M1_UM _REZZASOBA VYDEJ M1_ZAS 2DATUM_VYD VAZBA_REZ m1_obr M1_OBR ID_ORG REZCSTR IDENT TERMIN_OB KOD_OB PLAN_MNOZ IDENT_ZAK IDENT_VYS SKUT_MNOZ VADNE_MNOZVYDAL_SKL VYD_UM_SKLTYP_UM_V PRIJAL_SKLPRI_UM_SKLTYP_UM_P ZAVOD POPIS_OBR STRED_OBR DOKL_CIS ZASOBA DAT_UCT ADNAKLAD JMENO MESIC W_R_O_K KAW_ME__SIC M1_IDENT 2ZAPIS_AKT IDENT m2_pcen ident Cena v obchodn m cen jinou m Cena je odvozena z obchodn ho cen ku pro skupinu ZAK ! Cena je odvozena z obchodn ho cen ku pro skupinu ZAK ! IF mnoz&poct#0 rozdil=role(7)-mnoz&poct CASE hr#'0' and prir&hr>0 prirazka=prir&hr CASE dl='0' and hr#'0' and prir&hr<0 CASE dl#'0' and hr='0' and prir&dl>0 CASE dl#'0' and prir&dl<0 prirazka=prir&dl CASE dl#'0' and hr#'0' and prir&dl>0 and prir&hr<0 CASE prir&str<0 prirazka=prir&str CASE hr='0' and prir&str>0 CASE hr#'0' and prir&str>0 and prir&hr>0 prirazka=prir&hr CASE hr#'0' and prir&str>0 and prir&hr<0 Cena je odvozena z n kladov KU ! REZSTR ROZDIL _PCEN PRIRAZKA _CENAJ _MNOZ_DAN_RAD _CENSKUP L_CENA_Z M4_ORGAN LHLA_FAKT IZAVOD CEN_SKUP M2_PCEN IDENT PLATI_DO CIZIMENA DMENA W_MENA HLASKA C_PROPRI PREP_MJ ACENA_HRUBADAN BAPRIRZBOZI PRAC3 CENAJ DAN_RAD CENA_Z PROC_PRI C_PROC_PRI, colorz Informace o um Informace o obratech Konec Informace o um Informace o obratech ny pol. z objedn. ehled obchod.cen Nastav.objemu a hmot. Prohl r. text Objedn vky na polo Nastaven tisk Tisk celn faktury Tisk zahr.dokl. et ceny kurzem Konec Chybn hodnota identifikace polo mod_proc Jen pro zbo , vydan ze skladu (k dy 'RXSM') Chybn hodnota identifikace polo mod_proc Jen pro zbo , vydan ze skladu (k dy 'MRXS') d mus t M,R,X,Y nebo 'S' mod2proc Nelze nastavit; p epravn daje nechcete tisknout. m2_ftext mod2proc Chybn hodnota identifikace polo mod2proc Jen pro zbo , vydan ze skladu (k dy 'RXS') Tisk Tiskov fronty Konec mod_lib mod_lib faktura p_prist xp_prist RIIS 2.7 POZOR !! P et cen kurzem ji byl proveden !!!! Budou p teny ceny v ech (i polo ky z objedn vky). te mo nosti p tu: a) ceny jsou v K na m b) ceny jsou v , chcete p tat na K a) K --> --> K faktura REZRK QQCOLORE MZAZS IDENT CIZIMENA ZAK_F _MNOZROLE LHLASKA A_FAKT LZOBR_UM IMOD_PROC M1_OBR ST_ZAZ ZOBR_OB MCENA C_CENAZ C_PROPRI DMCENCELK ZOBR_CEN MOD2PROC ACENAJ RUBAKCS RZBOZI DAN_RAD CENA_Z PROC_PRI C_PROC_PRIMTISKHM NASTOBJEM M2_FTEXT C_PRIZOBR_ZTXT ZOBR_OBJEDW_FRONTA X_FRONTA OBR_TI AVOLBA IZOBR_PRN TW_TISKARNAMOD_LIB ZOBR_TFR HLA_FAKT AFAKTURA KLICFA OLDMJAZ MJAZYK CELFAK P_PRIST XP_PRIST BMOD_SYS AZCIZITISKC MPREP LZEMURC W_MENA ENIWVOL OM_AKT LOUVA ISLO_HS P_DISP colorz p_prist xp_prist RIIS 2.7 Tisk dokladu Tisk celn faktury Tisk zahr.dokl. Konec faktura Doklad je nebyl vyti n jako faktura p i aktualizaci! Toto nen zahrani doklad ! faktura REZRK QQCOLORE P_PRIST XP_PRIST MOD_SYS MDRUHTISKUZAK_F HLA_FAKT FAKTURA ZKLICFA STAV_FAKT HLASKA LCIZITISKC CIZIMENA IKURZ OLDMJAZ MJAZYK CELFAK HMOTNOST Ks zbo Kurz: Celkem: Celkem bez DPH: Hmotnost: Zb.bez sl.: Celkem: Cena bez slevy/MJ: Celk. % slevy: MHMOT Z_DPH NZBOZVCETN_KS NZBOZBEZDPKS VAHA_KGJ HTISKUDAN_RAD CIZIMENA PID_ORG HLA_FAKT NJEZAOKR TYP_ZAOKR colorz M1COLOR cursorz colorz Doklad byl vystaven v m Vy aktualizujete v Chcete zm nit m nu ? (a/n): Pokud m nu zm te, p te se saldokonto kurzem nov ny jen tehdy, ukon te-li v zobrazen detailn ch polo !!! Pozor na jednotkov ceny !!! set cursor &Mcur ZMCOLO BOZVCETNMENA W_MENA ZDPMZMEN W_KOEF_MENMLOOP cursorz colorz Doklad byl vystaven v kurzu: FF kurz je: FF Chcete zm nit kurz ? (a/n): Pokud kurz zm te, p te se saldokonto m kurzem tehdy, ukon te-li v zobrazen detailn ch polo set cursor &Mcur ZMCOLO BOZVCETNKURZ W_KOEF_MENMENA MZMEN MLOOP Druh vystaven dodac ho listu: na objedn bez objedn Procento zv ceny materi Generovat jak. a rozm. normu (a/n)? Tisknout cenu u dod. listu (a/n) ? Tisknout hmotn. a objem (a/n) ? Tisknout intern specifikaci (a/n) ? Tisknout polo ku celn ho sazeb.(a/n)? Tisknout obchodn specifikaci (a/n)? Konec: ^End Druh vystaven dodac ho listu: na objedn bez objedn Procento zv ceny materi 999.99 Generovat jak. a rozm. normu (a/n)? Tisknout cenu u dod. listu (a/n) ? Tisknout hmotn. a objem (a/n) ? Tisknout intern specifikaci (a/n) ? Tisknout polo ku celn ho sazeb.(a/n)? Tisknout obchodn specifikaci (a/n)? return to &mm_zpet Tisknout cenu u dod. listu (a/n) ? Tisknout hmotn. a objem (a/n) ? Tisknout intern specifikaci (a/n) ? Tisknout polo ku celn ho sazeb.(a/n)? Tisknout obchodn specifikaci (a/n)? Konec: ^End Nastaven paramet tisku: Tisknout cenu u dod. listu (a/n) ? Tisknout hmotn. a objem (a/n) ? Tisknout intern specifikaci (a/n) ? Tisknout polo ku celn ho sazeb.(a/n)? Tisknout obchodn specifikaci (a/n)? return to &mm_zpet ID_ORG QVOL11 ZOPRAVNENI OZVCETNRR F_MENMTISK2OS PRIRZBOZI MJAKN _MENMTISKC MTISKHM MTISKINT PMCELSAZ MTISKOS cursorz epravn daje dod Konec: ^End, Esc hodnoty Hodnoty pro tisk NETTO: F BRUTTO:F OBJEM: Druh z ho textu: 999999.99 999999.99 hmotnost nem BRUTTO! Colli : FF Pcs in bulk Net : F Gross : F Colli : FF wooden cases Net : F Gross : F Kolli : FF Holzkiste mit Deckel Netto : F Brutto: F Kolli : FF Palleten Netto : F Brutto: F Balen bedna s v Netto : F Brutto: F Balen paleta Netto : F Brutto: F Colli : FF wooden pallets Net : F Gross : F set cursor &Mcursor TAKYTEXT MHMOTN ZMHMOT MOBJEM ETNRECRD F_MENMCURSOR VAHA_KGJ HLA_FAKT WDRUH_TX PDRUH_TXFAKID_ORG FAKHMOT_NETTOHMOT_BRT OOBJEM _ZAOKR OHLASKA TTOZAK_F COLORE CENAZ DZAHR PREDTISK CTXT1 CTXT2 CTXT3 ETTO_RADEK ORADEK A_SKUP SKUPINA FAKTURA KLICFA KLIC_FAK ITEXT ZAVTEXT Druh z ho textu: DRUH_TXFAK wDRUH_TX JMENO_C WJMENO_C ZRADEK_C SLOUPEC_C WDRUH_TX NHLA_FAKT DRUH_TXFAKM_DAT XFAKA RUH_TX MOD_C2 MOD_C1 ZAK_F HLA_FAKT ZHROM_DOKL FORM_FAKT KLICFA FAKTURA MALIAS M4_UC_O ZPICO PZAVOD HLA_FAKT KOD_UCTU NPUCET TXFAKPUSTAV FAKUSTAV colorz faktura Doklad mus t nap ed vyti n jako faktura v ciz v aktualizaci ! m2_ftext c2_ftext+ MCOLOR WDRUH_TX Z_DR_LISTU MPOC_TX HLA_FAKT FAKTURA KLICFA FAKDRUH_TXFAKZAK_F XFAKSTAV_FAKT HLASKA M2_FTEXT KDRUH FAKC2_FTEXT ODRUH_TEXTUTISKNI M5_AKT.DBF2 M5_AKT ident m5_akt ident m5_akt X_IDENT ZZAVRI M5_AKT IDENT DUVOD m4_osl SLEVA SELECT m1_ident.rada FROM &Malias, m1_ident WHERE inlist (&Malias..kod, 'X', 'Y', 'S', 'R') and &Malias..ident = m1_ident.ident into dbf c2_rada p4_sleva C_CAST C_MNOZ KV_SL RADA C_MNOZ KV_SL RADA SLEVA ID_ORG MALIAS ZMCOLOR CKLICFPOR CTYPSLEVY NCELKSLEVANCELKCAST NMNOZSLEVANKVALSLEVANRADASLEVAM4_ORGAN HLA_FAKT FAKZAVOD OTYP_SLEVY M4_OSL CODKUD CENAZ EDTISK C_PROC_PRIPROC_PRI ORADA AP4_SLEVA KATEGORIE NZBOZBEZDPROZH_MNOZ SLEVA_PROCRADASLEVA VYPOCET M_SLEVA RIC2_RADA VAKOD DCENA_Z CENAJ M_SLEVA1 AJEZAOKR ICIZIMENA TSLJEDNCENAKCS DNCENAKS R_TFR DAN_RAD DNCENA6 ID_ORG RADSLEV1 ZRADSLEV2 CIDENT CRADA ZCSLEVA MALIAS C2_RADA M4_OSL HODNOTA_K SLEVA_PROCP4_SLEVA APRIR_CEN ANRADASLEVA CIDENT CRADA ZCSLEVA MALIAS IDENT M1_IDENT CM4_OSL AHODNOTA_K SLEVA_PROCP4_SLEVA APRIR_CEN KNRADASLEVA P4_SLEVA NCELKSLEVAMNOZ5 NZBOZBEZDPPRIR5 LEVAMNOZ4 PRIR4 LEVAMNOZ3 CPRIR3 LEVAMNOZ2 PRIR2 LEVAMNOZ1 APRIR1 LEVAM4_OSL HLAVD_D VAMOBJ MCENA &barvau PROCD_D &barvau @ 5,pom_Sl &vloz ident pict '@!X' colorz ka neexistuje! case role(11) = 'E' and &prac3..kod = 'M' Mod_Proc inlist (kod_pol, 'M','N', 'T','U', 'X', 'Y','Z') Mod_Proc inlist (kod_pol, 'F','P', 'S','A', 'B', 'C','R', 'V', 'I','O') Mod_Proc inlist (kod_pol, 'M','N', 'T','U', 'X', 'Y','Z') Mod_Proc Mod_Proc ident Tuto polo ku nelze vydat, nem MJ ani n m1_npol ident Typ: m1_plan x1_plan @ 6,pom_Sl &vloz umisteni pict '!XXXX' nelze p epsat ! !XXXX m1_um @ 6,pom_Sl &vloz text @ 7,pom_Sl &vloz ks pict '999999.999' function 'ZZZZZZ.ZZZ' if vloz='say' and mhod#&mnaz if vloz='say' and kod = 'O' and mhod#&mnaz m1_um Nedostate soba na um !XXXX ZZZZZZ.ZZZ 999999.999 Nelze vydat, z soba (nebo jej st) je rezervovan na dan !XXXX ZZZZZZ.ZZZ 999999.999 znam o um sob nen stupn S polo kou ve Va em sklad se pracuje, zkuste to za chv !XXXX ZZZZZZ.ZZZ 999999.999 znam celkov sob nen stupn S celk. z sobami polo ky se pracuje, zkuste to za chv !XXXX ZZZZZZ.ZZZ 999999.999 znam celkov sob pro identifikaci nebyl nalezen. !XXXX ZZZZZZ.ZZZ 999999.999 !XXXX ZZZZZZ.ZZZ 999999.999 DodList na Obj. Dod.v d.na Obj Dod.v d.bez Obj cenaj @ 8,pom_Sl &vloz cenaj pict '999999999.999' func 'ZZZZZZZZZ.ZZZ' if vloz='say' and mhod#&mnaz ZZ.ZZ 99.99 ZZ.ZZ 99.99 @ 8+pom_Rad,67 &vloz dan_rad pict '9999999.999' func 'ZZZZZZZ.ZZZ' ZZZZZZZ.ZZZ 9999999.999 @ 9,pom_Sl &vloz dan pict '99.99' function 'ZZ.ZZ' if vloz='say' and mhod#&mnaz @10,pom_Sl &vloz mj pict '@!XXX' MJ wjmeno_c ='&prac3..mj' @11,pom_Sl &vloz nazev pict '@X' @12,pom_Sl &vloz ident_odb sek_ident @pom_RSek,pom_Sl &vloz sek_ident pict '@!X' @pom_RSek,pom_Sl &vloz sek_ident pict '@X' if vloz='say' and kod='H' and (mhod#&mnaz or empty (sek_ident)) Faktura nen lohov a7_faodb cis_fak Faktura nen lohov lohov faktura neexistuje nili jste slo z l. faktury, zm te takt textov m7_faodb cis_fak lohov faktura neexistuje faodb @pom_R,pom_Sl &vloz skp pict '@S11' @pom_R+1,pom_Sl &vloz klic_fak pict '@!X' stred_fak @pom_R+2,pom_Sl &vloz stred_fak pict '@!X' if vloz='say' and (w_akt or hrom_akt) and mhod#&mnaz v1_str x1_str seek &_al..stred_fak edisko neexistuje colorz cursorz mod2proc set cursor &Mcursor proc_pri @pom_R+3,pom_Sl &vloz proc_pri pict '999.999' func 'ZZZ.ZZZ' if vloz='say' and mhod#&mnaz ZZZZZZZZZ.ZZZ 999999999.999 999999999.99 ZZZ.ZZ 999.99 Cena+DPH/po ZZZZZZZZZ.ZZ 999999999.99 VAPOM_SL POM_R DPPOM_RAD VAPOM_RSEK LEVAQ4 LEVAQ6 LEVAQ8 EVAQ9 EVAQ10 SLEVY OPOCET TTOMOBJ MCENA IDENT POM_IDBYL M_IDBYL USPECH W_AKT _PRIHROM_AKT ONAZEV SLEVA M1_IDENT PRAC3 EZDPRADEK KLIC_FAK DASLEVA SLEVA RIPOM_X VAPOM_Z DNASTAV_2 M_COL M_IDENT AM_OBRQ IHLASKA TW_IDENT NAW_MJ NCENAW_NAZEV ID_ORG IZOBR_POL AMOD_PROC AMIDENT MNAZEV MIDENT_ODBIDENT_ODB MSEK_IDENTCEL_SAZ AZDOD_CSAZ SEK_IDENT CIZIMENA M1_NPOL NIMJAZYK IHLA_FAKT LZAVOD NEX1_IDENT JAK_CSN ROZM_CSN LM1_PLAN X1_PLAN MHMOT ST1HMOTNOST 2MJ_VAHY TVAHA_MJ POM_MJP PLAN_MJ AKPOM_KOEF TKOEF RISTRED_FAK MSTRED_FAKVAHA_KGJ TMJAKN MMZAZ SKUPINA _UMIST UMISTENI M1_UM SKLAD UM_SKL TYP_UM KSPAM C_KCSPREPOC_2KCKCS CENAJ DAN_RAD ZAPM2_FT _QRADEK _QSKUP _KUSICKY SM1_KALK KCPL_OD TYP_NAKL OBCH_CENA ZASOBA 2KCTXT SREZERVACE M1_ZAS CKONTR_REZ2REZUMZAS2 MMROLE SZAPIS_OBR CENA_Z 2KCPROC_PRI KCSOUCZOB JMENO_C KCWJMENO_C RADEK_C SLOUPEC_C MOD_C2 MOD_C1 POM_ZALF POM_ZALM POM_ZALKCSPOM_ZALCIZPOM_ZALKURKLICFA M7_FAODB ZNAK_F SMENA ZCAST_CEL SCAST_MEN ZKURZ ALKURA7_FAODB SCIS_FAK RFAODB ZOBRFAKT SPROCD LKCS_AL V1_STR X1_STR MCOLOR NMCURSOR AMSCR ZOBR_STR MOD2PROC AC_PROC_PRI - - Esc,^End - ^Home Pohyb Konec &barvaz Identifikace : : : Cena/MJ : DPH % : jednotka : Text/n zev : Exter.identifik.: SKP : fakturace : edisko : Rabat % : sazebn ....|...10....|...20....|...30....|...40....|...50....|...60 Text : Cena/MJ : DPH % : MJ : SKP : fak.: edisko: Rabat % : l.fak. : ZZZ.ZZZ 999.999 Cena bez slevy/MJ : Obchod.cena bez DPH : DPH celkem : Cena celk. v DPH: &barvau (vazba na po objedn vky z dej ze skladu mimo objedn (obal - z evidence obal (pozn mka k obalu) (textov dek faktury) (baln platn epravn , dovozn (opot obalu) (sleva na zbo z celkov ceny zbo loha) w+/bg na : w+/bg Kurz : w+/bg stka v K : (jakostn a rozm norma po objedn (jakostn a rozm norma v deje ze skladu) (vazba na po objedn vky pro nevyr polo ky bez generov obrat (sleva na konkr dej obalu ze skladu) POM_ID POM_SL VAPOM_R POM_RAD DPPOM_RSEK APOM_TEXT AKLIC_FAK CSTRED_FAK PROC_PRI ZZZZZZ.ZZZ 999999.999 ZZZZZZZZZ.ZZZ 999999999.999 ZZ.ZZ 99.99 ZZZ.ZZZ 999.999 ZZZZZZZZZ.ZZZ 999999999.999 ZZZZZZZZZ.ZZZ 999999999.999 ZZZZZZZ.ZZZ 9999999.999 ZZZZZZZZZ.ZZZ 999999999.999 deciz 999999.9999999 ZZZZZZZZZ.ZZZ 999999999.999 POM_ID POM_SL VAPOM_R POM_RAD DPPOM_RSEK AIDENT UMISTENI ANAZEV CIDENT_ODB SEK_IDENT ACENAJ EVADAN EVAMJ EVASKP KLIC_FAK STRED_FAK PROC_PRI CENA_Z TODAN_RAD ZDECI IDBYL colorz &barvau ZZ.ZZ 99.99 ZZZZZZZZZ.ZZZ 999999999.999 ZZZZZZZZZ.ZZZ 999999999.999 ZZZZZZZ.ZZZ 9999999.999 ZZZZZZZZZ.ZZZ 999999999.999 ZZZ.ZZZ 999.999 deciz ZZZZZZZZZ.ZZZ 999999999.999 MMCOLOR CENA_OB VACENAJ DPM_XDAN DAN_RAD CPOM_SL POM_RAD CENA_Z POM_R APROC_PRI EVAZDECI EVAYXX IDENT_ODB SOUCZOB m_param m_param m4_organ colorz Zdroj v Faktury Archiv faktur m7_faodb cis_fak s761a znak_f='2' and ico =w_ico and zav =w_zav a7_faodb cis_fak s761a znak_f='2' and ico =w_ico and zav =w_zav POM_ARCH PAR_POLE AW_ICO W_ZAV DPMMCOLOR APOM_OBR W_FAK APOM_VOLBA HLA_FAKT ZAVOD M_PARAM APOLE7 AM4_ORGAN AORGAN EVAFAODB M7_FAODB CIS_FAK ZOBR_FAK S761A OA7_FAODB POM_ZALF POM_ZALM POM_ZALKCSCAST_CEL POM_ZALCIZCAST_MEN POM_ZALKURKURZ cursorz Tisk na tisk Zobrazen na obrazovku Soubor pro WINDOWS enos do souboru TXT Zobrazen na obrazovku set cursor &Mcursor TAKYTEXT MCURSOR AMDRUHTISKUA pathz colorz te disketu a zm te ENTER ... !&pth\test_d &sach ERROR Disketa nebyla vlo Disketa nebyla vlozena mkdir set default to &sach set default to &drive =adir(f_info,'&m_txt') sta na disket mkdir Prob enos ... !copy &m_txt &plna_ces > nul AW_EXP ISKUMMI DPMMSCR APLNA_CES ADRIVE FREESPACE F_INFO F_SIZE MPOZSPACE _PATH AMCOL ACES_EXP VATEST W_CESTINA HLASKA MKDIR MJMENO cursorz _oOescrzyaieuuESCRZYAIEUUdtnDTN_ pathz colorz Zadejte jm stupn ho souboru: Zadejte plnou cestu c le exportu: (Pokud adres neexistuje, bude vytvo uje-li podm nky MS-DOSu pro MKDIR.) set cursor &Mcursor Cesta nebyla zad Cesta nesm obsahovat mezery ! no nebylo zad set cursor &Mcursor MCURSOR M_EXIT ISKUKLICFA DPSTRM NA_CES MDRUHTISKUM_TXT M_TXT1 _PATH AOBEX AMMPOM VAMJMENO CES_EXP HLASKA MMCEST &barvas POM_OBR POCET APOM_POCET DPPOM_Q NA_CES POM_X POM_R ISKUU POM_U POM_T APOM_Z S_EXP POM_IDBYL Nelze aktualizovat objedn vku, se souborem se pracuje ! se pr odbytov n ... do moderror with sys(16),error(),lineno(1) HLASKA AMEXIT MODERROR PMOD27F3 ZAHLAVI KONEC DOD_LIST CINNOSTI ZOBRS1 ZMENAS1 ZMENS1 ZOBRS2 ZMENAS2 ZMENS2 HLAVA3 NAPLROLE PROC3 ZMENY TISKNI KVYPLN KCIZMEN ZAPM2_FT ZAPSALDO PROC1 ZMEN1 NAVRAT1 :\IOF NAVRAT2 ZBYTEK MENU01 MENU0A MENU1 MENU2 HLAVAF PROC2 ZMEN2 PREPOC_KCS FORMULAR RUSENI ZRUS_POR ADRESA ZOBRTEXT SALDO NAPLN_ADR HLASKA ZOBRAZFAK FNASTAV OPRAVNENI KONTR_REZ KONTR_REZ2 REZUMZAS REZUMZAS2 ZAPIS_OBR OBCH_CENA VOLBA VOLBA1 HMOTNOST SOUCZOB JINAMENA JINYKURZ OBJROZH NASTOBJEM ZAVTEXT EXISTZB VLASTUCET CIZITISKC ZAPIS_AKT NAJDISLEVU RADASLEVA RADSLEV1 RADSLEV2 VYPOCET HLAVD PROCD ZMEND MENUD HLAVD_D PROCD_D PREPOC_2KC ZOBRFAKT NASTVYST EXPPOL NASTSOUBOR NASTAV_2 CHYBA P:\IN\SK\O\02\ MOD27F3.FXP P:\IN\SK\O\02\MOD27F3.PRG