A k t u a l i z a c e objedn RIIS 4.2 Funkce Qfunkce Aktual Aktual s423a Zadejte objedn vku : m_param m4_obj objed m4_pobj objed m4_pobjd objed m4_organ m5_plan zakazka m4_pobjt objed m1_ident ident m4_dodm ident1 Objedn m4_obj.mat_obj m4_obj.mat_obj zev organizace m4_obj.nazev_org m4_obj.nazev_org m4_obj.ico m4_obj.ico m4_obj.zavod+' ' m4_obj.zavod m4_obj.stav+' ' m4_obj.stav Dat.vys. trans(m4_obj.datum_v,'@E') m4_obj.datum_v slo KS m4_obj.cislo_ks m4_obj.cislo_ks Datum KS trans(m4_obj.datum_ks,'@E') m4_obj.datum_ks Dat.odesl. trans(m4_obj.datum_o,'@E')+' ' m4_obj.datum_o Ulice m4_obj.ulice m4_obj.ulice m4_obj.mesto m4_obj.mesto m4_obj.psc m4_obj.psc Dod.lh m4_obj.dod_lhuta m4_obj.dod_lhuta sob dopravy m4_obj.zpus_dopr m4_obj.zpus_dopr sto ur m4_obj.misto_ur m4_obj.misto_ur Stanice ur m4_obj.csd m4_obj.csd_okrsek Okrsek m4_obj.csd_okrsek m4_obj.csd_okrsek izuje m4_obj.vyrizuje m4_obj.vyrizuje Dopravn dispozice (1) LEFT(m4_obj.dop_disp,50) m4_obj.dop_disp Dopravn dispozice (2) RIGHT(m4_obj.dop_disp,50) m4_obj.dop_disp Intern pozn m4_obj.pozn m4_obj.pozn MM_TYP witAKTDODM 1ANSI POLEX PROCX dcasRTOP RBOT CLEFT CRIGHT FREEZE gORDER HOR DOL endif PRAVA NADPIS ZAHL JMENO endiHODN SOUC t c4_TITLE TITLECOLORPOC0 konecF1 F2 y='2' aF3 men_dodF4 F6 ozpust ENDIF9 ENDCAF10 F0PRG ***F1ON *****F1PRG ****F4_JM ****F4PRG TISKPRG e F7_JM saF7PRG en tF9PRG WF9KEY matF9KEY1 az2F10_JM F10PRG reeRAMECEK rxRIIS dNAZEVT .t.KLICO toreKLNAZ froSPACEBAR TR_HL1 or TR_HL2 b/wTR_HL3 29 TR_HL4 18TR_HL5 10,TR_HL6 ,53TR_HL7 TR_HL8 ay TR_HL9 vkaDET_JM triENTER DETAIL 1 pDETPRG PS_LINE PS_RETURN PS_ZAZN ptM_PARAM bjAKTARCHDM POLE4 ,31 AKTPRIODM M4_OBJ vOBJED @M4_POBJ mpM4_POBJD M4_ORGAN @15,31M5_PLAN UZAKAZKA bjM4_POBJT M1_IDENT oIDENT onecM1IDENT M4_DODM nuIDENT1 MOD_PSV l4_M_ULICE r_M_MESTO o_M_STAT _M_PSC vo_M_DALNOPI_M_TELEFON_M_FAX _M_ICO vol_M_FIRMA s_M_DISP m_M_USTAV h_M_UCET if_M_DICP _u_M_NAZEV U_M_NAZ_2 u_M_ZAV uliPEMAIL estMEMAIL S objedn vkou pracuje n kdo jin znam nen stupn 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 &barvau witOBRA1 1TXT HLASKA PS_LINE asW_POLE M4_OBJ NOVY_Z ZMENA JMENO_C gWJMENO_C RADEK_C SLOUPEC_C Q1 Q3 endiQ5 CISELNIK DOL ECOLORPOCET konecDOP2 POR ='2' aCOUNT _dodZAKAZNIK POMOC ENDIRAD ENDCASL ***KONTROLA *BARVAS ***BARVAR ***BARVAZ BARVAU e BARVAN saBARVAH n tKS WMENU1 matBARVA az2PORADI1 KONEC toreU froT ACEBAR b/wMM_POM 29 ZMENY 18PS_RETURN Aktualizace objedn smlouva : Datum vystaven KS : Datum odesl KS : - - ^End,Esc Pohyb Konec - @!XXXXXXXXXXXX W_POLE @ 16,60 &vloz w_pole(13) picture '@!XXXXXXXXXXXX' @ 18,60 &vloz w_pole(14) picture '@E' @ 19,60 &vloz w_pole(15) picture '@E' ZMENA DO PROC&Y DO ZMEN&Y with 'get' DO ZMEN&Y with 'say' s422c it pr ci beze zm n? (a/N) a4_dodm m1Ident m4_dodm KONEC X DOL HOR MENO_C UPEC_C _A PRIJSCR QPRIJ S422C endiQ POCET _ZMENA POM ECOLORW_POLE ZMEN_DOD cROZPUST M4_DODM aAKTDODM odAKTARCHDM W_ARCH MM_AUTOR IW_DODM DCAAKTPRIODM QAWRE ***PRIOR *IDENT ***C4_POBJ Objedn vka:F objedn Text objedn vky Tisk objedn vky objedn Uzav objedn Konec _M_ulicef m_param m4_uc_o et s k dem ' ' neexistuje! m4_adr daje o vlastn firm daje o vlastn firm m4_tobj objed a4_tobj objed c4_text+ c4_text m4_obj objed m4_pobj objed m4_pobjd objed a4_obj objed a4_pobj objed a4_pobjd objed m1_ident ident s422a select &_alias Opravdu zru it objedn vku (a/n) ? m5_dnp zakazka m5_dnp zakazka m4_tobj objed _AOBR witW_COBJ 1MAT_OBJ _ZAZ2 _AOBRX asVOL4 QPORADI QTEXTY MOD_SYS _M_ULICE g_M_MESTO _M_STAT _M_PSC _M_DALNOPI_M_TELEFON_M_FAX _M_ICO _M_FIRMA i_M_DISP _M_USTAV __M_UCET _M_DICP OR_M_NAZEV _M_NAZ_2 c_M_ZAV PEMAIL aMEMAIL od_ZAZ _ALIAS M_PARAM IPATH0 DCAPT_OBEC ***ZAVOD *POLE4 ***M4_UC_O M4_OBJ VL_KOD_UCTUSTAV aUCET tHLASKA WM4_ADR UCTMESTO 2NAZEV_ORG NAZEV_ORG2ULICE xSTAT .t.DALNOPIS ITELEFON ONFAX E_MAIL or M4_ORGAN NDICP MM_TYP 8M4_TOBJ OBJED ,53A4_TOBJ C4_TEXT y HLAOBJ kaM4_POBJ riPOROBJ M4_POBJD pDETOBJ A4_OBJ A4_POBJ A4_POBJD tM1_IDENT jIDENT TISK_OBJ S422A vZRUS @M5_DNP mpZAKAZKA PORADI yPOR_OBJ 1M4_POBJT USTAV jPS_RETURN c4_pobj+ mi objedn vky pracuje n kdo jin , nelze aktualizovat. c4_pobj Objedn vka nem Aktualizace po objedn vky F RIIS 4,2 Aktualizace po objedn vky F Detail det_por Aktual Akt_por s423a Zadejte po str(c4_pobj.poradi,3) c4_pobj.poradi c4_pobj.ident c4_pobj.ident zev polo c4_pobj.nazev c4_pobj.nazev m1Ident.typ m1Ident.typ K dod [MJ] ' '+str(c4_pobj.mno_mj,12,3) c4_pobj.mno_mj c4_pobj.mj c4_pobj.mj c4_pobj.plan_mj+' ' c4_pobj.plan_mj K dod [Pl.MJ] ' '+str(c4_pobj.mno_plmj,12,3) c4_pobj.mno_plmj Potvrzeno[Pl.MJ] ' '+str(c4_pobj.mno_po,12,3) c4_pobj.mno_po Dod no[MJ] str(c4_pobj.mno_ov,12,3) c4_pobj.mno_ov Vadn ch[MJ] str(c4_pobj.mno_zm,12,3) c4_pobj.mno_zm Storno[MJ] str(c4_pobj.mno_st,12,3) c4_pobj.mno_st statek[MJ] str(c4_pobj.mno_kdo,12,3) c4_pobj.mno_kdo Dat.po ad.dod. trans(c4_pobj.datum_pd,'@E')+' ' c4_pobj.datum_pd Datum potvrz. trans(c4_pobj.datum_po,'@E')+' ' c4_pobj.datum_po Identifikace c4_pobj.sek_ident c4_pobj.sek_ident Koeficient str(c4_pobj.koef,11,4) c4_pobj.koef Cena/Pl.MJ str(c4_pobj.cena_plmj,10,2) c4_pobj.cena_plmj Extern identifikace m1Ident.ident_odb m1Ident.ident_odb m1Ident.rada m1Ident.rada RIIS 4.2 QQSEL witOBR2 1MOD_SYS Q1QZAZN PS_LINE asCISOBJ MAT_OBJ M4_POBJ C4_POBJ W_COBJ gHLASKA PORADI XC4_POBJ IDENT NOPIM1IDENT ONTXT M4_OBJ PS_RETURN POLEX PROCX _RTOP RBOT ORCLEFT CRIGHT cFREEZE ORDER aHOR odDOL PRAVA INADPIS DCAZAHL JMENO ***HODN *SOUC ***TITLE TITLECOLORPOC0 D_UCTF0 UCTF4 EV_ORG EV_ORG2F9 dF0PRG .t.F1ON IF1PRG ONF4_JM F4PRG or TISKPRG NF7_JM F7PRG 8F9PRG F9KEY ,53F9KEY1 F10_JM y F10PRG kaRAMECEK riRIIS NAZEVT pKLICO KLNAZ SPACEBAR TR_HL1 tTR_HL2 jTR_HL3 TR_HL4 TR_HL5 TR_HL6 vTR_HL7 @TR_HL8 mpTR_HL9 DET_JM yENTER 1DETAIL UDETPRG jPS_ZAZN MOD_PSV ecA_POLE 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 &barvau KA NEEXISTUJE !! witOBRA2 1PS_LINE AKTDODM M4_DODM asW_DODM C4_POBJ IDENT M4_OBJ ICO gZAVOD DODMPOC W_POLE NOVY_Z OPIZMENA ONJMENO_C WJMENO_C RADEK_C SLOUPEC_C CISELNIK odDOL POCET IDOP2 DCAPOR COUNT ***ZAKAZNIK *ZMEN_DOD *_HODN POMOC OLORY D_UCTRAD tPOC WKONTROLA TBARVAS 2BARVAR BARVAZ RG2BARVAU xBARVAN dBARVAH .t.KS IMENU2 ONBARVA PORADI2 r KONEC MECEK riROZPISKA ZMENY pPS_RETURN . FFF K dod [MJ] : K dod [Pl.MJ] : Potvrzeno[Pl.MJ] : no [MJ] : ch [MJ] : Storno [MJ] : statek [MJ] : Koeficient : Cena/1 PlMJ: Datum po Datum potvrz.v KS : Akt.ceny a pozn.dodav.mat.: Cena/1 PlMJ: W_POLE - - F10 - ^End,Esc Pohyb jem polo Konec - 99999999.999 99999999.999 99999999.999 99999999.999 99999999.999 99999999.999 99999999.999 9999999.9999 9999999.99 9999999.99 W_POLE witW_DODM @ 12,31 &vloz w_pole(11) picture '99999999.999' 99999999.999 99999999.999 @ 14,31 &vloz w_pole(12) picture '99999999.999' @ 15,31 &vloz w_pole(14) picture '99999999.999' 99999999.999 @ 16,31 &vloz w_pole(15) picture '99999999.999' 99999999.999 @ 17,31 &vloz w_pole(16) picture '99999999.999' 99999999.999 @ 13,64 &vloz w_pole(19) pict '9999999.99' @ 14,71 &vloz w_pole(3) picture '@E' @ 15,71 &vloz w_pole(4) picture '@E' @ 18,68 &vloz W_dodm(6) pict '9999999.99' @ 19,51 &vloz W_dodm(5) pict '@S28' 1_HODN W_POLE ZMEN_DOD ZMENA colora set color to &Hcolor witHCOLOR 1HOBR c4_pom+ c4_pom xc4_pom m4_pobjd witPORADI 1MNODOD MNO_OV OBRR sMOD_SYS M4_POBJD CISOBJ C4_POM MAT_OBJ gDATUM_PD XC4_POM ALL MNO_MJ OPIA_POLE NM5_PLAN ZAKAZKA CPOL C4_POBJ Detail po Specifikace po Konec MAOBR witM_ZAZ2 1MAOBRX MVOL4 PS_LINE sW_COBJ MAT_OBJ MALIAS DETNP TEXTPOR gPS_RETURN c4_pobjd+ c4_pobjd xc4_pom1 detail ! ehled detailu po objedn vky RIIS 4,2 Detail po Aktual Akt_pord s423a Zadejte datum po adovan ho dod Dat.po .dod. trans(c4_pobjd.datum_pd,'@E')+' ' c4_pobjd.datum_pd k.zak. c4_pobjd.zakazka c4_pobjd.zakazka c4_pobjd.cpol+' ' c4_pobjd.cpol K dod str(c4_pobjd.mno_mj,12,3)+' ' c4_pobjd.mno_mj Dodan str(c4_pobjd.mno_ov,12,3) c4_pobjd.mno_ov statek[MJ] str(c4_pobjd.mno_mj-c4_pobjd.mno_ov,12,3) c4_pobjd.mno_mj-c4_pobjd.mno_ov RIIS 4.2 witMOD_SYS 1ZAZN3 CISOBJ MAT_OBJ sCISPOR PORADI M4_POBJD C4_POBJD DATUM_PD gXC4_POM1 HLASKA C4_POBJ IPS_RETURN POLEX PROCX RTOP CLEFT _CRIGHT FREEZE ORORDER LEVA aPRAVA odNADPIS JMENO IHODN DCASOUC TITLE ***TITLECOLORPOC0 OLORF2 D_UCTF3 TROLA F0PRG RG2F1ON xF1PRG dF4_JM .t.F4PRG ITISKPRG ONF7_JM F7PRG r F9PRG NF9KEY F9KEY1 8F10_JM F10PRG ,53RAMECEK RIIS y NAZEVT kaKLICO riKLNAZ SPACEBAR pTR_HL1 TR_HL2 TR_HL3 TR_HL4 tTR_HL5 jTR_HL6 TR_HL7 TR_HL8 TR_HL9 vDET_JM @ENTER mpDETAIL DETPRG yPS_LINE 1PS_ZAZN jMOD_PSV c4_pobjt+ c4_pobjt objedn vky nem specifikaci ! ehled specifikace po objedn RIIS 4,2 ehled specifikace po objedn s423a c4_pobjt.text_tx c4_pobjt.text_tx RIIS 4.2 witMOD_SYS 1ZAZN3 CISOBJ MAT_OBJ sCISPOR PORADI M4_POBJT C4_POBJT gHLASKA C4_POBJ PS_RETURN POLEX IPROCX RBOT CLEFT CRIGHT FREEZE _ORDER HOR ORDOL cPRAVA NADPIS aZAHL odJMENO ITITLE DCATITLECOLORPOC0 ***F0 LECOLORF1 OLORF4 D_UCTF6 TF0PRG 2F1ON F1PRG RG2F4_JM xF4PRG dTISKPRG t.F7_JM IF7PRG ONF9PRG F9KEY r F9KEY1 NF10_JM F10PRG 8RAMECEK ,53NAZEVT KLICO y KLNAZ kaSPACEBAR iTR_HL1 TR_HL2 pTR_HL3 TR_HL4 TR_HL5 TR_HL6 tTR_HL7 jTR_HL8 TR_HL9 DET_JM ENTER vDETAIL @DETPRG mpPS_LINE PS_ZAZN 1MOD_PSV Aktualizace detailu po k dod v MJ 99999999.999 Nelze zru it, po adavek vznikl z oper. pl Nelze nav OBRAD witMNOKDOD 1MNO_MJ CISPOR PORADI sPS_LINE MENU3 C4_POBJ ROZPISKA gM4_POBJD W_COBJ C4_POBJD HLASKA IPS_RETURN CISOBJ - - ^Home - Esc - ^End Pohyb Konec bez ulo Konec s ulo m4_tobj objed c4_tobj+ c4_tobj Objedn vka nem naveden text ! Text objedn vky: F RIIS 4,2 Text objedn vky: F s423a c4_tobj.text c4_tobj.text RIIS 4.2 witMOD_SYS 1QTQZAZN _ALIAS PS_LINE sCISOBJ MAT_OBJ M4_TOBJ OBJED C4_TOBJ HLASKA PS_RETURN POLEX IPROCX RBOT CLEFT CRIGHT FREEZE _ORDER HOR ORDOL cPRAVA NADPIS aZAHL odJMENO ITITLE DCATITLECOLORPOC0 ***F0 LECOLORF1 OLORF4 D_UCTF6 TF0PRG 2F1ON F1PRG RG2F4_JM xF4PRG dTISKPRG t.F7_JM IF7PRG ONF9PRG F9KEY r F9KEY1 NF10_JM F10PRG 8RAMECEK ,53NAZEVT KLICO y KLNAZ kaSPACEBAR iTR_HL1 TR_HL2 pTR_HL3 TR_HL4 TR_HL5 TR_HL6 tTR_HL7 jTR_HL8 TR_HL9 DET_JM ENTER vDETAIL @DETPRG mpPS_ZAZN MOD_PSV 1S423A radek% AKTUAL PORADI1 MENU1 PROC1 && pu ZMEN1 ZMENY QFUNKCE t ci% QPORADI AKT_POR PORADI2 ar=qM MENU2 to b'Q PROC2 &\R ZMEN2 mecku HLASKA ROZPUST DET_POR DETNP TEXTPOR AKT_PORD MENU3 zmeny2x QTEXTY Z:\RIIS\ S423A.FXP Z:\RIIS\S423A.PRG