БГ Кто успеет - будет новой "империей зла". По видимому, это будет Оракл.
На моё предприятие взамен программ VFP поступили программы под БД Оракл.
При этом учет материалов на складах написано на Бэйсике и кристал репорт ,а
учет материалов и деталей в производстве на PL SQL.
Новый складской учет внедрен и работает с 1.01.2010 и ввод,корректировка
информации делается по новым программам , а вот для отбора и вывода информации
на печать,в Excel таблицы пришлось настраивать свои старые VFP программы под
БД Оракл,т.к пользователи что-то выбрать по этой министерской программе не могли.Например для того чтобы получить оборотно-сальдовую вед.
мне понадобился только один SQL запрос,а в этой министерской программе используется
куча разных встроенных процедур в БД
Sql запрос для моей оборотки:
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.
TEXT TO lcSQLSelectString TEXTMERGE NOSHOW
SELECT NVL(MAT.nmat,' ') NAIM_T2, NVL(SEI.iedi,' ') ED_IZM,COB.qcen CENA,
COB.KN,COB.SN,COB.KP,COB.SP,COB.KR,COB.SR,COB.KK,COB.SK,
NVL(SHIFR.ishifr,' ') SHIFR,SNS.ISTR,COB.cmat ID_TOV,COB.cssn SKL, 0000 GOD,MAT.SCH||'/'||MAT.SSCH SCET
FROM
(SELECT cssn,cmat,qcen,KSTR,
SUM(KN) KN,SUM(SN) SN,SUM(KP) KP,SUM(SP) SP,SUM(KR) KR,SUM(SR) SR,SUM(KN+KP-KR) KK,SUM(SN+SP-SR) SK FROM
(SELECT osb.cssn,cmat,qcen,qkol* 1 KN,qSUM SN,qkol* 0 kp,qSUM* 0 Sp,qkol* 0 kr,QSUM* 0 Sr,KSTR FROM
(SELECT CSSN,COSB FROM LIDA.sna_osb WHERE sna_osb.dosb = (?DTOC(DATMT)) AND ( CSSN=?(IDS) OR ?(IDS)= 0 )) OSB
INNER JOIN LIDA.sna_osbmat ON sna_osbmat.cosb = osb.cosb
UNION ALL
SELECT DOC.CSSN,DMAT.cmat,DMAT.qcen,DMAT.qkol*( 1 - 2 *DOC.Pope) KN,DMAT.QSUM*( 1 - 2 *DOC.Pope) SN,DMAT.qkol* 0 KP,DMAT.QSUM* 0 SP,
DMAT.qkol* 0 KR,DMAT.QSUM* 0 SR,DMAT.KSTR
FROM (SELECT * FROM LIDA.SNA_DOC WHERE DDOC BETWEEN (?DTOC(DATMT)) AND (?DTOC(DATNT- 1 )) AND (sna_doc.cope <> 0 ) AND ( CSSN=?(IDS) OR ?(IDS)= 0 )) DOC
INNER JOIN LIDA.SNA_DOCMAT DMAT ON DMAT.CDOC = DOC.CDOC
UNION ALL
SELECT DOC.CSSN,DMAT.cmat,DMAT.qcen,DMAT.qkol* 0 KN,DMAT.QSUM* 0 SN,DMAT.qkol*( 1 -DOC.Pope) KP,DMAT.QSUM*( 1 -DOC.Pope) SP,
DMAT.qkol*DOC.Pope KR,DMAT.QSUM*DOC.Pope SR,DMAT.KSTR
FROM (SELECT * FROM LIDA.SNA_DOC WHERE DDOC BETWEEN (?DTOC(DATNT)) AND (?DTOC(DATKT)) AND (sna_doc.cope <> 0 ) AND ( CSSN=?(IDS) OR ?(IDS)= 0 )) DOC
INNER JOIN LIDA.SNA_DOCMAT DMAT ON DMAT.CDOC = DOC.CDOC
UNION ALL
SELECT DOC.CSSN,DMAT.cmat,DMAT.qcen,DMAT.qkol*( 1 - 2 *DOC.Pope) KN,DMAT.QSUM*( 1 - 2 *DOC.Pope) SN,DMAT.qkol* 0 KP,DMAT.QSUM* 0 SP,
DMAT.qkol* 0 KR,DMAT.QSUM* 0 SR,DMAT.KSTR
FROM (SELECT * FROM LIDA.SNA_D54 WHERE DDOC BETWEEN (?DTOC(DATMT)) AND (?DTOC(DATNT- 1 )) AND ( CSSN=?(IDS) OR ?(IDS)= 0 ) ) DOC
INNER JOIN LIDA.SNA_D54MAT DMAT ON DMAT.CDOC = DOC.CDOC
UNION ALL
SELECT DOC.CSSN,DMAT.cmat,DMAT.qcen,DMAT.qkol* 0 KN,DMAT.QSUM* 0 SN,DMAT.qkol*( 1 -DOC.Pope) KP,DMAT.QSUM*( 1 -DOC.Pope) SP,
DMAT.qkol*DOC.Pope KR,DMAT.QSUM*DOC.Pope SR,DMAT.KSTR
FROM (SELECT * FROM LIDA.SNA_D54 WHERE DDOC BETWEEN (?DTOC(DATNT)) AND (?DTOC(DATKT)) AND ( CSSN=?(IDS) OR ?(IDS)= 0 )) DOC
INNER JOIN LIDA.SNA_D54MAT DMAT ON DMAT.CDOC = DOC.CDOC
UNION ALL
SELECT DOC.CSSN,DMAT.cmat,DMAT.qcen,DMAT.qkol*( 1 - 2 *DOC.Pope) KN,DMAT.QSUM*( 1 - 2 *DOC.Pope) SN,DMAT.qkol* 0 KP,DMAT.QSUM* 0 SP,
DMAT.qkol* 0 KR,DMAT.QSUM* 0 SR,DMAT.KSTR
FROM (SELECT * FROM LIDA.sna_l82 WHERE DDOC BETWEEN (?DTOC(DATMT)) AND (?DTOC(DATNT- 1 )) AND ( CSSN=?(IDS) OR ?(IDS)= 0 ) ) DOC
INNER JOIN LIDA.sna_l82otp DMAT ON DMAT.CDOC = DOC.CDOC
UNION ALL
SELECT DOC.CSSN,DMAT.cmat,DMAT.qcen,DMAT.qkol* 0 KN,DMAT.QSUM* 0 SN,DMAT.qkol*( 1 -DOC.Pope) KP,DMAT.QSUM*( 1 -DOC.Pope) SP,
DMAT.qkol*DOC.Pope KR,DMAT.QSUM*DOC.Pope SR,DMAT.KSTR
FROM (SELECT * FROM LIDA.sna_l82 WHERE DDOC BETWEEN (?DTOC(DATNT)) AND (?DTOC(DATKT)) AND ( CSSN=?(IDS) OR ?(IDS)= 0 )) DOC
INNER JOIN LIDA.sna_l82otp DMAT ON DMAT.CDOC = DOC.CDOC ) CUN
GROUP BY CSSN,CMAT,QCEN,KSTR HAVING ABS(SUM(KP))+ABS(SUM(KR))+ABS(SUM(KN))> 0 ) COB
LEFT JOIN LIDA.NSI_MAT MAT ON MAT.cmat = COB.cmat
LEFT JOIN LIDA.NSI_SHIFR SHIFR ON SHIFR.kshifr = MAT.kshifr
LEFT JOIN LIDA.NSI_SEI SEI ON SEI.kedi = MAT.kedi
LEFT JOIN LIDA.NSI_SNS SNS ON SNS.KSTR = COB.KSTR
ORDER BY 1 , 2 , 4
ENDTEXT
|
