MagistrAnatol
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код: object tAboOblad: TpFIBDataSet
UpdateSQL.Strings = (
'UPDATE ABO_OBORYD'
'SET '
' ABO_ID = :ABO_ID,'
' SPR_OBORYD_ID = :SPR_OBORYD_ID,'
' LSA_ID = :LSA_ID,'
' GP_ID = :GP_ID,'
' KGP = :KGP,'
' KOLVO = :KOLVO,'
' KOLVO_VIDKL = :KOLVO_VIDKL,'
' KOLVO_VIDR = :KOLVO_VIDR,'
' KOLVO_DEMONT = :KOLVO_DEMONT,'
' DATA_VCTANOVLENYA =  ATA_VCTANOVLENYA,'
' DATA_VUGOTOVLENYA = ATA_VUGOTOVLENYA,'
' ZAVOD_NOM = :ZAVOD_NOM,'
' DATA_ZAKRUTYA = ATA_ZAKRUTYA,'
' DATA_POVIRKU = ATA_POVIRKU,'
' DATA_NA_POVIRKY = ATA_NA_POVIRKY,'
' DATA_PICLYA_POVIRKU = ATA_PICLYA_POVIRKU,'
' DATA_NACT_POVIRKU = ATA_NACT_POVIRKU,'
' IS_VIDKL = :IS_VIDKL,'
' DATA_VIDKL = ATA_VIDKL,'
' AKT_VIDKL_NOM = :AKT_VIDKL_NOM,'
' PLOMBA_VIDKL =  LOMBA_VIDKL,'
' SPR_XARAKTER_VIDKL_ID = :SPR_XARAKTER_VIDKL_ID,'
' PRUCHUNA_VIDKL = RUCHUNA_VIDKL,'
' DATA_VKL = ATA_VKL,'
' N_DOZVIL_VKL = :N_DOZVIL_VKL,'
' DATA_DUMOXODA = ATA_DUMOXODA,'
' DATA_NACT_DUMOXODA = ATA_NACT_DUMOXODA,'
' DATA_PTO = ATA_PTO,'
' DATA_NACT_PTO = ATA_NACT_PTO,'
' DATA_AKTA = ATA_AKTA,'
' PRUM = RUM,'
' SPR_USER_ID = :SPR_USER_ID,'
' OPER_DATA =  PER_DATA,'
' IS_ADC = :IS_ADC,'
' OPER_TYPE = PER_TYPE,'
' EDIT_TYPE = :EDIT_TYPE,'
' EDIT_USER_ID = :EDIT_USER_ID,'
' EDIT_DATE = :EDIT_DATE,'
' ABO_OPER_ID = :ABO_OPER_ID,'
' VKL_VUKL_ID = :VKL_VUKL_ID'
'WHERE'
' ABO_OBORYD_ID = LD_ABO_OBORYD_ID'
' ')
DeleteSQL.Strings = (
'DELETE FROM'
' ABO_OBORYD'
'WHERE'
' ABO_OBORYD_ID = LD_ABO_OBORYD_ID'
' ')
InsertSQL.Strings = (
'INSERT INTO ABO_OBORYD('
' ABO_ID,'
' SPR_OBORYD_ID,'
' LSA_ID,'
' GP_ID,'
' KGP,'
' KOLVO,'
' KOLVO_VIDKL,'
' KOLVO_VIDR,'
' KOLVO_DEMONT,'
' DATA_VCTANOVLENYA,'
' DATA_VUGOTOVLENYA,'
' ZAVOD_NOM,'
' DATA_ZAKRUTYA,'
' DATA_POVIRKU,'
' DATA_NA_POVIRKY,'
' DATA_PICLYA_POVIRKU,'
' DATA_NACT_POVIRKU,'
' IS_VIDKL,'
' DATA_VIDKL,'
' AKT_VIDKL_NOM,'
' PLOMBA_VIDKL,'
' SPR_XARAKTER_VIDKL_ID,'
' PRUCHUNA_VIDKL,'
' DATA_VKL,'
' N_DOZVIL_VKL,'
' DATA_DUMOXODA,'
' DATA_NACT_DUMOXODA,'
' DATA_PTO,'
' DATA_NACT_PTO,'
' DATA_AKTA,'
' PRUM,'
' SPR_USER_ID,'
' OPER_DATA,'
' IS_ADC,'
' OPER_TYPE,'
' EDIT_TYPE,'
' EDIT_USER_ID,'
' EDIT_DATE,'
' ABO_OPER_ID,'
' VKL_VUKL_ID,'
' ABO_OBORYD_ID'
')'
'VALUES('
' :ABO_ID,'
' :SPR_OBORYD_ID,'
' :LSA_ID,'
' :GP_ID,'
' :KGP,'
' :KOLVO,'
' :KOLVO_VIDKL,'
' :KOLVO_VIDR,'
' :KOLVO_DEMONT,'
' ATA_VCTANOVLENYA,'
' ATA_VUGOTOVLENYA,'
' :ZAVOD_NOM,'
' ATA_ZAKRUTYA,'
' ATA_POVIRKU,'
' ATA_NA_POVIRKY,'
' ATA_PICLYA_POVIRKU,'
' ATA_NACT_POVIRKU,'
' :IS_VIDKL,'
' ATA_VIDKL,'
' :AKT_VIDKL_NOM,'
' LOMBA_VIDKL,'
' :SPR_XARAKTER_VIDKL_ID,'
' RUCHUNA_VIDKL,'
' ATA_VKL,'
' :N_DOZVIL_VKL,'
' ATA_DUMOXODA,'
' ATA_NACT_DUMOXODA,'
' ATA_PTO,'
' ATA_NACT_PTO,'
' ATA_AKTA,'
' RUM,'
' :SPR_USER_ID,'
' PER_DATA,'
' :IS_ADC,'
' PER_TYPE,'
' :EDIT_TYPE,'
' :EDIT_USER_ID,'
' :EDIT_DATE,'
' :ABO_OPER_ID,'
' :VKL_VUKL_ID,'
' :ABO_OBORYD_ID'
')')
RefreshSQL.Strings = (
'SELECT'
' ao.ABO_ID,'
' ao.SPR_OBORYD_ID,'
' ao.LSA_ID,'
' ao.GP_ID,'
' ao.KGP,'
' ao.KOLVO,'
' ao.KOLVO_VIDKL,'
' ao.KOLVO_VIDR,'
' ao.KOLVO_DEMONT,'
' ao.DATA_VCTANOVLENYA,'
' ao.DATA_VUGOTOVLENYA,'
' ao.ZAVOD_NOM,'
' ao.DATA_ZAKRUTYA,'
' ao.DATA_POVIRKU,'
' ao.DATA_NA_POVIRKY,'
' ao.DATA_PICLYA_POVIRKU,'
' ao.DATA_NACT_POVIRKU,'
' ao.IS_VIDKL,'
' ao.DATA_VIDKL,'
' ao.AKT_VIDKL_NOM,'
' ao.PLOMBA_VIDKL,'
' ao.SPR_XARAKTER_VIDKL_ID,'
' ao.PRUCHUNA_VIDKL,'
' ao.DATA_VKL,'
' ao.N_DOZVIL_VKL,'
' ao.DATA_DUMOXODA,'
' ao.DATA_NACT_DUMOXODA,'
' ao.DATA_PTO,'
' ao.DATA_NACT_PTO,'
' ao.DATA_AKTA,'
' ao.PRUM,'
' ao.SPR_USER_ID,'
' ao.OPER_DATA,'
' ao.IS_ADC,'
' ao.oper_type,'
' ao.EDIT_TYPE,'
' ao.EDIT_USER_ID,'
' ao.EDIT_DATE,'
' ao.ABO_OPER_ID,'
' ao.VKL_VUKL_ID,'
' ao.ABO_OBORYD_ID'
'FROM'
' ABO_OBORYD ao'
'left outer join spr_oboryd so on AO.spr_oboryd_id=so.spr_oboryd_' +
'id'
'where( '
'-- '#1074#1110#1076#1082#1083#1102#1095#1077#1085#1077' '#1086#1073#1083#1072#1076#1085#1072#1085#1085#1103
':is_vidkl_oboryd in(-1,ao.is_vidkl) and'
'-- '#1054#1073#1083#1072#1076#1085#1072#1085#1085#1103
':spr_oboryd_id_in in (-1,ao.spr_oboryd_id) and'
'-- '#1090#1080#1087#1080' '#1086#1073#1083#1072#1076#1085#1072#1085#1085#1103
':spr_oboryd_type_id_in in (-1,so.spr_oboryd_type_id) and'
'-- '#1089#1090#1088#1086#1082#1080' '#1087#1086#1074#1110#1088#1082#1080' '#1076#1080#1084#1086#1093#1086#1076#1110#1074
'ao.DATA_NACT_DUMOXODA BETWEEN ND_S and ND_E and'
'-- '#1089#1090#1088#1086#1082#1080' '#1087#1090#1086
'ao.DATA_NACT_PTO BETWEEN NPTO_S and NPTO_E'
' ) and ( AO.ABO_OBORYD_ID = LD_ABO_OBORYD_ID'
' )'
' '
''
''
' ')
SelectSQL.Strings = (
'SELECT'
' ao.ABO_ID,'
' ao.SPR_OBORYD_ID,'
' ao.LSA_ID,'
' ao.GP_ID,'
' ao.KGP,'
' ao.KOLVO,'
' ao.KOLVO_VIDKL,'
' ao.KOLVO_VIDR,'
' ao.KOLVO_DEMONT,'
' ao.DATA_VCTANOVLENYA,'
' ao.DATA_VUGOTOVLENYA,'
' ao.ZAVOD_NOM,'
' ao.DATA_ZAKRUTYA,'
' ao.DATA_POVIRKU,'
' ao.DATA_NA_POVIRKY,'
' ao.DATA_PICLYA_POVIRKU,'
' ao.DATA_NACT_POVIRKU,'
' ao.IS_VIDKL,'
' ao.DATA_VIDKL,'
' ao.AKT_VIDKL_NOM,'
' ao.PLOMBA_VIDKL,'
' ao.SPR_XARAKTER_VIDKL_ID,'
' ao.PRUCHUNA_VIDKL,'
' ao.DATA_VKL,'
' ao.N_DOZVIL_VKL,'
' ao.DATA_DUMOXODA,'
' ao.DATA_NACT_DUMOXODA,'
' ao.DATA_PTO,'
' ao.DATA_NACT_PTO,'
' ao.DATA_AKTA,'
' ao.PRUM,'
' ao.SPR_USER_ID,'
' ao.OPER_DATA,'
' ao.IS_ADC,'
' ao.oper_type,'
' ao.EDIT_TYPE,'
' ao.EDIT_USER_ID,'
' ao.EDIT_DATE,'
' ao.ABO_OPER_ID,'
' ao.VKL_VUKL_ID,'
' ao.ABO_OBORYD_ID'
'FROM'
' ABO_OBORYD ao'
'left outer join spr_oboryd so on AO.spr_oboryd_id=so.spr_oboryd_' +
'id'
'where'
'-- '#1074#1110#1076#1082#1083#1102#1095#1077#1085#1077' '#1086#1073#1083#1072#1076#1085#1072#1085#1085#1103
':is_vidkl_oboryd in(-1,ao.is_vidkl) and'
'-- '#1054#1073#1083#1072#1076#1085#1072#1085#1085#1103
':spr_oboryd_id_in in (-1,ao.spr_oboryd_id) and'
'-- '#1090#1080#1087#1080' '#1086#1073#1083#1072#1076#1085#1072#1085#1085#1103
':spr_oboryd_type_id_in in (-1,so.spr_oboryd_type_id) and'
'-- '#1089#1090#1088#1086#1082#1080' '#1087#1086#1074#1110#1088#1082#1080' '#1076#1080#1084#1086#1093#1086#1076#1110#1074
'ao.DATA_NACT_DUMOXODA BETWEEN ND_S and ND_E and'
'-- '#1089#1090#1088#1086#1082#1080' '#1087#1090#1086
'ao.DATA_NACT_PTO BETWEEN NPTO_S and NPTO_E'
''
''
'order by ABO_ID,ao.SPR_OBORYD_ID'
'')
AutoUpdateOptions.UpdateTableName = 'ABO_OBORYD'
AutoUpdateOptions.KeyFields = 'ABO_OBORYD_ID'
AutoUpdateOptions.GeneratorName = 'GEN_ABO_OBORYD_ID'
AutoUpdateOptions.WhenGetGenID = wgOnNewRecord
Transaction = rTr
Database = Baza
UpdateTransaction = uTr
Left = 280
Top = 248
oStartTransaction = False
oProtectedEdit = True
end
|
|
