Procedura-CopyOneAccPresetDefFromMast

Parametry:

Název	Popis	Datový typ
AID		Char(10)

Tělo:

begin
  select M1.ID, M1.DocumentType, M1.DocQueue_ID, M1.Name, M1.Basic, M1.Code, M1.Hidden, M1.ComputedDocQueue
    from MasterAccPresetDefs M1
    WHERE
      M1.ID = :AID
    into :m1_ID, :m1_DocumentType, :m1_DocQueue_ID, :m1_Name, :m1_Basic, :m1_Code, :m1_Hidden, :m1_ComputedDocQueue;
  insert into AccPresetDefs (ID, DocumentType, DocQueue_ID, Name, Basic, Code, Hidden, ComputedDocQueue)
    values (:m1_ID, :m1_DocumentType, :m1_DocQueue_ID, :m1_Name, :m1_Basic, :m1_Code, :m1_Hidden, :m1_ComputedDocQueue);
  for
    select M2.ID, M2.Parent_ID, M2.Exceptable, M2.Condition, M2.PosIndex, M2.DebitAccount_ID, M2.CreditAccount_ID,
      M2.DebitDivision_ID, M2.CreditDivision_ID, M2.DebitBusOrder_ID, M2.CreditBusOrder_ID, M2.DebitBusTransaction_ID,
      M2.CreditBusTransaction_ID, M2.TextExpr, M2.RowType, M2.DebitAccountExpr, M2.CreditAccountExpr, M2.DebitDivisionExpr,
      M2.CreditDivisionExpr, M2.DebitBusOrderExpr, M2.CreditBusOrderExpr, M2.DebitBusTransactionExpr, M2.CreditBusTransactionExpr,
      M2.ExpressionRow, M2.ContinueEvaluation,
      M2.DebitBusProject_ID, M2.CreditBusProject_ID, M2.DebitBusProjectExpr, M2.CreditBusProjectExpr
      from MasterAccPresetDefs2 M2 where M2.Parent_ID = :m1_ID
    into :M2_ID, :M2_Parent_ID, :M2_Exceptable, :M2_Condition, :M2_PosIndex, :M2_DebitAccount_ID, :M2_CreditAccount_ID,
      :M2_DebitDivision_ID, :M2_CreditDivision_ID, :M2_DebitBusOrder_ID, :M2_CreditBusOrder_ID, :M2_DebitBusTransaction_ID,
      :M2_CreditBusTransaction_ID, :M2_TextExpr, :M2_RowType, :M2_DebitAccountExpr, :M2_CreditAccountExpr, :M2_DebitDivisionExpr,
      :M2_CreditDivisionExpr, :M2_DebitBusOrderExpr, :M2_CreditBusOrderExpr, :M2_DebitBusTransactionExpr, :M2_CreditBusTransactionExpr,
      :M2_ExpressionRow, :M2_ContinueEvaluation,
      :M2_DebitBusProject_ID, :M2_CreditBusProject_ID, :M2_DebitBusProjectExpr, :M2_CreditBusProjectExpr
  do begin
    INSERT INTO AccPresetDefs2 (ID, Parent_ID, Exceptable, Condition, PosIndex, DebitAccount_ID, CreditAccount_ID,
      DebitDivision_ID, CreditDivision_ID, DebitBusOrder_ID, CreditBusOrder_ID, DebitBusTransaction_ID,
      CreditBusTransaction_ID, TextExpr, RowType, DebitAccountExpr, CreditAccountExpr, DebitDivisionExpr,
      CreditDivisionExpr, DebitBusOrderExpr, CreditBusOrderExpr, DebitBusTransactionExpr, CreditBusTransactionExpr,
      ExpressionRow, ContinueEvaluation,
      DebitBusProject_ID, CreditBusProject_ID, DebitBusProjectExpr, CreditBusProjectExpr)
      VALUES (:M2_ID, :M2_Parent_ID, :M2_Exceptable, :M2_Condition, :M2_PosIndex, :M2_DebitAccount_ID, :M2_CreditAccount_ID,
      :M2_DebitDivision_ID, :M2_CreditDivision_ID, :M2_DebitBusOrder_ID, :M2_CreditBusOrder_ID, :M2_DebitBusTransaction_ID,
      :M2_CreditBusTransaction_ID, :M2_TextExpr, :M2_RowType, :M2_DebitAccountExpr, :M2_CreditAccountExpr, :M2_DebitDivisionExpr,
      :M2_CreditDivisionExpr, :M2_DebitBusOrderExpr, :M2_CreditBusOrderExpr, :M2_DebitBusTransactionExpr,
      :M2_CreditBusTransactionExpr, :M2_ExpressionRow, :M2_ContinueEvaluation,
      :M2_DebitBusProject_ID, :M2_CreditBusProject_ID, :M2_DebitBusProjectExpr, :M2_CreditBusProjectExpr);
  end              
end;

Generated by ABRA Software a.s. 27.10.2021 16:34:13