Платеж, выгрузка для клиент банка (скрипт) : Супермаг Плюс (Супермаг 2000)

Ferus · █ 04.08.2015 12:06

Результат запроса я использовал для формирования файла платежа для BClient(временное решение пока не настроят 1с...ббггаа

).
В самой программе жестко ограничены собственные контрагенты и имя базы (не выносил в файл настроек), поэтому не выкладываю.
Если руки дойдут переделаю и выложу, если кому интересно

Скрип рабочий,но может что-то не учел.

Код:

select  
 smo.OurSelfClient, 
 maxresult.maxdate, 
 smo.OURSELFACCOUNT, 
 smo.ORDERID, 
 SMDOC.TOTALSUM, 
 (select cl.inn from supermag.SMCLIENTINFO CL where CL.ID = smo.OurSelfClient) INN,  
 (select cl.name from supermag.SMCLIENTINFO CL where CL.ID = smo.OurSelfClient) NAME,  
 (select B.TITLE  from supermag.SABANKS b where B.ID=OURSELFBANKID) title, 
 (select B.City  from supermag.SABANKS b where B.ID=OURSELFBANKID) City, 
 (select B.BIC  from supermag.SABANKS b where B.ID=OURSELFBANKID) BIC, 
 (select B.KS  from supermag.SABANKS b where B.ID=OURSELFBANKID) KS, 
 smo.ACCOUNT, 
 (select cl.inn from supermag.SMCLIENTINFO CL where CL.ID = smdoc.CLIENTINDEX) INNPAYMAN,  
 (select cl.name from supermag.SMCLIENTINFO CL where CL.ID = smdoc.CLIENTINDEX) NAMEPAYMAN,  
 (select B.TITLE  from supermag.SABANKS b where B.ID=smo.BANKID) titlePAYMAN, 
 (select B.City  from supermag.SABANKS b where B.ID=smo.BANKID) CityPAYMAN, 
 (select B.BIC  from supermag.SABANKS b where B.ID=smo.BANKID) BICPAYMAN, 
 (select B.KS  from supermag.SABANKS b where B.ID=smo.BANKID) KSPAYMAN, 
 (select cl.kpp from supermag.SMCLIENTINFO CL where CL.ID = smo.OurSelfClient) KPP,  
 (select cl.kpp from supermag.SMCLIENTINFO CL where CL.ID = smdoc.CLIENTINDEX)  PAYMAN, 
 smo.PaymentPriority, 
 SMDOC.COMMENTARY 
 from  
     supermag.SMPayOrders smo,  
     supermag.SMDocLog smdl, 
              (Select max(smET.EVENTTIME)  AS maxdate, smET.id  
                  from supermag.SMDocLog smET, supermag.SMPayOrders smoET 
                  where  smET.DOCTYPE='EO'  and smoET.ID= smET.id   GROUP BY  smET.id ) maxresult, 
                  supermag.SMDOCUMENTS SMDOC 
 where  
     SMO.ID=maxresult.ID and  
     SMDL.DOCTYPE='EO' and 
     SMDOC.DOCTYPE='EO' and 
     SMDOC.ID=SMO.ID and 
      SMDL.NEWSTATE=2 and 
     smo.PAYMENTTYPE=0 and 
     SMDL.EVENTTIME=maxresult.maxdate and 
     ISCASH=0