From edadc2068ae754761069e58f78ee9f1b2e1986b5 Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 7 Feb 2008 10:13:37 +0000 Subject: [PATCH] =?UTF-8?q?Activaci=C3=B3n=20de=20editor=20de=20referencia?= =?UTF-8?q?s=20para=20que=20el=20usuario=20pueda=20modificarlas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@258 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/Cliente/uBootStrap.pas | 1 + .../Copia de uRptFichasEmpleado_Server.dfm | 949 ---------- .../Copia de uRptFichasEmpleado_Server.pas | 108 -- .../Copia de uRptFacturasCliente_Server.dfm | 1519 ----------------- .../Copia de uRptFacturasCliente_Server.pas | 130 -- .../Model/Copia de uBizPagosCliente.pas | 70 - .../Controller/Referencias_controller.dpk | Bin 928 -> 681 bytes .../Controller/Referencias_controller.dproj | 540 ++++++ .../Controller/Referencias_controller.res | Bin 32 -> 5056 bytes .../Controller/uReferenciasController.pas | 41 +- .../Referencias/Data/Referencias_data.dpk | Bin 710 -> 620 bytes .../Referencias/Data/Referencias_data.dproj | 540 ++++++ .../Referencias/Data/Referencias_data.res | Bin 32 -> 5056 bytes .../Data/uDataModuleReferencias.dfm | 93 +- .../Data/uDataModuleReferencias.pas | 7 +- .../Referencias/Model/Referencias_model.dpk | 11 +- .../Referencias/Model/Referencias_model.dproj | 544 ++++++ .../Referencias/Model/Referencias_model.res | Bin 32 -> 5056 bytes .../Model/schReferenciasClient_Intf.pas | 199 ++- .../Model/schReferenciasServer_Intf.pas | 231 ++- .../Referencias/Plugin/Referencias_plugin.dpk | 13 +- .../Plugin/Referencias_plugin.dproj | 541 ++++++ .../Referencias/Plugin/Referencias_plugin.res | Bin 32 -> 5056 bytes .../Referencias/Referencias_Group.groupproj | 124 ++ .../Servidor/srvReferencias_Impl.dfm | 138 +- .../Servidor/srvReferencias_Impl.pas | 148 +- .../Referencias/Views/Referencias_view.dpk | 12 +- .../Referencias/Views/Referencias_view.dproj | 543 ++++++ .../Referencias/Views/Referencias_view.res | Bin 32 -> 5056 bytes Source/Servidor/srvReferencias_Impl.dfm | 112 -- Source/Servidor/srvReferencias_Impl.pas | 159 -- 31 files changed, 3400 insertions(+), 3373 deletions(-) delete mode 100644 Source/Modulos/Contactos/Reports/Copia de uRptFichasEmpleado_Server.dfm delete mode 100644 Source/Modulos/Contactos/Reports/Copia de uRptFichasEmpleado_Server.pas delete mode 100644 Source/Modulos/Facturas de cliente/Reports/Copia de uRptFacturasCliente_Server.dfm delete mode 100644 Source/Modulos/Facturas de cliente/Reports/Copia de uRptFacturasCliente_Server.pas delete mode 100644 Source/Modulos/Recibos de cliente/Model/Copia de uBizPagosCliente.pas create mode 100644 Source/Modulos/Referencias/Controller/Referencias_controller.dproj create mode 100644 Source/Modulos/Referencias/Data/Referencias_data.dproj create mode 100644 Source/Modulos/Referencias/Model/Referencias_model.dproj create mode 100644 Source/Modulos/Referencias/Plugin/Referencias_plugin.dproj create mode 100644 Source/Modulos/Referencias/Referencias_Group.groupproj create mode 100644 Source/Modulos/Referencias/Views/Referencias_view.dproj delete mode 100644 Source/Servidor/srvReferencias_Impl.dfm delete mode 100644 Source/Servidor/srvReferencias_Impl.pas diff --git a/Source/Cliente/uBootStrap.pas b/Source/Cliente/uBootStrap.pas index 7ef13c71..a762e973 100644 --- a/Source/Cliente/uBootStrap.pas +++ b/Source/Cliente/uBootStrap.pas @@ -20,6 +20,7 @@ procedure DoAppLoadModules; begin with AppFactuGES.ModuleManager do begin + LoadModule('Referencias_plugin.bpl'); LoadModule('FormasPago_plugin.bpl'); LoadModule('TiposIVA_plugin.bpl'); LoadModule('Familias_plugin.bpl'); 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/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/Recibos de cliente/Model/Copia de uBizPagosCliente.pas b/Source/Modulos/Recibos de cliente/Model/Copia de uBizPagosCliente.pas deleted file mode 100644 index 4768809c..00000000 --- a/Source/Modulos/Recibos de cliente/Model/Copia de uBizPagosCliente.pas +++ /dev/null @@ -1,70 +0,0 @@ -{ -=============================================================================== - Copyright (©) 2007. Rodax Software. -=============================================================================== - Los contenidos de este fichero son propiedad de Rodax Software titular del - copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado, - en su totalidad o en parte, con el permiso escrito de Rodax Software, o de - acuerdo con los términos y condiciones establecidas en el acuerdo/contrato - bajo el que se suministra. - ----------------------------------------------------------------------------- - Web: www.rodax-software.com -=============================================================================== - Fecha primera versión: - Versión actual: 1.0.0 - Fecha versión actual: -=============================================================================== - Modificaciones: - - Fecha Comentarios - --------------------------------------------------------------------------- -=============================================================================== -} - -unit uBizPagosCliente; - -interface - -uses - uDAInterfaces, uDADataTable, uDBSelectionListUtils, schRecibosClienteClient_Intf; - -const - BIZ_CLIENT_IBIZPAGOSCLIENTE = 'Client.IBizPagosCliente'; - - CTE_PAGO = 'Pago'; - CTE_DEVOLUCION = 'Devolución'; - -type - IBizPagosCliente = interface(IPagosCliente) - ['{F53F105E-83B5-4EB8-94CA-EA7E470D26F7}'] - end; - - TBizPagosCliente = class(TPagosClienteDataTableRules, IBizPagosCliente) - protected - procedure BeforeInsert(Sender: TDADataTable); override; - end; - -implementation - -uses - DB; - -{ TBizPagosCliente } - -procedure TBizPagosCliente.BeforeInsert(Sender: TDADataTable); -var - AMasterTable : TDADataTable; -begin - inherited; - AMasterTable := DataTable.GetMasterDataTable; - if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then - AMasterTable.Post; -end; - -initialization - RegisterDataTableRules(BIZ_CLIENT_IBIZPAGOSCLIENTE, TBizPagosCliente); - -finalization - -end. - diff --git a/Source/Modulos/Referencias/Controller/Referencias_controller.dpk b/Source/Modulos/Referencias/Controller/Referencias_controller.dpk index ea41575a3849937b8b55f80952a2fed2db6b6fdd..2dbcbcdee7a4cfaf5115c45b80ddbbfe69a8e626 100644 GIT binary patch delta 77 zcmZ3$zLIsrEk;MbT3#+*uAi_C^ap$C^auRGqE^6C9xzC PLohc#B{gTV5OW^@s=XM{ delta 309 zcmZ3peU@|F{KQqIVd$PwJ0?&IWw_1J~uxlHD~e%M$yUAOnm@l Ch*}*0 diff --git a/Source/Modulos/Referencias/Controller/Referencias_controller.dproj b/Source/Modulos/Referencias/Controller/Referencias_controller.dproj new file mode 100644 index 00000000..475f5e72 --- /dev/null +++ b/Source/Modulos/Referencias/Controller/Referencias_controller.dproj @@ -0,0 +1,540 @@ + + + + {7f80f8aa-6912-4714-986d-aed73035472b} + Referencias_controller.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Referencias_controller.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Referencias_controller.dpk + + + + + MainSource + + + + + + + + + + diff --git a/Source/Modulos/Referencias/Controller/Referencias_controller.res b/Source/Modulos/Referencias/Controller/Referencias_controller.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5k8lT>yRm2@?PS delta 139 zcmaFEa*TDu6~=luw_08Tl zq$)x(Qgc&b+_Ge-j^ez;0gI29}wl$w@Wl$w{EnK=0;V=({$ CDktdx diff --git a/Source/Modulos/Referencias/Data/Referencias_data.dproj b/Source/Modulos/Referencias/Data/Referencias_data.dproj new file mode 100644 index 00000000..c95e0fd3 --- /dev/null +++ b/Source/Modulos/Referencias/Data/Referencias_data.dproj @@ -0,0 +1,540 @@ + + + + {c8118762-09b6-432f-ba26-058fa36c39d9} + Referencias_data.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Referencias_data.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Referencias_data.dpk + + + + + MainSource + + + + +
DataModuleReferencias
+ + + + + diff --git a/Source/Modulos/Referencias/Data/Referencias_data.res b/Source/Modulos/Referencias/Data/Referencias_data.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 - Params = <> - MasterMappingMode = mmDataRequest - StreamingOptions = [soDisableEventsWhileStreaming] - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] - LogicalName = 'Referencias' - IndexDefs = <> - Left = 256 - Top = 160 - end - object ds_Referencias: TDADataSource - DataSet = tbl_Referencias.Dataset - DataTable = tbl_Referencias - Left = 256 - Top = 88 - end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 84 @@ -65,4 +23,51 @@ inherited DataModuleReferencias: TDataModuleReferencias Left = 51 Top = 151 end + object tbl_Referencias: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'ID' + DataType = datInteger + GeneratorName = 'GEN_REFERENCIAS_ID' + Required = True + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + end + item + Name = 'CODIGO' + DataType = datString + Size = 50 + Required = True + end + item + Name = 'VALOR' + DataType = datString + Size = 255 + Required = True + end + item + Name = 'DESCRIPCION' + DataType = datString + Size = 255 + end> + Params = <> + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteDataAdapter = rda_Referencias + DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] + MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] + LogicalName = 'Referencias' + IndexDefs = <> + Left = 256 + Top = 120 + end + object ds_Referencias: TDADataSource + DataSet = tbl_Referencias.Dataset + DataTable = tbl_Referencias + Left = 256 + Top = 64 + end end diff --git a/Source/Modulos/Referencias/Data/uDataModuleReferencias.pas b/Source/Modulos/Referencias/Data/uDataModuleReferencias.pas index f082be2d..65a444ae 100644 --- a/Source/Modulos/Referencias/Data/uDataModuleReferencias.pas +++ b/Source/Modulos/Referencias/Data/uDataModuleReferencias.pas @@ -7,15 +7,16 @@ uses uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes, uRORemoteService, uROClient, uROBinMessage, uDADesigntimeCall, uIDataModuleReferencias, uBizReferencias, uDataModuleBase, - uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces; + uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, + uDAMemDataTable; type TDataModuleReferencias = class(TDataModuleBase, IDataModuleReferencias) RORemoteService: TRORemoteService; - tbl_Referencias: TDACDSDataTable; - ds_Referencias: TDADataSource; Bin2DataStreamer: TDABin2DataStreamer; rda_Referencias: TDARemoteDataAdapter; + tbl_Referencias: TDAMemDataTable; + ds_Referencias: TDADataSource; procedure DAClientDataModuleCreate(Sender: TObject); public function GetItems: IBizReferencia; diff --git a/Source/Modulos/Referencias/Model/Referencias_model.dpk b/Source/Modulos/Referencias/Model/Referencias_model.dpk index c0e33425..1a9922b3 100644 --- a/Source/Modulos/Referencias/Model/Referencias_model.dpk +++ b/Source/Modulos/Referencias/Model/Referencias_model.dpk @@ -25,14 +25,11 @@ package Referencias_model; {$IMPLICITBUILD OFF} requires - rtl, - dsnap, - dbrtl, - vcldb, vcl, - adortl, - Base, - DataAbstract_D10; + rtl, + dbrtl, + RemObjects_Core_D11, + DataAbstract_Core_D11; contains uIDataModuleReferencias in 'Data\uIDataModuleReferencias.pas', diff --git a/Source/Modulos/Referencias/Model/Referencias_model.dproj b/Source/Modulos/Referencias/Model/Referencias_model.dproj new file mode 100644 index 00000000..bc25d89e --- /dev/null +++ b/Source/Modulos/Referencias/Model/Referencias_model.dproj @@ -0,0 +1,544 @@ + + + + {73acd39c-b2f0-49b7-9acf-10945bbac8c1} + Referencias_model.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Referencias_model.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Referencias_model.dpk + + + + + MainSource + + + + + + + + + + + + + + diff --git a/Source/Modulos/Referencias/Model/Referencias_model.res b/Source/Modulos/Referencias/Model/Referencias_model.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 + + + {82e36812-58c4-491b-b463-6b951e95da51} + Referencias_plugin.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Referencias_plugin.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Referencias_plugin.dpk + + + + + MainSource + + + + + +
PluginReferencias
+ + + + + diff --git a/Source/Modulos/Referencias/Plugin/Referencias_plugin.res b/Source/Modulos/Referencias/Plugin/Referencias_plugin.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 + + {6fa7160e-0b4c-4f7c-9c55-08938cd225c4} + + + + + + + + + + + + + + + + Default.Personality + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm b/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm index d9eebcd4..817d4eb5 100644 --- a/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm +++ b/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.dfm @@ -1,70 +1,34 @@ object srvReferencias: TsrvReferencias OldCreateOrder = True - OnCreate = DARemoteServiceCreate - RequiresSession = True + OnCreate = DataAbstractServiceCreate SessionManager = dmServer.SessionManager - AcquireConnection = True ServiceSchema = schReferencias - ServiceAdapter = DABINAdapter - OnAfterProcessTransactionAction = pptaNone - OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection + ServiceDataStreamer = Bin2DataStreamer ExportedDataTables = <> - CacheElements = <> - Options = [rsoProcessDeltasWithoutUpdateRules] - Height = 202 - Width = 392 - object Diagrams: TDADiagrams - Left = 150 - Top = 90 - DiagramData = ''#13#10''#13#10 - end - object DataDictionary: TDADataDictionary - Fields = < - item - Name = 'Referencias_CODIGO' - DataType = datString - Size = 50 - DisplayLabel = 'CODIGO' - end - item - Name = 'Referencias_DESCRIPCION' - DataType = datString - Size = 255 - DisplayLabel = 'Referencias' - end - item - Name = 'Referencias_VALOR' - DataType = datString - Size = 255 - DisplayLabel = 'C'#243'digo' - end - item - Name = 'Referencias_ID_EMPRESA' - DataType = datInteger - DisplayLabel = 'ID_EMPRESA' - end> - Left = 150 - Top = 24 - end + BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection + Height = 300 + Width = 300 object schReferencias: TDASchema ConnectionManager = dmServer.ConnectionManager - DataDictionary = DataDictionary - Diagrams = Diagrams Datasets = < item Params = <> Statements = < item Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True TargetTable = 'REFERENCIAS' - SQL = - 'SELECT '#10' CODIGO, DESCRIPCION, VALOR, ID_EMPRESA'#10' FROM'#10' RE' + - 'FERENCIAS' - StatementType = stSQL + Name = 'IBX' + StatementType = stAutoSQL ColumnMappings = < item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' + DatasetField = 'ID' + TableField = 'ID' + end + item + DatasetField = 'ID_EMPRESA' + TableField = 'ID_EMPRESA' end item DatasetField = 'CODIGO' @@ -75,90 +39,78 @@ object srvReferencias: TsrvReferencias TableField = 'VALOR' end item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' + DatasetField = 'DESCRIPCION' + TableField = 'DESCRIPCION' end> end> Name = 'Referencias' Fields = < + item + Name = 'ID' + DataType = datInteger + GeneratorName = 'GEN_REFERENCIAS_ID' + Required = True + InPrimaryKey = True + end + item + Name = 'ID_EMPRESA' + DataType = datInteger + end item Name = 'CODIGO' DataType = datString Size = 50 - DictionaryEntry = 'Referencias_CODIGO' - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - DictionaryEntry = 'Referencias_DESCRIPCION' + Required = True end item Name = 'VALOR' DataType = datString Size = 255 - DictionaryEntry = 'Referencias_VALOR' + Required = True end item - Name = 'ID_EMPRESA' - DataType = datInteger - DictionaryEntry = 'Referencias_ID_EMPRESA' + Name = 'DESCRIPCION' + DataType = datString + Size = 255 end> end> JoinDataTables = <> UnionDataTables = <> Commands = < item + IsPublic = False Params = < item Name = 'VALOR' - DataType = datString - Size = 255 Value = '' - ParamType = daptInput end item - Name = 'OLD_CODIGO' - DataType = datString - Size = 50 + Name = 'CODIGO' Value = '' - ParamType = daptInput - end - item - Name = 'OLD_ID_EMPRESA' - DataType = datInteger - Value = '' - ParamType = daptInput end> Statements = < item Connection = 'IBX' + ConnectionType = 'Interbase' + Default = True TargetTable = 'REFERENCIAS' + Name = 'IBX' SQL = - 'UPDATE REFERENCIAS'#10' SET '#10' VALOR = :VALOR'#10' WHERE'#10' (CODIGO' + - ' = :OLD_CODIGO)'#10' AND (ID_EMPRESA = :OLD_ID_EMPRESA)' + 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO' + + #10' AND {Where}'#10 StatementType = stSQL ColumnMappings = <> end> - Name = 'Update_Referencias' + Name = 'ModificarValorReferencia' end> RelationShips = <> UpdateRules = <> Version = 0 - Left = 48 + Left = 40 Top = 24 end - object DABINAdapter: TDABINAdapter - Left = 48 - Top = 90 - end - object bpReferencias: TDABusinessProcessor - Schema = schReferencias - UpdateCommandName = 'Update_Referencias' - ReferencedDataset = 'Referencias' - ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] - UpdateMode = updWhereKeyOnly - Left = 248 - Top = 24 + object Bin2DataStreamer: TDABin2DataStreamer + Left = 40 + Top = 88 end end diff --git a/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.pas b/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.pas index 43ca09dc..18f5e924 100644 --- a/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.pas +++ b/Source/Modulos/Referencias/Servidor/srvReferencias_Impl.pas @@ -7,59 +7,161 @@ unit srvReferencias_Impl; { This is where you are supposed to code the implementation of your objects. } {----------------------------------------------------------------------------} +{$I Remobjects.inc} + interface uses {vcl:} Classes, SysUtils, - {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Ancestor Implementation:} DARemoteService_Impl, - {Used RODLs:} DataAbstract_Intf, - {Generated:} uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer, - uDAScriptingProvider, uDAClasses, - FactuGES_Intf, uDAInterfaces, uDABinAdapter; + {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, + {Ancestor Implementation:} DataAbstractService_Impl, + {Used RODLs:} DataAbstract4_Intf, + {Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses, uDAInterfaces; type { TsrvReferencias } - TsrvReferencias = class(TDARemoteService, IsrvReferencias) - Diagrams: TDADiagrams; - DABINAdapter: TDABINAdapter; - bpReferencias: TDABusinessProcessor; + TsrvReferencias = class(TDataAbstractService, IsrvReferencias) + Bin2DataStreamer: TDABin2DataStreamer; schReferencias: TDASchema; - DataDictionary: TDADataDictionary; - procedure DARemoteServiceCreate(Sender: TObject); - procedure DARemoteServiceBeforeAcquireConnection(Sender: TDARemoteService; - var ConnectionName: string); - protected + procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; + var aConnectionName: string); + procedure DataAbstractServiceCreate(Sender: TObject); + private + public { IsrvReferencias methods } - function GetNextAutoInc(const GeneratorName: String): Integer; + function DarNuevaReferencia(const NombreReferencia: String; + const EmpresaID: Integer = -1): String; + function IncrementarValorReferencia(const NombreReferencia: String; + const Valor: String; const EmpresaID: Integer = -1): Boolean; end; implementation {$R *.dfm} uses - {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils; + {Generated:} FactuGES_Invk, Variants, + uDataModuleServer, uROClasses, uReferenciasUtils; procedure Create_srvReferencias(out anInstance : IUnknown); begin - anInstance := TsrvReferencias.Create(NIL); + anInstance := TsrvReferencias.Create(nil); end; { srvReferencias } -procedure TsrvReferencias.DARemoteServiceBeforeAcquireConnection( - Sender: TDARemoteService; var ConnectionName: string); +function TsrvReferencias.DarNuevaReferencia(const NombreReferencia: String; + const EmpresaID: Integer = -1): String; +var + ASchema : TDASchema; + AConn : IDAConnection; + dsData: IDADataset; + + AWhere : TDAWhereExpression; + AWhereExpr1: TDAWhereExpression; + AWhereExpr2: TDAWhereExpression; +begin + Result := ''; + + { Construir la expresión del Where a partir de los parámetros + que se reciban. + } + with TDAWhereBuilder.Create do + try + AWhereExpr1 := NewBinaryExpression(NewField('', 'CODIGO'), + NewConstant(NombreReferencia, datString), + dboEqual); + if (EmpresaID <> -1) then + begin + AWhereExpr2 := NewBinaryExpression(NewField('', 'ID_EMPRESA'), + NewConstant(EmpresaID, datInteger), + dboEqual); + + AWhere := NewBinaryExpression(AWhereExpr1, AWhereExpr2, dboAnd); + end + else + AWhere := AWhereExpr1; + finally + Free; + end; + + ASchema := schReferencias; + AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); + + try + try + dsData := ASchema.NewDataset(AConn, 'Referencias', ['VALOR'], '', '', False, True); + dsData.DynamicWhere.Expression := AWhere; + except + RaiseError('No existe la tabla REFERENCIAS'); + end; + + dsData.Active := True; + + if dsData.IsEmpty then + RaiseError('No existe la referencia ' + NombreReferencia + ' en la tabla REFERENCIAS.'); + + Result := dsData.FieldByName('VALOR').AsString; + finally + dsData := NIL; + end; +end; + +procedure TsrvReferencias.DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); begin ConnectionName := dmServer.ConnectionName; end; -procedure TsrvReferencias.DARemoteServiceCreate(Sender: TObject); +procedure TsrvReferencias.DataAbstractServiceCreate(Sender: TObject); begin SessionManager := dmServer.SessionManager; end; -function TsrvReferencias.GetNextAutoInc(const GeneratorName: String): Integer; +function TsrvReferencias.IncrementarValorReferencia(const NombreReferencia: String; + const Valor: String; const EmpresaID: Integer = -1): Boolean; +var + ASchema : TDASchema; + AConn : IDAConnection; + dsCommand: IDASQLCommand; + + AWhere : TDAWhereExpression; begin - Result := uDatabaseUtils.GetNextAutoInc(GeneratorName) + Result := False; + AWhere := NIL; + { Construir la expresión del Where a partir de los parámetros + que se reciban. + } + if (EmpresaID <> -1) then + begin + with TDAWhereBuilder.Create do + try + AWhere := NewBinaryExpression(NewField('', 'ID_EMPRESA'), NewConstant(EmpresaID, datInteger), dboEqual); + finally + Free; + end; + end; + + ASchema := schReferencias; + AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); + + try + try + dsCommand := ASchema.NewCommand(AConn, 'ModificarValorReferencia'); + with dsCommand do + begin + ParamByName('CODIGO').AsString := NombreReferencia; + ParamByName('VALOR').AsString := DarReferenciaSiguiente(Valor); + if EmpresaID <> -1 then + dsCommand.DynamicWhere.Expression := AWhere; + end; + dsCommand.Execute; + AConn.CommitTransaction; + Result := True; + except + RaiseError('Error al asignar la nueva referencia ' + Valor + ' en tablas'); + AConn.RollbackTransaction; + end; + finally + dsCommand := NIL; + end; end; initialization diff --git a/Source/Modulos/Referencias/Views/Referencias_view.dpk b/Source/Modulos/Referencias/Views/Referencias_view.dpk index 113bb2cb..6041e690 100644 --- a/Source/Modulos/Referencias/Views/Referencias_view.dpk +++ b/Source/Modulos/Referencias/Views/Referencias_view.dpk @@ -22,17 +22,11 @@ package Referencias_view; {$WRITEABLECONST OFF} {$MINENUMSIZE 1} {$IMAGEBASE $400000} -{$IMPLICITBUILD OFF} +{$IMPLICITBUILD ON} requires - rtl, - vcl, - dbrtl, - vcldb, - dsnap, - adortl, - DataAbstract_D10, - JvCmpD10R, + GUIBase, + Referencias_model, Referencias_controller; contains diff --git a/Source/Modulos/Referencias/Views/Referencias_view.dproj b/Source/Modulos/Referencias/Views/Referencias_view.dproj new file mode 100644 index 00000000..f9af2a25 --- /dev/null +++ b/Source/Modulos/Referencias/Views/Referencias_view.dproj @@ -0,0 +1,543 @@ + + + + {e3d36a6f-7004-4c89-9f3d-f2d77e386d1b} + Referencias_view.dpk + Debug + AnyCPU + DCC32 + ..\..\..\..\Output\Debug\Cliente\Referencias_view.bpl + + + 7.0 + False + False + 0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + RELEASE + + + 7.0 + .\ + .\ + .\ + ..\..\..\..\Output\Debug\Cliente + ..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + ..\..\..\Lib;..\..\Lib + + + Delphi.Personality + Package + +FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0Referencias_view.dpk + + + + + MainSource + + + + + +
fEditorReferencias
+ TfEditorFormasPago + + + + + + diff --git a/Source/Modulos/Referencias/Views/Referencias_view.res b/Source/Modulos/Referencias/Views/Referencias_view.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..86c94e6ada7b3c85f6761b1ee234a9f34ef3c861 100644 GIT binary patch literal 5056 zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 - Statements = < - item - Connection = 'IBX' - ConnectionType = 'Interbase' - Default = True - TargetTable = 'REFERENCIAS' - Name = 'IBX' - StatementType = stAutoSQL - ColumnMappings = < - item - DatasetField = 'ID' - TableField = 'ID' - end - item - DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' - end - item - DatasetField = 'CODIGO' - TableField = 'CODIGO' - end - item - DatasetField = 'VALOR' - TableField = 'VALOR' - end - item - DatasetField = 'DESCRIPCION' - TableField = 'DESCRIPCION' - end> - end> - Name = 'Referencias' - Fields = < - item - Name = 'ID' - DataType = datInteger - GeneratorName = 'GEN_REFERENCIAS_ID' - Required = True - InPrimaryKey = True - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - end - item - Name = 'CODIGO' - DataType = datString - Size = 50 - Required = True - end - item - Name = 'VALOR' - DataType = datString - Size = 255 - Required = True - end - item - Name = 'DESCRIPCION' - DataType = datString - Size = 255 - end> - end> - JoinDataTables = <> - UnionDataTables = <> - Commands = < - item - IsPublic = False - Params = < - item - Name = 'VALOR' - Value = '' - end - item - Name = 'CODIGO' - Value = '' - end> - Statements = < - item - Connection = 'IBX' - ConnectionType = 'Interbase' - Default = True - TargetTable = 'REFERENCIAS' - Name = 'IBX' - SQL = - 'UPDATE REFERENCIAS SET'#10' VALOR = :VALOR'#10'WHERE CODIGO = :CODIGO' + - #10' AND {Where}'#10 - StatementType = stSQL - ColumnMappings = <> - end> - Name = 'ModificarValorReferencia' - end> - RelationShips = <> - UpdateRules = <> - Version = 0 - Left = 40 - Top = 24 - end - object Bin2DataStreamer: TDABin2DataStreamer - Left = 40 - Top = 88 - end -end diff --git a/Source/Servidor/srvReferencias_Impl.pas b/Source/Servidor/srvReferencias_Impl.pas deleted file mode 100644 index 8c6e51d7..00000000 --- a/Source/Servidor/srvReferencias_Impl.pas +++ /dev/null @@ -1,159 +0,0 @@ -unit srvReferencias_Impl; - -{----------------------------------------------------------------------------} -{ This unit was automatically generated by the RemObjects SDK after reading } -{ the RODL file associated with this project . } -{ } -{ This is where you are supposed to code the implementation of your objects. } -{----------------------------------------------------------------------------} - -{$I Remobjects.inc} - -interface - -uses - {vcl:} Classes, SysUtils, - {RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, - {Required:} uRORemoteDataModule, - {Used RODLs:} DataAbstract4_Intf, - {Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses; - -type - { TsrvReferencias } - TsrvReferencias = class(TRORemoteDataModule, IsrvReferencias) - Bin2DataStreamer: TDABin2DataStreamer; - schReferencias: TDASchema; - private - public - { IsrvReferencias methods } - function DarNuevaReferencia(const NombreReferencia: String; - const EmpresaID: Integer = -1): String; - function IncrementarValorReferencia(const NombreReferencia: String; - const Valor: String; const EmpresaID: Integer = -1): Boolean; - end; - -implementation - -{$R *.dfm} -uses - {Generated:} FactuGES_Invk, Variants, - uDataModuleServer, uDAInterfaces, uROClasses, uReferenciasUtils; - -procedure Create_srvReferencias(out anInstance : IUnknown); -begin - anInstance := TsrvReferencias.Create(nil); -end; - -{ srvReferencias } -function TsrvReferencias.DarNuevaReferencia(const NombreReferencia: String; - const EmpresaID: Integer = -1): String; -var - ASchema : TDASchema; - AConn : IDAConnection; - dsData: IDADataset; - - AWhere : TDAWhereExpression; - AWhereExpr1: TDAWhereExpression; - AWhereExpr2: TDAWhereExpression; -begin - Result := ''; - - { Construir la expresión del Where a partir de los parámetros - que se reciban. - } - with TDAWhereBuilder.Create do - try - AWhereExpr1 := NewBinaryExpression(NewField('', 'CODIGO'), - NewConstant(NombreReferencia, datString), - dboEqual); - if (EmpresaID <> -1) then - begin - AWhereExpr2 := NewBinaryExpression(NewField('', 'ID_EMPRESA'), - NewConstant(EmpresaID, datInteger), - dboEqual); - - AWhere := NewBinaryExpression(AWhereExpr1, AWhereExpr2, dboAnd); - end - else - AWhere := AWhereExpr1; - finally - Free; - end; - - ASchema := schReferencias; - AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); - - try - try - dsData := ASchema.NewDataset(AConn, 'Referencias', ['VALOR'], '', '', False, True); - dsData.DynamicWhere.Expression := AWhere; - except - RaiseError('No existe la tabla REFERENCIAS'); - end; - - dsData.Active := True; - - if dsData.IsEmpty then - RaiseError('No existe la referencia ' + NombreReferencia + ' en la tabla REFERENCIAS.'); - - Result := dsData.FieldByName('VALOR').AsString; - finally - dsData := NIL; - end; -end; - -function TsrvReferencias.IncrementarValorReferencia(const NombreReferencia: String; - const Valor: String; const EmpresaID: Integer = -1): Boolean; -var - ASchema : TDASchema; - AConn : IDAConnection; - dsCommand: IDASQLCommand; - - AWhere : TDAWhereExpression; -begin - Result := False; - AWhere := NIL; - { Construir la expresión del Where a partir de los parámetros - que se reciban. - } - if (EmpresaID <> -1) then - begin - with TDAWhereBuilder.Create do - try - AWhere := NewBinaryExpression(NewField('', 'ID_EMPRESA'), NewConstant(EmpresaID, datInteger), dboEqual); - finally - Free; - end; - end; - - ASchema := schReferencias; - AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName); - - try - try - dsCommand := ASchema.NewCommand(AConn, 'ModificarValorReferencia'); - with dsCommand do - begin - ParamByName('CODIGO').AsString := NombreReferencia; - ParamByName('VALOR').AsString := DarReferenciaSiguiente(Valor); - if EmpresaID <> -1 then - dsCommand.DynamicWhere.Expression := AWhere; - end; - dsCommand.Execute; - AConn.CommitTransaction; - Result := True; - except - RaiseError('Error al asignar la nueva referencia ' + Valor + ' en tablas'); - AConn.RollbackTransaction; - end; - finally - dsCommand := NIL; - end; -end; - -initialization - TROClassFactory.Create('srvReferencias', Create_srvReferencias, TsrvReferencias_Invoker); - -finalization - -end.