1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
SELE 0
CREATE CURSOR CTTND (D_DOK D( 8 ),N_DOK C( 10 ),OTPR C( 40 ),POLUC C( 40 ),SUMD N( 18 , 2 ),NAIMDOK C( 35 ),SCET N( 5 ),NAIM_T2 C( 25 ),ED_IZM C( 6 ),CENA N( 16 , 8 ),KOL N( 15 , 3 ),SUMS N( 18 , 2 ),P_NDS N( 5 , 2 ),S_NDS N( 15 , 2 ),СУММА_С_НДС N( 19 , 2 ),ID_DOK I( 4 ))
INSERT INTO CTTND (D_DOK,N_DOK,OTPR,POLUC,SUMD,NAIMDOK,SCET,NAIM_T2,ED_IZM,CENA,KOL,SUMS,P_NDS,S_NDS,СУММА_С_НДС,ID_DOK) VALUES ({^ 2009 - 3 - 2 },'1121363 ','СКЛАД МАТЕРИАЛОВ ','СПК ИМЕНИ ЦАРЮКА Д.ЕРЕМИЧИ ', 0 . 00 ,'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ ', 1002 ,'ЗАГОРТАЧ АНК.PSMI90054110','ШТ ', 7234 . 02000000 , 20 . 000 , 144680 . 40 , 0 . 00 , 0 . 00 , 144680 . 40 , 56393 )
INSERT INTO CTTND (D_DOK,N_DOK,OTPR,POLUC,SUMD,NAIMDOK,SCET,NAIM_T2,ED_IZM,CENA,KOL,SUMS,P_NDS,S_NDS,СУММА_С_НДС,ID_DOK) VALUES ({^ 2009 - 3 - 2 },'1121366 ','СКЛАД МАТЕРИАЛОВ ','СПК"17-ое СЕНТЯБРЯ" НЕСВИЖСКИЙ Р-Н МИНСК', 174916 . 00 ,'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ ', 1002 ,'ВАКУУММЕТР ДМ-02-063-1-G ','ШТ ', 43729 . 00000000 , 2 . 000 , 87458 . 00 , 0 . 00 , 0 . 00 , 87458 . 00 , 56355 )
INSERT INTO CTTND (D_DOK,N_DOK,OTPR,POLUC,SUMD,NAIMDOK,SCET,NAIM_T2,ED_IZM,CENA,KOL,SUMS,P_NDS,S_NDS,СУММА_С_НДС,ID_DOK) VALUES ({^ 2009 - 3 - 3 },'1121373 ','СКЛАД МАТЕРИАЛОВ ','ОАО"ХОНЕВИЧИ" СВИСЛОЧСКИЙ Р-Н ГРОДНЕНСК.', 0 . 00 ,'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ ', 4101 ,'ВАЛ 10025.8000-09.0056W ','ШТ ', 450350 . 00000000 , 1 . 000 , 450350 . 00 , 0 . 00 , 0 . 00 , 450350 . 00 , 56363 )
INSERT INTO CTTND (D_DOK,N_DOK,OTPR,POLUC,SUMD,NAIMDOK,SCET,NAIM_T2,ED_IZM,CENA,KOL,SUMS,P_NDS,S_NDS,СУММА_С_НДС,ID_DOK) VALUES ({^ 2009 - 3 - 3 },'1121377 ','СКЛАД МАТЕРИАЛОВ ','ЛРСУП "МОЖЕЙКОВО" ЛИДСКИЙ Р-Н ГРОДНЕНСК.', 20097 . 00 ,'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ ', 1001 ,'БОЛТ 14*70','КГ ', 1024 . 70000000 , 10 . 000 , 10247 . 00 , 0 . 00 , 0 . 00 , 10247 . 00 , 56364 )
INSERT INTO CTTND (D_DOK,N_DOK,OTPR,POLUC,SUMD,NAIMDOK,SCET,NAIM_T2,ED_IZM,CENA,KOL,SUMS,P_NDS,S_NDS,СУММА_С_НДС,ID_DOK) VALUES ({^ 2009 - 3 - 3 },'1121377 ','СКЛАД МАТЕРИАЛОВ ','ЛРСУП "МОЖЕЙКОВО" ЛИДСКИЙ Р-Н ГРОДНЕНСК.', 20097 . 00 ,'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ ', 1001 ,'ЗАКЛЕПКА 6*30','КГ ', 989 . 00000000 , 5 . 000 , 4945 . 00 , 0 . 00 , 0 . 00 , 4945 . 00 , 56364 )
INSERT INTO CTTND (D_DOK,N_DOK,OTPR,POLUC,SUMD,NAIMDOK,SCET,NAIM_T2,ED_IZM,CENA,KOL,SUMS,P_NDS,S_NDS,СУММА_С_НДС,ID_DOK) VALUES ({^ 2009 - 3 - 3 },'1121377 ','СКЛАД МАТЕРИАЛОВ ','ЛРСУП "МОЖЕЙКОВО" ЛИДСКИЙ Р-Н ГРОДНЕНСК.', 20097 . 00 ,'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ ', 1001 ,'ЗАКЛЕПКА 6*34','КГ ', 981 . 00000000 , 5 . 000 , 4905 . 00 , 0 . 00 , 0 . 00 , 4905 . 00 , 56364 )
INSERT INTO CTTND (D_DOK,N_DOK,OTPR,POLUC,SUMD,NAIMDOK,SCET,NAIM_T2,ED_IZM,CENA,KOL,SUMS,P_NDS,S_NDS,СУММА_С_НДС,ID_DOK) VALUES ({^ 2009 - 3 - 3 },'1121381 ','СКЛАД МАТЕРИАЛОВ ','СПК "ПРИНЕМАНСКИЙ" П.ЛЮБЧА НОВОГРУДСКИЙ ', 0 . 00 ,'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ ', 4101 ,'ВАЛ КАРД.10.016.3000-140 ','ШТ ', 156435 . 00000000 , 1 . 000 , 156435 . 00 , 0 . 00 , 0 . 00 , 156435 . 00 , 56365 )
INSERT INTO CTTND (D_DOK,N_DOK,OTPR,POLUC,SUMD,NAIMDOK,SCET,NAIM_T2,ED_IZM,CENA,KOL,SUMS,P_NDS,S_NDS,СУММА_С_НДС,ID_DOK) VALUES ({^ 2009 - 3 - 3 },'1121386 ','СКЛАД КОМБАЙНОВ ','ВОЛОЖИН РАЙАГРОПРОМТЕХНИКА ', 695877 . 37 ,'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ ', 1002 ,'ОПОРА 4221621408','ШТ ', 2682 . 00000000 , 20 . 000 , 53640 . 00 , 0 . 00 , 0 . 00 , 53640 . 00 , 56484 )
INSERT INTO CTTND (D_DOK,N_DOK,OTPR,POLUC,SUMD,NAIMDOK,SCET,NAIM_T2,ED_IZM,CENA,KOL,SUMS,P_NDS,S_NDS,СУММА_С_НДС,ID_DOK) VALUES ({^ 2009 - 3 - 3 },'1121386 ','СКЛАД КОМБАЙНОВ ','ВОЛОЖИН РАЙАГРОПРОМТЕХНИКА ', 695877 . 37 ,'ТОВАРНО-ТРАНСПОРТНАЯ НАКЛАДНАЯ ', 4101 ,'ВАЛ (41) 060002936','ШТ ', 642237 . 37000000 , 1 . 000 , 642237 . 37 , 0 . 00 , 0 . 00 , 642237 . 37 , 56484 )
#INCLUDE "Excel.h"
#INCLUDE "graph.h"
SET SAFETY OFF
SELE CTTND
KS=RECCOUNT()
KP=AFIELDS(NP)
COPY TO "c:\мои документы\NATALI.xls" TYPE XL5 FIELDS scet,naim_t2,ed_izm,cena,kol,sumS,P_NDS,S_NDS,СУММА_С_НДС
SET SAFETY ON
oEXCEL=CREATEOBJECT("EXCEL.APPLICATION")
cFileName = "c:\мои документы\NATALI.xls"
objBook = oExcel.WorkBooks.Open(cFileName)
oSheet = oExcel.WorkSheets("NATALI")
oExcel.Visible = .T.
WITH oSheet
.PageSetup.Orientation = 1
.PageSetup.RightMargin = 0
*удалить 5 -й столбец
* .Columns("E:E").Delete
KPL=KP- 7
DIME DLI(KPL)
DLI( 1 )= 4
DLI( 2 )= 25
DLI( 3 )= 4
DIME MSUM(KPL)
SELE CTTND
CALC MAX(cena),MAX(kol),MAX(sumS),MAX(P_NDS),MAX(S_NDS),MAX(СУММА_С_НДС) TO MSUM( 4 ),MSUM( 5 ),MSUM( 6 ),MSUM( 7 ),MSUM( 8 ),MSUM( 9 )
FOR I= 4 TO KPL
SUM=MSUM(I)
DLI(I)=LEN(LTRIM(STR(SUM, 18 , 2 )))+int(LEN(LTRIM(STR(SUM, 18 , 2 )))/ 3 )
ENDFOR
*шапка
.Range(.Cells( 1 , 1 ),.Cells( 1 ,KPL)).Font.FontStyle = "полужирный"
.Range(.Cells( 1 , 1 ),.Cells( 1 ,KPL)).HorizontalAlignment = xlCenter
.Range(.Cells( 1 , 1 ),.Cells( 1 ,KPL)).VerticalAlignment = xlCenter
.Cells( 1 , 1 ).VALUE="Счёт"
.Cells( 1 , 2 ).VALUE="Наименование товара"
.Cells( 1 , 3 ).VALUE="Ед.изм."
.Cells( 1 , 4 ).VALUE="Цена"
.Cells( 1 , 5 ).VALUE="Кол-во"
.Cells( 1 , 6 ).VALUE="Сумма"
.Cells( 1 , 7 ).VALUE="% НДС"
.Cells( 1 , 8 ).VALUE="Сумма НДС"
.Cells( 1 , 9 ).VALUE="Сумма с НДС"
.Range(.Cells( 1 , 1 ),.Cells( 1 ,KPL)).RowHeight = 15
.Range(.Cells( 1 , 1 ),.Cells( 1 ,KPL)).Borders(xlEdgeLEFT).Weight = xlThin
.Range(.Cells( 1 , 1 ),.Cells( 1 ,KPL)).Borders(xlEdgeTOP).Weight = xlThin
.Range(.Cells( 1 , 1 ),.Cells( 1 ,KPL)).Borders(xlEdgeRIGHT).Weight = xlThin
.Range(.Cells( 1 , 1 ),.Cells( 1 ,KPL)).Borders(xlEdgeBOTTOM).Weight = xlThin
*МЕЖДУ ШАПКОЙ И ИТОГАМИ
.Range(.Cells( 1 , 1 ),.Cells(KS+ 1 ,KPL)).Borders(xlInsideVertical).Weight = xlHairline
.Range(.Cells( 2 , 1 ),.Cells(KS+ 1 ,KPL)).Borders(xlInsideHorizontal).Weight = xlHairline
.Range(.Cells( 1 , 1 ),.Cells(KS+ 1 ,KPL)).Borders(xlEdgeLEFT).Weight = xlThin
.Range(.Cells( 1 , 1 ),.Cells(KS+ 1 ,KPL)).Borders(xlEdgeRIGHT).Weight = xlThin
.Range(.Cells( 2 , 6 ),.Cells(KS+ 1 ,KPL)).NumberFormat = "#,##0.00"
FOR I= 2 TO KS+ 1
.Cells(I, 2 ).VALUE=PROPER(.Cells(I, 2 ).VALUE)
ENDFOR
.Range(.Cells( 1 , 1 ),.Cells(KS+ 1 ,KPL)).Font.Size = 7
FOR I= 1 TO KPL
IF I< 4
.Columns(I).ColumnWidth =DLI(I)* 0 . 7
ELSE
.Columns(I).ColumnWidth =DLI(I)* 0 . 7 + 2
ENDIF
ENDFOR
.Columns( 7 ).ColumnWidth = 5
* ВСТАВИМ ШАПКИ ДЛЯ ТТН
SELECT PADR(DTOC(D_DOK)+" "+N_DOK+" "+RTRIM(OTPR)+"=>"+RTRIM(POLUC), 100 ) AS SAP,SUM(SUMS) AS SUMD,COUNT(*) AS KZ ;
FROM CTTND GROUP BY ID_DOK order by d_dok,n_dok,id_dok INTO CURSOR CAP
NSTR= 2
SCAN
.CELLS(NSTR, 1 ).EntireRow.Insert
.Range(.Cells(NSTR, 1 ),.Cells(NSTR, 9 )).Merge
.Cells(NSTR, 1 ).VALUE=RTRIM(CAP.SAP)+" "+STR(CAP.SUMD, 10 )
.Range(.Cells(NSTR, 1 ),.Cells(NSTR, 9 )).RowHeight = 18
.Range(.Cells(NSTR+ 1 , 1 ),.Cells(NSTR+ 1 ,KPL)).Borders(xlEdgeTOP).Weight = xlThin
.Range(.Cells(NSTR+CAP.KZ, 1 ),.Cells(NSTR+CAP.KZ,KPL)).Borders(xlEdgeBOTTOM).Weight = xlThin
NSTR=NSTR+CAP.KZ+ 1
ENDSCAN
.CELLS( 1 , 1 ).EntireRow.Insert
.Range(.Cells( 1 , 1 ),.Cells( 1 , 9 )).Merge
.Cells( 1 , 1 ).VALUE="Список документов"
.Range(.Cells( 1 , 1 ),.Cells( 1 , 10 )).Font.FontStyle = "полужирный"
.Range(.Cells( 1 , 1 ),.Cells( 1 , 10 )).HorizontalAlignment = xlCenter
.Range(.Cells( 1 , 1 ),.Cells( 1 , 10 )).VerticalAlignment = xlCenter
.Range(.Cells( 1 , 1 ),.Cells( 1 , 9 )).RowHeight = 20
With .PageSetup
.PrintTitleRows = "$2:$2"
.PrintTitleColumns = "$B:$B"
ENDWITH
endwith
