SET TERM ^ ;

create or alter procedure RECEIPT_MODIFY (
    CHOOSE_PAR integer,
    SERIES varchar(10),
    NUMBER varchar(10),
    PATIEND_ID integer,
    DOCTOR_ID integer,
    CATEGORY_ID integer,
    NOSOLOGY_ID integer,
    FUNDING_ID integer,
    DATE_RECEIPT date,
    SIGNA_ID integer,
    DTD_ID integer,
    RP_ID integer,
    FORM_ID integer,
    RECEIPT_ID_PAR integer)
returns (
    RESULT_OUTPUT integer)
as
begin
  result_output=1;

  if (choose_par=1) then
    begin
        insert into receipt (series, number, patiend_id, doctor_id, category_id, nosology_id,
        funding_id, date_receipt, signa_id, dtd_id, rp_id, form_id)
            values(:series, :number, :patiend_id, :doctor_id, :category_id, :nosology_id,
        :funding_id, :date_receipt, :signa_id, :dtd_id, :rp_id, :form_id);
    end


  if (choose_par=2) then
    begin
        update receipt set
            series=:series,
            number=:number,
            patiend_id=:patiend_id,
            doctor_id=:doctor_id,
            category_id=:category_id,
            nosology_id=:nosology_id,
            funding_id=:funding_id,
            date_receipt=:date_receipt,
            signa_id=:signa_id,
            dtd_id=:dtd_id,
            rp_id=:rp_id,
            form_id=:form_id
        where receipt_id=:receipt_id_par;
    end

  if (choose_par=3) then
    begin
        delete from receipt
        where receipt_id=:receipt_id_par;
    end
  suspend;
end^

SET TERM ; ^

GRANT SELECT,INSERT,DELETE,UPDATE ON RECEIPT TO PROCEDURE RECEIPT_MODIFY;

GRANT EXECUTE ON PROCEDURE RECEIPT_MODIFY TO SYSDBA;

procedure TReceipt.Zapolnenia_Receipt;
begin
  with DM.IBStoredProcReceipt do
    begin
      ParamByName('series').Value := EditSeries.Text;
      ParamByName('patiend_id').Value := PatientUnit.patient_id;
      ParamByName('doctor_id').Value :=
        DBLookupComboBoxDoctor.KeyValue;
      ParamByName('category_id').Value :=
        DBLookupComboBoxCategory.KeyValue;
      ParamByName('nosology_id').Value :=
        DBLookupComboBoxNosology.KeyValue;
      ParamByName('funding_id').Value :=
        DBLookupComboBoxFunding.KeyValue;
      ParamByName('date_receipt').Value :=
        DateEditNow.Date;
      ParamByName('signa_id').Value :=
        DBLookupComboBoxSigna.KeyValue;
      ParamByName('dtd_id').Value :=
        DBLookupComboBoxDtd.KeyValue;
      ParamByName('rp_id').Value :=
        DBLookupComboBoxRp.KeyValue;  
      ParamByName('form_id').Value :=
        DBLookupComboBoxForm.KeyValue;

      if JournalUnit.flag_receipt = true then
        begin
          ParamByName('number').Value := DM.IBQueryReceiptNUMBER.Value;
          ParamByName('receipt_id_par').Value :=
            DM.IBQueryReceiptRECEIPT_ID.Value;
          ParamByName('choose_par').Value := 2;
        end // then
      else
          begin
          ParamByName('number').Value := EditNumber.Text;
          ParamByName('receipt_id_par').Value := null;
          ParamByName('choose_par').Value := 1;
        end;

      try
        ExecProc;

      except
        ShowMessage('Äîáàâëåíèå íå ïîëó÷èëîñü!'+#13+'Ïîâòîðèòå ïîïûòêó!');
        DM.IBTransaction.RollbackRetaining;
      exit; //except
      end;  //try

      DM.IBTransaction.CommitRetaining;
      DM.IBQueryReceipt.Close;
      DM.IBQueryReceipt.Open;
    end; // with
end;

[Application: Receipt148]
: [Start transaction]

[Application: Receipt148]
: [Fetch] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not F.RDB$DEFAULT_VALUE is NULL)) 

  SEOFReached

[Application: Receipt148]
: [Execute] Select F.RDB$COMPUTED_BLR, F.RDB$DEFAULT_VALUE, R.RDB$FIELD_NAME from RDB$RELATION_FIELDS R, RDB$FIELDS F where R.RDB$RELATION_NAME = :RELATION and R.RDB$FIELD_SOURCE = F.RDB$FIELD_NAME and ((not F.RDB$COMPUTED_BLR is NULL) or      (not F.RDB$DEFAULT_VALUE is NULL)) 

  RELATION = RECEIPT_MODIFY

[Application: Receipt148]
: [Commit (Hard commit)]

[Application: Receipt148]
IBStoredProcReceipt: [Execute] Execute Procedure "RECEIPT_MODIFY"(:"CHOOSE_PAR                     ", :"SERIES                         ", :"NUMBER                         ", :"PATIEND_ID                     ", :"DOCTOR_ID                      ", :"CATEGORY_ID                    ", :"NOSOLOGY_ID                    ", :"FUNDING_ID                     ", :"DATE_RECEIPT                   ", :"SIGNA_ID                       ", :"DTD_ID                         ", :"RP_ID                          ", :"FORM_ID                        ", :"RECEIPT_ID_PAR                 ")

  CHOOSE_PAR = 2
  SERIES = 47014-04 (меняю это поле)
  NUMBER = 000025
  PATIEND_ID = 0
  DOCTOR_ID = 2
  CATEGORY_ID = 1
  NOSOLOGY_ID = 5
  FUNDING_ID = 1
  DATE_RECEIPT = 30.04.2014
  SIGNA_ID = 1
  DTD_ID = 2
  RP_ID = 3
  FORM_ID = 3
  RECEIPT_ID_PAR = 24