RTH XML UPD.RPT

Материал из Фабиус wiki
Версия от 16:32, 26 августа 2022; Hisava (обсуждение | вклад)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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

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

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