home *** CD-ROM | disk | FTP | other *** search
/ ftp.texkom.ru / ftp.texkom.ru.tar / ftp.texkom.ru / IMPORT1C.PRG < prev    next >
Text File  |  2005-01-27  |  2KB  |  47 lines
  1. * ╚∞∩ε≡≥ ±≈σ≥εΓ Φτ ßατ√ ╓╤
  2. * ∩≡ΦφΦ∞ασ∞√σ ∩α≡α∞σ≥≡√ - Φφ≥σ≡Γαδ Σα≥
  3.  
  4. * ⌠αΩ≥≤≡α
  5. LOCAL llFlad,ldDate 
  6. llFlad = .T.
  7. ldDate=m.pdbeg
  8. DO WHILE llFlad 
  9.     WAIT WINDOW '╬ß≡αßα≥√Γα■ '+DTOC(ldDate) NOWAIT NOCLEAR
  10.     IF DOW(ldDate)<>1
  11.         SELECT d.data1 DATA,d.DOCUMENT,d.summa1 SUMMA,d.member,d.schet,o.*,;
  12.             NVL(l.data,{}) dataopl,NVL(l.document,SPACE(20)) plat;
  13.             FROM b_docs d;
  14.             LEFT JOIN k_org o ON d.member=o.kod_mb;
  15.             LEFT JOIN o_docs l ON d.doczakaz=l.firstdoc;
  16.             WHERE !DELETED() AND d.data1=ldDate AND;
  17.             ('┬100'$UPPER(d.DOCUMENT) OR 'A'$UPPER(d.DOCUMENT) OR;
  18.             '└'$UPPER(d.DOCUMENT)) AND !EMPTY(d.summa1);
  19.             INTO CURSOR sch_cs READWRITE
  20.         CREATE CURSOR gepard (klient c(254),data d,number c(254),naccount c(254),;
  21.             inn c(254),totalo n(20,5),id_parenti c(254),dataplat d,plat c(20))
  22.         SELECT company as klient,data,;
  23.             IIF(ATC('/',document)>0,ALLTRIM(SUBSTR(document,1,ATC('/',document)-1)),document) as number,;
  24.             schet as naccount,regnomer as inn,summa as totalo,parentid as id_parenti,dataopl as dataplat,plat;
  25.             FROM sch_cs;
  26.             INTO CURSOR exp
  27.         SELECT gepard
  28.         APPEND FROM DBF('exp')
  29.         lcFname='h:\buhgalteria\ß≤⌡παδ≥σ≡Φ \obmen\C'+'_'+PADL(DAY(ldDate),2,'0')+'_'+PADL(MONTH(ldDate),2,'0')
  30.         IF FILE(lcFname+'.dbf')
  31.             DELE FILE (LOCFILE(lcFname+'.dbf'))
  32.         ENDIF 
  33.         COPY TO (lcFname) TYPE FOX2X AS 866
  34.         safeclose('exp')
  35.         safeclose('gepard')
  36.     ENDIF 
  37.     ldDate=ldDate+1
  38.     IF ldDate>m.pdEnd
  39.         llFlad = .F.
  40.     ENDIF 
  41. ENDDO 
  42. safeclose('B_docs')
  43. safeclose('k_org')
  44. safeclose('m_opldoc')
  45. safeclose('raschet')
  46. WAIT CLEAR
  47.