Галактика в вопросах и ответах

Код: Выделить всё

@echo off
D:\GAL\GAL_260910\GAL810\exe\vip.exe schet.frm /r:user1.res
pause

Код: Выделить всё

.LinkForm 'PRBDOC_1010' Prototype is 'PRBDOC'
.Group 'Счет-фактуры (предоплата продаж)'
.Group 'Счет-фактуры (продажа)'
.NameInList 'Счет СТАНДАРТНЫЙ - А4 Упрощенный'
.var
  INN_KPP_Post:String
  INN_KPP_Pol:String
.endvar
.fields
  mnd
  nomer
  ddoc
  post
  sGetTune('KatOrg.FldView.UNN')
  INN_KPP_Post
  bpost
  rspost
  mfobik
  mpost
  rspost2
  mfobik
  mpost2
  adpost
  telpost
  pol
  sGetTune('KatOrg.FldView.UNN')
  INN_KPP_Pol
  bpol
  rspol
  mfobik
  mpol
  rspol2
  mfobik
  mpol2
  adpol
  telpol
  pname
  np
  barkod
  mc
  ed
  kol
  cena
  summa
  i1
  i2
  SumSkidPos
  (i2-SumSkidPos)
  op1
  op2
  (d1 + ' ' + StringNLZR(if(d3=' %',d2,SkRub),0,3) + ' %')
  if(d3=' %',SkRub,d2)
  k1
  sdoc
  n1
  n2
  c1
  c2
  p1
  p2
  k3    // прописью
  k4
  k5
  kDay
  TaraVoz
  Director
  Main_Buh
  page_symb
.endfields
.{?internal;(wCountry<=1)
.}
.{?internal;(wCountry<=1)
.}
.{
^
                        СЧЕТ № ^  от  ^
.begin
  INN_KPP_Post := '';
  if ((innpost <> '') or (KodNDS_post_NotSF <> ''))
    INN_KPP_Post := innpost + ' / ' + KodNDS_post_NotSF;

  INN_KPP_Pol := '';
  if ((innpol <> '') or (KodNDS_pol_NotSF <> ''))
    INN_KPP_Pol := innpol + ' / ' + KodNDS_pol_NotSF;
end.

      ПОСТАВЩИК  : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
.{?internal;(wCountry<=1)
      @@@ / КПП  : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
.}
      Банк       : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
      Счет №     : ^ ^ ^
      К/С        : ^ ^ ^
      Адрес      : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
      тел./факс  : @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

.{CheckEnter ISBASEFIN
.}


.{?internal;(wCountry<=1)

.}

      Счет №     : ^ ^ ^
      К/С        : ^ ^ ^



        ^
.{CheckEnter ISEXCLASS
.}
.{CheckEnter ISGROUP
.}

        ---T----------------T------------------------------T---------T------------T-----------------T-----------------------
        No ¦ Номенклатурный ¦                              ¦ Единица ¦            ¦                 ¦
        п/п¦     номер      ¦  Наименование, сорт, размер  ¦измерения¦ Количество ¦       Цена      ¦          Сумма
        ---+----------------+------------------------------+---------+------------+-----------------+-----------------------
.{
        &&& @@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @~@@@@@@@ &'&&&&&&&&&& &'&&&&&&&&&&&&&&& &'&&&&&&&&&&&&&&&&&&.&&
.}
        --------------------------------------------------------------------------------------------------------------------
                                                            @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ &'&&&&&&&&&&&&&&&&&&.&&
.{?internal;(SumSkidPos>0)
                                                            Сумма скидок к позициям                  &'&&&&&&&&&&&&&&&&&&.&&
                                                            Итого с учетом скидок к позициям         &'&&&&&&&&&&&&&&&&&&.&&
.}
.{?internal;(op1<>'')
                                                            @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ &'&&&&&&&&&&&&&&&&&&.&&
.}
.{?internal;(d2>0)
                                                            @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ &'&&&&&&&&&&&&&&&&&&.&&
.}

                                                            ИТОГО к оплате                           &'&&&&&&&&&&&&&&&&&&.&& ^
.{?internal;((n2>0)or(c2>0)or(p2>0))
                                                              в том числе:
.}
.{?internal;(n2>0)
                                                                    @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ &'&&&&&&&&&&&&&&&&&&.&&
.}
.{?internal;(c2>0)
                                                                    @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ &'&&&&&&&&&&&&&&&&&&.&&
.}
.{?internal;(p2>0)
                                                                    @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ &'&&&&&&&&&&&&&&&&&&.&&
.}

    Сумма прописью: @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
      ^ ^
    Счет действителен в течение ^ дней              ^

    Руководитель          __________________^


    Гл.(старший) бухгалтер__________________^
.if DELIMITER
----------------------------------------------------------------------------------------------------------------------------
.else
.end
^
.}
.endform