RTH XML UPD.RPT

RTH_XML_UPD.RPT - это бланк из справочника R221

я.== Отправить == XML - УПД (Универсальный вариант) ( R641 )

Текст

 <REPORT/OPENPIPELINE>

 try
   local  r2:=GetArea('RTH2')
   local  a1:=Clonedataset(r2,'Rgnum')
   local  closePeriod:= GetProperty('ReadOnly',r2) or (r2)->( Is_Lock_Access() )

   if !closePeriod
     if Empty((r2)->Extparent)
       // Если нет счета - делаем его
       if !Isa() or YesNo({'(вопрос для админа)','Счета фактуры нет','Формировать ?'},.f.)
         try
           if GetPrm('AcpNumExp','SALE')
             global  set_acp_kanal2:=1  // Для раздельной нумерации сч-фактур по накладным
           endif
           ACP_REFORM_RTH_SQL(,,r2,false,,getPrm('NotValidSf','SALE'))
         except
         end
         DeleteVars('set_acp_kanal2')
       endif
     endif
   endif

   if !Empty((r2)->Extparent) and (a1)->( Dbseek((r2)->Extparent) and Kinddoc='ACP' and Lvlnum='1' )
     if !Isa() or YesNo({'(вопрос для админа)','Выводить XML ?'},.f.)
       if !closePeriod and !Cmp_n((a1)->Ndssum,(r2)->Ndssum)
         // Счет факт есть, проверяем актуальность сумм
         Acp_Reform_RTH_SQL(,,r2,false)
       endif

       // Export_Edi_R641( doc_type [,cur_tbl] [,is_only_one:=.f.] [,DisMsg:=.f.] )
       Export_Edi_R641( 'ON_NSCHFDOPPR', a1, .t., .t. )

     endif
   endif

 finally
   CloseTable(a1)
   StopReport()
 end

Смотрите также

Справочник бланков