| View previous topic :: View next topic |
| Author |
Message |
dez
Joined: 22 Jan 2002
Posts: 165
|
 Posted: 01 Jun 2004 16:17 Post subject: Экспорт из Заработной платы |
 |
|
| Кто-нить пробовал делать экспорт из Заработной платы? Мне нужно предоставить в СберБанк список получателей з/п на карточки в эл.виде - текстовой файлик. Пытаюсь настроить экспорт из файла RECTRANC.DBF в текстовой... И постоянно выскакивают ошибки. Вобщем, если кто делал похожий экпорт - поделитесь опытом. |
|
| Back to top |
|
 |
newer
Joined: 02 Oct 2002
Posts: 28
|
| Posted: 07 Jun 2004 12:35 Post subject: |
|
|
Делаем экспорт каждый месяц
Формат файла таков:
№ п/п,№ лицевого счета, сумма, ФИО
По Ctrl+F5 из лицевых счетов запускаем процедурку (она на основе списков на перечисление формирует текстовик)
Вот код процедурки:
private fname,tfile,s,i
fname:=" "
tfile:=0
s:=" "
i:=0
fname:=apars[1]+'sp'+right(dtos(date()),6)+'.txt'
tfile:=fcreate(fname)
if tfile<0
SayAndWait('Нельзя создать или открыть указанный файл')
else
dbpush()
dbOpenBases({{'rectranc','rectranc.dbf'}})
rectranc->(dbgotop())
do while (rectranc->(!eof()))
if rectranc->code='001'
if rectranc->sum<>0
i:=i+1
s:=alltrim(str(i))+','+alltrim(rectranc->nfacc)+','+alltrim(str(rectranc->sum,20,2))+','+alltrim(rectranc->name)
fwrite(tfile,s+chr(13)+chr(10))
endif
endif
rectranc->(dbskip())
enddo
if !fclose(tfile)
SayAndWait('Файл не закрыт. Ошибка :' + alltrim(str(ferror())))
endif
dbCloseBases({'rectranc'})
dbpop()
endif
_________________
newer |
|
| Back to top |
|
|
dez
Joined: 22 Jan 2002
Posts: 165
|
| Posted: 09 Jun 2004 10:09 Post subject: |
|
|
спасибо, все получилось (ессесно, чуть подправил  ) |
|
| Back to top |
|
|
newer
Joined: 02 Oct 2002
Posts: 28
|
| Posted: 10 Jun 2004 17:16 Post subject: |
|
|
Не за ч
_________________
newer |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
