Chip 1999 June

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

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

Wrap

MS Visual FoxPro App | 1999-04-15 | 10KB | 246 lines

RIIS 7.0 faktury, inkasa, z lohy, dobropisy Bez penaliza ch faktur penaliza ch faktur Jen samotn penaliza faktury faktury, inkasa, dobropisy Bez z lohov ch faktur lohov ch faktur Jen samotn lohov faktury Konec CISFAKM M_NAZT UDELEJ british inlist (a.znak_f, '0','1','2','3') Faktury s nespr provedenou likvidac (bez pen.faktur) inlist (a.znak_f, '0','1','2','3','4') Faktury s nespr provedenou likvidac a.znak_f = '4' Faktury s nespr provedenou likvidac (jen pen.faktury) inlist (a.znak_f, '0','1','3') Faktury s nespr provedenou likvidac (bez z l.faktur) inlist (a.znak_f, '0','1','2','3') Faktury s nespr provedenou likvidac a.znak_f = '2' Faktury s nespr provedenou likvidac (jen z l.faktury) prava dat ... m_param m7_faodb cis_fak m7_liodb cis_fak RIIS 7.6 m7_fadod cis_fak m7_lidod cis_fak RIIS 7.5 m4_organ SELECT a.cis_fak, a.cast_cel, x as kcs, a.mat_c_zu, a.znak_f, a.dat_odes, a.dat_pri, a.dat_spl, (2*a.cast_cel) as roz_cas, a.dan_cel, x as dan, (2*a.dan_cel) as roz_dan, a.vars_s, a.ico, a.zav as zavod, space (35) as nazev_org FROM fadod a INTO DBF c_fakt WHERE &QznF SELECT a.cis_fak, a.cast_cel, SUM(b.kcs) as kcs, a.mat_c_zu, a.znak_f, a.dat_odes, a.dat_pri, a.dat_spl, ((2*a.cast_cel) - (SUM(b.kcs) + SUM(b.dan))) as roz_cas, a.dan_cel, SUM(b.dan) as dan, ((2*a.dan_cel) - SUM(b.dan)) as roz_dan, a.vars_s, a.ico, A.zav as zavod, space (35) as nazev_org FROM fadod a, lidod b INTO DBF c_fa WHERE a.cis_fak = b.cis_fak and &QznF GROUP BY 1 SELECT a.cis_fak, a.cast_cel, x as kcs, a.mat_c_zu, a.znak_f, a.dat_odes, a.dat_pri, a.dat_spl, a.cast_cel as roz_cas, a.dan_cel, x as dan, a.dan_cel as roz_dan, a.vars_s, a.ico, a.zav as zavod, space (35) as nazev_org FROM fadod a INTO DBF c_fakt WHERE &QznF SELECT a.cis_fak, a.cast_cel, SUM(b.kcs) as kcs, a.mat_c_zu, a.znak_f, a.dat_odes, a.dat_pri, a.dat_spl, (a.cast_cel - (SUM(b.kcs) + SUM(b.dan))) as roz_cas, a.dan_cel, SUM(b.dan) as dan, (a.dan_cel - SUM(b.dan)) as roz_dan, a.vars_s, a.ico, a.zav as zavod, space (35) as nazev_org FROM fadod a, lidod b INTO DBF c_fa WHERE a.cis_fak = b.cis_fak and &QznF GROUP BY 1 c_fa, s751b Likvidace se prov na dvojn sobek Zadejte slo faktury : |........... detail Aktual m4_organ, s. faktury cis_fak cis_fak znak_f+' ' znak_f mat_c_zu mat_c_zu stka/Fakt. str(cast_cel,12,2) cast_cel stka/Likv. str(kcs,12,2) Rozd str(roz_cas,12,2) roz_cas /Faktura str(dan_cel,12,2) dan_cel /Likvid. str(dan,12,2) Rozd str(roz_dan,12,2) roz_dan Var.symbol vars_s vars_s Dat.spl. tran(dat_spl,'@E') (dat_spl ) Zdan.pl. tran(dat_pri,'@E') (dat_pri ) Dat.vyst. Dat.p tran(dat_odes,'@E')+' ' (dat_odes ) zev organizace m4_organ.nazev_org m4_organ.nazev_org zavod zavod BRITISH AKPOLEX PROCX KRTOP BRRBOT TCLEFT CRIGHT DZFREEZE NORDER DPHOR TRIDENDOL INDEX PRAVA DNADPIS JMENO AKHODN KSOUC KPSOUC ZTITLE PTITLECOLORPOC0 ODODBF9 ORF10 F0PRG AKF1ON BF1PRG KTF4_JM ELF4PRG ODBTISKPRG F7_JM OLORF7PRG RF9PRG F9KEY ?F9KEY1 NIF10_JM F10PRG BRAMECEK NAZEVT KLICO KLNAZ SPACEBAR TR_HL1 LORTR_HL2 RTR_HL3 ?TR_HL4 ORTR_HL5 TR_HL6 TR_HL7 TR_HL8 *TR_HL9 ?DET_JM *ENTER ?DETAIL DETPRG PS_LINE *PS_RETURN PS_ZAZN M_PARAM DVOJ_H ?POLE7 M_ZAS BM7_FAODB CIS_FAK FADOD M7_LIODB LIDOD M7_FADOD M7_LIDOD TM4_ORGAN D_PSV AKC_FA W_CIS C_FAKT ?ROZ_CAS *ROZ_DAN ZAVOD NAZEV_ORG V_ORG MOD_PSV cis_fak cis_fak obnova p ehledu ... m7_faodb cis_fak m7_liodb cis_fak m7_fadod cis_fak m7_lidod cis_fak m4_organ c_fakt cis_fak set order to &cmasterord ZMENA AKKONTROLA KMOD_SYS BRM_EXIT TPS_RETURN W_FAK DZCIS_FAK NQQREC DPQMASTERORDCMASTERORDM_ZAS RORDS751A DS761A M7_FAODB KFADOD KM7_LIODB KLIDOD ZM7_FADOD PM7_LIDOD RM4_ORGAN ALC_FAKT ALZAVOD ALKCS S_KCS ES_DAN DODBDVOJ_H ORROZ_CAS CAST_CEL KROZ_DAN BDAN_CEL KTS751B UDELEJ DETAIL P:\IN\SK\O\07\ S751B.FXP P:\IN\SK\O\07\S751B.PRG