home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 June
/
Chip_1999-06_cd.bin
/
tema
/
SoWa
/
OBEC.EXE
/
07
/
S755A.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1999-04-15
|
28KB
|
758 lines
m_param
RIIS 7.5
Archivace dodavatelsk
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
PAR_POLE
POLE7
PRNUZAV
TPUSTIT
FPOKRAC
M_ZAS
PREHLFAK
PREHLPLAT
colorz
M1COLOR
Prob
prava dat ...
m_param
m7_fadod
cis_fak
m7_hodod
cis_fak
m7_lidod
cis_fak
m7_pedod
cis_fak
m7_fadom
cis_fak
m4_uc_o
m4_organ
m7_tup
skupina
m7_desk
skupina
ehled dodavatelsk
ch faktur pro archivaci
Detail
Detail
Archivace
Archiv
Zadejte
slo faktury:
|...........
ehled podle
sla faktury
s755a
RIIS 7.5
s. faktury
fadod.cis_fak
fadod.cis_fak
Var. symbol
fadod.vars_s
fadod.vars_s
Celkem K
str(fadod.cast_cel,12,2)
fadod.cast_cel
Zaplaceno
str(fadod.zap_cel,12,2)
fadod.zap_cel
Z
str(fadod.zal_cel,12,2)
fadod.zal_cel
Da
str(fadod.dan_cel,12,2)
fadod.dan_cel
Dat.spl.
tran(fadod.dat_spl,'@E')
(fadod.dat_spl )
fadod.ico
fadod.ico
fadod.zav
fadod.zav
m4_organ.dicp
m4_organ.dicp
zev organizace
substr(m4_organ.nazev_org,1,25)
substr(m4_organ.nazev_org,1,25)
fadod.ucet_dod
fadod.ucet_dod
fadod.mat_c_zu
fadod.Mat_c_zu
Dat.zap.
tran(fadod.dat_zap,'@E')
(fadod.dat_zap )
Zdan.pln
tran(fadod.dat_pri,'@E')
(fadod.dat_pri )
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
fadod.znak_f+' '
fadod.znak_f
Konst.sym.
fadod.kons_s+' '
fadod.kons_s
Dat.odes
tran(fadod.dat_odes,'@E')
(fadod.dat_odes )
fadod.stav_fa+' '
fadod.stav_fa
Dat.Sm
tran(fadod.dat_smir,'@E')
(fadod.dat_smir )
Dat.UCT.
tran(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
kazech
str(fadod.pr_cel,12,2)
fadod.pr_cel
Dr.fak
fadod.druh_f+' '
fadod.druh_f
.obj.
fadod.cis_obj
fadod.cis_obj
Dod.list
fadod.dod_l
fadod.dod_l
fadod.pozn
fadod.pozn
W_AKT
PREHL
RNARCHIV
TPOKRAC
POLEX
FPROCX
CLEFT
CRIGHT
FREEZE
ORDER
PRAVA
BANADPIS
TZAHL
JMENO
OLORHODN
RPSOUC
TITLE
TITLECOLORPOC0
EOFFF3
RF0PRG
FFF1PRG
ROBAF4_JM
FFF4PRG
TISKPRG
F7_JM
FF7PRG
F9PRG
FFF9KEY
F9KEY1
NAKF10_JM
F10PRG
BRAMECEK
NAZEVT
YSTKLICO
YSTKLNAZ
SPACEBAR
TR_HL1
DOBTR_HL2
DOBTR_HL3
OBTR_HL4
ATR_HL5
*TR_HL6
TR_HL7
TR_HL8
FTR_HL9
ALDET_JM
ENTER
DETAIL
RDETPRG
PS_LINE
ORPS_RETURN
PS_ZAZN
ORANSI
RM_PARAM
PAR_POLE
RPOLE7
MATPRIJ
BAM7_FADOD
CIS_FAK
FADOD
M7_HODOD
HODOD
RNM7_LIDOD
LIDOD
ORM7_PEDOD
PEDOD
M7_FADOM
M4_UC_O
ORICO
M4_ORGAN
M7_TUP
BSKUPINA
M7_DESK
STAV_FA
MAT_C_ZU
C_GEN
MOD_PSV
orderz
c_oznac
cis_fak
cis_fak
obnova p
ehledu ...
C_PSV
m7_fadod
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
MOD_SYS
M_TRIDENI
M_ONINDEX
M_NDESC
NDESCENDINM_PODM
FCPODMV
M_EXIT
PS_RETURN
W_FAK
CIS_FAK
QQREC
Q_ZNAC
QMASTERORDCMASTERORDS751A
RORDMESS
BAFADOD
TM7_FADOD
LORZAV
M4_ORGAN
RC_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
m7_platt
cis_plat
a7_platt.dbf2
copy stru to &f_adr\data\a7_platt with cdx
a7_lidod.dbf2
copy stru to &f_adr\data\a7_lidod with cdx
a7_hodod.dbf2
copy stru to &f_adr\data\a7_hodod with cdx
a7_pedod.dbf2
copy stru to &f_adr\data\a7_pedod with cdx
a7_fadod.dbf2
copy stru to &f_adr\data\a7_fadod with cdx
a7_fadom.dbf2
copy stru to &f_adr\data\a7_fadom with cdx
a7_lidod
cis_fak
a7_hodod
cis_fak
a7_fadod
cis_fak
a7_pedod
cis_fak
a7_plat
cis_plat
a7_platt
cis_plat
a7_fadom
cis_fak
c7_chfad
c7_chfad
c_oznac,
c7_chfad
Nejsou za
echny likvida
c7_chfad
Nebyl nalezen
likvida
a7_lidod
a7_platt
a7_plat
a7_hodod
a7_fadom
a7_fadod
FILTERz
AND
cis_fak
a7_PEDOD
a7_lidod
a7_hodod
a7_fadod
a7_pedod
a7_plat
m7_plat
a7_platt
m7_platt
c_oznac
c_oznac.dbf
set filter to &filt
HLASKA
OBRP1
IDENI
P_FAK
P_LID
NDINP_HOD
FP_PEN
P_PLA
P_MAT
M7_PLAT
CIS_PLAT
M7_PLATT
LIDOD
HODOD
RORDPEDOD
RORDFADOD
RORDMATPRIJ
BAM7_FADOM
TA7_LIDOD
CIS_FAK
ORA7_HODOD
A7_FADOD
RA7_PEDOD
A7_PLAT
RDA7_PLATT
RA7_FADOM
C7_CHFAD
CHYBA
FCISLO
DAT_UCT
DRUH_H
K_PLAT
K_ZALDOBR
K_PEN
FCIS_F_ZAL
CIS_RAD
XXPOLE
FILT1
FILT2
FFILT
FFEXS
CIS_PFAK
NTRGPZAZ
BC_OZNAC
ZOBR_POC
TZOBR_CHYBYS755A
PS_RETURN
c7_chfad
Souvis. fakt.
' nen
zapl. nebo zlikvidovan
FADOD
HODOD
CIS_F_ZAL
STAV_FA
MAT_C_ZU
CISLO
NDINZUCT
c7_chfad
Penal. fakt.
' nen
zapl. nebo zlikvidovan
FADOD
PEDOD
CIS_PFAK
STAV_FA
MAT_C_ZU
CISLO
NDINZUCT
c7_chfad
Platba 'F
' nen
rov. a za
tovan
(stav mus
t '9').
M7_PLAT
HODOD
CIS_F_ZAL
STAV_PL
CISLO
double
Celkov
ty archivovan
Esc,^End
Faktury :
Likvida
dky :
Hodnotov
daje :
dky penalizace :
Platby :
jemky mater. :
999,999,999,999
999,999,999,999
999,999,999,999
999,999,999,999
999,999,999,999
999,999,999,999
SCRQ1
MOD_WIN
MATPRIJ
P_FAK
P_LID
P_HOD
P_PEN
P_PLA
P_MAT
s755a
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
PROCX
CLEFT
CRIGHT
FREEZE
ORDER
PRAVA
NADPIS
JMENO
RORDHODN
RORDSOUC
RORDPSOUC
BATITLE
TTITLECOLORPOC0
HODOD
FADOD
PEDOD
PLATT
FADOM
CHFAD
FF0PRG
F1PRG
F4_JM
F4PRG
TISKPRG
F7_JM
F7PRG
FF9PRG
F9KEY
F9KEY1
F10_JM
F10PRG
FRAMECEK
FFNAZEVT
KLICO
KKLNAZ
SPACEBAR
BTR_HL1
TR_HL2
TR_HL3
TTR_HL4
YBYTR_HL5
TR_HL6
TR_HL7
DOBTR_HL8
DOBTR_HL9
OBDET_JM
AENTER
*DETAIL
DETPRG
PS_LINE
FPS_RETURN
PS_ZAZN
C7_CHFAD
CIS_FAK
MOD_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
POLEX
PROCX
CLEFT
CRIGHT
FREEZE
ORDER
PRAVA
NADPIS
ORDZAHL
RORDJMENO
RORDHODN
BASOUC
TPSOUC
OLORTITLE
ORTITLECOLORPOC0
PEDOD
PLATT
FADOM
CHFAD
F0PRG
F1PRG
F4_JM
F4PRG
TISKPRG
FF7_JM
F7PRG
F9PRG
F9KEY
F9KEY1
FF10_JM
F10PRG
FFRAMECEK
KNAZEVT
KLICO
BKLNAZ
SPACEBAR
TR_HL1
TTR_HL2
YBYTR_HL3
TR_HL4
TR_HL5
DOBTR_HL6
DOBTR_HL7
OBTR_HL8
ATR_HL9
*DET_JM
ENTER
DETAIL
FDETPRG
PS_LINE
PS_RETURN
PS_ZAZN
RM7_PLAT
CIS_PLAT
RPLAT
M4_ORGAN
RM4_UC_O
RZAVOD
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
m7_platt
cis_plat
a7_platt.dbf2
copy stru to &f_adr\data\a7_platt with cdx
a7_platt
cis_plat
c7_chfad
c7_chfad
c_oznac,
c7_chfad
Platba je
nebyla za
a7_platt
a7_plat
a7_plat
a7_platt
m7_platt
c_oznac
c_oznac.dbf
HLASKA
OBRP1
P_PLA
A7_PLAT
M7_PLATT
CIS_PLAT
A7_PLATT
C7_CHFAD
CIS_FAK
CHYBA
ORDAKC
RORDSTAV_PL
RDCIS_RAD
AUCET_UST
TXXPOLE
RVETA
ORNTRGPZAZ
RC_OZNAC
ZOBR_POCPLZOBR_CHYBYS755A
PS_RETURN
double
Celkov
et archivovan
Esc,^End
Platby :
999,999,999,999
SCRQ1
MOD_WIN
P_PLA
S755A
HLASKA
PREHLFAK
DETAIL
ARCHIV
K_ZALDOBR
K_PEN
K_PLAT
ZOBR_POC
ZOBR_CHYBY
PREHLPLAT
ARCHPLAT
ZOBR_POCPL
P:\IN\SK\O\07\
S755A.FXP
P:\IN\SK\O\07\S755A.PRG