000000 znam! Zadejte slo faktury: |........... Odsouhl. Funkce Hodn. Hod_Ud with Cis_Fak, nazevt s758a Stav dodav. faktur a hrad do data zda RIIS 7.5 s. faktury FaDod.Cis_Fak FaDod.Cis_Fak FaDod.ICO FaDod.ICO FaDod.Zav FaDod.Zav zev organizace left(m4_Organ.Nazev_Org,33) left(m4_Organ.Nazev_Org,33) Var. symbol FaDod.Vars_S FaDod.Vars_S Celkem K str(FaDod.Cast_Cel,12,2) FaDod.Cast_Cel Zapl. ke dni str(FaDod.Zap_Cel,12,2) FaDod.Zap_Cel Zapl. dosud str(FaDod.Zap_Dosud,12,2) FaDod.Zap_Dosud Da str(FaDod.Dan_Cel,12,2) FaDod.Dan_Cel Z str(FaDod.Zal_Cel,12,2) FaDod.Zal_Cel FaDod.Ucet_Dod FaDod.Ucet_Dod Dat.spl. trans(FaDod.Dat_Spl,'@E') FaDod.Dat_Spl Dat.zap. trans(FaDod.Dat_Zap,'@E') FaDod.Dat_Zap Dat.p trans(FaDod.Dat_Odes,'@E') FaDod.Dat_Odes Celkem m str(FaDod.Cast_Men,12,2) FaDod.Cast_Men Zaplac. m str(FaDod.Zap_Men,12,2) FaDod.Zap_Men FaDod.Mena+' ' FaDod.Mena Kurz str(FaDod.Kurz,14,7) FaDod.Kurz m4_Organ.Dicp m4_Organ.Dicp FaDod.Znak_F+' ' FaDod.Znak_F Konst.Sym. FaDod.Kons_S+' ' FaDod.Kons_S Zdan.Pl. trans(FaDod.Dat_Pri,'@E') FaDod.Dat_Pri FaDod.Stav_Fa+' ' FaDod.Stav_Fa Dat.Sm trans(FaDod.Dat_Smir,'@E') FaDod.Dat_Smir trans(FaDod.Dat_Uct,'@E') FaDod.Dat_Uct Autor FaDod.Autor FaDod.Autor FaDod.Zapoc+' ' FaDod.Zapoc str(FaDod.Zal_Vypl,12,2) FaDod.Zal_Vypl FaDod.Pozn FaDod.Pozn POM_DATZDPPOM_CISODZPOM_CIZIM POM_JEDOBRDEJ_RIIS7 OTEVRI PRUBSALDA FADOD IHLASKA IPOLEX IPROCX IRTOP DRBOT DCLEFT ACRIGHT FREEZE AORDER ILEVA PRAVA NADPIS JMENO PSOUC TITLE TITLECOLORPOC0 _ODES T_CEL MKAF7 OLORF10 F0PRG ?F1ON NIF1PRG F4_JM BF4PRG TISKPRG F7_JM F7PRG F9PRG F9KEY F9KEY1 LORF10_JM RF10PRG ?RAMECEK ORRIIS 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 MOD_PSV m_Param m7_OdZ Cis_OdZ m4_Uc_O m4_Organ m7_FaDod Cis_Fak c7_FaDod c7_FaDod c7_FaDod Cis_Fak m7_HoDod Cis_Fak m7_LiDod Cis_Fak m7_PeDod Cis_Fak m7_TUP Skupina m7_Desk Skupina M_PARAM POM_CIZIM POLE7 SODZM7_ODZ CIS_ODZ BRPOM_CISODZM4_UC_O M4_ORGAN IM7_FADOD ICIS_FAK IC7_FADOD DDAT_SPL DPOM_DATSPLZAP_CEL CAST_CEL AFADOD IM7_HODOD IHODOD IM7_LIDOD LIDOD M7_PEDOD PEDOD M7_TUP SKUPINA M7_DESK SNASTAV_RE filterz colorz orderz Cis_Fak Prob obnova p ehledu ... C_PSV index on &pom_Index tag &cps_dbf of &cps_cdx &pom_NDesc index on &pom_Index tag &cps_dbf of &cps_cdx for &pom_Podm &pom_NDesc c_Oznac POM_ALI POM_ORD POM_VETA ZPOM_FILT MMCOLOR BRPOM_OBR DZPOM_DBF POM_TRIDENPOM_INDEX POM_NDESC POM_PODM M_DBF IW_FAK DMOD_SYS DFADOD TSPLCIS_FAK NDESCENDINCPODMV IS751A IMESS INASTAV_RELC_OZNAC DEJ_STAV filterz colorz c_Oznac Nebyly vybr ny (vysv ceny) znamy. c_Oznac, r (rozd O) ! r (rozd vod) ! 000000 Esc - konec Chcete zalo it odsouhlasen vazku 999999 Ano / Ne c_Oznac.dbf Toto odsouhlasen vazku ji existuje ! c_Oznac, m7_OdZ c_Oznac.dbf POM_ZAZNAMPOM_ZALOZ POM_ICO ZPOM_ZAV POM_ALI BRPOM_ORD DZPOM_VETA POM_FILT NMMCOLOR POM_OBR HLASKA IDEJ_STAV IC_OZNAC DZAZNAM AMFADOD TSPLICO AMZAV INM7_ODZ IPOM_CISODZCIS_ODZ M_CISODZNTRGPZAZ PS_RETURN CIS_FAK VARS_S DAT_SPL DAT_PRI RECAST_CEL DAN_CEL ORDAT_ODZ KC_DAT_ODZDAT_AKT AKC_DAT_AKTPOM_DATZDPZAP_CEL IZAP_DOSUD set filter to &pom_Filt POM_ALI AMPOM_ORD POM_VETA ZPOM_FILT MMCOLOR FADOD AMUCET_DOD M4_UC_O BRM4_ORGAN Stav faktur a hrad k zadan mu datu zdaniteln ho pln Nejd ve se vyberou faktury s datem zdaniteln ho pln zadan datum. Bere se jak aktu , tak i archivn soubor. hrady t chto faktur se berou takt jen do tohoto zadan ho data. chto podm nek se z hodnotov te stav saldokonta tak, jak skute k zadan mu datu byl. Zobraz se jenom faktury nezaplacen nebo p eplacen Faktury zaplacen zcela se nezobraz ! Zadejte datum zdaniteln ho pln Prob prava dat ... RIIS 7.5 m7_FaDod c7_Fakt a7_FaDod c7_FaktA RIIS 7.6 m7_FaOdb c7_Fakt a7_FaOdb c7_FaktA c7_Fakt c7_Fakt Cis_Fak c7_FaktA c7_Fakt Cis_Fak POM_DODODBDEJ_RIIS7 _UC_O ZPOM_DATZDPMOD_SYS BRMESS ZHODOD DODBDAT_V_Z NA_HODOD DPRIIS ATZDPDAT_PRI IHLDAT IZAP_CEL DZAP_DOSUD M7_FADOD LC7_FAKT DPA7_FADOD C7_FAKTA PHOODB SODZA_HODODB PM7_FAODB A7_FAODB ETURN CIS_FAK ZAL_VYPL ZAL_MEN REZAL_CEL ZAP_MEN ORDAT_ZAP PREPISFAK CAST_CEL BFADOD KTNASTAV_REL filterz colorz HoDod a_HoDod Cis_Fak Cis_Fak a_HoDod HoDod if MaxDatZap < &pom_Dbf..Dat_V_Z and not inlist(&pom_Dbf..Druh_H, "2","3","9") MaxDatZap =&pom_Dbf..Dat_V_Z case &pom_Dbf..Druh_H = "2" SumM =SumM + &pom_Dbf..Cast_Men SumKc =SumKc + &pom_Dbf..Cast Zal_Fak SumZalM =SumZalM + &pom_Dbf..Cast_Men SumZal =SumZal + &pom_Dbf..Cast Zal_Fak SumZalM = SumZalM + &pom_Dbf_D..Cast_Men SumZal = SumZal + &pom_Dbf_D..Cast case &pom_Dbf..Druh_H = "3" SumZapM =SumZapM + &pom_Dbf..Cast_Men SumZap =SumZap + &pom_Dbf..Cast SumZapM =SumZapM - &pom_Dbf..Cast_Men SumZap =SumZap - &pom_Dbf..Cast if MaxDatZap < &pom_Dbf..Dat_V_Z MaxDatZap =&pom_Dbf..Dat_V_Z Zal_Fak SumDobrM =SumDobrM + &pom_Dbf..Cast_Men SumDobr =SumDobr + &pom_Dbf..Cast Zal_Fak SumDobrM =SumDobrM + &pom_Dbf_D..Cast_Men SumDobr =SumDobr + &pom_Dbf_D..Cast if inlist(&pom_Dbf..Druh_H, "1","4","5","6","7","D","K") SumZapM =SumZapM + &pom_Dbf..Cast_Men SumZap =SumZap + &pom_Dbf..Cast if &pom_Dbf..Druh_H = "9" SumPrikM =SumPrikM + &pom_Dbf..Cast_Men SumPrik =SumPrik + &pom_Dbf..Cast Cis_Fak Cis_Fak Cis_Fak POM_CISFAKPOM_CISZALPOM_DBF ZPOM_DBF_D POM_HODVETPOM_NASEL SUMZALM DBSUMZAL NSUMZAP DPSUMZAPM DPSUMM ISUMKC ISUMPRIK DSUMPRIKM MAXDATZAP POM_ALI DPPOM_ORD POM_VETA PPOM_FILT ZMMCOLOR PCIS_FAK CIS_F_ZAL ZAL_FAK ALDRUH_H ZALC7_FAKT ALZAL_VYPL ZAL_MEN PAR_POLE EPOM_DODODBSUMDOBR ORSUMDOBRM ZAL_CEL AKZAP_CEL BZAP_MEN KTDAT_ZAP ELPR_CEL ODBPR_UHR DEJ_STAV m_Param m7_OdZ Cis_OdZ m4_Uc_O m4_Organ m7_FaDod Cis_Fak a7_FaDod Cis_Fak m7_HoDod Cis_Fak a7_HoDod Cis_Fak m7_LiDod Cis_Fak m7_PeDod Cis_Fak m7_TUP Skupina m7_Desk Skupina M_PARAM AKPOM_CIZIM POLE7 ZPOM_JEDOBRM7_ODZ VETCIS_ODZ POM_CISODZM4_UC_O NUCET DPM4_ORGAN IM7_FADOD ICIS_FAK DA7_FADOD M7_HODOD HODOD DPA7_HODOD A_HODOD PM7_LIDOD ZLIDOD PM7_PEDOD PEDOD M7_TUP ALSKUPINA ALM7_DESK colorz RIIS 7.5 MMCOLOR filterz colorz c7_HoDod c7_HoDod+ c7_HoDod c7_HoDod s758a RIIS 7.5 Hodnotov daje faktury c7_HoDod.Druh_H+' ' c7_HoDod.Druh_H h/vys trans(c7_HoDod.Dat_V_Z,'@E') c7_HoDod.Dat_V_Z c7_HoDod.Mena+' ' c7_HoDod.Mena stka/m str(c7_HoDod.Cast_Men,12,2) c7_HoDod.Cast_Men Kurz str(c7_HoDod.Kurz,14,7) c7_HoDod.Kurz stka v K str(c7_HoDod.Cast,12,2) c7_HoDod.Cast Doklad c7_HoDod.Cis_F_Zal c7_HoDod.Cis_F_Zal POM_CISFAKPOM_NAZT POM_ALI KPOM_ORD BRPOM_VETA TPOM_FILT MMCOLOR DZPOM_OBR NPOM_DBF DPPOM_TRIDENPOM_INDEX POM_NDESC POM_PODM DC7_HODOD HODOD A_HODOD AKCIS_FAK KPS_LINE KPOLEX ZPROCX PRTOP CLEFT ALCRIGHT ALFREEZE ALORDER ELEVA ODODBPRAVA ORNADPIS AKJMENO BHODN KTSOUC ELPSOUC ODBTITLE TITLECOLORPOC0 F0PRG F1PRG LORF4_JM RF4PRG ?TISKPRG ORF7_JM F7PRG F9PRG F9KEY *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 BDET_JM ENTER DETAIL DETPRG PS_RETURN PS_ZAZN ACEBAR ?MOD_PSV AKDEJ_STAV S758A VYTV_ODZ SOTEVRI DETAIL FUNKCE DEJ_STAV NASTAV_REL PRUBSALDA PREPISFAK OTEVRI DEJ_RIIS7 HOD_UD P:\IN\SK\O\07\ S758A.FXP P:\IN\SK\O\07\S758A.PRG