diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 8380d27b..70c3d9cd 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,6 +44,13 @@ Package FalseTrueFalseLibreria base de FactuGESTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 + + + + + + + VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -58,46 +65,46 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 8b251f31..1641339f 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/Modulos/Contabilidad/Views/uViewSubCuenta.dfm b/Source/Modulos/Contabilidad/Views/uViewSubCuenta.dfm index 5bbd0577..1344531f 100644 --- a/Source/Modulos/Contabilidad/Views/uViewSubCuenta.dfm +++ b/Source/Modulos/Contabilidad/Views/uViewSubCuenta.dfm @@ -79,42 +79,43 @@ inherited frViewSubCuenta: TfrViewSubCuenta Width = 25 Height = 25 Action = actCuenta + Caption = 'Cuenta' TabOrder = 3 Glyph.Data = { 36040000424D3604000000000000360000002800000010000000100000000100 - 2000000000000004000000000000000000000000000000000000FF00FF00F81B - F400C526AD00B10F9600BA18A000B917A000BA18A000B817A000BB18A000C61C - 9F00B917A000B8189E009D186E00A01B7500E20CD700FF00FF00FF00FF00E83E - DB00D4C6BC00BFADA200BBA79900BCA99A00BBA69800BBA69800BAA79900B3A5 - 9900B19386006C100D00781924007212190099125900FF00FF00FF00FF00E833 - DB00F2EAE500FFFFFF00FBF6F300FAF3EE00F6EDE700F7EEE900F9EFEA00F9F0 - EA00F9F0EB00B37D7E00F083E400F548EE008F044600D602BC00FF00FF00EA35 - DD00E9DFD900FAF7F400EFE8E300EDE4DF00ECE3DD00EDE5DF00EDE4DF00EDE4 - DF00ECE4DE00EDE5E000F3ECE600F7B2F000B7038900B7038900FF00FF00EA35 - DD00EBE2DD00FDFAFA00F1EBE700EFE7E300EDE6E100EDE6E100EDE6E100EDE6 - E100EDE6E100EDE6E100ECE5DF00F0A7E400AD037900A3036800FF00FF00ED37 - DD00EBE4E000FFFFFF00F5EFED00F2ECE900EFEAE500EFEAE500EFEAE500F0EA - E500EFEAE500EFEAE500C29599008E26460066050300CC02AB00FF00FF00ED2E - E100FFF4E800FFFFFF00FFFFFA00FFF9F300FFF5ED00FFF4ED00F3EDE900F1EC - E900F2ECE900D6BEBB0066050300A30D6800D503B900FC03F700F505FA00B728 - D000E8DED200EAECEF00E5E5E700E4E1E100DFDBDB00E7E4E200FFF8F300F7F3 - F100F7F4F100B38482008E464600F996F100FC02F800FC03F7006A67AD000867 - AF000E7AAF000F7DB0000E7BAF000F7CAF000778AE001C75A300D7E0E100FFF9 - F100F2EEEB00CEB1AE008C444100FFBAFF00FF00FF00F401EE008B94A50068C2 - D80042D8FD003AC5F10032C1EF0028BAEB0023BCF1000080C200559BB800FFFF - F600F2E9E300EFE6E20079242200D682BC00F401EE00A30368009FB2CB0098B8 - BA0075DBED0068E9FF0061D8F70051D0F30049CDF30020B4E900006FA700D1E3 - E300FFFFFB00FFFFFF00D2B7B200700F1700660503008F04460098B9D4008ECE - D30077A7B90064F1FF0063E3FF0055D9FC0049D1F80043D8FF00008ACA0059A0 - C200FBF7F200CCB4A600B09B8B008A245F00FF00FF00FF00FF0099B2CD0096FB - FD00859EA90069C4DB0062DEF50061D5F10053CCEE004FCBEE0029C0F2000070 - B0009E9E9B00B5958300AD988900973F6F00FF00FF00FF00FF0097AAC90098FF - FF0095E3E30089B1B8007FBFCB007DBECA007BBCCA0073BACC0077ADBC00809A - AA00C0BAB600FFFFFF00BB909C00DD0BD100FF00FF00FF00FF008FC2CA0098FF - FF0097FFFF0098F3F20096B4B50095B1B40095B5B8008CB2B8008E9EA200F9E6 - DD00F7E5DA00A3767700D908CC00FF00FF00FF00FF00FF00FF00AF6FC70094B6 - C90090B6CA00AB72C200E640D500F04BD800ED4BD600ED4AD600EC4CD700EE53 - E000E248D100E407DB00FF00FF00FF00FF00FF00FF00FF00FF00} + 2000000000000004000000000000000000000000000000000000FF00FF00F818 + F300CB29B600BD19A500C01CA800BF1CA800C01CA800BF1CA800C11CA800CB20 + A700BF1CA800C01CA800B11C8E00A5197800E00BD200FF00FF00FF00FF00EA39 + DE00CEBEB400BBA89B00B8A49600B8A39700B7A29400B7A29400B7A39500B3A2 + 9500B8A3950097635A00660503007F1F2F0077092100CC02AB00FF00FF00EB34 + DF00EBE2DA00FBF6F300F4ECE900F2E9E300EFE5DE00F0E5DF00F0E6E000F1E6 + E000EFE5DF006F141200C767A300F159E800F401EE00AD037900FF00FF00EC35 + E000E8DED800F5F0ED00EFE7E300ECE4DF00EBE2DD00EDE4DE00ECE3DE00ECE3 + DE00D1B7B20078232000EFE7E200F4A9EB00FF00FF00FF00FF00FF00FF00EC35 + E000EAE1DB00F8F5F300F3ECE800EFE8E400EEE5E100EDE6E100EDE6E100EDE6 + E100C9AAA6008A413E00EDE5E000F29EE800FF00FF00FF00FF00FF00FF00ED36 + E000ECE5E000FCFAF900F5F1EE00F3EDEA00F1EAE600F0EAE600F0EAE600F0EA + E600CBADA9008B424000F0EAE500F7A7F400FF00FF00FF00FF00FF00FF00EA32 + E100F6ECE500FFFFFF00FCF8F600F9F3EF00F5EDE900F5EEE900F3ECE900F2EC + E900F2ECE90066050300F3ECE900FAABFA00FD03FC00FC03F800F705FA00C12A + D800ECE1DB00EFF2F500EBECEE00E9E8EA00E5E4E400E9E7E600FAF4F000F6F3 + F000F6F3F00083353200DAC4C200F9A8F400FC02F800FC04F7006572AA000A6D + AE00107DAF00117EB000107DB000107DAF000E7DB0001576A400CFDFE200FBF2 + ED00F3EFEC00B2827F009F636000FBADFC00FF00FF00FF00FF008596AA0068BB + D3004BD3F60044C7F0003BC3EE0031BDEB002BBAEC000493CD005FA1BC00FFF7 + F000F2EAE600E7DAD50082333100B65E8600FF00FF00D602BC0095B1C5008DBA + C10070D6EE0064DFFC005AD5F5004DCDF20042C7EF0029B7E9000D80B200C6DE + E100FFF7F100F9F5F300D2BDB6007C1B2B00660503007A05250093B7CA008CD1 + D70079B4C60065E4FF0061DDFB0055D4F70049CEF30040CBF4000C97CF005FA3 + C300F6F0EA00D3C1B600B7A3950096326E00FF00FF00FF00FF0094B3C70093F7 + FA0084ACB6006CCCE40066D9F50062D4F10056CDEE004EC8EC0032BAE7000F82 + B600A1A6A300AF958200A28A7B009B3A7500FE01FE00FF00FF0093B1C60096FF + FF0092E1E20088B9C00081BFC9007FBDC9007CBBC90077B9C90078ACBB0085A2 + B200C1BBB700FCF4ED00B7849600D910CB00FF00FF00FF00FF008FBAC60096FF + FF0096FFFF0095EDEE0096B7B80097B5B80095B5B80091B3B80095A7AB00E7DD + D700E5D3C800AA758300DE0BD200FF00FF00FF00FF00FF00FF00AC73C40091B7 + C60090B7C600AA76C200E544D900ED4ADB00EB4ADA00EA4AD900EA4ADA00EC4E + DE00E244D200E30CD900FF00FF00FF00FF00FF00FF00FF00FF00} Margin = 2 end object dxLayoutControlSubCuentaGroup_Root: TdxLayoutGroup @@ -167,7 +168,7 @@ inherited frViewSubCuenta: TfrViewSubCuenta Top = 144 object actCuenta: TAction Caption = 'Cuenta' - ImageIndex = 1 + ImageIndex = 2 OnExecute = actCuentaExecute end end diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.res b/Source/Modulos/Contactos/Controller/Contactos_controller.res index 1641339f..8b251f31 100644 Binary files a/Source/Modulos/Contactos/Controller/Contactos_controller.res and b/Source/Modulos/Contactos/Controller/Contactos_controller.res differ diff --git a/Source/Modulos/Contactos/Model/Contactos_model.res b/Source/Modulos/Contactos/Model/Contactos_model.res index 1641339f..8b251f31 100644 Binary files a/Source/Modulos/Contactos/Model/Contactos_model.res and b/Source/Modulos/Contactos/Model/Contactos_model.res differ diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas index 24ac6125..12313d59 100644 --- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas @@ -3,7 +3,7 @@ unit schContactosClient_Intf; interface uses - Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; + Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; const { Data table rules ids @@ -505,7 +505,7 @@ type end; { TSubCuentasContactoDataTableRules } - TSubCuentasContactoDataTableRules = class(TDADataTableRules, ISubCuentasContacto) + TSubCuentasContactoDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentasContacto) private protected { Property getters and setters } @@ -701,7 +701,7 @@ type end; { TContactosDataTableRules } - TContactosDataTableRules = class(TDADataTableRules, IContactos) + TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); @@ -869,7 +869,7 @@ type end; { TGruposClienteDataTableRules } - TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente) + TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente) private protected { Property getters and setters } @@ -952,7 +952,7 @@ type end; { TDatosBancariosDataTableRules } - TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios) + TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios) private protected { Property getters and setters } @@ -1244,7 +1244,7 @@ type end; { TClientesDataTableRules } - TClientesDataTableRules = class(TDADataTableRules, IClientes) + TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); @@ -1687,7 +1687,7 @@ type end; { TProveedoresDataTableRules } - TProveedoresDataTableRules = class(TDADataTableRules, IProveedores) + TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); @@ -2090,7 +2090,7 @@ type end; { TEmpleadosDataTableRules } - TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados) + TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados) private f_NOTAS: IROStrings; f_FORMACION_BASE: IROStrings; @@ -2393,7 +2393,7 @@ type end; { TDireccionesContactoDataTableRules } - TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto) + TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); @@ -2543,7 +2543,7 @@ type end; { TClientesDescuentosDataTableRules } - TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos) + TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos) private protected { Property getters and setters } @@ -2602,7 +2602,7 @@ type end; { TProcedenciasClienteDataTableRules } - TProcedenciasClienteDataTableRules = class(TDADataTableRules, IProcedenciasCliente) + TProcedenciasClienteDataTableRules = class(TIntfObjectDADataTableRules, IProcedenciasCliente) private protected { Property getters and setters } @@ -2637,7 +2637,7 @@ type end; { TGruposProveedorDataTableRules } - TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor) + TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor) private protected { Property getters and setters } @@ -2672,7 +2672,7 @@ type end; { TGruposEmpleadoDataTableRules } - TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado) + TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado) private protected { Property getters and setters } @@ -2826,7 +2826,7 @@ type end; { TContactos_RefreshDataTableRules } - TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh) + TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh) private f_NOTAS: IROStrings; procedure NOTAS_OnChange(Sender: TObject); diff --git a/Source/Modulos/Contactos/Reports/Copia de uRptFichasEmpleado_Server.dfm b/Source/Modulos/Contactos/Reports/Copia de uRptFichasEmpleado_Server.dfm deleted file mode 100644 index 2ce37c91..00000000 --- a/Source/Modulos/Contactos/Reports/Copia de uRptFichasEmpleado_Server.dfm +++ /dev/null @@ -1,949 +0,0 @@ -object RptFichasEmpleado: TRptFichasEmpleado - OldCreateOrder = True - OnCreate = DataModuleCreate - Height = 405 - Width = 447 - object DADataCabecera: TDADataSource - DataTable = tbl_FichaEmpleado - Left = 264 - Top = 72 - end - object tbl_FichaEmpleado: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = <> - Params = <> - MasterMappingMode = mmDataRequest - LogChanges = False - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteFetchEnabled = False - SchemaCall.Params = <> - DataRequestCall.Params = <> - DataUpdateCall.Params = <> - ScriptCall.Params = <> - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - IndexDefs = <> - Left = 264 - Top = 128 - end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 80 - end - object frxRichObject1: TfrxRichObject - Left = 48 - Top = 296 - end - object frxBarCodeObject1: TfrxBarCodeObject - Left = 144 - Top = 296 - end - object frxOLEObject1: TfrxOLEObject - Left = 48 - Top = 344 - end - object frxCrossObject1: TfrxCrossObject - Left = 144 - Top = 344 - end - object frxCheckBoxObject1: TfrxCheckBoxObject - Left = 256 - Top = 296 - end - object frxGradientObject1: TfrxGradientObject - Left = 360 - Top = 296 - end - object frxChartObject1: TfrxChartObject - Left = 256 - Top = 344 - end - object schReport: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = DataDictionary - Datasets = < - item - Params = < - item - Name = 'ID' - DataType = datInteger - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'V_EMPLEADOS' - SQL = - 'select'#10' ID,'#10' ID_CATEGORIA,'#10' NIF_CIF,'#10' NOMBRE,'#10' PE' + - 'RSONA_CONTACTO,'#10' CALLE,'#10' POBLACION,'#10' PROVINCIA,'#10' COD' + - 'IGO_POSTAL,'#10' TELEFONO_1,'#10' TELEFONO_2,'#10' MOVIL_1,'#10' MOV' + - 'IL_2,'#10' FAX,'#10' EMAIL_1,'#10' EMAIL_2,'#10' PAGINA_WEB,'#10' NOT' + - 'AS,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUARIO,'#10' ID_' + - 'EMPRESA,'#10' REFERENCIA,'#10' FECHA_NACIMIENTO,'#10' CATEGORIA,'#10' ' + - ' FECHA_ALTA_EMPRESA,'#10' FORMACION_BASE,'#10' FORMACION_COMPLE,'#10 + - ' FORMACION_RECIBIDA,'#10' EXPERIENCIA'#10'from V_EMPLEADOS'#10'where I' + - 'D = :ID' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'ID_CATEGORIA' - TableField = 'ID_CATEGORIA' - end - item - DatasetField = 'NIF_CIF' - TableField = 'NIF_CIF' - end - item - DatasetField = 'NOMBRE' - TableField = 'NOMBRE' - end - item - DatasetField = 'PERSONA_CONTACTO' - TableField = 'PERSONA_CONTACTO' - end - item - DatasetField = 'CALLE' - TableField = 'CALLE' - end - item - DatasetField = 'POBLACION' - TableField = 'POBLACION' - end - item - DatasetField = 'PROVINCIA' - TableField = 'PROVINCIA' - end - item - DatasetField = 'CODIGO_POSTAL' - TableField = 'CODIGO_POSTAL' - end - item - DatasetField = 'TELEFONO_1' - TableField = 'TELEFONO_1' - end - item - DatasetField = 'TELEFONO_2' - TableField = 'TELEFONO_2' - end - item - DatasetField = 'MOVIL_1' - TableField = 'MOVIL_1' - end - item - DatasetField = 'MOVIL_2' - TableField = 'MOVIL_2' - end - item - DatasetField = 'FAX' - TableField = 'FAX' - end - item - DatasetField = 'EMAIL_1' - TableField = 'EMAIL_1' - end - item - DatasetField = 'EMAIL_2' - TableField = 'EMAIL_2' - end - item - DatasetField = 'PAGINA_WEB' - TableField = 'PAGINA_WEB' - end - item - DatasetField = 'NOTAS' - TableField = 'NOTAS' - end - item - DatasetField = 'FECHA_ALTA' - TableField = 'FECHA_ALTA' - end - item - DatasetField = 'FECHA_MODIFICACION' - TableField = 'FECHA_MODIFICACION' - end - item - DatasetField = 'USUARIO' - TableField = 'USUARIO' - end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' - end - item - DatasetField = 'FECHA_NACIMIENTO' - TableField = 'FECHA_NACIMIENTO' - end - item - DatasetField = 'CATEGORIA' - TableField = 'CATEGORIA' - end - item - DatasetField = 'FECHA_ALTA_EMPRESA' - TableField = 'FECHA_ALTA_EMPRESA' - end - item - DatasetField = 'FORMACION_BASE' - TableField = 'FORMACION_BASE' - end - item - DatasetField = 'FORMACION_COMPLE' - TableField = 'FORMACION_COMPLE' - end - item - DatasetField = 'FORMACION_RECIBIDA' - TableField = 'FORMACION_RECIBIDA' - end - item - DatasetField = 'EXPERIENCIA' - TableField = 'EXPERIENCIA' - end> - end> - Name = 'InformeFichasEmpleado' - Fields = < - item - Name = 'ID' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ID_CATEGORIA' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NIF_CIF' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PERSONA_CONTACTO' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CALLE' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'POBLACION' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PROVINCIA' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TELEFONO_1' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TELEFONO_2' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'MOVIL_1' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'MOVIL_2' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FAX' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EMAIL_1' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EMAIL_2' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PAGINA_WEB' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NOTAS' - DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA_NACIMIENTO' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CATEGORIA' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA_ALTA_EMPRESA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FORMACION_BASE' - DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FORMACION_COMPLE' - DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FORMACION_RECIBIDA' - DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EXPERIENCIA' - DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end> - Commands = <> - RelationShips = <> - UpdateRules = <> - Left = 48 - Top = 16 - end - object DataDictionary: TDADataDictionary - Fields = < - item - Name = 'FacturasCliente_ID' - DataType = datAutoInc - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - DisplayLabel = 'ID' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_ID_EMPRESA' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'ID_EMPRESA' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_ID_CONTRATO' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'ID_CONTRATO' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_FECHA_FACTURA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Fecha de las factura' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_VENCIMIENTO' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Vencimiento' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_SITUACION' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Situaci'#243'n' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_BASE_IMPONIBLE' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Base imponible' - Alignment = taRightJustify - end - item - Name = 'FacturasCliente_IMPORTE_DESCUENTO' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Importe dto.' - Alignment = taRightJustify - end - item - Name = 'FacturasCliente_IMPORTE_IVA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Importe IVA' - Alignment = taRightJustify - end - item - Name = 'FacturasCliente_IMPORTE_TOTAL' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Importe total' - Alignment = taRightJustify - end - item - Name = 'FacturasCliente_FORMA_PAGO' - DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Forma de pago' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_ID_CLIENTE' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'ID_CLIENTE' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_NIF_CIF' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'NIF/CIF' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_CODIGO_POSTAL' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'C'#243'd. postal' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_FECHA_ALTA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'FECHA_ALTA' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_FECHA_MODIFICACION' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'FECHA_MODIFICACION' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_OBSERVACIONES' - DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Observaciones' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_NOMBRE' - DataType = datString - Size = 100 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Cliente' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_CALLE' - DataType = datString - Size = 150 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Direcci'#243'n' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_PROVINCIA' - DataType = datString - Size = 30 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Provincia' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_POBLACION' - DataType = datString - Size = 150 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Poblaci'#243'n' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_IVA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'IVA' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_USUARIO' - DataType = datString - Size = 100 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'USUARIO' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_REFERENCIA' - DataType = datString - Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Referencia' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_DESCUENTO' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Dto.' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_ID' - DataType = datAutoInc - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - DisplayLabel = 'ID' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_ID_FACTURA' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'ID_FACTURA' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_TIPO_DETALLE' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Tipo detalle' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_CONCEPTO' - DataType = datString - Size = 2000 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Concepto' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Importe unidad' - Alignment = taRightJustify - end - item - Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Importe total' - Alignment = taRightJustify - end - item - Name = 'FacturasCliente_Detalles_VISIBLE' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = #191'Visible?' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_POSICION' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Posici'#243'n' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_CANTIDAD' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Cantidad' - Alignment = taLeftJustify - end> - Left = 46 - Top = 158 - end - object frxReport: TfrxReport - Version = '3.23.7' - DotMatrixReport = False - EngineOptions.DoublePass = True - IniFile = '\Software\Fast Reports' - PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] - PreviewOptions.Zoom = 1.000000000000000000 - PrintOptions.Printer = 'Por defecto' - ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 39325.839120185180000000 - ScriptLanguage = 'PascalScript' - ScriptText.Strings = ( - 'var' - ' Pagina: Variant;' - '' - '' - 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' - 'var' - ' Cadena: String;' - 'begin' - '{' - ' DatosEmpresa.Lines.Clear;' - ' if ( <> '#39#39') then' - ' Cadena := '#39'TLF: '#39' + ;' - ' if ( <> '#39#39') then' - - ' Cadena := Cadena + '#39' FAX: '#39' + ;' - ' DatosEmpresa.Lines.Add(Cadena);' - '}' - 'end;' - '' - 'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);' - 'begin' - '// NombreEmpresa.Lines.Clear;' - '// NombreEmpresa.Lines.Add();' - 'end;' - '' - 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if not Engine.FinalPass then' - ' Set('#39'TotalPaginas'#39', ( + 1));' - '' - ' if Engine.FinalPass then' - ' Set('#39'Pagina'#39', ( + 1));' - 'end;' - '' - 'procedure frxReportOnStartReport(Sender: TfrxComponent);' - 'begin' - ' Set('#39'Pagina'#39', 0);' - ' Set('#39'TotalPaginas'#39', 0);' - 'end;' - '' - 'begin' - '' - 'end.') - ShowProgress = False - StoreInDFM = False - OnStartReport = 'frxReportOnStartReport' - Left = 169 - Top = 16 - Datasets = < - item - DataSet = frxDBCabecera - DataSetName = 'frxDBCabecera' - end> - Variables = < - item - Name = ' Paginacion' - Value = Null - end - item - Name = 'Pagina' - Value = Null - end - item - Name = 'TotalPaginas' - Value = Null - end> - Style = <> - end - object frxDBCabecera: TfrxDBDataset - UserName = 'frxDBCabecera' - CloseDataSource = True - DataSource = DADataCabecera - Left = 264 - Top = 16 - end -end diff --git a/Source/Modulos/Contactos/Reports/Copia de uRptFichasEmpleado_Server.pas b/Source/Modulos/Contactos/Reports/Copia de uRptFichasEmpleado_Server.pas deleted file mode 100644 index d65c7077..00000000 --- a/Source/Modulos/Contactos/Reports/Copia de uRptFichasEmpleado_Server.pas +++ /dev/null @@ -1,108 +0,0 @@ -unit uRptFichasEmpleado_Server; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, frxClass, frxDBSet, uDAScriptingProvider, - uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, - frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, - uDAInterfaces; - -type - TRptFichasEmpleado = class(TDataModule) - DADataCabecera: TDADataSource; - tbl_FichaEmpleado: TDACDSDataTable; - DABINAdapter: TDABINAdapter; - frxRichObject1: TfrxRichObject; - frxBarCodeObject1: TfrxBarCodeObject; - frxOLEObject1: TfrxOLEObject; - frxCrossObject1: TfrxCrossObject; - frxCheckBoxObject1: TfrxCheckBoxObject; - frxGradientObject1: TfrxGradientObject; - frxChartObject1: TfrxChartObject; - frxDBCabecera: TfrxDBDataset; - schReport: TDASchema; - DataDictionary: TDADataDictionary; - frxReport: TfrxReport; - procedure DataModuleCreate(Sender: TObject); - private - FConnection: IDAConnection; - //Genera cada uno de los albaranes a imprimir - procedure GenerarFicha(const ID: integer); overload; - public - function GenerarFicha(const AFichaID : String): Binary; overload; - end; - -implementation - -{$R *.dfm} - -uses - uDataModuleServer, schContactosClient_Intf; - -const - rptFichaEmpleado = 'InfFichaEmpleado.fr3'; - - { Dataset names for schReport } - ds_InformeFichaEmpleado = 'InformeFichasEmpleado'; - - -{ TRptFichaEmpleado } - - -procedure TRptFichasEmpleado.DataModuleCreate(Sender: TObject); -begin - schReport.ConnectionManager := dmServer.ConnectionManager; - FConnection := dmServer.DarNuevaConexion; - frxReport.EngineOptions.NewSilentMode := simReThrow; -end; - -function TRptFichasEmpleado.GenerarFicha(const AFichaID: String): Binary; -var - ID_Fichas: TStringList; - i: Integer; - -begin - Result := Binary.Create; - FConnection.BeginTransaction; - - try - ID_Fichas := TStringList.Create; - ID_Fichas.CommaText := AFichaID; - - //Vamos generando todos y cada uno de las fichas de empleado - for i := 0 to ID_Fichas.Count - 1 do - GenerarFicha(StrToInt(ID_Fichas.Strings[i])); - - frxReport.PreviewPages.SaveToStream(Result); - - finally - FConnection.RollbackTransaction; - end; -end; - -procedure TRptFichasEmpleado.GenerarFicha(const ID: integer); -var - AStream: TMemoryStream; - dsMaster: IDADataset; -begin - AStream := TMemoryStream.Create; - - try - dsMaster := schReport.NewDataset(FConnection, ds_InformeFichaEmpleado, ['ID'], [ID]); - - AStream.Clear; - DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); - DABINAdapter.ReadDataset(AStream, tbl_FichaEmpleado, TRUE, '', TRUE, TRUE); - - frxReport.LoadFromFile(DarRutaInformes + rptFichaEmpleado, True); - frxReport.PrepareReport(False); - - finally - AStream.Free; - dsMaster := Nil; - end; -end; - -end. diff --git a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.dfm b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.dfm index 447b847d..4b740671 100644 --- a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.dfm +++ b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.dfm @@ -4,33 +4,67 @@ object RptEtiquetasContacto: TRptEtiquetasContacto Height = 405 Width = 447 object DADataCabecera: TDADataSource + DataSet = tbl_Contactos.Dataset DataTable = tbl_Contactos Left = 264 Top = 72 end - object tbl_Contactos: TDACDSDataTable + object tbl_Contactos: TDAMemDataTable RemoteUpdatesOptions = [] - Fields = <> + Fields = < + item + Name = 'ID' + DataType = datInteger + end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + end + item + Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + end> Params = <> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - SchemaCall.Params = <> - DataRequestCall.Params = <> - DataUpdateCall.Params = <> - ScriptCall.Params = <> - ReadOnly = False + LocalSchema = schReport + LocalDataStreamer = Bin2DataStreamer DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'InformeEtiquetasContacto' IndexDefs = <> Left = 264 Top = 128 end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 80 - end object frxRichObject1: TfrxRichObject Left = 48 Top = 296 @@ -113,104 +147,49 @@ object RptEtiquetasContacto: TRptEtiquetasContacto item Name = 'ID' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'NIF_CIF' DataType = datString Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'CALLE' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'POBLACION' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'PROVINCIA' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end> + JoinDataTables = <> + UnionDataTables = <> Commands = <> RelationShips = <> UpdateRules = <> + Version = 0 Left = 48 Top = 16 end @@ -219,298 +198,203 @@ object RptEtiquetasContacto: TRptEtiquetasContacto item Name = 'FacturasCliente_ID' DataType = datAutoInc - BlobType = dabtUnknown Required = True - DisplayWidth = 0 DisplayLabel = 'ID' - Alignment = taLeftJustify end item Name = 'FacturasCliente_ID_EMPRESA' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_EMPRESA' - Alignment = taLeftJustify end item Name = 'FacturasCliente_ID_CONTRATO' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_CONTRATO' - Alignment = taLeftJustify end item Name = 'FacturasCliente_FECHA_FACTURA' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Fecha de las factura' - Alignment = taLeftJustify end item Name = 'FacturasCliente_VENCIMIENTO' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Vencimiento' - Alignment = taLeftJustify end item Name = 'FacturasCliente_SITUACION' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Situaci'#243'n' - Alignment = taLeftJustify end item Name = 'FacturasCliente_BASE_IMPONIBLE' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Base imponible' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_DESCUENTO' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Importe dto.' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_IVA' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Importe IVA' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_TOTAL' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Importe total' Alignment = taRightJustify end item Name = 'FacturasCliente_FORMA_PAGO' DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Forma de pago' - Alignment = taLeftJustify end item Name = 'FacturasCliente_ID_CLIENTE' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_CLIENTE' - Alignment = taLeftJustify end item Name = 'FacturasCliente_NIF_CIF' DataType = datString Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'NIF/CIF' - Alignment = taLeftJustify end item Name = 'FacturasCliente_CODIGO_POSTAL' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'C'#243'd. postal' - Alignment = taLeftJustify end item Name = 'FacturasCliente_FECHA_ALTA' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'FECHA_ALTA' - Alignment = taLeftJustify end item Name = 'FacturasCliente_FECHA_MODIFICACION' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'FECHA_MODIFICACION' - Alignment = taLeftJustify end item Name = 'FacturasCliente_OBSERVACIONES' DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Observaciones' - Alignment = taLeftJustify end item Name = 'FacturasCliente_NOMBRE' DataType = datString Size = 100 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Cliente' - Alignment = taLeftJustify end item Name = 'FacturasCliente_CALLE' DataType = datString Size = 150 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Direcci'#243'n' - Alignment = taLeftJustify end item Name = 'FacturasCliente_PROVINCIA' DataType = datString Size = 30 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Provincia' - Alignment = taLeftJustify end item Name = 'FacturasCliente_POBLACION' DataType = datString Size = 150 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Poblaci'#243'n' - Alignment = taLeftJustify end item Name = 'FacturasCliente_IVA' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'IVA' - Alignment = taLeftJustify end item Name = 'FacturasCliente_USUARIO' DataType = datString Size = 100 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'USUARIO' - Alignment = taLeftJustify end item Name = 'FacturasCliente_REFERENCIA' DataType = datString Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Referencia' - Alignment = taLeftJustify end item Name = 'FacturasCliente_DESCUENTO' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Dto.' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_ID' DataType = datAutoInc - BlobType = dabtUnknown Required = True - DisplayWidth = 0 DisplayLabel = 'ID' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_ID_FACTURA' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_FACTURA' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_TIPO_DETALLE' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Tipo detalle' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_CONCEPTO' DataType = datString Size = 2000 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Concepto' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Importe unidad' Alignment = taRightJustify end item Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Importe total' Alignment = taRightJustify end item Name = 'FacturasCliente_Detalles_VISIBLE' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = #191'Visible?' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_POSICION' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Posici'#243'n' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_CANTIDAD' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Cantidad' - Alignment = taLeftJustify end> Left = 46 Top = 158 end object frxReport: TfrxReport - Version = '3.23.7' + Version = '4.3' DotMatrixReport = False IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Por defecto' + PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 38330.712904247710000000 ReportOptions.LastChange = 39328.775946539350000000 ScriptLanguage = 'PascalScript' @@ -573,13 +457,6 @@ object RptEtiquetasContacto: TRptEtiquetasContacto StoreInDFM = False Left = 169 Top = 16 - Datasets = < - item - DataSet = frxDBCabecera - DataSetName = 'frxDBCabecera' - end> - Variables = <> - Style = <> end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' @@ -588,4 +465,8 @@ object RptEtiquetasContacto: TRptEtiquetasContacto Left = 264 Top = 16 end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 80 + end end diff --git a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas index c2c4af9b..5134741f 100644 --- a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas +++ b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas @@ -7,13 +7,12 @@ uses Dialogs, frxClass, frxDBSet, uDAScriptingProvider, uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, - uDAInterfaces; + uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable; type TRptEtiquetasContacto = class(TDataModule) DADataCabecera: TDADataSource; - tbl_Contactos: TDACDSDataTable; - DABINAdapter: TDABINAdapter; + tbl_Contactos: TDAMemDataTable; frxRichObject1: TfrxRichObject; frxBarCodeObject1: TfrxBarCodeObject; frxOLEObject1: TfrxOLEObject; @@ -25,6 +24,7 @@ type frxReport: TfrxReport; schReport: TDASchema; DataDictionary: TDADataDictionary; + Bin2DataStreamer: TDABin2DataStreamer; procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; @@ -67,14 +67,18 @@ begin FConnection.BeginTransaction; try - AStream := TMemoryStream.Create; - dsMaster := schReport.NewDataset(FConnection, ds_InformeContactos, [], [], False); //, ['ID'], ['611, 751']); //AID]); - dsMaster.Where.AddText(fld_ContactosID + ' in (' + AID + ')'); - dsMaster.Open; +// AStream := TMemoryStream.Create; +// dsMaster := schReport.NewDataset(FConnection, ds_InformeContactos, [], [], False); //, ['ID'], ['611, 751']); //AID]); +// dsMaster.Where.AddText(fld_ContactosID + ' in (' + AID + ')'); +// dsMaster.Open; + +// AStream.Clear; +// Bin2DataStreamer.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); +// Bin2DataStreamer.ReadDataset(AStream, tbl_Contactos, TRUE, '', TRUE, TRUE); + + tbl_Contactos.Where.AddCondition(fld_ContactosID, cIn, '(' + AID + ')'); + tbl_Contactos.Active := True; - AStream.Clear; - DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); - DABINAdapter.ReadDataset(AStream, tbl_Contactos, TRUE, '', TRUE, TRUE); frxReport.LoadFromFile(DarRutaInformes + rptEtiquetasContacto, True); frxReport.PrepareReport(True); @@ -82,8 +86,8 @@ begin frxReport.PreviewPages.SaveToStream(Result); finally - AStream.Free; - dsMaster := Nil; +// AStream.Free; +// dsMaster := Nil; FConnection.RollbackTransaction; end; diff --git a/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.dfm b/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.dfm index 80a683a7..febbcd1e 100644 --- a/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.dfm +++ b/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.dfm @@ -1,36 +1,199 @@ object RptFichasEmpleado: TRptFichasEmpleado OldCreateOrder = True OnCreate = DataModuleCreate - Height = 405 - Width = 447 + Height = 455 + Width = 576 object DADataCabecera: TDADataSource + DataSet = tbl_FichaEmpleado.Dataset DataTable = tbl_FichaEmpleado Left = 264 Top = 72 end - object tbl_FichaEmpleado: TDACDSDataTable + object tbl_FichaEmpleado: TDAMemDataTable RemoteUpdatesOptions = [] - Fields = <> - Params = <> + Fields = < + item + Name = 'ID' + DataType = datInteger + end + item + Name = 'ID_CATEGORIA' + DataType = datInteger + end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + end + item + Name = 'NOMBRE' + DataType = datString + Size = 255 + end + item + Name = 'PERSONA_CONTACTO' + DataType = datString + Size = 255 + end + item + Name = 'CALLE' + DataType = datString + Size = 255 + end + item + Name = 'POBLACION' + DataType = datString + Size = 255 + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 255 + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + end + item + Name = 'TELEFONO_1' + DataType = datString + Size = 25 + end + item + Name = 'TELEFONO_2' + DataType = datString + Size = 25 + end + item + Name = 'MOVIL_1' + DataType = datString + Size = 25 + end + item + Name = 'MOVIL_2' + DataType = datString + Size = 25 + end + item + Name = 'FAX' + DataType = datString + Size = 25 + end + item + Name = 'EMAIL_1' + DataType = datString + Size = 255 + end + item + Name = 'EMAIL_2' + DataType = datString + Size = 255 + end + item + Name = 'PAGINA_WEB' + DataType = datString + Size = 255 + end + item + Name = 'NOTAS' + DataType = datMemo + end + item + Name = 'FECHA_ALTA' + DataType = datDateTime + end + item + Name = 'FECHA_MODIFICACION' + DataType = datDateTime + end + item + Name = 'USUARIO' + DataType = datString + Size = 20 + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 255 + end + item + Name = 'FECHA_NACIMIENTO' + DataType = datDateTime + end + item + Name = 'CATEGORIA' + DataType = datString + Size = 255 + end + item + Name = 'FECHA_ALTA_EMPRESA' + DataType = datDateTime + end + item + Name = 'FORMACION_BASE' + DataType = datMemo + end + item + Name = 'FORMACION_COMPLE' + DataType = datMemo + end + item + Name = 'FORMACION_RECIBIDA' + DataType = datMemo + end + item + Name = 'EXPERIENCIA' + DataType = datMemo + end + item + Name = 'NOMBRE_EMPRESA' + DataType = datString + Size = 255 + end + item + Name = 'RAZON_SOCIAL' + DataType = datString + Size = 255 + end + item + Name = 'TELEFONO_1_EMPRESA' + DataType = datString + Size = 25 + end + item + Name = 'FAX_EMPRESA' + DataType = datString + Size = 25 + end + item + Name = 'LOGOTIPO' + DataType = datBlob + end> + Params = < + item + Name = 'ID' + DataType = datInteger + Value = '' + ParamType = daptInput + end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - SchemaCall.Params = <> - DataRequestCall.Params = <> - DataUpdateCall.Params = <> - ScriptCall.Params = <> - ReadOnly = False + LocalSchema = schReport + LocalDataStreamer = Bin2DataStreamer DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'InformeFichasEmpleado' IndexDefs = <> Left = 264 Top = 128 end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 80 - end object frxRichObject1: TfrxRichObject Left = 48 Top = 296 @@ -68,7 +231,6 @@ object RptFichasEmpleado: TRptFichasEmpleado item Name = 'ID' DataType = datInteger - BlobType = dabtUnknown Value = '' ParamType = daptInput end> @@ -243,416 +405,172 @@ object RptFichasEmpleado: TRptFichasEmpleado item Name = 'ID' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'ID_CATEGORIA' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'NIF_CIF' DataType = datString Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'CALLE' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'POBLACION' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'PROVINCIA' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TELEFONO_1' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TELEFONO_2' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'MOVIL_1' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'MOVIL_2' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FAX' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'EMAIL_1' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'EMAIL_2' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'PAGINA_WEB' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'NOTAS' DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FECHA_ALTA' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FECHA_MODIFICACION' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FECHA_NACIMIENTO' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'CATEGORIA' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FECHA_ALTA_EMPRESA' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FORMACION_BASE' DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FORMACION_COMPLE' DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FORMACION_RECIBIDA' DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'EXPERIENCIA' DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'NOMBRE_EMPRESA' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'RAZON_SOCIAL' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'TELEFONO_1_EMPRESA' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'FAX_EMPRESA' DataType = datString Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end item Name = 'LOGOTIPO' DataType = datBlob - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript end> + JoinDataTables = <> + UnionDataTables = <> Commands = <> RelationShips = <> UpdateRules = <> + Version = 0 Left = 48 Top = 16 end @@ -661,301 +579,206 @@ object RptFichasEmpleado: TRptFichasEmpleado item Name = 'FacturasCliente_ID' DataType = datAutoInc - BlobType = dabtUnknown Required = True - DisplayWidth = 0 DisplayLabel = 'ID' - Alignment = taLeftJustify end item Name = 'FacturasCliente_ID_EMPRESA' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_EMPRESA' - Alignment = taLeftJustify end item Name = 'FacturasCliente_ID_CONTRATO' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_CONTRATO' - Alignment = taLeftJustify end item Name = 'FacturasCliente_FECHA_FACTURA' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Fecha de las factura' - Alignment = taLeftJustify end item Name = 'FacturasCliente_VENCIMIENTO' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Vencimiento' - Alignment = taLeftJustify end item Name = 'FacturasCliente_SITUACION' DataType = datString Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Situaci'#243'n' - Alignment = taLeftJustify end item Name = 'FacturasCliente_BASE_IMPONIBLE' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Base imponible' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_DESCUENTO' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Importe dto.' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_IVA' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Importe IVA' Alignment = taRightJustify end item Name = 'FacturasCliente_IMPORTE_TOTAL' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Importe total' Alignment = taRightJustify end item Name = 'FacturasCliente_FORMA_PAGO' DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Forma de pago' - Alignment = taLeftJustify end item Name = 'FacturasCliente_ID_CLIENTE' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_CLIENTE' - Alignment = taLeftJustify end item Name = 'FacturasCliente_NIF_CIF' DataType = datString Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'NIF/CIF' - Alignment = taLeftJustify end item Name = 'FacturasCliente_CODIGO_POSTAL' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'C'#243'd. postal' - Alignment = taLeftJustify end item Name = 'FacturasCliente_FECHA_ALTA' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'FECHA_ALTA' - Alignment = taLeftJustify end item Name = 'FacturasCliente_FECHA_MODIFICACION' DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'FECHA_MODIFICACION' - Alignment = taLeftJustify end item Name = 'FacturasCliente_OBSERVACIONES' DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Observaciones' - Alignment = taLeftJustify end item Name = 'FacturasCliente_NOMBRE' DataType = datString Size = 100 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Cliente' - Alignment = taLeftJustify end item Name = 'FacturasCliente_CALLE' DataType = datString Size = 150 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Direcci'#243'n' - Alignment = taLeftJustify end item Name = 'FacturasCliente_PROVINCIA' DataType = datString Size = 30 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Provincia' - Alignment = taLeftJustify end item Name = 'FacturasCliente_POBLACION' DataType = datString Size = 150 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Poblaci'#243'n' - Alignment = taLeftJustify end item Name = 'FacturasCliente_IVA' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'IVA' - Alignment = taLeftJustify end item Name = 'FacturasCliente_USUARIO' DataType = datString Size = 100 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'USUARIO' - Alignment = taLeftJustify end item Name = 'FacturasCliente_REFERENCIA' DataType = datString Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Referencia' - Alignment = taLeftJustify end item Name = 'FacturasCliente_DESCUENTO' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Dto.' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_ID' DataType = datAutoInc - BlobType = dabtUnknown Required = True - DisplayWidth = 0 DisplayLabel = 'ID' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_ID_FACTURA' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'ID_FACTURA' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_TIPO_DETALLE' DataType = datString Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Tipo detalle' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_CONCEPTO' DataType = datString Size = 2000 - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Concepto' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Importe unidad' Alignment = taRightJustify end item Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL' DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Importe total' Alignment = taRightJustify end item Name = 'FacturasCliente_Detalles_VISIBLE' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = #191'Visible?' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_POSICION' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Posici'#243'n' - Alignment = taLeftJustify end item Name = 'FacturasCliente_Detalles_CANTIDAD' DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 DisplayLabel = 'Cantidad' - Alignment = taLeftJustify end> Left = 46 - Top = 158 + Top = 142 end object frxReport: TfrxReport - Version = '3.23.7' + Version = '4.3' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Por defecto' + PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 39065.872423495400000000 - ReportOptions.LastChange = 39329.847549722220000000 + ReportOptions.LastChange = 39329.847549722200000000 ScriptLanguage = 'PascalScript' ScriptText.Strings = ( 'var' @@ -1006,31 +829,86 @@ object RptFichasEmpleado: TRptFichasEmpleado OnStartReport = 'frxReportOnStartReport' Left = 169 Top = 16 - Datasets = < - item - DataSet = frxDBCabecera - DataSetName = 'frxDBCabecera' - end> - Variables = < - item - Name = ' Paginacion' - Value = Null - end - item - Name = 'Pagina' - Value = Null - end - item - Name = 'TotalPaginas' - Value = Null - end> - Style = <> end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = True - DataSource = DADataCabecera + DataSource = DataSource1 Left = 264 Top = 16 end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 80 + end + object IBDatabase1: TIBDatabase + Connected = True + DatabaseName = 'C:\Codigo Acana\Database\ACANA.FDB' + Params.Strings = ( + 'user_name=sysdba' + 'password=masterkey' + 'lc_ctype=ISO8859_1') + LoginPrompt = False + DefaultTransaction = IBTransaction1 + Left = 352 + Top = 16 + end + object cabecera: TIBQuery + Database = IBDatabase1 + Transaction = IBTransaction1 + Active = True + SQL.Strings = ( + 'select' + ' V_EMPLEADOS.ID,' + ' V_EMPLEADOS.ID_CATEGORIA,' + ' V_EMPLEADOS.NIF_CIF,' + ' V_EMPLEADOS.NOMBRE,' + ' V_EMPLEADOS.PERSONA_CONTACTO,' + ' V_EMPLEADOS.CALLE,' + ' V_EMPLEADOS.POBLACION,' + ' V_EMPLEADOS.PROVINCIA,' + ' V_EMPLEADOS.CODIGO_POSTAL,' + ' V_EMPLEADOS.TELEFONO_1,' + ' V_EMPLEADOS.TELEFONO_2,' + ' V_EMPLEADOS.MOVIL_1,' + ' V_EMPLEADOS.MOVIL_2,' + ' V_EMPLEADOS.FAX,' + ' V_EMPLEADOS.EMAIL_1,' + ' V_EMPLEADOS.EMAIL_2,' + ' V_EMPLEADOS.PAGINA_WEB,' + ' V_EMPLEADOS.NOTAS,' + ' V_EMPLEADOS.FECHA_ALTA,' + ' V_EMPLEADOS.FECHA_MODIFICACION,' + ' V_EMPLEADOS.USUARIO,' + ' V_EMPLEADOS.ID_EMPRESA,' + ' V_EMPLEADOS.REFERENCIA,' + ' V_EMPLEADOS.FECHA_NACIMIENTO,' + ' V_EMPLEADOS.CATEGORIA,' + ' V_EMPLEADOS.FECHA_ALTA_EMPRESA,' + ' V_EMPLEADOS.FORMACION_BASE,' + ' V_EMPLEADOS.FORMACION_COMPLE,' + ' V_EMPLEADOS.FORMACION_RECIBIDA,' + ' V_EMPLEADOS.EXPERIENCIA,' + ' EMPRESAS.NOMBRE as NOMBRE_EMPRESA,' + ' EMPRESAS.RAZON_SOCIAL,' + ' EMPRESAS.TELEFONO_1 as TELEFONO_1_EMPRESA,' + ' EMPRESAS.FAX as FAX_EMPRESA,' + ' EMPRESAS.LOGOTIPO' + ' ' + 'from V_EMPLEADOS' + 'left join EMPRESAS on (EMPRESAS.ID = V_EMPLEADOS.ID_EMPRESA)' + 'where V_EMPLEADOS.ID = 2050') + Left = 440 + Top = 16 + end + object DataSource1: TDataSource + DataSet = cabecera + Left = 440 + Top = 72 + end + object IBTransaction1: TIBTransaction + Active = True + Left = 352 + Top = 72 + end end diff --git a/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.pas b/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.pas index d65c7077..9e20133c 100644 --- a/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.pas +++ b/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.pas @@ -6,14 +6,14 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, frxClass, frxDBSet, uDAScriptingProvider, uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, + uDAInterfaces, uDAMemDataTable, uDABin2DataStreamer, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, - uDAInterfaces; + uDADataStreamer, IBDatabase, IBCustomDataSet, IBQuery; type TRptFichasEmpleado = class(TDataModule) DADataCabecera: TDADataSource; - tbl_FichaEmpleado: TDACDSDataTable; - DABINAdapter: TDABINAdapter; + tbl_FichaEmpleado: TDAMemDataTable; frxRichObject1: TfrxRichObject; frxBarCodeObject1: TfrxBarCodeObject; frxOLEObject1: TfrxOLEObject; @@ -25,6 +25,11 @@ type schReport: TDASchema; DataDictionary: TDADataDictionary; frxReport: TfrxReport; + Bin2DataStreamer: TDABin2DataStreamer; + IBDatabase1: TIBDatabase; + cabecera: TIBQuery; + DataSource1: TDataSource; + IBTransaction1: TIBTransaction; procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; @@ -87,21 +92,24 @@ var AStream: TMemoryStream; dsMaster: IDADataset; begin - AStream := TMemoryStream.Create; +// AStream := TMemoryStream.Create; try - dsMaster := schReport.NewDataset(FConnection, ds_InformeFichaEmpleado, ['ID'], [ID]); +// dsMaster := schReport.NewDataset(FConnection, ds_InformeFichaEmpleado, ['ID'], [ID]); - AStream.Clear; - DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); - DABINAdapter.ReadDataset(AStream, tbl_FichaEmpleado, TRUE, '', TRUE, TRUE); +// AStream.Clear; +// Bin2DataStreamer.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); +// Bin2DataStreamer.ReadDataset(AStream, tbl_FichaEmpleado, TRUE, '', TRUE, TRUE); + + tbl_FichaEmpleado.ParamByName('ID').AsInteger := ID; + tbl_FichaEmpleado.Active := True; frxReport.LoadFromFile(DarRutaInformes + rptFichaEmpleado, True); frxReport.PrepareReport(False); finally - AStream.Free; - dsMaster := Nil; +// AStream.Free; +// dsMaster := Nil; end; end; diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas index 38159047..34315925 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas @@ -51,8 +51,8 @@ uses {Generated:} FactuGES_Invk, Dialogs, uBizContactosServer, uDataModuleServer, uDatabaseUtils, uUsersManager, schContactosClient_Intf, uBizEmpleadosServer, - uBizClientesServer, uBizProveedoresServer, uRestriccionesUsuarioUtils; -// uRptFichasEmpleado_Server, uRptEtiquetasContacto_Server; + uBizClientesServer, uBizProveedoresServer, uRestriccionesUsuarioUtils, + uRptFichasEmpleado_Server, uRptEtiquetasContacto_Server; procedure Create_srvContactos(out anInstance : IUnknown); begin @@ -97,30 +97,27 @@ begin end; function TsrvContactos.GenerateEtiquetasReport(const ContactosID: String): Binary; -//var -// AReportGenerator : TRptEtiquetasContacto; +var + AReportGenerator : TRptEtiquetasContacto; begin -{ AReportGenerator := TRptEtiquetasContacto.Create(nil); + AReportGenerator := TRptEtiquetasContacto.Create(nil); try Result := AReportGenerator.GenerarInforme(ContactosID); finally FreeAndNIL(AReportGenerator); end; -} end; function TsrvContactos.GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary; -//var -// AReportGenerator : TRptFichasEmpleado; +var + AReportGenerator : TRptFichasEmpleado; begin -{ AReportGenerator := TRptFichasEmpleado.Create(nil); try Result := AReportGenerator.GenerarFicha(EmpleadoID); finally FreeAndNIL(AReportGenerator); end; -} end; initialization diff --git a/Source/Modulos/Contactos/Views/Contactos_view.res b/Source/Modulos/Contactos/Views/Contactos_view.res index 1641339f..8b251f31 100644 Binary files a/Source/Modulos/Contactos/Views/Contactos_view.res and b/Source/Modulos/Contactos/Views/Contactos_view.res differ diff --git a/Source/Modulos/Contactos/Views/uEditorClientes.dfm b/Source/Modulos/Contactos/Views/uEditorClientes.dfm index 58e9dafc..a0444c66 100644 --- a/Source/Modulos/Contactos/Views/uEditorClientes.dfm +++ b/Source/Modulos/Contactos/Views/uEditorClientes.dfm @@ -2166,7 +2166,7 @@ inherited fEditorClientes: TfEditorClientes 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 0007C0000007C000000700000007000000070000000700000007C000000FC000 001F8000003F800000FFF8FFFFFF} - Width = 450 + Width = 500 Left = 296 Top = 144 end @@ -2477,7 +2477,7 @@ inherited fEditorClientes: TfEditorClientes 0007F0000007F0000007F0000007F0000007F0000007F0000007800000078000 0007C0000007C000000700000007000000070000000700000007C000000FC000 001F8000003F800000FFF8FFFFFF} - Width = 450 + Width = 500 Left = 328 Top = 144 end diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.dfm b/Source/Modulos/Contactos/Views/uEditorContactos.dfm index c722fad7..55901294 100644 --- a/Source/Modulos/Contactos/Views/uEditorContactos.dfm +++ b/Source/Modulos/Contactos/Views/uEditorContactos.dfm @@ -2,7 +2,6 @@ inherited fEditorContactos: TfEditorContactos Left = 285 Top = 448 Caption = 'Lista de contactos' - ExplicitWidth = 320 ExplicitHeight = 471 PixelsPerInch = 96 TextHeight = 13 diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.pas b/Source/Modulos/Contactos/Views/uEditorContactos.pas index 087817ff..40cf5389 100644 --- a/Source/Modulos/Contactos/Views/uEditorContactos.pas +++ b/Source/Modulos/Contactos/Views/uEditorContactos.pas @@ -80,10 +80,7 @@ end; procedure TfEditorContactos.ImprimirInterno; begin -AppFactuGES.ShowCapado; -{ inherited; -} end; procedure TfEditorContactos.ModificarInterno; @@ -111,10 +108,7 @@ end; procedure TfEditorContactos.PrevisualizarInterno; begin -AppFactuGES.ShowCapado; -{ inherited; -} end; procedure TfEditorContactos.SetContactos(const Value: IBizContacto); diff --git a/Source/Modulos/Contactos/Views/uViewEmpleados.dfm b/Source/Modulos/Contactos/Views/uViewEmpleados.dfm index d80002e7..7cf127c4 100644 --- a/Source/Modulos/Contactos/Views/uViewEmpleados.dfm +++ b/Source/Modulos/Contactos/Views/uViewEmpleados.dfm @@ -3,10 +3,9 @@ inherited frViewEmpleados: TfrViewEmpleados inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < item - Format = '0 agentes' + Format = '0 empleados' Kind = skCount - FieldName = 'ID' - Column = cxGridViewNIF_CIF + Column = cxGridViewNOMBRE end> inherited cxGridViewICONO: TcxGridDBColumn BestFitMaxWidth = 22 @@ -31,20 +30,23 @@ inherited frViewEmpleados: TfrViewEmpleados inherited frViewFiltroBase1: TfrViewFiltroBase inherited TBXDockablePanel1: TTBXDockablePanel inherited dxLayoutControl1: TdxLayoutControl + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 457 + Width = 457 + end inherited edtFechaIniFiltro: TcxDateEdit ExplicitWidth = 239 Width = 239 end inherited edtFechaFinFiltro: TcxDateEdit + Left = 341 + ExplicitLeft = 341 ExplicitWidth = 207 Width = 207 end end end end - inherited pnlAgrupaciones: TTBXDockablePanel - ExplicitWidth = 128 - end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink ReportDocument.CreationDate = 39211.791248726860000000 diff --git a/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm b/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm index d779c3b9..5cacbf1b 100644 --- a/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm +++ b/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm @@ -1,6 +1,6 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto - Width = 451 - Height = 149 + Width = 591 + Height = 304 Align = alClient AutoSize = True OnCreate = CustomViewCreate @@ -10,16 +10,16 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto object layoutApunte: TdxLayoutControl Left = 0 Top = 0 - Width = 451 - Height = 149 + Width = 591 + Height = 304 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] - ExplicitHeight = 177 + ExplicitWidth = 451 DesignSize = ( - 451 - 149) + 591 + 304) object eRefSubCuenta: TcxDBTextEdit Left = 93 Top = 37 @@ -41,13 +41,48 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto Width = 346 end object BitBtn3: TBitBtn - Left = 204 + Left = 249 Top = 37 - Width = 75 + Width = 110 Height = 25 Action = actElegirSubCuenta Caption = 'Elegir subcuenta' TabOrder = 2 + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000000000000000000000000000000000000FF00FF00F81B + F400C526AD00B10F9600BA18A000B917A000BA18A000B817A000BB18A000C61C + 9F00B917A000B8189E009D186E00A01B7500E20CD700FF00FF00FF00FF00E83E + DB00D4C6BC00BFADA200BBA79900BCA99A00BBA69800BBA69800BAA79900B3A5 + 9900B19386006C100D00781924007212190099125900FF00FF00FF00FF00E833 + DB00F2EAE500FFFFFF00FBF6F300FAF3EE00F6EDE700F7EEE900F9EFEA00F9F0 + EA00F9F0EB00B37D7E00F083E400F548EE008F044600D602BC00FF00FF00EA35 + DD00E9DFD900FAF7F400EFE8E300EDE4DF00ECE3DD00EDE5DF00EDE4DF00EDE4 + DF00ECE4DE00EDE5E000F3ECE600F7B2F000B7038900B7038900FF00FF00EA35 + DD00EBE2DD00FDFAFA00F1EBE700EFE7E300EDE6E100EDE6E100EDE6E100EDE6 + E100EDE6E100EDE6E100ECE5DF00F0A7E400AD037900A3036800FF00FF00ED37 + DD00EBE4E000FFFFFF00F5EFED00F2ECE900EFEAE500EFEAE500EFEAE500F0EA + E500EFEAE500EFEAE500C29599008E26460066050300CC02AB00FF00FF00ED2E + E100FFF4E800FFFFFF00FFFFFA00FFF9F300FFF5ED00FFF4ED00F3EDE900F1EC + E900F2ECE900D6BEBB0066050300A30D6800D503B900FC03F700F505FA00B728 + D000E8DED200EAECEF00E5E5E700E4E1E100DFDBDB00E7E4E200FFF8F300F7F3 + F100F7F4F100B38482008E464600F996F100FC02F800FC03F7006A67AD000867 + AF000E7AAF000F7DB0000E7BAF000F7CAF000778AE001C75A300D7E0E100FFF9 + F100F2EEEB00CEB1AE008C444100FFBAFF00FF00FF00F401EE008B94A50068C2 + D80042D8FD003AC5F10032C1EF0028BAEB0023BCF1000080C200559BB800FFFF + F600F2E9E300EFE6E20079242200D682BC00F401EE00A30368009FB2CB0098B8 + BA0075DBED0068E9FF0061D8F70051D0F30049CDF30020B4E900006FA700D1E3 + E300FFFFFB00FFFFFF00D2B7B200700F1700660503008F04460098B9D4008ECE + D30077A7B90064F1FF0063E3FF0055D9FC0049D1F80043D8FF00008ACA0059A0 + C200FBF7F200CCB4A600B09B8B008A245F00FF00FF00FF00FF0099B2CD0096FB + FD00859EA90069C4DB0062DEF50061D5F10053CCEE004FCBEE0029C0F2000070 + B0009E9E9B00B5958300AD988900973F6F00FF00FF00FF00FF0097AAC90098FF + FF0095E3E30089B1B8007FBFCB007DBECA007BBCCA0073BACC0077ADBC00809A + AA00C0BAB600FFFFFF00BB909C00DD0BD100FF00FF00FF00FF008FC2CA0098FF + FF0097FFFF0098F3F20096B4B50095B1B40095B5B8008CB2B8008E9EA200F9E6 + DD00F7E5DA00A3767700D908CC00FF00FF00FF00FF00FF00FF00AF6FC70094B6 + C90090B6CA00AB72C200E640D500F04BD800ED4BD600ED4AD600EC4CD700EE53 + E000E248D100E407DB00FF00FF00FF00FF00FF00FF00FF00FF00} end object eSubCuenta: TcxDBTextEdit Left = 93 @@ -70,18 +105,53 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto Width = 265 end object BitBtn1: TBitBtn - Left = 285 + Left = 365 Top = 37 - Width = 75 + Width = 120 Height = 25 Action = actAnadirSubcuenta Caption = 'A'#241'adir subcuenta' TabOrder = 3 + Glyph.Data = { + 36040000424D3604000000000000360000002800000010000000100000000100 + 2000000000000004000000000000000000000000000000000000FF00FF00F81B + F400C526AD00306030003050300020483000BA18A000B817A000BB18A0005E51 + 5A00B917A000B8189E009D186E00A01B7500E20CD700FF00FF00FF00FF00E83E + DB00D4C6BC003068400030A0500030503000BBA69800BBA69800BAA799007976 + 6C00B19386006C100D00781924007212190099125900FF00FF00FF00FF00E833 + DB00F2EAE5004070400040A0600030603000F6EDE700F7EEE900F9EFEA00EAE2 + DC00F9F0EB00B37D7E00F083E400F548EE008F044600D602BC0050A060005098 + 5000408850004080400050A8600030684000305830003050300020483000EDE4 + DF00ECE4DE00EDE5E000F3ECE600F7B2F000B7038900B703890050A8600080D0 + 900080C8900070C0800060B8700050B0600040A060003098500030503000EDE6 + E100EDE6E100EDE6E100ECE5DF00F0A7E400AD037900A303680060B0600050A8 + 600050A060005098500060B8800040804000407040003068400030583000F0EA + E500EFEAE500EFEAE500C29599008E26460066050300CC02AB00FF00FF00ED2E + E100FFF4E80050A0600070C0800040885000FFF5ED00FFF4ED00F3EDE900F1EC + E900F2ECE900D6BEBB0066050300A30D6800D503B900FC03F700F505FA00B728 + D000E8DED20050A8600080C8900050985000DFDBDB00E7E4E200FFF8F300F7F3 + F100F7F4F100B38482008E464600F996F100FC02F800FC03F7006A67AD000867 + AF000E7AAF0060B0600050A8600050A060000778AE001C75A300D7E0E100FFF9 + F100F2EEEB00CEB1AE008C444100FFBAFF00FF00FF00F401EE008B94A50068C2 + D80042D8FD003AC5F10032C1EF0028BAEB0023BCF1000080C200559BB800FFFF + F600F2E9E300EFE6E20079242200D682BC00F401EE00A30368009FB2CB0098B8 + BA0075DBED0068E9FF0061D8F70051D0F30049CDF30020B4E900006FA700D1E3 + E300FFFFFB00FFFFFF00D2B7B200700F1700660503008F04460098B9D4008ECE + D30077A7B90064F1FF0063E3FF0055D9FC0049D1F80043D8FF00008ACA0059A0 + C200FBF7F200CCB4A600B09B8B008A245F00FF00FF00FF00FF0099B2CD0096FB + FD00859EA90069C4DB0062DEF50061D5F10053CCEE004FCBEE0029C0F2000070 + B0009E9E9B00B5958300AD988900973F6F00FF00FF00FF00FF0097AAC90098FF + FF0095E3E30089B1B8007FBFCB007DBECA007BBCCA0073BACC0077ADBC00809A + AA00C0BAB600FFFFFF00BB909C00DD0BD100FF00FF00FF00FF008FC2CA0098FF + FF0097FFFF0098F3F20096B4B50095B1B40095B5B8008CB2B8008E9EA200F9E6 + DD00F7E5DA00A3767700D908CC00FF00FF00FF00FF00FF00FF00AF6FC70094B6 + C90090B6CA00AB72C200E640D500F04BD800ED4BD600ED4AD600EC4CD700EE53 + E000E248D100E407DB00FF00FF00FF00FF00FF00FF00FF00FF00} end object BitBtn2: TBitBtn - Left = 366 + Left = 491 Top = 37 - Width = 75 + Width = 90 Height = 25 Action = actVerSubcuenta Caption = 'Ver subcuenta' @@ -172,10 +242,12 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto Top = 88 end object actLista: TActionList + Images = SmallImages Left = 64 Top = 88 object actElegirSubCuenta: TAction Caption = 'Elegir subcuenta' + ImageIndex = 1 OnExecute = actElegirSubCuentaExecute OnUpdate = actElegirSubCuentaUpdate end @@ -186,829 +258,534 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto end object actAnadirSubcuenta: TAction Caption = 'A'#241'adir subcuenta' + ImageIndex = 5 OnExecute = actAnadirSubcuentaExecute OnUpdate = actAnadirSubcuentaUpdate end end - object LargeImages: TPngImageList - Height = 24 - Width = 24 + object SmallImages: TPngImageList PngImages = < item PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000774494D45000000000000000973942E000000097048597300001712 - 0000171201679FD252000003CD4944415478DA8D96ED4F53571CC7BF17EC9315 - 11864234C607C6D4E9408621F88CBA88D0C64D48EA906C3E3459F40FD077666F - 7CEB62A2912C43F0A950A12A3001AD2613810908B46869E69E8B2FBA3087F499 - B6F7B63BF7E0BDB6D2A79BDCDE73EEBDE7F339E7777EE7DC3248E1303C346BC9 - A5812FDBED767AAF51D7B9C9F4A07E22595B2655F8DED202642D5E089F3F88B6 - EE415CF8BE857F9C54C2A402DFBD651D7296C8C5FBD3336EE87F7C8206DDBDA4 - 1226197C57493E96662D9A7BF9F810BD861A4BF1EFB4136D5DFDB8D2DC9550C2 - 2482EF2161C9266111E00D470B611C015A75D7E11FD6E2F51B176EF7FC8CA696 - F812261EFCC0F60D502AA451706DB902A7EB5F60D2F32195B8068EC1E5F1C1D0 - CD4B62878B4904F7F8392C3A3922C2C361D280B438736900B6D94FA9E4D5FD5A - C8A46968E9E8C555FDFC9130EFC3856C8984A72F90E0E31C274AD767A3EBF138 - 7A2D6E64AF2D82C99A4E257FDED320C4B1E87C34881BAD3D511226D1840A70E1 - B09AE7269987FB021CBCE49C9C545089AD5B0387CB03E39351E80C0F44892008 - 278207D830BE297F27FAB6DD41E182A4A9CF0698CDF8BDA31A334E2F7E7A6A42 - F36D2395303C3C56B644F69C09BA3139C5E2ECE11C5AE727DA9791274AF8B3C3 - 64A712ABE17338C9C4F70D3D4757DF2FA0829ACF8AE2C2BD410E013F0397C329 - 0A4E9CEB059B5B4005B38110825C083EF25EDFAFFF518959AF86E5E55F387FB9 - 19CCC5EB3D61AD661F14320915683616A2B24C22C2F9DE05FD0B10F4450B9C59 - 6B299C070B23197FE5A082519D0AD6DFFEC677F56F0599194AA8CA8BB1848429 - BDE40768EABEC6EE923431C6E1800C0C1B2D9852AE8E091FB959058F771643A6 - 0974F7BF04535C716A236963D1D6A95173601B9128A1286BA4924DEB58DA98F5 - C891217347096CD29531E16E12FFC1B109DC6A7F3837C9FCAF20397144854315 - 5B91A15C88CC9DD7A864F90A2F8A729538B6F7DD662748C602B9F37AFE74D422 - C2C5348D941CAF55A19A8C840B315855758B4A64996F909FEE84C7350D960D61 - C6C7D1364D7FC829BCFF4A05A97118187901FD1DE3FC85365FA28646BD132E6F - 0005070DC0E6CD5015E6C58C390F9748D2D03F3C8E9B6DD1AB38E66627488E7E - A942D59E2D9090945DA36EA392B2FCEC28F8B31B9598251FA061B335263CEE76 - 2D48BED25462DFF66228E4527CF4C55D2AA1C75B38CD16027F3F2C49059192BA - 9A0AEC2A2B2212193ED174D2673CDCED9DCB96D6F64771E109059192DAEAFDD8 - 515A08B94C0A8EAC5A9A2D6396A4F0A48248C9113292BC651F807C1260FFE735 - F4778D49E129090449E6B25516C7948DD64919A49CD2DF96FF0126B669571175 - 682F0000000049454E44AE426082} - Name = 'PngImage1' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000032A4944415478DA - BD95CD4F134118877F5B0A22D84205341E30087E24021A45893131F1E2C178F1 - 2A26FE07C6C478319E8D9E8C8926EA49E217D1B328F142A24123070B2E6DB76C - 0B5DB6A585B614CA47BB1F6D7D772CDAD22DA0094C32997476F67966DE79F72D - 97CBE5B0958DDB1601C7719B7EE1D18B8F9768E8A17EB660FA2BF537D7AF5DEC - 2F5CCBD8FF22C8C3DF5FBED04D2F73882FAC40CF64114BA6E1F3F9797AC693E4 - EA7F090AE1FB9AEAD9DCD24A1ABA9E81AA6510239920C530CABB71F7E615EE9F - 0425705A6E80753D4B27C8A0AAD24A630EFE5002E25494242E26D994A01C5C55 - 7528AC6BC866B3A8B7D782B35830198A63C829E2D9BDDEFB4EE7F3DBEB0ACCE0 - AAA617C155EA29458546D2867A1B72D90CDEF67F41DFD37E3709DACB0ACCE00C - AA680CAC685A5EA4B13B38D97E00B14412BC57C2C0E0777C7A37545E50166E80 - F302E324EC37CD7775B4223EBF0861621AA35E19636322BE7D18361798C2159D - ED785550024F2C821F9F82673202419882382A221C0897DEC146F0D59014C213 - 0B4BF0D0CE9D8244F020FC3CC127C31819E92DCE2233785AF90B53F360632E43 - 1FD7098A79742E899F047691C0352621264F63C22D3178D177F0F8E540093C95 - 568BE29EA64C512834468A9EEA6CC34C7C1E6E5F082EA3BBA71097C310F9893F - F0B582D7C78EECEFE9EA6883B5C2C2629C5EB373259F9EDDC70F6226364FE020 - C6082E8E87200B0148A25C045F2B983C77FA684BE7E16696D3A9945A10EBBC48 - FB0D8FC617081CA44B0D421483181F19C7AC3C5B023715B43637D109AC58585C - C64A4A29806B043F84394AC561DE4FE560165E418668C083E6F01281A3CED6D2 - E4D8853D0D75D8595DC52ED2C89E2C8D5D14F34834C1B2E5873B00C123232147 - E017A4B2F0B582C14C8E3B5FBDA30A95560BF6EEB6A3916486A4C16187DD5603 - A77B025E2902371FC072740E9E51DFBAF0926A7AE7415FCE6677C052C1C1565D - 81C6FA5AAA2B39D45111CBD2627F7086761E424494E0F30436849B966B4362AD - AC84BDA69A5295C3F2D21295619D95E5C5E40ABC4E3F8B79FB99F68DD8ACBD7A - 728B332B153722B1F987E170181ADD81F1DCE8AECFDE4D410B1B950A6E7BFEF4 - B7B2FD02BC08E5EFAAF547E00000000049454E44AE426082} - Name = 'PngImage2' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000022C4944415478DA - 63FCFFFF3F032D0123CC82D53BCF13655398871123B18683CC46B120D4DD10AF - 06A01A86F6FED90CE7774E27CA12922CF80754B776D7050651415E86A2BA3EA2 - 2C21DA0290E17FFFFE63D8B0F712838DB12AC3CD7B2F88B284280BFEFDFBCFF0 - 0768F89FBF7F19B61EBC0A0E2218A08A0520D0B3EA2131410E06A5E10A704BB1 - 5AD0B2EA0186260E0646869230798286831CD2317B23C3DB3DF98C382D00F141 - 610E0E963FFF18FEFEFBC7306BEB4BA22D3051F8CD1052BD0D6C098605216E06 - D008FDCFF0FBCF5FB0E1A0C89DBBE335410B7EFDF9CF3069DD23866827617022 - 0059F266771E238A0541AEFA0CED6B1E91144440FBC186FF02FA76F69627E020 - 82010C0BFC1C7519DE7EF88661C8B203EFB15A806C388CDEB9FF2458AE6CC679 - 4C0B3C6DB5C061FF179A2C81084CAF3AFC096E4144CB159CC1D49EA60AB6E4E8 - F133D82D70B5D26098B2FD25C120C2E67264FAF4E9B3D82D70325763F8F8F907 - 8605EB8E7F815B40C87010BE78FE1C760BEC4C5418FEFD852451502A82E4E07F - 0CDBCEFE005B00323CBA0D7710954629327CFBF997E1F6B58BD82DB0355261B8 - FFF41D86C6A3B718180A43E419BEFFFA87D5C520F6CFDF08B187B72E61B760DE - 92B5E0B2071DB8FAA73164F8C912653888FDE2FE654C0B181971975BDD2B1FFC - 4FF292061B5030E5264E75715E32608BDE3DBE4ABA05316E52045DFE0B5CB430 - 307C7C4A8605614E1244190E026459106027CE70E8E869066201C916209731C4 - 02140B6805009C1383EFACA508270000000049454E44AE426082} - Name = 'PngImage3' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000004BF4944415478DA - B5D37B4C53571800F0737A5B6ECB4B2F2D2D2D2053408286870CD4C9C0B89989 - 8ACEB041F035064CEB365800D93235C0EA40FD836D380C085B44C7C30993111E - 93199411DE844029B80908586094577B81963EE8E3EE82D311662A35DB97DCE4 - 3CBE737EB9E77C07120401FECF802B010821A8ACACC7BAC453B54A95E6405AE2 - E111631B7C9E7E331102E87431313C76B1FFAFFD9E071492C0A3A109218D8AD4 - 68C68527040281E1799B9FCF2A738306439314971765244598060C3C9E1406FA - BA73EE36F6045E381DD6B672F39339393457C4BE748BFBFAE08AFBED572E9B04 - 94D7B20647645D7111FB7805E58D359DF2817DB97CBE76795E7246717450E096 - 5C7239E5C7AAA62B99C9260039F977B893B3AA9E84A8FD3603C313BA9FAA5B8F - 9C8F0B2D799A73F6AB627B77676E4750A0375BD43B0ACA6ADA7ECE4C8A085935 - 9097574B1F56C89A2342767A6356E6A0AAB6E3E1AF1DFD5B6E0822D5A1A1C588 - D71B66D7DF7B3BE0E862767BCF20A8691265647D1115BF6A6031522E9784B130 - EB9BEF066DA72C68B5C4F5D2BACF5262DF493F935E78684F804FE9C6F53CF8E7 - 040E6E57B7E04A9572DBB7C951FD26018BCDF8B4FCAC5DDB37F377F86C84AD5D - 0353F79A1FECD9ECC22B3EF8E6AB2EB25925B85327D4F70E8DC5640B22AF3E5D - 640A004EA7FCC046D7A06D216F6D73E230AD417E59BD243CF8353B081128FC43 - 0C6A9BBBEF4BF48CBD2582B085970296904B45611C1BEB225F4F67848A40E0FA - 0A178C4864A0F46EEB2C3E33BF332735BA6B79BEC9C062BD5B482D8A5998D5A1 - 0D8E6C60678B01D14331E81D94246509DE4F052BC26400B8FC821E0E5178D9D9 - 326A5BC516E6737225F0B09BEB1892500FB688E7A5A02E52FD72C08E026F3B1E - 2B92CBC676D3E9664E23A313A85EA7910368A6B1E3602C3A1D5DA0D210B14422 - BBFF6860FC3BD018DEB53AC03797C659E79062CF65C6418346AF981AD3E85438 - 9C56D3692C864A6EE1E0A3D62AA6AD0787261A210D250044BCD45A832DB93413 - A8E70544FB49AD5100DB5FF1D14667CE3732F103056A98EBA322C42D8D9ED239 - 348725AEB39CF56438FA2E5066FAB893B8C27D4C4A1D279770C9DF3E09CCE831 - 8002CF12F5C7B28C022E11BF89508DD489AA1ABE26421D12414998FEEF23BBEA - 6683EF46ED7D09BDACD756A61AE2492A05CAA539A73C3A60EB6F03338623D170 - C4D328E01E5DAF21A47D5A864EE92FACFAE49F12F42F28DA84C93CA9F67E2832 - 3FECA4C30739DD5567F067F3BEB9A90035FF9468388A1A053CF8CD7238FDFB3C - 55A7F2E92C8F1D7B329A42A1BCEE52ED8EC9AC11DE56E61A44EE3833DA13DC5D - 9E50B30CB848023124606514F03AD5D24F99E9B5D42B64FEDD5509834B837E37 - 98660CD8E7B616BF2745DD985C267D977E52745D88D49F0025254F8ED0EFFB22 - F21EFC48C0D52860B9B7347B2D9C896252E70E8B2AE24BC1CE142AD0B97ECD36 - 577DCC3197F3BB71762B8FC3CAD8C0D46D958FF59DEA2A4F2804DED99B009D71 - 0B204803D170EC43E3651A50E88F52F4D55C0B45E563B9F597900031185DF381 - BD85A262DA801F5FBAD8C0020F1EDBA61ACE8D40E50225145722C1804AE39355 - 7480A83FDAF8E287E69FCF275BE7C82EC7D152A1C650F5B529037EEE59D52C5D - 7AD166000C17C85610F94D904F2C0D341ECF79E143FBAFE32F16D672EF3D728C - 4A0000000049454E44AE426082} - Name = 'PngImage4' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000043D4944415478DA - B5956D6C535518C7FFB7B7ED36B66E5D47D67663731BECD5B18605D8504C084B - 74982DC16468D4F881AD0305E3870550D100EABE482246712A8AA00182BA9828 - 84252006D7264AA2631B461325DD5C9ABDC0686B6F5FB7DEDEE373EF6869C736 - B6189FE4A4A7E79EFBFFF5799EFFE9E11863F83F834BFCF211506AD6A7585DFE - A99E3611BD4B1553DE7FC0DC797B64FC9C13387B883149017C0064549A528F56 - 5A2A9E31AE2CD00EDF700AB62B034DAD22EC8B117E07482B3019F61516E7ED15 - 6F8DA6BB6F79D84D1F0E5A197B8BDB06F06D7A743F5C8827B4997A684A6A804C - 031C7F8D78ED97FA9B5BB130E4531E9B2A2D655D191AA9CAE570201C61CC15C0 - D94911D60EC642DC4915DA9BCA714C97024E6E87C46BA029AE86DA5C08C79F4E - A1F7CAB566AB08DB3DC280C19CA77FBBA42877BB776C940F08018444B0DB3E1C - EE6178AD1B88CAFDE58E02797526D8561BB1324A00519A191A532174E535181A - 1A176C3FF42595EB6360836595E1AB1C9DB660CC39A1EC0F46204E06B0AF4DC2 - BBB17D0A409E1C032AD6E7E3C7223D8C31803C54E999C8B1AC85F3A6CF6BBFFC - 4BB30C3995A2B2D696E6BC2F8602691E6F50D9E79F4298CAD2DE069C4ECC320E - 90E32450BF6605BE37A623231122A9782CAF5A0DF7B44618F869F0FC9A55D94F - BB275DAA6058549EFB66C45BACC085D9654C02C8F1058F268B09DF64A5429B08 - 11A97419463304B707E1E014A669215696093F9EDB097C399701EE01C8714A83 - D60773F1499A1A7C1264D6A0864A54F397A8E65DF3396C4E801C67B4D85F9683 - 4EB50ADC5CE25351B04972CB76865716B2F0BC8083D4DFAA545C2DCEC6BA9868 - 34011096ED18C4E1768657659D2501C8519A2C9DB6AB7A6DB955F8E3376EBE12 - C959F8C238B003E85C3480C497E5E51BCE6C78AA79EBDF17CE21484D5DA80FD3 - 049916B1872047EE0B20F1ACE212F3B71B5B1EDD343E781DA3D7FA93C4C88E1E - 8941CDABA04B5C8F48F289C58BCF2BE76F1E00D55C5DBF42FF5D43D3238F07C3 - 115CEFB90831CAE222816984DD213446818954158E136463ECD413546E428446 - FB2E72FA9C80AF759A37B734D4BC9E663070FDBD5721787C890D955C41B45119 - 3E57F6D29FA31BE8500187E8F1B2B8D80CE459827427014EF0D8FC585DD1C53C - 935E3DEC9CC4B06334A9C6247EC4CAB06776FA1F02D5F4EB8ED3743D77F75EA1 - DE63DB6EE07C1CD05791FB7B6D85B1CAE70FE1D7010722E2DDD2FC13823D1C45 - 039DD4C83C76D61A8197497D3F8DD43B990428BBADF4CE6505602FCAEE7EA826 - BFA56FD0018F371417F747E017A650FB027003F70932482D099FA0A9E5CE9240 - A37127633F739FF16859579ADD3D36E1492A0DB176B72BB7E0E2E23D20450B1C - A0E95ECA86A7526DDEC5582F27A759A6852D330575316708615C1A91B0E50D32 - C9620109BDA9A78F27A9D91D7117D19D6A58AEC6E9340D1AC9350295A796360C - 2D557C76241D34D97E5E4A8F9270ED506EC4FF1E32E05FC9675CEF0AFC725300 - 00000049454E44AE426082} - Name = 'PngImage5' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000027F4944415478DA - 63FCFFFF3F032D0123CC02464646AC0A66243060B820630103230391006EC1C9 - 898CEE406A07B2E4890B40C33AA6A268B8B8229761E9E67F0CD1BE4C1886FD67 - F8E76151C0B0139705FF154C1A18045444212EAFC8061BFEE5C54D86A6E24970 - 0D75BD790C770F4C015BD2B16802C3FFBFBF19FE01F1D7A7BF1836CC69C0F01D - 8A05061153510C7F7D7527032EF0ECF216B025AD73DAC016DCD8D2C870FEC23F - E22C787C6C21C3D64DA70886AFB79F1983988E07D8825B3B3B89B70066092100 - 331C84EFECE923CD027430F9A037410B61A0345C016E095116FCFFFF8F61CA21 - 5F869230798286F7AC7AC8D0317B23C3DB3DF98C445900321C9452A61E0D22DA - 021385DF0C21D5DBC096E0B50066F8BF3FBF18A69F8C2068C1AF3FFF1926AD7B - C410ED24CC70F3DE0BB025382D00451C03D00290E120F6CC33B1382DF8FB0F62 - F8AF3FFF18666F79020E22BC71003210968160ECD91752B05A806C388CDEB9FF - 2458AE6CC6794C0BB0190EF2C5DC2B59700B225AAEE00CA6F63455B025478F9F - C1B4402F740256C341F4BCEBF9283EC0E67264FAF4E9B39816E8067563351CC4 - 5F70AB046E0121C341F8E2F973981668FBB761351C8417DDAD045B00323CBA0D - 7710954629327CFBF997E1F6B58B981668FA346235FCFFBF3F0C8BEFD7321486 - C8337CFFF50FAB8B41EC9FBF11620F6F5DC2B440C3B306ABE120FE92474D0C19 - 7EB244190E62BFB87F19D302559712B8E1E8F4F2E75D0C495ED260030AA6DCC4 - 1944715E32608BDE3DBE8A6981B45E00C3B34B9BB06A3C24798F21C64D8AA0CB - 416C503C7D7C8A6901B8CABC7001BBCB3E7B3E6008739220CA7010C0B00057A5 - 0F03DD2B1FFC0FB013673874F43403B180640B90CB18620100261ED9D6E5FCF2 - FA0000000049454E44AE426082} - Name = 'PngImage6' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000037C4944415478DA - B595DF4F5B6518C73F2DFD4191B66C6C4E8512618376DD28B485B1C126D90F36 - 8D1B1726264B76B53BAF3431DE99F80F18BDD1449399254B644E1747743ADD94 - 48169C428131268366832D631BC838FC687B0A057AEA7B0EB692B562417D9393 - 9C93F33EDFCFFB7D9EE73C47974824F83F976E25A0E59BCE75D1DEFBF00CD72F - 7FA4CB0A70E268DD9AC4450C454F17F2E63BEF6784FC2780EAEDCFF3580A6784 - FC2B403CAE70EEBB007BFD4E22D15846C8BA01AA783C9EE0FC956E0EECDEC1C2 - E2524648D680E1FB9374760E119A95B1D99FA2AECEC5739BED5C68EBD58AFCE4 - CA1A1096635CBC14D084B7941761CECB25321D66EAFE440A343032811C959124 - 498B39DDF275760055BCE5B3761C9E321CDB1D42DC844EA7435114E6E57946FB - 4778187C44D3613F66B3414BDBC5B6AEEC0167CF77905FBC096F4D3936430EF7 - C2301E5D7E67B5409E3EC648D720F353111A1ADC28A226DFB607B203A839FFE1 - 4A0FF5C71B291169B1EBE14E086E882C0813E488E70D3630CA53F48B4EF2EE72 - 512852F6FDD5EEEC00EAE973375AA93C50C55C04CC0A8C89D3CB4B5060165D24 - C242E2DE4A98B1BE2114D1413E7F053FFEDC9B1DE0E34F2E535A5341597529C3 - 63301703530E3C9B07361308034C2E08A09009DD1A606CE801FB1AABF8E9D7BE - 7F06A8C5FAFCC235AC22FFAE3D2E46C661711136E5C266711905A8C0080BC255 - 707A9E4737832CCE84D95959C6D540FFEA80E32FD56A1FD0E8F8B45683FD279B - 90643D2191A62DA2B076215C201C6C109738070392CC2F5F75E0F26CC5969FCB - B59EDF5607BC7AB84673B0245A51EDFF925D4E0A859389591D46B1F519E1C022 - F2633588B489E79B771E70B73B48B5AF428B09DC185C1DF0CA419FB651854833 - B2E6C2DFBC1BEB461BB373A20E8A0EBB69B9931E4F4DD37BA90B5FA59D2F4F9F - E575DF755AF3DE5E1DD0BCBFFACF39B3EC22223EB6E488F01CF163C9B7109989 - 30D0D6A7C544676EE1609CA6E2DB58BC47986CFF9463AD957F0F78F9054F4A3C - 098A2B097E17436C38389A9A455B9D0E0C7A3D5F7CF02E45917BD497C6707B8C - E4541DD320C5AF756406BCD8B0334D3C39399F0427EF4FBD518FD751AB419C6E - 03267F730A920638B4C7BD26F1E4BE336FED4B41563A490334D63AB52075AEA8 - 814BF1BF84944422A37872AD846C739B18948CE980BDBE726D22AE77F59C3A99 - 829C934AD201997E1E6B5D55D1560A771C659BC7CB1F1C73BA92B5793DE80000 - 000049454E44AE426082} - Name = 'PngImage7' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002724944415478DA - 63FCFFFF3F032D01235D2C606464C42AB978D3F10C0E76EEE9E4181CEAAE0731 - 1B9F05AB775E3A1DE2A66B822E0EF2F3BF7FFF19FEFEFB8742FF03D217AE3F67 - E89DB19261F3BC2AFC16C05C0FB480E1E0E97B0CAFDF7FC5E95A51416E067D0D - 49B02513E6AC66D0D3353A03F481295E0B40AEB73751341115E2818BFDFB0F72 - 2DC4A5A82E87E0CBB75E3014D6F6309CDF391D6C204E0B905D4FACE120B9C9F3 - D6C05D8FD70264D713133C5A2AE20CD7EEBC44713D4E0BD05D4F8CCB4172A965 - 5318FC3C6C18EEDDBDCEC0C6C6CEA0A363C400348311C30264D7136BF88D7BAF - C129C7232C99C152959B61FDFA350C17AE3D63D834B712AB05FF41AE07197EF8 - CC7D82C1A3A620C2905E3115C570297975866DDBF7A35A50DBB3E03F30821880 - AE671012E0C69AC681086BFACFAE9ECED0589D07371C04502C689EB8E4FFEF3F - 7FC9C9B070C0CCCCC2202EA30C371C04E016D4F52EFCDF541C4FD0901FBFFE31 - 7CFFFD1F4CFFF8FD8FE1CF5F18FB3FC3E68D88A0F1F27444F5013116A01B0EA6 - A18683F0FE9DEBC0110B321C2388401650143EB060E2E063E0E6E165E0E1E621 - DE07845CFE1D2A7EE1C82686EF7F9818787878C0961C3A749AB005840C5FF4D5 - 8E61C1850B0C4BB5DE30DC38B585E10D304973F3F2822D397BEE067E0B8871B9 - F76901B0DAB9AAAF181E9CDFC670FFD173065E5E3EB025376F3DC16D01B1C1E2 - 9D21C43083D59481B5790BC38B2BDB192E5EB9C1C0C7C7CFF0F1CB7FD4FA0066 - 0138D9C10C40321C268E6C3848FC75B127D841300B4E9FBBC8C0CA210A361C24 - 8E62415D411CC3EC95BBC94E41CF9F3F07275398E12816C08A0A4A92A8B28621 - 43828F3E4AB90FB7809600004F6ECDEFF6DCFB3B0000000049454E44AE426082} - Name = 'PngImage8' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000B3A00000B3A01647F570D000002954944415478DA - B5955F6852511CC7BF3E9882694B723D6450D4A21ED61FB3879EEA295CABA058 - D1CB6A23A315C2A441AC4123368A82FE5011066D63D1ECAF6058291643AC8D60 - 966EB5FE3E64D4966B7B1841B1997A4FF75CF14E773DFE1978E070EE3D1E3F9F - EF399C9FCA082190C964284523F73A88AC54020A8F9E3323A7E0B6EB558352A1 - B2150BAF991C00852B0779742EC143EFDB40CDB64AA3241DDF398EC066F74ABE - 6399372AC2E93B53904ACF0BE00F7CC5C4E45FC99AB15FA3B054AD07ECE781C6 - CB4084876FD743D1DC01D97E736E014DBFC5B8DCA8D3CE17E7387E6D824FCE71 - 9CB083CE07BD387CA94AF84CE1FC88E8EE3550D45961F04411F2DAD882F4F42C - 78821FBB1D3E58E2EF10BD7A425CA7708FC0507F26B7203D3DEB78C423DABA12 - 38DD8868D02D1C0DF6D4C2B0D3CA16CC4E9F2D3927BC13F43CF2C3526B02EE5E - 037E8401F34940AB83C1740C2DC78F0AB74922484F9F0B4EFB1DD70B74D95D59 - 7717ACDF88AC75C00B084D4FE12F5F8799C7439B6EA10AAB962DC291E6EB30ED - 3B84CD152A389D0EB4E9E3D23A3875A19BACAD34804F0F6D994A4C3B939A8EC8 - 987378FA9975B0D770168FBB5A9282F62B3D24164FA0D8565EBE985907BB9E8D - CF085A2FDE226D4D07F302A7FF71988A11619C8E7178EAF531EB40BF64697182 - D9703AF6FAFCCC3A90088A3E9FD41131EAA0E01D644B9E7C267833D0C7AC8382 - 04B9E0B4BF0FF533EB20AF201F7C8A7FAE0E94096B3B2BC6F12DE446F87B046A - B5062AB51A9FBF8CB00585C0E97C75831637E49B206F7F82B1610F86863F41A3 - 5980DF7F8800A7AC0C413C91064883A7E6D3E1747EA2297945538240700872A5 - 4E8467085AAD0770F3FEF3B95C26A14522110C7EF899011705A99F8A39D3F9B6 - 62F506D4ED5827F9E71204A56CFF01E5E2820611E3A8010000000049454E44AE - 426082} - Name = 'PngImage9' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000029E4944415478DA - 63FCFFFF3F032D0123B2054BB79C24CBB6DE290B19CEEF9CCE882C063317C382 - 681F73920C07EA619016136628AAEB43B184AA1618682A30BC7EFB19C512AA58 - F0F7EF3F8615DB4F33D818AB337CF9F613C5128A2D0019FEF7EF7F86D5BBCE30 - 38596833FCFAFD07C592733BA6319265C1FF7FFF19FE02F11FA00520F6BABDE7 - C0918C0E48B2E0D687070C53AF4E62B8F0F6020348B59BB41F43A1661603EF12 - 0E8637E15F188E9C7FC0F0F5DB5786B76FDF82D5CF5BBA89780BE6DC58C0B0FD - D9620C4B4F3FBFCFF0E4EB038697219FC0C1F5E7DF3F30BD79EF29E22D38FDEA - 0283F906230CC303551CC1F4FA3BFB199E057E801BFE0F18275B0F9C26DE0287 - CD4E0C879E1F6028D56B606834AC021B62BEC582415D44106EC123FF7770C341 - 71B3E3D019E22C38F5F20283FB7627860D6EFB18CC8575A0A9E61F83D5762B14 - 0BEEFBBC811B0E8AF83D47CF116741FED12206676064BA49DAC00D1758CE8511 - 5C773D5FC30D07A9D97FE202610B400A6BCEB430D4E95532FC03CA234722321B - E6F2B92FA631C408A581C50E9DBE84DF82084F5370068219C4BF9413C3D5F7BC - DFC033DAD467ED60B164E112B0FA6367AFE0B720D4CD04C595422BB8E1A9E6E6 - 9BF70C5BACF7C00D7FCEFE942160971343B16E1D83277B3058CFE98BD7F15B10 - E46C84121CA2AB79512CD868B10B6CF8DC97D319BA2F3530D8493A30F42A2E84 - EB3977E5267E0BFC1C0D50C25A722D3FDC0274004A454DC67D0CAEAC81703D17 - AFDFC66F81B79D1E4A10C96C106490E15600E75A74806E3828C2AFDCBC83DF02 - 0F6B1D942092DF2CCC70DBE315C3F2D74B18763DDDC400D265206CC020CA2187 - 61380810B4C0C5520B45132C4271255564C389B2C0DE541D258DC33210580C4B - 9E40369C280B6C8C54C125222500AF05D82A0F7200CC0200F191E9EFB5062090 - 0000000049454E44AE426082} - Name = 'PngImage10' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE0000035A4944415478DA - ED954D4C134114C7DFEC6E0B420B085A6A040DD88A45C0C4602D4A2D281F5589 - F1AB6AA2094A4C5502DC34F160EAD11BF1E4498D462F1A43FC408BA052C11435 - F8890AA222A2601B6B2D94B26DB73BEEB4168B16E1E2C1C4974C7627F37BFFFF - CB9B995D843186BF19E8BFC1940653012693897AF9CEAEA5696825732FE72B6B - 3877F2B6F01A982A77435595F48F0646A351E4E3E3342CE7BDFBD1F6F1E7024D - 957CE6BCED6FCC66EF6485D71D3DDE617FDFAD9ECC00E96B6BC5727FAC9A65DD - 41718EF795A6CBE6F9699A6925738F67ACE091A5A5235AB2C1502DA1E3F108E1 - A219A0CA4A530C15CFE68F7986DB0814F0072AAC2DD71BC9A276FDA69D98E7CE - 7198DFDC616E6C8866A0D6EB13C448E48AB6078278A5209E22888F05C531E075 - F76E5CBB11660B4AD716D30C732BC0F37A6B5363535403B56090F2BB01D209E2 - 4AA96C99DB1D6A0BE251455BD395C6C8E4253A5D929491248F70CCD7A796CBDF - A219E495EE8A4F605CEE09060683412C92CED6F03CB64C26FE830F9F6B4A187C - D41D144EDECAFBF7D50889AC41039D4EC7C83354050850B0721FEB392441D892 - 1827C62C93E892393F7F3863B1F822049142A110CB6473553C254AA431041806 - 80E3001266A7D8ED036FFA3A3333F94237CB1103B4AD72DF0A0A51EDD18AE91F - EA3F2191CCBADA7CE9ECCD88EA614B556DC9E0A7B71BE7CF997FE0579E773B2E - 386C0EAB5CA962D1DE9A835AD273B25873B41E66C602385900DB28C0C008C0F3 - 0127F49C3282D3ED2F7FD16626170C6FDB53534CE140F39FF8A10FB6D573E6A5 - DE463B761FC061F17C39C0A03B34C209244892F9702924C5607DD6E2A501719C - A4793A7C863203D05C450ED6166AE1C8B17A9821F4718C9B5811097A580CC7AA - F38070E1980E1FDC2C7966567ED1AAD50F4945E1707943C3EE9998402A229196 - 9A06D3E159AF6719D2EB6B63B20A942D19E5C6C2746908F0064209E449E0272E - 1BBC3D5F37D865BD6BCCC9CDE5E4694AB3667F3D4CC5B73E7EB020784CD76EDC - BE70C4EBE9D96ABA0831B470DC9CE2F1EA084CFAF9CDE95C33EAF8D49E9D9D0D - 0AC5224D5C72AA85984CC6B37E9FCAD1FFBA7BFCA269CACA14CB57569CEEEC68 - 2EECEBED1B4F50E6A8067BBA7B770F753F89FC4453E5DB77AE1A1D1EBE13C986 - F9AE675D455FDEBDEA0DEEC1BFFF47FBE70DBE03EC16D6DE8FAAF1BC00000000 + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD2520000013A4944415478DA + 63FCFFFF3F03258091620340C4FABD97B19A12E8ACCB884F0E64392343C8AAFF + EB333519029C7430146DD87705ABB8914716C3795E4786FFAB4319F11A005278 + 6EC734E20D48DFFC13AE68821B1383B57F3EC3D18D13190A76FD838BCFF465C7 + EF823F7FFF317CFFF19BE1F79FBF0C2EE1250C7B56F6307072B03270B2B392E6 + 825AB3EF0C7EF1550C9B16B631349FE224EC021F7B2DB0CDDF7EFC02D3BF802E + 8848AF675831B391810BE8022E0E36B84BB01AE06CAECA50B20F115099AA6F18 + 920A5A19E64DA866987E5B04236C300CB0D49707DBFCF5FB2F30FEFDFB2F436E + 5537C3E4B652066E2E36062E4E36B84B406183618081BA145CF337200681A2BA + 3E86BEA62206561666144340618361405317667CE30328066055C12387607F79 + 845509C4005C00D9E0356158D581F302A5B911006305C5E10A57158000000000 49454E44AE426082} - Name = 'PngImage11' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000003784944415478DA - B5566B48544114FE362D31A3C78F104C7B50145A902FECE15299D12668ADBA61 - AE925AA405811585F4A31745FD308A0A42DB5EBBE96E56AE9AAF30CD2CC5C79A - BB998FCCEDA5640F15823233DC7B9BB9EBBDEEB65BAD5207863967E6CCF7CD39 - 6766EE15B12C8BFF29224AA0CCAF89237DD63F051689E21323C5D91CC1F5BC6A - 96186302A0EB68EC0CC3C2C430309918B34E7A2AF2DD2751A23A21B22210F965 - 9A17EB5304DD9ECD34256382FF25C11EA84D82DB8A6B9CDEFF301E771FE8A0D4 - 94E0E1ED745B020A36F69DD39EC5F4552A7CAA88437155A37D02478421FE96E0 - E6366293C610FD5E75D3F822A0E096B9363116E0C4765FA74677690CCA6B0D63 - 23287EDC850B375BF0A4AD177D9FBF63DA94499086CCC1B15D0198E2EA2C44E1 - 21D1E04DF16654D6373B4E702CF3098E663422FFAC049215B35050F5165BD22A - B8B9D0200FA84FAE11A2F00ACBC1CB42191EE99E395E03D76597F1FD8709BB36 - FB207DEF320E689A58C9CD393B89D0551243C6F81A985357D3D4EA5804F47424 - 1DA982BAD488C329FE48952FC6FDDA77901D28177C68CE79F0F91177D09E2B45 - DDD3F6BF13F005A5EDC730C3919C57B7C063E6645434F40804AF8B64233B67B1 - 28528B67B736A2B1A5E3F704F412D1313EDCEE8F0388492B87FE793FC2C45E50 - 1C0A86A7E4A64060BC1B2D6CC447560083261CFAF64E5B82046930B7800233FC - 1927FADAE462E85A7BB9B9B6DC284C759B08CF0D390241475EA4E0CBF7CD1D46 - FB04F4FA0F356CB75AE0BE2E1B43A4C854CA2E4AA02A3222ABE4A54060D044C0 - 89149BFAFAC616A1E146185A3B5FD912C46F5C8989810A7C23EF8AC9E22229B4 - 1D38AED07360625F77246E5A0065A111F7EB7AE03C4184D80DF3B047EE8D3A6F - 4F81D4455B694B200F5F0E97A02BF85293387A4B99D14233BF1C45ABB490A65B - 321B29CA73C84C48B54F10131664B573BB4056F3E6776778C447BF74EE9F09A2 - D707622AB9407D95F1E6428F000D5B00FFFA06D5FB8CA685CA8E3307A1D877CA - 6A4C2090860660C66A1537D853160B8FF51AC1E9457E14164AB582AD5787C34F - 5E840CC34E6ED7ECE057B0FD1FC0F4BD0778BDD380EB060B8288103F3B69F8F3 - EB49D36229DBB78A7145556D3F024A5058A973E89B604F86A242B02D7C01AE92 - 636C5303FAD1CFD196667D1B1C1A3741EC9DD348F40597168D6C3F92E2A4A31F - 7DF207306E605E3200E1FF6727C90CAFFF0482645308AD8246DC000000004945 - 4E44AE426082} - Name = 'PngImage12' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000E9C00000E9C01079453DD000003DC4944415478DA - BD947F4C1B6518C79F7BEF8EFBD56BAFC7951F33BA75E9822B88520C88D92C93 - 05C410CA70986D3261B1DB3F261B24D3F92331F2A799C6B0F96B666668165D88 - 12E7FE598CC14C639C43D0988D41B69974DD5A680B584A5B68EFFA7AAD81306C - 8D0BE2935CEE9E7B9FE7FB79DEF779DF97C018C35A1AF1BF020882C81978E004 - A6EB6BA106236D0B42E4BD080045E3AA8A35ECA3587A607709717531F60ECD7F - 0378FFDBF806A9807E2734956898F027A94844054D03C86310701C02AB950B47 - E3DA075D4EEEA5BB069CB898DCC671D03F3E1655BCDE0548A520F3A4D332DFFA - 9BA208D8B2D5047351B5EB48BDD09B13F0E27B41E7A580E5870B3D849AF64F5F - 49BA522AEE1B198E48B11806DE40416C4EBDA380A9192D03E278048D0DE61BDE - 49B2FAE5ED309515B0AFD7838D14FFEE3C6DE9AEAD559B6211AD7F642842A91A - B1243E3D1D85D999202416E2C08B0A30BC5907109999382A045C5E2674B6DAE0 - 93AC8096377EC7452C8F79237DB6AC5CAC1BBA14165329B4243EE10B82DF3B06 - 34237E93C2DA607C36F4B849595F67B26C22B03E0B399F82E626F9B3A76CB027 - 27A0D0600235F9D7325034B5241E0C84E1E6F591A02E7870F058D599F4F87AE7 - 295654882F8B37D434D08CA4C7226869967F7CA6143D9A1320911C305C5EC65F - 140F8713E0B9368C3535F5E4D069D7F9E53DB0EF38D526291BFB8DCAFD603090 - B0C3257DB7A79474660534BF12C0884A81C9844056988C7824A24168D283FDDE - AB472F7FD17164E52EB3B77D7C1FCF291EB9F8613D8F84D656F3B95D25A83927 - E076488375051498440C825E5178568399D0ED9F3DD7475CE35FB97D2B01B627 - 3EB218154B405E570D160B05AD2D52DF4E1BDA97133039A3427AD714EA0D33EA - 907455A169350E40BA075EB37CBA12B0A9ADEF1E91C9BF251557C1462B03CEAD - E25BED65E8705640E5013F9E5767F553A4014AA9A07700B4E43CA49271482EC4 - E7584172FD76A66E7039A0F2D9F35588CCFB49904BC1F1100F763B77F0390779 - 3C2BA0F11830E274805EF4037F3BD731F5428F757EF91FC7DEAFBB04B3ED6D82 - 12A0A9D1A4996554ED76D0C35901FF74D965B347BA6F725AD8F73D27592BD3B9 - 9DED66DF956B0B9547DB8489FF0450D171712F6750FA106D440F3EC0E9CBC39C - 7CBE266FFF5DDFA6D9CCDE71B98867F02F2C5F50C43024EC6C312646C763F6E3 - 9DD28D5503CADB7F1568160D7086C27A8AD42FB97A51CDB75087DD0EAA373DBE - 6A40C5FEB10F395674CB324B6C731A4010D09B7E0FF56ACFD34462D580C70E85 - 369BCC7874730987CB4AD9D1C980FAFA0BDBD9CF97C7AC0AE03C3423EDDA2D9C - 5414FADCAD089CEDAE20FE58199313B016B6E6803F0192C0D6E065D4DD9D0000 - 000049454E44AE426082} - Name = 'PngImage13' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A0000053A4944415478DA - AD956B50546518C79F73CE2ECB5ED9B3ECB22C48800A02CA45101BBCA005D9D4 - 4C17758C6FD57899FAE0D4871AB3CC6B5FD2748CA91877600AB3A949CA4427E3 - A65C1409729565B92CEEB2807B935DD80BECB2B773F6F4420A5841493D33E7D3 - 7BDEDFEF39FFF799F760F058C5601F2BAB443E079B0C077DF250304086432117 - CDC6AD3EA77FACAC6CAF77EAA5B93BB07F8B3EFD55A37872CC95C7E5725E6671 - 584F4570D871188E7182815068D2E3354E38DC17273C8E2B9DC33A4D735599E7 - B10495E76FC63B6CCED7F8A4708F58267A429620C5C4B1628C601310F006C06E - 1A656CF7ECA151B3ADDB366256EA07BB2EFEF4CD19FBF427FF13FCA4F29214A3 - 88BD9218F2CDB4DCA531B1F1122C40B0C11B02A0C37F74C822502A011F63EA37 - 33BACEBB8377BBD5A75B9B7EF956A3B9E15C50B063C77922AF20622B29979CC8 - 29484D4C7F428647E038DCF703BC70E826681A34F0F9B15720398F0452C0000F - 0FC1B0C640AB9A3ABA55ED8DEFFD5C5D797541C1A7E5D5F2E024766C59CEB29D - F96B5388380E0BC351CFEE2040E187B3024516096C1680044958FE71467D4D1D - AAABAE52B65D6F38BAA0E0E8890B05B21871E5AAC28C94D8043926A601F80480 - 651260DB47B382F47C12BC14008ED6A2793458D4FDE196CBB53D576BBE7B635E - C1543C2B32A8ED4B33932A5617670929161F761EB9396F330F6519EB49A06C56 - 4655D3EA3A5B7162DF0282C3112969A9AFA7E7A794E61467478E072360FD66E5 - CC7A6671E634746E4D0956AD2301BC4EE8ACFDD5AF2C3DF2C9BC824D9B0EB30A - 3624EF589EBDBC3CB7389B1F2004A06A76CEAC2B5BFA66BA9E5B1B3693601DB6 - 30B7EB5B3D155F1C2B5DF00C0E1CAE2C8C8E8B399BFB744EA2302E16333B3020 - D08E680EC09EE3B367B0BD98041A4D2A9A5AF08469E8EAE8635A2E5D19BCF07D - D9A90505EF1CA84814F1F92757ADCFDC96929F8A8F4DA2F9F7014421C1C62DCA - 9958B622C154518866754E80A6454D55559EA96F69AA3E3EAF40B57FCB726D50 - C0D2466DD9268D4F7C376B6396589A28C7EC1E0218344D7DEDB371BD84040CC6 - 80C31F64746A1DEABECE5873F9EBB33A9DFAB3BF15B41F78A690C7659A3D9152 - D044AE8500AE08B1F83266C593692C91428A071836BA0470E0A2B1E4A10747E1 - 38C6BD8C65C014EEBCFE9BA3B1EEC7DAB6EB57CA298A6AFB8BA0637FF18B3C11 - 5D91B03A534684ECA0712583C61D0316271EE408E4DEA495295162B904E39242 - 60B1D998DFE367D04507F6210BD577476DBD73BBF9467B5BED799FC7D38470EE - 47041D1F146D1788C22715B9EB92843C0A5CDA4EE8B708A163221E8C7E4269F3 - B0FB2339FC2269AC224D1EAF904444B2591E97276C1A1A720E1B740383035DB7 - 7A7B54F5341DB88D702E987BD94D752E10D3A58ABC8D4922AE7F1A6E30B2C130 - 26048DD50A23E38EE7CBEB354D19196B93A3158A748C2696D1B43F0AC5002EF7 - 98C334ACEFF47ADD030835821EDF432EF630733E9FFA217ECD3A998817828981 - 2ED0E93130B824A0350D41B7590F6E7FF0B9BA2E67CD833DE8E6017410403CE0 - 4C4D68706A90E0CF3F1CD5C1E2A24801D1B0243707F85C149AF60E188609E877 - 4483D6A8875E8BDEE5F4516F35F6B8CEC1220AEB39FE2CB3247B25F0055C14CB - 2D1834B2C0E010836678007AAD7ABBCB1B3C78AD775CB918F8B4A0FE5409B366 - 752A50860E1832A1CC4705A0351B416DEC7721F8FBD7FAC6CF2C163E2D38B4EF - 6D2647781F12682F82F3A0CF6C821EF3008C7A03AF2E36964704BB77EF629688 - F9407A6CE01CB987E006704FFA76D575BBBFFCAFF06941494949915020688811 - F1E15E4F2BD82CFA5D63DDEE732A80D0FF21F81D69327688E78891A000000000 - 49454E44AE426082} - Name = 'PngImage14' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005234944415478DA - AD956B4C53671880DF7329BD9CB6B4A5174A454005112F205E16DCD46C3097ED - C7B2690CFFB665BAE80FB3FDD8E2DC8C739AFD984EE3C8326203D9702E5B069B - 139D8E9B82283299454AB9147B81DA9BB4D00BB4F476DAB3AF80896E02D3ED24 - 5F4E4ECEF99EE7FDDEEF7DBF83C1135D0CF6B9BA4E18F2B0C4896848118B46C4 - 8958CC1767E1CE90373C5E59B92F98FCE8E119D8BF459FFAB6553435EE5BC7E5 - B25F23D9E4F3296C56068663EC6824169B0A04AD931EFFF9C980E7728FC5A0BB - 5657197822414DED4D95C7E57D93120BDE11C9848B6599524C942EC208160191 - 6004DCB631C675CF1D1BB3BBFA5CA376B571B8F7FCAFDF9F764F2F7921F809F5 - 05294613FB2472F1DEFCE225F27495048B102C08C600E2899908490265251262 - 6C4376C6D07377F86E9FF65447DBEF3FE87437BCF30A76EEAC25D695A4BC2E56 - 488E1795E465AD582CC353701CEE870106BD00D1F84C0E481C40CC678087C7C0 - A233C7356D5D7D9A5BAD1F5EAAAFB932AFE0CBAA7A45740A3BBAB468E9DB1B36 - E612196C12C311D11F05E81E07F044101F9B192C12408224647882D15ED5C69A - EAEBD49DD75B8ECC2B3872FC5C894C2EAA59B5A520373D53818950C41401E098 - 0218F2CD940B8F35B38A200D80A37769BC3838B44389F68B8DFD571A7EDC33A7 - 20999EE505F48E25ABB3ABD796AD11D024056EEFC2BBC6E502D02E27A369E8F0 - 9DA93EBE7F1EC1E194DCFCBCB7566CC8AD282A2BE44C445360EF6737E704EB5A - 7470E9B73D4071D043D00B3D8D7F84D5159F7E31A760EBD6C364C973393B9715 - 2EAB2A2E2BA422041F4AB6AAE78D3E295009019C1607D3DDDC11A8FEFA68C5BC - 0B3E78B8664B5A86FC4CF10B4559828C74ECBE77E1B6C9498D436FD720D37EE1 - F2F0B99F2A4FCE3BE3FD83D559428A3AB1EAD9D5DB7337E4E1E353A8FE4300A9 - 6C00394A059B98ED83590A8DEE4EEF24E8DAB5745DCDE9E6F6B6FA63730A3407 - B62DD347F9A43E75DB76A92AEB83359BD788A4590ACC1D208041D5244896650A - 2A4FD4033896DC7C063CE12863D01A50F44DD6868BDF9D3118B45F3D5670EBE0 - 8B5B785CE65A8023051D67234470658CA464CCF267F249A1528A4718549B0C0E - 5CB4021E1A3824C03311641C265BA2E7FA9F9ED6A65F1A3BAF5FAEA269BAF31F - 82AE0365AFF284F1EACCB5AB6544CC0D3A5F0EE8FC727078F1289BAF0866AFCC - 4D15292418572C0092C5C2C28130830E3A708F38E8C13B5AE79DEE6B376E7536 - D68602813684F33F22E8FAB874075F9838A12CDE942DE0D1E0D3F7C09043005D - 932AB08609B52BC01AE2B0A95269BA325FA1524A52382C32E00B246C23235E8B - D9601A36F5DE1EE8D734C7E3916E8443ADF850DB2423E78BE215CA759BB385DC - F034DC6C6581795C003AA71346273CAF5435EBDA0A0A36E6A429952BB038B134 - 1E0FA7A23480CF3FEEB1598C3DC1A0DF8450A368841E70B10739A728FA67D5FA - 4D32212F0693A65E30183130FB24A0B78D409FDD08FE70F4E5A65E6FC3EC1CB4 - C5903C2488590E3A57219A2C24F8FB0F4773A8AC94C3275A1615170185DADCAF - BF03660B01439E34D05B8D30E030FABC21FADDD67EDFD9059BE03117D67FEC25 - 6651E14AA0F85C9496DB306C25C1EC1181CE628201A7D1ED0B460F5D1D98503F - 0D7C5AD07CB29C59BF360F6873178CD850CEC7F8A0B75B416B1DF221F8475707 - 274E3F2D7C5AF0C9FEF79822C17DC88C07119C0783761BF4DB4D30168CBCF1B4 - 697944B07BF72E6691880271C005DED17B086E06FF546857539FFF9BFF0A9F16 - 949797970AF8FC16B990827BFD1DE07218778DF7F9CF6A0062FF87E02F9F6855 - 88E7298D620000000049454E44AE426082} Name = 'PngImage0' Background = clWindow end item PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A34944415478DA - 8D960B50546514C7CFBDFB625958DC455049C8074A3C44B490C67C8C5A098A8E - 8E61A0E68C363A4C884C5A3E7240D1F1C13496A58E634FCD0AABC9416DB29C18 - D9626C542052234904158170A10576F7DEBBDF7D75BEBB0B3E82F49BF9CF7767 - F7DCFFEF7CCF731918B8E950C1283B6AB8D96C8C62F5AC4994149EF0A4197F6B - 4575A13894D29F81AAAAC00C601EA6D3416A5090F9F9509B65AA2D3C74C490E8 - C121C19620D6E316E4F616678FCBD973C3E5723B445E2CC7F81A94F7710034EB - B17ABD7E516C42744E424AECA8F8F1234D23C63CC10C8D8900539001BC5E1E5A - 6EFD0DF57537D53F6A1BF9FADAC66B6D8D1DC7144529C3776F51DF8100D43CCD - 1E11B626754A52C69CACA9831252464358B815581DA305CB8A028AAA804F26E0 - 1638686DBBAB5EB9F417549EAA71D6573595096E72103DAEF442EE07B0A8F1B6 - 48EB96CC97A6A72F58362B3866F43046A763FBD2A1C6C5F90ED8F8EEB3C0893C - 78509C28809BF74243FD6DF5E7D2AA9ECB3F5DFF9678C91E0C6FF0FBDF034418 - 0CBA4DF397CE5CBD7CCD7C4B544C24A36391C930BDB940D19A735AE0EB7B9F06 - 0FE1347935103EFB38B8D3D0AE3A3EAD72D59737BD8361FB513DBD0093C1C02E - 9B38257157DE9625914F258F445F06588645E1D46048515E399C2E3D08F372F2 - 20B7244933778B5EF05210422888230234D5DC81F3876B9B3AEA5DEBD1F73402 - 240A181E3ED476287BD5EC3959AFA6B366B34903E8581DF66C9F396D14B0724F - 3CB87D1E70138F96B936020471124E57B7176A8F5F93AE7F7FFB33C9236D4440 - 07CE33A4C7A5C41ECDDF9A13999C1AA7654DB3A7806DF9157DE6BD80FE5AD4AA - 0EE071148244A0F9421B5C3DD2D0E469E65620C0C1982C86E21973D336BF5698 - 6D1844774C20FB9D05950F98D31D24490A88921C90FF39B7E02DB0AF6C418080 - 001F74B5F640DD478DA2EBF79E4259944B98109BE5544E6E46E6E2D5E98CDEA0 - 031617F7ED75171ECB9C2A7F7D21985FB901BCE407705E011A4BEFA8CE739D47 - 245E59C9D822C2AAF28AB3274E9FFB0C43E77EDF869AC736F71109DED85C0CCC - 92BAC0088876465ACF38D5B613CE5F658FFC1C631F32A8A660D7D209A93393B4 - 1D7968F3953E407FA6D243CF9B0A77009F558D009F66EE9345E83CD705EDDF74 - D6CA6E790263B5592A96AD9B37EDC5ECC98C04321045842FB7DE8413C7DE7FA4 - 39ED0B8B77C13F0BCE6BD3A3017C22749C76A9DD673DD58AA0A432C1A1410766 - 2C9A949BB576B60E8218201844213FEC76C1E71FEEFD5F73AAED3B4BA0655E05 - F81040307BA18B40676997CAFF269C54457521C31AD8E58993461F78796346A8 - 2DC61A18A61F72699F0A1FECDFDD6758F06651BFDBB431E34704F8DFE11A04E8 - FECACD49B7E5125556B7D383161F1963FB62F6EA2929492FC4323E55BC079125 - 683C6C85F7DEDEAE01E8822AD957B5E9E051DAB468BDDF5CC445F73838953B2B - FCA276AB5BF01C545240A8C1ACDB903C2B6EFDF455A966A3DD0082ECD3168B42 - 44EC5D47A361CF8E426D41DD8B2EF6ED169A756FE634195F1B016F19D72DD5C9 - 5B41828F11E0E9BDECE22DB6A092B4A5E3D3C7A63FA9978D0AC35388F6B27F67 - E8BF4ED602DB321D81D1899A4445F2F76E51E52A0442CAC5E340A010439BEFBF - 4D8DA8CCC1636D45E316C4260E993458279914C6171809096CBFF09393E166C6 - 59CDD01730A72324682E54119138C845F52E6C432F074A7AB8E0846255586C1F - 655D1B3D6D5842449A5DCFD870573DB026FE7511E994507311FF6B2720541322 - 568BD56A3BD0ABFA3B943050C9B4A266996C8615F6C4B099D6849060D3082303 - 363CD1264583116AEA45E05DEC9B7C2AA9177BA4EBF2192CFD9FE0BB9528FE51 - 45DF801AC31AD9857AAB3ED318AE8F3344E843749178EF5A8021DDA24ADA4549 - 724A3DB24BF95375AB65B8A02703F5587A54D1EF6DF477FAC91285953A99D1C3 - 38303276BC074D8A0CBC4A54271EFACBA8AB18D30EFE4F97FF340AF8172272E4 - FE66E507F40000000049454E44AE426082} - Name = 'PngImage16' + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD25200000A4D694343505068 + 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF + F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A + 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 + 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 + 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC + 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 + C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 + 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 + 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C + CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 + 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 + 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F + 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA + 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED + 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 + FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A + F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 + 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 + 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 + 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C + 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 + 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 + 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA + 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F + 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 + 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 + 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 + 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 + 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 + 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 + A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 + 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 + 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 + 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 + 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 + 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 + 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 + EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C + 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED + EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB + 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 + 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 + 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 + 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 + A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 + 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 + D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B + 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 + 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD + D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 + C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E + 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B + FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 + 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 + 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 + 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 + BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 + F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC + A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 + 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA + 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C + 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 + F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 + DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 + 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 + A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 + 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 + EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E + CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 + 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD + 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF + B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C + 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD + EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 + E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 + 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F + EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 + EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 + FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 + CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 + ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC + CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F + F73EE77CFEFC2FF784F3FB25D29F33000003864944415478DA65936D6C535518 + C7FFE7DEBBBED8AD7BDFCA3A82E878494CA6C10C65E09C26637442C84C1C227C + 31114DE493D1C40F661F8C01913029768B44093A47A78165226FA9D93A0B7553 + E4257468C81A0964A9EB60B47B697B7BDB9E7BAE4F8BC60F9E2FCF799EE4F9FD + 9F9773D8D0E0815375F5456D0C1CD37745306E6C3C535CE92CD2B9260903508A + 7454979971673A2277EFF3F80CC398AAAC2803630C7407BB3CDE935BDF6C5300 + 03892443F0A280A11B5028023D8DFB0F246CDCB217BA21F0D917DE58FFE0F7AE + D2D2922BC5362B745D8005FD876636BD58BC2C12D1F1C7F5242AED2A91052004 + 24A16121A1201EB3A2F8D156B8DA9E87E7EBF3B307FB4E6C5514E59A224B60BF + 8E7F1A6D5A6F710C0DCC63DDEA08EAEA32E06983C497A8280E2515C6D8E95B98 + 6B3C8ED9742D4CB286F3A3BF046666E75EB05ACC6037AEF64465893966A6EE61 + 73470C58A26475095C4BC26CCEE2CA193FB49A9D786AC73738E70FE1AF6804EE + A3DF9D8B46E7B695DA6D6013E37DD16442763CFDF86D54D813D0E6A9026D81FA + D7A0466F616CE42E36BD1782A3BE11F9B19CF5DDC46BAF1E4DA5556E237794F5 + 7FB93FF9CC9A69DBAA9A3092310D826BE01915262987D0CFB7A13A5F41CB1B27 + 11BB9FA0E1EA686D3988FDFB3AC777ED3EB68D0007D8B1EE8EC9F2D885555299 + DDC2645A4D7E77F9151128A557A365EF08CA96AD4536954030F8273C9E31AAEA + DD11C5F4D6660294B39ED757D8545343D7F6F7BDC797DB2568991CB2DC40369B + 83D96A4179950322A7111438E21EC5A54B61E1FDF66D6F7DFBD01EC7EA12C6DC + 1FBE0953C3CEF697B7B7FA6AA9AB1C6133591004F9A741ED24C9D25A89303919 + C1967637EC76CB809AD607F5679B03ACEFE404552C77766C786C7885B30AF105 + 159C7AE542C77F873DA4D1F9E17448EB3DE28F4E85EFAD24B78B7906036086DE + E97AAE7178B9A302B1C52438171005D5FF1F41CF9773E3A7B50D1FFC569841AF + D79F57E86C6B7E62D8E928C7FC62EA1F80014962FF0A93219F866B329B502449 + 0147ED3BBE426D87FB7D0540976BC3705D750992698E1CFD850C0D219FC09854 + E820DF84FBF08FB91DBB9ABEE29CFB9B9EFC680F853E617DDE51984CCAEE95CE + AA8199E81CD294C84859E80FA519232B3288C5053EEE1E81F5116551D3B86236 + CB17E30FD22FB1B381DF896E341CFAFC84EBF2D59BA8A9AA300ADF94D4697F80 + 6C012CF5CC50EF18149132F3D6758A19B9924AF48627E4D0DF3037A6C9A44E5A + 240000000049454E44AE426082} + Name = 'PngImage1' Background = clWindow end item PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300000AEB00000AEB01828B0D5A000005A14944415478DA - 8D960B50546514C7CFBD771FC0C2E22E026A8A2F140145B490C65047AC0445D3 - F111A463A38DE608CA949A1A83864C2AD5E8543A4D33659AD360E3E8A036D958 - 069B943D80C8576E12A8BCC28559D8C7DDBBDF7D75BECB2EBE60F49BF9CFBD77 - F7DCFFEF7CE77B5D06066E1C2A0C65450D0F0D350C6375AC5194141FF19166FC - AD0DD58DE2514A7F06AAAA0233807924C7415A4848E8F31116D30C4B54C4A8D8 - 1183C3C34C21ACC72DC81DAD0E97D3E1FAD7E974DB449F7801E3EB50DE2701D0 - ACC7EB74BA25F14923F29252E3C7244E1E6D1C35EE2966485C341843F4E0F5FA - A0F5F67F60BF7E4BBD56DFE8B3D737DE686FEC3CA6284A05BE7B9BFA0E04A0E6 - E9D6E8C882B48C89D9F396CD1894943A1622A3CCC0728C162C2B0A28AA027E99 - 805BE0A1ADFDAE7AE58F7FA0FA4C9DC35ED35421B8C921F4B81284DC0F605193 - 2D31E6A29CA5B3B216AD9C1316377628C3716C5F3AD4B864A30DB61D781678D1 - 071E142F0AE0F679A1C17E47FDA9BCC675F9879B278997ECC3F0865EFF7B8068 - BD9EDBBE7045E6BA55050B4DC3E262188E4526C30473D12EBB0A2AB5E0B57B13 - C14378F06A201E3C7E1E5A1A3A54DB17354EFB85A6FD18F231CA150418F57A76 - E5D48CE43DF945AFC44C48198DBE0CB00C8BC2D260888A5192224169810DCE96 - 1F820579F9F0D2CE58F02284F68482782240535D0BFCF2697D53A7DDB9197DCF - 2240A280E151432C9FE4AE9D3B6FD96B596C68A85103702C87572C11CB8084CF - 7E4584F736546900DA2824638BB1B70708E2252C578F17EA8FDF906E7E7BE74B - C9236D434027D619B21252E38F6EDC9517939296A0654DB32F2DBCD8EFFCA500 - 3AD892A4C0D2570B21219F0737027CD80B4122D0FC5B3B5C3DD2D0E469E65723 - C0C6184DFA92D9F3D3776C28CED50FA2332690FDBB85D57DD9DEDF82E6A2246B - 5AF5FA56B0AE69458080003F74B7B9E0FA678DA2F32F57B12CCA654CB8C57426 - 6F7D76CEF275598C4ECF01CBB25A0FCADEB8F408E061733170BFBEF06D80BC6B - 1A80F70AD058DEA23A2ABB8E483E650D63898EACC92FC99D3A6BFE338C36B808 - A0A37F606BED038081CCA9FC44822D3B4AA07BF1AFDA1A693BE750DB4F392EC9 - 1EF939C61A3BA8AE70CF8A29699913B5A9884B09449C31878BEC7D80FE4CA587 - EEB7179742FB822A0488D055D90D1D27BAEA65B73C85315B4C552BDF5C30F3C5 - DCE98C0432109C2DA22CC189DD2D1AE049CDDB722AB5ECFD7E113ACF3AD59EF3 - 9E5A4550D298B0889083B3974C5BBF6CD35C0E421820184421DFED75C2A9631F - 3D91792BCD1CEB4F307BA19B405779B7EAFB5338AD8AEA6286D5B3AB92A78D3D - F8F2B6EC084B9CB9370BD4CFFB49BFD3F4C3F7773F98399AD3C1F54BBD89F10D - 02F47CEDE6A53B72992AABBBE9424B8C89B37C35775D46EAC417E219BF2AF641 - 08968ABE4402CF3D4747C2077B77DDCB9C9605CD8580B98883EDB1F12A7F5EB8 - A8F6A8453859AA2920421FCABD95322761F3ACB569A106AB1E04D9AF0D163515 - E5205004B97C02EC2B2DD6CC5B727ED4B20E664E93F1B713F056F03DD27519B3 - 80CF11E0096E7689264B4859FA8AC959E3B346EA6483C2F8E460B77BCD697DC3 - 4E3EAD05DFCAFE5E7BA6A2334EBBBA4595AF1208B9201E0702C518D67CFF6E6A - 40E50C1E6FD93969517C72ECB4C19C6454187FA02724D083A8D3D3D1FCBC66E8 - 0F98D31E1234176A88486CE477F52EBC835E3694F4F0811381A7C272EB18F3A6 - 1133872645A75B758C0567D50363D23B2E222D093517F1BF0E02422D2162AD58 - AB7600DDAABF4109031D9966D41CA345BFDA9A1C99694E0A0F338E323060C195 - 6C543418A1A65E04DEC56B935F2576D125DD94CFE1D17F18DFAD46F91E77E8EB - 51E35803BB5867D6E518A27409FA685D381783FBAE0918D223AAA443942487E4 - 929DCADFAA5BADC0013D1D388FA5C71DFAC1467FA79F2CC3F0A44E617430090C - 8C15B729A322834F25AA0317FD65D4558CE980DE4F97471A05FC0F622CD6FE88 - 2F15D20000000049454E44AE426082} - Name = 'PngImage15' + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD25200000A4D694343505068 + 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF + F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A + 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 + 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 + 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC + 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 + C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 + 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 + 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C + CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 + 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 + 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F + 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA + 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED + 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 + FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A + F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 + 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 + 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 + 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C + 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 + 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 + 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA + 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F + 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 + 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 + 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 + 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 + 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 + 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 + A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 + 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 + 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 + 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 + 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 + 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 + 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 + EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C + 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED + EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB + 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 + 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 + 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 + 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 + A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 + 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 + D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B + 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 + 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD + D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 + C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E + 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B + FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 + 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 + 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 + 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 + BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 + F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC + A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 + 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA + 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C + 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 + F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 + DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 + 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 + A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 + 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 + EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E + CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 + 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD + 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF + B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C + 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD + EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 + E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 + 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F + EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 + EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 + FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 + CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 + ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC + CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F + F73EE77CFEFC2FF784F3FB25D29F33000003854944415478DA45536F6C13651C + 7EDEEBB55DBBB6DC58A774C014458961732633C34DA66119BA44D8FC4F0C6A8C + C60F1A348A06E2278D5F3466F30F64561C2C6661737F20A4452422B8AEDD022C + 133410E2826C761D74738CDBD6EBB577F7DE9DEF5D4DF8E5EEC37BBF3CCFEFB9 + E7F9BD64B0E7F368A89C6F043191BE6E24647ED331973FC81986460CC304C799 + F07A9C98B93147C287FA13723E7FC9EDE4410881556434D696AF7FDCEBB60EE2 + 2D136363AC61584D833D1419894765EDB358920D0C464EA5068F9F7EC6E570FC + CEF38E0241FC4C9BD8D0E81552D314937FC9F0B81406B4C03A7B352C670872B2 + 1FCED066D4D63D8ACEEEE874F7C0895728A5718EE3404686DAC5DA475CC2E913 + 4B78F0EE5994F855508D42572486CF435B9EC1C573D7B0B07E1FA6C400946C06 + F1B37FFC7C6B71691BC7394C7236D1260A0108626A01750FDD045528684E0255 + 25103D87ABE3E3907CCF61C3F630C6FFBC86A9E9191C3C1CFD293D7773BBCBF2 + 62F8CC97227453A85A9342C023419165E8F90C74350B75318DF3E76750FDEA2F + 104275E00C1589731378FDB5AEF9F959B98C5930497A0F7D9CA9AA98F3DDBB2A + 055552986F390696D97415C9890988819D78F8C51F2067321017B378F9A54E34 + 34DC7FA5A3E3B78D8CA089747DDAFA8F5F8CDEC1FB5678EC684C13A6E52E4B41 + 52DC78ECAD53282EAD84A9E7B17FFF1092C905748677468B8A77B5DA29EC7BBF + DE6BB882AD4FBDDDD55B5EE280A2320FA8019552700E1E5E7F0923A576648D8D + EDF8FAAB1DA8AA5E1B093D1DDD51718F8F23DF7EF101DC154F6E6B6EDA7CBCBC + D4839CA243D174A88C08F63AB0486D4D4079E843DC48B743F03923EF7C73E185 + A3176639D279641484E35A9A36DD17099509C8E6145B01D56F03AD4A24AE22DC + 11434FDF9B2876F3D1D2E0EEC22F1C1888B3B5345BB6D43E1059150C30028D11 + B03DD01998DC26181DF91BDF8587D17DF80DCBA6E8FA751F1508BE1F18660468 + 69A8D910295BE9879C638BA4EBB0EE0153669B6AD5E5CBD7F1EEAE1F111FD90B + 8E905FEF5ABBE7099B20DC37C43EA0654B5D6524141420CB0A54265FA33AB380 + A0706708E3315053FD0976EFD91ADBDABCF1687DCD673DACB1971CE88F817790 + E7EF5CE91F4CFFBB5000B2A1FAFF936D022B05E2C4686C0AFDDD17115AE39F9F + 9FCB6A5433DE237D27C72CAFD6F51E39D97C6562124545EE826C7B2798919C13 + A4683567E69286A524BFCCADCE4B08BA3C3898BC648CFF07E17FA83BFA2242B7 + 0000000049454E44AE426082} + Name = 'PngImage2' Background = clWindow end item PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002814944415478DA - 63FCFFFF3F032D0123C8822F5C7FFED767DC625876E301458645692830B0B2FF - 67E8ECD06184391CCC282EBAF6DFC7478B21AA671BC3F36D5E040DFAF3E71FC3 - EFBF7F19FEFDFB0F66FF01B275A20E32AC28E766F0F2F26250538B63387F7E3A - 235E0B3AD73F25CAD571D6BC60DA28E108C3A783A160365116E07339C4D540FC - 07C1364B3EC6D0E0AFCDF0EBD72F8679F3FA48B7009FE1206C957682A1CA5395 - E1E7AFDF0C4B974CA65E10051AB28169FBACD30CC5CE0A401FFC6658BD6A06F1 - 3E20E4F2DF50BE73DE59862C2B09A0057F18B66C9E4F9C05C41A0E4A45EE8517 - 18524C44C03ED8B573097E0B40C9AF7BE333A282C8550D92DEBD4B2F31C4E9F1 - 03E3E017C3C1FDAB705BF0748B2786EB103EC04CFF3039FF8A2B0CE11A9C601F - 1C3FBA1EB7050F37BAE3351C3DB8FE41732CC882402516B005674F6FC16E0138 - BB032D2107C00C07E583CB1777E1B6E02FD07520853F7FFE82D0504DE86C506A - 8188C1F81039909A5BD7F763B7006678754D0159BE5056B303EB7FFCE038A605 - 6E6EC05CF813E292D6B60A9002AC86FCFEF593E1F7CF9F0CBF8018C4CE2E3A0A - 16BF7DF30083AC822558FFCB6767302DB0B757807BB3BBA70E6C0137373758B3 - 868605C3D9B37B310CFFF3FB17437EF969B805E252266033DEBFB9886981A5A5 - 343C0C274D6A065B2025A5C42029A9C8A0AB6BCD307B563586E1BF81EA4B6A2F - C22D1014D107B3B15A606C2C0A8DC4DF0C336674802D303676061BAEA666C450 - 90EB8461F81F20AE68BE4E9C053ABA02F0208216B70C09097560C385852519C2 - 8395300C07D1B59D77095BC0C8C8C8505478F5BF82222B72718B35CC910DFF07 - CC78F53D0F88B300040C0C32A8D202B87061066A9D4C4B40730B0038C31BFE85 - 5838D40000000049454E44AE426082} - Name = 'PngImage17' + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD25200000A4D694343505068 + 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF + F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A + 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 + 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 + 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC + 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 + C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 + 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 + 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C + CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 + 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 + 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F + 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA + 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED + 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 + FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A + F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 + 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 + 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 + 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C + 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 + 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 + 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA + 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F + 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 + 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 + 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 + 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 + 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 + 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 + A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 + 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 + 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 + 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 + 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 + 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 + 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 + EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C + 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED + EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB + 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 + 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 + 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 + 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 + A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 + 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 + D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B + 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 + 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD + D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 + C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E + 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B + FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 + 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 + 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 + 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 + BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 + F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC + A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 + 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA + 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C + 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 + F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 + DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 + 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 + A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 + 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 + EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E + CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 + 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD + 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF + B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C + 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD + EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 + E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 + 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F + EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 + EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 + FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 + CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 + ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC + CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F + F73EE77CFEFC2FF784F3FB25D29F33000003824944415478DA4D536F6C13651C + 7EDEEBB55DCB5A3B56840E011194900C3102834D86812C4822DBF04F58C8942F + 8608C60F1A89FFBE98F80562A61F46A48E02310BFBC34A625A84451C766DB700 + 6306B619C2840DB756D70DC66DBBEB5DEF7A7F7CEFAAD15FEE3EDCFBBBE7F9FD + F23CCF4BC26DC7A3813276178881A93FF5A4C86EFDC1E1F133BA9E27BA6E8061 + 0CB85D76A4FF9A26C133E793622E37E2B4B32084C02CD2DFDB94AB7AD9ED343F + B8C70606066843379B3A7D54F0028BF28AD7312FEA0847AEA4C2177B5E73D86C + BFB2ACAD4090B8DAC455EF72FB52932AC6EF8A7039640A34C11A7DF358E00924 + D1037B603B2A2A5F42A8353AD9DA75E96D5555130CC380F4C5BEE62AB6397C3D + 97E6F1FCD319947814A879159A2C507C0EF985346E5D1FC3ECDA663CE0BC90B3 + 3C12D76E5F7E3C37BF97616C06B9966CE27C5EF8B8D42C2A5F78045556A14A02 + 544500D124DC1B1C8450FC06D6D506313834860793699C3E17FD716AFA51ADC3 + D4227EF51B0E9AE1DBF0540A5E97005914A1E578684A16CADC146EDC4863E3C1 + 9FE00B5482D1158CA767F0EEE1D0D0CDBE4C0795204CDACF7CC16F58395DBC66 + 590A8A2053DD240A16E9740513A3A3E0BC8DD8BCFF7B883C0F6E2E8BB70E8430 + 33C38B99CC7C86129490B35FD6FFE1E1A24FB2C54FB82C6B0C0386A92E754190 + 9DD871E40A169596C3D07238712286E1A114BA3A0E458B16BD5F4F7F1B23CD1F + 56B97587BFFED5F7CEB69795D8202B54035587A2AA606C2CDC9E124AAA5A96AD + 79E673C46247B162556924B02FDA904FFE72999CFCEA233857BEB2774FCDF68B + 65A52E48B20639AF41A144B0E2402DA53B2513F7D0D0D082EA1DCF41E0A587B7 + 6EA786E9F18B2474A11F8461EA6AB63E1B092CF1212BC9D606AA5600FE5B27BF + ED455BDB7534366EC31C97BD130CC65BAD20B57425682C8DBA9D15EB23CBFC5E + 4A90A70434071A0593FF08BE0BC6D1DF771FADE7DE31658AAE5DFD59BD4570AA + 2B4E095057BD695D64C9620F44890649D360DE03BA9925AA59A75AE2E8ECB889 + 44DF276008F979D58A8F775B2E043B63F400753B2BCB2301BF0FA22843A1EBE7 + 558D4A4050B8330423C329ECAB6DC6FE035B863F385A13AADA74EC2E6D1C272D + E77BC1DAC89B4B177BC25333B305201DAAFD33D922305D207644C3BFA1A7FB77 + FCAF3E259DDD03A656ABDB2F74EFB9333A8EA22267616D2B135448C60E52B49C + 31A409DDDC24B7C02CCF09F03B5C383D31A20FFE0D3DD9B01652475B27000000 + 0049454E44AE426082} + Name = 'PngImage3' Background = clWindow end item PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000026D4944415478DA - B5966D48535118C7FF138A455F84588C0A7A27AA1163CDB69168929851CB5806 - 81D5878A7C29412428484264A85006814342E805112DE8436F94F43E74393775 - ABC1552C87B5EA6286B7B01AB4BBD3CE8D0DC57976B7D9038773B8F79CDFEF9C - F33C17AE821082FF198AE982F607CE946C4DCD3731D8D5A2A063FFDA73E4C9FB - 469C8CB0E30A4AF61A928247D660F9D225A8BE7019366F0B0CD595C8186B43AB - 4D9024F322D06E5C8521F75D2CAB2A85E94026E010C00533D1CD09E99D4014C3 - E87CE482F2A717D93B8A305AA381A97F4282D3484B40E1A248F0BAE33486825A - 188D464C0A5FF1A3AA002A9EC0C7837D457957C7124A6A958DD896AF4146C08D - 1B1E23D46A35789E87D56A452010483EC9244C20465A28B27B6767650CFEE5D7 - 38BE8F7F46AF5026C1559BCDB1AA922D48040F0A1E145B57E06C7D2BAEB5DF4B - 4E20176E7778F0F0A54B9E205E0EA6DF793C38DDC463BB5BFE0992D97974DED3 - 9E01798254E0B4745FF47A120BA2354EFB70E47D435D09FE902294177630E1B4 - D95D6FD88243BBB324F8AEEB01E95959A8166F3F4E4137F509CEC515B0AC3922 - C1D7D574CFC8CF95DC050885C370F4FBD88283057A69277432ED2FD51FC5999C - 85F03FE7E00F2A71E7C322D435DF8A9D303A2F3A767939B6C0B253175BD4D556 - 0197E3154EE95663D0FF1B8E491EE50D7D73C2693FE01B660BF6E569638B8E9F - 3886D1110E2B5504872D7AE8CD179970DABCDC085BB027678B34B1F8F604BED9 - CC385FBA1586FD4D33123F179C26DC37FC8E2D28DCAE99B5482E9C464241BE69 - 53CA705982DCAC0DFFEA5F24B36A9C7E132CB82C41B66E3DEE3FEB433AC114D0 - 3F84F988A8E02F75743575B8E251160000000049454E44AE426082} - Name = 'PngImage18' + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD252000002194944415478DA + 63FCFFFF3F03232323030CE4E49CFF0FA2A74C31840BDADBD7FFF7315CCE503A + E116422110389B6AFC67443600A459DDEC05B21A8635734F30803473184D4411 + DF30B9104CC30D8069F6B4D363509697024B3A3834C0353B99CA3168696881C5 + 5DCC34196675AA32A495DF8618909B7BE1BFB7971A5872EBB65B60FAF2E50D60 + CD05CD4D0C136AEBE036EF38CA04D6FCFBF73F86EC9ABB9806C040476717DC00 + 64E0E1D4C030B54599E1D7AFBF0C854D0F1006484AFE030A7E63F8F39B89E1E3 + A7CF40171C071B202E2D0DD6F8E1E36F86074F7E305CBCFA85A1B352166C406D + EF334C17FCF9F39FE1C78FBF0C53A6F6A1B8E0C7F71F0C1FDEBE6548889BCDD0 + 5C2C0536A079F24B5403609A4178CEDC897003609A41B8A0701D4379BA08C3AF + DF7F19FAE7BD4718E0EEA60AD70CC24B964E011B90515505D70CC20D2D07190A + 9304C12E98BAE413C2007B3B25B8E69F3FFF31AC5E330D6C40447A3A5CF3A70F + 1F18FAA65C644809E566F8093460F1C61F9881F8EDEB4F864F9F3F33DCB87101 + 6CC0F30F7CE03078F1EA17C3CBD7BFC0EC587F0EA0257F1856EDF88330405F4F + 066CF3CF9F1017ECDC351B6C8085A323D8E64FEFDF83E9555B3F31F83B32825D + 004A13282E78FEFC2630C07E317CF9FA15C87E85D3051ED6FFC09AF79EBEC108 + 374051411C6CF32F200681FD07E7820D90515080B8008861291104409AE17901 + 64002CF922039001300DC800A6196E0025000048B3879138758C930000000049 + 454E44AE426082} + Name = 'PngImage4' Background = clWindow end item PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F8000000097048597300004E2000004E2001167D99DE000004124944415478DA - ED955F4C5B551CC77FF7DEFE61D0C204D7758139C15684752C1A565A47D7A983 - 1664449D75337301A7D68D8CBD69F4C11463627858427C30DD8B3A0C8B0FBA10 - 71B8F247470706A6996E93617173C060A56D645DD7526EDBDB7BBCE75E6F2D5A - 46E2E29BBFE4E49ED3F33DDFCFEFFCEE39B7044208FECB20FE07AC0A584DE070 - 38C889EB011345C1101EC798786D77D747DF72DDE46A6B1B0F1E54DE1560B7DB - A57136DB4033B17373FEB9BF262872978F898D5C73B9622B257EB4ED83B1C0B4 - 47BF1280B0B6B6CAD4892C3D4D477873868DD76C543D90A028C9101E47A34BC6 - 1FDD83639916DB6C2D0A2A0785B12E1380686A72C8C91CBA72297A67188B9289 - 64C3E8E0D7BD78D2F4F4B3FB11CB7431887D6ECCD5DB9D09A0B75A7365843494 - E91D70E64D9C790167BEC49B2340F5DF9D397D46D41A6BEA9EA024926F922C6B - 1DEDEBEDCB08D07380827F02083367AE55AAB64522425908966818EEEBE94D5F - BCD56C5EAB9428F2C38CE4D625F797B733012A6A5ECAC9958422CB00369B4D26 - 55AE33B02C72AF64FEA75E3CD724D7D88C6F903B79DBCF9FD7138474940798CD - 6689BAB8CC4800C1671EA7A36F2A08E4CECB96215A921752057D373ADDEE789A - 21A1D168642A5561194B4AF3280449890480610072D7150402B3D7A62E9494B0 - D5119AC100E285A6D71F27097224533233F3334E85E2FEAF064E7DDA2F663F57 - 21DC01DB867AE7A60D9B0EA7EBF3E6273EFB708DFF45DF758F90C9AB47DE30E1 - 9AE3C191B60EB82F0B204803F8170166C3003FCF0661F2633B042309CB956117 - BE60E83897EC6B4E07CC3BDF85503F9DD2FB16A2606F7F14C8DDCDFCDCE9CB1C - 605FF361249A57AA01BC11A189001C18E27ABB06D6CA91B574F3634959B66260 - E709278890E91E9AD737BE550E64FD81947957DD6E200A353A64AA36C13BED1D - B086ABE312B37C0738A83B32686FA900AC1303EB87D5592988BAA41408CBBE94 - F97B1A9D50226EA272E78E277FC03B102314135A20BA1C50AC2DE6C745EB8B40 - D48F3F9805AF580BF9BEDF7B93374FF4B3BC9E8E45B711566BABBCD4A81D2CB6 - D8AB372A05C3585200E02736BF18F2C36F278F7AC747CFD9755BB630EA22ADCB - 70A803B05E1EFE1D2C6D55BC398EEE636C4A3FF4D3F70FF1C7B4EE99BD0F8763 - D1C9E71D9F839CE2DE605096DA0D16E3FADF0E069F5A5CB839525E5E0E1ACD23 - 86ECFCF56EA3FD18B4BCBF19FC37A6F9CCF14E30A82AAA033A112F5B98F9D593 - BA6886DA5A4DD5F6864F2E8C0D544F5D9D4A01B4BA32EFA4E76AF3BCE762FA27 - 9AB4ECDDBFE340E897B37B923EE81CF0420F57B646EE0E8990A2CBC2255EF5FF - 60A548580BF7708F2FB0399344CD87003AF1EFDC1146E9907B01A0D1F1004CCC - 254E70E62FA7CFA543FE3560726B3E3A7BE916EE2A38C0E2DFE731A4A1E21E4A - 745CF86CE838F32B77D3FC01CF05F8A9B438C37F0000000049454E44AE426082} - Name = 'PngImage19' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000001B74944415478DA - B5943D2C044114C7DF6A5CA150894204052AD14B7C14D7701D9D44EB4A854434 - BE3A89E28A0BD128080DA7388ABB444E88904B705710111FA5467D91DB9D9D31 - 6F6677CFB9B998DD75AFD8F9DCFF6FDEBCFDAFC118834686810063BB3CC9FB47 - 8AF52988475241C585B6036089C1DA0D7345FE88478C7F030841FF5137CB0A60 - F5395C2156FA95597A80D3F377161BEBF953C7223694BE4C20361563D324109B - 598442762B3800D75110C54DCB167D14C638CEDEC0CE7E3A3800D76C14E4E284 - C81641160761A4CFF2C100388745213617B628942DC2019801952D9180ECE55D - 30804D2950CAE0F0D586E98BDAFA27064A106D3321775DD4074C8C763B93F2E4 - 16BF92965D06F5FC5118FE84ABDB077DC0F88804C8821271E7AD074D10C61F6C - B639E501A2439D62567E2D4464D09EFC08A4EC65B0DC6754D520B997A9DAD0D5 - D10B61FC719FD9AC0096D6376A5E5C5B988730FEF00086A1FE9F9DE4DE42F9C3 - 37C0AF3F7C035C7FE049F1C41240C518A1652703D71F5A00953F4C47D86BC555 - 71805303D71F5A00953F4C2703B7B5BCB104E48B4FFA00953F7E9E5C05283EBE - F8ABC16F7FE8843640E50FDDF0008D8C6F397A5EEFE9EAF0950000000049454E - 44AE426082} - Name = 'PngImage20' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD2520000018C4944415478DA - 63FCFFFF3F032D01E3A8054459C0C8C8C860E091F0FFC28E058C843490AA8E3E - 16187A26D22C9C864910812CA079102DD87000251E40E23F7FFE62F8F90B827F - C0D8405A47439528753D15A98C2816C4FBDBA3D8FEFBCF5F08FEFD17CEEE98B1 - 9461626D1651EA26D565E3B6009BA64BB75E306CD8B183617A733E51EA66B414 - 60B7009BA6DF7FFE315CBFF78A61F9860D0C0BBACB8952B7B0A70261C1FCF5FB - FF270438E0D404A2EF3C7ACB307FC54A861593EB8852B7724A3DC282192B76FE - 4F0A76C6A9E91750ECD1F30F0CD3162C625833BD8928759BE6B4212C98B868F3 - FF9450379C9A40F8C59BCF0C7D336633AC9FDD4694BA5D4B7A111674CD59FB3F - 2DCC13A7A65FBFFF30BCFBF89DA175E21486CD73BB88527778F51484054D5397 - FFCF8CF4C1A9E9D7AFBF0C5FBEFF62A8EDEC61D8B6B09F2875A737CF415850DD - BFF07F76B43F3889E103152D1D0CDB164D204A1D4A5151D231FBFF2F600EFCF5 - EB37C3F71F3F187EFCF809A47F42E89F20FA0730DCFF8035DB599912A50E6E01 - 2DC1D0B7000029AD9AF9DFD03E1F0000000049454E44AE426082} - Name = 'PngImage21' - Background = clWindow - end - item - PngImage.Data = { - 89504E470D0A1A0A0000000D4948445200000018000000180806000000E0773D - F80000000970485973000017120000171201679FD252000002694944415478DA - B594CB6B134118C0BFB9743D6841A48A1E5A1FF1502A5AA555A3584544BDE829 - 1E04C58B87E4A247FF84EAA168AD90A017C17A908882082A8A50A15AAD448B0F - D0F8A8252D4A1A2D096477670DE37C3B997D249B6636E007C37C330BBFDF3CBE - 59C21803F305615A9411E061E75F7972C233AE7E6B25080A60943073031F4492 - C0BE240005F4909B4B59CB029A4FB1B64709400906423197A28BA7072137F72B - 347C64D22062073C50823D6B4F08733169F7083F9BBA0385D96F502E2EF0F607 - F4D2028CDDBE09EBD7AD8223E792F6BC5EFAEDFB3E742F0BE9749A10E3393067 - D5C704B8AD230EA6C94F25E3AE6646BFAA0CBF3E320885AE9810B01B42605F28 - 17689A18A2404BBB82A9A51794E1AB97AF84F7ED0355419323CAFF5801F3B9EF - A1E0183E01C2B162B08AF0B29D1D552B2BF3704609BEB1732D509302A57FFD02 - 59FBDED2C45C56D6A5F39D4DE1DB36F5D870D3B4EC3EB36497E788F83BC05A8F - 6F276C78585C78FCB2D845EA8C9B378A81683F58D472E0D84F903EFF1D600C9D - 24ECF0C1534DEBBB52A9701007EA149E3C18879ECD117E2C964F3246B7B426F0 - C211F4ECE924F4F675DB70AFE471A93BBCA0168EA097E36F21BA672BE8BAE193 - DC9F8F841304C1B17FF3FA23EC3BB0838FA94F7277AE4B5DD0088E731FDE656D - 81789CAEE4D6F41A35C162705C69F6D3B423F04A463F773417D4C2CB6543801D - 9105B3B99F3E81945C9B5AB6B8C0811862B5A65CB5078E2D9F2FD409AEBCD26C - 38E681025538CE178B259FC00B0F14ECDF7B5C198E7760188623A885070A76EF - 8C29C331A420081E28E8EF3DAA0C9702F9E70C7A3F758209230661A311BC4EF0 - 3FE21F497E40FE838101750000000049454E44AE426082} - Name = 'PngImage22' + 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF + 610000000970485973000017120000171201679FD25200000A4D694343505068 + 6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF + F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A + 561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5 + 7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8 + 1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC + 01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200 + C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05 + 00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2 + 00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C + CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97 + 4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313 + 48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F + 223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA + 560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED + 2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383 + FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A + F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86 + 4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432 + 79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0 + 812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C + 0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70 + 170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261 + 48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA + 90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F + 5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961 + 5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402 + 8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2 + 272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93 + 48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90 + 6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452 + A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650 + 2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83 + 1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7 + 192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295 + 3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9 + 09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685 + 46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9 + EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C + 4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED + EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB + 79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31 + 3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87 + 67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94 + 6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85 + A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6 + 5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29 + D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B + 743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6 + 4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD + D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7 + C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E + 3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B + FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5 + 0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1 + 15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0 + 476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67 + BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845 + F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC + A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7 + 6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA + 68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C + 949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423 + F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433 + DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317 + 772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2 + A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17 + 955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4 + EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E + CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9 + 26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD + 8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF + B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C + 7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD + EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293 + E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7 + 5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F + EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6 + EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07 + FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247 + CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73 + ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC + CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F + F73EE77CFEFC2FF784F3FB25D29F33000003904944415478DA3D526D4C536714 + 7EDEDB4B6FBB425BC48F0A2CD6888E5FAC718131258C6D51C46F4C86DBE0074B + 66341A7F2C9AB86421CBB2C99C8A20A8339339118B6692890AB3040A573B18F3 + B38518473363432A45B1B4D2D25EECFDD8DBBBB193BC39EFB9B9CFC739EF21ED + 6D872E6766A7AC211031E6935D53CAEA6BA9195929922830B202B02912169839 + 3C19F36B6A0E3639144519CD9867062104F40EF2E7405DA2609581051444A204 + AE9B321449014BBF408AE3F90B06ABD7ED81A4C868FCD11E6C69BB526632A5DD + 4935E821493288CB7974BCE8FDD4C57EBF8487F7A3C830C628B30CC832185940 + 38C2622AA847AAB504656BDE45D3B9AE89C3272F6C6459F61EAB614086068E05 + F20B7496F6D61056AEF023337316625CA1E2D3D4940876C68BBE8E4798CC3B8B + 89F822683502BA7AFFE0C72726DFD3EB3810F7DDBA80862196F1D16758BB3E08 + 4C53706C1AA21005C7BDC29D6B4E080B3F866DFB79743A3D781AF0A3E1F4A5CE + 40607293C96800191C381988463496B7963DC63C630442883A10C2B47F01B1C0 + 23F4F5F850B4DF034B761E9263B9EE18C1271F9D9E89C744032D7B49CB99DAE8 + DB6F8C19962FF4221A14208B02C4D918B44C029EDF1F2396F5218A3FFB05C1E7 + 113A5C0925C587517BB07CA0B2AA79132538449A6BD60FA7077F5BCE988DBAAB + 05DB80A4BA006CFEEB0666A40528DED303F3E25CBC9A89C0E5FA1B4D4D7DD4D5 + BE1E56BB732D254827759F2E31C4B439155B0ED8CF1EBBBD0B36AB0DBCDB8D23 + 1FD483D3EB903EDF023941190970BCA117B76E7965FBC5DDF6ECD2F61D961569 + 741B689CB2F7976EDB52E2F8A2BD1C56AB15EE21377EDADB9F5C0DDA4E9466FA + AC946178D88F75A50D301A75ADB1B8D42615AEE2497547B532673B4C8FCD6A06 + 3FE4A305D476C2347735F250D9685CEDF008278E3B03A3DE674B695941AA2F6D + 556CB9B6FF08C2FF9F2432997D0E0A3AE5C45CC8747D4551E9CFCDF9F2B63A83 + EA735B95A4F2BF00C09A6B868FF7A9CA49D2A48B2BCDF7A8BE028676ACE5B448 + 6118DEB2E87307D4C668D4B774975794BDF36B65ED66D019C2CD8771A36E5005 + 10C2603AF21226A3090DF5DD89ED95F93F8BA2E8CC7FF39B1D14FABD4A70E632 + 5FB5346B7EEBB7E7AB602E047C1DC0AE8A23AA6542148C3CE847E6EB85F8AEA6 + 07FAD7D8978220B21CA7B939F522BE4125E8E447728EFE70A12CACEF6E9C1B5E + 2854B497BE1FA0D1216F49E46BCF13DD57F4676636A45FC97248A465E0847750 + E3F9077BBEACC98B9C735E0000000049454E44AE426082} + Name = 'PngImage5' Background = clWindow end> PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] - Left = 99 + Left = 100 Top = 88 Bitmap = {} end diff --git a/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas b/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas index 0479bf12..79a1ca14 100644 --- a/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas +++ b/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas @@ -30,7 +30,6 @@ type BitBtn3: TBitBtn; actLista: TActionList; actElegirSubCuenta: TAction; - LargeImages: TPngImageList; layoutApunteItem5: TdxLayoutItem; eSubCuenta: TcxDBTextEdit; layoutApunteGroup3: TdxLayoutGroup; @@ -43,6 +42,7 @@ type layoutApunteItem6: TdxLayoutItem; cbIgnorarContabilidad: TcxDBCheckBox; layoutApunteGroup2: TdxLayoutGroup; + SmallImages: TPngImageList; procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure actElegirSubCuentaExecute(Sender: TObject); diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas index b3fa3ea2..82ccccb7 100644 --- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas @@ -51,7 +51,7 @@ end; function TDataModuleFacturasCliente.GetReport(const AFacturaID: String): Binary; begin -// Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AFacturaID) + Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AFacturaID) end; function TDataModuleFacturasCliente.NewItem: IBizFacturaCliente; diff --git a/Source/Modulos/Facturas de cliente/Reports/Copia de uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/Copia de uRptFacturasCliente_Server.dfm deleted file mode 100644 index c30a64c2..00000000 --- a/Source/Modulos/Facturas de cliente/Reports/Copia de uRptFacturasCliente_Server.dfm +++ /dev/null @@ -1,1519 +0,0 @@ -object RptFacturasCliente: TRptFacturasCliente - OldCreateOrder = True - OnCreate = DataModuleCreate - Height = 405 - Width = 447 - object DADataCabecera: TDADataSource - DataTable = tbl_FacturaCliente - Left = 264 - Top = 72 - end - object DADataDetalles: TDADataSource - DataTable = tbl_DetallesFacturaCliente - Left = 344 - Top = 72 - end - object tbl_FacturaCliente: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = <> - Params = <> - MasterMappingMode = mmDataRequest - LogChanges = False - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteFetchEnabled = False - SchemaCall.Params = <> - DataRequestCall.Params = <> - DataUpdateCall.Params = <> - ScriptCall.Params = <> - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - IndexDefs = <> - Left = 264 - Top = 128 - end - object tbl_DetallesFacturaCliente: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = <> - Params = <> - MasterMappingMode = mmDataRequest - LogChanges = False - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteFetchEnabled = False - SchemaCall.Params = <> - DataRequestCall.Params = <> - DataUpdateCall.Params = <> - ScriptCall.Params = <> - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - IndexDefs = <> - Left = 344 - Top = 128 - end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 80 - end - object frxRichObject1: TfrxRichObject - Left = 48 - Top = 296 - end - object frxBarCodeObject1: TfrxBarCodeObject - Left = 144 - Top = 296 - end - object frxOLEObject1: TfrxOLEObject - Left = 48 - Top = 344 - end - object frxCrossObject1: TfrxCrossObject - Left = 144 - Top = 344 - end - object frxCheckBoxObject1: TfrxCheckBoxObject - Left = 256 - Top = 296 - end - object frxGradientObject1: TfrxGradientObject - Left = 360 - Top = 296 - end - object frxChartObject1: TfrxChartObject - Left = 256 - Top = 344 - end - object schReport: TDASchema - ConnectionManager = dmServer.ConnectionManager - DataDictionary = DataDictionary - Datasets = < - item - Params = < - item - Name = 'ID' - DataType = datInteger - BlobType = dabtUnknown - Value = '1' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'FACTURAS_CLIENTE' - SQL = - 'SELECT'#10' V_FACTURAS_CLIENTE.ID, V_FACTURAS_CLIENTE.REFERENCIA,' + - ' V_FACTURAS_CLIENTE.FECHA_FACTURA,'#10' V_FACTURAS_CLIENTE.BASE_I' + - 'MPONIBLE, V_FACTURAS_CLIENTE.DESCUENTO, V_FACTURAS_CLIENTE.IMPOR' + - 'TE_DESCUENTO,'#10' V_FACTURAS_CLIENTE.IVA, V_FACTURAS_CLIENTE.IMP' + - 'ORTE_IVA,'#10' V_FACTURAS_CLIENTE.RE, V_FACTURAS_CLIENTE.IMPORTE_' + - 'RE,'#10' V_FACTURAS_CLIENTE.IMPORTE_TOTAL,'#10' V_FACTURAS_CLIENTE' + - '.OBSERVACIONES, FORMAS_PAGO.DESCRIPCION AS FORMA_PAGO, V_FACTURA' + - 'S_CLIENTE.ID_CLIENTE,'#10' V_FACTURAS_CLIENTE.NIF_CIF, V_FACTURAS' + - '_CLIENTE.NOMBRE, V_FACTURAS_CLIENTE.CALLE,'#10' V_FACTURAS_CLIENT' + - 'E.PROVINCIA, V_FACTURAS_CLIENTE.CODIGO_POSTAL, V_FACTURAS_CLIENT' + - 'E.POBLACION,'#10' CONTACTOS_DATOS_BANCO.TITULAR,'#10' CONTACTOS_DA' + - 'TOS_BANCO.ENTIDAD,'#10' CONTACTOS_DATOS_BANCO.SUCURSAL,'#10' CONTA' + - 'CTOS_DATOS_BANCO.DC,'#10' CONTACTOS_DATOS_BANCO.CUENTA,'#10' ID_EM' + - 'PRESA, EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIA' + - 'L,'#10' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as PO' + - 'BLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EM' + - 'PRESAS.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELE' + - 'FONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EM' + - 'PRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIP' + - 'O'#10'FROM V_FACTURAS_CLIENTE'#10'LEFT JOIN EMPRESAS ON EMPRESAS.ID = ID' + - '_EMPRESA'#10'LEFT JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = V_FACTURAS_C' + - 'LIENTE.ID_FORMA_PAGO)'#10'LEFT JOIN CONTACTOS_DATOS_BANCO ON (CONTAC' + - 'TOS_DATOS_BANCO.ID_CONTACTO = V_FACTURAS_CLIENTE.ID_CLIENTE)'#10'WHE' + - 'RE V_FACTURAS_CLIENTE.ID = :ID' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'DESCUENTO' - TableField = 'DESCUENTO' - end - item - DatasetField = 'IVA' - TableField = 'IVA' - end - item - DatasetField = 'OBSERVACIONES' - TableField = 'OBSERVACIONES' - end - item - DatasetField = 'NOMBRE' - TableField = 'NOMBRE' - end - item - DatasetField = 'CALLE' - TableField = 'CALLE' - end - item - DatasetField = 'PROVINCIA' - TableField = 'PROVINCIA' - end - item - DatasetField = 'POBLACION' - TableField = 'POBLACION' - end - item - DatasetField = 'REFERENCIA' - TableField = 'REFERENCIA' - end - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - end - item - DatasetField = 'FECHA_FACTURA' - TableField = 'FECHA_FACTURA' - end - item - DatasetField = 'BASE_IMPONIBLE' - TableField = 'BASE_IMPONIBLE' - end - item - DatasetField = 'IMPORTE_DESCUENTO' - TableField = 'IMPORTE_DESCUENTO' - end - item - DatasetField = 'IMPORTE_IVA' - TableField = 'IMPORTE_IVA' - end - item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' - end - item - DatasetField = 'FORMA_PAGO' - TableField = 'FORMA_PAGO' - end - item - DatasetField = 'ID_CLIENTE' - TableField = 'ID_CLIENTE' - end - item - DatasetField = 'NIF_CIF' - TableField = 'NIF_CIF' - end - item - DatasetField = 'CODIGO_POSTAL' - TableField = 'CODIGO_POSTAL' - end - item - DatasetField = 'NIF_CIF_EMPRESA' - TableField = 'NIF_CIF_EMPRESA' - end - item - DatasetField = 'RAZON_SOCIAL' - TableField = 'RAZON_SOCIAL' - end - item - DatasetField = 'CALLE_EMPRESA' - TableField = 'CALLE_EMPRESA' - end - item - DatasetField = 'POBLACION_EMPRESA' - TableField = 'POBLACION_EMPRESA' - end - item - DatasetField = 'PROVINCIA_EMPRESA' - TableField = 'PROVINCIA_EMPRESA' - end - item - DatasetField = 'CODIGO_POSTAL_EMPRESA' - TableField = 'CODIGO_POSTAL_EMPRESA' - end - item - DatasetField = 'TELEFONO_1' - TableField = 'TELEFONO_1' - end - item - DatasetField = 'FAX' - TableField = 'FAX' - end - item - DatasetField = 'MOVIL_1' - TableField = 'MOVIL_1' - end - item - DatasetField = 'EMAIL_1' - TableField = 'EMAIL_1' - end - item - DatasetField = 'PAGINA_WEB' - TableField = 'PAGINA_WEB' - end - item - DatasetField = 'REGISTRO_MERCANTIL' - TableField = 'REGISTRO_MERCANTIL' - end - item - DatasetField = 'LOGOTIPO' - TableField = 'LOGOTIPO' - end - item - DatasetField = 'RE' - TableField = 'RE' - end - item - DatasetField = 'IMPORTE_RE' - TableField = 'IMPORTE_RE' - end - item - DatasetField = 'TITULAR' - TableField = 'TITULAR' - end - item - DatasetField = 'ENTIDAD' - TableField = 'ENTIDAD' - end - item - DatasetField = 'SUCURSAL' - TableField = 'SUCURSAL' - end - item - DatasetField = 'DC' - TableField = 'DC' - end - item - DatasetField = 'CUENTA' - TableField = 'CUENTA' - end> - end> - Name = 'InformeFacturasCliente' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_ID' - InPrimaryKey = True - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_ID_EMPRESA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FECHA_FACTURA' - DataType = datDateTime - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'BASE_IMPONIBLE' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 20 - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_REFERENCIA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'IMPORTE_DESCUENTO' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DESCUENTO' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_DESCUENTO' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'IMPORTE_IVA' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_IMPORTE_IVA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RE' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'IMPORTE_RE' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'IMPORTE_TOTAL' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'IVA' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_IVA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FORMA_PAGO' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Forma de pago' - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ID_CLIENTE' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_ID_CLIENTE' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NIF_CIF' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_NIF_CIF' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'OBSERVACIONES' - DataType = datMemo - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_OBSERVACIONES' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NOMBRE' - DataType = datString - Size = 100 - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_NOMBRE' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CALLE' - DataType = datString - Size = 150 - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_CALLE' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PROVINCIA' - DataType = datString - Size = 30 - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_PROVINCIA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TITULAR' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ENTIDAD' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'SUCURSAL' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DC' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CUENTA' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'POBLACION' - DataType = datString - Size = 150 - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_POBLACION' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'NIF_CIF_EMPRESA' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'RAZON_SOCIAL' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CALLE_EMPRESA' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'POBLACION_EMPRESA' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PROVINCIA_EMPRESA' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CODIGO_POSTAL_EMPRESA' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TELEFONO_1' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'FAX' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'MOVIL_1' - DataType = datString - Size = 25 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'EMAIL_1' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'PAGINA_WEB' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'REGISTRO_MERCANTIL' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'LOGOTIPO' - DataType = datBlob - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = < - item - Name = 'ID_FACTURA' - DataType = datInteger - BlobType = dabtUnknown - Value = '13' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'FACTURAS_CLIENTE_DETALLES' - SQL = - 'SELECT'#10' ID, ID_FACTURA, POSICION, TIPO_DETALLE, CONCEPTO, CAN' + - 'TIDAD,'#10' IMPORTE_UNIDAD, DESCUENTO, IMPORTE_TOTAL, VISIBLE'#10'FRO' + - 'M FACTURAS_CLIENTE_DETALLES'#10'WHERE ID_FACTURA = :ID_FACTURA'#10'ORDER' + - ' BY POSICION;' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'CANTIDAD' - TableField = 'CANTIDAD' - end - item - DatasetField = 'POSICION' - TableField = 'POSICION' - end - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'ID_FACTURA' - TableField = 'ID_FACTURA' - end - item - DatasetField = 'TIPO_DETALLE' - TableField = 'TIPO_DETALLE' - end - item - DatasetField = 'CONCEPTO' - TableField = 'CONCEPTO' - end - item - DatasetField = 'IMPORTE_UNIDAD' - TableField = 'IMPORTE_UNIDAD' - end - item - DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' - end - item - DatasetField = 'VISIBLE' - TableField = 'VISIBLE' - end - item - DatasetField = 'DESCUENTO' - TableField = 'DESCUENTO' - end> - end> - Name = 'InformeFacturasCliente_Detalles' - Fields = < - item - Name = 'ID' - DataType = datAutoInc - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_Detalles_ID' - InPrimaryKey = True - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'ID_FACTURA' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'POSICION' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_Detalles_POSICION' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'TIPO_DETALLE' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CONCEPTO' - DataType = datString - Size = 2000 - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'CANTIDAD' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'IMPORTE_UNIDAD' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'DESCUENTO' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'IMPORTE_TOTAL' - DataType = datFloat - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'VISIBLE' - DataType = datInteger - BlobType = dabtUnknown - DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end - item - Params = < - item - Name = 'ID_FACTURA' - BlobType = dabtUnknown - Value = '' - ParamType = daptInput - end> - Statements = < - item - Connection = 'IBX' - TargetTable = 'V_RECIBOS_CLIENTE' - SQL = - 'SELECT'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO, V_RECIBOS_CLIENT' + - 'E.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLIENTE'#10'WHERE V_RECIBOS_CLIENTE.I' + - 'D_FACTURA = :ID_FACTURA'#10'ORDER BY V_RECIBOS_CLIENTE.FECHA_VENCIMI' + - 'ENTO' - StatementType = stSQL - ColumnMappings = < - item - DatasetField = 'FECHA_VENCIMIENTO' - TableField = 'FECHA_VENCIMIENTO' - end> - end> - Name = 'InformeFacturasCliente_Vencimientos' - Fields = < - item - Name = 'FECHA_VENCIMIENTO' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end - item - Name = 'IMPORTE_TOTAL' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - InPrimaryKey = False - Calculated = False - Lookup = False - LookupCache = False - end> - BusinessRulesClient.ScriptLanguage = rslPascalScript - BusinessRulesServer.ScriptLanguage = rslPascalScript - end> - Commands = <> - RelationShips = <> - UpdateRules = <> - Left = 48 - Top = 16 - end - object DataDictionary: TDADataDictionary - Fields = < - item - Name = 'FacturasCliente_ID' - DataType = datAutoInc - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - DisplayLabel = 'ID' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_ID_EMPRESA' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'ID_EMPRESA' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_ID_CONTRATO' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'ID_CONTRATO' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_FECHA_FACTURA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Fecha de las factura' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_VENCIMIENTO' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Vencimiento' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_SITUACION' - DataType = datString - Size = 255 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Situaci'#243'n' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_BASE_IMPONIBLE' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Base imponible' - Alignment = taRightJustify - end - item - Name = 'FacturasCliente_IMPORTE_DESCUENTO' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Importe dto.' - Alignment = taRightJustify - end - item - Name = 'FacturasCliente_IMPORTE_IVA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Importe IVA' - Alignment = taRightJustify - end - item - Name = 'FacturasCliente_IMPORTE_TOTAL' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Importe total' - Alignment = taRightJustify - end - item - Name = 'FacturasCliente_FORMA_PAGO' - DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Forma de pago' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_ID_CLIENTE' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'ID_CLIENTE' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_NIF_CIF' - DataType = datString - Size = 15 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'NIF/CIF' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_CODIGO_POSTAL' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'C'#243'd. postal' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_FECHA_ALTA' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'FECHA_ALTA' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_FECHA_MODIFICACION' - DataType = datDateTime - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'FECHA_MODIFICACION' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_OBSERVACIONES' - DataType = datMemo - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Observaciones' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_NOMBRE' - DataType = datString - Size = 100 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Cliente' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_CALLE' - DataType = datString - Size = 150 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Direcci'#243'n' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_PROVINCIA' - DataType = datString - Size = 30 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Provincia' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_POBLACION' - DataType = datString - Size = 150 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Poblaci'#243'n' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_IVA' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'IVA' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_USUARIO' - DataType = datString - Size = 100 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'USUARIO' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_REFERENCIA' - DataType = datString - Size = 20 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Referencia' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_DESCUENTO' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Dto.' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_ID' - DataType = datAutoInc - BlobType = dabtUnknown - Required = True - DisplayWidth = 0 - DisplayLabel = 'ID' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_ID_FACTURA' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'ID_FACTURA' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_TIPO_DETALLE' - DataType = datString - Size = 10 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Tipo detalle' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_CONCEPTO' - DataType = datString - Size = 2000 - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Concepto' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Importe unidad' - Alignment = taRightJustify - end - item - Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL' - DataType = datFloat - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Importe total' - Alignment = taRightJustify - end - item - Name = 'FacturasCliente_Detalles_VISIBLE' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = #191'Visible?' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_POSICION' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Posici'#243'n' - Alignment = taLeftJustify - end - item - Name = 'FacturasCliente_Detalles_CANTIDAD' - DataType = datInteger - BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Cantidad' - Alignment = taLeftJustify - end> - Left = 46 - Top = 158 - end - object frxReport: TfrxReport - Version = '3.23.7' - DotMatrixReport = False - EngineOptions.DoublePass = True - IniFile = '\Software\Fast Reports' - PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] - PreviewOptions.OutlineWidth = 180 - PreviewOptions.Zoom = 1.000000000000000000 - PrintOptions.Printer = 'Default' - ReportOptions.CreateDate = 37871.995398692100000000 - ReportOptions.LastChange = 39290.847101226850000000 - ReportOptions.VersionBuild = '1' - ReportOptions.VersionMajor = '12' - ReportOptions.VersionMinor = '13' - ReportOptions.VersionRelease = '1' - ScriptLanguage = 'PascalScript' - ScriptText.Strings = ( - 'procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' DatosCliente.Lines.Clear;' - ' DatosCliente.Lines.Add();' - '' - ' if ( <> '#39#39')' - ' or ( <> '#39#39') then' - - ' DatosCliente.Lines.Add( + '#39' ' + - ' '#39' + );' - '' - ' if ( <> '#39#39') then' - ' DatosCliente.Lines.Add();' - 'end;' - '' - 'procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' BandaDetalles.StartNewPage := False;' - ' BandaDetalles.Visible := True;' - ' MemPrecio.Style := '#39'Concepto normal'#39';' - ' MemCantidad.Style := '#39'Concepto normal'#39';' - ' MemImpTotal.Style := '#39'Concepto normal'#39';' - ' RichConcepto.Visible := True;' - '' - ' case of' - ' '#39'Salto'#39': begin' - ' BandaDetalles.StartNewPage := True;' - ' RichConcepto.Visible := False;' - ' end;' - ' '#39'Titulo'#39': begin' - ' MemPrecio.Style := '#39'Concepto titulo'#39';' - ' MemCantidad.Style := '#39'Concepto titulo'#39';' - ' MemImpTotal.Style := '#39'Concepto titulo'#39';' - ' end;' - ' '#39'Concepto'#39': begin' - ' MemPrecio.Style := '#39'Concepto normal'#39';' - ' MemCantidad.Style := '#39'Concepto normal'#39';' - ' MemImpTotal.Style := '#39'Concepto normal'#39';' - ' end;' - ' '#39'Subtotal'#39': begin' - ' MemPrecio.Style := '#39'Concepto subtotal'#39';' - ' MemCantidad.Style := '#39'Concepto subtotal'#39';' - ' MemImpTotal.Style := '#39'Concepto subtotal'#39';' - ' end;' - ' '#39'Descuento'#39': begin' - ' BandaDetalles.Visible := False;' - ' RichConcepto.Color := clNone;' - ' end;' - ' end;' - '' - ' RichConcepto.Color := MemImpTotal.Color;' - ' RichConcepto.Frame := MemImpTotal.Frame;' - 'end;' - '' - 'procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);' - 'begin' - - ' Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1' + - '.Height - 1;' - 'end;' - '' - 'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);' - 'var' - ' Cadena: String;' - 'begin' - ' DatosEmpresa.Lines.Clear;' - ' DatosEmpresa.Lines.Add();' - ' DatosEmpresa.Lines.Add();' - '' - ' Cadena := '#39#39';' - ' if ( <> '#39#39') then' - ' Cadena := '#39'TLF: '#39' + ;' - ' if ( <> '#39#39') then' - ' Cadena := Cadena + '#39' FAX: '#39' + ;' - ' DatosEmpresa.Lines.Add(Cadena);' - '' - ' Cadena := '#39#39';' - ' if ( <> '#39#39') then' - ' Cadena := ;' - ' if ( <> '#39#39') then' - - ' Cadena := Cadena + '#39' '#39' + ;' - ' if ( <> '#39#39') then' - - ' Cadena := Cadena + '#39' - '#39' + ;' - ' DatosEmpresa.Lines.Add(Cadena);' - 'end;' - '' - 'procedure Memo15OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' Memo15.Lines.Clear;' - ' if (StrToFloat() < 0) then' - ' Memo15.Lines.Add('#39'ABONO'#39')' - ' else' - ' Memo15.Lines.Add('#39'FACTURA'#39')' - 'end;' - '' - 'procedure Memo20OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if (StrToFloat() = 0) then' - ' begin' - ' Memo20.Lines.Clear;' - ' Memo28.Lines.Clear;' - ' Memo21.Lines.Clear;' - ' Memo29.Lines.Clear;' - ' end;' - '' - 'end;' - '' - 'procedure Memo11OnBeforePrint(Sender: TfrxComponent);' - 'var' - ' Cadena : String;' - 'begin' - ' if ( <> '#39#39') then' - ' begin' - ' Cadena := Memo11.Lines.Text;' - ' Memo11.Lines.Clear;' - ' Memo11.Lines.Add();' - ' Memo11.Lines.Add(Cadena);' - ' end' - 'end;' - '' - 'procedure Band2OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if not Engine.FinalPass then' - ' Set('#39'TotalPaginas'#39', ( + 1));' - '' - ' if Engine.FinalPass then' - ' Set('#39'Pagina'#39', ( + 1));' - 'end;' - '' - 'procedure frxReportOnStartReport(Sender: TfrxComponent);' - 'begin' - ' Set('#39'Pagina'#39', 0);' - ' Set('#39'TotalPaginas'#39', 0);' - 'end;' - '' - 'begin' - '' - 'end.') - ShowProgress = False - StoreInDFM = False - OnStartReport = 'frxReportOnStartReport' - Left = 169 - Top = 16 - Datasets = < - item - DataSet = frxDBCabecera - DataSetName = 'frxDBCabecera' - end - item - DataSet = frxDBDetalles - DataSetName = 'frxDBDetalles' - end - item - DataSet = frxDBDataset1 - DataSetName = 'frxDBVencimientos' - end> - Variables = < - item - Name = ' Paginacion' - Value = Null - end - item - Name = 'Pagina' - Value = Null - end - item - Name = 'TotalPaginas' - Value = Null - end> - Style = < - item - Name = 'Concepto normal' - Color = clNone - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [] - end - item - Name = 'Concepto subtotal' - Color = clNone - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - end - item - Name = 'Cabecera de columna' - Color = 15790320 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom] - end - item - Name = 'Concepto titulo' - Color = clNone - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - end> - end - object frxDBCabecera: TfrxDBDataset - UserName = 'frxDBCabecera' - CloseDataSource = True - DataSource = DADataCabecera - Left = 264 - Top = 16 - end - object frxDBDetalles: TfrxDBDataset - UserName = 'frxDBDetalles' - CloseDataSource = False - DataSource = DADataDetalles - Left = 344 - Top = 16 - end - object DADataVencimientos: TDADataSource - DataTable = tbl_Vencimientos - Left = 264 - Top = 184 - end - object tbl_Vencimientos: TDACDSDataTable - RemoteUpdatesOptions = [] - Fields = <> - Params = <> - MasterMappingMode = mmDataRequest - LogChanges = False - StreamingOptions = [soDisableEventsWhileStreaming] - RemoteFetchEnabled = False - SchemaCall.Params = <> - DataRequestCall.Params = <> - DataUpdateCall.Params = <> - ScriptCall.Params = <> - ReadOnly = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - IndexDefs = <> - Left = 264 - Top = 240 - end - object frxDBDataset1: TfrxDBDataset - UserName = 'frxDBVencimientos' - CloseDataSource = True - DataSource = DADataVencimientos - Left = 344 - Top = 184 - end -end diff --git a/Source/Modulos/Facturas de cliente/Reports/Copia de uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/Copia de uRptFacturasCliente_Server.pas deleted file mode 100644 index 10e7405c..00000000 --- a/Source/Modulos/Facturas de cliente/Reports/Copia de uRptFacturasCliente_Server.pas +++ /dev/null @@ -1,130 +0,0 @@ -unit uRptFacturasCliente_Server; - -interface - -uses - Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, frxClass, frxDBSet, uDAScriptingProvider, - uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, - frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, - uDAInterfaces; - -type - TRptFacturasCliente = class(TDataModule) - DADataCabecera: TDADataSource; - DADataDetalles: TDADataSource; - tbl_FacturaCliente: TDACDSDataTable; - tbl_DetallesFacturaCliente: TDACDSDataTable; - DABINAdapter: TDABINAdapter; - frxRichObject1: TfrxRichObject; - frxBarCodeObject1: TfrxBarCodeObject; - frxOLEObject1: TfrxOLEObject; - frxCrossObject1: TfrxCrossObject; - frxCheckBoxObject1: TfrxCheckBoxObject; - frxGradientObject1: TfrxGradientObject; - frxChartObject1: TfrxChartObject; - frxDBCabecera: TfrxDBDataset; - frxDBDetalles: TfrxDBDataset; - DADataVencimientos: TDADataSource; - tbl_Vencimientos: TDACDSDataTable; - frxDBDataset1: TfrxDBDataset; - schReport: TDASchema; - DataDictionary: TDADataDictionary; - frxReport: TfrxReport; - procedure DataModuleCreate(Sender: TObject); - private - FConnection: IDAConnection; - //Genera cada uno de los albaranes a imprimir - procedure GenerarFactura(const ID: integer); overload; - public - function GenerarFactura(const AFacturaID : String): Binary; overload; - end; - -implementation - -{$R *.dfm} - -uses - uDataModuleServer, schFacturasClienteClient_Intf; - -const - rptFacturaCliente = 'InfFacturaCliente.fr3'; - - { Dataset names for schReport } - ds_InformeFacturasCliente = 'InformeFacturasCliente'; - ds_InformeFacturasCliente_Detalles = 'InformeFacturasCliente_Detalles'; - ds_InformeFacturasCliente_Vencimientos = 'InformeFacturasCliente_Vencimientos'; - - -{ TRptFacturasCliente } - - -procedure TRptFacturasCliente.DataModuleCreate(Sender: TObject); -begin - schReport.ConnectionManager := dmServer.ConnectionManager; - FConnection := dmServer.DarNuevaConexion; - frxReport.EngineOptions.NewSilentMode := simReThrow; -end; - -function TRptFacturasCliente.GenerarFactura(const AFacturaID: String): Binary; -var - ID_Facturas: TStringList; - i: Integer; - -begin - Result := Binary.Create; - FConnection.BeginTransaction; - - try - ID_Facturas := TStringList.Create; - ID_Facturas.CommaText := AFacturaID; - - //Vamos generando todos y cada uno de los albaranes recibidos - for i := 0 to ID_Facturas.Count - 1 do - GenerarFactura(StrToInt(ID_Facturas.Strings[i])); - - frxReport.PreviewPages.SaveToStream(Result); - - finally - FConnection.RollbackTransaction; - end; -end; - -procedure TRptFacturasCliente.GenerarFactura(const ID: integer); -var - AStream: TMemoryStream; - dsMaster: IDADataset; - dsDetail: IDADataset; - dsVencimientos : IDADataset; -begin - AStream := TMemoryStream.Create; - - try - dsMaster := schReport.NewDataset(FConnection, ds_InformeFacturasCliente, ['ID'], [ID]); - dsDetail := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Detalles, ['ID_FACTURA'], [ID], False); - dsVencimientos := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Vencimientos, ['ID_FACTURA'], [ID], False); - - AStream.Clear; - DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); - DABINAdapter.ReadDataset(AStream, tbl_FacturaCliente, TRUE, '', TRUE, TRUE); - - AStream.Clear; - DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1); - DABINAdapter.ReadDataset(AStream, tbl_DetallesFacturaCliente, TRUE, '', TRUE, TRUE); - - AStream.Clear; - DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1); - DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE); - - - frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True); - frxReport.PrepareReport(False); - - finally - AStream.Free; - dsMaster := Nil; - dsDetail := Nil; - end; -end; - -end. diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm index bb8e7b64..0e159ef9 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm @@ -1,48 +1,319 @@ object RptFacturasCliente: TRptFacturasCliente OldCreateOrder = True OnCreate = DataModuleCreate - Height = 405 - Width = 447 + Height = 464 + Width = 589 object DADataCabecera: TDADataSource + DataSet = tbl_FacturaCliente.Dataset + DataTable = tbl_FacturaCliente Left = 264 Top = 72 end object DADataDetalles: TDADataSource + DataSet = tbl_DetallesFacturaCliente.Dataset + DataTable = tbl_DetallesFacturaCliente Left = 344 Top = 72 end - object tbl_FacturaCliente: TDACDSDataTable + object tbl_FacturaCliente: TDAMemDataTable RemoteUpdatesOptions = [] - Fields = <> - Params = <> + Fields = < + item + Name = 'ID' + DataType = datAutoInc + DictionaryEntry = 'FacturasCliente_ID' + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + DictionaryEntry = 'FacturasCliente_ID_EMPRESA' + end + item + Name = 'FECHA_FACTURA' + DataType = datDateTime + DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' + end + item + Name = 'BASE_IMPONIBLE' + DataType = datFloat + DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' + end + item + Name = 'REFERENCIA' + DataType = datString + Size = 20 + DictionaryEntry = 'FacturasCliente_REFERENCIA' + end + item + Name = 'IMPORTE_DESCUENTO' + DataType = datFloat + DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO' + end + item + Name = 'DESCUENTO' + DataType = datFloat + DictionaryEntry = 'FacturasCliente_DESCUENTO' + end + item + Name = 'IMPORTE_IVA' + DataType = datFloat + DictionaryEntry = 'FacturasCliente_IMPORTE_IVA' + end + item + Name = 'RE' + DataType = datFloat + end + item + Name = 'IMPORTE_RE' + DataType = datFloat + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' + end + item + Name = 'IVA' + DataType = datFloat + DictionaryEntry = 'FacturasCliente_IVA' + end + item + Name = 'FORMA_PAGO' + DataType = datString + Size = 255 + DisplayLabel = 'Forma de pago' + end + item + Name = 'ID_CLIENTE' + DataType = datInteger + DictionaryEntry = 'FacturasCliente_ID_CLIENTE' + end + item + Name = 'NIF_CIF' + DataType = datString + Size = 15 + DictionaryEntry = 'FacturasCliente_NIF_CIF' + end + item + Name = 'OBSERVACIONES' + DataType = datMemo + DictionaryEntry = 'FacturasCliente_OBSERVACIONES' + end + item + Name = 'NOMBRE' + DataType = datString + Size = 100 + DictionaryEntry = 'FacturasCliente_NOMBRE' + end + item + Name = 'CALLE' + DataType = datString + Size = 150 + DictionaryEntry = 'FacturasCliente_CALLE' + end + item + Name = 'PROVINCIA' + DataType = datString + Size = 30 + DictionaryEntry = 'FacturasCliente_PROVINCIA' + end + item + Name = 'CODIGO_POSTAL' + DataType = datString + Size = 10 + DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' + end + item + Name = 'TITULAR' + DataType = datString + Size = 255 + end + item + Name = 'ENTIDAD' + DataType = datString + Size = 15 + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + end + item + Name = 'DC' + DataType = datString + Size = 15 + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + end + item + Name = 'POBLACION' + DataType = datString + Size = 150 + DictionaryEntry = 'FacturasCliente_POBLACION' + end + item + Name = 'NIF_CIF_EMPRESA' + DataType = datString + Size = 15 + end + item + Name = 'RAZON_SOCIAL' + DataType = datString + Size = 255 + end + item + Name = 'CALLE_EMPRESA' + DataType = datString + Size = 255 + end + item + Name = 'POBLACION_EMPRESA' + DataType = datString + Size = 255 + end + item + Name = 'PROVINCIA_EMPRESA' + DataType = datString + Size = 255 + end + item + Name = 'CODIGO_POSTAL_EMPRESA' + DataType = datString + Size = 10 + end + item + Name = 'TELEFONO_1' + DataType = datString + Size = 25 + end + item + Name = 'FAX' + DataType = datString + Size = 25 + end + item + Name = 'MOVIL_1' + DataType = datString + Size = 25 + end + item + Name = 'EMAIL_1' + DataType = datString + Size = 255 + end + item + Name = 'PAGINA_WEB' + DataType = datString + Size = 255 + end + item + Name = 'REGISTRO_MERCANTIL' + DataType = datString + Size = 255 + end + item + Name = 'LOGOTIPO' + DataType = datBlob + end> + Params = < + item + Name = 'ID' + DataType = datInteger + Value = '1' + ParamType = daptInput + end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False + LocalSchema = schReport + LocalDataStreamer = Bin2DataStreamer DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'InformeFacturasCliente' IndexDefs = <> Left = 264 Top = 128 end - object tbl_DetallesFacturaCliente: TDACDSDataTable + object tbl_DetallesFacturaCliente: TDAMemDataTable RemoteUpdatesOptions = [] - Fields = <> - Params = <> + Fields = < + item + Name = 'ID' + DataType = datAutoInc + DictionaryEntry = 'FacturasCliente_Detalles_ID' + InPrimaryKey = True + end + item + Name = 'ID_FACTURA' + DataType = datInteger + DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA' + end + item + Name = 'POSICION' + DataType = datInteger + DictionaryEntry = 'FacturasCliente_Detalles_POSICION' + end + item + Name = 'TIPO_DETALLE' + DataType = datString + Size = 10 + DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE' + end + item + Name = 'CONCEPTO' + DataType = datString + Size = 2000 + DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO' + end + item + Name = 'CANTIDAD' + DataType = datInteger + DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' + end + item + Name = 'IMPORTE_UNIDAD' + DataType = datFloat + DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' + end + item + Name = 'DESCUENTO' + DataType = datFloat + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL' + end + item + Name = 'VISIBLE' + DataType = datInteger + DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' + end> + Params = < + item + Name = 'ID_FACTURA' + DataType = datInteger + Value = '13' + ParamType = daptInput + end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False + LocalSchema = schReport + LocalDataStreamer = Bin2DataStreamer DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'InformeFacturasCliente_Detalles' IndexDefs = <> Left = 344 Top = 128 end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 80 - end object frxRichObject1: TfrxRichObject Left = 48 Top = 296 @@ -820,10 +1091,10 @@ object RptFacturasCliente: TRptFacturasCliente DisplayLabel = 'Cantidad' end> Left = 46 - Top = 158 + Top = 142 end object frxReport: TfrxReport - Version = '3.23.7' + Version = '4.3' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' @@ -831,6 +1102,7 @@ object RptFacturasCliente: TRptFacturasCliente PreviewOptions.OutlineWidth = 180 PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Default' + PrintOptions.PrintOnSheet = 0 ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.LastChange = 39290.847101226850000000 ReportOptions.VersionBuild = '1' @@ -986,105 +1258,66 @@ object RptFacturasCliente: TRptFacturasCliente OnStartReport = 'frxReportOnStartReport' Left = 169 Top = 16 - Datasets = < - item - DataSet = frxDBCabecera - DataSetName = 'frxDBCabecera' - end - item - DataSet = frxDBDetalles - DataSetName = 'frxDBDetalles' - end - item - DataSet = frxDBDataset1 - DataSetName = 'frxDBVencimientos' - end> - Variables = < - item - Name = ' Paginacion' - Value = Null - end - item - Name = 'Pagina' - Value = Null - end - item - Name = 'TotalPaginas' - Value = Null - end> - Style = < - item - Name = 'Concepto normal' - Color = clNone - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [] - end - item - Name = 'Concepto subtotal' - Color = clNone - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - end - item - Name = 'Cabecera de columna' - Color = 15790320 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom] - end - item - Name = 'Concepto titulo' - Color = clNone - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Tahoma' - Font.Style = [fsBold] - end> end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = True + DataSource = DADataCabecera Left = 264 Top = 16 end object frxDBDetalles: TfrxDBDataset UserName = 'frxDBDetalles' CloseDataSource = False + DataSource = DADataDetalles Left = 344 Top = 16 end object DADataVencimientos: TDADataSource - Left = 264 - Top = 184 + DataSet = tbl_Vencimientos.Dataset + DataTable = tbl_Vencimientos + Left = 456 + Top = 72 end - object tbl_Vencimientos: TDACDSDataTable + object tbl_Vencimientos: TDAMemDataTable RemoteUpdatesOptions = [] - Fields = <> - Params = <> + Fields = < + item + Name = 'FECHA_VENCIMIENTO' + DataType = datDateTime + end + item + Name = 'IMPORTE_TOTAL' + DataType = datFloat + end> + Params = < + item + Name = 'ID_FACTURA' + Value = '' + ParamType = daptInput + end> MasterMappingMode = mmDataRequest LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False + LocalSchema = schReport + LocalDataStreamer = Bin2DataStreamer DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'InformeFacturasCliente_Vencimientos' IndexDefs = <> - Left = 264 - Top = 240 + Left = 456 + Top = 128 end object frxDBDataset1: TfrxDBDataset UserName = 'frxDBVencimientos' CloseDataSource = True - Left = 344 - Top = 184 + DataSource = DADataVencimientos + Left = 456 + Top = 16 + end + object Bin2DataStreamer: TDABin2DataStreamer + Left = 48 + Top = 80 end end diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas index d9d03c27..21476fe7 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas @@ -7,15 +7,14 @@ uses Dialogs, frxClass, frxDBSet, uDAScriptingProvider, uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, - uDAInterfaces, uDADataStreamer; + uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable; type TRptFacturasCliente = class(TDataModule) DADataCabecera: TDADataSource; DADataDetalles: TDADataSource; - tbl_FacturaCliente: TDACDSDataTable; - tbl_DetallesFacturaCliente: TDACDSDataTable; - DABINAdapter: TDABINAdapter; + tbl_FacturaCliente: TDAMemDataTable; + tbl_DetallesFacturaCliente: TDAMemDataTable; frxRichObject1: TfrxRichObject; frxBarCodeObject1: TfrxBarCodeObject; frxOLEObject1: TfrxOLEObject; @@ -25,11 +24,12 @@ type frxDBCabecera: TfrxDBDataset; frxDBDetalles: TfrxDBDataset; DADataVencimientos: TDADataSource; - tbl_Vencimientos: TDACDSDataTable; + tbl_Vencimientos: TDAMemDataTable; frxDBDataset1: TfrxDBDataset; schReport: TDASchema; DataDictionary: TDADataDictionary; frxReport: TfrxReport; + Bin2DataStreamer: TDABin2DataStreamer; procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; @@ -96,25 +96,31 @@ var dsDetail: IDADataset; dsVencimientos : IDADataset; begin - AStream := TMemoryStream.Create; +// AStream := TMemoryStream.Create; try - dsMaster := schReport.NewDataset(FConnection, ds_InformeFacturasCliente, ['ID'], [ID]); - dsDetail := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Detalles, ['ID_FACTURA'], [ID], False); - dsVencimientos := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Vencimientos, ['ID_FACTURA'], [ID], False); +// dsMaster := schReport.NewDataset(FConnection, ds_InformeFacturasCliente, ['ID'], [ID]); +// dsDetail := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Detalles, ['ID_FACTURA'], [ID], False); +// dsVencimientos := schReport.NewDataset(FConnection, ds_InformeFacturasCliente_Vencimientos, ['ID_FACTURA'], [ID], False); - AStream.Clear; - DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); - DABINAdapter.ReadDataset(AStream, tbl_FacturaCliente, TRUE, '', TRUE, TRUE); +// AStream.Clear; +// DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); +// DABINAdapter.ReadDataset(AStream, tbl_FacturaCliente, TRUE, '', TRUE, TRUE); - AStream.Clear; - DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1); - DABINAdapter.ReadDataset(AStream, tbl_DetallesFacturaCliente, TRUE, '', TRUE, TRUE); +// AStream.Clear; +// DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1); +// DABINAdapter.ReadDataset(AStream, tbl_DetallesFacturaCliente, TRUE, '', TRUE, TRUE); - AStream.Clear; - DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1); - DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE); +// AStream.Clear; +// DABINAdapter.WriteDataset(AStream, dsVencimientos, [woRows, woSchema], -1); +// DABINAdapter.ReadDataset(AStream, tbl_Vencimientos, TRUE, '', TRUE, TRUE); + tbl_FacturaCliente.ParamByName('ID').AsInteger := ID; + tbl_DetallesFacturaCliente.ParamByName('ID_FACTURA').AsInteger := ID; + tbl_Vencimientos.ParamByName('ID_FACTURA').AsInteger := ID; + tbl_FacturaCliente.Active := True; + tbl_DetallesFacturaCliente.Active := True; + tbl_Vencimientos.Active := True; frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True); frxReport.PrepareReport(False); diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas index 1a14d34d..d020c86b 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas @@ -44,9 +44,7 @@ implementation uses {Generated:} FactuGES_Invk, Dialogs, uDataModuleServer, uDatabaseUtils, uUsersManager, schFacturasClienteClient_Intf, - uRestriccionesUsuarioUtils, -// uRptFacturasCliente_Server, - uBizFacturasClienteServer; + uRestriccionesUsuarioUtils, uRptFacturasCliente_Server, uBizFacturasClienteServer; procedure Create_srvFacturasCliente(out anInstance : IUnknown); begin @@ -55,19 +53,16 @@ end; { srvFacturasCliente } -procedure TsrvFacturasCliente.DARemoteServiceBeforeGetDatasetData( - const Dataset: IDADataset; const IncludeSchema: Boolean; +procedure TsrvFacturasCliente.DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); begin -{ if DataSet.Name = nme_FacturasCliente then begin { Aquí se asegura que el usuario sólo accede a facturas de las empresas a las que tiene permiso para acceder filtrando DataSet por ID_EMPRESA. } -{ FiltrarAccesoUsuario(Session, Connection, schFacturasCliente, DataSet, fld_FacturasClienteID_EMPRESA); + FiltrarAccesoUsuario(Session, Connection, schFacturasCliente, DataSet, fld_FacturasClienteID_EMPRESA); end; -} end; procedure TsrvFacturasCliente.DARemoteServiceCreate(Sender: TObject); @@ -83,16 +78,15 @@ begin end; function TsrvFacturasCliente.GenerateReport(const FacturaID: String): Binary; -//var -// AReportGenerator : TRptFacturasCliente; +var + AReportGenerator : TRptFacturasCliente; begin -{ AReportGenerator := TRptFacturasCliente.Create(nil); + AReportGenerator := TRptFacturasCliente.Create(nil); try Result := AReportGenerator.GenerarFactura(FacturaID); finally FreeAndNIL(AReportGenerator); end; - } end; initialization diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm index 1e1eedac..b30fee4d 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm @@ -2,7 +2,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente Caption = 'Lista de facturas de cliente' ClientHeight = 666 ClientWidth = 640 - ExplicitTop = -136 ExplicitWidth = 648 ExplicitHeight = 693 PixelsPerInch = 96 @@ -142,10 +141,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente Width = 240 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 367 - ExplicitLeft = 367 - ExplicitWidth = 244 - Width = 244 + Left = 351 + ExplicitLeft = 351 + ExplicitWidth = 273 + Width = 273 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas index 4b7e1c22..d9b3e817 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas @@ -229,8 +229,6 @@ var AFacturas: IBizFacturaCliente; AllItems: Boolean; begin -AppFactuGES.ShowCapado; -{ AFacturas := Nil; AllItems := False; @@ -264,7 +262,6 @@ AppFactuGES.ShowCapado; end; end; end; -} end; procedure TfEditorFacturasCliente.ModificarInterno; @@ -332,8 +329,6 @@ var AFacturas: IBizFacturaCliente; AllItems: Boolean; begin -AppFactuGES.ShowCapado; -{ AFacturas := Nil; AllItems := False; @@ -367,7 +362,6 @@ AppFactuGES.ShowCapado; end; end; end; -} end; procedure TfEditorFacturasCliente.SetController(const Value: IFacturasClienteController); diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas index a94f64b6..b45cbf94 100644 --- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas +++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas @@ -6,9 +6,9 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, frxClass, frxDBSet, uDAScriptingProvider, uDADataTable, uDACDSDataTable, DB, uDAClasses, uDABINAdapter, uROTypes, - uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer, + uDAInterfaces, uDAMemDataTable, uDABin2DataStreamer, frxGradient, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDAEngine, - IBSQL, IBDatabase, IBCustomDataSet, IBQuery; + IBSQL, IBDatabase, IBCustomDataSet, IBQuery, uDADataStreamer; type TRptPresupuestosCliente = class(TDataModule) diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 3399da60..8e5387a3 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 72519209..d181a8ce 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -110,7 +110,10 @@ uses schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas', schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', - schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas'; + schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', + uRptFichasEmpleado_Server in '..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas' {RptFichasEmpleado: TDataModule}, + uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule}, + uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule}; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 2ec65de1..d88412d7 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -91,6 +91,14 @@ + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule +
srvContactos
TDARemoteService @@ -98,6 +106,10 @@ + +
RptFacturasCliente
+ TDataModule +
srvFacturasCliente
TDataAbstractService diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index c739286b..fd9d78e2 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "1.0.0.0\0" VALUE "ProductVersion", "1.0.0.0\0" - VALUE "CompileDate", "viernes, 04 de enero de 2008 12:34\0" + VALUE "CompileDate", "martes, 08 de enero de 2008 10:35\0" END END BLOCK "VarFileInfo"