|
|
| (не показана одна промежуточная версия этого же участника) |
| Строка 1: |
Строка 1: |
| | [[TAKE_FROM_HTTP]] - это программа из справочника [[R266]] | | [[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]] | | [[Функции Delphi]] |
