RTH XML UPD.RPT — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (→‎Смотрите также)
м
 
(не показаны 2 промежуточные версии этого же участника)
Строка 1: Строка 1:
 +
[[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
 +
 
= Смотрите также =
 
= Смотрите также =
 
[[Справочник бланков]]
 
[[Справочник бланков]]

Текущая версия на 16:32, 26 августа 2022

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

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

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

Источник — «https://wiki.sftserv.ru/index.php?title=RTH_XML_UPD.RPT&oldid=42100»