Здравейте
Да кажем, че успях да го докарам до това:
_____________
if DocNumber==0
print
ТОВА Е
, ВХ.№, ОТ ДАТА, ОТНОСНО, СРОК, ИЗПЪЛ., ПОЛУЧЕНО НА, ПРЕДАДЕНО НА, НА ДАТА
endprint
stop
endif
;============================================================
if DocNumber == -1
stop
endif
if @111001D=="" and @108001D==""
stop
endif
if ^exist(@999003D)
stop
endif
;===============================================================
for @999003D
p=substr(str(@116001D),9,2)
z=len(@111001D)
m=@111001D
d=ltrim(@108001D)
h=m+"-"+d+"/"+p
print
, @(h), @085001D, @108001D, @109001D, @110001D, @111001D, @112001D, @113003D, @114003D, @115003D, @116009N, @117009N, @118001D, @119003D, @120001D, @121001D, @122001D, @123003D, @124003D, @125003D, @126009N, @127009N, @128001D, @129001D, @130001D, @131001D, @132001D, @133003D, @134003D, @135003D, @136009N, @137009N, @138001D, @139001D, @140003D, @141001D, @142001D, @143003D, @144003D, @170003D, @249009N, @250009N, @251001D, @252001D, @253001D, -> @139009D, @141009N
endprint
;@116001D, @111001D, @108001D,, @116001D, @117001D, @119003D, @140003D, @143003D, -> @139009D, @141009N
next
;===============================================================
for @999012D
p=substr(str(@116001D),9,2)
z=len(@111001D)
m=@111001D
if z>4
m=substr(@111001D,1,z-3)
endif
d=ltrim(@108001D)
h=m+"-"+@109012+"-"+d+"/"+p
print
, @(h), @085001D, @108001D, @109001D, @110001D, @111001D, @112001D, @113003D, @114003D, @115003D, @116009N, @117009N, @118001D, @119003D, @120001D, @121001D, @122001D, @123003D, @124003D, @125003D, @126009N, @127009N, @128001D, @129001D, @130001D, @131001D, @132001D, @133003D, @134003D, @135003D, @136009N, @137009N, @138001D, @139001D, @140003D, @141001D, @142001D, @143003D, @144003D, @170003D, @249009N, @250009N, @251001D, @252001D, @253001D, -> @139009D, @141009N
endprint
;@116001D, @111001D, @108001D, @109012, @084012, @104012, @119012, @121012, @143012, -> @142, @141
next
;==============================================================;==============
_____________
което:
1. изкарва всички описани променливи, но отново не изкарва стринга с коментариите
___________
, АГ10-23/10, 04.02.2010, 23, 00001/2010, Рубен Азгалдян-ЖСК Еделвайс 2004, АГ10, , , , Пенчо Пенчев, , , , 02.03.2010, , , , , , 00.00.0, , , , , , , , , , , , , , , Г.Чучукова, , , 02.02.2010, , , , , , , , -> ,
___________
2. изкарва на определени места нули, което ме кара да си мисля, че може би там трябва да излизат коментариите, но идея си нямам как да ги изкарам
3. Данните се отварят с EXCEL но по такъв строшен начин, че ако седнеш да си играеш и да ги чистиш ръчно, мамата си джаса... Освен всичко останало, точно деловодната БД , която е окол 100 МВ не я отваря- излиза с грешка, че не е отворен целия файл
___________
920010119СОФИЯ(СТОЛИЧНА2ИЗГРЕВ<АЛЕКСАНДЪР ДАНИЕЛОВ ПЕТРОВ>СОФИЯAИЗГРЕВDР БЪЛГАРИЯFмъжкиP11.01.2001ZЕдинадесети януари двехиляди и първа годинаd0141116528nР БЪЛГАРИЯxИРЕНА МЕТОДИЕВА ПАНЧЕВА‚7609146393ЊР БЪЛГАРИЯ–ДАНИЕЛ АНГЕЛОВ ПЕТРОВ7109127142ЄР БЪЛГАРИЯю0001AKTRAG $=зцy<ч¦
___________
4. и последно - скрипта категорично не сработва за всички години - от 1998 до сега, а само по 1 година - при опит да го пусна за всички години очевидно има конфликт с някои от полетата и това, което се опитва да извлече от тях и гърми с някаква грешка - мисля че беше #20 или #21 - но пък за сметк на това не зная къде да я потърся , за да видя какво аджеба значи грешката...
Това, с което мисля да си поиграя утре е да видя за кои точно променливи излизат тези 0 и да се опитам да намеря дали за тях не са дефинирани някакви динамични стойности, които се различават от описаните по-горе
Ако някой има някаква друга идея - готова съм да тествам и нея
BDE на стария сървър няма инсталирано, на моята машина не отваря по никакъв начин базите данни;ACCESS - също - дори с изкуствено сложен ехт MDВ, версия на Офис-пакет 97 - също не ги отваря
В ДАТ файловете също няма нищо необичайно - примерно - номенклатура за видовете документи, резолиращ, просто нищо за което да се закачиш и да тръгнеш в някаква посока да търсиш
Единствения за момента начин го виждам чрез дъмп с работещ скрипт (не като моя...
NOONE can kill me- I'm Allready dead
|