diff --git a/BD/BASEDATOS.FDB b/BD/BASEDATOS.FDB index 6d6a924..b84e855 100644 Binary files a/BD/BASEDATOS.FDB and b/BD/BASEDATOS.FDB differ diff --git a/Base/uBizImportesDetalleBase.pas b/Base/uBizImportesDetalleBase.pas index 56cb6ce..b4131fd 100644 --- a/Base/uBizImportesDetalleBase.pas +++ b/Base/uBizImportesDetalleBase.pas @@ -13,6 +13,9 @@ const VISIBLE_TRUE = 'S'; VISIBLE_FALSE = 'N'; + VALORADO_TRUE = 'S'; + VALORADO_FALSE = 'N'; + fld_NUMCONCEPTO = 'NUMCONCEPTO'; fld_POSICION = 'POSICION'; fld_TIPODETALLE = 'TIPO'; @@ -23,6 +26,7 @@ const fld_DESCRIPCION = 'DESCRIPCION'; fld_PUNTOS = 'PUNTOS'; fld_IMPORTEPUNTOS = 'IMPORTEPUNTOS'; + fld_VALORADO = 'VALORADO'; type { IMPORTANTE ********************************************************** @@ -53,6 +57,10 @@ type ['{6BA5B3BF-2E92-4465-A328-60F90F7EA3D2}'] end; + IBizValoradoDetalle = interface(IDAStronglyTypedDataTable) + ['{4529F4B3-DD56-4CDC-8E40-84F5BA26E886}'] + end; + TBizCantidadFieldRules = class(TDAFieldRules) protected procedure OnChange(Sender: TDACustomField); override; @@ -83,6 +91,11 @@ type procedure OnChange(Sender: TDACustomField); override; end; + TBizValoradoFieldRules = class(TDAFieldRules) + protected + procedure OnChange(Sender: TDACustomField); override; + end; + function DarMaximoNumConcepto(aDataTable : TDADataTable): integer; function DarMaximaPosicion(aDataTable : TDADataTable): integer; procedure IntercambiarPosiciones(aDataTable : TDADataTable; Pos1, Pos2 : Integer); @@ -98,6 +111,7 @@ function DarTotalDetalles(aDataTable : TDADataTable; TieneSubtotales : Boolean; procedure RellenarImportePuntosEnCapitulo(aDataTable : TDADataTable); procedure RellenarVisibleEnCapitulo(aDataTable : TDADataTable); +procedure RellenarValoradoEnCapitulo(aDataTable : TDADataTable); procedure RecalcularTodo(aDataTable : TDADataTable); @@ -862,6 +876,84 @@ begin end; end; +procedure RellenarValoradoEnCapitulo(aDataTable : TDADataTable); +{ Rellena VALORADO de todos los conceptos de un capítulo. El cursor + está puesto en la fila que es el título. } +var + ABookmark : Pointer; + APosicion : Integer; + MaxPos : Integer; + TipoField : TDAField; + PosicionField : TDAField; + ValoradoField : TDAField; + ACursor: TCursor; + EnEdicion : Boolean; + EsValorado : String; +begin + if not Assigned(aDataTable) then + raise Exception.Create('Tabla no asignada (RellenarVisibleEnCapitulo)'); + + if aDataTable.RecordCount < 1 then + Exit; + + PosicionField := aDataTable.FindField(fld_POSICION); + if not Assigned(PosicionField) then + raise Exception.Create('Campo POSICION no encontrado (RellenarValoradoEnCapitulo)'); + + TipoField := aDataTable.FindField(fld_TIPODETALLE); + if not Assigned(TipoField) then + raise Exception.Create('Campo TIPO no encontrado (RellenarValoradoEnCapitulo)'); + + ValoradoField := aDataTable.FindField(fld_VALORADO); + if not Assigned(ValoradoField) then + raise Exception.Create('Campo VALORADO no encontrado (RellenarValoradoEnCapitulo)'); + + ABookmark := aDataTable.GetBookMark; + ACursor := Screen.Cursor; + Screen.Cursor := crHourGlass; + aDataTable.DisableControls; + + EnEdicion := (aDataTable.State in dsEditModes); + + if EnEdicion then + aDataTable.Post; + + APosicion := PosicionField.Value + 1; // La posición siguiente a la fila de TITULO + EsValorado := ValoradoField.AsString; // Valor de VALORADO de la fila de TITULO + + try + MaxPos := DarMaximaPosicion(aDataTable); + while (APosicion <= MaxPos) do + begin + if aDataTable.Locate(fld_POSICION, APosicion, []) then + begin + if (TipoField.AsString = TIPODETALLE_CONCEPTO) then + begin + aDataTable.Edit; + aDataTable.DisableEventHandlers; // Para que no salten otros eventos + try + ValoradoField.AsString := EsValorado; + finally + aDataTable.EnableEventHandlers; + end; + aDataTable.Post; + Inc(APosicion); + end + else + break; // Es una fila de SUBTOTAL o de TITULO + end + else + raise Exception.Create('Hay un hueco en la numeración de posiciones'); + end; + finally + aDataTable.GotoBookmark(ABookmark); + aDataTable.EnableControls; + Screen.Cursor := ACursor; + if EnEdicion then + aDataTable.Edit; + end; +end; + { TBizCantidadFieldRules } procedure TBizCantidadFieldRules.OnChange(Sender: TDACustomField); @@ -1019,6 +1111,28 @@ begin end; end; +{ TBizValoradoFieldRules } + +procedure TBizValoradoFieldRules.OnChange(Sender: TDACustomField); +var + aDetalle : IBizValoradoDetalle; + aParche : IParche; +begin + inherited; + + { PARCHE ********************************** } + if Supports(DataTable, IParche, aParche) and + not (aParche.PuedoLanzarEvento) then + Exit; + + if Supports(DataTable, IBizValoradoDetalle, aDetalle) then + begin + if Assigned(aDetalle.DataTable.FindField(fld_TIPODETALLE)) then + if (aDetalle.DataTable.FindField(fld_TIPODETALLE).AsString = TIPODETALLE_TITULO) then + RellenarValoradoEnCapitulo(aDetalle.DataTable); + end; +end; + initialization RegisterFieldRules('Client.Field.Cantidad', TBizCantidadFieldRules); RegisterFieldRules('Client.Field.ImporteUnidad', TBizImporteUnidadFieldRules); @@ -1028,6 +1142,7 @@ initialization RegisterFieldRules('Client.Field.Puntos', TBizPuntosFieldRules); RegisterFieldRules('Client.Field.Visible', TBizVisibleFieldRules); + RegisterFieldRules('Client.Field.Valorado', TBizValoradoFieldRules); finalization diff --git a/Base/uViewDetallesFamilias.dfm b/Base/uViewDetallesFamilias.dfm index a267c07..42dc807 100644 --- a/Base/uViewDetallesFamilias.dfm +++ b/Base/uViewDetallesFamilias.dfm @@ -1,8 +1,6 @@ inherited frViewDetallesFamilias: TfrViewDetallesFamilias - Width = 638 inherited cxGrid: TcxGrid Top = 22 - Width = 638 Height = 248 inherited cxGridView: TcxGridDBTableView OnEditing = cxGridViewEditing @@ -117,10 +115,34 @@ inherited frViewDetallesFamilias: TfrViewDetallesFamilias Properties.ValueChecked = 'S' Properties.ValueUnchecked = 'N' end + object cxGridViewVALORADO: TcxGridDBColumn + Caption = 'Valorado' + DataBinding.FieldName = 'VALORADO' + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.DisplayChecked = 'S' + Properties.DisplayUnchecked = 'N' + Properties.Glyph.Data = { + 76010000424D7601000000000000760000002800000020000000100000000100 + 0400000000000001000000000000000000001000000000000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8888F + FFFFFFFF8888777FFFFF8888FFF88888FF8F888888877777F88FF888FFF88888 + FF88F778F8874777FF77FF88FFF88888F888FF77F8850477F877FFF8FFFF88F8 + 888FFFF7888F4788777FFFFF88FFFFF888FFFFFF7788888777FFFFFFF8888888 + 8FFFFFFFF77777777FFFFFFFFF88888FFFFFFFFFFF47557FFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} + Properties.GlyphCount = 2 + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.ValueChecked = 'S' + Properties.ValueUnchecked = 'N' + end end end inherited ToolBar1: TToolBar - Width = 638 Height = 22 ButtonWidth = 105 object ToolButton1: TToolButton diff --git a/Base/uViewDetallesFamilias.pas b/Base/uViewDetallesFamilias.pas index 21f4b95..8bbb52f 100644 --- a/Base/uViewDetallesFamilias.pas +++ b/Base/uViewDetallesFamilias.pas @@ -42,6 +42,7 @@ type ToolButton8: TToolButton; ToolButton9: TToolButton; actRecalcular: TAction; + cxGridViewVALORADO: TcxGridDBColumn; procedure cxGridViewEditing(Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem; var AAllow: Boolean); procedure cxGridViewTIPOStylesGetContentStyle( @@ -64,7 +65,8 @@ procedure TfrViewDetallesFamilias.cxGridViewEditing( Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem; var AAllow: Boolean); var - IndiceCol : Integer; + IndiceCol, IndiceCol2 : Integer; + begin IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_DESCRIPCION).Index; if AItem.Index <= IndiceCol then @@ -77,10 +79,11 @@ begin if (UpperCase(AItem.GridView.Items[IndiceCol].EditValue) = TIPODETALLE_TITULO) then begin IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_VISIBLE).Index; - if AItem.Index = IndiceCol then + IndiceCol2 := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_VALORADO).Index; + if ((AItem.Index = IndiceCol) or (AItem.Index = IndiceCol2)) then AAllow := True else - AAllow := False + AAllow := False; end; end; end; diff --git a/Iconos/Pagos/16x16/Thumbs.db b/Iconos/Pagos/16x16/Thumbs.db index c5a1f33..28f7c02 100644 Binary files a/Iconos/Pagos/16x16/Thumbs.db and b/Iconos/Pagos/16x16/Thumbs.db differ diff --git a/Modulos/Albaranes de cliente/Cliente/uDataModuleAlbaranesCliente.pas b/Modulos/Albaranes de cliente/Cliente/uDataModuleAlbaranesCliente.pas index 886e862..6f6a595 100644 --- a/Modulos/Albaranes de cliente/Cliente/uDataModuleAlbaranesCliente.pas +++ b/Modulos/Albaranes de cliente/Cliente/uDataModuleAlbaranesCliente.pas @@ -85,6 +85,7 @@ begin FieldByName(fld_DetallesAlbaranClienteIMPORTEPUNTOS).BusinessRulesID := 'Client.Field.ImportePuntos'; FieldByName(fld_DetallesAlbaranClienteVISIBLE).BusinessRulesID := 'Client.Field.Visible'; + FieldByName(fld_DetallesAlbaranClienteVALORADO).BusinessRulesID := 'Client.Field.Valorado'; end; (dtAlbaranes as IBizAlbaranesCliente).Detalles := (dtDetalles as IBizDetallesAlbaranCliente); diff --git a/Modulos/Albaranes de cliente/Cliente/uViewDetallesAlbaranCliente.dfm b/Modulos/Albaranes de cliente/Cliente/uViewDetallesAlbaranCliente.dfm index 59080a4..4418847 100644 --- a/Modulos/Albaranes de cliente/Cliente/uViewDetallesAlbaranCliente.dfm +++ b/Modulos/Albaranes de cliente/Cliente/uViewDetallesAlbaranCliente.dfm @@ -35,6 +35,9 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente Styles.OnGetContentStyle = cxGridViewVISIBLEStylesGetContentStyle Width = 76 end + inherited cxGridViewVALORADO: TcxGridDBColumn + Styles.OnGetContentStyle = cxGridViewVALORADOStylesGetContentStyle + end end end inherited cxStyleRepository1: TcxStyleRepository diff --git a/Modulos/Albaranes de cliente/Cliente/uViewDetallesAlbaranCliente.pas b/Modulos/Albaranes de cliente/Cliente/uViewDetallesAlbaranCliente.pas index 93b796c..644d67d 100644 --- a/Modulos/Albaranes de cliente/Cliente/uViewDetallesAlbaranCliente.pas +++ b/Modulos/Albaranes de cliente/Cliente/uViewDetallesAlbaranCliente.pas @@ -24,6 +24,9 @@ type procedure cxGridViewVISIBLEStylesGetContentStyle( Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); + procedure cxGridViewVALORADOStylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); end; @@ -91,4 +94,22 @@ begin end; end; +procedure TfrViewDetallesAlbaranCliente.cxGridViewVALORADOStylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + IndiceCol : Integer; + ATipo : String; +begin + if Assigned(ARecord) then + begin + IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index; + ATipo := VarToStr(ARecord.Values[IndiceCol]); + if ATipo = TIPODETALLE_SUBTOTAL then + AStyle := cxStyle_SUBTOTAL; + if ATipo = TIPODETALLE_TITULO then + AStyle := cxStyle_TITULO; + end; +end; + end. diff --git a/Modulos/Albaranes de cliente/Reglas/schAlbaranesClienteClient_Intf.pas b/Modulos/Albaranes de cliente/Reglas/schAlbaranesClienteClient_Intf.pas index 7fab81d..fd47611 100644 --- a/Modulos/Albaranes de cliente/Reglas/schAlbaranesClienteClient_Intf.pas +++ b/Modulos/Albaranes de cliente/Reglas/schAlbaranesClienteClient_Intf.pas @@ -9,15 +9,15 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosAlbaranes = '{633AA7F3-9231-41FD-9AFA-20F135BF0015}'; - RID_DarReferenciaAlbaran = '{2A1DC102-86E4-4ED4-99B3-63A0A8ADF44E}'; - RID_AlbaranCliente = '{D7B2EDBF-3686-4A8C-910A-B4CFBE86FA03}'; - RID_AlbaranDePresupuesto = '{30A07021-CB00-471E-933D-C775663D9916}'; - RID_DetallesAlbaranCliente = '{7462D89E-A291-4EEB-86A1-466E9CA91AB2}'; - RID_AlbaranCliente_RefreshDataset = '{937F0EE6-A236-4A40-AC09-EA6C414C708C}'; - RID_InformeCabeceraAlbaranPago = '{56F3725F-E457-4DC3-AE69-F6B955C4D525}'; - RID_InformeDetallesAlbaranPago = '{1023528D-E1A8-4850-9C26-F0AE36E755D0}'; - RID_DarSumaImportes = '{0183F8AD-2381-4ED5-931F-546D5C269857}'; + RID_ListaAnosAlbaranes = '{917C4039-2B93-4CA7-A441-D0352569F345}'; + RID_DarReferenciaAlbaran = '{C11AC197-E7EE-45B7-9496-D6F569F9A723}'; + RID_AlbaranCliente = '{7677D1DA-BBBF-4FE6-99C5-785BFC601814}'; + RID_AlbaranDePresupuesto = '{11FBB81A-08F0-454F-9F82-2D38B9283A2C}'; + RID_DetallesAlbaranCliente = '{0E82DB60-0D2C-4BD7-B746-A3FA7B226C9C}'; + RID_AlbaranCliente_RefreshDataset = '{1CF237D2-D61D-42F7-9977-29C60F03C4A7}'; + RID_InformeCabeceraAlbaranPago = '{7C164B21-4993-4739-8B3F-1B5CC997D24A}'; + RID_InformeDetallesAlbaranPago = '{A9FA5BBE-85CE-4652-9E5C-5F9BF97A3A55}'; + RID_DarSumaImportes = '{1246AA6F-FFBC-422B-90E4-DE85DA400D86}'; { Data table names } nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; @@ -104,6 +104,7 @@ const fld_DetallesAlbaranClienteVISIBLE = 'VISIBLE'; fld_DetallesAlbaranClientePUNTOS = 'PUNTOS'; fld_DetallesAlbaranClienteIMPORTEPUNTOS = 'IMPORTEPUNTOS'; + fld_DetallesAlbaranClienteVALORADO = 'VALORADO'; { DetallesAlbaranCliente field indexes } idx_DetallesAlbaranClienteCODIGOALBARAN = 0; @@ -117,6 +118,7 @@ const idx_DetallesAlbaranClienteVISIBLE = 8; idx_DetallesAlbaranClientePUNTOS = 9; idx_DetallesAlbaranClienteIMPORTEPUNTOS = 10; + idx_DetallesAlbaranClienteVALORADO = 11; { AlbaranCliente_RefreshDataset fields } fld_AlbaranCliente_RefreshDatasetCODIGO = 'CODIGO'; @@ -197,6 +199,7 @@ const fld_InformeDetallesAlbaranPagoIMPORTETOTAL = 'IMPORTETOTAL'; fld_InformeDetallesAlbaranPagoTIPO = 'TIPO'; fld_InformeDetallesAlbaranPagoPOSICION = 'POSICION'; + fld_InformeDetallesAlbaranPagoVALORADO = 'VALORADO'; { InformeDetallesAlbaranPago field indexes } idx_InformeDetallesAlbaranPagoCODIGOALBARAN = 0; @@ -207,6 +210,7 @@ const idx_InformeDetallesAlbaranPagoIMPORTETOTAL = 5; idx_InformeDetallesAlbaranPagoTIPO = 6; idx_InformeDetallesAlbaranPagoPOSICION = 7; + idx_InformeDetallesAlbaranPagoVALORADO = 8; { DarSumaImportes fields } fld_DarSumaImportesBASEIMPONIBLE = 'BASEIMPONIBLE'; @@ -221,7 +225,7 @@ const type { IListaAnosAlbaranes } IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) - ['{D7D4C0A5-1F72-468B-A5FB-C81C33C826F2}'] + ['{D0E73EE9-26F5-4A80-97A1-D26923F15F21}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -250,7 +254,7 @@ type { IDarReferenciaAlbaran } IDarReferenciaAlbaran = interface(IDAStronglyTypedDataTable) - ['{631B04FF-3196-4DB1-8266-43D0CCA14B6C}'] + ['{B552B707-0E8A-4134-94E4-1608D2F8AE7E}'] { Property getters and setters } function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); @@ -279,7 +283,7 @@ type { IAlbaranCliente } IAlbaranCliente = interface(IDAStronglyTypedDataTable) - ['{2E3EA9B3-B1D2-432C-A31E-4BBDDD644872}'] + ['{93E66932-9E6D-463A-B890-D22380A55B15}'] { Property getters and setters } function GetCODIGOEMPRESAValue: Integer; procedure SetCODIGOEMPRESAValue(const aValue: Integer); @@ -422,7 +426,7 @@ type { IAlbaranDePresupuesto } IAlbaranDePresupuesto = interface(IDAStronglyTypedDataTable) - ['{8CD58BB1-A4D0-4DF4-8E30-969F1BACC961}'] + ['{EC189EA9-7AED-4BA8-8453-8BA1C887FA89}'] { Property getters and setters } function GetCODIGOValue: Integer; procedure SetCODIGOValue(const aValue: Integer); @@ -451,7 +455,7 @@ type { IDetallesAlbaranCliente } IDetallesAlbaranCliente = interface(IDAStronglyTypedDataTable) - ['{675AE33F-D64C-47AD-A206-64BFAA11FCD7}'] + ['{A3DBA442-E018-4366-BEA9-CBDCC2638642}'] { Property getters and setters } function GetCODIGOALBARANValue: Integer; procedure SetCODIGOALBARANValue(const aValue: Integer); @@ -475,6 +479,8 @@ type procedure SetPUNTOSValue(const aValue: Integer); function GetIMPORTEPUNTOSValue: Currency; procedure SetIMPORTEPUNTOSValue(const aValue: Currency); + function GetVALORADOValue: String; + procedure SetVALORADOValue(const aValue: String); { Properties } @@ -489,6 +495,7 @@ type property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue; property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue; property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue; + property VALORADO: String read GetVALORADOValue write SetVALORADOValue; end; { TDetallesAlbaranClienteDataTableRules } @@ -518,6 +525,8 @@ type procedure SetPUNTOSValue(const aValue: Integer); virtual; function GetIMPORTEPUNTOSValue: Currency; virtual; procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual; + function GetVALORADOValue: String; virtual; + procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; @@ -531,6 +540,7 @@ type property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue; property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue; property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue; + property VALORADO: String read GetVALORADOValue write SetVALORADOValue; public constructor Create(aDataTable: TDADataTable); override; @@ -540,7 +550,7 @@ type { IAlbaranCliente_RefreshDataset } IAlbaranCliente_RefreshDataset = interface(IDAStronglyTypedDataTable) - ['{37351A63-CE65-4762-B897-5DE5998CAB64}'] + ['{9264A499-6FFC-4612-8A7C-4A718EED39B8}'] { Property getters and setters } function GetCODIGOValue: Integer; procedure SetCODIGOValue(const aValue: Integer); @@ -587,7 +597,7 @@ type { IInformeCabeceraAlbaranPago } IInformeCabeceraAlbaranPago = interface(IDAStronglyTypedDataTable) - ['{173C44D2-12F3-4383-86A6-29107BF40AF6}'] + ['{D89475DD-59B9-4905-A028-189252D573D6}'] { Property getters and setters } function GetCODIGOEMPRESAValue: Integer; procedure SetCODIGOEMPRESAValue(const aValue: Integer); @@ -772,7 +782,7 @@ type { IInformeDetallesAlbaranPago } IInformeDetallesAlbaranPago = interface(IDAStronglyTypedDataTable) - ['{92CC3EF0-B88D-4396-8134-AD775CD2E583}'] + ['{5DDBF241-3C71-4B5A-848C-31D3C1984727}'] { Property getters and setters } function GetCODIGOALBARANValue: Integer; procedure SetCODIGOALBARANValue(const aValue: Integer); @@ -780,8 +790,8 @@ type procedure SetNUMCONCEPTOValue(const aValue: Integer); function GetDESCRIPCIONValue: String; procedure SetDESCRIPCIONValue(const aValue: String); - function GetCANTIDADValue: Float; - procedure SetCANTIDADValue(const aValue: Float); + function GetCANTIDADValue: Integer; + procedure SetCANTIDADValue(const aValue: Integer); function GetIMPORTEUNIDADValue: Float; procedure SetIMPORTEUNIDADValue(const aValue: Float); function GetIMPORTETOTALValue: Float; @@ -790,17 +800,20 @@ type procedure SetTIPOValue(const aValue: String); function GetPOSICIONValue: Integer; procedure SetPOSICIONValue(const aValue: Integer); + function GetVALORADOValue: String; + procedure SetVALORADOValue(const aValue: String); { Properties } property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property IMPORTEUNIDAD: Float read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue; property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property VALORADO: String read GetVALORADOValue write SetVALORADOValue; end; { TInformeDetallesAlbaranPagoDataTableRules } @@ -814,8 +827,8 @@ type procedure SetNUMCONCEPTOValue(const aValue: Integer); virtual; function GetDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; - function GetCANTIDADValue: Float; virtual; - procedure SetCANTIDADValue(const aValue: Float); virtual; + function GetCANTIDADValue: Integer; virtual; + procedure SetCANTIDADValue(const aValue: Integer); virtual; function GetIMPORTEUNIDADValue: Float; virtual; procedure SetIMPORTEUNIDADValue(const aValue: Float); virtual; function GetIMPORTETOTALValue: Float; virtual; @@ -824,16 +837,19 @@ type procedure SetTIPOValue(const aValue: String); virtual; function GetPOSICIONValue: Integer; virtual; procedure SetPOSICIONValue(const aValue: Integer); virtual; + function GetVALORADOValue: String; virtual; + procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOALBARAN: Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; property NUMCONCEPTO: Integer read GetNUMCONCEPTOValue write SetNUMCONCEPTOValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; - property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue; + property CANTIDAD: Integer read GetCANTIDADValue write SetCANTIDADValue; property IMPORTEUNIDAD: Float read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue; property IMPORTETOTAL: Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property VALORADO: String read GetVALORADOValue write SetVALORADOValue; public constructor Create(aDataTable: TDADataTable); override; @@ -846,7 +862,7 @@ type } { IDarSumaImportes } IDarSumaImportes = interface(IDAStronglyTypedDataTable) - ['{0A03D6E5-29C3-4B3C-8004-8D48A433FB36}'] + ['{5DF4D82E-2806-4F9F-BC96-46922630BD69}'] { Property getters and setters } function GetBASEIMPONIBLEValue: Float; procedure SetBASEIMPONIBLEValue(const aValue: Float); @@ -1290,6 +1306,16 @@ begin DataTable.Fields[idx_DetallesAlbaranClienteIMPORTEPUNTOS].AsCurrency := aValue; end; +function TDetallesAlbaranClienteDataTableRules.GetVALORADOValue: String; +begin + result := DataTable.Fields[idx_DetallesAlbaranClienteVALORADO].AsString; +end; + +procedure TDetallesAlbaranClienteDataTableRules.SetVALORADOValue(const aValue: String); +begin + DataTable.Fields[idx_DetallesAlbaranClienteVALORADO].AsString := aValue; +end; + { TAlbaranCliente_RefreshDatasetDataTableRules } constructor TAlbaranCliente_RefreshDatasetDataTableRules.Create(aDataTable: TDADataTable); @@ -1668,14 +1694,14 @@ begin DataTable.Fields[idx_InformeDetallesAlbaranPagoDESCRIPCION].AsString := aValue; end; -function TInformeDetallesAlbaranPagoDataTableRules.GetCANTIDADValue: Float; +function TInformeDetallesAlbaranPagoDataTableRules.GetCANTIDADValue: Integer; begin - result := DataTable.Fields[idx_InformeDetallesAlbaranPagoCANTIDAD].AsFloat; + result := DataTable.Fields[idx_InformeDetallesAlbaranPagoCANTIDAD].AsInteger; end; -procedure TInformeDetallesAlbaranPagoDataTableRules.SetCANTIDADValue(const aValue: Float); +procedure TInformeDetallesAlbaranPagoDataTableRules.SetCANTIDADValue(const aValue: Integer); begin - DataTable.Fields[idx_InformeDetallesAlbaranPagoCANTIDAD].AsFloat := aValue; + DataTable.Fields[idx_InformeDetallesAlbaranPagoCANTIDAD].AsInteger := aValue; end; function TInformeDetallesAlbaranPagoDataTableRules.GetIMPORTEUNIDADValue: Float; @@ -1718,6 +1744,16 @@ begin DataTable.Fields[idx_InformeDetallesAlbaranPagoPOSICION].AsInteger := aValue; end; +function TInformeDetallesAlbaranPagoDataTableRules.GetVALORADOValue: String; +begin + result := DataTable.Fields[idx_InformeDetallesAlbaranPagoVALORADO].AsString; +end; + +procedure TInformeDetallesAlbaranPagoDataTableRules.SetVALORADOValue(const aValue: String); +begin + DataTable.Fields[idx_InformeDetallesAlbaranPagoVALORADO].AsString := aValue; +end; + { TDarSumaImportesDataTableRules } constructor TDarSumaImportesDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Modulos/Albaranes de cliente/Reglas/schAlbaranesClienteServer_Intf.pas b/Modulos/Albaranes de cliente/Reglas/schAlbaranesClienteServer_Intf.pas index 4531432..b1ba079 100644 --- a/Modulos/Albaranes de cliente/Reglas/schAlbaranesClienteServer_Intf.pas +++ b/Modulos/Albaranes de cliente/Reglas/schAlbaranesClienteServer_Intf.pas @@ -9,20 +9,20 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosAlbaranesDelta = '{5C2DB703-C887-4F77-A9DC-11DA0CF6FE4E}'; - RID_DarReferenciaAlbaranDelta = '{D832A4B5-6FDD-49E0-AE5F-306375C415AD}'; - RID_AlbaranClienteDelta = '{5DFFE549-E998-435B-BB5C-F859B970C506}'; - RID_AlbaranDePresupuestoDelta = '{B5AB03E8-D48D-4BA2-A1E9-9CD0D0907C62}'; - RID_DetallesAlbaranClienteDelta = '{1502B47E-54CF-4FCD-8CC2-48C36D9EF53A}'; - RID_AlbaranCliente_RefreshDatasetDelta = '{5E7557E0-2251-46D8-83CF-818EC119C817}'; - RID_InformeCabeceraAlbaranPagoDelta = '{51A960DD-CBCF-4151-9471-61453103C2EF}'; - RID_InformeDetallesAlbaranPagoDelta = '{FA30D0F8-1FFC-4FAD-8C8B-CA8553D877EA}'; - RID_DarSumaImportesDelta = '{50AE6D16-89E0-4C6A-9A75-62FE055859AF}'; + RID_ListaAnosAlbaranesDelta = '{13092E1E-111E-4EA9-881B-3DB5E8D7DF8B}'; + RID_DarReferenciaAlbaranDelta = '{060883BE-0C2D-4803-80D9-9D2E675F0F71}'; + RID_AlbaranClienteDelta = '{423E76BF-AECD-4833-9826-939D0CEAA727}'; + RID_AlbaranDePresupuestoDelta = '{18FC44A8-B09C-42A8-8364-CBA395F2BF34}'; + RID_DetallesAlbaranClienteDelta = '{15388383-8B5E-42C8-B067-6D2BC5B591B9}'; + RID_AlbaranCliente_RefreshDatasetDelta = '{C27FA34C-AC2D-4258-982E-2C454BF6F451}'; + RID_InformeCabeceraAlbaranPagoDelta = '{C19F60E8-D693-4C0F-9F23-E143B0D63CC3}'; + RID_InformeDetallesAlbaranPagoDelta = '{8F113EFE-98EE-495C-BCFF-37E5479F27AB}'; + RID_DarSumaImportesDelta = '{ABF43821-73BF-42CB-9086-3677C16A7153}'; type { IListaAnosAlbaranesDelta } IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) - ['{5C2DB703-C887-4F77-A9DC-11DA0CF6FE4E}'] + ['{13092E1E-111E-4EA9-881B-3DB5E8D7DF8B}'] { Property getters and setters } function GetOldANOValue : String; @@ -51,7 +51,7 @@ type { IDarReferenciaAlbaranDelta } IDarReferenciaAlbaranDelta = interface(IDarReferenciaAlbaran) - ['{D832A4B5-6FDD-49E0-AE5F-306375C415AD}'] + ['{060883BE-0C2D-4803-80D9-9D2E675F0F71}'] { Property getters and setters } function GetOldREFERENCIAValue : String; @@ -80,7 +80,7 @@ type { IAlbaranClienteDelta } IAlbaranClienteDelta = interface(IAlbaranCliente) - ['{5DFFE549-E998-435B-BB5C-F859B970C506}'] + ['{423E76BF-AECD-4833-9826-939D0CEAA727}'] { Property getters and setters } function GetOldCODIGOEMPRESAValue : Integer; function GetOldCODIGOValue : Integer; @@ -242,7 +242,7 @@ type { IAlbaranDePresupuestoDelta } IAlbaranDePresupuestoDelta = interface(IAlbaranDePresupuesto) - ['{B5AB03E8-D48D-4BA2-A1E9-9CD0D0907C62}'] + ['{18FC44A8-B09C-42A8-8364-CBA395F2BF34}'] { Property getters and setters } function GetOldCODIGOValue : Integer; @@ -271,7 +271,7 @@ type { IDetallesAlbaranClienteDelta } IDetallesAlbaranClienteDelta = interface(IDetallesAlbaranCliente) - ['{1502B47E-54CF-4FCD-8CC2-48C36D9EF53A}'] + ['{15388383-8B5E-42C8-B067-6D2BC5B591B9}'] { Property getters and setters } function GetOldCODIGOALBARANValue : Integer; function GetOldNUMCONCEPTOValue : Integer; @@ -284,6 +284,7 @@ type function GetOldVISIBLEValue : String; function GetOldPUNTOSValue : Integer; function GetOldIMPORTEPUNTOSValue : Currency; + function GetOldVALORADOValue : String; { Properties } property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue; @@ -297,6 +298,7 @@ type property OldVISIBLE : String read GetOldVISIBLEValue; property OldPUNTOS : Integer read GetOldPUNTOSValue; property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue; + property OldVALORADO : String read GetOldVALORADOValue; end; { TDetallesAlbaranClienteBusinessProcessorRules } @@ -337,6 +339,9 @@ type function GetIMPORTEPUNTOSValue: Currency; virtual; function GetOldIMPORTEPUNTOSValue: Currency; virtual; procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual; + function GetVALORADOValue: String; virtual; + function GetOldVALORADOValue: String; virtual; + procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; @@ -361,6 +366,8 @@ type property OldPUNTOS : Integer read GetOldPUNTOSValue; property IMPORTEPUNTOS : Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue; property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue; + property VALORADO : String read GetVALORADOValue write SetVALORADOValue; + property OldVALORADO : String read GetOldVALORADOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -370,7 +377,7 @@ type { IAlbaranCliente_RefreshDatasetDelta } IAlbaranCliente_RefreshDatasetDelta = interface(IAlbaranCliente_RefreshDataset) - ['{5E7557E0-2251-46D8-83CF-818EC119C817}'] + ['{C27FA34C-AC2D-4258-982E-2C454BF6F451}'] { Property getters and setters } function GetOldCODIGOValue : Integer; function GetOldNOMBREValue : String; @@ -420,7 +427,7 @@ type { IInformeCabeceraAlbaranPagoDelta } IInformeCabeceraAlbaranPagoDelta = interface(IInformeCabeceraAlbaranPago) - ['{51A960DD-CBCF-4151-9471-61453103C2EF}'] + ['{C19F60E8-D693-4C0F-9F23-E143B0D63CC3}'] { Property getters and setters } function GetOldCODIGOEMPRESAValue : Integer; function GetOldCODIGOValue : Integer; @@ -631,26 +638,28 @@ type { IInformeDetallesAlbaranPagoDelta } IInformeDetallesAlbaranPagoDelta = interface(IInformeDetallesAlbaranPago) - ['{FA30D0F8-1FFC-4FAD-8C8B-CA8553D877EA}'] + ['{8F113EFE-98EE-495C-BCFF-37E5479F27AB}'] { Property getters and setters } function GetOldCODIGOALBARANValue : Integer; function GetOldNUMCONCEPTOValue : Integer; function GetOldDESCRIPCIONValue : String; - function GetOldCANTIDADValue : Float; + function GetOldCANTIDADValue : Integer; function GetOldIMPORTEUNIDADValue : Float; function GetOldIMPORTETOTALValue : Float; function GetOldTIPOValue : String; function GetOldPOSICIONValue : Integer; + function GetOldVALORADOValue : String; { Properties } property OldCODIGOALBARAN : Integer read GetOldCODIGOALBARANValue; property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property OldCANTIDAD : Float read GetOldCANTIDADValue; + property OldCANTIDAD : Integer read GetOldCANTIDADValue; property OldIMPORTEUNIDAD : Float read GetOldIMPORTEUNIDADValue; property OldIMPORTETOTAL : Float read GetOldIMPORTETOTALValue; property OldTIPO : String read GetOldTIPOValue; property OldPOSICION : Integer read GetOldPOSICIONValue; + property OldVALORADO : String read GetOldVALORADOValue; end; { TInformeDetallesAlbaranPagoBusinessProcessorRules } @@ -667,9 +676,9 @@ type function GetDESCRIPCIONValue: String; virtual; function GetOldDESCRIPCIONValue: String; virtual; procedure SetDESCRIPCIONValue(const aValue: String); virtual; - function GetCANTIDADValue: Float; virtual; - function GetOldCANTIDADValue: Float; virtual; - procedure SetCANTIDADValue(const aValue: Float); virtual; + function GetCANTIDADValue: Integer; virtual; + function GetOldCANTIDADValue: Integer; virtual; + procedure SetCANTIDADValue(const aValue: Integer); virtual; function GetIMPORTEUNIDADValue: Float; virtual; function GetOldIMPORTEUNIDADValue: Float; virtual; procedure SetIMPORTEUNIDADValue(const aValue: Float); virtual; @@ -682,6 +691,9 @@ type function GetPOSICIONValue: Integer; virtual; function GetOldPOSICIONValue: Integer; virtual; procedure SetPOSICIONValue(const aValue: Integer); virtual; + function GetVALORADOValue: String; virtual; + function GetOldVALORADOValue: String; virtual; + procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOALBARAN : Integer read GetCODIGOALBARANValue write SetCODIGOALBARANValue; @@ -690,8 +702,8 @@ type property OldNUMCONCEPTO : Integer read GetOldNUMCONCEPTOValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; - property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue; - property OldCANTIDAD : Float read GetOldCANTIDADValue; + property CANTIDAD : Integer read GetCANTIDADValue write SetCANTIDADValue; + property OldCANTIDAD : Integer read GetOldCANTIDADValue; property IMPORTEUNIDAD : Float read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue; property OldIMPORTEUNIDAD : Float read GetOldIMPORTEUNIDADValue; property IMPORTETOTAL : Float read GetIMPORTETOTALValue write SetIMPORTETOTALValue; @@ -700,6 +712,8 @@ type property OldTIPO : String read GetOldTIPOValue; property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue; property OldPOSICION : Integer read GetOldPOSICIONValue; + property VALORADO : String read GetVALORADOValue write SetVALORADOValue; + property OldVALORADO : String read GetOldVALORADOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -709,7 +723,7 @@ type { IDarSumaImportesDelta } IDarSumaImportesDelta = interface(IDarSumaImportes) - ['{50AE6D16-89E0-4C6A-9A75-62FE055859AF}'] + ['{ABF43821-73BF-42CB-9086-3677C16A7153}'] { Property getters and setters } function GetOldBASEIMPONIBLEValue : Float; function GetOldIMPORTEIVAValue : Float; @@ -1328,6 +1342,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteIMPORTEPUNTOS] := aValue; end; +function TDetallesAlbaranClienteBusinessProcessorRules.GetVALORADOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteVALORADO]; +end; + +function TDetallesAlbaranClienteBusinessProcessorRules.GetOldVALORADOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesAlbaranClienteVALORADO]; +end; + +procedure TDetallesAlbaranClienteBusinessProcessorRules.SetVALORADOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesAlbaranClienteVALORADO] := aValue; +end; + { TAlbaranCliente_RefreshDatasetBusinessProcessorRules } constructor TAlbaranCliente_RefreshDatasetBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -1878,17 +1907,17 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoDESCRIPCION] := aValue; end; -function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetCANTIDADValue: Float; +function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetCANTIDADValue: Integer; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoCANTIDAD]; end; -function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldCANTIDADValue: Float; +function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldCANTIDADValue: Integer; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoCANTIDAD]; end; -procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetCANTIDADValue(const aValue: Float); +procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetCANTIDADValue(const aValue: Integer); begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoCANTIDAD] := aValue; end; @@ -1953,6 +1982,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoPOSICION] := aValue; end; +function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetVALORADOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoVALORADO]; +end; + +function TInformeDetallesAlbaranPagoBusinessProcessorRules.GetOldVALORADOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesAlbaranPagoVALORADO]; +end; + +procedure TInformeDetallesAlbaranPagoBusinessProcessorRules.SetVALORADOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesAlbaranPagoVALORADO] := aValue; +end; + { TDarSumaImportesBusinessProcessorRules } constructor TDarSumaImportesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Modulos/Albaranes de cliente/Reglas/uBizAlbaranesCliente.pas b/Modulos/Albaranes de cliente/Reglas/uBizAlbaranesCliente.pas index 6bf3bb1..b13ec02 100644 --- a/Modulos/Albaranes de cliente/Reglas/uBizAlbaranesCliente.pas +++ b/Modulos/Albaranes de cliente/Reglas/uBizAlbaranesCliente.pas @@ -42,6 +42,7 @@ type IBizImportesDetalle, IBizPuntosDetalle, IBizVisibleDetalle, + IBizValoradoDetalle, IParche) // PARCHE *********************** private FIsAppend : Boolean; @@ -378,6 +379,7 @@ begin PUNTOS := ADetallesPresupuesto.PUNTOS; IMPORTEPUNTOS := ADetallesPresupuesto.IMPORTEPUNTOS; VISIBLE := ADetallesPresupuesto.VISIBLE; + VALORADO := ADetallesPresupuesto.VALORADO; finally DataTable.EnableControls; DataTable.EnableEventHandlers; @@ -418,6 +420,7 @@ begin NUMCONCEPTO := -1; TIPO := TIPODETALLE_CONCEPTO; VISIBLE := VISIBLE_TRUE; + VALORADO := VALORADO_TRUE; Self.DataTable.DisableEventHandlers; try diff --git a/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm b/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm index e88d28a..bb69130 100644 --- a/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm +++ b/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm @@ -449,8 +449,8 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente SQL = 'SELECT'#10' CODIGOALBARAN, NUMCONCEPTO, POSICION, TIPO, DESCRIPCI' + 'ON, CANTIDAD,'#10' IMPORTEUNIDAD, IMPORTETOTAL, VISIBLE, PUNTOS, ' + - 'IMPORTEPUNTOS'#10' FROM'#10' DETALLESALBARANPAGO'#10' WHERE CODIGOALBAR' + - 'AN = :CODIGOALBARAN'#10' ORDER BY POSICION' + 'IMPORTEPUNTOS, VALORADO'#10' FROM'#10' DETALLESALBARANPAGO'#10' WHERE C' + + 'ODIGOALBARAN = :CODIGOALBARAN'#10' ORDER BY POSICION' StatementType = stSQL ColumnMappings = < item @@ -496,6 +496,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente item DatasetField = 'IMPORTEPUNTOS' TableField = 'IMPORTEPUNTOS' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'DetallesAlbaranCliente' @@ -613,6 +617,18 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Calculated = False Lookup = False LookupCache = False + end + item + Name = 'VALORADO' + DataType = datString + Size = 1 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript @@ -1174,9 +1190,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente TargetTable = 'ALBARANPAGO' SQL = 'SELECT CODIGOALBARAN, NUMCONCEPTO, DESCRIPCION, CANTIDAD, IMPORT' + - 'EUNIDAD,'#10'IMPORTETOTAL, TIPO, POSICION'#10'FROM DETALLESALBARANPAGO'#10'W' + - 'HERE CODIGOALBARAN = :CODIGOALBARAN AND'#10'VISIBLE = '#39'S'#39#10'ORDER BY P' + - 'OSICION;' + 'EUNIDAD,'#10'IMPORTETOTAL, TIPO, POSICION, VALORADO'#10'FROM DETALLESALB' + + 'ARANPAGO'#10'WHERE CODIGOALBARAN = :CODIGOALBARAN AND'#10'VISIBLE = '#39'S'#39#10 + + 'ORDER BY POSICION;' StatementType = stSQL ColumnMappings = < item @@ -1210,6 +1226,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente item DatasetField = 'POSICION' TableField = 'POSICION' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'InformeDetallesAlbaranPago' @@ -1250,7 +1270,7 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente end item Name = 'CANTIDAD' - DataType = datFloat + DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify @@ -1303,6 +1323,18 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente Calculated = False Lookup = False LookupCache = False + end + item + Name = 'VALORADO' + DataType = datString + Size = 1 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript diff --git a/Modulos/Facturas de cliente/Cliente/uDataModuleFacturasCliente.pas b/Modulos/Facturas de cliente/Cliente/uDataModuleFacturasCliente.pas index 6c91930..8c5c568 100644 --- a/Modulos/Facturas de cliente/Cliente/uDataModuleFacturasCliente.pas +++ b/Modulos/Facturas de cliente/Cliente/uDataModuleFacturasCliente.pas @@ -84,6 +84,7 @@ begin FieldByName(fld_DetallesFacturasClienteIMPORTEUNIDAD).BusinessRulesID := 'Client.Field.ImporteUnidad'; FieldByName(fld_DetallesFacturasClienteTIPO).BusinessRulesID := 'Client.Field.TipoDetalle'; FieldByName(fld_DetallesFacturasClienteVISIBLE).BusinessRulesID := 'Client.Field.Visible'; + FieldByName(fld_DetallesFacturasClienteVALORADO).BusinessRulesID := 'Client.Field.Valorado'; end; (dtCabecera as IBizFacturasCliente).Detalles := (dtDetalles as IBizDetallesFacturasCliente); diff --git a/Modulos/Facturas de cliente/Cliente/uViewDetallesAlbaranCliente.dfm b/Modulos/Facturas de cliente/Cliente/uViewDetallesAlbaranCliente.dfm index 59080a4..4418847 100644 --- a/Modulos/Facturas de cliente/Cliente/uViewDetallesAlbaranCliente.dfm +++ b/Modulos/Facturas de cliente/Cliente/uViewDetallesAlbaranCliente.dfm @@ -35,6 +35,9 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente Styles.OnGetContentStyle = cxGridViewVISIBLEStylesGetContentStyle Width = 76 end + inherited cxGridViewVALORADO: TcxGridDBColumn + Styles.OnGetContentStyle = cxGridViewVALORADOStylesGetContentStyle + end end end inherited cxStyleRepository1: TcxStyleRepository diff --git a/Modulos/Facturas de cliente/Cliente/uViewDetallesAlbaranCliente.pas b/Modulos/Facturas de cliente/Cliente/uViewDetallesAlbaranCliente.pas index 93b796c..644d67d 100644 --- a/Modulos/Facturas de cliente/Cliente/uViewDetallesAlbaranCliente.pas +++ b/Modulos/Facturas de cliente/Cliente/uViewDetallesAlbaranCliente.pas @@ -24,6 +24,9 @@ type procedure cxGridViewVISIBLEStylesGetContentStyle( Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); + procedure cxGridViewVALORADOStylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); end; @@ -91,4 +94,22 @@ begin end; end; +procedure TfrViewDetallesAlbaranCliente.cxGridViewVALORADOStylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + IndiceCol : Integer; + ATipo : String; +begin + if Assigned(ARecord) then + begin + IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index; + ATipo := VarToStr(ARecord.Values[IndiceCol]); + if ATipo = TIPODETALLE_SUBTOTAL then + AStyle := cxStyle_SUBTOTAL; + if ATipo = TIPODETALLE_TITULO then + AStyle := cxStyle_TITULO; + end; +end; + end. diff --git a/Modulos/Facturas de cliente/Cliente/uViewDetallesFacturaCliente.dfm b/Modulos/Facturas de cliente/Cliente/uViewDetallesFacturaCliente.dfm index f635cff..0671535 100644 --- a/Modulos/Facturas de cliente/Cliente/uViewDetallesFacturaCliente.dfm +++ b/Modulos/Facturas de cliente/Cliente/uViewDetallesFacturaCliente.dfm @@ -37,6 +37,9 @@ inherited frViewDetallesFacturaCliente: TfrViewDetallesFacturaCliente Styles.OnGetContentStyle = cxGridViewVISIBLEStylesGetContentStyle Width = 76 end + inherited cxGridViewVALORADO: TcxGridDBColumn + Styles.OnGetContentStyle = cxGridViewVALORADOStylesGetContentStyle + end end end inherited cxStyleRepository1: TcxStyleRepository diff --git a/Modulos/Facturas de cliente/Cliente/uViewDetallesFacturaCliente.pas b/Modulos/Facturas de cliente/Cliente/uViewDetallesFacturaCliente.pas index 29be932..63ad26d 100644 --- a/Modulos/Facturas de cliente/Cliente/uViewDetallesFacturaCliente.pas +++ b/Modulos/Facturas de cliente/Cliente/uViewDetallesFacturaCliente.pas @@ -24,6 +24,9 @@ type procedure cxGridViewVISIBLEStylesGetContentStyle( Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); + procedure cxGridViewVALORADOStylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); end; @@ -91,4 +94,22 @@ begin end; end; +procedure TfrViewDetallesFacturaCliente.cxGridViewVALORADOStylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + IndiceCol : Integer; + ATipo : String; +begin + if Assigned(ARecord) then + begin + IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index; + ATipo := VarToStr(ARecord.Values[IndiceCol]); + if ATipo = TIPODETALLE_SUBTOTAL then + AStyle := cxStyle_SUBTOTAL; + if ATipo = TIPODETALLE_TITULO then + AStyle := cxStyle_TITULO; + end; +end; + end. diff --git a/Modulos/Facturas de cliente/Reglas/schFacturasClienteClient_Intf.pas b/Modulos/Facturas de cliente/Reglas/schFacturasClienteClient_Intf.pas index d00c30e..05c34d1 100644 --- a/Modulos/Facturas de cliente/Reglas/schFacturasClienteClient_Intf.pas +++ b/Modulos/Facturas de cliente/Reglas/schFacturasClienteClient_Intf.pas @@ -9,12 +9,12 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturas = '{42919587-DDC2-4D2F-8B79-4C034016B877}'; - RID_DarReferenciaFactura = '{75D2C86E-2226-4165-AE57-6FBB114F6C38}'; - RID_FacturasCliente = '{46F2D1A1-F069-49C3-8FD7-F73A82EA4B30}'; - RID_DetallesFacturasCliente = '{BB44EE25-910C-4356-B962-792C1239F806}'; - RID_InformeCabeceraFacturaCliente = '{865C733F-2C85-46C9-A40C-8A022512FC4E}'; - RID_InformeDetallesFacturaCliente = '{E219BB9F-D3FD-438D-A03B-0E466305B8A9}'; + RID_ListaAnosFacturas = '{F555E879-98E6-4445-B479-6DDEE0F72451}'; + RID_DarReferenciaFactura = '{31F913BC-22CC-4CD6-9E3B-CBAFEDCDB516}'; + RID_FacturasCliente = '{031548EB-0F39-4A79-BCDA-22C5DB44DE89}'; + RID_DetallesFacturasCliente = '{2F90D934-3C17-43E8-81F3-671E2D2E3270}'; + RID_InformeCabeceraFacturaCliente = '{7C40DCD0-C61B-49F8-A612-4E812BEFBBBE}'; + RID_InformeDetallesFacturaCliente = '{35113953-CFFB-4B9C-BD19-3E378E0A3CD0}'; { Data table names } nme_ListaAnosFacturas = 'ListaAnosFacturas'; @@ -94,6 +94,7 @@ const fld_DetallesFacturasClienteIMPORTEUNIDAD = 'IMPORTEUNIDAD'; fld_DetallesFacturasClienteIMPORTETOTAL = 'IMPORTETOTAL'; fld_DetallesFacturasClienteVISIBLE = 'VISIBLE'; + fld_DetallesFacturasClienteVALORADO = 'VALORADO'; { DetallesFacturasCliente field indexes } idx_DetallesFacturasClienteCODIGOFACTURA = 0; @@ -105,6 +106,7 @@ const idx_DetallesFacturasClienteIMPORTEUNIDAD = 6; idx_DetallesFacturasClienteIMPORTETOTAL = 7; idx_DetallesFacturasClienteVISIBLE = 8; + idx_DetallesFacturasClienteVALORADO = 9; { InformeCabeceraFacturaCliente fields } fld_InformeCabeceraFacturaClienteCODIGOEMPRESA = 'CODIGOEMPRESA'; @@ -161,6 +163,7 @@ const fld_InformeDetallesFacturaClienteIMPORTETOTAL = 'IMPORTETOTAL'; fld_InformeDetallesFacturaClienteTIPO = 'TIPO'; fld_InformeDetallesFacturaClientePOSICION = 'POSICION'; + fld_InformeDetallesFacturaClienteVALORADO = 'VALORADO'; { InformeDetallesFacturaCliente field indexes } idx_InformeDetallesFacturaClienteCODIGOFACTURA = 0; @@ -171,11 +174,12 @@ const idx_InformeDetallesFacturaClienteIMPORTETOTAL = 5; idx_InformeDetallesFacturaClienteTIPO = 6; idx_InformeDetallesFacturaClientePOSICION = 7; + idx_InformeDetallesFacturaClienteVALORADO = 8; type { IListaAnosFacturas } IListaAnosFacturas = interface(IDAStronglyTypedDataTable) - ['{728E1D30-3B2E-44F0-86B2-D18BDDE2C92C}'] + ['{C1615D5E-1861-4FC2-8130-504C8985199F}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -204,7 +208,7 @@ type { IDarReferenciaFactura } IDarReferenciaFactura = interface(IDAStronglyTypedDataTable) - ['{E947ABD4-4AD9-41C2-9351-96CBCDFFF938}'] + ['{833C57EE-185B-4376-BEF6-EADB0B75B43E}'] { Property getters and setters } function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); @@ -233,7 +237,7 @@ type { IFacturasCliente } IFacturasCliente = interface(IDAStronglyTypedDataTable) - ['{1D8ABDA0-4A60-4470-9880-627ED9D48B67}'] + ['{BF90D431-7F0C-43BF-BFC8-609EBF5957FD}'] { Property getters and setters } function GetCODIGOEMPRESAValue: Integer; procedure SetCODIGOEMPRESAValue(const aValue: Integer); @@ -388,7 +392,7 @@ type { IDetallesFacturasCliente } IDetallesFacturasCliente = interface(IDAStronglyTypedDataTable) - ['{5D2C18DA-1596-42C5-B509-360BFB347BDD}'] + ['{8EFC0465-252D-4ECE-9135-A803FC28C9A2}'] { Property getters and setters } function GetCODIGOFACTURAValue: Integer; procedure SetCODIGOFACTURAValue(const aValue: Integer); @@ -408,6 +412,8 @@ type procedure SetIMPORTETOTALValue(const aValue: Currency); function GetVISIBLEValue: String; procedure SetVISIBLEValue(const aValue: String); + function GetVALORADOValue: String; + procedure SetVALORADOValue(const aValue: String); { Properties } @@ -420,6 +426,7 @@ type property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue; property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue; + property VALORADO: String read GetVALORADOValue write SetVALORADOValue; end; { TDetallesFacturasClienteDataTableRules } @@ -445,6 +452,8 @@ type procedure SetIMPORTETOTALValue(const aValue: Currency); virtual; function GetVISIBLEValue: String; virtual; procedure SetVISIBLEValue(const aValue: String); virtual; + function GetVALORADOValue: String; virtual; + procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue; @@ -456,6 +465,7 @@ type property IMPORTEUNIDAD: Currency read GetIMPORTEUNIDADValue write SetIMPORTEUNIDADValue; property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue; + property VALORADO: String read GetVALORADOValue write SetVALORADOValue; public constructor Create(aDataTable: TDADataTable); override; @@ -465,7 +475,7 @@ type { IInformeCabeceraFacturaCliente } IInformeCabeceraFacturaCliente = interface(IDAStronglyTypedDataTable) - ['{64DCF384-1920-4E15-9B5A-BD3B2673C3C4}'] + ['{08A69022-7E0C-4344-86F7-453D608F06A6}'] { Property getters and setters } function GetCODIGOEMPRESAValue: Integer; procedure SetCODIGOEMPRESAValue(const aValue: Integer); @@ -614,7 +624,7 @@ type { IInformeDetallesFacturaCliente } IInformeDetallesFacturaCliente = interface(IDAStronglyTypedDataTable) - ['{398C14EC-410D-4756-B0B6-97EF74DA85D2}'] + ['{2FC352CD-EB9C-465E-943D-92589BB3C567}'] { Property getters and setters } function GetCODIGOFACTURAValue: Integer; procedure SetCODIGOFACTURAValue(const aValue: Integer); @@ -632,6 +642,8 @@ type procedure SetTIPOValue(const aValue: String); function GetPOSICIONValue: Integer; procedure SetPOSICIONValue(const aValue: Integer); + function GetVALORADOValue: String; + procedure SetVALORADOValue(const aValue: String); { Properties } @@ -643,6 +655,7 @@ type property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property VALORADO: String read GetVALORADOValue write SetVALORADOValue; end; { TInformeDetallesFacturaClienteDataTableRules } @@ -666,6 +679,8 @@ type procedure SetTIPOValue(const aValue: String); virtual; function GetPOSICIONValue: Integer; virtual; procedure SetPOSICIONValue(const aValue: Integer); virtual; + function GetVALORADOValue: String; virtual; + procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOFACTURA: Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue; @@ -676,6 +691,7 @@ type property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property VALORADO: String read GetVALORADOValue write SetVALORADOValue; public constructor Create(aDataTable: TDADataTable); override; @@ -1066,6 +1082,16 @@ begin DataTable.Fields[idx_DetallesFacturasClienteVISIBLE].AsString := aValue; end; +function TDetallesFacturasClienteDataTableRules.GetVALORADOValue: String; +begin + result := DataTable.Fields[idx_DetallesFacturasClienteVALORADO].AsString; +end; + +procedure TDetallesFacturasClienteDataTableRules.SetVALORADOValue(const aValue: String); +begin + DataTable.Fields[idx_DetallesFacturasClienteVALORADO].AsString := aValue; +end; + { TInformeCabeceraFacturaClienteDataTableRules } constructor TInformeCabeceraFacturaClienteDataTableRules.Create(aDataTable: TDADataTable); @@ -1382,6 +1408,16 @@ begin DataTable.Fields[idx_InformeDetallesFacturaClientePOSICION].AsInteger := aValue; end; +function TInformeDetallesFacturaClienteDataTableRules.GetVALORADOValue: String; +begin + result := DataTable.Fields[idx_InformeDetallesFacturaClienteVALORADO].AsString; +end; + +procedure TInformeDetallesFacturaClienteDataTableRules.SetVALORADOValue(const aValue: String); +begin + DataTable.Fields[idx_InformeDetallesFacturaClienteVALORADO].AsString := aValue; +end; + initialization RegisterDataTableRules(RID_ListaAnosFacturas, TListaAnosFacturasDataTableRules); diff --git a/Modulos/Facturas de cliente/Reglas/schFacturasClienteServer_Intf.pas b/Modulos/Facturas de cliente/Reglas/schFacturasClienteServer_Intf.pas index b368a3e..36146ff 100644 --- a/Modulos/Facturas de cliente/Reglas/schFacturasClienteServer_Intf.pas +++ b/Modulos/Facturas de cliente/Reglas/schFacturasClienteServer_Intf.pas @@ -9,17 +9,17 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosFacturasDelta = '{4A3D7BF0-E719-4050-B586-158542987232}'; - RID_DarReferenciaFacturaDelta = '{83C26CE1-CD1F-49D4-9120-6EDE7CEEA2EA}'; - RID_FacturasClienteDelta = '{68C74297-5D44-444B-8771-A8E6D3D3271B}'; - RID_DetallesFacturasClienteDelta = '{BD1FD6EF-39D5-452F-9839-1629116AF11F}'; - RID_InformeCabeceraFacturaClienteDelta = '{790B67BB-36BD-484E-8E99-288CC4E12849}'; - RID_InformeDetallesFacturaClienteDelta = '{0EC5EBAE-B438-4B46-AC9F-C126476C5876}'; + RID_ListaAnosFacturasDelta = '{E5DB6C55-5B68-4B8A-825B-C84D13D9456D}'; + RID_DarReferenciaFacturaDelta = '{45121769-EC6F-4045-9D56-FAA87687E68B}'; + RID_FacturasClienteDelta = '{04EFDBF9-E923-48FA-B960-078A10F69155}'; + RID_DetallesFacturasClienteDelta = '{CDDF089B-A4FE-4ECF-9CA2-C27E6F7947CF}'; + RID_InformeCabeceraFacturaClienteDelta = '{E5773B7E-6449-4935-B809-E04C0634015B}'; + RID_InformeDetallesFacturaClienteDelta = '{CB8F77F7-5D7D-4BEF-84F0-3A429BBE7FB9}'; type { IListaAnosFacturasDelta } IListaAnosFacturasDelta = interface(IListaAnosFacturas) - ['{4A3D7BF0-E719-4050-B586-158542987232}'] + ['{E5DB6C55-5B68-4B8A-825B-C84D13D9456D}'] { Property getters and setters } function GetOldANOValue : String; @@ -48,7 +48,7 @@ type { IDarReferenciaFacturaDelta } IDarReferenciaFacturaDelta = interface(IDarReferenciaFactura) - ['{83C26CE1-CD1F-49D4-9120-6EDE7CEEA2EA}'] + ['{45121769-EC6F-4045-9D56-FAA87687E68B}'] { Property getters and setters } function GetOldREFERENCIAValue : String; @@ -77,7 +77,7 @@ type { IFacturasClienteDelta } IFacturasClienteDelta = interface(IFacturasCliente) - ['{68C74297-5D44-444B-8771-A8E6D3D3271B}'] + ['{04EFDBF9-E923-48FA-B960-078A10F69155}'] { Property getters and setters } function GetOldCODIGOEMPRESAValue : Integer; function GetOldCODIGOValue : Integer; @@ -253,7 +253,7 @@ type { IDetallesFacturasClienteDelta } IDetallesFacturasClienteDelta = interface(IDetallesFacturasCliente) - ['{BD1FD6EF-39D5-452F-9839-1629116AF11F}'] + ['{CDDF089B-A4FE-4ECF-9CA2-C27E6F7947CF}'] { Property getters and setters } function GetOldCODIGOFACTURAValue : Integer; function GetOldNUMCONCEPTOValue : Integer; @@ -264,6 +264,7 @@ type function GetOldIMPORTEUNIDADValue : Currency; function GetOldIMPORTETOTALValue : Currency; function GetOldVISIBLEValue : String; + function GetOldVALORADOValue : String; { Properties } property OldCODIGOFACTURA : Integer read GetOldCODIGOFACTURAValue; @@ -275,6 +276,7 @@ type property OldIMPORTEUNIDAD : Currency read GetOldIMPORTEUNIDADValue; property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue; property OldVISIBLE : String read GetOldVISIBLEValue; + property OldVALORADO : String read GetOldVALORADOValue; end; { TDetallesFacturasClienteBusinessProcessorRules } @@ -309,6 +311,9 @@ type function GetVISIBLEValue: String; virtual; function GetOldVISIBLEValue: String; virtual; procedure SetVISIBLEValue(const aValue: String); virtual; + function GetVALORADOValue: String; virtual; + function GetOldVALORADOValue: String; virtual; + procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOFACTURA : Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue; @@ -329,6 +334,8 @@ type property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue; property VISIBLE : String read GetVISIBLEValue write SetVISIBLEValue; property OldVISIBLE : String read GetOldVISIBLEValue; + property VALORADO : String read GetVALORADOValue write SetVALORADOValue; + property OldVALORADO : String read GetOldVALORADOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -338,7 +345,7 @@ type { IInformeCabeceraFacturaClienteDelta } IInformeCabeceraFacturaClienteDelta = interface(IInformeCabeceraFacturaCliente) - ['{790B67BB-36BD-484E-8E99-288CC4E12849}'] + ['{E5773B7E-6449-4935-B809-E04C0634015B}'] { Property getters and setters } function GetOldCODIGOEMPRESAValue : Integer; function GetOldCODIGOValue : Integer; @@ -507,7 +514,7 @@ type { IInformeDetallesFacturaClienteDelta } IInformeDetallesFacturaClienteDelta = interface(IInformeDetallesFacturaCliente) - ['{0EC5EBAE-B438-4B46-AC9F-C126476C5876}'] + ['{CB8F77F7-5D7D-4BEF-84F0-3A429BBE7FB9}'] { Property getters and setters } function GetOldCODIGOFACTURAValue : Integer; function GetOldNUMCONCEPTOValue : Integer; @@ -517,6 +524,7 @@ type function GetOldIMPORTETOTALValue : Currency; function GetOldTIPOValue : String; function GetOldPOSICIONValue : Integer; + function GetOldVALORADOValue : String; { Properties } property OldCODIGOFACTURA : Integer read GetOldCODIGOFACTURAValue; @@ -527,6 +535,7 @@ type property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue; property OldTIPO : String read GetOldTIPOValue; property OldPOSICION : Integer read GetOldPOSICIONValue; + property OldVALORADO : String read GetOldVALORADOValue; end; { TInformeDetallesFacturaClienteBusinessProcessorRules } @@ -558,6 +567,9 @@ type function GetPOSICIONValue: Integer; virtual; function GetOldPOSICIONValue: Integer; virtual; procedure SetPOSICIONValue(const aValue: Integer); virtual; + function GetVALORADOValue: String; virtual; + function GetOldVALORADOValue: String; virtual; + procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOFACTURA : Integer read GetCODIGOFACTURAValue write SetCODIGOFACTURAValue; @@ -576,6 +588,8 @@ type property OldTIPO : String read GetOldTIPOValue; property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue; property OldPOSICION : Integer read GetOldPOSICIONValue; + property VALORADO : String read GetVALORADOValue write SetVALORADOValue; + property OldVALORADO : String read GetOldVALORADOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -1134,6 +1148,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteVISIBLE] := aValue; end; +function TDetallesFacturasClienteBusinessProcessorRules.GetVALORADOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteVALORADO]; +end; + +function TDetallesFacturasClienteBusinessProcessorRules.GetOldVALORADOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesFacturasClienteVALORADO]; +end; + +procedure TDetallesFacturasClienteBusinessProcessorRules.SetVALORADOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesFacturasClienteVALORADO] := aValue; +end; + { TInformeCabeceraFacturaClienteBusinessProcessorRules } constructor TInformeCabeceraFacturaClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -1597,6 +1626,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClientePOSICION] := aValue; end; +function TInformeDetallesFacturaClienteBusinessProcessorRules.GetVALORADOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClienteVALORADO]; +end; + +function TInformeDetallesFacturaClienteBusinessProcessorRules.GetOldVALORADOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesFacturaClienteVALORADO]; +end; + +procedure TInformeDetallesFacturaClienteBusinessProcessorRules.SetVALORADOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesFacturaClienteVALORADO] := aValue; +end; + initialization RegisterBusinessProcessorRules(RID_ListaAnosFacturasDelta, TListaAnosFacturasBusinessProcessorRules); diff --git a/Modulos/Facturas de cliente/Reglas/uBizFacturasCliente.pas b/Modulos/Facturas de cliente/Reglas/uBizFacturasCliente.pas index cfaf09c..4cde87f 100644 --- a/Modulos/Facturas de cliente/Reglas/uBizFacturasCliente.pas +++ b/Modulos/Facturas de cliente/Reglas/uBizFacturasCliente.pas @@ -50,6 +50,7 @@ type IBizImportesDetalle, IBizPuntosDetalle, IBizVisibleDetalle, + IBizValoradoDetalle, IParche) // PARCHE *********************** private FIsAppend : Boolean; @@ -406,6 +407,7 @@ begin CANTIDAD := ADetallesAlbaranes.CANTIDAD; IMPORTEUNIDAD := ADetallesAlbaranes.IMPORTEUNIDAD; VISIBLE := ADetallesAlbaranes.VISIBLE; + VALORADO := ADetallesAlbaranes.VALORADO; finally DataTable.EnableControls; DataTable.EnableEventHandlers; @@ -491,7 +493,8 @@ begin POSICION := FPosicionNueva; NUMCONCEPTO := -1; TIPO := TIPODETALLE_CONCEPTO; - VISIBLE := VISIBLE_TRUE; + VISIBLE := VISIBLE_TRUE; + VALORADO := VALORADO_TRUE; end; diff --git a/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm b/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm index 44fedf5..4faf866 100644 --- a/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm +++ b/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm @@ -430,9 +430,9 @@ object srvFacturasCliente: TsrvFacturasCliente TargetTable = 'DETALLESFACTURASCLIENTE' SQL = 'SELECT '#10' CODIGOFACTURA, NUMCONCEPTO, DESCRIPCION, CANTIDAD, '#10 + - ' IMPORTEUNIDAD, IMPORTETOTAL, POSICION, TIPO, VISIBLE'#10' FROM'#10 + - ' DETALLESFACTURASCLIENTE'#10' WHERE CODIGOFACTURA = :CODIGOFACTU' + - 'RA'#10' ORDER BY POSICION;' + ' IMPORTEUNIDAD, IMPORTETOTAL, POSICION, TIPO, VISIBLE, VALORA' + + 'DO'#10' FROM'#10' DETALLESFACTURASCLIENTE'#10' WHERE CODIGOFACTURA = :C' + + 'ODIGOFACTURA'#10' ORDER BY POSICION;' StatementType = stSQL ColumnMappings = < item @@ -470,6 +470,10 @@ object srvFacturasCliente: TsrvFacturasCliente item DatasetField = 'VISIBLE' TableField = 'VISIBLE' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'DetallesFacturasCliente' @@ -567,6 +571,18 @@ object srvFacturasCliente: TsrvFacturasCliente Calculated = False Lookup = False LookupCache = False + end + item + Name = 'VALORADO' + DataType = datString + Size = 1 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript @@ -918,9 +934,9 @@ object srvFacturasCliente: TsrvFacturasCliente TargetTable = 'DETALLESFACTURASCLIENTE' SQL = 'SELECT '#10' CODIGOFACTURA, NUMCONCEPTO, DESCRIPCION, CANTIDAD, '#10 + - ' IMPORTEUNIDAD, IMPORTETOTAL, POSICION, TIPO'#10'FROM DETALLESFAC' + - 'TURASCLIENTE'#10'WHERE CODIGOFACTURA = :CODIGOFACTURA AND'#10'VISIBLE = ' + - #39'S'#39#10'ORDER BY POSICION' + ' IMPORTEUNIDAD, IMPORTETOTAL, POSICION, TIPO, VALORADO'#10'FROM D' + + 'ETALLESFACTURASCLIENTE'#10'WHERE CODIGOFACTURA = :CODIGOFACTURA AND'#10 + + 'VISIBLE = '#39'S'#39#10'ORDER BY POSICION' StatementType = stSQL ColumnMappings = < item @@ -954,6 +970,10 @@ object srvFacturasCliente: TsrvFacturasCliente item DatasetField = 'CODIGOFACTURA' TableField = 'CODIGOFACTURA' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'InformeDetallesFacturaCliente' @@ -1040,6 +1060,18 @@ object srvFacturasCliente: TsrvFacturasCliente Calculated = False Lookup = False LookupCache = False + end + item + Name = 'VALORADO' + DataType = datString + Size = 1 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript diff --git a/Modulos/Pedidos a proveedor/Cliente/uViewDetallesPedidosProveedor.pas b/Modulos/Pedidos a proveedor/Cliente/uViewDetallesPedidosProveedor.pas index fd3655b..cb0d217 100644 --- a/Modulos/Pedidos a proveedor/Cliente/uViewDetallesPedidosProveedor.pas +++ b/Modulos/Pedidos a proveedor/Cliente/uViewDetallesPedidosProveedor.pas @@ -20,9 +20,6 @@ type cxGridViewPOSICION: TcxGridDBColumn; procedure cxGridViewEditing(Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem; var AAllow: Boolean); - procedure cxGridViewVISIBLEStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); end; @@ -52,22 +49,4 @@ begin inherited; end; -procedure TfrViewDetallesPedidosProveedor.cxGridViewVISIBLEStylesGetContentStyle( - Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; - AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); -var - IndiceCol : Integer; - ATipo : String; -begin -{ if Assigned(ARecord) then - begin - IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index; - ATipo := VarToStr(ARecord.Values[IndiceCol]); - if ATipo = TIPODETALLE_SUBTOTAL then - AStyle := cxStyle_SUBTOTAL; - if ATipo = TIPODETALLE_TITULO then - AStyle := cxStyle_TITULO; - end;} -end; - end. diff --git a/Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas b/Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas index 8caeb2d..87af46d 100644 --- a/Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas +++ b/Modulos/Presupuestos/Cliente/uDataModulePresupuestos.pas @@ -120,6 +120,7 @@ begin FieldByName(fld_DetallesPresupuestosIMPORTEPUNTOS).BusinessRulesID := 'Client.Field.ImportePuntos'; FieldByName(fld_DetallesPresupuestosVISIBLE).BusinessRulesID := 'Client.Field.Visible'; + FieldByName(fld_DetallesPresupuestosVALORADO).BusinessRulesID := 'Client.Field.Valorado'; end; (dtPresupuestos as IBizPresupuestos).Detalles := (dtDetalles as IBizDetallesPresupuesto); diff --git a/Modulos/Presupuestos/Cliente/uViewDetallesPresupuesto.dfm b/Modulos/Presupuestos/Cliente/uViewDetallesPresupuesto.dfm index 3b2fa0e..a5b4e21 100644 --- a/Modulos/Presupuestos/Cliente/uViewDetallesPresupuesto.dfm +++ b/Modulos/Presupuestos/Cliente/uViewDetallesPresupuesto.dfm @@ -1,7 +1,5 @@ inherited frViewDetallesPresupuesto: TfrViewDetallesPresupuesto - Width = 443 inherited cxGrid: TcxGrid - Width = 443 inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < item @@ -54,11 +52,11 @@ inherited frViewDetallesPresupuesto: TfrViewDetallesPresupuesto Styles.OnGetContentStyle = cxGridViewVISIBLEStylesGetContentStyle Width = 21 end + inherited cxGridViewVALORADO: TcxGridDBColumn + Styles.OnGetContentStyle = cxGridViewVALORADOStylesGetContentStyle + end end end - inherited ToolBar1: TToolBar - Width = 443 - end inherited cxStyleRepository1: TcxStyleRepository object cxStyle_PUNTOS: TcxStyle AssignedValues = [svColor, svFont, svTextColor] diff --git a/Modulos/Presupuestos/Cliente/uViewDetallesPresupuesto.pas b/Modulos/Presupuestos/Cliente/uViewDetallesPresupuesto.pas index c8fd2df..2315510 100644 --- a/Modulos/Presupuestos/Cliente/uViewDetallesPresupuesto.pas +++ b/Modulos/Presupuestos/Cliente/uViewDetallesPresupuesto.pas @@ -25,6 +25,9 @@ type procedure cxGridViewVISIBLEStylesGetContentStyle( Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); + procedure cxGridViewVALORADOStylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); private { Private declarations } public @@ -95,4 +98,22 @@ begin end; end; +procedure TfrViewDetallesPresupuesto.cxGridViewVALORADOStylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + IndiceCol : Integer; + ATipo : String; +begin + if Assigned(ARecord) then + begin + IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index; + ATipo := VarToStr(ARecord.Values[IndiceCol]); + if ATipo = TIPODETALLE_SUBTOTAL then + AStyle := cxStyle_SUBTOTAL; + if ATipo = TIPODETALLE_TITULO then + AStyle := cxStyle_TITULO; + end; +end; + end. diff --git a/Modulos/Presupuestos/Reglas/schPresupuestosClient_Intf.pas b/Modulos/Presupuestos/Reglas/schPresupuestosClient_Intf.pas index 83b3224..52f2f7e 100644 --- a/Modulos/Presupuestos/Reglas/schPresupuestosClient_Intf.pas +++ b/Modulos/Presupuestos/Reglas/schPresupuestosClient_Intf.pas @@ -9,12 +9,12 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosPresupuestos = '{95031149-82C7-4C73-BC10-9B1285B42FD8}'; - RID_DetallesPresupuestos = '{4155E7A3-B36F-440C-9232-FCDA6E0E57D3}'; - RID_Presupuestos = '{3C692B06-401D-4BB5-9E59-1029ECE88CCA}'; - RID_Presupuestos_RefreshDataset = '{4DDAA5E9-1786-49E9-82E4-92A8E5A30D2E}'; - RID_InformeCabeceraPresupuesto = '{3826E313-F328-47E3-AFF6-4C02E162BD3C}'; - RID_InformeDetallesPresupuesto = '{363E9ABE-D657-4094-A45A-1F44E3CC35DE}'; + RID_ListaAnosPresupuestos = '{5962C413-3DAB-454D-B36A-FD4E24DE730F}'; + RID_DetallesPresupuestos = '{25BCA0F2-589D-4000-B0E6-9182C7D37894}'; + RID_Presupuestos = '{C41805F4-A7E8-4D44-B1A9-664132994979}'; + RID_Presupuestos_RefreshDataset = '{D439CBC6-EB81-49A4-8ECC-CC48D9CECE2A}'; + RID_InformeCabeceraPresupuesto = '{CF1F99E6-E1F4-49FA-810B-63F71F884A5F}'; + RID_InformeDetallesPresupuesto = '{427D3BE3-C67C-4007-B3D3-2BDB73496BAA}'; { Data table names } nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos'; @@ -42,6 +42,7 @@ const fld_DetallesPresupuestosVISIBLE = 'VISIBLE'; fld_DetallesPresupuestosPUNTOS = 'PUNTOS'; fld_DetallesPresupuestosIMPORTEPUNTOS = 'IMPORTEPUNTOS'; + fld_DetallesPresupuestosVALORADO = 'VALORADO'; { DetallesPresupuestos field indexes } idx_DetallesPresupuestosCODIGOPRESUPUESTO = 0; @@ -55,6 +56,7 @@ const idx_DetallesPresupuestosVISIBLE = 8; idx_DetallesPresupuestosPUNTOS = 9; idx_DetallesPresupuestosIMPORTEPUNTOS = 10; + idx_DetallesPresupuestosVALORADO = 11; { Presupuestos fields } fld_PresupuestosCODIGOEMPRESA = 'CODIGOEMPRESA'; @@ -199,6 +201,7 @@ const fld_InformeDetallesPresupuestoIMPORTETOTAL = 'IMPORTETOTAL'; fld_InformeDetallesPresupuestoTIPO = 'TIPO'; fld_InformeDetallesPresupuestoPOSICION = 'POSICION'; + fld_InformeDetallesPresupuestoVALORADO = 'VALORADO'; { InformeDetallesPresupuesto field indexes } idx_InformeDetallesPresupuestoCODIGOPRESUPUESTO = 0; @@ -209,11 +212,12 @@ const idx_InformeDetallesPresupuestoIMPORTETOTAL = 5; idx_InformeDetallesPresupuestoTIPO = 6; idx_InformeDetallesPresupuestoPOSICION = 7; + idx_InformeDetallesPresupuestoVALORADO = 8; type { IListaAnosPresupuestos } IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) - ['{6D5B13E0-C373-43E8-B599-1AD86BD6ABF2}'] + ['{B7E87944-26FF-4A49-81C3-39AD904ED7D8}'] { Property getters and setters } function GetANOValue: String; procedure SetANOValue(const aValue: String); @@ -242,7 +246,7 @@ type { IDetallesPresupuestos } IDetallesPresupuestos = interface(IDAStronglyTypedDataTable) - ['{18414808-5E3F-4017-8DCF-885665361C3C}'] + ['{58F9406A-6CF9-4DC6-A932-F3965154962E}'] { Property getters and setters } function GetCODIGOPRESUPUESTOValue: Integer; procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); @@ -266,6 +270,8 @@ type procedure SetPUNTOSValue(const aValue: Integer); function GetIMPORTEPUNTOSValue: Currency; procedure SetIMPORTEPUNTOSValue(const aValue: Currency); + function GetVALORADOValue: String; + procedure SetVALORADOValue(const aValue: String); { Properties } @@ -280,6 +286,7 @@ type property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue; property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue; property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue; + property VALORADO: String read GetVALORADOValue write SetVALORADOValue; end; { TDetallesPresupuestosDataTableRules } @@ -309,6 +316,8 @@ type procedure SetPUNTOSValue(const aValue: Integer); virtual; function GetIMPORTEPUNTOSValue: Currency; virtual; procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual; + function GetVALORADOValue: String; virtual; + procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue; @@ -322,6 +331,7 @@ type property VISIBLE: String read GetVISIBLEValue write SetVISIBLEValue; property PUNTOS: Integer read GetPUNTOSValue write SetPUNTOSValue; property IMPORTEPUNTOS: Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue; + property VALORADO: String read GetVALORADOValue write SetVALORADOValue; public constructor Create(aDataTable: TDADataTable); override; @@ -331,7 +341,7 @@ type { IPresupuestos } IPresupuestos = interface(IDAStronglyTypedDataTable) - ['{3B57E67A-BCF1-4A9C-8DE3-680F3FC7E851}'] + ['{5659F9B7-0F5E-44BF-952F-BE0220081554}'] { Property getters and setters } function GetCODIGOEMPRESAValue: Integer; procedure SetCODIGOEMPRESAValue(const aValue: Integer); @@ -498,7 +508,7 @@ type { IPresupuestos_RefreshDataset } IPresupuestos_RefreshDataset = interface(IDAStronglyTypedDataTable) - ['{5097F042-BB92-4714-98E3-38D672728B8B}'] + ['{0A043DC9-EC36-49B8-B7E6-1A2CE247027F}'] { Property getters and setters } function GetCODIGOValue: Integer; procedure SetCODIGOValue(const aValue: Integer); @@ -551,7 +561,7 @@ type { IInformeCabeceraPresupuesto } IInformeCabeceraPresupuesto = interface(IDAStronglyTypedDataTable) - ['{68F7F7E4-616C-464B-A795-E4ACAFC2D708}'] + ['{7012F18F-7444-4649-9305-16548ABC900B}'] { Property getters and setters } function GetCODIGOEMPRESAValue: Integer; procedure SetCODIGOEMPRESAValue(const aValue: Integer); @@ -766,7 +776,7 @@ type { IInformeDetallesPresupuesto } IInformeDetallesPresupuesto = interface(IDAStronglyTypedDataTable) - ['{25CACDCE-E4DB-42FC-B0B8-78493C06240D}'] + ['{29DE425C-3C96-4736-9574-FFA7D8A279AB}'] { Property getters and setters } function GetCODIGOPRESUPUESTOValue: Integer; procedure SetCODIGOPRESUPUESTOValue(const aValue: Integer); @@ -784,6 +794,8 @@ type procedure SetTIPOValue(const aValue: String); function GetPOSICIONValue: Integer; procedure SetPOSICIONValue(const aValue: Integer); + function GetVALORADOValue: String; + procedure SetVALORADOValue(const aValue: String); { Properties } @@ -795,6 +807,7 @@ type property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property VALORADO: String read GetVALORADOValue write SetVALORADOValue; end; { TInformeDetallesPresupuestoDataTableRules } @@ -818,6 +831,8 @@ type procedure SetTIPOValue(const aValue: String); virtual; function GetPOSICIONValue: Integer; virtual; procedure SetPOSICIONValue(const aValue: Integer); virtual; + function GetVALORADOValue: String; virtual; + procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOPRESUPUESTO: Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue; @@ -828,6 +843,7 @@ type property IMPORTETOTAL: Currency read GetIMPORTETOTALValue write SetIMPORTETOTALValue; property TIPO: String read GetTIPOValue write SetTIPOValue; property POSICION: Integer read GetPOSICIONValue write SetPOSICIONValue; + property VALORADO: String read GetVALORADOValue write SetVALORADOValue; public constructor Create(aDataTable: TDADataTable); override; @@ -982,6 +998,16 @@ begin DataTable.Fields[idx_DetallesPresupuestosIMPORTEPUNTOS].AsCurrency := aValue; end; +function TDetallesPresupuestosDataTableRules.GetVALORADOValue: String; +begin + result := DataTable.Fields[idx_DetallesPresupuestosVALORADO].AsString; +end; + +procedure TDetallesPresupuestosDataTableRules.SetVALORADOValue(const aValue: String); +begin + DataTable.Fields[idx_DetallesPresupuestosVALORADO].AsString := aValue; +end; + { TPresupuestosDataTableRules } constructor TPresupuestosDataTableRules.Create(aDataTable: TDADataTable); @@ -1726,6 +1752,16 @@ begin DataTable.Fields[idx_InformeDetallesPresupuestoPOSICION].AsInteger := aValue; end; +function TInformeDetallesPresupuestoDataTableRules.GetVALORADOValue: String; +begin + result := DataTable.Fields[idx_InformeDetallesPresupuestoVALORADO].AsString; +end; + +procedure TInformeDetallesPresupuestoDataTableRules.SetVALORADOValue(const aValue: String); +begin + DataTable.Fields[idx_InformeDetallesPresupuestoVALORADO].AsString := aValue; +end; + initialization RegisterDataTableRules(RID_ListaAnosPresupuestos, TListaAnosPresupuestosDataTableRules); diff --git a/Modulos/Presupuestos/Reglas/schPresupuestosServer_Intf.pas b/Modulos/Presupuestos/Reglas/schPresupuestosServer_Intf.pas index 67892f0..d2d24f0 100644 --- a/Modulos/Presupuestos/Reglas/schPresupuestosServer_Intf.pas +++ b/Modulos/Presupuestos/Reglas/schPresupuestosServer_Intf.pas @@ -9,17 +9,17 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_ListaAnosPresupuestosDelta = '{CBA70605-3C3B-48A1-A28C-B1E97902006E}'; - RID_DetallesPresupuestosDelta = '{A06F07C8-8609-4E0C-A202-CDFD98C02B75}'; - RID_PresupuestosDelta = '{475CF11F-7C34-4390-B427-291574D72D01}'; - RID_Presupuestos_RefreshDatasetDelta = '{7B057008-D651-4A1C-B4B7-08C7C4A566F9}'; - RID_InformeCabeceraPresupuestoDelta = '{749B0EED-D424-4553-BE62-F24B9EE4B0DE}'; - RID_InformeDetallesPresupuestoDelta = '{322F58BC-E445-4DF9-9BFB-86086B38356B}'; + RID_ListaAnosPresupuestosDelta = '{8D976F59-15D9-43F4-80BA-D2521FD3E7B3}'; + RID_DetallesPresupuestosDelta = '{4D049889-6828-4AC0-A146-65C6C3CABA37}'; + RID_PresupuestosDelta = '{28799865-76E0-4A02-BBA9-47E008A6CB54}'; + RID_Presupuestos_RefreshDatasetDelta = '{529CF287-BF4A-4985-B6C6-483744890AF4}'; + RID_InformeCabeceraPresupuestoDelta = '{75FB8BC9-9CEB-4C14-AB18-B0439CB4609C}'; + RID_InformeDetallesPresupuestoDelta = '{71D7C955-A039-4F4B-BBC9-E805CB0DE329}'; type { IListaAnosPresupuestosDelta } IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) - ['{CBA70605-3C3B-48A1-A28C-B1E97902006E}'] + ['{8D976F59-15D9-43F4-80BA-D2521FD3E7B3}'] { Property getters and setters } function GetOldANOValue : String; @@ -48,7 +48,7 @@ type { IDetallesPresupuestosDelta } IDetallesPresupuestosDelta = interface(IDetallesPresupuestos) - ['{A06F07C8-8609-4E0C-A202-CDFD98C02B75}'] + ['{4D049889-6828-4AC0-A146-65C6C3CABA37}'] { Property getters and setters } function GetOldCODIGOPRESUPUESTOValue : Integer; function GetOldNUMCONCEPTOValue : Integer; @@ -61,6 +61,7 @@ type function GetOldVISIBLEValue : String; function GetOldPUNTOSValue : Integer; function GetOldIMPORTEPUNTOSValue : Currency; + function GetOldVALORADOValue : String; { Properties } property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue; @@ -74,6 +75,7 @@ type property OldVISIBLE : String read GetOldVISIBLEValue; property OldPUNTOS : Integer read GetOldPUNTOSValue; property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue; + property OldVALORADO : String read GetOldVALORADOValue; end; { TDetallesPresupuestosBusinessProcessorRules } @@ -114,6 +116,9 @@ type function GetIMPORTEPUNTOSValue: Currency; virtual; function GetOldIMPORTEPUNTOSValue: Currency; virtual; procedure SetIMPORTEPUNTOSValue(const aValue: Currency); virtual; + function GetVALORADOValue: String; virtual; + function GetOldVALORADOValue: String; virtual; + procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOPRESUPUESTO : Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue; @@ -138,6 +143,8 @@ type property OldPUNTOS : Integer read GetOldPUNTOSValue; property IMPORTEPUNTOS : Currency read GetIMPORTEPUNTOSValue write SetIMPORTEPUNTOSValue; property OldIMPORTEPUNTOS : Currency read GetOldIMPORTEPUNTOSValue; + property VALORADO : String read GetVALORADOValue write SetVALORADOValue; + property OldVALORADO : String read GetOldVALORADOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -147,7 +154,7 @@ type { IPresupuestosDelta } IPresupuestosDelta = interface(IPresupuestos) - ['{475CF11F-7C34-4390-B427-291574D72D01}'] + ['{28799865-76E0-4A02-BBA9-47E008A6CB54}'] { Property getters and setters } function GetOldCODIGOEMPRESAValue : Integer; function GetOldCODIGOValue : Integer; @@ -337,7 +344,7 @@ type { IPresupuestos_RefreshDatasetDelta } IPresupuestos_RefreshDatasetDelta = interface(IPresupuestos_RefreshDataset) - ['{7B057008-D651-4A1C-B4B7-08C7C4A566F9}'] + ['{529CF287-BF4A-4985-B6C6-483744890AF4}'] { Property getters and setters } function GetOldCODIGOValue : Integer; function GetOldNOMBREValue : String; @@ -394,7 +401,7 @@ type { IInformeCabeceraPresupuestoDelta } IInformeCabeceraPresupuestoDelta = interface(IInformeCabeceraPresupuesto) - ['{749B0EED-D424-4553-BE62-F24B9EE4B0DE}'] + ['{75FB8BC9-9CEB-4C14-AB18-B0439CB4609C}'] { Property getters and setters } function GetOldCODIGOEMPRESAValue : Integer; function GetOldCODIGOValue : Integer; @@ -640,7 +647,7 @@ type { IInformeDetallesPresupuestoDelta } IInformeDetallesPresupuestoDelta = interface(IInformeDetallesPresupuesto) - ['{322F58BC-E445-4DF9-9BFB-86086B38356B}'] + ['{71D7C955-A039-4F4B-BBC9-E805CB0DE329}'] { Property getters and setters } function GetOldCODIGOPRESUPUESTOValue : Integer; function GetOldNUMCONCEPTOValue : Integer; @@ -650,6 +657,7 @@ type function GetOldIMPORTETOTALValue : Currency; function GetOldTIPOValue : String; function GetOldPOSICIONValue : Integer; + function GetOldVALORADOValue : String; { Properties } property OldCODIGOPRESUPUESTO : Integer read GetOldCODIGOPRESUPUESTOValue; @@ -660,6 +668,7 @@ type property OldIMPORTETOTAL : Currency read GetOldIMPORTETOTALValue; property OldTIPO : String read GetOldTIPOValue; property OldPOSICION : Integer read GetOldPOSICIONValue; + property OldVALORADO : String read GetOldVALORADOValue; end; { TInformeDetallesPresupuestoBusinessProcessorRules } @@ -691,6 +700,9 @@ type function GetPOSICIONValue: Integer; virtual; function GetOldPOSICIONValue: Integer; virtual; procedure SetPOSICIONValue(const aValue: Integer); virtual; + function GetVALORADOValue: String; virtual; + function GetOldVALORADOValue: String; virtual; + procedure SetVALORADOValue(const aValue: String); virtual; { Properties } property CODIGOPRESUPUESTO : Integer read GetCODIGOPRESUPUESTOValue write SetCODIGOPRESUPUESTOValue; @@ -709,6 +721,8 @@ type property OldTIPO : String read GetOldTIPOValue; property POSICION : Integer read GetPOSICIONValue write SetPOSICIONValue; property OldPOSICION : Integer read GetOldPOSICIONValue; + property VALORADO : String read GetVALORADOValue write SetVALORADOValue; + property OldVALORADO : String read GetOldVALORADOValue; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -924,6 +938,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosIMPORTEPUNTOS] := aValue; end; +function TDetallesPresupuestosBusinessProcessorRules.GetVALORADOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosVALORADO]; +end; + +function TDetallesPresupuestosBusinessProcessorRules.GetOldVALORADOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_DetallesPresupuestosVALORADO]; +end; + +procedure TDetallesPresupuestosBusinessProcessorRules.SetVALORADOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_DetallesPresupuestosVALORADO] := aValue; +end; + { TPresupuestosBusinessProcessorRules } constructor TPresupuestosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -2019,6 +2048,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoPOSICION] := aValue; end; +function TInformeDetallesPresupuestoBusinessProcessorRules.GetVALORADOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoVALORADO]; +end; + +function TInformeDetallesPresupuestoBusinessProcessorRules.GetOldVALORADOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_InformeDetallesPresupuestoVALORADO]; +end; + +procedure TInformeDetallesPresupuestoBusinessProcessorRules.SetVALORADOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_InformeDetallesPresupuestoVALORADO] := aValue; +end; + initialization RegisterBusinessProcessorRules(RID_ListaAnosPresupuestosDelta, TListaAnosPresupuestosBusinessProcessorRules); diff --git a/Modulos/Presupuestos/Reglas/uBizPresupuestosCliente.pas b/Modulos/Presupuestos/Reglas/uBizPresupuestosCliente.pas index a53d868..e1f2eba 100644 --- a/Modulos/Presupuestos/Reglas/uBizPresupuestosCliente.pas +++ b/Modulos/Presupuestos/Reglas/uBizPresupuestosCliente.pas @@ -51,6 +51,7 @@ type IBizImportesDetalle, IBizPuntosDetalle, IBizVisibleDetalle, + IBizValoradoDetalle, IParche) // PARCHE *********************** private FIsAppend : Boolean; @@ -396,6 +397,7 @@ begin PUNTOS := ADetallesPresupuesto.PUNTOS; IMPORTEPUNTOS := ADetallesPresupuesto.IMPORTEPUNTOS; VISIBLE := ADetallesPresupuesto.VISIBLE; + VALORADO := ADetallesPresupuesto.VALORADO; finally DataTable.EnableEventHandlers; end; @@ -435,7 +437,7 @@ begin NUMCONCEPTO := -1; TIPO := TIPODETALLE_CONCEPTO; VISIBLE := VISIBLE_TRUE; - + VALORADO := VALORADO_TRUE; Self.DataTable.DisableEventHandlers; try diff --git a/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm b/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm index 3228159..ed2b7e6 100644 --- a/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm +++ b/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.dfm @@ -64,8 +64,9 @@ object srvPresupuestos: TsrvPresupuestos SQL = 'SELECT '#10' CODIGOPRESUPUESTO, NUMCONCEPTO, DESCRIPCION, CANTIDA' + 'D, '#10' IMPORTEUNIDAD, IMPORTETOTAL, TIPO, POSICION, VISIBLE,'#10' ' + - ' PUNTOS, IMPORTEPUNTOS'#10' FROM'#10' DETALLESPRESUPUESTOS'#10' WHERE ' + - 'CODIGOPRESUPUESTO = :CODIGOPRESUPUESTO'#10' ORDER BY POSICION' + ' PUNTOS, IMPORTEPUNTOS, VALORADO'#10' FROM'#10' DETALLESPRESUPUESTO' + + 'S'#10' WHERE CODIGOPRESUPUESTO = :CODIGOPRESUPUESTO'#10' ORDER BY POSI' + + 'CION' StatementType = stSQL ColumnMappings = < item @@ -111,6 +112,10 @@ object srvPresupuestos: TsrvPresupuestos item DatasetField = 'IMPORTEPUNTOS' TableField = 'IMPORTEPUNTOS' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'DetallesPresupuestos' @@ -228,6 +233,17 @@ object srvPresupuestos: TsrvPresupuestos Calculated = False Lookup = False LookupCache = False + end + item + Name = 'VALORADO' + DataType = datString + Size = 1 + BlobType = dabtUnknown + DictionaryEntry = 'DetallesPresupuestos_VALORADO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript @@ -1249,9 +1265,9 @@ object srvPresupuestos: TsrvPresupuestos TargetTable = 'DETALLESPRESUPUESTOS' SQL = 'SELECT '#10' CODIGOPRESUPUESTO, NUMCONCEPTO, DESCRIPCION, CANTIDA' + - 'D, '#10' IMPORTEUNIDAD, IMPORTETOTAL, TIPO, POSICION'#10' FROM'#10' D' + - 'ETALLESPRESUPUESTOS'#10' WHERE CODIGOPRESUPUESTO = :CODIGOPRESUPUES' + - 'TO'#10' AND VISIBLE = '#39'S'#39#10' ORDER BY POSICION' + 'D, '#10' IMPORTEUNIDAD, IMPORTETOTAL, TIPO, POSICION, VALORADO'#10' ' + + 'FROM'#10' DETALLESPRESUPUESTOS'#10' WHERE CODIGOPRESUPUESTO = :CODIG' + + 'OPRESUPUESTO'#10' AND VISIBLE = '#39'S'#39#10' ORDER BY POSICION' StatementType = stSQL ColumnMappings = < item @@ -1285,6 +1301,10 @@ object srvPresupuestos: TsrvPresupuestos item DatasetField = 'POSICION' TableField = 'POSICION' + end + item + DatasetField = 'VALORADO' + TableField = 'VALORADO' end> end> Name = 'InformeDetallesPresupuesto' @@ -1371,6 +1391,18 @@ object srvPresupuestos: TsrvPresupuestos Calculated = False Lookup = False LookupCache = False + end + item + Name = 'VALORADO' + DataType = datString + Size = 1 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript @@ -1821,14 +1853,26 @@ object srvPresupuestos: TsrvPresupuestos ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.Description.Strings = ( 'Demonstrates how to create simple list report.') - ReportOptions.LastChange = 39153.814578263890000000 + ReportOptions.LastChange = 40251.793684884260000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' ReportOptions.VersionRelease = '1' ScriptLanguage = 'PascalScript' ScriptText.Strings = ( - 'procedure Band4OnBeforePrint(Sender: TfrxComponent);' + 'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' DatosCliente.Lines.Clear;' + ' DatosCliente.Lines.Add();' + '' + ' if ( <> '#39#39')' + ' or ( <> '#39#39') then' + + ' DatosCliente.Lines.Add( + );' + 'end;' + '' + 'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);' 'begin' ' case of' ' '#39'C'#39': begin' @@ -1850,67 +1894,66 @@ object srvPresupuestos: TsrvPresupuestos ' MemoCampo4.Style := '#39'Concepto titulo'#39';' ' end;' ' end;' - '' - ' MemoCampo12.Height := 0;' - ' MemoCampo2.Height := 0;' - ' MemoCampo3.Height := 0;' - ' MemoCampo4.Height := 0;' 'end;' '' 'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);' 'begin' - ' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSum' + - 'mary1.Height - 1;' + '// Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportS' + + 'ummary1.Height + 20;' 'end;' '' - 'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);' - 'var' - ' cadenaAux: String;' + 'procedure Band3OnBeforePrint(Sender: TfrxComponent);' 'begin' - ' DatosCliente.Lines.Clear;' - ' DatosCliente.Lines.Add();' '' - ' if ( <> '#39#39')' - ' or ( <> '#39#39') then' - - ' DatosCliente.Lines.Add( + );' - '' - ' CadenaAux := '#39#39';' - ' if <> '#39#39' then' - ' if CadenaAux = '#39#39' then' - - ' CadenaAux := CadenaAux + '#39'Telf:'#39' + ' - ' else' - - ' CadenaAux := CadenaAux + '#39' / '#39' + ;' - '' - ' if <> '#39#39' then' - ' if CadenaAux = '#39#39' then' - - ' CadenaAux := CadenaAux + '#39'Telf:'#39' + ' - ' else' - - ' CadenaAux := CadenaAux + '#39' / '#39' + ;' - '' - ' if <> '#39#39' then' - ' if CadenaAux = '#39#39' then' - - ' CadenaAux := CadenaAux + '#39'Telf:'#39' + ' - ' else' - - ' CadenaAux := CadenaAux + '#39' / '#39' + ' + - ';' - '' - ' DatosCliente.Lines.Add(CadenaAux);' + ' if ( = ) then' + ' begin' + ' shape6.Visible := True;' + ' memo14.Visible := True;' + ' memo35.Visible := True;' + ' memo36.Visible := True;' + ' memo37.Visible := True;' + ' memo38.Visible := True;' + ' memo39.Visible := True;' + ' memo40.Visible := True;' + ' memo41.Visible := True;' + ' memo42.Visible := True;' + ' memo43.Visible := True;' + ' memo44.Visible := True;' + ' memo45.Visible := True;' + ' end' + ' else' + ' begin' + ' shape6.Visible := False;' + ' shape6.Visible := False;' + ' memo14.Visible := False;' + ' memo35.Visible := False;' + ' memo36.Visible := False;' + ' memo37.Visible := False;' + ' memo38.Visible := False;' + ' memo39.Visible := False;' + ' memo40.Visible := False;' + ' memo41.Visible := False;' + ' memo42.Visible := False;' + ' memo43.Visible := False;' + ' memo44.Visible := False;' + ' memo45.Visible := False;' + ' end;' 'end;' '' + 'procedure MemoCampo3OnBeforePrint(Sender: TfrxComponent);' + 'begin' + ' case of' + ' '#39'S'#39': begin' + ' MemoCampo3.Visible := True;' + ' MemoCampo4.Visible := True;' + ' end;' + ' '#39'N'#39': begin' + ' MemoCampo3.Visible := False;' + ' MemoCampo4.Visible := False;' + ' end;' + ' end;' + 'end;' '' 'begin' '' diff --git a/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas b/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas index 4ff7847..478eb54 100644 --- a/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas +++ b/Modulos/Presupuestos/Servidor/srvPresupuestos_Impl.pas @@ -30,8 +30,8 @@ type tbl_Presupuesto: TDACDSDataTable; tbl_DetallesPresupuesto: TDACDSDataTable; DABINAdapter: TDABINAdapter; - frxReport1: TfrxReport; schPresupuestos: TDASchema; + frxReport1: TfrxReport; procedure DARemoteServiceActivate(const aClientID: TGUID; aSession: TROSession; const aMessage: IROMessage); private diff --git a/Modulos/Presupuestos_/Cliente/uDataModulePresupuestos.pas b/Modulos/Presupuestos_/Cliente/uDataModulePresupuestos.pas index 30764f7..749ac62 100644 --- a/Modulos/Presupuestos_/Cliente/uDataModulePresupuestos.pas +++ b/Modulos/Presupuestos_/Cliente/uDataModulePresupuestos.pas @@ -83,6 +83,7 @@ begin FieldByName(fld_DetallesPresupuestosIMPORTEPUNTOS).BusinessRulesID := 'Client.Field.ImportePuntos'; FieldByName(fld_DetallesPresupuestosVISIBLE).BusinessRulesID := 'Client.Field.Visible'; + FieldByName(fld_DetallesPresupuestosVALORADO).BusinessRulesID := 'Client.Field.Valorado'; end; (dtPresupuestos as IBizPresupuestos).Detalles := (dtDetalles as IBizDetallesPresupuesto); diff --git a/Modulos/Presupuestos_/Cliente/uViewDetallesPresupuesto.dfm b/Modulos/Presupuestos_/Cliente/uViewDetallesPresupuesto.dfm index f6cf56f..0f527d6 100644 --- a/Modulos/Presupuestos_/Cliente/uViewDetallesPresupuesto.dfm +++ b/Modulos/Presupuestos_/Cliente/uViewDetallesPresupuesto.dfm @@ -36,6 +36,9 @@ inherited frViewDetallesPresupuesto: TfrViewDetallesPresupuesto Styles.OnGetContentStyle = cxGridViewVISIBLEStylesGetContentStyle Width = 21 end + inherited cxGridViewVALORADO: TcxGridDBColumn + Styles.OnGetContentStyle = cxGridViewVALORADOStylesGetContentStyle + end end end inherited cxStyleRepository1: TcxStyleRepository diff --git a/Modulos/Presupuestos_/Cliente/uViewDetallesPresupuesto.pas b/Modulos/Presupuestos_/Cliente/uViewDetallesPresupuesto.pas index c8fd2df..2315510 100644 --- a/Modulos/Presupuestos_/Cliente/uViewDetallesPresupuesto.pas +++ b/Modulos/Presupuestos_/Cliente/uViewDetallesPresupuesto.pas @@ -25,6 +25,9 @@ type procedure cxGridViewVISIBLEStylesGetContentStyle( Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); + procedure cxGridViewVALORADOStylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); private { Private declarations } public @@ -95,4 +98,22 @@ begin end; end; +procedure TfrViewDetallesPresupuesto.cxGridViewVALORADOStylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); +var + IndiceCol : Integer; + ATipo : String; +begin + if Assigned(ARecord) then + begin + IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index; + ATipo := VarToStr(ARecord.Values[IndiceCol]); + if ATipo = TIPODETALLE_SUBTOTAL then + AStyle := cxStyle_SUBTOTAL; + if ATipo = TIPODETALLE_TITULO then + AStyle := cxStyle_TITULO; + end; +end; + end. diff --git a/Modulos/Presupuestos_/Reglas/uBizPresupuestosCliente.pas b/Modulos/Presupuestos_/Reglas/uBizPresupuestosCliente.pas index 6b331a5..f0bdf59 100644 --- a/Modulos/Presupuestos_/Reglas/uBizPresupuestosCliente.pas +++ b/Modulos/Presupuestos_/Reglas/uBizPresupuestosCliente.pas @@ -46,6 +46,7 @@ type IBizImportesDetalle, IBizPuntosDetalle, IBizVisibleDetalle, + IBizValoradoDetalle, IParche) // PARCHE *********************** private FIsAppend : Boolean; @@ -390,6 +391,7 @@ begin PUNTOS := ADetallesPresupuesto.PUNTOS; IMPORTEPUNTOS := ADetallesPresupuesto.IMPORTEPUNTOS; VISIBLE := ADetallesPresupuesto.VISIBLE; + VALORADO := ADetallesPresupuesto.VALORADO; finally DataTable.EnableEventHandlers; end; @@ -429,7 +431,7 @@ begin NUMCONCEPTO := -1; TIPO := TIPODETALLE_CONCEPTO; VISIBLE := VISIBLE_TRUE; - + VALORADO := VALORADO_TRUE; Self.DataTable.DisableEventHandlers; try diff --git a/Output/Servidor/Informes/InfAlbaran.fr3 b/Output/Servidor/Informes/InfAlbaran.fr3 index fef5017..70831db 100644 --- a/Output/Servidor/Informes/InfAlbaran.fr3 +++ b/Output/Servidor/Informes/InfAlbaran.fr3 @@ -1,5 +1,5 @@ - + @@ -44,7 +44,7 @@ - + diff --git a/Output/Servidor/Informes/InfFacturaCliente.fr3 b/Output/Servidor/Informes/InfFacturaCliente.fr3 index d5b2687..29fe20d 100644 --- a/Output/Servidor/Informes/InfFacturaCliente.fr3 +++ b/Output/Servidor/Informes/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -53,7 +53,7 @@ - + diff --git a/Output/Servidor/Informes/InfPresupuesto.fr3 b/Output/Servidor/Informes/InfPresupuesto.fr3 index b981805..19ddf86 100644 --- a/Output/Servidor/Informes/InfPresupuesto.fr3 +++ b/Output/Servidor/Informes/InfPresupuesto.fr3 @@ -1,5 +1,5 @@ - + @@ -49,7 +49,7 @@ - + diff --git a/SCRIPT.SQL b/SCRIPT.SQL index e69de29..2e3b360 100644 --- a/SCRIPT.SQL +++ b/SCRIPT.SQL @@ -0,0 +1,23 @@ +ALTER TABLE DETALLESPRESUPUESTOS +ADD VALORADO CHAR(1) CHARACTER SET ISO8859_1 +NOT NULL +COLLATE ISO8859_1; + +UPDATE DETALLESPRESUPUESTOS +SET VALORADO = 'S'; + +ALTER TABLE DETALLESALBARANPAGO +ADD VALORADO CHAR(1) CHARACTER SET ISO8859_1 +NOT NULL +COLLATE ISO8859_1; + +UPDATE DETALLESALBARANPAGO +SET VALORADO = 'S'; + +ALTER TABLE DETALLESFACTURASCLIENTE +ADD VALORADO CHAR(1) CHARACTER SET ISO8859_1 +NOT NULL +COLLATE ISO8859_1; + +UPDATE DETALLESFACTURASCLIENTE +SET VALORADO = 'S'; diff --git a/Servidor/FactuGES_Server.drc b/Servidor/FactuGES_Server.drc index a81d7c4..4c1ff2f 100644 --- a/Servidor/FactuGES_Server.drc +++ b/Servidor/FactuGES_Server.drc @@ -8,3 +8,2313 @@ resources were bound to the produced executable. */ +#define TeeConst_TeeMsg_ValuesArrowEndY 64368 +#define TeeConst_TeeMsg_DefaultFontName 64384 +#define TeeConst_TeeMsg_CheckPointerSize 64385 +#define TeeConst_TeeMsg_FunctionPeriod 64386 +#define TeeConst_TeeMsg_PieOther 64387 +#define TeeConst_TeeMsg_ShapeGallery1 64388 +#define TeeConst_TeeMsg_ShapeGallery2 64389 +#define TeeConst_TeeMsg_ValuesX 64390 +#define TeeConst_TeeMsg_ValuesY 64391 +#define TeeConst_TeeMsg_ValuesPie 64392 +#define TeeConst_TeeMsg_ValuesBar 64393 +#define TeeConst_TeeMsg_ValuesAngle 64394 +#define TeeConst_TeeMsg_ValuesGanttStart 64395 +#define TeeConst_TeeMsg_ValuesGanttEnd 64396 +#define TeeConst_TeeMsg_ValuesGanttNextTask 64397 +#define TeeConst_TeeMsg_ValuesBubbleRadius 64398 +#define TeeConst_TeeMsg_ValuesArrowEndX 64399 +#define TeeConst_TeeMsg_GanttSample6 64400 +#define TeeConst_TeeMsg_GanttSample7 64401 +#define TeeConst_TeeMsg_GanttSample8 64402 +#define TeeConst_TeeMsg_GanttSample9 64403 +#define TeeConst_TeeMsg_GanttSample10 64404 +#define TeeConst_TeeMsg_DefaultFontSize 64405 +#define TeeConst_TeeMsg_DefaultGalleryFontSize 64406 +#define TeeConst_TeeMsg_FunctionAdd 64407 +#define TeeConst_TeeMsg_FunctionSubtract 64408 +#define TeeConst_TeeMsg_FunctionMultiply 64409 +#define TeeConst_TeeMsg_FunctionDivide 64410 +#define TeeConst_TeeMsg_FunctionHigh 64411 +#define TeeConst_TeeMsg_FunctionLow 64412 +#define TeeConst_TeeMsg_FunctionAverage 64413 +#define TeeConst_TeeMsg_GalleryShape 64414 +#define TeeConst_TeeMsg_GalleryBubble 64415 +#define TeeConst_TeeMsg_PieSample3 64416 +#define TeeConst_TeeMsg_PieSample4 64417 +#define TeeConst_TeeMsg_PieSample5 64418 +#define TeeConst_TeeMsg_PieSample6 64419 +#define TeeConst_TeeMsg_PieSample7 64420 +#define TeeConst_TeeMsg_PieSample8 64421 +#define TeeConst_TeeMsg_GalleryChartName 64422 +#define TeeConst_TeeMsg_GalleryStandard 64423 +#define TeeConst_TeeMsg_GalleryFunctions 64424 +#define TeeConst_TeeMsg_GalleryArrow 64425 +#define TeeConst_TeeMsg_GalleryGantt 64426 +#define TeeConst_TeeMsg_GanttSample1 64427 +#define TeeConst_TeeMsg_GanttSample2 64428 +#define TeeConst_TeeMsg_GanttSample3 64429 +#define TeeConst_TeeMsg_GanttSample4 64430 +#define TeeConst_TeeMsg_GanttSample5 64431 +#define TeeConst_TeeMsg_BarOffsetPercent 64432 +#define TeeConst_TeeMsg_DefaultPercentOf 64433 +#define TeeConst_TeeMsg_DefPercentFormat 64434 +#define TeeConst_TeeMsg_DefValueFormat 64435 +#define TeeConst_TeeMsg_AxisTitle 64436 +#define TeeConst_TeeMsg_AxisLabels 64437 +#define TeeConst_TeeMsg_GalleryLine 64438 +#define TeeConst_TeeMsg_GalleryPoint 64439 +#define TeeConst_TeeMsg_GalleryArea 64440 +#define TeeConst_TeeMsg_GalleryBar 64441 +#define TeeConst_TeeMsg_GalleryHorizBar 64442 +#define TeeConst_TeeMsg_GalleryPie 64443 +#define TeeConst_TeeMsg_GalleryFastLine 64444 +#define TeeConst_TeeMsg_Rotation 64445 +#define TeeConst_TeeMsg_PieSample1 64446 +#define TeeConst_TeeMsg_PieSample2 64447 +#define TeeConst_TeeMsg_LegendColorWidth 64448 +#define TeeConst_TeeMsg_SeriesSetDataSource 64449 +#define TeeConst_TeeMsg_SeriesInvDataSource 64450 +#define TeeConst_TeeMsg_FillSample 64451 +#define TeeConst_TeeMsg_Angle 64452 +#define TeeConst_TeeMsg_AxisLogDateTime 64453 +#define TeeConst_TeeMsg_AxisLogNotPositive 64454 +#define TeeConst_TeeMsg_AxisLabelSep 64455 +#define TeeConst_TeeMsg_AxisIncrementNeg 64456 +#define TeeConst_TeeMsg_AxisMinMax 64457 +#define TeeConst_TeeMsg_AxisMaxMin 64458 +#define TeeConst_TeeMsg_AxisLogBase 64459 +#define TeeConst_TeeMsg_MaxPointsPerPage 64460 +#define TeeConst_TeeMsg_3dPercent 64461 +#define TeeConst_TeeMsg_CircularSeries 64462 +#define TeeConst_TeeMsg_BarWidthPercent 64463 +#define MidConst_SFieldConstFail 64464 +#define MidConst_SDefExprFail 64465 +#define MidConst_SNoEditsAllowed 64466 +#define MidConst_SNoDeletesAllowed 64467 +#define MidConst_SNoInsertsAllowed 64468 +#define MidConst_SConnectionMissing 64469 +#define MidConst_SNoCircularConnection 64470 +#define OleConst_SLinkProperties 64471 +#define OleConst_SInvalidLinkSource 64472 +#define OleConst_SCannotBreakLink 64473 +#define OleConst_SEmptyContainer 64474 +#define OleConst_SInvalidVerb 64475 +#define OleConst_SPropDlgCaption 64476 +#define OleConst_SInvalidStreamFormat 64477 +#define TeeConst_TeeMsg_LegendTopPos 64478 +#define TeeConst_TeeMsg_LegendFirstValue 64479 +#define VDBConsts_SCancelEdit 64480 +#define VDBConsts_SRefreshRecord 64481 +#define VDBConsts_SDataSourceFixed 64482 +#define VDBConsts_SPropDefByLookup 64483 +#define VDBConsts_SRemoteLogin 64484 +#define MidConst_SNoDataProvider 64485 +#define MidConst_SInvalidDataPacket 64486 +#define MidConst_SRefreshError 64487 +#define MidConst_SNoCircularReference 64488 +#define MidConst_SErrorLoadingMidas 64489 +#define MidConst_SCannotCreateDataSet 64490 +#define MidConst_SNoConnectToBroker 64491 +#define MidConst_SNoParentConnection 64492 +#define MidConst_SConstraintFailed 64493 +#define MidConst_SField 64494 +#define MidConst_SRecConstFail 64495 +#define cxEditConsts_scxRegExprMissing 64496 +#define cxEditConsts_scxRegExprUnnecessary 64497 +#define cxEditConsts_scxRegExprIncorrectSpace 64498 +#define cxEditConsts_scxRegExprNotCompiled 64499 +#define cxEditConsts_scxRegExprIncorrectParameterQuantifier 64500 +#define cxEditConsts_scxRegExprCantUseParameterQuantifier 64501 +#define cxEditConsts_scxMaskEditRegExprError 64502 +#define cxEditConsts_scxMaskEditInvalidEditValue 64503 +#define VDBConsts_SFirstRecord 64504 +#define VDBConsts_SPriorRecord 64505 +#define VDBConsts_SNextRecord 64506 +#define VDBConsts_SLastRecord 64507 +#define VDBConsts_SInsertRecord 64508 +#define VDBConsts_SDeleteRecord 64509 +#define VDBConsts_SEditRecord 64510 +#define VDBConsts_SPostEdit 64511 +#define cxEditConsts_scxRegExprLine 64512 +#define cxEditConsts_scxRegExprChar 64513 +#define cxEditConsts_scxRegExprNotAssignedSourceStream 64514 +#define cxEditConsts_scxRegExprEmptySourceStream 64515 +#define cxEditConsts_scxRegExprCantUsePlusQuantifier 64516 +#define cxEditConsts_scxRegExprCantUseStarQuantifier 64517 +#define cxEditConsts_scxRegExprCantCreateEmptyAlt 64518 +#define cxEditConsts_scxRegExprCantCreateEmptyBlock 64519 +#define cxEditConsts_scxRegExprIllegalSymbol 64520 +#define cxEditConsts_scxRegExprIllegalQuantifier 64521 +#define cxEditConsts_scxRegExprIllegalIntegerValue 64522 +#define cxEditConsts_scxRegExprTooBigReferenceNumber 64523 +#define cxEditConsts_scxRegExprCantCreateEmptyEnum 64524 +#define cxEditConsts_scxRegExprSubrangeOrder 64525 +#define cxEditConsts_scxRegExprHexNumberExpected0 64526 +#define cxEditConsts_scxRegExprHexNumberExpected 64527 +#define cxEditConsts_cxSDateThursday 64528 +#define cxEditConsts_cxSDateFriday 64529 +#define cxEditConsts_cxSDateSaturday 64530 +#define cxEditConsts_cxSDateFirst 64531 +#define cxEditConsts_cxSDateSecond 64532 +#define cxEditConsts_cxSDateThird 64533 +#define cxEditConsts_cxSDateFourth 64534 +#define cxEditConsts_cxSDateFifth 64535 +#define cxEditConsts_cxSDateSixth 64536 +#define cxEditConsts_cxSDateSeventh 64537 +#define cxEditConsts_cxSDateBOM 64538 +#define cxEditConsts_cxSDateEOM 64539 +#define cxEditConsts_cxSDateNow 64540 +#define cxEditConsts_scxSEditRepositoryButtonItem 64541 +#define cxEditConsts_scxSEditRepositoryMaskItem 64542 +#define cxEditConsts_scxSEditRepositoryTextItem 64543 +#define pnglang_EPNGCannotAddInvalidImageText 64544 +#define pnglang_EPNGOutMemoryText 64545 +#define pnglang_EPNGHeaderNotPresentText 64546 +#define cxDataConsts_cxSDataReadError 64547 +#define cxDataConsts_cxSDataWriteError 64548 +#define cxEditConsts_cxSEditInvalidRepositoryItem 64549 +#define cxEditConsts_cxSEditNumericValueConvertError 64550 +#define cxEditConsts_cxSEditValidateErrorText 64551 +#define cxEditConsts_cxSEditValueOutOfBounds 64552 +#define cxEditConsts_cxSDateToday 64553 +#define cxEditConsts_cxSDateYesterday 64554 +#define cxEditConsts_cxSDateTomorrow 64555 +#define cxEditConsts_cxSDateSunday 64556 +#define cxEditConsts_cxSDateMonday 64557 +#define cxEditConsts_cxSDateTuesday 64558 +#define cxEditConsts_cxSDateWednesday 64559 +#define pnglang_EPNGInvalidIHDRText 64560 +#define pnglang_EPNGMissingMultipleIDATText 64561 +#define pnglang_EPNGZLIBErrorText 64562 +#define pnglang_EPNGInvalidPaletteText 64563 +#define pnglang_EPNGInvalidFileHeaderText 64564 +#define pnglang_EPNGIHDRNotFirstText 64565 +#define pnglang_EPNGSizeExceedsText 64566 +#define pnglang_EPNGUnknownPalEntryText 64567 +#define pnglang_EPNGUnknownCriticalChunkText 64568 +#define pnglang_EPNGUnknownCompressionText 64569 +#define pnglang_EPNGUnknownInterlaceText 64570 +#define pnglang_EPNGCannotAssignChunkText 64571 +#define pnglang_EPNGUnexpectedEndText 64572 +#define pnglang_EPNGNoImageDataText 64573 +#define pnglang_EPNGCannotChangeSizeText 64574 +#define pnglang_EPNGCannotAddChunkText 64575 +#define IBXConst_SNoDestinationDirectory 64576 +#define IBXConst_SNosourceDirectory 64577 +#define IBXConst_SNoUninstallFile 64578 +#define IBXConst_SOptionNeedsClient 64579 +#define IBXConst_SOptionNeedsServer 64580 +#define IBXConst_SInvalidOption 64581 +#define IBXConst_SInvalidOnErrorResult 64582 +#define IBXConst_SInvalidOnStatusResult 64583 +#define IBXConst_SDPBConstantUnknownEx 64584 +#define IBXConst_STPBConstantUnknownEx 64585 +#define IBXConst_SUnknownPlan 64586 +#define IBXConst_SFieldSizeMismatch 64587 +#define IBXConst_SEventAlreadyRegistered 64588 +#define IBXConst_SStringTooLarge 64589 +#define IBXConst_SNoTimers 64590 +#define pnglang_EPngInvalidCRCText 64591 +#define IBXConst_SServiceActive 64592 +#define IBXConst_SServiceInActive 64593 +#define IBXConst_SServerNameMissing 64594 +#define IBXConst_SQueryParamsError 64595 +#define IBXConst_SStartParamsError 64596 +#define IBXConst_SOutputParsingError 64597 +#define IBXConst_SUseSpecificProcedures 64598 +#define IBXConst_SSQLMonitorAlreadyPresent 64599 +#define IBXConst_SCantPrintValue 64600 +#define IBXConst_SEOFReached 64601 +#define IBXConst_SEOFInComment 64602 +#define IBXConst_SEOFInString 64603 +#define IBXConst_SParamNameExpected 64604 +#define IBXConst_SSuccess 64605 +#define IBXConst_SDelphiException 64606 +#define IBXConst_SNoOptionsSet 64607 +#define IBXConst_SNoRecordsAffected 64608 +#define IBXConst_SNoTableName 64609 +#define IBXConst_SCannotCreatePrimaryIndex 64610 +#define IBXConst_SCannotDropSystemIndex 64611 +#define IBXConst_STableNameMismatch 64612 +#define IBXConst_SIndexFieldMissing 64613 +#define IBXConst_SInvalidCancellation 64614 +#define IBXConst_SInvalidEvent 64615 +#define IBXConst_SMaximumEvents 64616 +#define IBXConst_SNoEventsRegistered 64617 +#define IBXConst_SInvalidQueueing 64618 +#define IBXConst_SInvalidRegistration 64619 +#define IBXConst_SInvalidBatchMove 64620 +#define IBXConst_SSQLDialectInvalid 64621 +#define IBXConst_SSPBConstantNotSupported 64622 +#define IBXConst_SSPBConstantUnknown 64623 +#define IBXConst_SCannotCreateSharedResource 64624 +#define IBXConst_SWindowsAPIError 64625 +#define IBXConst_SColumnListsDontMatch 64626 +#define IBXConst_SColumnTypesDontMatch 64627 +#define IBXConst_SCantEndSharedTransaction 64628 +#define IBXConst_SFieldUnsupportedType 64629 +#define IBXConst_SCircularDataLink 64630 +#define IBXConst_SEmptySQLStatement 64631 +#define IBXConst_SIsASelectStatement 64632 +#define IBXConst_SRequiredParamNotSet 64633 +#define IBXConst_SNoStoredProcName 64634 +#define IBXConst_SIsAExecuteProcedure 64635 +#define IBXConst_SUpdateFailed 64636 +#define IBXConst_SNotCachedUpdates 64637 +#define IBXConst_SNotLiveRequest 64638 +#define IBXConst_SNoProvider 64639 +#define IBXConst_SEmptyQuery 64640 +#define IBXConst_SCannotOpenNonSQLSelect 64641 +#define IBXConst_SNoFieldAccess 64642 +#define IBXConst_SFieldReadOnly 64643 +#define IBXConst_SFieldNotFound 64644 +#define IBXConst_SNotEditing 64645 +#define IBXConst_SCannotInsert 64646 +#define IBXConst_SCannotPost 64647 +#define IBXConst_SCannotUpdate 64648 +#define IBXConst_SCannotDelete 64649 +#define IBXConst_SCannotRefresh 64650 +#define IBXConst_SBufferNotSet 64651 +#define IBXConst_SCircularReference 64652 +#define IBXConst_SSQLParseError 64653 +#define IBXConst_SUserAbort 64654 +#define IBXConst_SDataSetUniDirectional 64655 +#define IBXConst_SXSQLDAIndexOutOfRange 64656 +#define IBXConst_SXSQLDANameDoesNotExist 64657 +#define IBXConst_SEOF 64658 +#define IBXConst_SBOF 64659 +#define IBXConst_SInvalidStatementHandle 64660 +#define IBXConst_SSQLOpen 64661 +#define IBXConst_SSQLClosed 64662 +#define IBXConst_SDatasetOpen 64663 +#define IBXConst_SDatasetClosed 64664 +#define IBXConst_SUnknownSQLDataType 64665 +#define IBXConst_SInvalidColumnIndex 64666 +#define IBXConst_SInvalidParamColumnIndex 64667 +#define IBXConst_SInvalidDataConversion 64668 +#define IBXConst_SColumnIsNotNullable 64669 +#define IBXConst_SBlobCannotBeRead 64670 +#define IBXConst_SBlobCannotBeWritten 64671 +#define IBXConst_SOperationCancelled 64672 +#define IBXConst_SDPBConstantNotSupported 64673 +#define IBXConst_SDPBConstantUnknown 64674 +#define IBXConst_STPBConstantNotSupported 64675 +#define IBXConst_STPBConstantUnknown 64676 +#define IBXConst_SDatabaseClosed 64677 +#define IBXConst_SDatabaseOpen 64678 +#define IBXConst_SDatabaseNameMissing 64679 +#define IBXConst_SNotInTransaction 64680 +#define IBXConst_SInTransaction 64681 +#define IBXConst_STimeoutNegative 64682 +#define IBXConst_SNoDatabasesInTransaction 64683 +#define IBXConst_SUpdateWrongDB 64684 +#define IBXConst_SUpdateWrongTR 64685 +#define IBXConst_SDatabaseNotAssigned 64686 +#define IBXConst_STransactionNotAssigned 64687 +#define uDARes_err_DARDMInvalidSchema 64688 +#define uDARes_err_DARDMUnassignedAdapter 64689 +#define uDARes_err_DARDMConnectionIsNotAssigned 64690 +#define uDARes_err_DARDMCannotFindProxessorForDelta 64691 +#define uDARes_err_NeedShareMem 64692 +#define uDARes_err_ExecuteSQLCommandNotAllowed 64693 +#define IBXConst_SUnknownError 64694 +#define IBXConst_SInterBaseMissing 64695 +#define IBXConst_SInterBaseInstallMissing 64696 +#define IBXConst_SIB60feature 64697 +#define IBXConst_SNotSupported 64698 +#define IBXConst_SNotPermitted 64699 +#define IBXConst_SFileAccessError 64700 +#define IBXConst_SConnectionTimeout 64701 +#define IBXConst_SCannotSetDatabase 64702 +#define IBXConst_SCannotSetTransaction 64703 +#define uDARes_err_FieldTypeNotSupported 64704 +#define uDARes_err_InvalidDataset 64705 +#define uDARes_err_CannotFindItem 64706 +#define uDARes_err_DriverAlreadyLoaded 64707 +#define uDARes_err_InvalidDLL 64708 +#define uDARes_err_UnknownDriver 64709 +#define uDARes_err_UnknownParameter 64710 +#define uDARes_err_FieldIsNotBound 64711 +#define uDARes_err_CannotFindField 64712 +#define uDARes_err_LoadPackageFailed 64713 +#define uDARes_err_InvalidDriverReference 64714 +#define uDARes_err_CannotFindStatement 64715 +#define uDARes_err_CannotFindDefaultItem 64716 +#define uDARes_err_PoolIsNotEmpty 64717 +#define uDARes_err_MaxPoolSizeReached 64718 +#define uDARes_err_LAMEDataset 64719 +#define DBConsts_SProviderExecuteNotSupported 64720 +#define DBConsts_SExprNoAggOnCalcs 64721 +#define DBConsts_SDataSetUnidirectional 64722 +#define DBConsts_SUnassignedVar 64723 +#define DBConsts_SRecordNotFound 64724 +#define DBConsts_SFieldNameTooLarge 64725 +#define DBConsts_SBcdOverflow 64726 +#define DBConsts_SInvalidBcdValue 64727 +#define DBConsts_SInvalidFormatType 64728 +#define DBConsts_SCouldNotParseTimeStamp 64729 +#define DBConsts_SInvalidSqlTimeStamp 64730 +#define uDARes_err_ChangeLogAlreadyStarted 64731 +#define uDARes_err_NotAttachedToDataTable 64732 +#define uDARes_err_DriverProcAlreadyRegistered 64733 +#define uDARes_err_DriverManagerAlreadyCreated 64734 +#define uDARes_err_DriverManagerNotAssigned 64735 +#define DBConsts_SExprNothing 64736 +#define DBConsts_SExprTypeMis 64737 +#define DBConsts_SExprBadScope 64738 +#define DBConsts_SExprNoArith 64739 +#define DBConsts_SExprNotAgg 64740 +#define DBConsts_SExprBadConst 64741 +#define DBConsts_SExprNoAggFilter 64742 +#define DBConsts_SExprEmptyInList 64743 +#define DBConsts_SInvalidKeywordUse 64744 +#define DBConsts_STextFalse 64745 +#define DBConsts_STextTrue 64746 +#define DBConsts_SParameterNotFound 64747 +#define DBConsts_SInvalidVersion 64748 +#define DBConsts_SBadFieldType 64749 +#define DBConsts_SAggActive 64750 +#define DBConsts_SProviderSQLNotSupported 64751 +#define DBConsts_SDataSetClosed 64752 +#define DBConsts_SDataSetEmpty 64753 +#define DBConsts_SDataSetReadOnly 64754 +#define DBConsts_SNestedDataSetClass 64755 +#define DBConsts_SExprTermination 64756 +#define DBConsts_SExprNameError 64757 +#define DBConsts_SExprStringError 64758 +#define DBConsts_SExprInvalidChar 64759 +#define DBConsts_SExprNoLParen 64760 +#define DBConsts_SExprNoRParen 64761 +#define DBConsts_SExprNoRParenOrComma 64762 +#define DBConsts_SExprExpected 64763 +#define DBConsts_SExprBadField 64764 +#define DBConsts_SExprBadNullTest 64765 +#define DBConsts_SExprRangeError 64766 +#define DBConsts_SExprIncorrect 64767 +#define DBConsts_SFieldRequired 64768 +#define DBConsts_SDataSetMissing 64769 +#define DBConsts_SInvalidCalcType 64770 +#define DBConsts_SFieldReadOnly 64771 +#define DBConsts_SFieldIndexError 64772 +#define DBConsts_SNoFieldIndexes 64773 +#define DBConsts_SNotIndexField 64774 +#define DBConsts_SIndexFieldMissing 64775 +#define DBConsts_SNoIndexForFields 64776 +#define DBConsts_SIndexNotFound 64777 +#define DBConsts_SCircularDataLink 64778 +#define DBConsts_SLookupInfoError 64779 +#define DBConsts_SDataSourceChange 64780 +#define DBConsts_SNoNestedMasterSource 64781 +#define DBConsts_SDataSetOpen 64782 +#define DBConsts_SNotEditing 64783 +#define DBConsts_SInvalidFieldKind 64784 +#define DBConsts_SUnknownFieldType 64785 +#define DBConsts_SFieldNameMissing 64786 +#define DBConsts_SDuplicateFieldName 64787 +#define DBConsts_SFieldNotFound 64788 +#define DBConsts_SFieldAccessError 64789 +#define DBConsts_SFieldValueError 64790 +#define DBConsts_SFieldRangeError 64791 +#define DBConsts_SBcdFieldRangeError 64792 +#define DBConsts_SInvalidIntegerValue 64793 +#define DBConsts_SInvalidBoolValue 64794 +#define DBConsts_SInvalidFloatValue 64795 +#define DBConsts_SFieldTypeMismatch 64796 +#define DBConsts_SFieldSizeMismatch 64797 +#define DBConsts_SInvalidVarByteArray 64798 +#define DBConsts_SFieldOutOfRange 64799 +#define JclResources_RsIntelCacheDescr7A 64800 +#define JclResources_RsIntelCacheDescr7B 64801 +#define JclResources_RsIntelCacheDescr7C 64802 +#define JclResources_RsIntelCacheDescr7D 64803 +#define JclResources_RsIntelCacheDescr7F 64804 +#define JclResources_RsIntelCacheDescr82 64805 +#define JclResources_RsIntelCacheDescr83 64806 +#define JclResources_RsIntelCacheDescr84 64807 +#define JclResources_RsIntelCacheDescr85 64808 +#define JclResources_RsIntelCacheDescr86 64809 +#define JclResources_RsIntelCacheDescr87 64810 +#define JclResources_RsIntelCacheDescrB0 64811 +#define JclResources_RsIntelCacheDescrB3 64812 +#define JclResources_RsIntelCacheDescrF0 64813 +#define JclResources_RsIntelCacheDescrF1 64814 +#define DBConsts_SInvalidFieldSize 64815 +#define JclResources_RsIntelCacheDescr45 64816 +#define JclResources_RsIntelCacheDescr50 64817 +#define JclResources_RsIntelCacheDescr51 64818 +#define JclResources_RsIntelCacheDescr52 64819 +#define JclResources_RsIntelCacheDescr5B 64820 +#define JclResources_RsIntelCacheDescr5C 64821 +#define JclResources_RsIntelCacheDescr5D 64822 +#define JclResources_RsIntelCacheDescr60 64823 +#define JclResources_RsIntelCacheDescr66 64824 +#define JclResources_RsIntelCacheDescr67 64825 +#define JclResources_RsIntelCacheDescr68 64826 +#define JclResources_RsIntelCacheDescr70 64827 +#define JclResources_RsIntelCacheDescr71 64828 +#define JclResources_RsIntelCacheDescr72 64829 +#define JclResources_RsIntelCacheDescr78 64830 +#define JclResources_RsIntelCacheDescr79 64831 +#define JclResources_RsIntelCacheDescr04 64832 +#define JclResources_RsIntelCacheDescr06 64833 +#define JclResources_RsIntelCacheDescr08 64834 +#define JclResources_RsIntelCacheDescr0A 64835 +#define JclResources_RsIntelCacheDescr0C 64836 +#define JclResources_RsIntelCacheDescr22 64837 +#define JclResources_RsIntelCacheDescr23 64838 +#define JclResources_RsIntelCacheDescr25 64839 +#define JclResources_RsIntelCacheDescr29 64840 +#define JclResources_RsIntelCacheDescr2C 64841 +#define JclResources_RsIntelCacheDescr30 64842 +#define JclResources_RsIntelCacheDescr40 64843 +#define JclResources_RsIntelCacheDescr41 64844 +#define JclResources_RsIntelCacheDescr42 64845 +#define JclResources_RsIntelCacheDescr43 64846 +#define JclResources_RsIntelCacheDescr44 64847 +#define JclResources_RsRTTIBasedOn 64848 +#define JclResources_RsRTTIFloatType 64849 +#define JclResources_RsRTTIMethodKind 64850 +#define JclResources_RsRTTIParamCount 64851 +#define JclResources_RsRTTIReturnType 64852 +#define JclResources_RsRTTIMaxLen 64853 +#define JclResources_RsRTTIElSize 64854 +#define JclResources_RsRTTIElType 64855 +#define JclResources_RsRTTIElNeedCleanup 64856 +#define JclResources_RsRTTIVarType 64857 +#define JclResources_RsDeclarationFormat 64858 +#define JclResources_RsBlankSearchString 64859 +#define JclResources_RsIntelCacheDescr00 64860 +#define JclResources_RsIntelCacheDescr01 64861 +#define JclResources_RsIntelCacheDescr02 64862 +#define JclResources_RsIntelCacheDescr03 64863 +#define JclResources_RsRTTIVirtualMethod 64864 +#define JclResources_RsRTTIIndex 64865 +#define JclResources_RsRTTIDefault 64866 +#define JclResources_RsRTTIName 64867 +#define JclResources_RsRTTIType 64868 +#define JclResources_RsRTTIFlags 64869 +#define JclResources_RsRTTIGUID 64870 +#define JclResources_RsRTTITypeKind 64871 +#define JclResources_RsRTTIOrdinalType 64872 +#define JclResources_RsRTTIMinValue 64873 +#define JclResources_RsRTTIMaxValue 64874 +#define JclResources_RsRTTINameList 64875 +#define JclResources_RsRTTIClassName 64876 +#define JclResources_RsRTTIParent 64877 +#define JclResources_RsRTTIPropCount 64878 +#define JclResources_RsRTTIUnitName 64879 +#define JclResources_RsRTTIValueOutOfRange 64880 +#define JclResources_RsRTTIUnknownIdentifier 64881 +#define JclResources_RsRTTIVar 64882 +#define JclResources_RsRTTIConst 64883 +#define JclResources_RsRTTIArrayOf 64884 +#define JclResources_RsRTTIOut 64885 +#define JclResources_RsRTTIOrdinal 64886 +#define JclResources_RsRTTITrue 64887 +#define JclResources_RsRTTIFalse 64888 +#define JclResources_RsRTTITypeError 64889 +#define JclResources_RsRTTITypeInfoAt 64890 +#define JclResources_RsRTTIPropRead 64891 +#define JclResources_RsRTTIPropWrite 64892 +#define JclResources_RsRTTIPropStored 64893 +#define JclResources_RsRTTIField 64894 +#define JclResources_RsRTTIStaticMethod 64895 +#define JvResources_RsClBtnHighlight 64896 +#define JvResources_RsCl3DDkShadow 64897 +#define JvResources_RsCl3DLight 64898 +#define JvResources_RsClInfoText 64899 +#define JvResources_RsClInfoBk 64900 +#define JvResources_RsGradientActiveCaption 64901 +#define JvResources_RsGradientInactiveCaption 64902 +#define JvResources_RsHotLight 64903 +#define JvResources_RsMenuBar 64904 +#define JvResources_RsMenuHighlight 64905 +#define JclResources_RsFileUtilsNoVersionInfo 64906 +#define JclResources_RsUnableToOpenKeyRead 64907 +#define JclResources_RsUnableToOpenKeyWrite 64908 +#define JclResources_RsUnableToAccessValue 64909 +#define JclResources_RsWrongDataType 64910 +#define JclResources_RsInconsistentPath 64911 +#define JvResources_RsClMenu 64912 +#define JvResources_RsClWindow 64913 +#define JvResources_RsClWindowFrame 64914 +#define JvResources_RsClMenuText 64915 +#define JvResources_RsClWindowText 64916 +#define JvResources_RsClCaptionText 64917 +#define JvResources_RsClActiveBorder 64918 +#define JvResources_RsClInactiveBorder 64919 +#define JvResources_RsClAppWorkSpace 64920 +#define JvResources_RsClHighlight 64921 +#define JvResources_RsClHighlightText 64922 +#define JvResources_RsClBtnFace 64923 +#define JvResources_RsClBtnShadow 64924 +#define JvResources_RsClGrayText 64925 +#define JvResources_RsClBtnText 64926 +#define JvResources_RsClInactiveCaptionText 64927 +#define JvResources_RsClGold 64928 +#define JvResources_RsClBrightGreen 64929 +#define JvResources_RsClTurquoise 64930 +#define JvResources_RsClPlum 64931 +#define JvResources_RsClGray25 64932 +#define JvResources_RsClRose 64933 +#define JvResources_RsClTan 64934 +#define JvResources_RsClLightYellow 64935 +#define JvResources_RsClLightGreen 64936 +#define JvResources_RsClLightTurquoise 64937 +#define JvResources_RsClPaleBlue 64938 +#define JvResources_RsClLavender 64939 +#define JvResources_RsClScrollBar 64940 +#define JvResources_RsClBackground 64941 +#define JvResources_RsClActiveCaption 64942 +#define JvResources_RsClInactiveCaption 64943 +#define JvResources_RsClDarkGreen 64944 +#define JvResources_RsClDarkTeal 64945 +#define JvResources_RsClDarkBlue 64946 +#define JvResources_RsClIndigo 64947 +#define JvResources_RsClGray80 64948 +#define JvResources_RsClDarkRed 64949 +#define JvResources_RsClOrange 64950 +#define JvResources_RsClDarkYellow 64951 +#define JvResources_RsClBlueGray 64952 +#define JvResources_RsClGray50 64953 +#define JvResources_RsClLightOrange 64954 +#define JvResources_RsClSeaGreen 64955 +#define JvResources_RsClLightBlue 64956 +#define JvResources_RsClViolet 64957 +#define JvResources_RsClGray40 64958 +#define JvResources_RsClPink 64959 +#define JvResources_RsClTeal 64960 +#define JvResources_RsClGray 64961 +#define JvResources_RsClSilver 64962 +#define JvResources_RsClRed 64963 +#define JvResources_RsClLime 64964 +#define JvResources_RsClYellow 64965 +#define JvResources_RsClBlue 64966 +#define JvResources_RsClFuchsia 64967 +#define JvResources_RsClAqua 64968 +#define JvResources_RsClWhite 64969 +#define JvResources_RsClMoneyGreen 64970 +#define JvResources_RsClSkyBlue 64971 +#define JvResources_RsClCream 64972 +#define JvResources_RsClMedGray 64973 +#define JvResources_RsClBrown 64974 +#define JvResources_RsClOliveGreen 64975 +#define JvResources_RsENoGIFData 64976 +#define JvResources_RsEUnrecognizedGIFExt 64977 +#define JvResources_RsEWrongGIFColors 64978 +#define JvResources_RsEBadGIFCodeSize 64979 +#define JvResources_RsEGIFDecodeError 64980 +#define JvResources_RsEGIFEncodeError 64981 +#define JvResources_RsEGIFVersion 64982 +#define JvResources_RsYourTextHereCaption 64983 +#define JvResources_RsEPixelFormatNotImplemented 64984 +#define JvResources_RsEBitCountNotImplemented 64985 +#define JvResources_RsClBlack 64986 +#define JvResources_RsClMaroon 64987 +#define JvResources_RsClGreen 64988 +#define JvResources_RsClOlive 64989 +#define JvResources_RsClNavy 64990 +#define JvResources_RsClPurple 64991 +#define IdResourceStrings_RSThreadTerminateAndWaitFor 64992 +#define JConsts_sChangeJPGSize 64993 +#define JConsts_sJPEGError 64994 +#define JConsts_sJPEGImageFile 64995 +#define JvResources_RsAniExtension 64996 +#define JvResources_RsAniFilterName 64997 +#define JvResources_RsRootValueReplaceFmt 64998 +#define JvResources_RsEUnableToCreateKey 64999 +#define JvResources_RsEEnumeratingRegistry 65000 +#define JvResources_RsEInvalidType 65001 +#define JvResources_RsEUnknownBaseType 65002 +#define JvResources_RsEInvalidPath 65003 +#define JvResources_RsENotAUniqueRootPath 65004 +#define JvResources_RsECircularReferenceOfStorages 65005 +#define JvResources_RsGIFImage 65006 +#define JvResources_RsEChangeGIFSize 65007 +#define IdResourceStrings_RSSocksRequestServerFailed 65008 +#define IdResourceStrings_RSSocksRequestIdentFailed 65009 +#define IdResourceStrings_RSSocksUnknownError 65010 +#define IdResourceStrings_RSSocksServerRespondError 65011 +#define IdResourceStrings_RSSocksAuthMethodError 65012 +#define IdResourceStrings_RSSocksAuthError 65013 +#define IdResourceStrings_RSSocksServerGeneralError 65014 +#define IdResourceStrings_RSSocksServerPermissionError 65015 +#define IdResourceStrings_RSSocksServerNetUnreachableError 65016 +#define IdResourceStrings_RSSocksServerHostUnreachableError 65017 +#define IdResourceStrings_RSSocksServerConnectionRefusedError 65018 +#define IdResourceStrings_RSSocksServerTTLExpiredError 65019 +#define IdResourceStrings_RSSocksServerCommandError 65020 +#define IdResourceStrings_RSSocksServerAddressError 65021 +#define IdResourceStrings_RSUnevenSizeInDecodeStream 65022 +#define IdResourceStrings_RSUnevenSizeInEncodeStream 65023 +#define IdResourceStrings_RSStackECONNABORTED 65024 +#define IdResourceStrings_RSStackECONNRESET 65025 +#define IdResourceStrings_RSStackENOBUFS 65026 +#define IdResourceStrings_RSStackEISCONN 65027 +#define IdResourceStrings_RSStackENOTCONN 65028 +#define IdResourceStrings_RSStackESHUTDOWN 65029 +#define IdResourceStrings_RSStackETOOMANYREFS 65030 +#define IdResourceStrings_RSStackETIMEDOUT 65031 +#define IdResourceStrings_RSStackECONNREFUSED 65032 +#define IdResourceStrings_RSStackELOOP 65033 +#define IdResourceStrings_RSStackENAMETOOLONG 65034 +#define IdResourceStrings_RSStackEHOSTDOWN 65035 +#define IdResourceStrings_RSStackEHOSTUNREACH 65036 +#define IdResourceStrings_RSStackENOTEMPTY 65037 +#define IdResourceStrings_RSStackHOST_NOT_FOUND 65038 +#define IdResourceStrings_RSSocksRequestFailed 65039 +#define IdResourceStrings_RSStackEALREADY 65040 +#define IdResourceStrings_RSStackENOTSOCK 65041 +#define IdResourceStrings_RSStackEDESTADDRREQ 65042 +#define IdResourceStrings_RSStackEMSGSIZE 65043 +#define IdResourceStrings_RSStackEPROTOTYPE 65044 +#define IdResourceStrings_RSStackENOPROTOOPT 65045 +#define IdResourceStrings_RSStackEPROTONOSUPPORT 65046 +#define IdResourceStrings_RSStackESOCKTNOSUPPORT 65047 +#define IdResourceStrings_RSStackEOPNOTSUPP 65048 +#define IdResourceStrings_RSStackEPFNOSUPPORT 65049 +#define IdResourceStrings_RSStackEAFNOSUPPORT 65050 +#define IdResourceStrings_RSStackEADDRINUSE 65051 +#define IdResourceStrings_RSStackEADDRNOTAVAIL 65052 +#define IdResourceStrings_RSStackENETDOWN 65053 +#define IdResourceStrings_RSStackENETUNREACH 65054 +#define IdResourceStrings_RSStackENETRESET 65055 +#define IdResourceStrings_RSHTTPUnknownResponseCode 65056 +#define IdResourceStrings_RSHTTPHeaderAlreadyWritten 65057 +#define IdResourceStrings_RSHTTPErrorParsingCommand 65058 +#define IdResourceStrings_RSHTTPUnsupportedAuthorisationScheme 65059 +#define IdResourceStrings_RSHTTPCannotSwitchSessionStateWhenActive 65060 +#define IdResourceStrings_RSHTTPAuthAlreadyRegistered 65061 +#define IdResourceStrings_RSInvalidServiceName 65062 +#define IdResourceStrings_RSStackError 65063 +#define IdResourceStrings_RSStackEINTR 65064 +#define IdResourceStrings_RSStackEBADF 65065 +#define IdResourceStrings_RSStackEACCES 65066 +#define IdResourceStrings_RSStackEFAULT 65067 +#define IdResourceStrings_RSStackEINVAL 65068 +#define IdResourceStrings_RSStackEMFILE 65069 +#define IdResourceStrings_RSStackEWOULDBLOCK 65070 +#define IdResourceStrings_RSStackEINPROGRESS 65071 +#define IdResourceStrings_RSHTTPNotAcceptable 65072 +#define IdResourceStrings_RSHTTPProxyAuthenticationRequired 65073 +#define IdResourceStrings_RSHTTPRequestTimeout 65074 +#define IdResourceStrings_RSHTTPConflict 65075 +#define IdResourceStrings_RSHTTPGone 65076 +#define IdResourceStrings_RSHTTPLengthRequired 65077 +#define IdResourceStrings_RSHTTPPreconditionFailed 65078 +#define IdResourceStrings_RSHTTPRequestEntityToLong 65079 +#define IdResourceStrings_RSHTTPRequestURITooLong 65080 +#define IdResourceStrings_RSHTTPUnsupportedMediaType 65081 +#define IdResourceStrings_RSHTTPInternalServerError 65082 +#define IdResourceStrings_RSHTTPNotImplemented 65083 +#define IdResourceStrings_RSHTTPBadGateway 65084 +#define IdResourceStrings_RSHTTPServiceUnavailable 65085 +#define IdResourceStrings_RSHTTPGatewayTimeout 65086 +#define IdResourceStrings_RSHTTPHTTPVersionNotSupported 65087 +#define IdResourceStrings_RSHTTPCreated 65088 +#define IdResourceStrings_RSHTTPAccepted 65089 +#define IdResourceStrings_RSHTTPNonAuthoritativeInformation 65090 +#define IdResourceStrings_RSHTTPNoContent 65091 +#define IdResourceStrings_RSHTTPResetContent 65092 +#define IdResourceStrings_RSHTTPPartialContent 65093 +#define IdResourceStrings_RSHTTPMovedPermanently 65094 +#define IdResourceStrings_RSHTTPMovedTemporarily 65095 +#define IdResourceStrings_RSHTTPSeeOther 65096 +#define IdResourceStrings_RSHTTPNotModified 65097 +#define IdResourceStrings_RSHTTPUseProxy 65098 +#define IdResourceStrings_RSHTTPBadRequest 65099 +#define IdResourceStrings_RSHTTPUnauthorized 65100 +#define IdResourceStrings_RSHTTPForbidden 65101 +#define IdResourceStrings_RSHTTPNotFound 65102 +#define IdResourceStrings_RSHTTPMethodeNotallowed 65103 +#define IdResourceStrings_RSReadLnMaxLineLengthExceeded 65104 +#define IdResourceStrings_RSNoCommandHandlerFound 65105 +#define IdResourceStrings_RSWS2CallError 65106 +#define IdResourceStrings_RSWS2LoadError 65107 +#define IdResourceStrings_RSMIMEExtensionEmpty 65108 +#define IdResourceStrings_RSMIMEMIMETypeEmpty 65109 +#define IdResourceStrings_RSMIMEMIMEExtAlreadyExists 65110 +#define IdResourceStrings_RSStatusResolving 65111 +#define IdResourceStrings_RSStatusConnecting 65112 +#define IdResourceStrings_RSStatusConnected 65113 +#define IdResourceStrings_RSStatusDisconnecting 65114 +#define IdResourceStrings_RSStatusDisconnected 65115 +#define IdResourceStrings_RSStatusText 65116 +#define IdResourceStrings_RSConnectTimeout 65117 +#define IdResourceStrings_RSHTTPContinue 65118 +#define IdResourceStrings_RSHTTPOK 65119 +#define IdResourceStrings_RSCouldNotBindSocket 65120 +#define IdResourceStrings_RSFailedTimeZoneInfo 65121 +#define IdResourceStrings_RSNotEnoughDataInBuffer 65122 +#define IdResourceStrings_RSWinsockInitializationError 65123 +#define IdResourceStrings_RSSetSizeExceeded 65124 +#define IdResourceStrings_RSThreadClassNotSpecified 65125 +#define IdResourceStrings_RSFileNotFound 65126 +#define IdResourceStrings_RSOnlyOneAntiFreeze 65127 +#define IdResourceStrings_RSNotConnected 65128 +#define IdResourceStrings_RSObjectTypeNotSupported 65129 +#define IdResourceStrings_RSTerminateThreadTimeout 65130 +#define IdResourceStrings_RSNoExecuteSpecified 65131 +#define IdResourceStrings_RSIdNoDataToRead 65132 +#define IdResourceStrings_RSCanNotBindRange 65133 +#define IdResourceStrings_RSInvalidPortRange 65134 +#define IdResourceStrings_RSReadTimeout 65135 +#define uRORes_err_TooManySessions 65136 +#define uRORes_err_DOMElementIsNIL 65137 +#define uRORes_err_CannotLoadXMLDocument 65138 +#define uRORes_err_ErrorCreatingMsXmlDoc 65139 +#define uRORes_err_NoXMLParsersAvailable 65140 +#define uRORes_err_IDispatchMarshalingNotSupported 65141 +#define uRORes_err_UnsupportedVariantType 65142 +#define uRORes_err_VariantIsNotArray 65143 +#define uRORes_err_InvalidVarArrayDimCount 65144 +#define uRORes_err_MessageNotAssigned 65145 +#define ComConst_SOleError 65146 +#define ComConst_SNoMethod 65147 +#define ComConst_SVarNotObject 65148 +#define ComConst_STooManyParams 65149 +#define IdResourceStrings_RSCannotAllocateSocket 65150 +#define IdResourceStrings_RSConnectionClosedGracefully 65151 +#define uRORes_err_TypeNotSupported 65152 +#define uRORes_err_ClassFactoryNotFound 65153 +#define uRORes_err_IROMessageNotSupported 65154 +#define uRORes_err_ClassAlreadyRegistered 65155 +#define uRORes_err_UnknownProxyInterface 65156 +#define uRORes_err_DispatcherAlreadyAssigned 65157 +#define uRORes_err_CannotFindMessageDispatcher 65158 +#define uRORes_err_ServerOnlySupportsOneDispatcher 65159 +#define uRORes_err_UnhandledException 65160 +#define uRORes_err_ChannelBusy 65161 +#define uRORes_err_ArrayIndexOutOfBounds 65162 +#define uRORes_err_InvalidHeader 65163 +#define uRORes_err_UnknownClassInStream 65164 +#define uRORes_err_UnexpectedClassInStream 65165 +#define uRORes_err_SessionNotFound 65166 +#define uRORes_err_ChannelDoesntSupportIROMetadataReader 65167 +#define uRORes_err_RodlNoEnumValues 65168 +#define uRORes_err_RodlNoStructElementsDefined 65169 +#define uRORes_err_RodlNoOperationsDefined 65170 +#define uRORes_err_RodlUsedFileDoesNotExist 65171 +#define uRORes_err_RodlInvalidDataType 65172 +#define uRORes_err_RodlStructCannotBeNested 65173 +#define uRORes_err_RodlInvalidAncestorType 65174 +#define uRORes_str_ExceptionOnServer 65175 +#define uRORes_str_ExceptionReraisedFromServer 65176 +#define uRORes_err_AssignError 65177 +#define uRORes_err_InvalidRequestStream 65178 +#define uRORes_err_NILMessage 65179 +#define uRORes_err_UnspecifiedInterface 65180 +#define uRORes_err_UnspecifiedMessage 65181 +#define uRORes_err_UnknownMethod 65182 +#define uRORes_err_ClassFactoryDidNotReturnInstance 65183 +#define uRODECConst_sFMT_HEX 65184 +#define uRODECConst_sFMT_HEXL 65185 +#define uRODECConst_sFMT_MIME64 65186 +#define uRODECConst_sFMT_UU 65187 +#define uRODECConst_sFMT_XX 65188 +#define uRODECConst_sInvalidKeySize 65189 +#define uRODECConst_sNotInitialized 65190 +#define uRORes_err_InvalidIndex 65191 +#define uRORes_err_InvalidType 65192 +#define uRORes_err_InvalidStream 65193 +#define uRORes_err_InvalidParamFlag 65194 +#define uRORes_err_InvalidStringLength 65195 +#define uRORes_str_InvalidClassTypeInStream 65196 +#define uRORes_err_UnexpectedEndOfStream 65197 +#define uRORes_err_RodlDuplicateName 65198 +#define uRORes_err_RodlNoDataTypeSpecified 65199 +#define ComStrs_sUDAssociated 65200 +#define ComStrs_sPageIndexError 65201 +#define ComStrs_sInvalidComCtl32 65202 +#define ComStrs_sDateTimeMax 65203 +#define ComStrs_sDateTimeMin 65204 +#define ComStrs_sNeedAllowNone 65205 +#define ComStrs_sFailSetCalDateTime 65206 +#define ComStrs_sFailSetCalMaxSelRange 65207 +#define ComStrs_sFailSetCalMinMaxRange 65208 +#define ComStrs_sFailsetCalSelRange 65209 +#define WinHelpViewer_hNoKeyword 65210 +#define uRODECConst_sProtectionCircular 65211 +#define uRODECConst_sStringFormatExists 65212 +#define uRODECConst_sInvalidStringFormat 65213 +#define uRODECConst_sInvalidFormatString 65214 +#define uRODECConst_sFMT_COPY 65215 +#define ExtCtrls_clNameWindow 65216 +#define ExtCtrls_clNameWindowFrame 65217 +#define ExtCtrls_clNameWindowText 65218 +#define ComStrs_sTabFailClear 65219 +#define ComStrs_sTabFailDelete 65220 +#define ComStrs_sTabFailRetrieve 65221 +#define ComStrs_sTabFailGetObject 65222 +#define ComStrs_sTabFailSet 65223 +#define ComStrs_sTabFailSetObject 65224 +#define ComStrs_sTabMustBeMultiLine 65225 +#define ComStrs_sInvalidIndex 65226 +#define ComStrs_sInsertError 65227 +#define ComStrs_sInvalidOwner 65228 +#define ComStrs_sRichEditInsertError 65229 +#define ComStrs_sRichEditLoadFail 65230 +#define ComStrs_sRichEditSaveFail 65231 +#define ExtCtrls_clNameCaptionText 65232 +#define ExtCtrls_clNameDefault 65233 +#define ExtCtrls_clNameGrayText 65234 +#define ExtCtrls_clNameHighlight 65235 +#define ExtCtrls_clNameHighlightText 65236 +#define ExtCtrls_clNameInactiveBorder 65237 +#define ExtCtrls_clNameInactiveCaption 65238 +#define ExtCtrls_clNameInactiveCaptionText 65239 +#define ExtCtrls_clNameInfoBk 65240 +#define ExtCtrls_clNameInfoText 65241 +#define ExtCtrls_clNameMenu 65242 +#define ExtCtrls_clNameMenuText 65243 +#define ExtCtrls_clNameNone 65244 +#define ExtCtrls_clNameScrollBar 65245 +#define ExtCtrls_clName3DDkShadow 65246 +#define ExtCtrls_clName3DLight 65247 +#define ExtCtrls_clNameBlue 65248 +#define ExtCtrls_clNameFuchsia 65249 +#define ExtCtrls_clNameAqua 65250 +#define ExtCtrls_clNameWhite 65251 +#define ExtCtrls_clNameMoneyGreen 65252 +#define ExtCtrls_clNameSkyBlue 65253 +#define ExtCtrls_clNameCream 65254 +#define ExtCtrls_clNameMedGray 65255 +#define ExtCtrls_clNameActiveBorder 65256 +#define ExtCtrls_clNameActiveCaption 65257 +#define ExtCtrls_clNameAppWorkSpace 65258 +#define ExtCtrls_clNameBackground 65259 +#define ExtCtrls_clNameBtnFace 65260 +#define ExtCtrls_clNameBtnHighlight 65261 +#define ExtCtrls_clNameBtnShadow 65262 +#define ExtCtrls_clNameBtnText 65263 +#define HelpIntfs_hNoTableOfContents 65264 +#define HelpIntfs_hNothingFound 65265 +#define HelpIntfs_hNoContext 65266 +#define HelpIntfs_hNoTopics 65267 +#define ExtCtrls_clNameBlack 65268 +#define ExtCtrls_clNameMaroon 65269 +#define ExtCtrls_clNameGreen 65270 +#define ExtCtrls_clNameOlive 65271 +#define ExtCtrls_clNameNavy 65272 +#define ExtCtrls_clNamePurple 65273 +#define ExtCtrls_clNameTeal 65274 +#define ExtCtrls_clNameGray 65275 +#define ExtCtrls_clNameSilver 65276 +#define ExtCtrls_clNameRed 65277 +#define ExtCtrls_clNameLime 65278 +#define ExtCtrls_clNameYellow 65279 +#define Consts_SInvalidClipFmt 65280 +#define Consts_SIconToClipboard 65281 +#define Consts_SCannotOpenClipboard 65282 +#define Consts_SInvalidMemoSize 65283 +#define Consts_SInvalidPrinterOp 65284 +#define Consts_SNoDefaultPrinter 65285 +#define Consts_SDuplicateMenus 65286 +#define Consts_SDockedCtlNeedsName 65287 +#define Consts_SDockTreeRemoveError 65288 +#define Consts_SDockZoneNotFound 65289 +#define Consts_SDockZoneHasNoCtl 65290 +#define Consts_SMultiSelectRequired 65291 +#define Consts_SSeparator 65292 +#define Consts_SErrorSettingCount 65293 +#define Consts_SListBoxMustBeVirtual 65294 +#define Consts_SNoGetItemEventHandler 65295 +#define Consts_SmkcPgUp 65296 +#define Consts_SmkcPgDn 65297 +#define Consts_SmkcEnd 65298 +#define Consts_SmkcHome 65299 +#define Consts_SmkcLeft 65300 +#define Consts_SmkcUp 65301 +#define Consts_SmkcRight 65302 +#define Consts_SmkcDown 65303 +#define Consts_SmkcIns 65304 +#define Consts_SmkcDel 65305 +#define Consts_SmkcShift 65306 +#define Consts_SmkcCtrl 65307 +#define Consts_SmkcAlt 65308 +#define Consts_srNone 65309 +#define Consts_SOutOfRange 65310 +#define Consts_SInsertLineError 65311 +#define Consts_SMsgDlgYes 65312 +#define Consts_SMsgDlgNo 65313 +#define Consts_SMsgDlgOK 65314 +#define Consts_SMsgDlgCancel 65315 +#define Consts_SMsgDlgHelp 65316 +#define Consts_SMsgDlgAbort 65317 +#define Consts_SMsgDlgRetry 65318 +#define Consts_SMsgDlgIgnore 65319 +#define Consts_SMsgDlgAll 65320 +#define Consts_SMsgDlgNoToAll 65321 +#define Consts_SMsgDlgYesToAll 65322 +#define Consts_SmkcBkSp 65323 +#define Consts_SmkcTab 65324 +#define Consts_SmkcEsc 65325 +#define Consts_SmkcEnter 65326 +#define Consts_SmkcSpace 65327 +#define Consts_SCloseButton 65328 +#define Consts_SIgnoreButton 65329 +#define Consts_SRetryButton 65330 +#define Consts_SAbortButton 65331 +#define Consts_SAllButton 65332 +#define Consts_SCannotDragForm 65333 +#define Consts_SVMetafiles 65334 +#define Consts_SVEnhMetafiles 65335 +#define Consts_SVIcons 65336 +#define Consts_SVBitmaps 65337 +#define Consts_SMaskErr 65338 +#define Consts_SMaskEditErr 65339 +#define Consts_SMsgDlgWarning 65340 +#define Consts_SMsgDlgError 65341 +#define Consts_SMsgDlgInformation 65342 +#define Consts_SMsgDlgConfirm 65343 +#define Consts_SMenuIndexError 65344 +#define Consts_SMenuReinserted 65345 +#define Consts_SMenuNotFound 65346 +#define Consts_SNoTimers 65347 +#define Consts_SNotPrinting 65348 +#define Consts_SPrinting 65349 +#define Consts_SInvalidPrinter 65350 +#define Consts_SDeviceOnPort 65351 +#define Consts_SGroupIndexTooLow 65352 +#define Consts_SNoMDIForm 65353 +#define Consts_SControlParentSetToSelf 65354 +#define Consts_SOKButton 65355 +#define Consts_SCancelButton 65356 +#define Consts_SYesButton 65357 +#define Consts_SNoButton 65358 +#define Consts_SHelpButton 65359 +#define Consts_SInvalidImageSize 65360 +#define Consts_SInvalidImageList 65361 +#define Consts_SReplaceImage 65362 +#define Consts_SImageIndexError 65363 +#define Consts_SImageReadFail 65364 +#define Consts_SImageWriteFail 65365 +#define Consts_SWindowDCError 65366 +#define Consts_SWindowClass 65367 +#define Consts_SCannotFocus 65368 +#define Consts_SParentRequired 65369 +#define Consts_SParentGivenNotAParent 65370 +#define Consts_SMDIChildNotVisible 65371 +#define Consts_SVisibleChanged 65372 +#define Consts_SCannotShowModal 65373 +#define Consts_SScrollBarRange 65374 +#define Consts_SPropertyOutOfRange 65375 +#define RTLConsts_SWriteError 65376 +#define RTLConsts_SThreadCreateError 65377 +#define RTLConsts_SThreadError 65378 +#define Consts_SInvalidTabPosition 65379 +#define Consts_SInvalidTabStyle 65380 +#define Consts_SInvalidBitmap 65381 +#define Consts_SInvalidIcon 65382 +#define Consts_SInvalidMetafile 65383 +#define Consts_SInvalidPixelFormat 65384 +#define Consts_SInvalidImage 65385 +#define Consts_SScanLine 65386 +#define Consts_SChangeIconSize 65387 +#define Consts_SUnknownExtension 65388 +#define Consts_SUnknownClipboardFormat 65389 +#define Consts_SOutOfResources 65390 +#define Consts_SNoCanvasHandle 65391 +#define RTLConsts_SInvalidRegType 65392 +#define RTLConsts_SListCapacityError 65393 +#define RTLConsts_SListCountError 65394 +#define RTLConsts_SListIndexError 65395 +#define RTLConsts_SMemoryStreamError 65396 +#define RTLConsts_SPropertyException 65397 +#define RTLConsts_SReadError 65398 +#define RTLConsts_SReadOnlyProperty 65399 +#define RTLConsts_SRegCreateFailed 65400 +#define RTLConsts_SRegGetDataFailed 65401 +#define RTLConsts_SRegSetDataFailed 65402 +#define RTLConsts_SResNotFound 65403 +#define RTLConsts_SSeekNotImplemented 65404 +#define RTLConsts_SSortedListError 65405 +#define RTLConsts_SUnknownGroup 65406 +#define RTLConsts_SUnknownProperty 65407 +#define RTLConsts_SCheckSynchronizeError 65408 +#define RTLConsts_SClassNotFound 65409 +#define RTLConsts_SDuplicateClass 65410 +#define RTLConsts_SDuplicateItem 65411 +#define RTLConsts_SDuplicateName 65412 +#define RTLConsts_SDuplicateString 65413 +#define RTLConsts_SFCreateErrorEx 65414 +#define RTLConsts_SFOpenErrorEx 65415 +#define RTLConsts_SIniFileWriteError 65416 +#define RTLConsts_SInvalidImage 65417 +#define RTLConsts_SInvalidName 65418 +#define RTLConsts_SInvalidProperty 65419 +#define RTLConsts_SInvalidPropertyElement 65420 +#define RTLConsts_SInvalidPropertyPath 65421 +#define RTLConsts_SInvalidPropertyType 65422 +#define RTLConsts_SInvalidPropertyValue 65423 +#define SysConst_SShortDayNameTue 65424 +#define SysConst_SShortDayNameWed 65425 +#define SysConst_SShortDayNameThu 65426 +#define SysConst_SShortDayNameFri 65427 +#define SysConst_SShortDayNameSat 65428 +#define SysConst_SLongDayNameSun 65429 +#define SysConst_SLongDayNameMon 65430 +#define SysConst_SLongDayNameTue 65431 +#define SysConst_SLongDayNameWed 65432 +#define SysConst_SLongDayNameThu 65433 +#define SysConst_SLongDayNameFri 65434 +#define SysConst_SLongDayNameSat 65435 +#define RTLConsts_SAncestorNotFound 65436 +#define RTLConsts_SAssignError 65437 +#define RTLConsts_SBitsIndexError 65438 +#define RTLConsts_SCantWriteResourceStreamError 65439 +#define SysConst_SShortMonthNameNov 65440 +#define SysConst_SShortMonthNameDec 65441 +#define SysConst_SLongMonthNameJan 65442 +#define SysConst_SLongMonthNameFeb 65443 +#define SysConst_SLongMonthNameMar 65444 +#define SysConst_SLongMonthNameApr 65445 +#define SysConst_SLongMonthNameMay 65446 +#define SysConst_SLongMonthNameJun 65447 +#define SysConst_SLongMonthNameJul 65448 +#define SysConst_SLongMonthNameAug 65449 +#define SysConst_SLongMonthNameSep 65450 +#define SysConst_SLongMonthNameOct 65451 +#define SysConst_SLongMonthNameNov 65452 +#define SysConst_SLongMonthNameDec 65453 +#define SysConst_SShortDayNameSun 65454 +#define SysConst_SShortDayNameMon 65455 +#define SysConst_SAssertError 65456 +#define SysConst_SAbstractError 65457 +#define SysConst_SModuleAccessViolation 65458 +#define SysConst_SOSError 65459 +#define SysConst_SUnkOSError 65460 +#define SysConst_SNL 65461 +#define SysConst_SShortMonthNameJan 65462 +#define SysConst_SShortMonthNameFeb 65463 +#define SysConst_SShortMonthNameMar 65464 +#define SysConst_SShortMonthNameApr 65465 +#define SysConst_SShortMonthNameMay 65466 +#define SysConst_SShortMonthNameJun 65467 +#define SysConst_SShortMonthNameJul 65468 +#define SysConst_SShortMonthNameAug 65469 +#define SysConst_SShortMonthNameSep 65470 +#define SysConst_SShortMonthNameOct 65471 +#define SysConst_SInvalidVarOpWithHResultWithPrefix 65472 +#define SysConst_SVarTypeOutOfRangeWithPrefix 65473 +#define SysConst_SVarTypeAlreadyUsedWithPrefix 65474 +#define SysConst_SVarTypeNotUsableWithPrefix 65475 +#define SysConst_SVarTypeTooManyCustom 65476 +#define SysConst_SVarTypeCouldNotConvert 65477 +#define SysConst_SVarTypeConvertOverflow 65478 +#define SysConst_SVarOverflow 65479 +#define SysConst_SVarInvalid 65480 +#define SysConst_SVarBadType 65481 +#define SysConst_SVarNotImplemented 65482 +#define SysConst_SVarUnexpected 65483 +#define SysConst_SExternalException 65484 +#define SysConst_SAssertionFailed 65485 +#define SysConst_SIntfCastError 65486 +#define SysConst_SSafecallException 65487 +#define SysConst_SOperationAborted 65488 +#define SysConst_SException 65489 +#define SysConst_SExceptTitle 65490 +#define SysConst_SInvalidFormat 65491 +#define SysConst_SArgumentMissing 65492 +#define SysConst_SDispatchError 65493 +#define SysConst_SReadAccess 65494 +#define SysConst_SWriteAccess 65495 +#define SysConst_SFormatTooLong 65496 +#define SysConst_SVarArrayCreate 65497 +#define SysConst_SVarArrayBounds 65498 +#define SysConst_SVarArrayLocked 65499 +#define SysConst_SVarArrayWithHResult 65500 +#define SysConst_SInvalidVarCast 65501 +#define SysConst_SInvalidVarOp 65502 +#define SysConst_SInvalidVarNullOp 65503 +#define SysConst_SDiskFull 65504 +#define SysConst_SInvalidInput 65505 +#define SysConst_SDivByZero 65506 +#define SysConst_SRangeError 65507 +#define SysConst_SIntOverflow 65508 +#define SysConst_SInvalidOp 65509 +#define SysConst_SZeroDivide 65510 +#define SysConst_SOverflow 65511 +#define SysConst_SUnderflow 65512 +#define SysConst_SInvalidPointer 65513 +#define SysConst_SInvalidCast 65514 +#define SysConst_SAccessViolationArg3 65515 +#define SysConst_SAccessViolationNoArg 65516 +#define SysConst_SStackOverflow 65517 +#define SysConst_SControlC 65518 +#define SysConst_SPrivilege 65519 +#define SysConst_SInvalidInteger 65520 +#define SysConst_SInvalidFloat 65521 +#define SysConst_SInvalidDate 65522 +#define SysConst_SInvalidTime 65523 +#define SysConst_SInvalidDateTime 65524 +#define SysConst_SInvalidTimeStamp 65525 +#define SysConst_SInvalidGUID 65526 +#define SysConst_STimeEncodeError 65527 +#define SysConst_SDateEncodeError 65528 +#define SysConst_SOutOfMemory 65529 +#define SysConst_SInOutError 65530 +#define SysConst_SFileNotFound 65531 +#define SysConst_SInvalidFilename 65532 +#define SysConst_STooManyOpenFiles 65533 +#define SysConst_SAccessDenied 65534 +#define SysConst_SEndOfFile 65535 +STRINGTABLE +BEGIN + TeeConst_TeeMsg_ValuesArrowEndY, "EndY" + TeeConst_TeeMsg_DefaultFontName, "Arial" + TeeConst_TeeMsg_CheckPointerSize, "Pointer size must be greater than zero" + TeeConst_TeeMsg_FunctionPeriod, "Function Period should be >= 0" + TeeConst_TeeMsg_PieOther, "Other" + TeeConst_TeeMsg_ShapeGallery1, "abc" + TeeConst_TeeMsg_ShapeGallery2, "123" + TeeConst_TeeMsg_ValuesX, "X" + TeeConst_TeeMsg_ValuesY, "Y" + TeeConst_TeeMsg_ValuesPie, "Pie" + TeeConst_TeeMsg_ValuesBar, "Bar" + TeeConst_TeeMsg_ValuesAngle, "Angle" + TeeConst_TeeMsg_ValuesGanttStart, "Start" + TeeConst_TeeMsg_ValuesGanttEnd, "End" + TeeConst_TeeMsg_ValuesGanttNextTask, "NextTask" + TeeConst_TeeMsg_ValuesBubbleRadius, "Radius" + TeeConst_TeeMsg_ValuesArrowEndX, "EndX" + TeeConst_TeeMsg_GanttSample6, "Testing" + TeeConst_TeeMsg_GanttSample7, "Manufac." + TeeConst_TeeMsg_GanttSample8, "Debugging" + TeeConst_TeeMsg_GanttSample9, "New Version" + TeeConst_TeeMsg_GanttSample10, "Banking" + TeeConst_TeeMsg_DefaultFontSize, "8" + TeeConst_TeeMsg_DefaultGalleryFontSize, "8" + TeeConst_TeeMsg_FunctionAdd, "Add" + TeeConst_TeeMsg_FunctionSubtract, "Subtract" + TeeConst_TeeMsg_FunctionMultiply, "Multiply" + TeeConst_TeeMsg_FunctionDivide, "Divide" + TeeConst_TeeMsg_FunctionHigh, "High" + TeeConst_TeeMsg_FunctionLow, "Low" + TeeConst_TeeMsg_FunctionAverage, "Average" + TeeConst_TeeMsg_GalleryShape, "Shape" + TeeConst_TeeMsg_GalleryBubble, "Bubble" + TeeConst_TeeMsg_PieSample3, "Tables" + TeeConst_TeeMsg_PieSample4, "Monitors" + TeeConst_TeeMsg_PieSample5, "Lamps" + TeeConst_TeeMsg_PieSample6, "Keyboards" + TeeConst_TeeMsg_PieSample7, "Bikes" + TeeConst_TeeMsg_PieSample8, "Chairs" + TeeConst_TeeMsg_GalleryChartName, "TeeGalleryChart" + TeeConst_TeeMsg_GalleryStandard, "Standard" + TeeConst_TeeMsg_GalleryFunctions, "Functions" + TeeConst_TeeMsg_GalleryArrow, "Arrow" + TeeConst_TeeMsg_GalleryGantt, "Gantt" + TeeConst_TeeMsg_GanttSample1, "Design" + TeeConst_TeeMsg_GanttSample2, "Prototyping" + TeeConst_TeeMsg_GanttSample3, "Development" + TeeConst_TeeMsg_GanttSample4, "Sales" + TeeConst_TeeMsg_GanttSample5, "Marketing" + TeeConst_TeeMsg_BarOffsetPercent, "Bar Offset Percent must be between -100% and 100%" + TeeConst_TeeMsg_DefaultPercentOf, "%s of %s" + TeeConst_TeeMsg_DefPercentFormat, "##0.## %" + TeeConst_TeeMsg_DefValueFormat, "#,##0.###" + TeeConst_TeeMsg_AxisTitle, "Axis Title" + TeeConst_TeeMsg_AxisLabels, "Axis Labels" + TeeConst_TeeMsg_GalleryLine, "Line" + TeeConst_TeeMsg_GalleryPoint, "Point" + TeeConst_TeeMsg_GalleryArea, "Area" + TeeConst_TeeMsg_GalleryBar, "Bar" + TeeConst_TeeMsg_GalleryHorizBar, "Horiz. Bar" + TeeConst_TeeMsg_GalleryPie, "Pie" + TeeConst_TeeMsg_GalleryFastLine, "Fast Line" + TeeConst_TeeMsg_Rotation, "Rotation" + TeeConst_TeeMsg_PieSample1, "Cars" + TeeConst_TeeMsg_PieSample2, "Phones" + TeeConst_TeeMsg_LegendColorWidth, "Legend Color Width must be between 0 and 100 %" + TeeConst_TeeMsg_SeriesSetDataSource, "No ParentChart to validate DataSource" + TeeConst_TeeMsg_SeriesInvDataSource, "No valid DataSource: %s" + TeeConst_TeeMsg_FillSample, "FillSampleValues NumValues must be > 0" + TeeConst_TeeMsg_Angle, "%s Angle must be between 0 and 359 degrees" + TeeConst_TeeMsg_AxisLogDateTime, "DateTime Axis cannot be Logarithmic" + TeeConst_TeeMsg_AxisLogNotPositive, "Logarithmic Axis Min and Max values should be >= 0" + TeeConst_TeeMsg_AxisLabelSep, "Labels Separation % must be greater than 0" + TeeConst_TeeMsg_AxisIncrementNeg, "Axis increment must be >= 0" + TeeConst_TeeMsg_AxisMinMax, "Axis Minimum Value must be <= Maximum" + TeeConst_TeeMsg_AxisMaxMin, "Axis Maximum Value must be >= Minimum" + TeeConst_TeeMsg_AxisLogBase, "Axis Logarithmic Base should be >= 2" + TeeConst_TeeMsg_MaxPointsPerPage, "MaxPointsPerPage must be >= 0" + TeeConst_TeeMsg_3dPercent, "3D effect percent must be between %d and %d" + TeeConst_TeeMsg_CircularSeries, "Circular Series dependences are not allowed" + TeeConst_TeeMsg_BarWidthPercent, "Bar Width Percent must be between 1 and 100" + MidConst_SFieldConstFail, "Preparation of field constraint failed with error \"%s\"" + MidConst_SDefExprFail, "Preparation of default expression failed with error \"%s\"" + MidConst_SNoEditsAllowed, "Modifications are not allowed" + MidConst_SNoDeletesAllowed, "Deletes are not allowed" + MidConst_SNoInsertsAllowed, "Inserts are not allowed" + MidConst_SConnectionMissing, "Requires Connection before opening" + MidConst_SNoCircularConnection, "Circular reference to Connection not allowed" + OleConst_SLinkProperties, "Link Properties" + OleConst_SInvalidLinkSource, "Cannot link to an invalid source." + OleConst_SCannotBreakLink, "Break link operation is not supported." + OleConst_SEmptyContainer, "Operation not allowed on an empty OLE container" + OleConst_SInvalidVerb, "Invalid object verb" + OleConst_SPropDlgCaption, "%s Properties" + OleConst_SInvalidStreamFormat, "Invalid stream format" + TeeConst_TeeMsg_LegendTopPos, "Top Legend Position must be between 0 and 100 %" + TeeConst_TeeMsg_LegendFirstValue, "First Legend Value must be > 0" + VDBConsts_SCancelEdit, "Cancel edit" + VDBConsts_SRefreshRecord, "Refresh data" + VDBConsts_SDataSourceFixed, "Operation not allowed in a DBCtrlGrid" + VDBConsts_SPropDefByLookup, "Property already defined by lookup field" + VDBConsts_SRemoteLogin, "Remote Login" + MidConst_SNoDataProvider, "Missing data provider or data packet" + MidConst_SInvalidDataPacket, "Invalid data packet" + MidConst_SRefreshError, "Must apply updates before refreshing data" + MidConst_SNoCircularReference, "Circular provider references not allowed" + MidConst_SErrorLoadingMidas, "Error loading MIDAS.DLL" + MidConst_SCannotCreateDataSet, "No fields defined. Cannot create dataset" + MidConst_SNoConnectToBroker, "Connection not allowed to TConnectionBroker" + MidConst_SNoParentConnection, "ParentConnection is not assigned" + MidConst_SConstraintFailed, "Record or field constraint failed." + MidConst_SField, "Field" + MidConst_SRecConstFail, "Preparation of record constraint failed with error \"%s\"" + cxEditConsts_scxRegExprMissing, "Missing '%s'" + cxEditConsts_scxRegExprUnnecessary, "Unnecessary '%s'" + cxEditConsts_scxRegExprIncorrectSpace, "The space character is not allowed after '\\'" + cxEditConsts_scxRegExprNotCompiled, "Regular expression is not compiled" + cxEditConsts_scxRegExprIncorrectParameterQuantifier, "Incorrect parameter quantifier" + cxEditConsts_scxRegExprCantUseParameterQuantifier, "The parameter quantifier cannot be applied here" + cxEditConsts_scxMaskEditRegExprError, "Regular expression errors:" + cxEditConsts_scxMaskEditInvalidEditValue, "The edit value is invalid" + VDBConsts_SFirstRecord, "First record" + VDBConsts_SPriorRecord, "Prior record" + VDBConsts_SNextRecord, "Next record" + VDBConsts_SLastRecord, "Last record" + VDBConsts_SInsertRecord, "Insert record" + VDBConsts_SDeleteRecord, "Delete record" + VDBConsts_SEditRecord, "Edit record" + VDBConsts_SPostEdit, "Post edit" + cxEditConsts_scxRegExprLine, "Line" + cxEditConsts_scxRegExprChar, "Char" + cxEditConsts_scxRegExprNotAssignedSourceStream, "The source stream is not assigned" + cxEditConsts_scxRegExprEmptySourceStream, "The source stream is empty" + cxEditConsts_scxRegExprCantUsePlusQuantifier, "The '+' quantifier cannot be applied here" + cxEditConsts_scxRegExprCantUseStarQuantifier, "The '*' quantifier cannot be applied here" + cxEditConsts_scxRegExprCantCreateEmptyAlt, "The alternative should not be empty" + cxEditConsts_scxRegExprCantCreateEmptyBlock, "The block should not be empty" + cxEditConsts_scxRegExprIllegalSymbol, "Illegal '%s'" + cxEditConsts_scxRegExprIllegalQuantifier, "Illegal quantifier '%s'" + cxEditConsts_scxRegExprIllegalIntegerValue, "Illegal integer value" + cxEditConsts_scxRegExprTooBigReferenceNumber, "Too big reference number" + cxEditConsts_scxRegExprCantCreateEmptyEnum, "Can't create empty enumeration" + cxEditConsts_scxRegExprSubrangeOrder, "The starting character of the subrange must be less than the finishing one" + cxEditConsts_scxRegExprHexNumberExpected0, "Hexadecimal number expected" + cxEditConsts_scxRegExprHexNumberExpected, "Hexadecimal number expected but '%s' found" + cxEditConsts_cxSDateThursday, "Thursday" + cxEditConsts_cxSDateFriday, "Friday" + cxEditConsts_cxSDateSaturday, "Saturday" + cxEditConsts_cxSDateFirst, "first" + cxEditConsts_cxSDateSecond, "second" + cxEditConsts_cxSDateThird, "third" + cxEditConsts_cxSDateFourth, "fourth" + cxEditConsts_cxSDateFifth, "fifth" + cxEditConsts_cxSDateSixth, "sixth" + cxEditConsts_cxSDateSeventh, "seventh" + cxEditConsts_cxSDateBOM, "bom" + cxEditConsts_cxSDateEOM, "eom" + cxEditConsts_cxSDateNow, "now" + cxEditConsts_scxSEditRepositoryButtonItem, "ButtonEdit|Represents an edit control with embedded buttons" + cxEditConsts_scxSEditRepositoryMaskItem, "MaskEdit|Represents a generic masked edit control." + cxEditConsts_scxSEditRepositoryTextItem, "TextEdit|Represents a single line text editor" + pnglang_EPNGCannotAddInvalidImageText, "It's not allowed to add a new chunk because the current image is invalid." + pnglang_EPNGOutMemoryText, "Some operation could not be performed because the system is out of resources. Close some windows and try again." + pnglang_EPNGHeaderNotPresentText, "This operation is not valid because the current image contains no valid header." + cxDataConsts_cxSDataReadError, "Stream read error" + cxDataConsts_cxSDataWriteError, "Stream write error" + cxEditConsts_cxSEditInvalidRepositoryItem, "The repository item is not acceptable" + cxEditConsts_cxSEditNumericValueConvertError, "Could not convert to numeric value" + cxEditConsts_cxSEditValidateErrorText, "Invalid input value. Use escape key to abandon changes" + cxEditConsts_cxSEditValueOutOfBounds, "Value out of bounds" + cxEditConsts_cxSDateToday, "today" + cxEditConsts_cxSDateYesterday, "yesterday" + cxEditConsts_cxSDateTomorrow, "tomorrow" + cxEditConsts_cxSDateSunday, "Sunday" + cxEditConsts_cxSDateMonday, "Monday" + cxEditConsts_cxSDateTuesday, "Tuesday" + cxEditConsts_cxSDateWednesday, "Wednesday" + pnglang_EPNGInvalidIHDRText, "The \"Portable Network Graphics\" image could not be loaded because one of its main piece of data (ihdr) might be corrupted" + pnglang_EPNGMissingMultipleIDATText, "This \"Portable Network Graphics\" image is invalid because it has missing image parts." + pnglang_EPNGZLIBErrorText, "Could not decompress the image because it contains invalid compressed data.\r\n Description: " + pnglang_EPNGInvalidPaletteText, "The \"Portable Network Graphics\" image contains an invalid palette." + pnglang_EPNGInvalidFileHeaderText, "The file being readed is not a valid \"Portable Network Graphics\" image because it contains an invalid header. This file may be corruped, try obtaining it again." + pnglang_EPNGIHDRNotFirstText, "This \"Portable Network Graphics\" image is not supported or it might be invalid.\r\n(IHDR chunk is not the first)" + pnglang_EPNGSizeExceedsText, "This \"Portable Network Graphics\" image is not supported because either it's width or height exceeds the maximum size, which is 65535 pixels length." + pnglang_EPNGUnknownPalEntryText, "There is no such palette entry." + pnglang_EPNGUnknownCriticalChunkText, "This \"Portable Network Graphics\" image contains an unknown critical part which could not be decoded." + pnglang_EPNGUnknownCompressionText, "This \"Portable Network Graphics\" image is encoded with an unknown compression scheme which could not be decoded." + pnglang_EPNGUnknownInterlaceText, "This \"Portable Network Graphics\" image uses an unknown interlace scheme which could not be decoded." + pnglang_EPNGCannotAssignChunkText, "The chunks must be compatible to be assigned." + pnglang_EPNGUnexpectedEndText, "This \"Portable Network Graphics\" image is invalid because the decoder found an unexpected end of the file." + pnglang_EPNGNoImageDataText, "This \"Portable Network Graphics\" image contains no data." + pnglang_EPNGCannotChangeSizeText, "The \"Portable Network Graphics\" image can not be resize by changing width and height properties. Try assigning the image from a bitmap." + pnglang_EPNGCannotAddChunkText, "The program tried to add a existent critical chunk to the current image which is not allowed." + IBXConst_SNoDestinationDirectory, "DestinationDirectory is not set" + IBXConst_SNosourceDirectory, "SourceDirectory is not set" + IBXConst_SNoUninstallFile, "Uninstall File Name is not set" + IBXConst_SOptionNeedsClient, "%s component requires Client to function properly" + IBXConst_SOptionNeedsServer, "%s component requires Server to function properly" + IBXConst_SInvalidOption, "Invalid option specified" + IBXConst_SInvalidOnErrorResult, "Unexpected onError return value" + IBXConst_SInvalidOnStatusResult, "Unexpected onStatus return value" + IBXConst_SDPBConstantUnknownEx, "DPB Constant (%s) is unknown" + IBXConst_STPBConstantUnknownEx, "TPB Constant (%s) is unknown" + IBXConst_SUnknownPlan, "Unknown Error - Can't retrieve plan" + IBXConst_SFieldSizeMismatch, "Size Mismatch - Field %s size is too small for data" + IBXConst_SEventAlreadyRegistered, "Events already registered" + IBXConst_SStringTooLarge, "Trying to store a string of length %d into a field that can only contain %d" + IBXConst_SNoTimers, "Not enough timers available" + pnglang_EPngInvalidCRCText, "This \"Portable Network Graphics\" image is not valid because it contains invalid pieces of data (crc error)" + IBXConst_SServiceActive, "Cannot perform operation -- service is not attached" + IBXConst_SServiceInActive, "Cannot perform operation -- service is attached" + IBXConst_SServerNameMissing, "Server Name Missing" + IBXConst_SQueryParamsError, "Query Parameters missing or incorrect" + IBXConst_SStartParamsError, "start Parameters missing or incorrect" + IBXConst_SOutputParsingError, "Unexpected Output buffer value" + IBXConst_SUseSpecificProcedures, "Generic ServiceStart not applicable: Use Specific Procedures to set configuration params" + IBXConst_SSQLMonitorAlreadyPresent, "SQL Monitor Instance is already present" + IBXConst_SCantPrintValue, "Cannot print value" + IBXConst_SEOFReached, "SEOFReached" + IBXConst_SEOFInComment, "EOF in comment detected" + IBXConst_SEOFInString, "EOF in string detected" + IBXConst_SParamNameExpected, "Parameter name expected" + IBXConst_SSuccess, "Successful execution" + IBXConst_SDelphiException, "DelphiException %s" + IBXConst_SNoOptionsSet, "No Install Options selected" + IBXConst_SNoRecordsAffected, "No Records Affected" + IBXConst_SNoTableName, "No Table Name assigned" + IBXConst_SCannotCreatePrimaryIndex, "Cannot Create Primary Index; are created automatically" + IBXConst_SCannotDropSystemIndex, "Cannot Drop System Index" + IBXConst_STableNameMismatch, "Table Name Mismatch" + IBXConst_SIndexFieldMissing, "Index Field Missing" + IBXConst_SInvalidCancellation, "Cannot Cancel events while processing" + IBXConst_SInvalidEvent, "Invalid Event" + IBXConst_SMaximumEvents, "Exceded Maximum Event limits" + IBXConst_SNoEventsRegistered, "No Events Registered" + IBXConst_SInvalidQueueing, "Invalid Queueing" + IBXConst_SInvalidRegistration, "Invalid Registration" + IBXConst_SInvalidBatchMove, "Invalid Batch Move" + IBXConst_SSQLDialectInvalid, "SQL Dialect Invalid" + IBXConst_SSPBConstantNotSupported, "SPB Constant Not supported" + IBXConst_SSPBConstantUnknown, "SPB Constant Unknown" + IBXConst_SCannotCreateSharedResource, "Cannot create shared resource. (Windows error %d)" + IBXConst_SWindowsAPIError, "Windows API error. (Windows error %d [$%.8x])" + IBXConst_SColumnListsDontMatch, "Column lists do not match" + IBXConst_SColumnTypesDontMatch, "Column types don't match. (From index: %d; To index: %d)" + IBXConst_SCantEndSharedTransaction, "Can't end a shared transaction unless it is forced and equal to the transaction's TimeoutAction" + IBXConst_SFieldUnsupportedType, "Unsupported Field Type" + IBXConst_SCircularDataLink, "Circular DataLink Reference" + IBXConst_SEmptySQLStatement, "Empty SQL Statement" + IBXConst_SIsASelectStatement, "use Open for a Select Statement" + IBXConst_SRequiredParamNotSet, "Required Param value not set" + IBXConst_SNoStoredProcName, "No Stored Procedure Name assigned" + IBXConst_SIsAExecuteProcedure, "use ExecProc for Procedure; use TQuery for Select procedures" + IBXConst_SUpdateFailed, "Update Failed" + IBXConst_SNotCachedUpdates, "CachedUpdates not enabled" + IBXConst_SNotLiveRequest, "Request is not live - cannot modify" + IBXConst_SNoProvider, "No Provider" + IBXConst_SEmptyQuery, "Empty query" + IBXConst_SCannotOpenNonSQLSelect, "Cannot \"open\" a non-select statement. Use ExecQuery" + IBXConst_SNoFieldAccess, "No access to field \"%s\"" + IBXConst_SFieldReadOnly, "Field \"%s\" is read-only" + IBXConst_SFieldNotFound, "Field \"%s\" not found" + IBXConst_SNotEditing, "Not in edit mode" + IBXConst_SCannotInsert, "Cannot insert into dataset. (No insert query)" + IBXConst_SCannotPost, "Cannot post. (No update/insert query)" + IBXConst_SCannotUpdate, "Cannot update. (No update query)" + IBXConst_SCannotDelete, "Cannot delete from dataset. (No delete query)" + IBXConst_SCannotRefresh, "Cannot refresh row. (No refresh query)" + IBXConst_SBufferNotSet, "Buffer not set" + IBXConst_SCircularReference, "Circular references not permitted" + IBXConst_SSQLParseError, "SQL Parse Error:\r\n\r\n%s" + IBXConst_SUserAbort, "User abort" + IBXConst_SDataSetUniDirectional, "Data set is uni-directional" + IBXConst_SXSQLDAIndexOutOfRange, "XSQLDA index out of range" + IBXConst_SXSQLDANameDoesNotExist, "XSQLDA name does not exist (%s)" + IBXConst_SEOF, "End of file" + IBXConst_SBOF, "Beginning of file" + IBXConst_SInvalidStatementHandle, "Invalid statement handle" + IBXConst_SSQLOpen, "IBSQL Open" + IBXConst_SSQLClosed, "IBSQL Closed" + IBXConst_SDatasetOpen, "Dataset open" + IBXConst_SDatasetClosed, "Dataset closed" + IBXConst_SUnknownSQLDataType, "Unknown SQL Data type (%d)" + IBXConst_SInvalidColumnIndex, "Invalid column index (index exceeds permitted range)" + IBXConst_SInvalidParamColumnIndex, "Invalid parameter index (index exceeds permitted range)" + IBXConst_SInvalidDataConversion, "Invalid data conversion" + IBXConst_SColumnIsNotNullable, "Column cannot be set to null (%s)" + IBXConst_SBlobCannotBeRead, "Blob stream cannot be read" + IBXConst_SBlobCannotBeWritten, "Blob stream cannot be written" + IBXConst_SOperationCancelled, "Operation cancelled at user's request" + IBXConst_SDPBConstantNotSupported, "DPB Constant (isc_dpb_%s) is unsupported" + IBXConst_SDPBConstantUnknown, "DPB Constant (%d) is unknown" + IBXConst_STPBConstantNotSupported, "TPB Constant (isc_tpb_%s) is unsupported" + IBXConst_STPBConstantUnknown, "TPB Constant (%d) is unknown" + IBXConst_SDatabaseClosed, "Cannot perform operation -- DB is not open" + IBXConst_SDatabaseOpen, "Cannot perform operation -- DB is currently open" + IBXConst_SDatabaseNameMissing, "Database name is missing" + IBXConst_SNotInTransaction, "Transaction is not active" + IBXConst_SInTransaction, "Transaction is active" + IBXConst_STimeoutNegative, "Timeout values cannot be negative" + IBXConst_SNoDatabasesInTransaction, "No databases are listed in transaction component" + IBXConst_SUpdateWrongDB, "Updating wrong database" + IBXConst_SUpdateWrongTR, "Updating wrong transaction. Unique transaction expected in set" + IBXConst_SDatabaseNotAssigned, "Database not assigned" + IBXConst_STransactionNotAssigned, "Transaction not assigned" + uDARes_err_DARDMInvalidSchema, "Schema must be assigned and must point to a ConnectionManager" + uDARes_err_DARDMUnassignedAdapter, "DataAdapter is not assigned" + uDARes_err_DARDMConnectionIsNotAssigned, "Connection is not assigned" + uDARes_err_DARDMCannotFindProxessorForDelta, "Cannot find a business processor for delta \"%s\"" + uDARes_err_NeedShareMem, "To use dynamically loaded drivers, you must build your application with ShareMem." + uDARes_err_ExecuteSQLCommandNotAllowed, "ExecuteSQLCommand is not enabled for this server." + IBXConst_SUnknownError, "Unknown error" + IBXConst_SInterBaseMissing, "InterBase library gds32.dll not found in the path. Please install InterBase to use this functionality" + IBXConst_SInterBaseInstallMissing, "InterBase Install DLL ibinstall.dll not found in the path. Please install InterBase 6 to use this functionality" + IBXConst_SIB60feature, "%s is an InterBase 6 function. Please upgrade to InterBase 6 to use this functonality" + IBXConst_SNotSupported, "Unsupported feature" + IBXConst_SNotPermitted, "Not permitted" + IBXConst_SFileAccessError, "Temporary file access error" + IBXConst_SConnectionTimeout, "Database connection timed out" + IBXConst_SCannotSetDatabase, "Cannot set database" + IBXConst_SCannotSetTransaction, "Cannot set transaction" + uDARes_err_FieldTypeNotSupported, "FieldType %s (%d) is not supported" + uDARes_err_InvalidDataset, "Invalid or NIL dataset" + uDARes_err_CannotFindItem, "Cannot find %s \"%s\" in collection of type %s" + uDARes_err_DriverAlreadyLoaded, "Driver %s is already loaded" + uDARes_err_InvalidDLL, "%s is not a valid Data Abstract driver" + uDARes_err_UnknownDriver, "Unknown driver %s" + uDARes_err_UnknownParameter, "Unknown parameter %s" + uDARes_err_FieldIsNotBound, "Field is not bound" + uDARes_err_CannotFindField, "Cannot find field %s" + uDARes_err_LoadPackageFailed, "LoadPackage failed for file %s" + uDARes_err_InvalidDriverReference, "The driver in %s could not be loaded" + uDARes_err_CannotFindStatement, "Cannot find statement %s for connection %s" + uDARes_err_CannotFindDefaultItem, "Cannot find default %s" + uDARes_err_PoolIsNotEmpty, "Cannot perform this operation when connections are pooled" + uDARes_err_MaxPoolSizeReached, "Maximum pool size reached. Cannot create a new connection" + uDARes_err_LAMEDataset, "%s does not implement IProviderSupport or implements it incorrectly" + DBConsts_SProviderExecuteNotSupported, "Execute not supported: %s" + DBConsts_SExprNoAggOnCalcs, "Field '%s' is not the correct type of calculated field to be used in an aggregate, use an internalcalc" + DBConsts_SDataSetUnidirectional, "Operation not allowed on a unidirectional dataset" + DBConsts_SUnassignedVar, "Unassigned variant value" + DBConsts_SRecordNotFound, "Record not found" + DBConsts_SFieldNameTooLarge, "Fieldname %s exceeds %d chars" + DBConsts_SBcdOverflow, "BCD overflow" + DBConsts_SInvalidBcdValue, "%s is not a valid BCD value" + DBConsts_SInvalidFormatType, "Invalid format type for BCD" + DBConsts_SCouldNotParseTimeStamp, "Could not parse SQL TimeStamp string" + DBConsts_SInvalidSqlTimeStamp, "Invalid SQL date/time values" + uDARes_err_ChangeLogAlreadyStarted, "StartChange has already been called; cannot log more than one change at a time." + uDARes_err_NotAttachedToDataTable, "Delta is not attached to a DataTable" + uDARes_err_DriverProcAlreadyRegistered, "DriverProc 0x%0.8x is already registered" + uDARes_err_DriverManagerAlreadyCreated, "An instance of a TDADriverManager was already initialized. Only one driver manager per module is allowed" + uDARes_err_DriverManagerNotAssigned, "Driver Manager is not assigned" + DBConsts_SExprNothing, "nothing" + DBConsts_SExprTypeMis, "Type mismatch in expression" + DBConsts_SExprBadScope, "Operation cannot mix aggregate value with record-varying value" + DBConsts_SExprNoArith, "Arithmetic in filter expressions not supported" + DBConsts_SExprNotAgg, "Expression is not an aggregate expression" + DBConsts_SExprBadConst, "Constant is not correct type %s" + DBConsts_SExprNoAggFilter, "Aggregate expressions not allowed in filters" + DBConsts_SExprEmptyInList, "IN predicate list may not be empty" + DBConsts_SInvalidKeywordUse, "Invalid use of keyword" + DBConsts_STextFalse, "False" + DBConsts_STextTrue, "True" + DBConsts_SParameterNotFound, "Parameter '%s' not found" + DBConsts_SInvalidVersion, "Unable to load bind parameters" + DBConsts_SBadFieldType, "Field '%s' is of an unsupported type" + DBConsts_SAggActive, "Property may not be modified while aggregate is active" + DBConsts_SProviderSQLNotSupported, "SQL not supported: %s" + DBConsts_SDataSetClosed, "Cannot perform this operation on a closed dataset" + DBConsts_SDataSetEmpty, "Cannot perform this operation on an empty dataset" + DBConsts_SDataSetReadOnly, "Cannot modify a read-only dataset" + DBConsts_SNestedDataSetClass, "Nested dataset must inherit from %s" + DBConsts_SExprTermination, "Filter expression incorrectly terminated" + DBConsts_SExprNameError, "Unterminated field name" + DBConsts_SExprStringError, "Unterminated string constant" + DBConsts_SExprInvalidChar, "Invalid filter expression character: '%s'" + DBConsts_SExprNoLParen, "'(' expected but %s found" + DBConsts_SExprNoRParen, "')' expected but %s found" + DBConsts_SExprNoRParenOrComma, "')' or ',' expected but %s found" + DBConsts_SExprExpected, "Expression expected but %s found" + DBConsts_SExprBadField, "Field '%s' cannot be used in a filter expression" + DBConsts_SExprBadNullTest, "NULL only allowed with '=' and '<>'" + DBConsts_SExprRangeError, "Constant out of range" + DBConsts_SExprIncorrect, "Incorrectly formed filter expression" + DBConsts_SFieldRequired, "Field '%s' must have a value" + DBConsts_SDataSetMissing, "Field '%s' has no dataset" + DBConsts_SInvalidCalcType, "Field '%s' cannot be a calculated or lookup field" + DBConsts_SFieldReadOnly, "Field '%s' cannot be modified" + DBConsts_SFieldIndexError, "Field index out of range" + DBConsts_SNoFieldIndexes, "No index currently active" + DBConsts_SNotIndexField, "Field '%s' is not indexed and cannot be modified" + DBConsts_SIndexFieldMissing, "Cannot access index field '%s'" + DBConsts_SNoIndexForFields, "No index for fields '%s'" + DBConsts_SIndexNotFound, "Index '%s' not found" + DBConsts_SCircularDataLink, "Circular datalinks are not allowed" + DBConsts_SLookupInfoError, "Lookup information for field '%s' is incomplete" + DBConsts_SDataSourceChange, "DataSource cannot be changed" + DBConsts_SNoNestedMasterSource, "Nested datasets cannot have a MasterSource" + DBConsts_SDataSetOpen, "Cannot perform this operation on an open dataset" + DBConsts_SNotEditing, "Dataset not in edit or insert mode" + DBConsts_SInvalidFieldKind, "Invalid FieldKind" + DBConsts_SUnknownFieldType, "Field '%s' is of an unknown type" + DBConsts_SFieldNameMissing, "Field name missing" + DBConsts_SDuplicateFieldName, "Duplicate field name '%s'" + DBConsts_SFieldNotFound, "Field '%s' not found" + DBConsts_SFieldAccessError, "Cannot access field '%s' as type %s" + DBConsts_SFieldValueError, "Invalid value for field '%s'" + DBConsts_SFieldRangeError, "%g is not a valid value for field '%s'. The allowed range is %g to %g" + DBConsts_SBcdFieldRangeError, "%s is not a valid value for field '%s'. The allowed range is %s to %s" + DBConsts_SInvalidIntegerValue, "'%s' is not a valid integer value for field '%s'" + DBConsts_SInvalidBoolValue, "'%s' is not a valid boolean value for field '%s'" + DBConsts_SInvalidFloatValue, "'%s' is not a valid floating point value for field '%s'" + DBConsts_SFieldTypeMismatch, "Type mismatch for field '%s', expecting: %s actual: %s" + DBConsts_SFieldSizeMismatch, "Size mismatch for field '%s', expecting: %d actual: %d" + DBConsts_SInvalidVarByteArray, "Invalid variant type or size for field '%s'" + DBConsts_SFieldOutOfRange, "Value of field '%s' is out of range" + JclResources_RsIntelCacheDescr7A, "2° Level cache, 256 KBytes, 8-way set associative, dual-sectored line, 64 Bytes sector size" + JclResources_RsIntelCacheDescr7B, "2° Level cache, 512 KBytes, 8-way set associative, dual-sectored line, 64 Bytes sector size" + JclResources_RsIntelCacheDescr7C, "2° Level cache, 1 MBytes, 8-way set associative, dual-sectored line, 64 Bytes sector size" + JclResources_RsIntelCacheDescr7D, "2° Level cache, 2 MByte, 8-way set associative, 64byte line size" + JclResources_RsIntelCacheDescr7F, "2° Level cache, 512 KByte, 2-way set associative, 64-byte line size" + JclResources_RsIntelCacheDescr82, "2° Level cache, 256 KBytes, 8-way associative, 32 Bytes line size" + JclResources_RsIntelCacheDescr83, "2° Level cache, 512 KBytes, 8-way associative, 32 Bytes line size" + JclResources_RsIntelCacheDescr84, "2° Level cache, 1 MBytes, 8-way associative, 32 Bytes line size" + JclResources_RsIntelCacheDescr85, "2° Level cache, 2 MBytes, 8-way associative, 32 Bytes line size" + JclResources_RsIntelCacheDescr86, "2° Level cache, 512 KByte, 4-way set associative, 64 byte line size" + JclResources_RsIntelCacheDescr87, "2° Level cache, 1 MByte, 8-way set associative, 64 byte line size" + JclResources_RsIntelCacheDescrB0, "Instruction TLB, 4 KByte Pages, 4-way set associative, 128 entries" + JclResources_RsIntelCacheDescrB3, "Data TLB, 4 KByte Pages, 4-way set associative, 128 entries" + JclResources_RsIntelCacheDescrF0, "64-Byte Prefetching" + JclResources_RsIntelCacheDescrF1, "128-Byte Prefetching" + DBConsts_SInvalidFieldSize, "Invalid field size" + JclResources_RsIntelCacheDescr45, "Unified cache, 32 byte cache line, 4-way set associative, 2Mb" + JclResources_RsIntelCacheDescr50, "Instruction TLB, 4 KBytes and 2 MBytes or 4 MBytes pages, 64 Entries" + JclResources_RsIntelCacheDescr51, "Instruction TLB, 4 KBytes and 2 MBytes or 4 MBytes pages, 128 Entries" + JclResources_RsIntelCacheDescr52, "Instruction TLB, 4 KBytes and 2 MBytes or 4 MBytes pages, 256 Entries" + JclResources_RsIntelCacheDescr5B, "Data TLB, 4 KBytes and 4 MBytes pages, 64 Entries" + JclResources_RsIntelCacheDescr5C, "Data TLB, 4 KBytes and 4 MBytes pages, 128 Entries" + JclResources_RsIntelCacheDescr5D, "Data TLB, 4 KBytes and 4 MBytes pages, 256 Entries" + JclResources_RsIntelCacheDescr60, "1° Level data cache: 16 KByte, 8-way set associative, 64 byte line size" + JclResources_RsIntelCacheDescr66, "1° Level Data cache, 8 KBytes, 4-way set associative, 64 Bytes line size" + JclResources_RsIntelCacheDescr67, "1° Level Data cache, 16 KBytes, 4-way set associative, 64 Bytes line size" + JclResources_RsIntelCacheDescr68, "1° Level Data cache, 32 KBytes, 4-way set associative, 64 Bytes line size" + JclResources_RsIntelCacheDescr70, "Trace cache, 12 KµOps, 8-way set associative" + JclResources_RsIntelCacheDescr71, "Trace cache, 16 KµOps, 8-way set associative" + JclResources_RsIntelCacheDescr72, "Trace cache, 32 KµOps, 8-way set associative" + JclResources_RsIntelCacheDescr78, "2° Level cache, 1 MBytes, 4-way set associative, 64 Bytes line size" + JclResources_RsIntelCacheDescr79, "2° Level cache, 128 KBytes, 8-way set associative, dual-sectored line, 64 Bytes sector size" + JclResources_RsIntelCacheDescr04, "Data TLB, 4Mb pages, 4-way set associative, 8 entries" + JclResources_RsIntelCacheDescr06, "8KB instruction cache, 4-way set associative, 32 byte line size" + JclResources_RsIntelCacheDescr08, "16KB instruction cache, 4-way set associative, 32 byte line size" + JclResources_RsIntelCacheDescr0A, "8KB data cache 2-way set associative, 32 byte line size" + JclResources_RsIntelCacheDescr0C, "16KB data cache, 4-way set associative, 32 byte line size" + JclResources_RsIntelCacheDescr22, "3° Level cache, 512 KBytes, 4-way set associative, 2 lines per sector, 128 byte sector size" + JclResources_RsIntelCacheDescr23, "3° Level cache, 1 MBytes, 8-way set associative, 2 lines per sector, 128 byte sector size" + JclResources_RsIntelCacheDescr25, "3° Level cache, 2 MBytes, 8-way set associative, 2 lines per sector, 128 byte line size" + JclResources_RsIntelCacheDescr29, "3° Level cache, 4M Bytes, 8-way set associative, 2 lines per sector, 128 byte line size" + JclResources_RsIntelCacheDescr2C, "1° Level data cache: 32K Bytes, 8-way set associative, 64 byte line size" + JclResources_RsIntelCacheDescr30, "1° Level instruction cache: 32K Bytes, 8-way set associative, 64 byte line size" + JclResources_RsIntelCacheDescr40, "No L2 cache" + JclResources_RsIntelCacheDescr41, "Unified cache, 32 byte cache line, 4-way set associative, 128Kb" + JclResources_RsIntelCacheDescr42, "Unified cache, 32 byte cache line, 4-way set associative, 256Kb" + JclResources_RsIntelCacheDescr43, "Unified cache, 32 byte cache line, 4-way set associative, 512Kb" + JclResources_RsIntelCacheDescr44, "Unified cache, 32 byte cache line, 4-way set associative, 1Mb" + JclResources_RsRTTIBasedOn, "Based on: " + JclResources_RsRTTIFloatType, "Float type: " + JclResources_RsRTTIMethodKind, "Method kind: " + JclResources_RsRTTIParamCount, "Parameter count: " + JclResources_RsRTTIReturnType, "Return type: " + JclResources_RsRTTIMaxLen, "Max length: " + JclResources_RsRTTIElSize, "Element size: " + JclResources_RsRTTIElType, "Element type: " + JclResources_RsRTTIElNeedCleanup, "Elements need clean up: " + JclResources_RsRTTIVarType, "Variant type: " + JclResources_RsDeclarationFormat, "// Declaration for '%s' not supported." + JclResources_RsBlankSearchString, "Search string cannot be blank" + JclResources_RsIntelCacheDescr00, "Null descriptor" + JclResources_RsIntelCacheDescr01, "Instruction TLB, 4Kb pages, 4-way set associative, 32 entries" + JclResources_RsIntelCacheDescr02, "Instruction TLB, 4Mb pages, fully associative, 2 entries" + JclResources_RsIntelCacheDescr03, "Data TLB, 4Kb pages, 4-way set associative, 64 entries" + JclResources_RsRTTIVirtualMethod, "virtual method" + JclResources_RsRTTIIndex, "index" + JclResources_RsRTTIDefault, "default" + JclResources_RsRTTIName, "Name: " + JclResources_RsRTTIType, "Type: " + JclResources_RsRTTIFlags, "Flags: " + JclResources_RsRTTIGUID, "GUID: " + JclResources_RsRTTITypeKind, "Type kind: " + JclResources_RsRTTIOrdinalType, "Ordinal type: " + JclResources_RsRTTIMinValue, "Min value: " + JclResources_RsRTTIMaxValue, "Max value: " + JclResources_RsRTTINameList, "Names: " + JclResources_RsRTTIClassName, "Class name: " + JclResources_RsRTTIParent, "Parent: " + JclResources_RsRTTIPropCount, "Property count: " + JclResources_RsRTTIUnitName, "Unit name: " + JclResources_RsRTTIValueOutOfRange, "Value out of range (%s)." + JclResources_RsRTTIUnknownIdentifier, "Unknown identifier '%s'." + JclResources_RsRTTIVar, "var " + JclResources_RsRTTIConst, "const " + JclResources_RsRTTIArrayOf, "array of " + JclResources_RsRTTIOut, "out " + JclResources_RsRTTIOrdinal, "ordinal=" + JclResources_RsRTTITrue, "True" + JclResources_RsRTTIFalse, "False" + JclResources_RsRTTITypeError, "???" + JclResources_RsRTTITypeInfoAt, "Type info: %p" + JclResources_RsRTTIPropRead, "read" + JclResources_RsRTTIPropWrite, "write" + JclResources_RsRTTIPropStored, "stored" + JclResources_RsRTTIField, "field" + JclResources_RsRTTIStaticMethod, "static method" + JvResources_RsClBtnHighlight, "Button highlight" + JvResources_RsCl3DDkShadow, "Dark shadow 3D elements" + JvResources_RsCl3DLight, "Highlight 3D elements" + JvResources_RsClInfoText, "Tooltip text" + JvResources_RsClInfoBk, "Tooltip background" + JvResources_RsGradientActiveCaption, "Gradient Active Caption" + JvResources_RsGradientInactiveCaption, "Gradient Inactive Caption" + JvResources_RsHotLight, "Hot Light" + JvResources_RsMenuBar, "Menu Bar" + JvResources_RsMenuHighlight, "Menu Highlight" + JclResources_RsFileUtilsNoVersionInfo, "File contains no version information" + JclResources_RsUnableToOpenKeyRead, "Unable to open key \"%s\" for read" + JclResources_RsUnableToOpenKeyWrite, "Unable to open key \"%s\" for write" + JclResources_RsUnableToAccessValue, "Unable to open key \"%s\" and access value \"%s\"" + JclResources_RsWrongDataType, "\"%s\\%s\" is of wrong kind or size" + JclResources_RsInconsistentPath, "\"%s\" does not match RootKey" + JvResources_RsClMenu, "Menu background" + JvResources_RsClWindow, "Window background" + JvResources_RsClWindowFrame, "Window frame" + JvResources_RsClMenuText, "Menu text" + JvResources_RsClWindowText, "Window text" + JvResources_RsClCaptionText, "Active window title bar text" + JvResources_RsClActiveBorder, "Active window border" + JvResources_RsClInactiveBorder, "Inactive window border" + JvResources_RsClAppWorkSpace, "Application workspace" + JvResources_RsClHighlight, "Selection background" + JvResources_RsClHighlightText, "Selection text" + JvResources_RsClBtnFace, "Button face" + JvResources_RsClBtnShadow, "Button shadow" + JvResources_RsClGrayText, "Dimmed text" + JvResources_RsClBtnText, "Button text" + JvResources_RsClInactiveCaptionText, "Inactive window title bar text" + JvResources_RsClGold, "Gold" + JvResources_RsClBrightGreen, "Bright Green" + JvResources_RsClTurquoise, "Turquoise" + JvResources_RsClPlum, "Plum" + JvResources_RsClGray25, "Gray 25%" + JvResources_RsClRose, "Rose" + JvResources_RsClTan, "Tan" + JvResources_RsClLightYellow, "Light Yellow" + JvResources_RsClLightGreen, "Light Green" + JvResources_RsClLightTurquoise, "Light Turquoise" + JvResources_RsClPaleBlue, "Pale Blue" + JvResources_RsClLavender, "Lavender" + JvResources_RsClScrollBar, "Scrollbar" + JvResources_RsClBackground, "Desktop background" + JvResources_RsClActiveCaption, "Active window title bar" + JvResources_RsClInactiveCaption, "Inactive window title bar" + JvResources_RsClDarkGreen, "Dark Green" + JvResources_RsClDarkTeal, "Dark Teal" + JvResources_RsClDarkBlue, "Dark Blue" + JvResources_RsClIndigo, "Indigo" + JvResources_RsClGray80, "Gray 80%" + JvResources_RsClDarkRed, "Dark Red" + JvResources_RsClOrange, "Orange" + JvResources_RsClDarkYellow, "Dark Yellow" + JvResources_RsClBlueGray, "Blue Gray" + JvResources_RsClGray50, "Gray 50%" + JvResources_RsClLightOrange, "Light Orange" + JvResources_RsClSeaGreen, "Sea Green" + JvResources_RsClLightBlue, "Light Blue" + JvResources_RsClViolet, "Violet" + JvResources_RsClGray40, "Gray 40%" + JvResources_RsClPink, "Pink" + JvResources_RsClTeal, "Teal" + JvResources_RsClGray, "Gray" + JvResources_RsClSilver, "Silver" + JvResources_RsClRed, "Red" + JvResources_RsClLime, "Lime" + JvResources_RsClYellow, "Yellow" + JvResources_RsClBlue, "Blue" + JvResources_RsClFuchsia, "Fuchsia" + JvResources_RsClAqua, "Aqua" + JvResources_RsClWhite, "White" + JvResources_RsClMoneyGreen, "Money green" + JvResources_RsClSkyBlue, "Sky blue" + JvResources_RsClCream, "Cream" + JvResources_RsClMedGray, "Medium gray" + JvResources_RsClBrown, "Brown" + JvResources_RsClOliveGreen, "Olive Green" + JvResources_RsENoGIFData, "No GIF Data to write" + JvResources_RsEUnrecognizedGIFExt, "Unrecognized extension block: %.2x" + JvResources_RsEWrongGIFColors, "Wrong number of colors; must be a power of 2" + JvResources_RsEBadGIFCodeSize, "GIF code size not in range 2 to 9" + JvResources_RsEGIFDecodeError, "GIF encoded data is corrupt" + JvResources_RsEGIFEncodeError, "GIF image encoding error" + JvResources_RsEGIFVersion, "Unknown GIF version" + JvResources_RsYourTextHereCaption, "Put your text here ..." + JvResources_RsEPixelFormatNotImplemented, "BitmapToMemoryStream: pixel format not implemented" + JvResources_RsEBitCountNotImplemented, "BitmapToMemoryStream: bit count not implemented" + JvResources_RsClBlack, "Black" + JvResources_RsClMaroon, "Maroon" + JvResources_RsClGreen, "Green" + JvResources_RsClOlive, "Olive green" + JvResources_RsClNavy, "Navy blue" + JvResources_RsClPurple, "Purple" + IdResourceStrings_RSThreadTerminateAndWaitFor, "Cannot call TerminateAndWaitFor on FreeAndTerminate threads" + JConsts_sChangeJPGSize, "Cannot change the size of a JPEG image" + JConsts_sJPEGError, "JPEG error #%d" + JConsts_sJPEGImageFile, "JPEG Image File" + JvResources_RsAniExtension, "ani" + JvResources_RsAniFilterName, "ANI Image" + JvResources_RsRootValueReplaceFmt, "The Default Root Value \"%0:s\" has been replaced with \"%1:s\".\r\nPlease change the value in the FileVersionInfo Project Properties." + JvResources_RsEUnableToCreateKey, "Unable to create key '%s'" + JvResources_RsEEnumeratingRegistry, "Error enumerating registry" + JvResources_RsEInvalidType, "Invalid type" + JvResources_RsEUnknownBaseType, "Unknown base type for given set" + JvResources_RsEInvalidPath, "Invalid path" + JvResources_RsENotAUniqueRootPath, "'%s' is not a unique root path" + JvResources_RsECircularReferenceOfStorages, "Circular reference of storages" + JvResources_RsGIFImage, "CompuServe GIF Image" + JvResources_RsEChangeGIFSize, "Cannot change the Size of a GIF image" + IdResourceStrings_RSSocksRequestServerFailed, "Request rejected because SOCKS server cannot connect." + IdResourceStrings_RSSocksRequestIdentFailed, "Request rejected because the client program and identd report different user-ids." + IdResourceStrings_RSSocksUnknownError, "Unknown socks error." + IdResourceStrings_RSSocksServerRespondError, "Socks server did not respond." + IdResourceStrings_RSSocksAuthMethodError, "Invalid socks authentication method." + IdResourceStrings_RSSocksAuthError, "Authentication error to socks server." + IdResourceStrings_RSSocksServerGeneralError, "General SOCKS server failure." + IdResourceStrings_RSSocksServerPermissionError, "Connection not allowed by ruleset." + IdResourceStrings_RSSocksServerNetUnreachableError, "Network unreachable." + IdResourceStrings_RSSocksServerHostUnreachableError, "Host unreachable." + IdResourceStrings_RSSocksServerConnectionRefusedError, "Connection refused." + IdResourceStrings_RSSocksServerTTLExpiredError, "TTL expired." + IdResourceStrings_RSSocksServerCommandError, "Command not supported." + IdResourceStrings_RSSocksServerAddressError, "Address type not supported." + IdResourceStrings_RSUnevenSizeInDecodeStream, "Uneven size in DecodeToStream." + IdResourceStrings_RSUnevenSizeInEncodeStream, "Uneven size in Encode." + IdResourceStrings_RSStackECONNABORTED, "Software caused connection abort." + IdResourceStrings_RSStackECONNRESET, "Connection reset by peer." + IdResourceStrings_RSStackENOBUFS, "No buffer space available." + IdResourceStrings_RSStackEISCONN, "Socket is already connected." + IdResourceStrings_RSStackENOTCONN, "Socket is not connected." + IdResourceStrings_RSStackESHUTDOWN, "Cannot send or receive after socket is closed." + IdResourceStrings_RSStackETOOMANYREFS, "Too many references, cannot splice." + IdResourceStrings_RSStackETIMEDOUT, "Connection timed out." + IdResourceStrings_RSStackECONNREFUSED, "Connection refused." + IdResourceStrings_RSStackELOOP, "Too many levels of symbolic links." + IdResourceStrings_RSStackENAMETOOLONG, "File name too long." + IdResourceStrings_RSStackEHOSTDOWN, "Host is down." + IdResourceStrings_RSStackEHOSTUNREACH, "No route to host." + IdResourceStrings_RSStackENOTEMPTY, "Directory not empty" + IdResourceStrings_RSStackHOST_NOT_FOUND, "Host not found." + IdResourceStrings_RSSocksRequestFailed, "Request rejected or failed." + IdResourceStrings_RSStackEALREADY, "Operation already in progress." + IdResourceStrings_RSStackENOTSOCK, "Socket operation on non-socket." + IdResourceStrings_RSStackEDESTADDRREQ, "Destination address required." + IdResourceStrings_RSStackEMSGSIZE, "Message too long." + IdResourceStrings_RSStackEPROTOTYPE, "Protocol wrong type for socket." + IdResourceStrings_RSStackENOPROTOOPT, "Bad protocol option." + IdResourceStrings_RSStackEPROTONOSUPPORT, "Protocol not supported." + IdResourceStrings_RSStackESOCKTNOSUPPORT, "Socket type not supported." + IdResourceStrings_RSStackEOPNOTSUPP, "Operation not supported on socket." + IdResourceStrings_RSStackEPFNOSUPPORT, "Protocol family not supported." + IdResourceStrings_RSStackEAFNOSUPPORT, "Address family not supported by protocol family." + IdResourceStrings_RSStackEADDRINUSE, "Address already in use." + IdResourceStrings_RSStackEADDRNOTAVAIL, "Cannot assign requested address." + IdResourceStrings_RSStackENETDOWN, "Network is down." + IdResourceStrings_RSStackENETUNREACH, "Network is unreachable." + IdResourceStrings_RSStackENETRESET, "Net dropped connection or reset." + IdResourceStrings_RSHTTPUnknownResponseCode, "Unknown Response Code" + IdResourceStrings_RSHTTPHeaderAlreadyWritten, "Header has already been written." + IdResourceStrings_RSHTTPErrorParsingCommand, "Error in parsing command." + IdResourceStrings_RSHTTPUnsupportedAuthorisationScheme, "Unsupported authorization scheme." + IdResourceStrings_RSHTTPCannotSwitchSessionStateWhenActive, "Cannot change session state when the server is active." + IdResourceStrings_RSHTTPAuthAlreadyRegistered, "This authentication method is already registered with class name %s." + IdResourceStrings_RSInvalidServiceName, "%s is not a valid service." + IdResourceStrings_RSStackError, "Socket Error # %d\r\n%s" + IdResourceStrings_RSStackEINTR, "Interrupted system call." + IdResourceStrings_RSStackEBADF, "Bad file number." + IdResourceStrings_RSStackEACCES, "Access denied." + IdResourceStrings_RSStackEFAULT, "Bad address." + IdResourceStrings_RSStackEINVAL, "Invalid argument." + IdResourceStrings_RSStackEMFILE, "Too many open files." + IdResourceStrings_RSStackEWOULDBLOCK, "Operation would block. " + IdResourceStrings_RSStackEINPROGRESS, "Operation now in progress." + IdResourceStrings_RSHTTPNotAcceptable, "Not Acceptable" + IdResourceStrings_RSHTTPProxyAuthenticationRequired, "Proxy Authentication Required" + IdResourceStrings_RSHTTPRequestTimeout, "Request Timeout" + IdResourceStrings_RSHTTPConflict, "Conflict" + IdResourceStrings_RSHTTPGone, "Gone" + IdResourceStrings_RSHTTPLengthRequired, "Length Required" + IdResourceStrings_RSHTTPPreconditionFailed, "Precondition Failed" + IdResourceStrings_RSHTTPRequestEntityToLong, "Request Entity To Long" + IdResourceStrings_RSHTTPRequestURITooLong, "Request-URI Too Long. 256 Chars max" + IdResourceStrings_RSHTTPUnsupportedMediaType, "Unsupported Media Type" + IdResourceStrings_RSHTTPInternalServerError, "Internal Server Error" + IdResourceStrings_RSHTTPNotImplemented, "Not Implemented" + IdResourceStrings_RSHTTPBadGateway, "Bad Gateway" + IdResourceStrings_RSHTTPServiceUnavailable, "Service Unavailable" + IdResourceStrings_RSHTTPGatewayTimeout, "Gateway timeout" + IdResourceStrings_RSHTTPHTTPVersionNotSupported, "HTTP version not supported" + IdResourceStrings_RSHTTPCreated, "Created" + IdResourceStrings_RSHTTPAccepted, "Accepted" + IdResourceStrings_RSHTTPNonAuthoritativeInformation, "Non-authoritative Information" + IdResourceStrings_RSHTTPNoContent, "No Content" + IdResourceStrings_RSHTTPResetContent, "Reset Content" + IdResourceStrings_RSHTTPPartialContent, "Partial Content" + IdResourceStrings_RSHTTPMovedPermanently, "Moved Permanently" + IdResourceStrings_RSHTTPMovedTemporarily, "Moved Temporarily" + IdResourceStrings_RSHTTPSeeOther, "See Other" + IdResourceStrings_RSHTTPNotModified, "Not Modified" + IdResourceStrings_RSHTTPUseProxy, "Use Proxy" + IdResourceStrings_RSHTTPBadRequest, "Bad Request" + IdResourceStrings_RSHTTPUnauthorized, "Unauthorized" + IdResourceStrings_RSHTTPForbidden, "Forbidden" + IdResourceStrings_RSHTTPNotFound, "Not Found" + IdResourceStrings_RSHTTPMethodeNotallowed, "Method not allowed" + IdResourceStrings_RSReadLnMaxLineLengthExceeded, "Max line length exceeded." + IdResourceStrings_RSNoCommandHandlerFound, "No command handler found." + IdResourceStrings_RSWS2CallError, "Error on call Winsock2 library function %s" + IdResourceStrings_RSWS2LoadError, "Error on loading Winsock2 library (%s)" + IdResourceStrings_RSMIMEExtensionEmpty, "Extension is empty" + IdResourceStrings_RSMIMEMIMETypeEmpty, "Mimetype is empty" + IdResourceStrings_RSMIMEMIMEExtAlreadyExists, "Extension already exits" + IdResourceStrings_RSStatusResolving, "Resolving hostname %s." + IdResourceStrings_RSStatusConnecting, "Connecting to %s." + IdResourceStrings_RSStatusConnected, "Connected." + IdResourceStrings_RSStatusDisconnecting, "Disconnecting." + IdResourceStrings_RSStatusDisconnected, "Disconnected." + IdResourceStrings_RSStatusText, "%s" + IdResourceStrings_RSConnectTimeout, "Connect timed out." + IdResourceStrings_RSHTTPContinue, "Continue" + IdResourceStrings_RSHTTPOK, "OK" + IdResourceStrings_RSCouldNotBindSocket, "Could not bind socket. Address and port are already in use." + IdResourceStrings_RSFailedTimeZoneInfo, "Failed attempting to retrieve time zone information." + IdResourceStrings_RSNotEnoughDataInBuffer, "Not enough data in buffer." + IdResourceStrings_RSWinsockInitializationError, "Winsock Initialization Error." + IdResourceStrings_RSSetSizeExceeded, "Set Size Exceeded." + IdResourceStrings_RSThreadClassNotSpecified, "Thread Class Not Specified." + IdResourceStrings_RSFileNotFound, "File \"%s\" not found" + IdResourceStrings_RSOnlyOneAntiFreeze, "Only one TIdAntiFreeze can exist per application." + IdResourceStrings_RSNotConnected, "Not Connected" + IdResourceStrings_RSObjectTypeNotSupported, "Object type not supported." + IdResourceStrings_RSTerminateThreadTimeout, "Terminate Thread Timeout" + IdResourceStrings_RSNoExecuteSpecified, "No execute handler found." + IdResourceStrings_RSIdNoDataToRead, "No data to read." + IdResourceStrings_RSCanNotBindRange, "Can not bind in port range (%d - %d)" + IdResourceStrings_RSInvalidPortRange, "Invalid Port Range (%d - %d)" + IdResourceStrings_RSReadTimeout, "Read Timeout" + uRORes_err_TooManySessions, "Too many sessions. Try again in %d minute(s)" + uRORes_err_DOMElementIsNIL, "DOMElement is NIL" + uRORes_err_CannotLoadXMLDocument, "Cannot load XML document.\rReason: %s\rLine: %d\rPosition: %d" + uRORes_err_ErrorCreatingMsXmlDoc, "Error creating MSXML Document class\r\r%s: %s" + uRORes_err_NoXMLParsersAvailable, "MSXML is not installed" + uRORes_err_IDispatchMarshalingNotSupported, "Marshaling of IDispatch (%d) type variants is not supported." + uRORes_err_UnsupportedVariantType, "Unsupported variant type \"%d\"" + uRORes_err_VariantIsNotArray, "Variant must be Array, but is %d" + uRORes_err_InvalidVarArrayDimCount, "Variant Array DimCount must be 1 but is %d" + uRORes_err_MessageNotAssigned, "Message is NIL" + ComConst_SOleError, "OLE error %.8x" + ComConst_SNoMethod, "Method '%s' not supported by automation object" + ComConst_SVarNotObject, "Variant does not reference an automation object" + ComConst_STooManyParams, "Dispatch methods do not support more than 64 parameters" + IdResourceStrings_RSCannotAllocateSocket, "Cannot allocate socket." + IdResourceStrings_RSConnectionClosedGracefully, "Connection Closed Gracefully." + uRORes_err_TypeNotSupported, "Type \"%s\" not supported" + uRORes_err_ClassFactoryNotFound, "Class factory for interface %s not found" + uRORes_err_IROMessageNotSupported, "Class \"%s\" does not support IROMessage" + uRORes_err_ClassAlreadyRegistered, "Class \"%s\" is already registered" + uRORes_err_UnknownProxyInterface, "Unknown proxy interface \"%s\"" + uRORes_err_DispatcherAlreadyAssigned, "Dispatcher for %s already assigned" + uRORes_err_CannotFindMessageDispatcher, "Cannot find message dispatcher. Maybe there is no message component configured for for the requested path?" + uRORes_err_ServerOnlySupportsOneDispatcher, "%s servers only support one dispatcher" + uRORes_err_UnhandledException, "Unhandled exception" + uRORes_err_ChannelBusy, "Channel is busy. Try again later." + uRORes_err_ArrayIndexOutOfBounds, "Array index out of bounds (%d)." + uRORes_err_InvalidHeader, "Invalid binary header. Either incompatible or not a binary message." + uRORes_err_UnknownClassInStream, "Unknown class \"%s\" found in stream." + uRORes_err_UnexpectedClassInStream, "Unexpected class found in stream; class \"%s\" does not descend from \"%s\"." + uRORes_err_SessionNotFound, "Session %s could not be found" + uRORes_err_ChannelDoesntSupportIROMetadataReader, "Channel does not support IROMetadataReader" + uRORes_err_RodlNoEnumValues, "Enum does not contain any values." + uRORes_err_RodlNoStructElementsDefined, "Struct does not contain any elements." + uRORes_err_RodlNoOperationsDefined, "Service interface does not contain any elements." + uRORes_err_RodlUsedFileDoesNotExist, "The referenced RODL file \"%s\" could not be found." + uRORes_err_RodlInvalidDataType, "Invalid or undefined data type \"%s\"." + uRORes_err_RodlStructCannotBeNested, "Structs cannot recursively contain themselves." + uRORes_err_RodlInvalidAncestorType, "Invalid or undefined ancestor type \"%s\"." + uRORes_str_ExceptionOnServer, "An exception of type %s was raised on the server: %s" + uRORes_str_ExceptionReraisedFromServer, "An exception was raised on the server: %s" + uRORes_err_AssignError, "Cannot assign a \"%s\" to a \"%s\"." + uRORes_err_InvalidRequestStream, "Invalid request stream (%d bytes)" + uRORes_err_NILMessage, "Message is NIL" + uRORes_err_UnspecifiedInterface, "The message does not have an interface name" + uRORes_err_UnspecifiedMessage, "The message does not have a name" + uRORes_err_UnknownMethod, "Unknown method %s for interface %s" + uRORes_err_ClassFactoryDidNotReturnInstance, "Class factory did not return an instance of \"%s\"" + uRODECConst_sFMT_HEX, "Hexadecimal" + uRODECConst_sFMT_HEXL, "Hexadecimal lowercase" + uRODECConst_sFMT_MIME64, "MIME Base 64" + uRODECConst_sFMT_UU, "UU Coding" + uRODECConst_sFMT_XX, "XX Coding" + uRODECConst_sInvalidKeySize, "Length from Encryptionkey is invalid.\r\nKeysize for %s must be to %d-%d bytes" + uRODECConst_sNotInitialized, "%s is not initialized call Init() or InitKey() before." + uRORes_err_InvalidIndex, "Invalid index %d" + uRORes_err_InvalidType, "Invalid type \"%s. Expected \"%s\"\"" + uRORes_err_InvalidStream, "Invalid stream" + uRORes_err_InvalidParamFlag, "Invalid Parameter Flag \"%s\"" + uRORes_err_InvalidStringLength, "Stream read error: Invalid string length \"%d\"" + uRORes_str_InvalidClassTypeInStream, "Stream read error: Invalid class type encountered: \"%s\"" + uRORes_err_UnexpectedEndOfStream, "Unexpected end of stream." + uRORes_err_RodlDuplicateName, "Duplicate name." + uRORes_err_RodlNoDataTypeSpecified, "No data type specified." + ComStrs_sUDAssociated, "%s is already associated with %s" + ComStrs_sPageIndexError, "%d is an invalid PageIndex value. PageIndex must be between 0 and %d" + ComStrs_sInvalidComCtl32, "This control requires version 4.70 or greater of COMCTL32.DLL" + ComStrs_sDateTimeMax, "Date exceeds maximum of %s" + ComStrs_sDateTimeMin, "Date is less than minimum of %s" + ComStrs_sNeedAllowNone, "You must be in ShowCheckbox mode to set to this date" + ComStrs_sFailSetCalDateTime, "Failed to set calendar date or time" + ComStrs_sFailSetCalMaxSelRange, "Failed to set maximum selection range" + ComStrs_sFailSetCalMinMaxRange, "Failed to set calendar min/max range" + ComStrs_sFailsetCalSelRange, "Failed to set calendar selected range" + WinHelpViewer_hNoKeyword, "No help keyword specified." + uRODECConst_sProtectionCircular, "Circular Protection detected, Protection Object is invalid." + uRODECConst_sStringFormatExists, "String Format \"%d\" not exists." + uRODECConst_sInvalidStringFormat, "Input is not an valid %s Format." + uRODECConst_sInvalidFormatString, "Input can not be convert to %s Format." + uRODECConst_sFMT_COPY, "copy Input to Output" + ExtCtrls_clNameWindow, "Window Background" + ExtCtrls_clNameWindowFrame, "Window Frame" + ExtCtrls_clNameWindowText, "Window Text" + ComStrs_sTabFailClear, "Failed to clear tab control" + ComStrs_sTabFailDelete, "Failed to delete tab at index %d" + ComStrs_sTabFailRetrieve, "Failed to retrieve tab at index %d" + ComStrs_sTabFailGetObject, "Failed to get object at index %d" + ComStrs_sTabFailSet, "Failed to set tab \"%s\" at index %d" + ComStrs_sTabFailSetObject, "Failed to set object at index %d" + ComStrs_sTabMustBeMultiLine, "MultiLine must be True when TabPosition is tpLeft or tpRight" + ComStrs_sInvalidIndex, "Invalid index" + ComStrs_sInsertError, "Unable to insert an item" + ComStrs_sInvalidOwner, "Invalid owner" + ComStrs_sRichEditInsertError, "RichEdit line insertion error" + ComStrs_sRichEditLoadFail, "Failed to Load Stream" + ComStrs_sRichEditSaveFail, "Failed to Save Stream" + ExtCtrls_clNameCaptionText, "Caption Text" + ExtCtrls_clNameDefault, "Default" + ExtCtrls_clNameGrayText, "Gray Text" + ExtCtrls_clNameHighlight, "Highlight Background" + ExtCtrls_clNameHighlightText, "Highlight Text" + ExtCtrls_clNameInactiveBorder, "Inactive Border" + ExtCtrls_clNameInactiveCaption, "Inactive Caption" + ExtCtrls_clNameInactiveCaptionText, "Inactive Caption Text" + ExtCtrls_clNameInfoBk, "Info Background" + ExtCtrls_clNameInfoText, "Info Text" + ExtCtrls_clNameMenu, "Menu Background" + ExtCtrls_clNameMenuText, "Menu Text" + ExtCtrls_clNameNone, "None" + ExtCtrls_clNameScrollBar, "Scroll Bar" + ExtCtrls_clName3DDkShadow, "3D Dark Shadow" + ExtCtrls_clName3DLight, "3D Light" + ExtCtrls_clNameBlue, "Blue" + ExtCtrls_clNameFuchsia, "Fuchsia" + ExtCtrls_clNameAqua, "Aqua" + ExtCtrls_clNameWhite, "White" + ExtCtrls_clNameMoneyGreen, "Money Green" + ExtCtrls_clNameSkyBlue, "Sky Blue" + ExtCtrls_clNameCream, "Cream" + ExtCtrls_clNameMedGray, "Medium Gray" + ExtCtrls_clNameActiveBorder, "Active Border" + ExtCtrls_clNameActiveCaption, "Active Caption" + ExtCtrls_clNameAppWorkSpace, "Application Workspace" + ExtCtrls_clNameBackground, "Background" + ExtCtrls_clNameBtnFace, "Button Face" + ExtCtrls_clNameBtnHighlight, "Button Highlight" + ExtCtrls_clNameBtnShadow, "Button Shadow" + ExtCtrls_clNameBtnText, "Button Text" + HelpIntfs_hNoTableOfContents, "Unable to find a Table of Contents" + HelpIntfs_hNothingFound, "No help found for %s" + HelpIntfs_hNoContext, "No context-sensitive help installed" + HelpIntfs_hNoTopics, "No topic-based help system installed" + ExtCtrls_clNameBlack, "Black" + ExtCtrls_clNameMaroon, "Maroon" + ExtCtrls_clNameGreen, "Green" + ExtCtrls_clNameOlive, "Olive" + ExtCtrls_clNameNavy, "Navy" + ExtCtrls_clNamePurple, "Purple" + ExtCtrls_clNameTeal, "Teal" + ExtCtrls_clNameGray, "Gray" + ExtCtrls_clNameSilver, "Silver" + ExtCtrls_clNameRed, "Red" + ExtCtrls_clNameLime, "Lime" + ExtCtrls_clNameYellow, "Yellow" + Consts_SInvalidClipFmt, "Invalid clipboard format" + Consts_SIconToClipboard, "Clipboard does not support Icons" + Consts_SCannotOpenClipboard, "Cannot open clipboard" + Consts_SInvalidMemoSize, "Text exceeds memo capacity" + Consts_SInvalidPrinterOp, "Operation not supported on selected printer" + Consts_SNoDefaultPrinter, "There is no default printer currently selected" + Consts_SDuplicateMenus, "Menu '%s' is already being used by another form" + Consts_SDockedCtlNeedsName, "Docked control must have a name" + Consts_SDockTreeRemoveError, "Error removing control from dock tree" + Consts_SDockZoneNotFound, " - Dock zone not found" + Consts_SDockZoneHasNoCtl, " - Dock zone has no control" + Consts_SMultiSelectRequired, "Multiselect mode must be on for this feature" + Consts_SSeparator, "Separator" + Consts_SErrorSettingCount, "Error setting %s.Count" + Consts_SListBoxMustBeVirtual, "Listbox (%s) style must be virtual in order to set Count" + Consts_SNoGetItemEventHandler, "No OnGetItem event handler assigned" + Consts_SmkcPgUp, "PgUp" + Consts_SmkcPgDn, "PgDn" + Consts_SmkcEnd, "End" + Consts_SmkcHome, "Home" + Consts_SmkcLeft, "Left" + Consts_SmkcUp, "Up" + Consts_SmkcRight, "Right" + Consts_SmkcDown, "Down" + Consts_SmkcIns, "Ins" + Consts_SmkcDel, "Del" + Consts_SmkcShift, "Shift+" + Consts_SmkcCtrl, "Ctrl+" + Consts_SmkcAlt, "Alt+" + Consts_srNone, "(None)" + Consts_SOutOfRange, "Value must be between %d and %d" + Consts_SInsertLineError, "Unable to insert a line" + Consts_SMsgDlgYes, "&Yes" + Consts_SMsgDlgNo, "&No" + Consts_SMsgDlgOK, "OK" + Consts_SMsgDlgCancel, "Cancel" + Consts_SMsgDlgHelp, "&Help" + Consts_SMsgDlgAbort, "&Abort" + Consts_SMsgDlgRetry, "&Retry" + Consts_SMsgDlgIgnore, "&Ignore" + Consts_SMsgDlgAll, "&All" + Consts_SMsgDlgNoToAll, "N&o to All" + Consts_SMsgDlgYesToAll, "Yes to &All" + Consts_SmkcBkSp, "BkSp" + Consts_SmkcTab, "Tab" + Consts_SmkcEsc, "Esc" + Consts_SmkcEnter, "Enter" + Consts_SmkcSpace, "Space" + Consts_SCloseButton, "&Close" + Consts_SIgnoreButton, "&Ignore" + Consts_SRetryButton, "&Retry" + Consts_SAbortButton, "Abort" + Consts_SAllButton, "&All" + Consts_SCannotDragForm, "Cannot drag a form" + Consts_SVMetafiles, "Metafiles" + Consts_SVEnhMetafiles, "Enhanced Metafiles" + Consts_SVIcons, "Icons" + Consts_SVBitmaps, "Bitmaps" + Consts_SMaskErr, "Invalid input value" + Consts_SMaskEditErr, "Invalid input value. Use escape key to abandon changes" + Consts_SMsgDlgWarning, "Warning" + Consts_SMsgDlgError, "Error" + Consts_SMsgDlgInformation, "Information" + Consts_SMsgDlgConfirm, "Confirm" + Consts_SMenuIndexError, "Menu index out of range" + Consts_SMenuReinserted, "Menu inserted twice" + Consts_SMenuNotFound, "Sub-menu is not in menu" + Consts_SNoTimers, "Not enough timers available" + Consts_SNotPrinting, "Printer is not currently printing" + Consts_SPrinting, "Printing in progress" + Consts_SInvalidPrinter, "Printer selected is not valid" + Consts_SDeviceOnPort, "%s on %s" + Consts_SGroupIndexTooLow, "GroupIndex cannot be less than a previous menu item's GroupIndex" + Consts_SNoMDIForm, "Cannot create form. No MDI forms are currently active" + Consts_SControlParentSetToSelf, "A control cannot have itself as its parent" + Consts_SOKButton, "OK" + Consts_SCancelButton, "Cancel" + Consts_SYesButton, "&Yes" + Consts_SNoButton, "&No" + Consts_SHelpButton, "&Help" + Consts_SInvalidImageSize, "Invalid image size" + Consts_SInvalidImageList, "Invalid ImageList" + Consts_SReplaceImage, "Unable to Replace Image" + Consts_SImageIndexError, "Invalid ImageList Index" + Consts_SImageReadFail, "Failed to read ImageList data from stream" + Consts_SImageWriteFail, "Failed to write ImageList data to stream" + Consts_SWindowDCError, "Error creating window device context" + Consts_SWindowClass, "Error creating window class" + Consts_SCannotFocus, "Cannot focus a disabled or invisible window" + Consts_SParentRequired, "Control '%s' has no parent window" + Consts_SParentGivenNotAParent, "Parent given is not a parent of '%s'" + Consts_SMDIChildNotVisible, "Cannot hide an MDI Child Form" + Consts_SVisibleChanged, "Cannot change Visible in OnShow or OnHide" + Consts_SCannotShowModal, "Cannot make a visible window modal" + Consts_SScrollBarRange, "Scrollbar property out of range" + Consts_SPropertyOutOfRange, "%s property out of range" + RTLConsts_SWriteError, "Stream write error" + RTLConsts_SThreadCreateError, "Thread creation error: %s" + RTLConsts_SThreadError, "Thread Error: %s (%d)" + Consts_SInvalidTabPosition, "Tab position incompatible with current tab style" + Consts_SInvalidTabStyle, "Tab style incompatible with current tab position" + Consts_SInvalidBitmap, "Bitmap image is not valid" + Consts_SInvalidIcon, "Icon image is not valid" + Consts_SInvalidMetafile, "Metafile is not valid" + Consts_SInvalidPixelFormat, "Invalid pixel format" + Consts_SInvalidImage, "Invalid image" + Consts_SScanLine, "Scan line index out of range" + Consts_SChangeIconSize, "Cannot change the size of an icon" + Consts_SUnknownExtension, "Unknown picture file extension (.%s)" + Consts_SUnknownClipboardFormat, "Unsupported clipboard format" + Consts_SOutOfResources, "Out of system resources" + Consts_SNoCanvasHandle, "Canvas does not allow drawing" + RTLConsts_SInvalidRegType, "Invalid data type for '%s'" + RTLConsts_SListCapacityError, "List capacity out of bounds (%d)" + RTLConsts_SListCountError, "List count out of bounds (%d)" + RTLConsts_SListIndexError, "List index out of bounds (%d)" + RTLConsts_SMemoryStreamError, "Out of memory while expanding memory stream" + RTLConsts_SPropertyException, "Error reading %s%s%s: %s" + RTLConsts_SReadError, "Stream read error" + RTLConsts_SReadOnlyProperty, "Property is read-only" + RTLConsts_SRegCreateFailed, "Failed to create key %s" + RTLConsts_SRegGetDataFailed, "Failed to get data for '%s'" + RTLConsts_SRegSetDataFailed, "Failed to set data for '%s'" + RTLConsts_SResNotFound, "Resource %s not found" + RTLConsts_SSeekNotImplemented, "%s.Seek not implemented" + RTLConsts_SSortedListError, "Operation not allowed on sorted list" + RTLConsts_SUnknownGroup, "%s not in a class registration group" + RTLConsts_SUnknownProperty, "Property %s does not exist" + RTLConsts_SCheckSynchronizeError, "CheckSynchronize called from thread $%x, which is NOT the main thread" + RTLConsts_SClassNotFound, "Class %s not found" + RTLConsts_SDuplicateClass, "A class named %s already exists" + RTLConsts_SDuplicateItem, "List does not allow duplicates ($0%x)" + RTLConsts_SDuplicateName, "A component named %s already exists" + RTLConsts_SDuplicateString, "String list does not allow duplicates" + RTLConsts_SFCreateErrorEx, "Cannot create file \"%s\". %s" + RTLConsts_SFOpenErrorEx, "Cannot open file \"%s\". %s" + RTLConsts_SIniFileWriteError, "Unable to write to %s" + RTLConsts_SInvalidImage, "Invalid stream format" + RTLConsts_SInvalidName, "''%s'' is not a valid component name" + RTLConsts_SInvalidProperty, "Invalid property value" + RTLConsts_SInvalidPropertyElement, "Invalid property element: %s" + RTLConsts_SInvalidPropertyPath, "Invalid property path" + RTLConsts_SInvalidPropertyType, "Invalid property type: %s" + RTLConsts_SInvalidPropertyValue, "Invalid property value" + SysConst_SShortDayNameTue, "Tue" + SysConst_SShortDayNameWed, "Wed" + SysConst_SShortDayNameThu, "Thu" + SysConst_SShortDayNameFri, "Fri" + SysConst_SShortDayNameSat, "Sat" + SysConst_SLongDayNameSun, "Sunday" + SysConst_SLongDayNameMon, "Monday" + SysConst_SLongDayNameTue, "Tuesday" + SysConst_SLongDayNameWed, "Wednesday" + SysConst_SLongDayNameThu, "Thursday" + SysConst_SLongDayNameFri, "Friday" + SysConst_SLongDayNameSat, "Saturday" + RTLConsts_SAncestorNotFound, "Ancestor for '%s' not found" + RTLConsts_SAssignError, "Cannot assign a %s to a %s" + RTLConsts_SBitsIndexError, "Bits index out of range" + RTLConsts_SCantWriteResourceStreamError, "Can't write to a read-only resource stream" + SysConst_SShortMonthNameNov, "Nov" + SysConst_SShortMonthNameDec, "Dec" + SysConst_SLongMonthNameJan, "January" + SysConst_SLongMonthNameFeb, "February" + SysConst_SLongMonthNameMar, "March" + SysConst_SLongMonthNameApr, "April" + SysConst_SLongMonthNameMay, "May" + SysConst_SLongMonthNameJun, "June" + SysConst_SLongMonthNameJul, "July" + SysConst_SLongMonthNameAug, "August" + SysConst_SLongMonthNameSep, "September" + SysConst_SLongMonthNameOct, "October" + SysConst_SLongMonthNameNov, "November" + SysConst_SLongMonthNameDec, "December" + SysConst_SShortDayNameSun, "Sun" + SysConst_SShortDayNameMon, "Mon" + SysConst_SAssertError, "%s (%s, line %d)" + SysConst_SAbstractError, "Abstract Error" + SysConst_SModuleAccessViolation, "Access violation at address %p in module '%s'. %s of address %p" + SysConst_SOSError, "System Error. Code: %d.\r\n%s" + SysConst_SUnkOSError, "A call to an OS function failed" + SysConst_SNL, "Application is not licensed to use this feature" + SysConst_SShortMonthNameJan, "Jan" + SysConst_SShortMonthNameFeb, "Feb" + SysConst_SShortMonthNameMar, "Mar" + SysConst_SShortMonthNameApr, "Apr" + SysConst_SShortMonthNameMay, "May" + SysConst_SShortMonthNameJun, "Jun" + SysConst_SShortMonthNameJul, "Jul" + SysConst_SShortMonthNameAug, "Aug" + SysConst_SShortMonthNameSep, "Sep" + SysConst_SShortMonthNameOct, "Oct" + SysConst_SInvalidVarOpWithHResultWithPrefix, "Invalid variant operation (%s%.8x)\n%s" + SysConst_SVarTypeOutOfRangeWithPrefix, "Custom variant type (%s%.4x) is out of range" + SysConst_SVarTypeAlreadyUsedWithPrefix, "Custom variant type (%s%.4x) already used by %s" + SysConst_SVarTypeNotUsableWithPrefix, "Custom variant type (%s%.4x) is not usable" + SysConst_SVarTypeTooManyCustom, "Too many custom variant types have been registered" + SysConst_SVarTypeCouldNotConvert, "Could not convert variant of type (%s) into type (%s)" + SysConst_SVarTypeConvertOverflow, "Overflow while converting variant of type (%s) into type (%s)" + SysConst_SVarOverflow, "Variant overflow" + SysConst_SVarInvalid, "Invalid argument" + SysConst_SVarBadType, "Invalid variant type" + SysConst_SVarNotImplemented, "Operation not supported" + SysConst_SVarUnexpected, "Unexpected variant error" + SysConst_SExternalException, "External exception %x" + SysConst_SAssertionFailed, "Assertion failed" + SysConst_SIntfCastError, "Interface not supported" + SysConst_SSafecallException, "Exception in safecall method" + SysConst_SOperationAborted, "Operation aborted" + SysConst_SException, "Exception %s in module %s at %p.\r\n%s%s\r\n" + SysConst_SExceptTitle, "Application Error" + SysConst_SInvalidFormat, "Format '%s' invalid or incompatible with argument" + SysConst_SArgumentMissing, "No argument for format '%s'" + SysConst_SDispatchError, "Variant method calls not supported" + SysConst_SReadAccess, "Read" + SysConst_SWriteAccess, "Write" + SysConst_SFormatTooLong, "Format string too long" + SysConst_SVarArrayCreate, "Error creating variant or safe array" + SysConst_SVarArrayBounds, "Variant or safe array index out of bounds" + SysConst_SVarArrayLocked, "Variant or safe array is locked" + SysConst_SVarArrayWithHResult, "Unexpected variant or safe array error: %s%.8x" + SysConst_SInvalidVarCast, "Invalid variant type conversion" + SysConst_SInvalidVarOp, "Invalid variant operation" + SysConst_SInvalidVarNullOp, "Invalid NULL variant operation" + SysConst_SDiskFull, "Disk full" + SysConst_SInvalidInput, "Invalid numeric input" + SysConst_SDivByZero, "Division by zero" + SysConst_SRangeError, "Range check error" + SysConst_SIntOverflow, "Integer overflow" + SysConst_SInvalidOp, "Invalid floating point operation" + SysConst_SZeroDivide, "Floating point division by zero" + SysConst_SOverflow, "Floating point overflow" + SysConst_SUnderflow, "Floating point underflow" + SysConst_SInvalidPointer, "Invalid pointer operation" + SysConst_SInvalidCast, "Invalid class typecast" + SysConst_SAccessViolationArg3, "Access violation at address %p. %s of address %p" + SysConst_SAccessViolationNoArg, "Access violation" + SysConst_SStackOverflow, "Stack overflow" + SysConst_SControlC, "Control-C hit" + SysConst_SPrivilege, "Privileged instruction" + SysConst_SInvalidInteger, "'%s' is not a valid integer value" + SysConst_SInvalidFloat, "'%s' is not a valid floating point value" + SysConst_SInvalidDate, "'%s' is not a valid date" + SysConst_SInvalidTime, "'%s' is not a valid time" + SysConst_SInvalidDateTime, "'%s' is not a valid date and time" + SysConst_SInvalidTimeStamp, "'%d.%d' is not a valid timestamp" + SysConst_SInvalidGUID, "'%s' is not a valid GUID value" + SysConst_STimeEncodeError, "Invalid argument to time encode" + SysConst_SDateEncodeError, "Invalid argument to date encode" + SysConst_SOutOfMemory, "Out of memory" + SysConst_SInOutError, "I/O error %d" + SysConst_SFileNotFound, "File not found" + SysConst_SInvalidFilename, "Invalid filename" + SysConst_STooManyOpenFiles, "Too many open files" + SysConst_SAccessDenied, "File access denied" + SysConst_SEndOfFile, "Read beyond end of file" +END + diff --git a/Servidor/uDataModuleServer.dfm b/Servidor/uDataModuleServer.dfm index 1c5ac1b..0a87129 100644 --- a/Servidor/uDataModuleServer.dfm +++ b/Servidor/uDataModuleServer.dfm @@ -772,6 +772,14 @@ object dmServer: TdmServer DisplayWidth = 0 DisplayLabel = 'VISIBLE' Alignment = taLeftJustify + end + item + Name = 'DetallesPresupuestos_VALORADO' + DataType = datString + Size = 1 + BlobType = dabtUnknown + DisplayWidth = 0 + Alignment = taLeftJustify end> Left = 40 Top = 144