home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
S765A.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-04-15
|
26KB
|
712 lines
m_param
RIIS 7.5
Archivace odb
ratelsk
ho saldokonta:
sleduj
ehledu ozna
te mezern
kem z
znamy,
kter
chcete odeslat p
es F10 do archivu.
Prob
hne standardn
archivace zaplacen
ch a
zlikvidovan
ch faktur a jejich plateb.
Prob
hne nestandardn
archivace zaplacen
ch a
zlikvidovan
ch faktur a jejich plateb.
NEJSOU KONTROLOV
FAKTURY !!
Prob
hne archivace uplatn
ch plateb ostatn
kter
byly za
Prob
hne nestandardn
archivace uplatn
ch plateb.
DO ARCHIVU SE ULO
I NEZA
TOVAN
PLATBY.
Archivovan
data budou vymaz
na ze z
kladn
ch soubor
!!! Tento proces je nevratn
!!!!
Pokra
ovat ? (A/N):
M_PARAM
NPAR_POLE
POLE7
9UZAV
ODBPUSTIT
_MENY
POKRAC
M_ZAS
TPREHLFAK
PREHLPLAT
colorz
NM1COLOR
Prob
prava dat ...
m_param
m7_faodb
cis_fak
m7_hoodb
cis_fak
m7_liodb
cis_fak
m7_peodb
cis_fak
m4_uc_o
m4_organ
m7_tup
skupina
m7_desk
skupina
ehled odb
ratelsk
ch faktur pro archivaci
Detail
Detail
Archivace
Archiv
Zadejte
slo faktury:
|...........
ehled podle
sla faktury
s765a
RIIS 7.5
s. faktury
faodb.cis_fak
faodb.cis_fak
Var. symbol
faodb.vars_s
faodb.vars_s
Celkem K
str(faodb.cast_cel,12,2)
faodb.cast_cel
Zaplaceno
str(faodb.zap_cel,12,2)
faodb.zap_cel
Z
str(faodb.zal_cel,12,2)
faodb.zal_cel
Da
str(faodb.dan_cel,12,2)
faodb.dan_cel
Dat.spl.
tran(faodb.dat_spl,'@E')
(faodb.dat_spl )
faodb.ico
faodb.ico
faodb.zav
faodb.zav
organ.dicp
organ.dicp
zev organizace
substr(organ.nazev_org,1,25)
substr(organ.nazev_org,1,25)
faodb.ucet_dod
faodb.ucet_dod
faodb.mat_c_zu
faodb.Mat_c_zu
Dat.zap.
tran(faodb.dat_zap,'@E')
(faodb.dat_zap )
Zdan.pln
tran(faodb.dat_pri,'@E')
(faodb.dat_pri )
Celkem m
str(faodb.cast_men,12,2)
faodb.cast_men
Zaplac. m
str(faodb.zap_men,12,2)
faodb.zap_men
faodb.mena+' '
faodb.mena
Kurz
str(faodb.kurz,14,7)
faodb.kurz
faodb.znak_f+' '
faodb.znak_f
Konst.sym.
faodb.kons_s+' '
faodb.kons_s
Dat.odes
tran(faodb.dat_odes,'@E')
(faodb.dat_odes )
faodb.stav_fa+' '
faodb.stav_fa
Dat.Sm
tran(faodb.dat_smir,'@E')
(faodb.dat_smir )
Dat.UCT.
tran(faodb.dat_uct,'@E')
(faodb.dat_uct )
Autor
faodb.autor
faodb.autor
faodb.zapoc+' '
faodb.zapoc
str(faodb.zal_vypl,12,2)
faodb.zal_vypl
Dr.fak
faodb.druh_fo+' '
faodb.druh_fo
.obj.
faodb.cis_obj
faodb.cis_obj
Dod.list
faodb.dod_l
faodb.dod_l
faodb.pozn
faodb.pozn
W_AKT
NPREHL
9ARCHIV
ODBPOKRAC
POLEX
PROCX
TRBOT
CLEFT
CRIGHT
FREEZE
TORDER
PRAVA
NADPIS
TZAHL
JMENO
?HODN
PSOUC
TITLE
TITLECOLORPOC0
AFAKT
L_RADY
Z9F10
DBF0PRG
F1PRG
F4_JM
F4PRG
TTISKPRG
F7_JM
F7PRG
F9PRG
TF9KEY
F9KEY1
F10_JM
F10PRG
RAMECEK
TNAZEVT
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
9DETPRG
DBPS_LINE
PS_RETURN
PS_ZAZN
M_PARAM
TPAR_POLE
POLE7
M7_FAODB
CIS_FAK
TFAODB
M7_HOODB
HOODB
M7_LIODB
LIODB
M7_PEODB
TPEODB
M4_UC_O
M4_ORGAN
ORGAN
M7_TUP
*SKUPINA
?M7_DESK
STAV_FA
MAT_C_ZU
AT_ZAP
MOD_PSV
orderz
c_oznac
cis_fak
cis_fak
obnova p
ehledu ...
C_PSV
m7_faodb
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
NMOD_SYS
M_TRIDENI
M_ONINDEX
M_NDESC
NDESCENDINM_PODM
CPODMV
M_EXIT
TPS_RETURN
W_FAK
CIS_FAK
QQREC
TQ_ZNAC
QMASTERORDCMASTERORDS761A
RORDMESS
FAODB
TM7_FAODB
ORGAN
C_OZNAC
c_oznac
Nebyly vybr
ny (vysv
ceny)
znamy
Opravdu archivovat vybran
znamy? (a/n)
archivace faktur ...
m7_plat
cis_plat
a7_plat.dbf2
copy stru to &f_adr\data\a7_plat with cdx
a7_liodb.dbf2
copy stru to &f_adr\data\a7_liodb with cdx
a7_hoodb.dbf2
copy stru to &f_adr\data\a7_hoodb with cdx
a7_peodb.dbf2
copy stru to &f_adr\data\a7_peodb with cdx
a7_faodb.dbf2
copy stru to &f_adr\data\a7_faodb with cdx
a7_liodb
cis_fak
a7_hoodb
cis_fak
a7_faodb
cis_fak
a7_peodb
cis_fak
a7_plat
cis_plat
c7_chfad
c7_chfad
c_oznac,
c7_chfad
Nejsou za
echny likvida
c7_chfad
Nebyl nalezen
likvida
a7_liodb
a7_plat
a7_hoodb
a7_faodb
FILTERz
AND
cis_fak
a7_peodb
a7_liodb
a7_hoodb
a7_faodb
a7_peodb
a7_plat
m7_plat
c_oznac
c_oznac.dbf
set filter to &filt
HLASKA
NOBRP1
IDENI
P_FAK
P_LID
NDINP_HOD
P_PEN
P_PLA
TM7_PLAT
CIS_PLAT
LIODB
HOODB
TPEODB
FAODB
RORDA7_LIODB
DCIS_FAK
RDA7_HOODB
A7_FAODB
TA7_PEODB
A7_PLAT
?C7_CHFAD
CHYBA
CISLO
RORDDAT_UCT
ORAKC
?DRUH_H
*K_PLAT
K_ZALDOBR
K_PEN
CIS_F_ZAL
FILT1
FILT2
Z9FILT
DBALL
CIS_PFAK
NTRGPZAZ
TC_OZNAC
ZOBR_POC
ZOBR_CHYBYS755A
PS_RETURN
c7_chfad
Souvis. fakt.
' nen
zapl. nebo zlikvidovan
FAODB
NHOODB
CIS_F_ZAL
STAV_FA
MAT_C_ZU
CISLO
NDINZUCT
c7_chfad
Penal. fakt.
' nen
zapl. nebo zlikvidovan
FAODB
NPEODB
CIS_PFAK
STAV_FA
MAT_C_ZU
CISLO
NDINZUCT
c7_chfad
Platba
' nen
rov. a za
tovan
M7_PLAT
NHOODB
CIS_F_ZAL
STAV_PL
CISLO
double
Celkov
ty archivovan
Esc,^End
Faktury :
Likvida
dky :
Hodnotov
daje :
dky penalizace :
Platby :
999,999,999,999
999,999,999,999
999,999,999,999
999,999,999,999
999,999,999,999
SCRQ1
NMOD_WIN
P_FAK
P_LID
P_HOD
P_PEN
P_PLA
s765a
ehled chyb archivace
Zadejte
slo dokladu:
|...........
s. dokladu
c7_chfad.cis_fak
c7_chfad.cis_fak
Popis chyby
c7_chfad.chyba
c7_chfad.chyba
POLEX
NPROCX
CLEFT
CRIGHT
FREEZE
ORDER
PRAVA
NADPIS
TZAHL
JMENO
RORDHODN
DSOUC
RDPSOUC
TITLE
TTITLECOLORPOC0
CHFAD
RORDF4
LDOBR
F0PRG
F1PRG
F4_JM
F4PRG
Z9TISKPRG
DBF7_JM
F7PRG
F9PRG
F9KEY
F9KEY1
TF10_JM
F10PRG
RAMECEK
CHYBYNAZEVT
KLICO
KLNAZ
SPACEBAR
TR_HL1
TR_HL2
TTR_HL3
TR_HL4
?TR_HL5
TR_HL6
TR_HL7
TR_HL8
TR_HL9
*DET_JM
?ENTER
*DETAIL
DETPRG
PS_LINE
PS_RETURN
PS_ZAZN
C7_CHFAD
CIS_FAK
DBMOD_PSV
Prob
prava dat ...
m7_plat
cis_plat
m4_organ
m4_uc_o
RIIS 7.5
Fak_k_Plat in s752d
Rozpis
Archivace
ArchPlat
Zadejte
slo platby,
|.....|..
ehled podle
sla platby
ehled plateb pro archivaci
s752d
plat.cis_plat
plat.cis_plat
plat.cis_rad
plat.cis_rad
tu pen.
stavu
plat.ucet_ust
plat.ucet_ust
stka/m
str(plat.cast_men,12,2)
plat.cast_men
' '+plat.mena
plat.mena
Kurz
str(plat.kurz,14,7)
plat.kurz
stka/K
str(plat.kcs,12,2)
plat.kcs
str(plat.spar_cast,12,2)
plat.spar_cast
plat.znak_p
plat.znak_p
' '+plat.stav_pl
plat.stav_pl
plat.klic_pl+' '
plat.klic_pl
tran(plat.dat_uhr,'@E')
(plat.dat_uhr )
Dat.spl.
tran(plat.dat_spl,'@E')
(plat.dat_spl )
Var.symbol
plat.vars_s
plat.vars_s
K.sym.
plat.kons_s
plat.kons_s
Spec.sym.
plat.spec_s
plat.spec_s
tu organizace
plat.ucet_org
plat.ucet_org
tran(plat.dat_uct,'@E')
(plat.dat_uct )
' '+plat.cis_pr
plat.cis_pr
s.faktury
plat.cis_fak
plat.cis_fak
Dr.Op.
' '+plat.d_oper+' '
plat.d_oper
.Zprac.
' '+plat.r_zprac+' '
plat.r_zprac
Dat.akt.
tran(plat.dat_akt,'@E')
(plat.dat_akt )
Autor
plat.autor
plat.autor
zev organizace
substr(m4_organ.nazev_org,1,25)
substr(m4_organ.nazev_org,1,25)
m4_organ.ico
m4_organ.ico
m4_organ.zavod
m4_organ.zavod
MOD_SYS
NMESS
POLEX
PROCX
CLEFT
CRIGHT
FREEZE
TORDER
TPRAVA
NADPIS
ORDZAHL
DJMENO
RDHODN
TPSOUC
OLORTITLE
?TITLECOLORPOC0
RORDF2
LDOBR
F0PRG
F1PRG
Z9F4_JM
DBF4PRG
TISKPRG
F7_JM
F7PRG
F9PRG
TF9KEY
F9KEY1
F10_JM
F10PRG
YBYRAMECEK
NAZEVT
KLICO
KLNAZ
SPACEBAR
TTR_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
9M7_PLAT
DBCIS_PLAT
M4_ORGAN
M4_UC_O
TUCET
ZAVOD
UCET_ORG
ZNAK_P
MOD_PSV
c_oznac
Nebyly vybr
ny (vysv
ceny)
znamy
Opravdu archivovat vybran
znamy? (a/n)
archivace plateb ...
a7_plat.dbf2
copy stru to &f_adr\data\a7_plat with cdx
a7_plat
c7_chfad
c7_chfad
c_oznac,
c7_chfad
Platba je
nebyla za
a7_plat
a7_plat
c_oznac
c_oznac.dbf
HLASKA
NOBRP1
P_PLA
A7_PLAT
C7_CHFAD
CIS_FAK
TCHYBA
TSTAV_PL
CIS_PLAT
DCIS_RAD
DUCET_UST
DVETA
NTRGPZAZ
TC_OZNAC
ORDBF
?ZOBR_POCPLZOBR_CHYBYS755A
PS_RETURN
double
Celkov
et archivovan
Esc,^End
Platby :
999,999,999,999
SCRQ1
NMOD_WIN
P_PLA
S765A
HLASKA
PREHLFAK
DETAIL
ARCHIV
K_ZALDOBR
K_PEN
K_PLAT
ZOBR_POC
ZOBR_CHYBY
PREHLPLAT
ARCHPLAT
ZOBR_POCPL
P:\IN\SK\O\07\
S765A.FXP
P:\IN\SK\O\07\S765A.PRG