Программа на Fox Pro.Как разлочить?
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Программа на Fox Pro.Как разлочить? - 2011-07-03 21:45:15.683333
|
|
|
iljar
Сообщений: 9
Оценки: 0
Присоединился: 2011-07-03 21:31:10.390000
|
Как разлочить программу???
http://www.akf.lt/RODAINST.EXE
После удачного введения номера отображаются новые пункты в меню.
Номер вводится: Sistema-Nustatymai-Darbo vietos domenys.
Заранее спасибо :-)
|
|
|
|
|
RE: Программа на Fox Pro.Как разлочить? - 2011-07-04 13:51:19.263333
|
|
|
Pupkin-Zade
Сообщений: 9398
Оценки: 1489
Присоединился: 2004-03-10 13:54:16
|
Так же как и все другие.
|
|
|
|
|
RE: Программа на Fox Pro.Как разлочить? - 2011-07-04 16:44:41.110000
|
|
|
iljar
Сообщений: 9
Оценки: 0
Присоединился: 2011-07-03 21:31:10.390000
|
Прикольною А поподробнее??? Ну тупой я этом деле… :-(
|
|
|
|
|
RE: Программа на Fox Pro.Как разлочить? - 2011-07-06 21:52:09.586666
|
|
|
Flint_ta
Сообщений: 3720
Оценки: 1120
Присоединился: 2007-01-26 15:49:18.323333
|
Ни хрена непонятно куда вводить номер и зачем.
|
|
|
|
|
RE: Программа на Fox Pro.Как разлочить? - 2011-07-06 22:03:43.150000
|
|
|
iljar
Сообщений: 9
Оценки: 0
Присоединился: 2011-07-03 21:31:10.390000
|
После инсталляции запускаешь программу, и видишь меню. Там идешь:
Sistema-Nustatymai-Darbo vietos domenys, и видишь окошечко для ввода серийника. Без серийника прога работает в демо режиме… :-(
|
|
|
|
|
RE: Программа на Fox Pro.Как разлочить? - 2011-07-06 22:14:47.910000
|
|
|
iljar
Сообщений: 9
Оценки: 0
Присоединился: 2011-07-03 21:31:10.390000
|
Блин, забыл… ето при первом запуске бывает. Нажимаешь ctr+y, появится новая строка. Вводишь:2011 ! 7 ! 2011.07.01 ! 2011.07.31
|
|
|
|
|
RE: Программа на Fox Pro.Как разлочить? - 2011-07-06 22:44:06.393333
|
|
|
iljar
Сообщений: 9
Оценки: 0
Присоединился: 2011-07-03 21:31:10.390000
|
Закладка в самом верху, под синей полоской. :-)
|
|
|
|
|
RE: Программа на Fox Pro.Как разлочить? - 2011-07-07 01:53:41.193333
|
|
|
Flint_ta
Сообщений: 3720
Оценки: 1120
Присоединился: 2007-01-26 15:49:18.323333
|
Скомпилировано в p-code. Взломать врятли удастся. Тут часть декомпиленного листинга
MODIFY FORM params
DO FORM params
STORE SPACE(6) TO g_80i, g_42, g_tiek, g_pirk, g_rpvm, g_turt, g_nusid, g_aa, g_tpvm, g_204, g_256, g_500, g_600, g_iatl, g_isd
x = ''
IF FILE('peri.mem')
RESTORE FROM peri ADDITIVE
ENDIF
IF TYPE('g_jn ')='U'
g_jn = .F.
ENDIF
company02 = g_company2
kdid = volroda()
DEFINE WINDOW param AT 0, 0 SIZE 21, 70 FONT (wfname), (wfsize) FLOAT TITLE ' Бmonлs nustatymai 1/5 ' ICON FILE (wicon) COLOR SCHEME 5
MOVE WINDOW param CENTER
ACTIVATE WINDOW param
@ 0, 1 SAY ' Vartotojas' GET g_ver DEFAULT 1 PICTURE '@z 9999' MESSAGE 'Sistemos vartotojo kodas'
@ $, $+2 SAY 'Darbo vieta' GET kdid VALID g_ver_v() WHEN g_ver_w() MESSAGE 'Darbo vietos identifikatorius'
@ $+1, 1 SAY ' Бmonлs pavadinimas' GET g_company2 DEFAULT ' ' SIZE 1, 45 MESSAGE 'Kompanijos, firmos ar organizacijos pilnas pavadinimas'
@ $+1, 1 SAY 'Trumpas бmonлs pavad' GET g_company DEFAULT ' ' SIZE 1, 15 VALID cv1() MESSAGE 'Kompanijos, firmos ar organizacijos trumpas pavadinimas, matomas lango pavadinime ir uюduoиiш juostoje'
@ $+0.1 , $+1 GET g_biudz DEFAULT .F. PICTURE '@*c Biudюetinл бstaiga' VALID biudz() MESSAGE 'Paюymлkite, jei tai yra biudюetinлs бstaigos apskaita'
@ $+1.1 , 1 SAY 'Бmonлs registr.duom.' GET g_company3 DEFAULT ' ' SIZE 1, 45 MESSAGE 'Бmonлs registravimo duomenys spausdinami ant PVM sаskaitos'
@ $+1, 1 SAY ' Adresas' GET g_adres DEFAULT ' ' SIZE 1, 45 MESSAGE 'Adresas ir paрto indeksas'
@ $+1, 1 SAY 'Elektrininiis paрtas' GET g_email DEFAULT ' ' SIZE 1, 45 MESSAGE ' El. paрtas, WWW'
@ $+1, 1 SAY ' Telefonai ir faksai' GET g_tel DEFAULT ' ' SIZE 1, 35 MESSAGE 'Telefonas ir faksas'
@ $+1, 1 SAY ' Savivaldybлs kodas' GET g_saviv DEFAULT 0 PICTURE '999' MESSAGE 'Savivaldybлs, kurioje бmonл registruota ir moka mokesиius kodas'
@ $, 30 SAY 'Apskrities kodas (VMI)' GET g_apskr DEFAULT 0 PICTURE '999' MESSAGE 'Apskrities, kurioje бmonл registruota, kodas (naudojamas VMI ataskaitose).'
@ $+1, 30 SAY 'Apskrities kodas (INTRASTAT)' GET g_apskrst DEFAULT ' ' SIZE 1, 2 MESSAGE 'Apskrities, kurioje бmonл registruota, kodas (naudojamas intrastato ataskaitose).'
@ $+1, 1 GET g_imasm DEFAULT 1 PICTURE '@*rh Бmonлs kodas;asmens kodas' MESSAGE 'Бmonлs arba individualia veikla usiimanиio asmens kodas'
@ $, 33 GET g_imonkod DEFAULT ' ' SIZE 1, 12 MESSAGE 'Бmonлs kodas/asmens kodas'
@ $+1, 1 SAY ' PVM mokлtojo kodas' GET g_pvmkod DEFAULT ' ' SIZE 1, 15 MESSAGE 'PVM mokлtojo kodas (bus spausdinamas ant iрraрomш sаskaitш faktыrш)'
@ $+1, 1 SAY ' SD draudлjo kodas' GET g_sdkod DEFAULT ' ' SIZE 1, 10 MESSAGE ' Soc. draudimo draudлjo kodas'
@ $+1, 0 SAY 'SD Tarifai: Draudлjui' GET g_sd30 DEFAULT 30.98 PICTURE '99.99' MESSAGE 'Soc. draudimo tarifas draudлjui'
@ $, $+1 SAY 'Apdraustajam' GET g_sd3 DEFAULT 3.00 PICTURE '99.99' MESSAGE 'Soc. draudimo tarifas draudлjui'
@ $+1, 1 SAY ' VSDV skyrius' GET g_vsdv DEFAULT 'Vilniaus miesto' SIZE 1, 30 MESSAGE 'VSDV skyrius'
@ $+1, 1 SAY ' Banko sаskaitos Nr.' GET g_sask DEFAULT ' ' SIZE 1, 24 MESSAGE 'Banko sаskaitos Nr. (bus spausdinamas ant iрraрomш sаskaitш faktыrш)'
@ $+1, 1 SAY ' Banko kodas' GET g_bkod DEFAULT ' ' SIZE 1, 9 PICTURE '' MESSAGE 'Banko kodas (bus spausdinamas ant iрraрomш sаskaitш faktыrш)'
@ $+1, 1 SAY ' Banko pavadinimas' GET g_bpav DEFAULT ' ' SIZE 1, 30 MESSAGE 'Banko pavadinimas (bus spausdinamas ant iрraрomш sаskaitш faktыrш)'
@ $+1, 1 SAY ' PVM tarifai (%)' GET g_akc DEFAULT akc PICTURE '99.99' MESSAGE 'Pridedamosios vertлs mokesиio procentas'
@ $, $+1 GET g_akc2 DEFAULT akc PICTURE '99.99' MESSAGE 'Pridedamosios vertлs mokesиio procentas'
@ $, $+1 GET g_akc3 DEFAULT akc PICTURE '99.99' MESSAGE 'Pridedamosios vertлs mokesиio procentas'
@ $, $+1 GET g_akc4 DEFAULT akc PICTURE '99.99' MESSAGE 'Pridedamosios vertлs mokesиio procentas'
@ $, $+1 GET g_akc5 DEFAULT akc PICTURE '99.99' MESSAGE 'Pridedamosios vertлs mokesиio procentas'
g_sd = DATE()
@ $+1, 1 SAY ' Рiandien yra' GET g_sd DISABLE VALID gsd_v() MESSAGE 'Рiandienos data'
g_time = VAL(SUBSTR(TIME(), 1, 2)+'.'+SUBSTR(TIME(), 4, 2))
@ $, $+1 SAY ' Laikas' GET g_time PICTURE '99.99' DISABLE VALID gtm_v() WHEN gtm_w() MESSAGE 'Laikas'
g_clock = .F.
enm = 19
@ enm, 27 GET toliau DEFAULT 0 SIZE 1.7 , 3 PICTURE '@*nhb arrow-lt.gif;arrow-rt.gif' VALID tolv() MESSAGE "Kitas langas"
@ enm, 36 GET ok DEFAULT 0 SIZE 1.7 , 7 PICTURE '@*B stop.bmp' MESSAGE "Baigti"
DEFINE WINDOW param2 AT 1.500 , 2 SIZE 21, 70 FONT (wfname), (wfsize) FLOAT TITLE ' Бmonлs nustatymai 2/5 ' FOOTER ' PgUp, PgDn - vartyti ' ICON FILE (wicon) COLOR SCHEME 5
MOVE WINDOW param2 CENTER
ACTIVATE WINDOW param2
@ 0, 1 SAY 'Dokumentш рablonai:'
@ 1, 1 SAY 'Pajamш Iрlaidш'
@ 2, 1 GET g_po_nome1 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 3, 1 GET g_po_nome2 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 4, 1 GET g_po_nome3 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 5, 1 GET g_po_nome4 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 6, 1 GET g_po_nome5 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 7, 1 GET g_po_nome6 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 8, 1 GET g_po_nome7 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 9, 1 GET g_po_nome8 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 2, 11 GET g_vz_nome1 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 3, 11 GET g_vz_nome2 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 4, 11 GET g_vz_nome3 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 5, 11 GET g_vz_nome4 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 6, 11 GET g_vz_nome5 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 7, 11 GET g_vz_nome6 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 8, 11 GET g_vz_nome7 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 9, 11 GET g_vz_nome8 DEFAULT 0 SIZE 1, 9 PICTURE '@z999999999' VALID nome_v()
@ 1, 24 SAY 'Prekiш pajamavimo sаskaitos'
@ 2, 24 SAY 'tiekлjш юiniaraрtyje'
@ 3, 24 GET g_posas1 DEFAULT ' '
@ 3, $+1 GET g_posas2 DEFAULT ' '
@ 3, $+1 GET g_posas3 DEFAULT ' '
@ 3, $+1 GET g_posas4 DEFAULT ' '
@ 4, 24 GET g_posas5 DEFAULT ' '
@ 4, $+1 GET g_posas6 DEFAULT ' '
@ 4, $+1 GET g_posas7 DEFAULT ' '
@ 4, $+1 GET g_posas8 DEFAULT ' '
@ 10, 1 SAY 'Брraрomш sаskaitш serija' GET g_serija DEFAULT SPACE(15) SIZE 1, 15 MESSAGE 'Брraрomш sаskaitш serija'
IF TYPE('g_padal')<>'N'
g_padal = 1
ENDIF
SELECT padal
LOCATE FOR cech=g_padal
@ 11, 1 SAY 'Pagrindinis padalinys' GET g_padal DEFAULT 1 PICTURE '9999' VALID kppadv()
@ $, $+1 GET padal.ppav DISABLE
IF .F.
@ 10, 1 SAY ' Paskutinis pardavimo vaюtaraрtis' GET g_vaznr DEFAULT 0 PICTURE '999999' MESSAGE 'Paskutinis pardavimo vaюtaraриio numeris; 0 - nenumeruoti'
@ 11, 1 SAY 'Paskutinis vid. perd. vaюtaraрtis' GET g_vpnr DEFAULT 0 PICTURE '999999' MESSAGE 'Paskutinis vidinio vaюtaraриio numeris; 0 - nenumeruoti'
@ 12, 1 SAY ' Paskutinis laikinas vaюtaraрtis' GET g_laiknr DEFAULT 0 PICTURE '999999' MESSAGE 'Paskutinis laikino vaюtaraриio numeris; 0 - nenumeruoti'
ENDIF
g_khts = 2
enm = 19
@ enm, 27 GET toliau DEFAULT 0 SIZE 1.7 , 3 PICTURE '@*nhb arrow-lt.gif;arrow-rt.gif' VALID tolv() MESSAGE "Kitas langas"
@ enm, 36 GET ok DEFAULT 0 SIZE 1.7 , 7 PICTURE '@*B stop.bmp' MESSAGE "Baigti"
DEFINE WINDOW param3 AT 3, 4 SIZE 21, 70 FONT (wfname), (wfsize) FLOAT TITLE ' Бmonлs nustatymai 3/5 ' FOOTER ' PgUp, PgDn - vartyti ' ICON FILE (wicon) COLOR SCHEME 5
MOVE WINDOW param3 CENTER
ACTIVATE WINDOW param3
@ 0, 1 GET g_nuol DEFAULT .F. PICTURE '@*c Taikomos pardavimo nuolaidos' MESSAGE 'Paюymлkite, jei norite rodyti pardavimo nuolaidas faktыrose'
@ $+1, 1 GET g_juodi DEFAULT .F. PICTURE '@*c Naudojamos laikinos sаskaitos faktыros' MESSAGE 'Paюymлkite, jei naudojate laikinas sаskaitas-faktыras'
@ $+1, 1 GET g_sfnum DEFAULT .F. PICTURE '@*c Numeruoti sаskaitos faktыros eilutes' MESSAGE 'Paюymлkite, jei reikia numeruoti sаskaitos faktыros eilutes'
@ $+1, 1 GET g_termin DEFAULT .F. PICTURE '@*c Naudojami atsiskaitymo terminai' MESSAGE 'Paюymлkite, jei naudojate atsiskaitymo uю prekes terminus'
@ $+1, 1 GET g_galio DEFAULT .F. PICTURE '@*c Naudojami prekiш galiojimo terminai' MESSAGE 'Paюymлkite, jei naudojate prekiш galiojimo terminus'
g_apardk = .F.
@ $+1, 1 GET g_bpardk DEFAULT .F. PICTURE '@*c Bendra pardavimo kaina visam prekлs kiekiui' MESSAGE 'Paюymлkite, jei pardavimo kaina nepriklauso nuo gavimo kainos'
@ $+1, 1 GET g_ipak DEFAULT .F. PICTURE '@*c Naudojami sustambinti бpakavimai' MESSAGE 'Naudojami sustambinti бpakavimai'
@ $+1, 1 GET g_likdab DEFAULT .F. PICTURE '@*c Rodyti prekiш likuиius dabar' MESSAGE 'Rodyti prekiш likuиius dabar'
@ $+1, 1 GET g_valiut DEFAULT .F. PICTURE '@*c Naudojamos uюsienio valiutos' MESSAGE 'Atsiskaitymuose naudojamos uюsienio valiutos'
@ $+1, 1 GET g_gamyba DEFAULT .F. PICTURE '@*c Gamyba' MESSAGE 'Бmonл vykdo gamybа, galima nuraрinлti medюiagas pagal gaminiш korteles '
@ $+1, 1 GET g_barcode DEFAULT .F. PICTURE '@*c Naudojami vartotojo ar prekлs gamintojo sudaryti prekiш kodai' MESSAGE 'Naudojami vartotojo ar prekлs gamintojo sudaryti prekiш kodai'
g_pvmsf = .T.
@ $+1, 1 GET g_pvmnome DEFAULT .T. PICTURE '@*c Spausdinti prekiш kodus sаskaitose-faktыrose' MESSAGE 'Spausdinti prekiш kodus sаskaitose-faktыrose'
@ $+1, 1 GET g_filia DEFAULT .T. PICTURE '@*c Рis kompiuteris yra filiale (ne centrinлje бmonлs buveinлje)' MESSAGE 'Iр filialo duomenis galima perneрti б centrinб kompiuterб'
@ $+1, 1 SAY 'Filialo Nr.' GET g_filnr DEFAULT 0 PICTURE '999' MESSAGE 'Filialo numeris'
@ $, $+2 SAY 'Filialo pavadinimas' GET g_filvard DEFAULT SPACE(50) SIZE 1, 30 MESSAGE 'Bыtinai бveskite filialo pavadinimа, jei naudojate filialinб ryрб.'
@ $+2, 1 GET logo DEFAULT 0 SIZE 1.9 , 8 PICTURE '@*n Logotipas' VALID vlogo() MESSAGE 'Бmonлs logotipo byla'
@ $, 12 GET g_logo DEFAULT '' DISABLE
enm = 19
@ enm, 27 GET toliau DEFAULT 0 SIZE 1.7 , 3 PICTURE '@*nhb arrow-lt.gif;arrow-rt.gif' VALID tolv() MESSAGE "Kitas langas"
@ enm, 36 GET ok DEFAULT 0 SIZE 1.7 , 7 PICTURE '@*B stop.bmp' MESSAGE "Baigti"
DEFINE WINDOW param4 AT 4.500 , 6 SIZE 21, 70 FONT (wfname), (wfsize) FLOAT TITLE ' Бmonлs nustatymai 4/5 ' FOOTER ' PgUp, PgDn - vartyti ' ICON FILE (wicon) COLOR SCHEME 5
MOVE WINDOW param4 CENTER
ACTIVATE WINDOW param4
g_gp = 1
@ 1, 1 GET g_tiksumos DEFAULT 2 PICTURE '@*r Kiekinл prekiш apskaita;Apskaitomos tik prekiш sumos' MESSAGE 'Prekiш ir medюiagш apskaita'
@ $+2, 1 SAY 'Atsargш бkainojimo metodas:'
@ $+1, 1 GET g_atsika DEFAULT 1 PICTURE '@*r Konkreиiш kainш;FIFO ' MESSAGE 'Atsargш бkainojimo metodas'
enm = 19
@ enm, 27 GET toliau DEFAULT 0 SIZE 1.7 , 3 PICTURE '@*nhb arrow-lt.gif;arrow-rt.gif' VALID tolv() MESSAGE "Kitas langas"
@ enm, 36 GET ok DEFAULT 0 SIZE 1.7 , 7 PICTURE '@*B stop.bmp' MESSAGE "Baigti"
DEFINE WINDOW param5 AT 4.500 , 6 SIZE 21, 70 FONT (wfname), (wfsize) FLOAT TITLE ' Бmonлs nustatymai 5/5 ' FOOTER ' PgUp, PgDn - vartyti ' ICON FILE (wicon) COLOR SCHEME 5
MOVE WINDOW param5 CENTER
ACTIVATE WINDOW param5
@ 0, 1 SAY ' Sаskaitos, naudojamos perkeliant б buhalterijа'
@ 2, 1 SAY ' Ilgalaikis mat. turtas' GET g_turt DEFAULT '120 ' MESSAGE 'Ilgalaikio materialiojo turto sаskaita'
@ $+1, 1 SAY ' -//- nusidлvлjimas' GET g_nusid DEFAULT '1208 ' MESSAGE 'Ilgalaikio materialiojo turto nusidлvлjimo sаskaita'
@ $+1, 0 SAY 'Prekлs skirtos perparduoti' GET g_204 DEFAULT '204 ' MESSAGE 'Prekлs skirtos perparduoti'
@ $+1, 1 SAY ' Pirkлjai' GET g_pirk DEFAULT '240 ' MESSAGE 'Pirkлjш sаskaita (2 klasл)'
@ $+1, 1 SAY ' Pirkimo PVM' GET g_tpvm DEFAULT '251 ' MESSAGE 'Pirkimo PVM sаskaita (2 klasл)'
@ $+1, 1 SAY ' Kitos gautinos sumos' GET g_256 DEFAULT '256 ' MESSAGE 'Kitos gautinos sumos '
@ $+1, 1 SAY ' Tiekлjai' GET g_tiek DEFAULT '450 ' MESSAGE 'Tiekлjш sаskaita (4 klasл)'
@ 2, 37 SAY ' Pardavimo PVM' GET g_rpvm DEFAULT '4701 ' MESSAGE 'Pardavimo PVM sаskaita (4 klasл)'
@ $+1, 37 SAY 'Paj. mok. nuo autor.atlyg' GET g_autpm DEFAULT '4702 ' MESSAGE 'Priskaityti autoriniai atlyginimai (4 klasл)'
@ $+1, 37 SAY ' Autoriniai atlyginimai' GET g_autor DEFAULT '4712 ' MESSAGE 'Priskaityti autoriniai atlyginimai (4 klasл)'
@ $+1, 37 SAY ' Atsargш padidлjimas' GET g_42 DEFAULT '6005 ' MESSAGE 'Atsargш padidлjimas/sumaюлjimas darant perkainojimа'
@ $+1, 37 SAY 'Parduotш prekiш savikaina' GET g_600 DEFAULT '600 ' MESSAGE 'Parduotш prekiш savikaina (6 klasл)'
@ $+1, 37 SAY ' Amortizaciniai atskait' GET g_aa DEFAULT '61005 ' MESSAGE 'Amortizaciniш atskaitymш sаskaita (6 klasл)'
@ $+1, 37 SAY ' Iрlaidos atlyginimams' GET g_iatl DEFAULT '61001 ' MESSAGE 'Iрlaidos atlyginimams, jei padaliniш sаraрe nenurodyta kita sаskaita (6 klasл)'
@ $+1, 37 SAY ' Iрlaidos soc. draudimui' GET g_isd DEFAULT '61002 ' MESSAGE 'Iрlaidos soc. draudimui, jei padaliniш sаraрe nenurodyta kita sаskaita (6 klasл)'
@ $+2, 1 GET g_altsask DEFAULT .F. PICTURE '@*c Naudojamas ir alternatyvus sаkaitш planas' MESSAGE 'Paюymлkite, jei naudojamas ir alternatyvus sаkaitш planas'
@ enm, 27 GET toliau DEFAULT 0 SIZE 1.7 , 3 PICTURE '@*nhb arrow-lt.gif;arrow-rt.gif' VALID tolv() MESSAGE "Kitas langas"
@ enm, 36 GET ok DEFAULT 0 SIZE 1.7 , 7 PICTURE '@*B stop.bmp' MESSAGE "Baigti"
ON KEY LABEL ctrl+f9 DO b
READ CYCLE
ON KEY LABEL ctrl+f9
RELEASE WINDOW param, param2, param3, param4, param5
IF g_atsika=1
g_apirkk = .T.
ELSE
g_apirkk = .F.
ENDIF
SELECT 0
imon1 = "'"+defaroda+"\imon'"
USE &imon1
LOCATE FOR ALLTRIM(pavad)=ALLTRIM(company02)
IF FOUND() .AND. .NOT. EMPTY(g_company2)
REPLACE pavad WITH g_company2
ENDIF
USE
IF EMPTY(g_logo)
g_logo = 'c:\roda\tuscias.bmp'
ENDIF
IF g_biudz
DEFINE BAR ibiudz OF buh PROMPT 'Memorialinis orderis' MESSAGE 'Memorialinis orderis'
ELSE
DEFINE BAR ibiudz OF buh PROMPT 'Sаskaitos юiniaraрtis' MESSAGE 'Sаskaitos pravedimш юiniaraрtis'
ENDIF
SAVE TO peri ALL LIKE g_*
_SCREEN.caption = ALLTRIM(g_company)+' - RODA'
_SCREEN.refresh
RETURN
ENDPROC
**
PROCEDURE gcv
IF g_clock
SET CLOCK ON
ELSE
SET CLOCK OFF
ENDIF
RETURN
ENDPROC
**
PROCEDURE gsd_v
IF BETWEEN(LASTKEY(), 48, 57)
sd1 = DTOC(g_sd)
! DATE &sd1
ENDIF
g_sd = DATE()
SHOW GETS
RETURN
ENDPROC
**
PROCEDURE gtm_v
IF BETWEEN(LASTKEY(), 48, 57)
time1 = ALLTRIM(STR(g_time, 5, 2))
! TIME &time1
ENDIF
g_time = VAL(SUBSTR(TIME(), 1, 2)+'.'+SUBSTR(TIME(), 4, 2))
SHOW GETS
RETURN
ENDPROC
**
PROCEDURE gtm_w
g_time = VAL(SUBSTR(TIME(), 1, 2)+'.'+SUBSTR(TIME(), 4, 2))
SHOW GETS
RETURN
ENDPROC
**
FUNCTION nome_v
x = VARREAD()
IF .NOT. USED('gpr')
SELECT 0
USE gpr
ENDIF
SET ORDER IN gpr TO nome
IF (EVALUATE(VARREAD())=0 .AND. INLIST(LASTKEY(), 13)) .OR. (EVALUATE(VARREAD())<>0 .AND. .NOT. SEEK(STR(EVALUATE(VARREAD()), 9), 'gpr'))
ON KEY LABEL f12 DO xx12
KEYBOARD '{F12}'
RETURN 0
ENDIF
RETURN
ENDFUNC
**
PROCEDURE xx12
grznome = 777
IF g_barcode
DO medrink WITH grznome, 0, 0, 0, ''
ELSE
DO medrink WITH grznome, 0, 0, 0
ENDIF
IF grznome>0
SELECT gpr
LOCATE FOR nome=grznome
&x = gpr.NOME
SHOW GETS
ENDIF
RETURN
ENDPROC
**
PROCEDURE a
IF EMPTY(kp_licno)
DO pran WITH "Бveskite licencijos numerб"
RETURN
ENDIF
defa_old = '"'+SYS(5)+SYS(2003)+'"'
SET DEFAULT TO (startupdir)
IF FILE('c:\roda\kp.mem')
RESTORE FROM c:\roda\kp.mem ADDITIVE
ENDIF
DO pran WITH SYS(5)+SYS(2003)
IF TYPE('kp_kiet')='U'
PUBLIC kp_kiet
kp_kiet = '618'
ENDIF
atsa = volroda()
IF kp_kiet=SYS(2007, atsa)
kp_kiet = 'abc'
rcvo = 1
ELSE
kp_kiet = SYS(2007, atsa)
rcvo = 0
ERASE c:\roda\*.ats
ERASE c:\roda\*.met
ERASE c:\roda\*.inp
ENDIF
SAVE TO c:\roda\kp.mem ALL LIKE kp_*
SET DEFA TO &defa_old
RETURN
ENDPROC
**
PROCEDURE g_ver_w
IF g_ver=MONTH(DATE())+DAY(DATE())*5
ON KEY LABEL f8 DO a
ENDIF
RETURN
ENDPROC
**
PROCEDURE g_ver_v
ON KEY LABEL f8
RETURN
ENDPROC
**
FUNCTION kprof
defa_old = '"'+SYS(5)+SYS(2003)+'"'
SET DEFAULT TO (startupdir)
IF FILE('c:\roda\kp.mem')
RESTORE FROM c:\roda\kp.mem ADDITIVE
ENDIF
DEFINE WINDOW kopr1 AT 1, 1 SIZE 22, 70 FONT (wfname), (wfsize) FLOAT TITLE ' Darbo vietos nustatymai 1/3 ' FOOTER ' PgUp, PgDn - vartyti ' ICON FILE (wicon) COLOR SCHEME 5
MOVE WINDOW kopr1 CENTER
ACTIVATE WINDOW kopr1
@ 0, 28 SAY 'Kompiuterio vardas' GET kp_kv DEFAULT SPACE(10) SIZE 1, 10 MESSAGE 'Kompiuterio vardas'
kp_sut = 2
@ 1, 1 GET kp_print DEFAULT 0 SIZE 1.7 , 15 PICTURE '@*n Spausdintuvas' VALID prtsel() MESSAGE 'Spausdintuvo pasirinkimas'
@ $, 28 SAY 'Licencijos numeris' GET kp_licno DEFAULT SPACE(7) SIZE 1, 7 PICTURE '9999999' VALID licval() MESSAGE 'RODOS licencijos numeris'
IF TYPE('kp_ekaLICNO')<>'C'
kp_ekalicno = SPACE(7)
ENDIF
@ $+1.5 , 16 SAY 'Kasos aparatш modulio Licencijos numeris' GET kp_ekalicno DEFAULT SPACE(7) SIZE 1, 7 PICTURE '9999999' VALID ekalicval() MESSAGE 'EKA licencijos numeris'
@ $+2, 1 GET kp_ka DEFAULT .F. PICTURE '@*c PVM sаskaitoje leisti spausdinti kasos kvito duomenis'
@ $+1, 1 GET kp_pvm_plus DEFAULT .T. PICTURE '@*c PVM pridedamas prie pardavimo kainш' MESSAGE 'Paюymлkite, jei PVM neбtrauktas б pardavimo kainas (18%)'
@ $+1, 1 GET kp_akcv DEFAULT .T. PICTURE '@*C Perkelti PVM procentа б iрraрomа PVM sаskaitа faktыrа' MESSAGE 'PVM procentа perkelti б iрraрomа PVM sаskaitа faktыrа'
@ $+1, 1 GET kp_perz DEFAULT .F. PICTURE '@*C Perюiыrлti faktыrа prieр spausdinant' MESSAGE 'Perюiыrлti faktыrа prieр spausdinant'
kp_lazer = .F.
@ $+1, 1 GET kp_pb DEFAULT .F. PICTURE '@*C Faktыroje spausdinti tik bendrа PVM sumа' MESSAGE 'Faktыroje spausdinti bendrа PVM sumа arba kiekvienai prekei atskirai'
@ $+2, 1 SAY 'Deрimtainiш trupmenш skyreklis' GET kp_point DEFAULT 1 PICTURE '@*rh Taрkas;Kablelis' MESSAGE 'Taрkas arba kablelis'
@ $+2, 1 SAY 'Slaptaюodis' GET kp_slz DEFAULT SPACE(10) PICTURE '!!!!!!!!!!' MESSAGE 'Jei slaptaюodis tuриias - jis nenaudojamas'
enm = 19
@ 20, 27 GET toliau DEFAULT 0 SIZE 1.7 , 3 PICTURE '@*nhb arrow-lt.gif;arrow-rt.gif' VALID tolv() MESSAGE "Kitas langas"
@ 20, 36 GET kp_ok5 DEFAULT 0 SIZE 1.7 , 7 PICTURE '@*B stop.bmp' MESSAGE "Baigti"
DEFINE WINDOW kopr2 AT 2, 3 SIZE 22, 70 FONT (wfname), (wfsize) FLOAT TITLE ' Darbo vietos nustatymai 2/3 ' FOOTER ' PgUp, PgDn - vartyti ' ICON FILE (wicon) COLOR SCHEME 5
MOVE WINDOW kopr2 CENTER
ACTIVATE WINDOW kopr2
@ 1, 1 SAY 'Paraрai po sаskaita-faktыra'
@ 2, 1 SAY 'Kairлje pusлje:'
@ $+1, 1 GET kp_pk1 DEFAULT PADR('Prekes iрdavл:', 43, ' ') SIZE 1, 43
@ $+1, 1 GET kp_pk2 DEFAULT SPACE(43) SIZE 1, 43
@ $+1, 1 GET kp_pk3 DEFAULT REPLICATE('-', 43) SIZE 1, 43
@ $+1, 1 GET kp_pk4 DEFAULT ' /vardas, pavardл, pareigos, paraрas/ ' SIZE 1, 43
@ $+2, 1 SAY 'Deрinлje pusлje:'
@ $+1, 1 GET kp_pd1 DEFAULT PADR('Prekes priлmл:', 43, ' ') SIZE 1, 43
@ $+1, 1 GET kp_pd2 DEFAULT SPACE(43) SIZE 1, 43
@ $+1, 1 GET kp_pd3 DEFAULT REPLICATE('-', 43) SIZE 1, 43
@ $+1, 1 GET kp_pd4 DEFAULT ' /vardas, pavardл, pareigos, paraрas/ ' SIZE 1, 43
@ $+2, 1 SAY 'Pastaba:'
@ $+1, 1 EDIT kp_pastaba DEFAULT '' SIZE 3, 65 MESSAGE 'Pastaba iрraрomoje PVM sаskaitoje.'
@ 20, 27 GET toliau DEFAULT 0 SIZE 1.7 , 3 PICTURE '@*nhb arrow-lt.gif;arrow-rt.gif' VALID tolv() MESSAGE "Kitas langas"
@ 20, 36 GET kp_ok5 DEFAULT 0 SIZE 1.7 , 7 PICTURE '@*B stop.bmp' MESSAGE "Baigti"
IF .F.
DEFINE WINDOW kopr3 AT 3, 5 SIZE 22, 70 FONT (wfname), (wfsize) FLOAT TITLE ' Darbo vietos nustatymai 3/3 ' ICON FILE (wicon) COLOR SCHEME 5
MOVE WINDOW kopr3 CENTER
ACTIVATE WINDOW kopr3
kp_monit = 1
IF TYPE('kp_fisc')<>'N'
kp_fisc = 1
ENDIF
@ 4, 1 SAY 'Kasos aparatas'
@ 4, 16 GET kp_fisc SIZE 1, 12 FUNCTION '^ Nлra;ELZAB' MESSAGE 'Naudojamo kasos aparato vardas'
@ 4, $+14 SAY 'Pinigai kasos aparate' GET kp_kasa DEFAULT '272 ' MESSAGE 'Sаskaita kurioje apskaitomi pinigai бmokлti per kasos aparatа'
IF TYPE('g_padal')<>'N'
g_padal = 1
ENDIF
SELECT padal
LOCATE FOR cech=g_padal
@ 7, 1 SAY 'Pagrindinis padalinys' GET kp_padal DEFAULT 1 PICTURE '9999' VALID kppadv()
@ $, $+1 GET padal.ppav DISABLE
@ 20, 27 GET toliau DEFAULT 0 SIZE 1.7 , 3 PICTURE '@*nhb arrow-lt.gif;arrow-rt.gif' VALID tolv() MESSAGE "Kitas langas"
@ 20, 36 GET kp_ok5 DEFAULT 0 SIZE 1.7 , 7 PICTURE '@*B stop.bmp' MESSAGE "Baigti"
ENDIF
READ CYCLE
RELEASE WINDOW kopr1
RELEASE WINDOW kopr2
RELEASE WINDOW kopr3
SAVE TO c:\roda\kp.mem ALL LIKE kp_*
SET DEFA TO &defa_old
IF TYPE('kp_point')='N' .AND. kp_point=2
SET POINT TO ','
ELSE
SET POINT TO '.'
ENDIF
SHOW WINDOW ALL
RETURN 0
ENDFUNC
**
PROCEDURE b
PUSH KEY CLEAR
defa_old = '"'+SYS(5)+SYS(2003)+'"'
SET DEFAULT TO (startupdir)
IF FILE('c:\roda\kp.mem')
RESTORE FROM c:\roda\kp.mem ADDITIVE
ENDIF
DEFINE WINDOW parsec FROM 4, 7 TO 22, 73 FONT (wfname), (wfsize) FOOTER ' PgUp, PgDn - vartyti ' COLOR SCHEME 5
ACTIVATE WINDOW parsec
@ 1, 1 GET g_jn DEFAULT .F. PICTURE '@*c Nerodyti laikinш sаskaitш-faktыrш' MESSAGE 'Paюymлkite, jei nnenorite rodyti laikinш sаskaitш-faktыrш'
@ 3, 1 GET kp_pad1 DEFAULT .F. PICTURE '@*c Pirkimai/pardavimai' MESSAGE 'Pirkimai/pardavimai'
@ $+1, 1 GET kp_pad1a DEFAULT .T. PICTURE '@*c Pirkimai/pardavimai dokumentш tvarkymas' MESSAGE 'Pirkimai/pardavimai dokumentш tvarkymas'
@ $+1, 1 GET kp_pad2 DEFAULT .F. PICTURE '@*c Sandлliai' MESSAGE 'Sandлliai'
@ $+1, 1 GET kp_pad3 DEFAULT .F. PICTURE '@*c Turtas' MESSAGE 'Turtas'
@ $+1, 1 GET kp_pad4 DEFAULT .F. PICTURE '@*c Atlyginimai' MESSAGE 'Atlyginimai'
@ $+1, 1 GET kp_pad5 DEFAULT .F. PICTURE '@*c Buhaltarija' MESSAGE 'Buhalterija'
@ $+1, 1 GET kp_deve DEFAULT .F. PICTURE '@*c RODA vystymas' MESSAGE 'Vystymo ar galutinio vart. versijaBuhalterija'
@ 13, 24 GET okj DEFAULT 0 SIZE 1.7 , 8 PICTURE '@*B stop.bmp' MESSAGE 'Baigti'
READ CYCLE
RELEASE WINDOW parsec
SAVE TO c:\roda\kp.mem ALL LIKE kp_*
SET DEFA TO &defa_old
POP KEY
RETURN
ENDPROC
**
PROCEDURE kp_ed_v
asdfghk = kp_edit
IF kp_edit=2
SHOW GET kp_edext ENABLE
ELSE
SHOW GET kp_edext DISABLE
ENDIF
RETURN
ENDPROC
**
PROCEDURE kp_ep_v
_GENPD = 'GENPD.APP'
SET PDSETUP TO '???'
RETURN
ENDPROC
**
PROCEDURE kppadv
SELECT padal
LOCATE FOR cech=g_padal
SHOW GETS
RETURN
ENDPROC
**
PROCEDURE prtsel
SET PRINTER TO NAME GETPRINTER()
RETURN
ENDPROC
**
PROCEDURE tolv
DO CASE
CASE toliau=1
KEYBOARD '{pgup}'
CASE toliau=2
KEYBOARD '{pgdn}'
ENDCASE
ENDPROC
**
PROCEDURE cv1
g_company = CHRTRAN(g_company, '";.,', '')
g_company = CHRTRAN(g_company, "'", '')
SHOW GET g_company
RETURN
ENDPROC
**
PROCEDURE vlogo
g_logo = GETPICT()
SHOW GET g_logo
RETURN
ENDPROC
**
PROCEDURE biudz
IF g_biudz .AND. FILE(kurdb+'biudz\sask.dbf')
IF MESSAGEBOX('Jыs pasirinkote vesti biudюetinлs бstaigos apskaitа. Ar importuoti pavyzdinб biudюetinлs бstaigos sаskaitш planа vietoje esamo?', 36, 'Biudюetinлs бstaigos apskaita')<>6
RETURN
ENDIF
IF MESSAGEBOX('Ar tikrai norite iрtrinti esasmа sаskaitш planа ir pakeisti pavyzdiniu biudюetinлs бstaigos ssаskaitш planu?', 36, 'Sаskaitш plano keitimas')<>6
RETURN
ENDIF
SELECT sask
DELETE ALL
APPE FROM &kurdb.biudz\sask
ENDIF
RETURN
ENDPROC
**
FUNCTION licval
IF EMPTY(kp_licno)
RETURN
ENDIF
IF LEN(ALLTRIM(kp_licno))<>7
DO pran WITH "Licencijos numeris turi bыti iр 7 skaitmenш"
RETURN .F.
ENDIF
IF VAL(SUBSTR(kp_licno, 1, 1))+VAL(SUBSTR(kp_licno, 2, 1))+VAL(SUBSTR(kp_licno, 3, 1))+VAL(SUBSTR(kp_licno, 4, 1))+VAL(SUBSTR(kp_licno, 5, 1))<>VAL(SUBSTR(kp_licno, 6, 1))*10+VAL(SUBSTR(kp_licno, 7, 1))
DO pran WITH "Neteisingas licencijos numeris"
RETURN .F.
ENDIF
ENDFUNC
**
FUNCTION ekalicval
IF EMPTY(kp_ekalicno)
RETURN
ENDIF
IF LEN(ALLTRIM(kp_ekalicno))<>7
DO pran WITH "Licencijos numeris turi bыti iр 7 skaitmenш"
RETURN .F.
ENDIF
IF VAL(SUBSTR(kp_ekalicno, 1, 1))+VAL(SUBSTR(kp_ekalicno, 2, 1))+VAL(SUBSTR(kp_ekalicno, 3, 1))+VAL(SUBSTR(kp_ekalicno, 4, 1))+VAL(SUBSTR(kp_ekalicno, 5, 1))<>VAL(SUBSTR(kp_ekalicno, 6, 1))*10+VAL(SUBSTR(kp_ekalicno, 7, 1))
DO pran WITH "Neteisingas licencijos numeris"
RETURN .F.
ENDIF
ENDFUNC
**
|
|
|
|
|
RE: Программа на Fox Pro.Как разлочить? - 2011-07-07 02:18:50.446666
|
|
|
iljar
Сообщений: 9
Оценки: 0
Присоединился: 2011-07-03 21:31:10.390000
|
Ну я тут увидел только как проверяется серийник. И понял, какие данные по железу берутся для его генерации. А сам алгорифм не вижу. Или его тут нету?
П.с. Спасибо в любом случае!!!
|
|
|
|
|
RE: Программа на Fox Pro.Как разлочить? - 2011-07-07 02:37:11.990000
|
|
|
Flint_ta
Сообщений: 3720
Оценки: 1120
Присоединился: 2007-01-26 15:49:18.323333
|
Хотя…… Если присмотреться к последней функции:
FUNCTION ekalicval
IF EMPTY(kp_ekalicno)
RETURN
ENDIF
IF LEN(ALLTRIM(kp_ekalicno))<>7
DO pran WITH "Licencijos numeris turi bыti iр 7 skaitmenш"
RETURN .F.
ENDIF
IF VAL(SUBSTR(kp_ekalicno, 1, 1))+VAL(SUBSTR(kp_ekalicno, 2, 1))+VAL(SUBSTR(kp_ekalicno, 3, 1))+VAL(SUBSTR(kp_ekalicno, 4, 1))+VAL(SUBSTR(kp_ekalicno, 5, 1))<>VAL(SUBSTR(kp_ekalicno, 6, 1))*10+VAL(SUBSTR(kp_ekalicno, 7, 1))
DO pran WITH "Neteisingas licencijos numeris"
RETURN .F.
ENDIF
ENDFUNC
пароль 7-символьный, x1+x2+x3+x4+x5 = x6*10+x7, т.е например 4+4+4+4+1 = 1*10 + 7
Проверьте пароль: 4444117
|
|
|
|
|
RE: Программа на Fox Pro.Как разлочить? - 2011-07-07 02:42:56.373333
|
|
|
iljar
Сообщений: 9
Оценки: 0
Присоединился: 2011-07-03 21:31:10.390000
|
но это только проверка на валидность. принимает любой пароль , где последние 2 цифры-сумма первых. Но где то закопан и единственный серийник. и связано ето с …SYS(5)+SYS(2003)… Насколько я понял, разработчику по телефону говорят ID, а он в ответ серийник.
|
|
|
|
|
RE: Программа на Fox Pro.Как разлочить? - 2011-07-10 19:57:45.083333
|
|
|
iljar
Сообщений: 9
Оценки: 0
Присоединился: 2011-07-03 21:31:10.390000
|
И что, ни у кого нет никаких идей??? :-(
|
|
|
|
|
RE: Программа на Fox Pro.Как разлочить? - 2011-07-22 12:51:53.113333
|
|
|
iljar
Сообщений: 9
Оценки: 0
Присоединился: 2011-07-03 21:31:10.390000
|
:-(
|
|
|
|
|
|
