Просмотр исходного текста страницы TAKE FROM HTTP

[[TAKE_FROM_HTTP]] - это программа из справочника [[R266]]
 Запрос к офд
= Текст =
 local fn := "9282000100001350", data := date(), body, head, json, msg, aa, bb, ii, del, fld, _, sql, tt, br, nn
 head := { { 'Ofdapitoken', [] } }
 body := '{"fiscalDriveNumber" : "'+ fn + '", "date" : "' + sqlDate(data) + '"}'
 try
   waitmsg( 'Подключение к офд Ярус', msg )
   json := idhttppostJSON( 'https:/' + '/api.ofd-ya.ru/ofdapi/v1/documents', body, head )
 //  json := READTXTFILE2( 'json.txt', 'c:\fabius\ig2\' )
   aa := ParseFromJSon( json )
   bb := aa[2,2]
   del := [ kinddoc = 'FRO' and lvlnum = '1' and dtos( datdoc ) = '] + dtos( data ) + [' and k3name = '] + fn + [' ]
   sql := [ delete from docp] + ret_f_ext( data ) + [ where kinddoc = 'FRO' and 'SYSTEM.' = 'SYSTEM.' ]
   simplesql( sql, opdatapath )
   fld := { 'datdoc', 'numdoc', 'kshift', 'nattr7', 'k3name' }
 fld := ' _0,d,4; _1,N,6; _2,C,60; _3,N,5; _4,N,14,4; _5,N,14,4; _6,N,14,4; '
   _ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
   for ii := 1 to len( bb )
     ( _ )->( dbappend() )
     ( _ )->_0 := data
     nn := ascann( bb[ii], 'fiscalDocumentNumber' )
     ( _ )->_1 := bb[ii,nn,2]
     nn := ascann( bb[ii], 'totalSum' )
     ( _ )->_6 := val( bb[ii,nn,2] ) / 100
   next
   fld := { 'datdoc', 'nattr7', 'sum' }
   sql := [ Select _0 datdoc, _1 nattr7, _6 "sum" from ] + TmpFilePath( _ )
   aa := sqltoarr( sql, fld )
   if !isempty( aa )
     addall( 'FRO', '1', " ",, fld, aa,,,, year( data ), month( data ),,, true,, del )
   endif
 finally
   closetable( _ )
   hidemsg( msg )
 end
 fld := ' _0,d,4; _1,N,6; _2,C,60; _3,N,5; _4,N,14,4; _5,N,14,4; _6,N,14,4; '
 try
   _ := CreateTmpFile( fld, '_', ~IsFreeDel := true )
   for ii := 1 to len( bb )
     nn := ascann( bb[ii], 'items' )
     aa := bb[ii,nn,2]
     for tt := 1 to len( aa )
       ( _ )->( dbappend() )
       ( _ )->_0 := data
       nn := ascann( bb[ii], 'fiscalDocumentNumber' )
       ( _ )->_1 := bb[ii,nn,2]
       ( _ )->_2 := left( aa[tt,4,2], 60 )
       br := at( ')', ( _ )->_2 )
       ( _ )->_3 := substr( aa[tt,4,2], 2, br - 1 )
       ( _ )->_4 := val( aa[tt,3,2] ) / 100
       ( _ )->_5 := aa[tt,1,2]
       ( _ )->_6 := val( aa[tt,5,2] ) / 100
     next
   next
   del := [ kinddoc = 'FRO' and lvlnum = '2' and dtos( datdoc ) = '] + dtos( data ) + [' and k3name = '] + fn + [' ]
   fld := { 'datdoc', 'nattr7', 'kanal2', 'k2name', 'nattr1', 'amnt', 'sum' }
   sql := [ Select _0 datdoc, _1 nattr7, _3 kanal2, _2 k2name, _4 nattr1, _5 amnt, _6 "sum" from ] + TmpFilePath( _ )
   aa := sqltoarr( sql, fld )
   if !isempty( aa )
     addall( 'FRO', '2', " ",, fld, aa,,,, year( data ), month( data ),,, true,, del, { false, false, false, false, false } )
   endif
 finally
   closetable( _ )
 end
 sql := [ update fro2 set fro2.parent = fro1.rgnum from docp] + ret_f_ext( data ) + [ fro2 ;
   left outer join docp] + ret_f_ext( data ) + [ fro1 on fro2.nattr7 = fro1.nattr7 ;
   where fro1.kinddoc = 'FRO' and fro1.lvlnum = '1' and fro2.kinddoc = 'FRO' and fro2.lvlnum = '2' and fro2.parent = '' ]
 simplesql( sql, opdatapath )
 
 // _0 дата
 // _1 fiscalDocumentNumber
 // _2 наименование
 // _3 код
 // _4 price
 // _5 quantity
 // _6 sum
 // _7
 // _8
 // _9
 
 
 
   // writetxtfile( { json }, 'json.txt', 'c:\fabius\ig2\' )
   // json := ReadTxtFile( 'json.txt', 'c:\fabius\ig2\' )
= Смотрите также =
[[Полезные функции]]

[[Функции Delphi]]