Привет
Дъмпнах ги...
През самата програма...
Със скрипт..., който е вид "карта" (файловете с разширение МАР), която указва на принтера как да ги разпечата, ако си ги избрал по някакви показатели, но в действителност, вместо да ги печата, ги засилва във файл
Толкова саката работа не съм виждала - а със сигурност поне едно 4-5 деловодни програми са ми минали през ръцете - нито търсенето е както трябва, има заложени функции "експорт" и "импорт", които не работят, хелпа не работи...
..................
Ето това е скрипта, който сътворих и ги дъмпна
if DocNumber==0
print
БАЗА ДАННИ
endprint
stop
endif
;============================================================
if DocNumber == -1
stop
endif
if @111001D=="" and @108001D==""
stop
endif
;===============================================================
p=substr(str(@116001D),9,2)
z=len(@111001D)
m=@111001D
d=ltrim(@108001D)
h=m+"-"+d+"/"+p
print
@(h), @084001D, @085001D, @108001D, @109001D, @110001D, @111001D, @112001D, @113001D, @114001D, @115003D, @116001D, @117001D, @118001D, @119, вътрешно движение ->, @138001D, @139001D, @102001D, @141001D, изходяща кореспонденция->, @130002D, @131002D, @101002D, @121002D, @104002D, !!!!!!!!!!!!
endprint
for @999012D
p=substr(str(@116001D),9,2)
z=len(@111001D)
m=@111001D
d=ltrim(@108001D)
h=m+"-"+d+"/"+p
print
@(h), допълнителен входящ документ->, @084012, @085012, @100012, @103012, @104012, @109012, @112012, @119012, @121012, @137012, @143012, @142012, @141012, !!!!!!!!!!!!
endprint
next
;==============================================================;==============
NOONE can kill me- I'm Allready dead
|