ADD_Action
insert into tbl_actions (id_company, id_act_name, date_fin, a_note, id_user, debt) 
values (:id_company, :id_act_name, :date_fin, :a_note, :id_user, :debt);

EDIT_Action
update tbl_actions set id_act_name= :id_act_name, date_fin=:date_fin, a_note=:a_note, debt=:debt 
where id_actions = :ln_id_actions;

GET_Aciotn_List1
 if (:lnUser!=5 and :lnIdActName!=7) then begin
     for
        select tbl_company.id_company, tbl_company.C_NAME, tbl_company.id_abs, tbl_company.C_NOTE,
               tbl_actions.ID_ACTIONS, tbl_actions.date_fin, tbl_actions.debt, tbl_actions.A_NOTE,
               tbl_act_name.ID_ACT_NAME, tbl_act_name.act_name, tbl_user.u_name
        from tbl_company
             inner join tbl_actions on tbl_company.ID_COMPANY = tbl_actions.ID_COMPANY
             inner join tbl_act_name on tbl_actions.ID_ACT_NAME = tbl_act_name.ID_ACT_NAME
             inner join tbl_user on tbl_actions.ID_USER = tbl_user.ID_USER
        where tbl_actions.ID_USER = :lnUser And tbl_actions.DATE_FIN>=:lnDateFin AND tbl_actions.id_act_name = :lnIdActName
        into :id_company, :c_name, :id_abs, :c_note, :ID_ACTIONS, :date_fin, :debt, :A_NOTE, :ID_ACT_NAME, :act_name, :u_name
     do begin
        suspend;
     end   
     exit;
 end
 
  if (:lnUser=5 and :lnIdActName!=7) then begin
     for
        select tbl_company.id_company, tbl_company.C_NAME, tbl_company.id_abs, tbl_company.C_NOTE,
               tbl_actions.ID_ACTIONS, tbl_actions.date_fin, tbl_actions.debt, tbl_actions.A_NOTE,
               tbl_act_name.ID_ACT_NAME, tbl_act_name.act_name, tbl_user.u_name
        from tbl_company
             inner join tbl_actions on tbl_company.ID_COMPANY = tbl_actions.ID_COMPANY
             inner join tbl_act_name on tbl_actions.ID_ACT_NAME = tbl_act_name.ID_ACT_NAME
             inner join tbl_user on tbl_actions.ID_USER = tbl_user.ID_USER
        where tbl_actions.DATE_FIN>=:lnDateFin AND tbl_actions.id_act_name = :lnIdActName
        into :id_company, :c_name, :id_abs, :c_note, :ID_ACTIONS, :date_fin, :debt, :A_NOTE, :ID_ACT_NAME, :act_name, :u_name
     do begin
        suspend;
     end   
     exit;
 end
  if (:lnUser!=5 and :lnIdActName=7) then begin
     for
        select tbl_company.id_company, tbl_company.C_NAME, tbl_company.id_abs, tbl_company.C_NOTE,
               tbl_actions.ID_ACTIONS, tbl_actions.date_fin, tbl_actions.debt, tbl_actions.A_NOTE,
               tbl_act_name.ID_ACT_NAME, tbl_act_name.act_name, tbl_user.u_name
        from tbl_company
             inner join tbl_actions on tbl_company.ID_COMPANY = tbl_actions.ID_COMPANY
             inner join tbl_act_name on tbl_actions.ID_ACT_NAME = tbl_act_name.ID_ACT_NAME
             inner join tbl_user on tbl_actions.ID_USER = tbl_user.ID_USER
        where tbl_actions.ID_USER = :lnUser And tbl_actions.DATE_FIN>=:lnDateFin
        into :id_company, :c_name, :id_abs, :c_note, :ID_ACTIONS, :date_fin, :debt, :A_NOTE, :ID_ACT_NAME, :act_name, :u_name
     do begin
        suspend;
     end   
     exit;
 end
    
 if (:lnUser=5 and :lnIdActName=7) then begin
     for
        select tbl_company.id_company, tbl_company.C_NAME, tbl_company.id_abs, tbl_company.C_NOTE,
               tbl_actions.ID_ACTIONS, tbl_actions.date_fin, tbl_actions.debt, tbl_actions.A_NOTE,
               tbl_act_name.ID_ACT_NAME, tbl_act_name.act_name, tbl_user.u_name
        from tbl_company
             inner join tbl_actions on tbl_company.ID_COMPANY = tbl_actions.ID_COMPANY
             inner join tbl_act_name on tbl_actions.ID_ACT_NAME = tbl_act_name.ID_ACT_NAME
             inner join tbl_user on tbl_actions.ID_USER = tbl_user.ID_USER
        where tbl_actions.DATE_FIN>=:lnDateFin
        into :id_company, :c_name, :id_abs, :c_note, :ID_ACTIONS, :date_fin, :debt, :A_NOTE, :ID_ACT_NAME, :act_name, :u_name
     do begin
        suspend;
     end   
     exit;
 end

