: START_SUPTO.PRG
чист
%PP%READ_SUPTO_SETTINGS.PRG
задача 1
ако fparam(0)>0
 задача fparam(1)
крайако
пътеката_е_там existps(пътека_фп)
ако пътеката_е_там=0
 кажи getok('Не е намерена пътеката','пътеката '+пътека_фп+' не е намерена.',3)
 стоп(1)
крайако

префикс_фп пътека_фп+'\'
програма_там префикс_фп+фп_програма
програмата_е_там existfs(програма_там)
ако програмата_е_там=0
 кажи getok('Не е намерена програмата','програма '+програма_там+' не е намерена.',3)
 стоп(1)
крайако
пид_файл префикс_фп+'LASTPROCESSID.TXT'
има_следа existfs(пид_файл)

ако има_следа
 кажи getok('Вече е стартирана','Тази програма вече е стартирана & WHY_PROGRAM_IS_STARTED.TXT',2)
 стоп(1)
крайако

ако задача=1
 линия префикс_фп+фп_програма+' P:'+пътека_фп
 ако ключ_админ<>'' то линия линия+' UAP:'+ключ_админ
 изп @линия
крайако

грешка 0
ако задача=3
 линия префикс_фп+фп_програма+' P:'+пътека_фп
 стартова линия
 ако оп_вход=0
  грешка 1
 иначе
  подпреход 1000
  ако sttor(сума_за_плащане)>0
   грешка 2
  иначе
   ако sttor(към_фактура_номер)>0 and lenstr(към_фактура_номер)=10
    към_коя към_фактура_номер
   иначе
    към_коя scopy(към_фактура_номер,3,10)
   крайако
   ако lenstr(към_коя)<>10 то грешка 3
   ако грешка=0
    линия_кредитно док_номер0+','+док_дата+','+към_коя+','+към_фактура_дата
    добавка_линия 'UAP:'+оп_вход+' UOC:CN,'+линия_кредитно
    линия стартова+' '+добавка_линия
    дъл lenstr(линия)

    изп @линия
   крайако
  крайако
 крайако
крайако

ако грешка=1 то кажи getok('грешка','лош вход за оператор',1)
ако грешка=2 то кажи getok('грешка','лош документ, трябва да е кредитно известие',1)
ако грешка=3 то кажи getok('грешка','лош документ, трябва да е посочена фактура',1)

стоп(1)
==========================================
1000 : подпрограма за четене на документа
документ_таблица 'DOKUMENT_IZHOD'
база @документ_таблица
tfzd cbasename(0)
: ot ZAPIS_DOKUMENT.PRG
грешка 0
: съхранява документа
направление 2

READ_FIRM.PRG
READ_USER_OPTIONS.PRG
еордер 0
входящ направление=1
изходящ направление=2

ако направление=1 то вид_документ прием_отвън_с_ддс
ако направление=2 то вид_документ фактура_за_продажба
ако направление=3 то вид_документ прием_воп
текущ_ддс_проц ддс_процент

база @документ_таблица
OBEDINI_KOLONITE.PRG
read_doc_info.prg(документ_таблица)

източник_пл ''
копи @документ_таблица f001
база f001

фкопи F001.FMT FORMTEMP.TXT

проц @четяща
база DOKUMENT_IZHOD
изтр f001

пробратно
=====================================