: zapis_faktura.prg
: запис на фактурата
чист
база faktura
записана typ(1,4)<>0
ако записана то кажи ##вече_е_записана
ред1 14
ред2 present('Сбор :',1,1,0)-2
клиент scopy(scell(6,1),13,25)
фномер scopy(scell(10,1),8,10)
фдата scopy(scell( 9,1),8,10)
база register
добави 1
бр1 countrr(0)
бкопи faktura(ред1,1,ред2,2) (бр1-ред1,3-1)
бкопи faktura(ред1,4,ред2,4) (бр1-ред1,5-4)
бр2 countrr(0)
блок $(бр1,1,бр2,1)+фномер
блок $(бр1,2,бр2,2)+фдата
блок $(бр1,6,бр2,6)+клиент
поле user_options(3,2)=фномер
база faktura
поле (1,4)=' .'
база blanka
отрез 2
добави 1
curr 3