GET_Action_List2
 if (:lnChoice=1) then begin
     for
        select tbl_company.ID_COMPANY, tbl_company.C_NAME, tbl_company.id_abs, tbl_company.C_NOTE,
               tbl_actions.ID_ACTIONS, tbl_actions.date_fin, tbl_actions.debt, tbl_actions.A_NOTE,
               tbl_act_name.ID_ACT_NAME, tbl_act_name.act_name, tbl_user.u_name
        from tbl_company
             inner join tbl_actions on tbl_company.ID_COMPANY = tbl_actions.ID_COMPANY
             inner join tbl_act_name on tbl_actions.ID_ACT_NAME = tbl_act_name.ID_ACT_NAME
             inner join tbl_user on tbl_actions.ID_USER = tbl_user.ID_USER
        where tbl_company.ID_ABS = cast (:lcInput as integer)
        into :id_company, :c_name, :id_abs, :c_note, :ID_ACTIONS, :date_fin, :debt, :A_NOTE, :ID_ACT_NAME, :act_name, :u_name
     do begin
        suspend;
     end   
     exit;
 end
 
 if (:lnChoice=2) then begin
     for
        select tbl_company.ID_COMPANY, tbl_company.C_NAME, tbl_company.id_abs, tbl_company.C_NOTE,
               tbl_actions.ID_ACTIONS, tbl_actions.date_fin, tbl_actions.debt, tbl_actions.A_NOTE,
               tbl_act_name.ID_ACT_NAME, tbl_act_name.act_name, tbl_user.u_name
        from tbl_company
             inner join tbl_actions on tbl_company.ID_COMPANY = tbl_actions.ID_COMPANY
             inner join tbl_act_name on tbl_actions.ID_ACT_NAME = tbl_act_name.ID_ACT_NAME
             inner join tbl_user on tbl_actions.ID_USER = tbl_user.ID_USER
        where Upper(tbl_company.C_NAME) like UPPER('%'||:lcInput||'%')
        into :id_company, :c_name, :id_abs, :c_note, :ID_ACTIONS, :date_fin, :debt, :A_NOTE, :ID_ACT_NAME, :act_name, :u_name
     do begin
        suspend;
     end   
     exit;
 end

GET_All_Actions
for 
    select id_act_name, act_name from tbl_act_name
    into :id_act_name, :act_name 
do begin
   suspend;
end

GET_ALL_USER
for
   select id_user, u_name from tbl_user
   into :id_user, :u_name
do begin
   suspend;
end

GET_COMPANY_INFO
select C_NAME, C_NOTE from tbl_company where id_company = :lnIdCompany
into :c_name, :c_note;
suspend;

GET_COMPANY_LIST
if (:lnChoose=1) then begin
   for 
       select ID_INTABS, id_company, C_NAME, id_abs from tbl_company where ID_ABS = cast(:lcInput as integer) order by ID_INTABS desc
       into :ID_INTABS, :id_company, :c_name, :id_abs       
       do begin
          suspend;
       end
   exit;
end   

if (:lnChoose=2) then begin
   for 
       select ID_INTABS, id_company, C_NAME, id_abs from tbl_company where UPPER(C_NAME) like ('%'||:lcInput||'%') order by ID_INTABS desc
       into :ID_INTABS, :id_company, :c_name, :id_abs       
       do begin
          suspend;
       end
   exit;
end

Get_Order_Info
select id_act_name, id_company, date_fin, a_note, debt from tbl_actions where id_actions = :lnIdActions
into :id_act_name, :id_company, :date_fin, :a_note, :debt;
suspend;

GET_OS
for 
    select id_os, o_name from tbl_os
    into :id_os, _name
do begin
   suspend;
end

Get_User_Info
for
   select id_user, u_name, role_name from tbl_user where ul_name = :lcULogName
   into :id_user, :u_name, :role_name
do begin
   suspend;
end

IF SQLEXEC(gnConnHandle, lcCmdStr, 'cCompInfo') != 1
       = AERROR(aErrorArray)
       = MESSAGEBOX('Нет соединения c SQL сервером. Ошибка №14',16,'SQL Connect Error')
ENDIF