From 799355f951923edc9e12bc9b8ee700bf0e4002c9 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 18 Jul 2007 17:06:04 +0000 Subject: [PATCH] =?UTF-8?q?Campo=20tipo=20de=20pago=20en=20remesas=20de=20?= =?UTF-8?q?cliente=20y=20proveedor,=20adem=C3=A1s=20de=20otros=20arraglos?= 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.LuisLeon_FactuGES/trunk@103 c93665c3-c93d-084d-9b98-7d5f4a9c3376 --- Database/VISTAS.SQL | 91 +++-------- .../Modulos/Contactos/Views/uEditorAgente.dfm | 11 -- .../Contactos/Views/uEditorCliente.dfm | 36 +++-- .../Contactos/Views/uEditorContacto.dfm | 21 +-- .../Views/uEditorElegirDireccionEntrega.dfm | 15 +- .../Views/uEditorElegirDireccionEntrega.pas | 6 + .../Contactos/Views/uEditorProveedor.dfm | 28 ++-- .../Views/uViewContactoDatosBancarios.dfm | 12 +- .../Model/uBizFacturasClienteServer.pas | 19 ++- .../Servidor/srvFacturasCliente_Impl.pas | 4 +- .../Views/uEditorFacturasCliente.dfm | 30 ++-- .../Views/uEditorFacturasCliente.pas | 32 ++-- .../Model/uBizFacturasProveedorServer.pas | 20 ++- .../Reports/uRptPedidosProveedor_Server.dfm | 40 +++-- .../Reports/uRptPedidosProveedor_Server.pas | 2 +- .../Views/uEditorPedidoProveedor.dfm | 3 +- .../Views/uViewPedidoProveedor.dfm | 3 + .../Views/uEditorPedidoCliente.dfm | 6 +- .../Views/uViewPedidoCliente.dfm | 3 + .../Views/uViewPedidoCliente.pas | 12 ++ .../Views/uEditorElegirRecibosCliente.dfm | 67 ++++---- .../Views/uEditorRecibosCliente.dfm | 28 +--- .../Views/uEditorRecibosCliente.pas | 20 +-- .../Views/uViewRecibosCliente.dfm | 30 +++- .../Views/uViewRecibosCliente.pas | 6 +- .../Views/uEditorElegirRecibosProveedor.dfm | 37 +++-- .../Views/uEditorRecibosProveedor.dfm | 35 +---- .../Views/uEditorRecibosProveedor.pas | 16 +- .../Views/uViewRecibosProveedor.dfm | 39 +++-- .../Views/uViewRecibosProveedor.pas | 6 +- .../Data/uDataModuleRemesasCliente.dfm | 26 +++- .../Model/schRemesasClienteClient_Intf.pas | 144 +++++++++++------- .../Model/schRemesasClienteServer_Intf.pas | 96 ++++++++---- .../Model/uBizRemesasCliente.pas | 5 + .../Servidor/srvRemesasCliente_Impl.dfm | 126 +++++++++++---- .../Views/uEditorRemesaCliente.dfm | 47 ++++-- .../Views/uEditorRemesasCliente.dfm | 25 +-- .../Views/uViewRemesaCliente.dfm | 38 ++++- .../Views/uViewRemesaCliente.pas | 36 ++++- .../Views/uViewRemesasCliente.dfm | 29 ++-- .../Views/uViewRemesasCliente.pas | 5 +- .../Data/uDataModuleRemesasProveedor.dfm | 22 ++- .../Model/schRemesasProveedorClient_Intf.pas | 104 ++++++++----- .../Model/schRemesasProveedorServer_Intf.pas | 56 ++++++- .../Model/uBizRemesasProveedor.pas | 5 + .../Servidor/srvRemesasProveedor_Impl.dfm | 122 +++++++++++---- .../Views/uEditorRemesaProveedor.dfm | 18 +-- .../Views/uViewRemesaProveedor.dfm | 38 ++++- .../Views/uViewRemesaProveedor.pas | 36 ++++- .../Views/uViewRemesasProveedor.dfm | 30 ++-- .../Views/uViewRemesasProveedor.pas | 5 +- Source/Servidor/FactuGES_Server.dpr | 10 +- 52 files changed, 1085 insertions(+), 616 deletions(-) diff --git a/Database/VISTAS.SQL b/Database/VISTAS.SQL index d615890d..cb8befdf 100644 --- a/Database/VISTAS.SQL +++ b/Database/VISTAS.SQL @@ -44,10 +44,10 @@ DROP VIEW V_ALB_CLI_SITUACION; DROP VIEW V_PEDIDOS_PROVEEDOR; DROP VIEW V_PED_PROV_SITUACION; -DROP VIEW V_PED_PROV_PARCIALMENTE; -DROP VIEW V_PED_PROV_RECIBIDOS; -DROP VIEW V_PED_PROV_NUM_ARTICULOS; -DROP VIEW V_PED_PROV_ARTICULOS_RECIBIDOS2; +/**/ DROP VIEW V_PED_PROV_PARCIALMENTE; +/**/ DROP VIEW V_PED_PROV_RECIBIDOS; +/**/ DROP VIEW V_PED_PROV_NUM_ARTICULOS; +/**/ DROP VIEW V_PED_PROV_ARTICULOS_RECIBIDOS2; DROP VIEW V_PED_PROV_ARTICULOS; DROP VIEW V_PED_PROV_ARTICULOS_AUX; @@ -646,6 +646,7 @@ CREATE VIEW V_REMESAS_CLIENTE( ID, ID_EMPRESA, REFERENCIA, + TIPO, FECHA_REMESA, DESCRIPCION, ID_DATOS_BANCO, @@ -665,6 +666,7 @@ SELECT REMESAS_CLIENTE.ID, REMESAS_CLIENTE.ID_EMPRESA, REMESAS_CLIENTE.REFERENCIA, + REMESAS_CLIENTE.TIPO, REMESAS_CLIENTE.FECHA_REMESA, REMESAS_CLIENTE.DESCRIPCION, REMESAS_CLIENTE.ID_DATOS_BANCO, @@ -685,7 +687,7 @@ FROM LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO) LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID) LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID) -GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16; +GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17; @@ -1441,79 +1443,18 @@ HAVING SUM(CANTIDAD_PEDIDA) IS NOT NULL; /*POR COMENTAR*/ -CREATE VIEW V_PED_PROV_ARTICULOS_RECIBIDOS2( - ID_PEDIDO, - CANTIDAD) -AS -select ID_PEDIDO, count(CANTIDAD_PENDIENTE) -from V_PED_PROV_ARTICULOS -where (CANTIDAD_PENDIENTE <= 0) -group by ID_PEDIDO; - -CREATE VIEW V_PED_PROV_NUM_ARTICULOS( - ID_PEDIDO, - CANTIDAD) -AS -select ID_PEDIDO, count(ID_ARTICULO) -from V_PED_PROV_DETALLES -group by ID_PEDIDO; - -CREATE VIEW V_PED_PROV_RECIBIDOS( - ID_PEDIDO) -AS -SELECT V_PED_PROV_ARTICULOS_RECIBIDOS2.ID_PEDIDO -from V_PED_PROV_ARTICULOS_RECIBIDOS2 -LEFT JOIN V_PED_PROV_NUM_ARTICULOS -on (V_PED_PROV_NUM_ARTICULOS.ID_PEDIDO = V_PED_PROV_ARTICULOS_RECIBIDOS2.ID_PEDIDO) -where V_PED_PROV_ARTICULOS_RECIBIDOS2.CANTIDAD = V_PED_PROV_NUM_ARTICULOS.CANTIDAD; - -CREATE VIEW V_PED_PROV_PARCIALMENTE( - ID_PEDIDO) -AS -Select DISTINCT(ID_PEDIDO) -from v_ped_prov_articulos_recibidos -where id_pedido not in (select ID_PEDIDO from V_PED_PROV_RECIBIDOS); - CREATE VIEW V_PED_PROV_SITUACION( ID_PEDIDO, SITUACION) AS -/*ANTERIOR A LA VISTA ACTUAL SELECT ID_PEDIDO, - CASE - WHEN (HAY_ALBARANES = 0) OR (CANTIDAD_RECIBIDA <= 0) THEN 'PENDIENTE' - WHEN (CANTIDAD_PENDIENTE <= 0) THEN 'RECIBIDO' - ELSE 'PARCIAL' - END AS SITUACION -FROM -(SELECT V_PED_PROV_ARTICULOS.ID_PEDIDO, - SUM(V_PED_PROV_ARTICULOS.CANTIDAD_PEDIDA) AS CANTIDAD_PEDIDA, - SUM(V_PED_PROV_ARTICULOS.CANTIDAD_RECIBIDA) AS CANTIDAD_RECIBIDA, - SUM(V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE) AS CANTIDAD_PENDIENTE, - CASE - WHEN COUNT(ALBARANES_PROVEEDOR.ID) > 0 THEN 1 - ELSE 0 - END AS HAY_ALBARANES -FROM ALBARANES_PROVEEDOR - RIGHT OUTER JOIN V_PED_PROV_ARTICULOS ON (ALBARANES_PROVEEDOR.ID_PEDIDO = - V_PED_PROV_ARTICULOS.ID_PEDIDO) -GROUP BY V_PED_PROV_ARTICULOS.ID_PEDIDO); -*/ - -select ID, 'PENDIENTE' -from PEDIDOS_PROVEEDOR -where (ID not in (select ID_PEDIDO from v_ped_prov_parcialmente)) -and (ID not in (select ID_PEDIDO from v_ped_prov_recibidos)) - -union all - -select ID_PEDIDO, 'PARCIAL' -from v_ped_prov_parcialmente - -union all - -select ID_PEDIDO, 'RECIBIDO' -from v_ped_prov_recibidos; +CASE WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) = 0) THEN 'PENDIENTE' + WHEN (SUM(CANTIDAD_PENDIENTE) <= 0) THEN 'RECIBIDO' + WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) > 0) THEN 'PARCIAL' + ELSE 'N/A' +END AS SITUACION +FROM V_PED_PROV_ARTICULOS +GROUP BY V_PED_PROV_ARTICULOS.ID_PEDIDO; CREATE VIEW V_PEDIDOS_CLIENTE( @@ -2262,6 +2203,7 @@ CREATE VIEW V_REMESAS_PROVEEDOR( ID, ID_EMPRESA, REFERENCIA, + TIPO, FECHA_REMESA, DESCRIPCION, ID_DATOS_BANCO, @@ -2281,6 +2223,7 @@ SELECT REMESAS_PROVEEDOR.ID, REMESAS_PROVEEDOR.ID_EMPRESA, REMESAS_PROVEEDOR.REFERENCIA, + REMESAS_PROVEEDOR.TIPO, REMESAS_PROVEEDOR.FECHA_REMESA, REMESAS_PROVEEDOR.DESCRIPCION, REMESAS_PROVEEDOR.ID_DATOS_BANCO, @@ -2301,7 +2244,7 @@ FROM LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO) LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID) LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID) -GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16; +GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17; /*Vista para ver para quien estan reservados los articulos del inventario*/ diff --git a/Source/Modulos/Contactos/Views/uEditorAgente.dfm b/Source/Modulos/Contactos/Views/uEditorAgente.dfm index d43fbd87..40321156 100644 --- a/Source/Modulos/Contactos/Views/uEditorAgente.dfm +++ b/Source/Modulos/Contactos/Views/uEditorAgente.dfm @@ -1,7 +1,6 @@ inherited fEditorAgente: TfEditorAgente Caption = 'fEditorAgente' ClientHeight = 498 - ExplicitWidth = 320 ExplicitHeight = 532 PixelsPerInch = 96 TextHeight = 13 @@ -47,12 +46,8 @@ inherited fEditorAgente: TfEditorAgente end inherited pgPaginas: TPageControl Height = 403 - ActivePage = pagDatosBancarios ExplicitHeight = 403 inherited pagGeneral: TTabSheet - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 ExplicitHeight = 375 inline frViewAgente1: TfrViewAgente Left = 0 @@ -265,15 +260,9 @@ inherited fEditorAgente: TfEditorAgente inherited ToolBar1: TToolBar Width = 624 ExplicitWidth = 624 - inherited ToolButton1: TToolButton - ExplicitWidth = 113 - end inherited ToolButton4: TToolButton ExplicitWidth = 74 end - inherited ToolButton2: TToolButton - ExplicitWidth = 113 - end inherited ToolButton7: TToolButton ExplicitWidth = 117 end diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm index ef27b39c..cb38fc8a 100644 --- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm +++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm @@ -52,7 +52,7 @@ inherited fEditorCliente: TfEditorCliente Width = 656 ExplicitWidth = 656 inherited tbxMain: TTBXToolbar - ExplicitWidth = 440 + ExplicitWidth = 446 object TBXItem7: TTBXItem [7] Action = actGruposCliente DisplayMode = nbdmImageAndText @@ -65,12 +65,10 @@ inherited fEditorCliente: TfEditorCliente inherited pgPaginas: TPageControl Width = 656 Height = 490 - ActivePage = pagDatosComerciales + ActivePage = pagDatosBancarios ExplicitWidth = 656 ExplicitHeight = 490 inherited pagGeneral: TTabSheet - ExplicitLeft = 0 - ExplicitTop = 0 ExplicitWidth = 648 ExplicitHeight = 462 inline frViewCliente1: TfrViewCliente @@ -185,6 +183,14 @@ inherited fEditorCliente: TfEditorCliente ExplicitWidth = 91 Width = 91 end + inherited cxDBCheckBox1: TcxDBCheckBox + Left = 429 + Top = 315 + ExplicitLeft = 429 + ExplicitTop = 315 + ExplicitWidth = 275 + Width = 275 + end inherited eTlfTrabajo: TcxDBTextEdit Left = 524 Top = 30 @@ -232,14 +238,6 @@ inherited fEditorCliente: TfEditorCliente ExplicitWidth = 121 Width = 121 end - inherited cxDBCheckBox1: TcxDBCheckBox - Left = 429 - Top = 315 - ExplicitLeft = 429 - ExplicitTop = 315 - ExplicitWidth = 275 - Width = 275 - end inherited eMailParticular: TcxDBHyperLinkEdit Left = 524 Top = 190 @@ -282,9 +280,23 @@ inherited fEditorCliente: TfEditorCliente Width = 648 LookAndFeel = dxLayoutOfficeLookAndFeel ExplicitWidth = 648 + inherited eEntidad: TcxDBTextEdit + ExplicitWidth = 114 + Width = 114 + end inherited eSucursal: TcxDBTextEdit Left = 418 ExplicitLeft = 418 + ExplicitWidth = 112 + Width = 112 + end + inherited eCuenta: TcxDBTextEdit + ExplicitWidth = 194 + Width = 194 + end + inherited eTitular: TcxDBTextEdit + ExplicitWidth = 194 + Width = 194 end end end diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.dfm b/Source/Modulos/Contactos/Views/uEditorContacto.dfm index f9f7001d..ded8797b 100644 --- a/Source/Modulos/Contactos/Views/uEditorContacto.dfm +++ b/Source/Modulos/Contactos/Views/uEditorContacto.dfm @@ -7,7 +7,6 @@ inherited fEditorContacto: TfEditorContacto ClientWidth = 632 Scaled = False ExplicitWidth = 640 - ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -23,7 +22,7 @@ inherited fEditorContacto: TfEditorContacto Width = 632 ExplicitWidth = 632 inherited tbxMain: TTBXToolbar - ExplicitWidth = 324 + ExplicitWidth = 330 inherited TBXItem2: TTBXItem Visible = False end @@ -77,10 +76,10 @@ inherited fEditorContacto: TfEditorContacto Width = 632 ExplicitWidth = 632 inherited pagGeneral: TTabSheet - ExplicitLeft = 0 - ExplicitTop = 0 + ExplicitLeft = 4 + ExplicitTop = 24 ExplicitWidth = 624 - ExplicitHeight = 0 + ExplicitHeight = 338 end object pagDatosBancarios: TTabSheet Caption = 'Datos bancarios' @@ -108,22 +107,16 @@ inherited fEditorContacto: TfEditorContacto inherited eEntidad: TcxDBTextEdit Top = 57 ExplicitTop = 57 - ExplicitWidth = 114 - Width = 114 end inherited eSucursal: TcxDBTextEdit - Left = 405 + Left = 406 Top = 57 - ExplicitLeft = 405 + ExplicitLeft = 406 ExplicitTop = 57 - ExplicitWidth = 112 - Width = 112 end inherited eCuenta: TcxDBTextEdit Top = 84 ExplicitTop = 84 - ExplicitWidth = 194 - Width = 194 end inherited eDC: TcxDBTextEdit Top = 84 @@ -132,8 +125,6 @@ inherited fEditorContacto: TfEditorContacto inherited eTitular: TcxDBTextEdit Top = 30 ExplicitTop = 30 - ExplicitWidth = 194 - Width = 194 end end end diff --git a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm index da7c01c0..7c3e95ca 100644 --- a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm +++ b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm @@ -60,7 +60,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitTop = 335 + ExplicitTop = 334 ExplicitWidth = 599 inherited JvFooter1: TJvFooter Width = 599 @@ -95,6 +95,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega Margins.Bottom = 0 AllowDelete = False AllowInsert = False + Color = clBtnFace DataSource = dsDirecciones PanelHeight = 87 PanelWidth = 566 @@ -116,6 +117,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega Font.Style = [fsBold] ParentFont = False Transparent = True + OnDblClick = ComponenteDblClick end object ePoblacion: TDBText Left = 70 @@ -131,6 +133,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega Font.Style = [fsBold] ParentFont = False Transparent = True + OnDblClick = ComponenteDblClick end object eTelefono: TDBText Left = 423 @@ -146,6 +149,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega Font.Style = [fsBold] ParentFont = False Transparent = True + OnDblClick = ComponenteDblClick end object eProvincia: TDBText Left = 423 @@ -161,6 +165,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega Font.Style = [fsBold] ParentFont = False Transparent = True + OnDblClick = ComponenteDblClick end object ePersonaContacto: TDBText Left = 124 @@ -176,6 +181,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega Font.Style = [fsBold] ParentFont = False Transparent = True + OnDblClick = ComponenteDblClick end object eNombre: TDBText Left = 8 @@ -191,6 +197,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega Font.Style = [fsBold] ParentFont = False Transparent = True + OnDblClick = ComponenteDblClick end object eCodigoPostal: TDBText Left = 353 @@ -206,6 +213,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega Font.Style = [fsBold] ParentFont = False Transparent = True + OnDblClick = ComponenteDblClick end object Label1: TLabel Left = 15 @@ -213,6 +221,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega Width = 27 Height = 13 Caption = 'Calle:' + OnDblClick = ComponenteDblClick end object Label2: TLabel Left = 15 @@ -220,6 +229,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega Width = 49 Height = 13 Caption = 'Poblaci'#243'n:' + OnDblClick = ComponenteDblClick end object Label3: TLabel Left = 447 @@ -227,6 +237,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega Width = 30 Height = 13 Caption = 'Porte:' + OnDblClick = ComponenteDblClick end object ePorte: TDBText Left = 483 @@ -242,6 +253,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega Font.Style = [fsBold] ParentFont = False Transparent = True + OnDblClick = ComponenteDblClick end object Label4: TLabel Left = 15 @@ -249,6 +261,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega Width = 103 Height = 13 Caption = 'Persona de contacto:' + OnDblClick = ComponenteDblClick end end object dsDirecciones: TDADataSource diff --git a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas index 0036bfbb..f4020639 100644 --- a/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas +++ b/Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas @@ -30,6 +30,7 @@ type procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject); procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject); procedure DBCtrlGrid1DblClick(Sender: TObject); + procedure ComponenteDblClick(Sender: TObject); protected FDirecciones: IBizDireccionesContacto; @@ -60,6 +61,11 @@ begin frViewBarraSeleccion1.actSeleccionar.Execute; end; +procedure TfEditorElegirDireccionEntrega.ComponenteDblClick(Sender: TObject); +begin + DBCtrlGrid1DblClick(Sender); +end; + procedure TfEditorElegirDireccionEntrega.frViewBarraSeleccion1actCancelarExecute( Sender: TObject); begin diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm index 65ca2e6d..317b2dea 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm +++ b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm @@ -1,7 +1,6 @@ inherited fEditorProveedor: TfEditorProveedor Caption = 'fEditorProveedor' ClientHeight = 548 - ExplicitWidth = 320 ExplicitHeight = 582 PixelsPerInch = 96 TextHeight = 13 @@ -44,9 +43,6 @@ inherited fEditorProveedor: TfEditorProveedor Height = 453 ExplicitHeight = 453 inherited pagGeneral: TTabSheet - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 ExplicitHeight = 425 inline frViewProveedor1: TfrViewProveedor Left = 0 @@ -136,6 +132,14 @@ inherited fEditorProveedor: TfEditorProveedor ExplicitWidth = 172 Width = 172 end + inherited cxDBCheckBox1: TcxDBCheckBox + Left = 368 + Top = 270 + ExplicitLeft = 368 + ExplicitTop = 270 + ExplicitWidth = 310 + Width = 310 + end inherited eTlfTrabajo: TcxDBTextEdit Left = 463 Top = 30 @@ -183,14 +187,6 @@ inherited fEditorProveedor: TfEditorProveedor ExplicitWidth = 129 Width = 129 end - inherited cxDBCheckBox1: TcxDBCheckBox - Left = 368 - Top = 270 - ExplicitLeft = 368 - ExplicitTop = 270 - ExplicitWidth = 310 - Width = 310 - end inherited eMailParticular: TcxDBHyperLinkEdit Left = 463 Top = 190 @@ -224,13 +220,9 @@ inherited fEditorProveedor: TfEditorProveedor ExplicitHeight = 425 inherited dxLayoutControl1: TdxLayoutControl LookAndFeel = dxLayoutOfficeLookAndFeel - inherited eEntidad: TcxDBTextEdit - ExplicitWidth = 144 - Width = 144 - end inherited eSucursal: TcxDBTextEdit - ExplicitWidth = 139 - Width = 139 + ExplicitWidth = 177 + Width = 177 end inherited eCuenta: TcxDBTextEdit ExplicitWidth = 242 diff --git a/Source/Modulos/Contactos/Views/uViewContactoDatosBancarios.dfm b/Source/Modulos/Contactos/Views/uViewContactoDatosBancarios.dfm index 6de2c44b..db311d51 100644 --- a/Source/Modulos/Contactos/Views/uViewContactoDatosBancarios.dfm +++ b/Source/Modulos/Contactos/Views/uViewContactoDatosBancarios.dfm @@ -13,7 +13,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios TabOrder = 0 AutoContentSizes = [acsWidth] object eEntidad: TcxDBTextEdit - Left = 116 + Left = 117 Top = 55 DataBinding.DataField = 'ENTIDAD' DataBinding.DataSource = dsDatosBancarios @@ -32,7 +32,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios Width = 114 end object eSucursal: TcxDBTextEdit - Left = 340 + Left = 341 Top = 55 DataBinding.DataField = 'SUCURSAL' DataBinding.DataSource = dsDatosBancarios @@ -51,7 +51,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios Width = 112 end object eCuenta: TcxDBTextEdit - Left = 237 + Left = 238 Top = 82 DataBinding.DataField = 'CUENTA' DataBinding.DataSource = dsDatosBancarios @@ -70,7 +70,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios Width = 194 end object eDC: TcxDBTextEdit - Left = 116 + Left = 117 Top = 82 DataBinding.DataField = 'DC' DataBinding.DataSource = dsDatosBancarios @@ -89,7 +89,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios Width = 47 end object eTitular: TcxDBTextEdit - Left = 116 + Left = 117 Top = 28 DataBinding.DataField = 'TITULAR' DataBinding.DataSource = dsDatosBancarios @@ -114,7 +114,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios object dxLayoutControl1Group3: TdxLayoutGroup Caption = 'Datos bancarios' object dxLayoutControl1Item5: TdxLayoutItem - Caption = 'Nombre del titular:' + Caption = 'Nombre del banco:' Control = eTitular ControlOptions.ShowBorder = False end diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas index e347b62b..f6da302a 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas @@ -9,6 +9,9 @@ uses const BIZ_SERVER_FACTURAS_CLIENTE = 'Server.FacturasCliente'; REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE'; + REF_ABONOS_CLIENTE = 'REF_ABONOS_CLIENTE'; + CTE_TIPO_ABONO = 'A'; + CTE_TIPO_FACTURA = 'F'; type TBizFacturasClienteServer = class(TFacturasClienteBusinessProcessorRules) @@ -34,6 +37,7 @@ var ACurrentConn : IDAConnection; dsData: IDADataset; Empresa : Variant; + Tipo : Variant; begin inherited; @@ -49,8 +53,13 @@ begin try //Siempre va a estar rellena Empresa := aChange.NewValueByName[fld_FacturasClienteID_EMPRESA]; + Tipo := aChange.NewValueByName[fld_FacturasClienteTIPO]; + + if Tipo = CTE_TIPO_FACTURA then + dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_CLIENTE, Empresa]) + else + dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_ABONOS_CLIENTE, Empresa]); - dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_CLIENTE, Empresa]); except RaiseError('No existe la tabla REFERENCIAS'); end; @@ -58,12 +67,16 @@ begin dsData.Active := True; if dsData.IsEmpty then - RaiseError('NO HAY REFERENCIA ' + REF_FACTURAS_CLIENTE + ' DECLARADA EN TABLA REFERENCIAS'); + RaiseError('NO HAY REFERENCIA ' + REF_FACTURAS_CLIENTE + ' / ' + REF_ABONOS_CLIENTE + ' DECLARADA EN TABLA REFERENCIAS'); REFERENCIA := dsData.FieldByName('VALOR').AsString; try - ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_FACTURAS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]); + if Tipo = CTE_TIPO_FACTURA then + ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_FACTURAS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]) + else + ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_ABONOS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]); + except RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla'); end; diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas index 2390bd3c..03957e05 100644 --- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas +++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas @@ -36,7 +36,7 @@ type protected { IsrvFacturasCliente methods } function GetNextAutoInc(const GeneratorName: String): Integer; - function GenerateReport(const FacturaID: Integer): Binary; + function GenerateReport(const FacturaID: Integer): Binary; end; implementation @@ -75,7 +75,7 @@ end; procedure TsrvFacturasCliente.DARemoteServiceCreate(Sender: TObject); begin SessionManager := dmServer.SessionManager; - bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE; + bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE; end; function TsrvFacturasCliente.GenerateReport(const FacturaID: Integer): Binary; diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm index 03da456f..bb29011c 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm @@ -38,7 +38,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente Width = 640 ExplicitWidth = 640 inherited tbxMain: TTBXToolbar - ExplicitWidth = 623 + ExplicitWidth = 632 object TBXSubmenuItem2: TTBXSubmenuItem [0] Caption = 'Nuevo' DisplayMode = nbdmImageAndText @@ -90,24 +90,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente ExplicitWidth = 640 ExplicitHeight = 417 inherited cxGridView: TcxGridDBTableView - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - Position = spFooter - Column = frViewFacturasCliente1.cxGridViewIMPORTE_IVA - end> - DataController.Summary.FooterSummaryItems = < - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - Column = frViewFacturasCliente1.cxGridViewIMPORTE_IVA - end - item - Format = '0 facturas' - Kind = skCount - Column = frViewFacturasCliente1.cxGridViewTIPO - end> end end inherited frViewFiltroBase1: TfrViewFiltroBase @@ -121,9 +103,19 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente inherited dxLayoutControl1: TdxLayoutControl Width = 636 ExplicitWidth = 636 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 273 + Width = 273 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 121 + Width = 121 + end inherited edtFechaFinFiltro: TcxDateEdit Left = 393 ExplicitLeft = 393 + ExplicitWidth = 121 + Width = 121 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas index c1e1a511..bd69ee5e 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas @@ -110,17 +110,17 @@ begin else Opcion := 100; - case Opcion of - 200 : begin // Utilizar factura seleccionada - FController.Ver(FController.GenerarAbono(Facturas)); - actRefrescar.Execute; - ViewGrid._FocusedView.DataController.GotoFirst; - end; - 100 : begin // Abono nuevo vacio - if FController.AnadirAbono(Facturas) then - FController.Ver(Facturas); - end; + case Opcion of + 200 : begin // Utilizar factura seleccionada + FController.Ver(FController.GenerarAbono(Facturas)); + actRefrescar.Execute; + ViewGrid._FocusedView.DataController.GotoFirst; end; + 100 : begin // Abono nuevo vacio + if FController.AnadirAbono(Facturas) then + FController.Ver(Facturas); + end; + end; end; constructor TfEditorFacturasCliente.Create(AOwner: TComponent); @@ -153,11 +153,11 @@ var ACadena : String; begin if Facturas.TIPO = CTE_TIPO_FACTURA then - ACadena := '¿Desea borrar esta factura de cliente?' + ACadena := '¿Desea borrar esta factura de cliente?' else - ACadena := '¿Desea borrar este abono a cliente?'; + ACadena := '¿Desea borrar este abono a cliente?'; - if (Application.MessageBox(PChar(ACadena), 'Atención', MB_YESNO) = IDYES) then + if (Application.MessageBox(PChar(ACadena), 'Atención', MB_YESNO) = IDYES) then begin FController.Eliminar(Facturas); inherited; @@ -192,7 +192,7 @@ procedure TfEditorFacturasCliente.ImprimirInterno; var Respuesta : Integer; begin - //Si esta agrupado solo podré imprimir la lista de elementos visibles + //Si esta agrupado solo podré imprimir la lista de elementos visibles if not ViewGrid.esSeleccionCeldaDatos then inherited else @@ -241,7 +241,7 @@ begin try APedido := FPedidosClienteController.ElegirPedidos(FPedidosClienteController.BuscarPendientes, 'Elija el pedido de cliente que desea utilizar para dar de alta la factura.' - + #10#13 + 'Tenga en cuenta que sólo se podrán utilizar pedidos que no tengan ningún albarán ya asociado.', False); + + #10#13 + 'Tenga en cuenta que sólo se podrán utilizar pedidos que no tengan ningún albarán ya asociado.', False); if Assigned(APedido) then begin if FController.Anadir(Facturas, APedido) then @@ -275,7 +275,7 @@ procedure TfEditorFacturasCliente.PrevisualizarInterno; var Respuesta : Integer; begin - //Si esta agrupado solo podré imprimir la lista de elementos visibles + //Si esta agrupado solo podré imprimir la lista de elementos visibles if not ViewGrid.esSeleccionCeldaDatos then inherited else diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas index 2014786d..ffc84264 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas @@ -9,6 +9,10 @@ uses const BIZ_SERVER_FACTURAS_PROVEEDOR = 'Server.FacturasProveedor'; REF_FACTURAS_PROVEEDOR = 'REF_FACTURAS_PROVEEDOR'; + REF_ABONOS_PROVEEDOR = 'REF_ABONOS_PROVEEDOR'; + CTE_TIPO_ABONO = 'A'; + CTE_TIPO_FACTURA = 'F'; + type TBizFacturasProveedorServer = class(TFacturasProveedorBusinessProcessorRules) @@ -34,6 +38,7 @@ var ACurrentConn : IDAConnection; dsData: IDADataset; Empresa : Variant; + Tipo : Variant; begin inherited; @@ -49,8 +54,13 @@ begin try //Siempre va a estar rellena Empresa := aChange.NewValueByName[fld_FacturasProveedorID_EMPRESA]; + Tipo := aChange.NewValueByName[fld_FacturasProveedorTIPO]; + + if Tipo = CTE_TIPO_FACTURA then + dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_PROVEEDOR, Empresa]) + else + dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_ABONOS_PROVEEDOR, Empresa]); - dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_PROVEEDOR, Empresa]); except RaiseError('No existe la tabla REFERENCIAS'); end; @@ -58,12 +68,16 @@ begin dsData.Active := True; if dsData.IsEmpty then - RaiseError('NO HAY REFERENCIA ' + REF_FACTURAS_PROVEEDOR + ' DECLARADA EN TABLA REFERENCIAS'); + RaiseError('NO HAY REFERENCIA ' + REF_FACTURAS_PROVEEDOR + ' / ' + REF_ABONOS_PROVEEDOR + ' DECLARADA EN TABLA REFERENCIAS'); REFERENCIA := dsData.FieldByName('VALOR').AsString; try - ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_FACTURAS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]); + if Tipo = CTE_TIPO_FACTURA then + ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_FACTURAS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]) + else + ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_ABONOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]); + except RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla'); end; diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm index fc2c742d..bb3eacc5 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm @@ -103,21 +103,31 @@ object RptPedidosProveedor: TRptPedidosProveedor SQL = 'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' + 'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' + - '_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PEDIDOS_PROVEE' + - 'DOR.CALLE,'#10' V_PEDIDOS_PROVEEDOR.POBLACION,'#10' V_PEDIDOS_PROVEEDO' + - 'R.PROVINCIA,'#10' V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL,'#10' V_PEDIDOS_PR' + - 'OVEEDOR.PERSONA_CONTACTO,'#10' V_PEDIDOS_PROVEEDOR.TELEFONO,'#10' V_PR' + - 'OVEEDORES.NOMBRE,'#10' ALMACENES.NOMBRE AS NOMBRE_ALMACEN,'#10' EMPRES' + - 'AS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRE' + - 'SA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.' + - 'TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,' + - #10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EM' + - 'AIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10 + - ' V_PEDIDOS_PROVEEDOR'#10' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROV' + - 'EEDORES.ID = V_PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN' + - ' ALMACENES ON (ALMACENES.ID = V_PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10' ' + - 'LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_PEDIDOS_PROVEEDOR.I' + - 'D_EMPRESA)'#10'WHERE V_PEDIDOS_PROVEEDOR.ID = :ID' + '_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEEDORES.NO' + + 'MBRE,'#10' ALMACENES.NOMBRE AS NOMBRE_ALMACEN,'#10#10' CASE WHEN (ALMACE' + + 'NES.ID > 0)'#10' THEN ALMACENES.CALLE'#10' ELSE V_' + + 'PEDIDOS_PROVEEDOR.CALLE'#10' END as CALLE,'#10#10' CASE WHEN (ALMACENES.' + + 'ID > 0)'#10' THEN ALMACENES.POBLACION'#10' ELSE V_' + + 'PEDIDOS_PROVEEDOR.POBLACION'#10' END as POBLACION,'#10#10' CASE WHEN (AL' + + 'MACENES.ID > 0)'#10' THEN ALMACENES.PROVINCIA'#10' ' + + ' ELSE V_PEDIDOS_PROVEEDOR.PROVINCIA'#10' END as PROVINCIA,'#10#10' CASE ' + + 'WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.CODIGO_POSTAL' + + #10' ELSE V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL'#10' END as COD' + + 'IGO_POSTAL,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALM' + + 'ACENES.PERSONA_CONTACTO'#10' ELSE V_PEDIDOS_PROVEEDOR.PER' + + 'SONA_CONTACTO'#10' END as PERSONA_CONTACTO,'#10#10' CASE WHEN (ALMACENES' + + '.ID > 0)'#10' THEN ALMACENES.TELEFONO'#10' ELSE V_' + + 'PEDIDOS_PROVEEDOR.TELEFONO'#10' END as TELEFONO,'#10#10' EMPRESAS.NIF_CI' + + 'F AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMP' + + 'RESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.TELEFONO_' + + '1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRES' + + 'AS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMP' + + 'RESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_PEDID' + + 'OS_PROVEEDOR'#10' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.I' + + 'D = V_PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENE' + + 'S ON (ALMACENES.ID = V_PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10' LEFT OUTE' + + 'R JOIN EMPRESAS ON (EMPRESAS.ID = V_PEDIDOS_PROVEEDOR.ID_EMPRESA' + + ')'#10'WHERE V_PEDIDOS_PROVEEDOR.ID = :ID' StatementType = stSQL ColumnMappings = < item diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas index 7dd12db1..e51085a0 100644 --- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas +++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas @@ -25,9 +25,9 @@ type frxChartObject1: TfrxChartObject; frxDBCabecera: TfrxDBDataset; frxDBDetalles: TfrxDBDataset; + frxReport: TfrxReport; schReport: TDASchema; DataDictionary: TDADataDictionary; - frxReport: TfrxReport; procedure DataModuleCreate(Sender: TObject); private FConnection: IDAConnection; diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm index 7d533799..931a55ef 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm @@ -46,7 +46,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor Width = 765 ExplicitWidth = 765 inherited tbxMain: TTBXToolbar - ExplicitWidth = 482 + ExplicitWidth = 488 inherited TBXItem2: TTBXItem Visible = False end @@ -64,7 +64,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor inherited pgPaginas: TPageControl Width = 765 Height = 476 - ActivePage = pagContenido TabOrder = 1 OnChanging = pgPaginasChanging ExplicitWidth = 765 diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm index fd609269..894b6891 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm @@ -66,6 +66,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor ExplicitWidth = 71 Width = 71 end + inherited Button1: TBitBtn + OnClick = frViewProveedorPedidoButton1Click + end inherited Button3: TBitBtn Left = 135 ExplicitLeft = 135 diff --git a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm index 31e74690..1baac8fd 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm @@ -129,7 +129,7 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente Width = 632 ExplicitWidth = 632 inherited tbxMain: TTBXToolbar - ExplicitWidth = 482 + ExplicitWidth = 488 inherited TBXItem2: TTBXItem Visible = False end @@ -200,10 +200,6 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.dfm b/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.dfm index 1595b1f9..9df6c8ca 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.dfm +++ b/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.dfm @@ -124,6 +124,9 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente Left = 204 ExplicitLeft = 204 end + inherited Button1: TBitBtn + OnClick = frViewClientePedidoButton1Click + end inherited Button3: TBitBtn Left = 94 ExplicitLeft = 94 diff --git a/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.pas b/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.pas index 901c837c..76e726bb 100644 --- a/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.pas +++ b/Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.pas @@ -76,6 +76,7 @@ type procedure actElegirDireccionExecute(Sender: TObject); procedure actElegirDireccionUpdate(Sender: TObject); procedure bFormasPagoClick(Sender: TObject); + procedure frViewClientePedidoButton1Click(Sender: TObject); protected FPedido : IBizPedidoCliente; FViewClientePedido : TfrViewDatosYSeleccionCliente; @@ -159,6 +160,17 @@ begin inherited; end; +procedure TfrViewPedidoCliente.frViewClientePedidoButton1Click(Sender: TObject); +begin + if Assigned(Pedido) and Assigned(Pedido.Cliente) and + Assigned (Pedido.Detalles) and (Pedido.Detalles.RecordCount > 0) then + begin + if (Application.MessageBox('Los descuentos de los artículos del pedido serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then + Exit; + end; + frViewClientePedido.actElegirContacto.Execute; +end; + function TfrViewPedidoCliente.GetPedido: IBizPedidoCliente; begin Result := FPedido; diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.dfm index 00f7309b..ff669bc6 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.dfm @@ -1,14 +1,14 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente Caption = 'Seleccionar recibos de cliente' - ClientWidth = 654 - ExplicitTop = -94 - ExplicitWidth = 662 + ClientWidth = 670 + ExplicitLeft = -52 + ExplicitWidth = 678 PixelsPerInch = 96 TextHeight = 13 object JvgWizardHeader1: TJvgWizardHeader [0] Left = 0 Top = 0 - Width = 654 + Width = 670 Height = 60 CaptionFont.Charset = DEFAULT_CHARSET CaptionFont.Color = clWindowText @@ -40,18 +40,18 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente end inherited JvNavPanelHeader: TJvNavPanelHeader Top = 144 - Width = 654 + Width = 670 Visible = False ExplicitTop = 144 ExplicitWidth = 654 inherited Image1: TImage - Left = 627 + Left = 643 ExplicitLeft = 629 end end inherited TBXDock: TTBXDock Top = 171 - Width = 654 + Width = 670 ExplicitTop = 171 ExplicitWidth = 654 inherited tbxMain: TTBXToolbar @@ -79,7 +79,7 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente end end inherited tbxMenu: TTBXToolbar - ExplicitWidth = 654 + ExplicitWidth = 670 end inherited TBXTMain2: TTBXToolbar Left = 334 @@ -88,14 +88,14 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente end inherited StatusBar: TJvStatusBar Top = 506 - Width = 654 + Width = 670 ExplicitTop = 506 ExplicitWidth = 654 end inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] Left = 0 Top = 525 - Width = 654 + Width = 670 Height = 36 Align = alBottom Font.Charset = DEFAULT_CHARSET @@ -110,20 +110,20 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente ExplicitWidth = 654 ExplicitHeight = 36 inherited JvFooter1: TJvFooter - Width = 654 + Width = 670 Height = 36 ExplicitWidth = 654 ExplicitHeight = 36 inherited bSeleccionar: TJvFooterBtn - Left = 442 + Left = 458 Top = 3 ExplicitLeft = 444 ExplicitTop = 3 end inherited bCancelar: TJvFooterBtn - Left = 546 + Left = 562 Top = 4 - ExplicitLeft = 546 + ExplicitLeft = 562 ExplicitTop = 4 end end @@ -139,13 +139,13 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente end inherited frViewRecibosCliente1: TfrViewRecibosCliente [5] Top = 246 - Width = 654 + Width = 670 Height = 260 ExplicitTop = 246 ExplicitWidth = 654 ExplicitHeight = 260 inherited cxGrid: TcxGrid - Width = 654 + Width = 670 Height = 132 RootLevelOptions.DetailTabsPosition = dtpNone ExplicitWidth = 654 @@ -170,15 +170,15 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente end end inherited frViewFiltroBase1: TfrViewFiltroBase - Width = 654 + Width = 670 ExplicitWidth = 654 inherited TBXDock1: TTBXDock - Width = 654 + Width = 670 ExplicitWidth = 654 inherited TBXDockablePanel1: TTBXDockablePanel - ExplicitWidth = 654 + ExplicitWidth = 670 inherited dxLayoutControl1: TdxLayoutControl - Width = 650 + Width = 666 ExplicitWidth = 650 inherited txtFiltroTodo: TcxTextEdit ExplicitWidth = 393 @@ -189,17 +189,17 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente Width = 199 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 466 - ExplicitLeft = 466 + Left = 486 + ExplicitLeft = 486 ExplicitWidth = 121 Width = 121 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 650 + Width = 666 ExplicitWidth = 650 inherited tbxBotones: TTBXToolbar - Width = 640 + Width = 656 ExplicitWidth = 640 end end @@ -211,10 +211,10 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente ExplicitTop = 234 ExplicitWidth = 654 inherited TBXAlignmentPanel1: TTBXAlignmentPanel - Width = 654 + Width = 670 ExplicitWidth = 654 inherited TBXToolbar1: TTBXToolbar - Width = 644 + Width = 660 ExplicitWidth = 644 end end @@ -253,15 +253,16 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente ShowCaptionWhenDocked = False SupportedDocks = [dkStandardDock, dkMultiDock] TabOrder = 5 + ExplicitWidth = 654 object Label1: TLabel - Left = 296 + Left = 330 Top = 50 Width = 17 Height = 13 Caption = 'y el' end object txtFiltroTodo: TcxTextEdit - Left = 168 + Left = 202 Top = 16 Properties.OnChange = txtFiltroTodoPropertiesChange Style.LookAndFeel.Kind = lfStandard @@ -276,7 +277,7 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente Width = 273 end object edtFechaFiltro1: TcxDateEdit - Left = 168 + Left = 202 Top = 46 Enabled = False Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged @@ -292,7 +293,7 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente Width = 121 end object edtFechaFiltro2: TcxDateEdit - Left = 320 + Left = 354 Top = 46 Enabled = False Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged @@ -323,16 +324,16 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente object rbFechas: TcxRadioButton Left = 16 Top = 48 - Width = 145 + Width = 174 Height = 17 - Caption = 'Recibos con fechas entre:' + Caption = 'Recibos con vencimiento entre:' TabOrder = 4 OnClick = rbTodoClick LookAndFeel.Kind = lfStandard LookAndFeel.NativeStyle = True end object Button1: TBitBtn - Left = 470 + Left = 504 Top = 43 Width = 163 Height = 25 diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm index 6a075c0a..ddd2f9ac 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm @@ -76,22 +76,6 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente ExplicitWidth = 645 ExplicitHeight = 312 inherited cxGridView: TcxGridDBTableView - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - Position = spFooter - end> - DataController.Summary.FooterSummaryItems = < - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - end - item - Format = '0 recibos' - Kind = skCount - Column = frViewRecibosCliente1.cxGridViewFECHA_EMISION - end> end end inherited frViewFiltroBase1: TfrViewFiltroBase @@ -105,15 +89,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente inherited dxLayoutControl1: TdxLayoutControl Width = 641 ExplicitWidth = 641 - inherited edtFechaIniFiltro: TcxDateEdit - ExplicitWidth = 199 - Width = 199 - end inherited edtFechaFinFiltro: TcxDateEdit - Left = 460 - ExplicitLeft = 460 - ExplicitWidth = 121 - Width = 121 + Left = 468 + ExplicitLeft = 468 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel @@ -142,7 +120,7 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink - ReportDocument.CreationDate = 39211.776488344910000000 + ReportDocument.CreationDate = 39211.776488344920000000 BuiltInReportLink = True end end diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas index f233f570..858e73d9 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas @@ -1,18 +1,18 @@ { =============================================================================== - Copyright (©) 2007. Rodax Software. + 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, + 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 + 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: + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: =============================================================================== Modificaciones: @@ -113,7 +113,7 @@ begin raise Exception.Create('No hay ninguna vista asignada'); if not Assigned(FRecibosCliente) then - raise Exception.Create('No hay ningún objeto asignado'); + raise Exception.Create('No hay ningún objeto asignado'); FRecibosCliente.DataTable.Active := True; ViewGrid.GotoFirst; @@ -133,7 +133,7 @@ procedure TfEditorRecibosCliente.ImprimirInterno; var Respuesta : Integer; begin - //Si esta agrupado solo podré imprimir la lista de elementos visibles + //Si esta agrupado solo podré imprimir la lista de elementos visibles if not ViewGrid.esSeleccionCeldaDatos then inherited else @@ -163,7 +163,7 @@ end; procedure TfEditorRecibosCliente.NuevoInterno; begin // inherited; -//No se pueden añadir recibos nuevos +//No se pueden añadir recibos nuevos end; procedure TfEditorRecibosCliente.PonerTitulos(const ATitulo: string); @@ -178,7 +178,7 @@ procedure TfEditorRecibosCliente.PrevisualizarInterno; var Respuesta : Integer; begin - //Si esta agrupado solo podré imprimir la lista de elementos visibles + //Si esta agrupado solo podré imprimir la lista de elementos visibles if not ViewGrid.esSeleccionCeldaDatos then inherited else diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm index 6eca9de3..c75fed32 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm @@ -30,6 +30,16 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente Format = '0 recibos' Kind = skCount Column = cxGridViewREFERENCIA + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewIMPORTE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewOTROS_GASTOS end> OptionsCustomize.ColumnHidingOnGrouping = False OptionsView.GroupFooters = gfAlwaysVisible @@ -97,6 +107,9 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente object cxGridViewIMPORTE: TcxGridDBColumn Caption = 'Importe' DataBinding.FieldName = 'IMPORTE' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify Width = 56 end @@ -146,26 +159,29 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente ExplicitWidth = 531 inherited dxLayoutControl1: TdxLayoutControl Width = 527 + ExplicitWidth = 527 inherited txtFiltroTodo: TcxTextEdit - Left = 124 - ExplicitLeft = 124 + Left = 146 + ExplicitLeft = 146 ExplicitWidth = 393 Width = 393 end inherited edtFechaIniFiltro: TcxDateEdit - Left = 124 - ExplicitLeft = 124 + Left = 146 + ExplicitLeft = 146 ExplicitWidth = 199 Width = 199 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 327 - ExplicitLeft = 327 + Left = 386 + ExplicitLeft = 386 + ExplicitWidth = 121 + Width = 121 end inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Item2: TdxLayoutItem - Caption = 'Emision entre la fecha:' + Caption = 'Vencimiento entre la fecha:' end end end diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas index 62090072..30765e93 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas @@ -84,7 +84,7 @@ type implementation uses - uDataModuleRecibosCliente, DateUtils; + schRecibosClienteClient_Intf, uDataModuleRecibosCliente, DateUtils; {$R *.dfm} @@ -125,7 +125,7 @@ begin cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare]; FFiltro := AddFilterGrid(fboAnd); - Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_EMISION'); + Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosClienteFECHA_VENCIMIENTO); FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2)); end; end; @@ -258,7 +258,7 @@ begin if not VarIsNull(Fecha1) and not VarIsNull(Fecha2) then begin - Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_VENCIMIENTO'); + Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosClienteFECHA_VENCIMIENTO); Root.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2)); Active := True; end diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm index b2100a37..be0259a0 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm @@ -180,7 +180,17 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor inherited dxLayoutControl1: TdxLayoutControl Width = 650 ExplicitWidth = 650 + inherited txtFiltroTodo: TcxTextEdit + ExplicitWidth = 494 + Width = 494 + end + inherited edtFechaIniFiltro: TcxDateEdit + ExplicitWidth = 140 + Width = 140 + end inherited edtFechaFinFiltro: TcxDateEdit + Left = 314 + ExplicitLeft = 314 ExplicitWidth = 314 Width = 314 end @@ -190,6 +200,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor ExplicitWidth = 650 inherited tbxBotones: TTBXToolbar Width = 640 + ExplicitWidth = 640 end end end @@ -198,8 +209,14 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor inherited pnlAgrupaciones: TTBXDockablePanel Top = 337 ExplicitTop = 337 + ExplicitWidth = 654 inherited TBXAlignmentPanel1: TTBXAlignmentPanel Width = 654 + ExplicitWidth = 654 + inherited TBXToolbar1: TTBXToolbar + Width = 644 + ExplicitWidth = 644 + end end end inherited dxComponentPrinter: TdxComponentPrinter @@ -237,14 +254,14 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor SupportedDocks = [dkStandardDock, dkMultiDock] TabOrder = 5 object Label1: TLabel - Left = 296 + Left = 329 Top = 50 Width = 17 Height = 13 Caption = 'y el' end object txtFiltroTodo: TcxTextEdit - Left = 168 + Left = 201 Top = 16 Properties.OnChange = txtFiltroTodoPropertiesChange Style.LookAndFeel.Kind = lfStandard @@ -259,7 +276,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor Width = 273 end object edtFechaFiltro1: TcxDateEdit - Left = 168 + Left = 201 Top = 46 Enabled = False Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged @@ -275,7 +292,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor Width = 121 end object edtFechaFiltro2: TcxDateEdit - Left = 320 + Left = 353 Top = 46 Enabled = False Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged @@ -306,16 +323,16 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor object rbFechas: TcxRadioButton Left = 16 Top = 48 - Width = 145 + Width = 174 Height = 17 - Caption = 'Recibos con fechas entre:' + Caption = 'Recibos con vencimiento entre:' TabOrder = 4 OnClick = rbTodoClick LookAndFeel.Kind = lfStandard LookAndFeel.NativeStyle = True end object Button1: TBitBtn - Left = 470 + Left = 503 Top = 43 Width = 163 Height = 25 @@ -362,12 +379,6 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor inherited EditorActionList: TActionList [9] Left = 112 Top = 192 - inherited actPrevisualizar: TAction - Visible = False - end - inherited actImprimir: TAction - Visible = False - end end inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] end diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm index 367e16b3..24ece8e7 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm @@ -41,10 +41,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor Width = 638 ExplicitWidth = 638 inherited tbxMain: TTBXToolbar - ExplicitWidth = 347 - inherited TBXItem3: TTBXItem - Visible = True - end + ExplicitWidth = 276 end inherited tbxMenu: TTBXToolbar ExplicitWidth = 638 @@ -79,24 +76,6 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor ExplicitWidth = 638 ExplicitHeight = 415 inherited cxGridView: TcxGridDBTableView - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - Position = spFooter - Column = frViewRecibosProveedor1.cxGridViewIMPORTE_TOTAL - end> - DataController.Summary.FooterSummaryItems = < - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - Column = frViewRecibosProveedor1.cxGridViewIMPORTE_TOTAL - end - item - Format = '0 recibos' - Kind = skCount - Column = frViewRecibosProveedor1.cxGridViewREFERENCIA - end> end end inherited frViewFiltroBase1: TfrViewFiltroBase @@ -111,16 +90,16 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor Width = 634 ExplicitWidth = 634 inherited txtFiltroTodo: TcxTextEdit - ExplicitWidth = 273 - Width = 273 + ExplicitWidth = 478 + Width = 478 end inherited edtFechaIniFiltro: TcxDateEdit - ExplicitWidth = 121 - Width = 121 + ExplicitWidth = 266 + Width = 266 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 392 - ExplicitLeft = 392 + Left = 485 + ExplicitLeft = 485 ExplicitWidth = 121 Width = 121 end diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas index 9340cc27..dd6e5fe0 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas @@ -1,18 +1,18 @@ { =============================================================================== - Copyright (©) 2007. Rodax Software. + 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, + 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 + 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: + Fecha primera versión: + Versión actual: 1.0.0 + Fecha versión actual: =============================================================================== Modificaciones: @@ -111,7 +111,7 @@ begin raise Exception.Create('No hay ninguna vista asignada'); if not Assigned(FRecibosProveedor) then - raise Exception.Create('No hay ningún objeto asignado'); + raise Exception.Create('No hay ningún objeto asignado'); FRecibosProveedor.DataTable.Active := True; ViewGrid.GotoFirst; @@ -142,7 +142,7 @@ end; procedure TfEditorRecibosProveedor.NuevoInterno; begin // inherited; -//No se pueden añadir recibos nuevos +//No se pueden añadir recibos nuevos end; procedure TfEditorRecibosProveedor.PonerTitulos(const ATitulo: string); diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm index 48b317bb..fa9e5d4a 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm @@ -30,6 +30,16 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor Format = '0 recibos' Kind = skCount Column = cxGridViewREFERENCIA + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewIMPORTE + end + item + Format = ',0.00 '#8364';-,0.00 '#8364 + Kind = skSum + Column = cxGridViewOTROS_GASTOS end> OptionsCustomize.ColumnHidingOnGrouping = False OptionsView.GroupFooters = gfAlwaysVisible @@ -101,6 +111,9 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor object cxGridViewIMPORTE: TcxGridDBColumn Caption = 'Importe' DataBinding.FieldName = 'IMPORTE' + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify Width = 60 end @@ -149,20 +162,28 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor ExplicitWidth = 531 inherited dxLayoutControl1: TdxLayoutControl Width = 527 - ExplicitWidth = 527 inherited txtFiltroTodo: TcxTextEdit - ExplicitWidth = 273 - Width = 273 + Left = 146 + ExplicitLeft = 146 + ExplicitWidth = 371 + Width = 371 end inherited edtFechaIniFiltro: TcxDateEdit - ExplicitWidth = 121 - Width = 121 + Left = 146 + ExplicitLeft = 146 + ExplicitWidth = 185 + Width = 185 end inherited edtFechaFinFiltro: TcxDateEdit - Left = 328 - ExplicitLeft = 328 - ExplicitWidth = 121 - Width = 121 + Left = 330 + ExplicitLeft = 330 + end + inherited dxLayoutControl1Group_Root: TdxLayoutGroup + inherited dxLayoutControl1Group1: TdxLayoutGroup + inherited dxLayoutControl1Item2: TdxLayoutItem + Caption = 'Vencimiento entre la fecha:' + end + end end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas index c909646a..96dd73be 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas @@ -85,7 +85,7 @@ type implementation uses - uDataModuleRecibosProveedor, DateUtils, uViewGridBase; + schRecibosProveedorClient_Intf, uDataModuleRecibosProveedor, DateUtils, uViewGridBase; {$R *.dfm} @@ -127,7 +127,7 @@ begin cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare]; FFiltro := AddFilterGrid(fboAnd); - Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_EMISION'); + Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosCompensadosProvFECHA_VENCIMIENTO); FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2)); end; end; @@ -260,7 +260,7 @@ begin if not VarIsNull(Fecha1) and not VarIsNull(Fecha2) then begin - Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_VENCIMIENTO'); + Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosCompensadosProvFECHA_VENCIMIENTO); Root.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2)); Active := True; end diff --git a/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm b/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm index 5abc7c58..f04efe30 100644 --- a/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm @@ -41,7 +41,7 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente Name = 'Password' ParamType = fIn DataType = rtString - Value = '1' + Value = 'luisleon07' end item Name = 'LoginInfo' @@ -66,7 +66,9 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente ProbeServers = False ProbeFrequency = 60000 UserAgent = 'RemObjects SDK' - TargetURL = 'http://localhost:8099/bin' + TargetURL = 'http://localhost:8090/bin' + Login.Username = 'Luis' + Login.Password = '1' Left = 48 Top = 272 end @@ -109,7 +111,21 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify - ServerAutoRefresh = True + DictionaryEntry = 'RemesasCliente_REFERENCIA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TIPO' + DataType = datString + Size = 40 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Forma de cobro' + Alignment = taLeftJustify + DictionaryEntry = 'RemesasCliente_TIPO' InPrimaryKey = False Calculated = False Lookup = False @@ -194,12 +210,12 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente end item Name = 'IMPORTE_TOTAL' - DataType = datCurrency + DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe total' Alignment = taRightJustify - ServerAutoRefresh = True + DictionaryEntry = 'RemesasCliente_IMPORTE_TOTAL' InPrimaryKey = False Calculated = False Lookup = False diff --git a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas b/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas index 2bf7b718..88268c3d 100644 --- a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas +++ b/Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas @@ -9,9 +9,9 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_darReferencia = '{88DA99A8-DE05-4D9D-A20E-37B516E5E77C}'; - RID_RemesasCliente = '{4F1FBA6F-4FB9-4662-8C91-02D04811FB8C}'; - RID_RemesasCliente_Refresh = '{FDBE7165-B71F-4552-B3A3-CABFC5ADB649}'; + RID_darReferencia = '{A1E303BC-14C6-44ED-AB3B-110321C46D8B}'; + RID_RemesasCliente = '{C09AAC97-CD9C-4A7F-BAB3-A7A7845FA2CE}'; + RID_RemesasCliente_Refresh = '{1212E969-2479-4D5B-B7FB-C88F220139E8}'; { Data table names } nme_darReferencia = 'darReferencia'; @@ -28,6 +28,7 @@ const fld_RemesasClienteID = 'ID'; fld_RemesasClienteID_EMPRESA = 'ID_EMPRESA'; fld_RemesasClienteREFERENCIA = 'REFERENCIA'; + fld_RemesasClienteTIPO = 'TIPO'; fld_RemesasClienteFECHA_REMESA = 'FECHA_REMESA'; fld_RemesasClienteDESCRIPCION = 'DESCRIPCION'; fld_RemesasClienteUSUARIO = 'USUARIO'; @@ -47,25 +48,27 @@ const idx_RemesasClienteID = 0; idx_RemesasClienteID_EMPRESA = 1; idx_RemesasClienteREFERENCIA = 2; - idx_RemesasClienteFECHA_REMESA = 3; - idx_RemesasClienteDESCRIPCION = 4; - idx_RemesasClienteUSUARIO = 5; - idx_RemesasClienteID_DATOS_BANCO = 6; - idx_RemesasClienteFECHA_ALTA = 7; - idx_RemesasClienteFECHA_MODIFICACION = 8; - idx_RemesasClienteIMPORTE_TOTAL = 9; - idx_RemesasClienteNOMBRE = 10; - idx_RemesasClienteENTIDAD = 11; - idx_RemesasClienteSUCURSAL = 12; - idx_RemesasClienteDC = 13; - idx_RemesasClienteCUENTA = 14; - idx_RemesasClienteSUFIJO_N19 = 15; - idx_RemesasClienteSUFIJO_N58 = 16; + idx_RemesasClienteTIPO = 3; + idx_RemesasClienteFECHA_REMESA = 4; + idx_RemesasClienteDESCRIPCION = 5; + idx_RemesasClienteUSUARIO = 6; + idx_RemesasClienteID_DATOS_BANCO = 7; + idx_RemesasClienteFECHA_ALTA = 8; + idx_RemesasClienteFECHA_MODIFICACION = 9; + idx_RemesasClienteIMPORTE_TOTAL = 10; + idx_RemesasClienteNOMBRE = 11; + idx_RemesasClienteENTIDAD = 12; + idx_RemesasClienteSUCURSAL = 13; + idx_RemesasClienteDC = 14; + idx_RemesasClienteCUENTA = 15; + idx_RemesasClienteSUFIJO_N19 = 16; + idx_RemesasClienteSUFIJO_N58 = 17; { RemesasCliente_Refresh fields } fld_RemesasCliente_RefreshID = 'ID'; fld_RemesasCliente_RefreshID_EMPRESA = 'ID_EMPRESA'; fld_RemesasCliente_RefreshREFERENCIA = 'REFERENCIA'; + fld_RemesasCliente_RefreshTIPO = 'TIPO'; fld_RemesasCliente_RefreshFECHA_REMESA = 'FECHA_REMESA'; fld_RemesasCliente_RefreshDESCRIPCION = 'DESCRIPCION'; fld_RemesasCliente_RefreshUSUARIO = 'USUARIO'; @@ -85,25 +88,26 @@ const idx_RemesasCliente_RefreshID = 0; idx_RemesasCliente_RefreshID_EMPRESA = 1; idx_RemesasCliente_RefreshREFERENCIA = 2; - idx_RemesasCliente_RefreshFECHA_REMESA = 3; - idx_RemesasCliente_RefreshDESCRIPCION = 4; - idx_RemesasCliente_RefreshUSUARIO = 5; - idx_RemesasCliente_RefreshID_DATOS_BANCO = 6; - idx_RemesasCliente_RefreshFECHA_ALTA = 7; - idx_RemesasCliente_RefreshFECHA_MODIFICACION = 8; - idx_RemesasCliente_RefreshIMPORTE_TOTAL = 9; - idx_RemesasCliente_RefreshNOMBRE = 10; - idx_RemesasCliente_RefreshENTIDAD = 11; - idx_RemesasCliente_RefreshSUCURSAL = 12; - idx_RemesasCliente_RefreshDC = 13; - idx_RemesasCliente_RefreshCUENTA = 14; - idx_RemesasCliente_RefreshSUFIJO_N19 = 15; - idx_RemesasCliente_RefreshSUFIJO_N58 = 16; + idx_RemesasCliente_RefreshTIPO = 3; + idx_RemesasCliente_RefreshFECHA_REMESA = 4; + idx_RemesasCliente_RefreshDESCRIPCION = 5; + idx_RemesasCliente_RefreshUSUARIO = 6; + idx_RemesasCliente_RefreshID_DATOS_BANCO = 7; + idx_RemesasCliente_RefreshFECHA_ALTA = 8; + idx_RemesasCliente_RefreshFECHA_MODIFICACION = 9; + idx_RemesasCliente_RefreshIMPORTE_TOTAL = 10; + idx_RemesasCliente_RefreshNOMBRE = 11; + idx_RemesasCliente_RefreshENTIDAD = 12; + idx_RemesasCliente_RefreshSUCURSAL = 13; + idx_RemesasCliente_RefreshDC = 14; + idx_RemesasCliente_RefreshCUENTA = 15; + idx_RemesasCliente_RefreshSUFIJO_N19 = 16; + idx_RemesasCliente_RefreshSUFIJO_N58 = 17; type { IdarReferencia } IdarReferencia = interface(IDAStronglyTypedDataTable) - ['{F1C155EA-E472-4A20-97E9-48A4F469EAC5}'] + ['{7AF88C22-93F7-445B-A55E-87212FDB6C3C}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -132,7 +136,7 @@ type { IRemesasCliente } IRemesasCliente = interface(IDAStronglyTypedDataTable) - ['{FCCDBFEE-7CAB-4837-A17A-D19281944A82}'] + ['{3CB2DF7A-3B62-4B93-84B1-634DF3842413}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -140,6 +144,8 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); + function GetTIPOValue: String; + procedure SetTIPOValue(const aValue: String); function GetFECHA_REMESAValue: DateTime; procedure SetFECHA_REMESAValue(const aValue: DateTime); function GetDESCRIPCIONValue: String; @@ -152,8 +158,8 @@ type procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); - function GetIMPORTE_TOTALValue: Currency; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); + function GetIMPORTE_TOTALValue: Float; + procedure SetIMPORTE_TOTALValue(const aValue: Float); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetENTIDADValue: String; @@ -174,13 +180,14 @@ type property ID: Integer read GetIDValue write SetIDValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property TIPO: String read GetTIPOValue write SetTIPOValue; property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; @@ -201,6 +208,8 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetTIPOValue: String; virtual; + procedure SetTIPOValue(const aValue: String); virtual; function GetFECHA_REMESAValue: DateTime; virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; function GetDESCRIPCIONValue: String; virtual; @@ -213,8 +222,8 @@ type procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALValue: Float; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetENTIDADValue: String; virtual; @@ -234,13 +243,14 @@ type property ID: Integer read GetIDValue write SetIDValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property TIPO: String read GetTIPOValue write SetTIPOValue; property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; @@ -257,7 +267,7 @@ type { IRemesasCliente_Refresh } IRemesasCliente_Refresh = interface(IDAStronglyTypedDataTable) - ['{179D4A7F-C909-48AA-AE07-AB5F76D2AC66}'] + ['{3F695DCE-EABB-439F-BC19-6FD396148EB6}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -265,6 +275,8 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); + function GetTIPOValue: String; + procedure SetTIPOValue(const aValue: String); function GetFECHA_REMESAValue: DateTime; procedure SetFECHA_REMESAValue(const aValue: DateTime); function GetDESCRIPCIONValue: String; @@ -277,8 +289,8 @@ type procedure SetFECHA_ALTAValue(const aValue: DateTime); function GetFECHA_MODIFICACIONValue: DateTime; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); - function GetIMPORTE_TOTALValue: Currency; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); + function GetIMPORTE_TOTALValue: Float; + procedure SetIMPORTE_TOTALValue(const aValue: Float); function GetNOMBREValue: String; procedure SetNOMBREValue(const aValue: String); function GetENTIDADValue: String; @@ -299,13 +311,14 @@ type property ID: Integer read GetIDValue write SetIDValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property TIPO: String read GetTIPOValue write SetTIPOValue; property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; @@ -326,6 +339,8 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetTIPOValue: String; virtual; + procedure SetTIPOValue(const aValue: String); virtual; function GetFECHA_REMESAValue: DateTime; virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; function GetDESCRIPCIONValue: String; virtual; @@ -338,8 +353,8 @@ type procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALValue: Float; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; function GetNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; function GetENTIDADValue: String; virtual; @@ -359,13 +374,14 @@ type property ID: Integer read GetIDValue write SetIDValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property TIPO: String read GetTIPOValue write SetTIPOValue; property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue; property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; - property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; @@ -447,6 +463,16 @@ begin DataTable.Fields[idx_RemesasClienteREFERENCIA].AsString := aValue; end; +function TRemesasClienteDataTableRules.GetTIPOValue: String; +begin + result := DataTable.Fields[idx_RemesasClienteTIPO].AsString; +end; + +procedure TRemesasClienteDataTableRules.SetTIPOValue(const aValue: String); +begin + DataTable.Fields[idx_RemesasClienteTIPO].AsString := aValue; +end; + function TRemesasClienteDataTableRules.GetFECHA_REMESAValue: DateTime; begin result := DataTable.Fields[idx_RemesasClienteFECHA_REMESA].AsDateTime; @@ -507,14 +533,14 @@ begin DataTable.Fields[idx_RemesasClienteFECHA_MODIFICACION].AsDateTime := aValue; end; -function TRemesasClienteDataTableRules.GetIMPORTE_TOTALValue: Currency; +function TRemesasClienteDataTableRules.GetIMPORTE_TOTALValue: Float; begin - result := DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsCurrency; + result := DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsFloat; end; -procedure TRemesasClienteDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); +procedure TRemesasClienteDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float); begin - DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsCurrency := aValue; + DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsFloat := aValue; end; function TRemesasClienteDataTableRules.GetNOMBREValue: String; @@ -629,6 +655,16 @@ begin DataTable.Fields[idx_RemesasCliente_RefreshREFERENCIA].AsString := aValue; end; +function TRemesasCliente_RefreshDataTableRules.GetTIPOValue: String; +begin + result := DataTable.Fields[idx_RemesasCliente_RefreshTIPO].AsString; +end; + +procedure TRemesasCliente_RefreshDataTableRules.SetTIPOValue(const aValue: String); +begin + DataTable.Fields[idx_RemesasCliente_RefreshTIPO].AsString := aValue; +end; + function TRemesasCliente_RefreshDataTableRules.GetFECHA_REMESAValue: DateTime; begin result := DataTable.Fields[idx_RemesasCliente_RefreshFECHA_REMESA].AsDateTime; @@ -689,14 +725,14 @@ begin DataTable.Fields[idx_RemesasCliente_RefreshFECHA_MODIFICACION].AsDateTime := aValue; end; -function TRemesasCliente_RefreshDataTableRules.GetIMPORTE_TOTALValue: Currency; +function TRemesasCliente_RefreshDataTableRules.GetIMPORTE_TOTALValue: Float; begin - result := DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsCurrency; + result := DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsFloat; end; -procedure TRemesasCliente_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); +procedure TRemesasCliente_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float); begin - DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsCurrency := aValue; + DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsFloat := aValue; end; function TRemesasCliente_RefreshDataTableRules.GetNOMBREValue: String; diff --git a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas b/Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas index d1184c33..2075fd11 100644 --- a/Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas +++ b/Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_darReferenciaDelta = '{2E1B93B3-0013-4E76-9282-C1A8DD67CD55}'; - RID_RemesasClienteDelta = '{A9F30F17-7489-41DF-99B0-9610DAFF0CBD}'; - RID_RemesasCliente_RefreshDelta = '{F948F4C1-BE3B-43B0-9E83-608F6CFCA690}'; + RID_darReferenciaDelta = '{6BDDB07D-2116-434F-9B1C-3438BC15858E}'; + RID_RemesasClienteDelta = '{1ECF3F1A-3E7B-4CFA-B097-D5895756EB02}'; + RID_RemesasCliente_RefreshDelta = '{0EB05604-7651-4CAE-8D91-0032CBD944CB}'; type { IdarReferenciaDelta } IdarReferenciaDelta = interface(IdarReferencia) - ['{2E1B93B3-0013-4E76-9282-C1A8DD67CD55}'] + ['{6BDDB07D-2116-434F-9B1C-3438BC15858E}'] { Property getters and setters } function GetOldVALORValue : String; @@ -45,18 +45,19 @@ type { IRemesasClienteDelta } IRemesasClienteDelta = interface(IRemesasCliente) - ['{A9F30F17-7489-41DF-99B0-9610DAFF0CBD}'] + ['{1ECF3F1A-3E7B-4CFA-B097-D5895756EB02}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; + function GetOldTIPOValue : String; function GetOldFECHA_REMESAValue : DateTime; function GetOldDESCRIPCIONValue : String; function GetOldUSUARIOValue : String; function GetOldID_DATOS_BANCOValue : Integer; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; - function GetOldIMPORTE_TOTALValue : Currency; + function GetOldIMPORTE_TOTALValue : Float; function GetOldNOMBREValue : String; function GetOldENTIDADValue : String; function GetOldSUCURSALValue : String; @@ -69,13 +70,14 @@ type property OldID : Integer read GetOldIDValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldTIPO : String read GetOldTIPOValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldENTIDAD : String read GetOldENTIDADValue; property OldSUCURSAL : String read GetOldSUCURSALValue; @@ -99,6 +101,9 @@ type function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetTIPOValue: String; virtual; + function GetOldTIPOValue: String; virtual; + procedure SetTIPOValue(const aValue: String); virtual; function GetFECHA_REMESAValue: DateTime; virtual; function GetOldFECHA_REMESAValue: DateTime; virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; @@ -117,9 +122,9 @@ type function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - function GetOldIMPORTE_TOTALValue: Currency; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALValue: Float; virtual; + function GetOldIMPORTE_TOTALValue: Float; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; function GetNOMBREValue: String; virtual; function GetOldNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; @@ -149,6 +154,8 @@ type property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property TIPO : String read GetTIPOValue write SetTIPOValue; + property OldTIPO : String read GetOldTIPOValue; property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; @@ -161,8 +168,8 @@ type property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue; property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue; @@ -186,18 +193,19 @@ type { IRemesasCliente_RefreshDelta } IRemesasCliente_RefreshDelta = interface(IRemesasCliente_Refresh) - ['{F948F4C1-BE3B-43B0-9E83-608F6CFCA690}'] + ['{0EB05604-7651-4CAE-8D91-0032CBD944CB}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; + function GetOldTIPOValue : String; function GetOldFECHA_REMESAValue : DateTime; function GetOldDESCRIPCIONValue : String; function GetOldUSUARIOValue : String; function GetOldID_DATOS_BANCOValue : Integer; function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime; - function GetOldIMPORTE_TOTALValue : Currency; + function GetOldIMPORTE_TOTALValue : Float; function GetOldNOMBREValue : String; function GetOldENTIDADValue : String; function GetOldSUCURSALValue : String; @@ -210,13 +218,14 @@ type property OldID : Integer read GetOldIDValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldTIPO : String read GetOldTIPOValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; property OldNOMBRE : String read GetOldNOMBREValue; property OldENTIDAD : String read GetOldENTIDADValue; property OldSUCURSAL : String read GetOldSUCURSALValue; @@ -240,6 +249,9 @@ type function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetTIPOValue: String; virtual; + function GetOldTIPOValue: String; virtual; + procedure SetTIPOValue(const aValue: String); virtual; function GetFECHA_REMESAValue: DateTime; virtual; function GetOldFECHA_REMESAValue: DateTime; virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; @@ -258,9 +270,9 @@ type function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; - function GetIMPORTE_TOTALValue: Currency; virtual; - function GetOldIMPORTE_TOTALValue: Currency; virtual; - procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; + function GetIMPORTE_TOTALValue: Float; virtual; + function GetOldIMPORTE_TOTALValue: Float; virtual; + procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual; function GetNOMBREValue: String; virtual; function GetOldNOMBREValue: String; virtual; procedure SetNOMBREValue(const aValue: String); virtual; @@ -290,6 +302,8 @@ type property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property TIPO : String read GetTIPOValue write SetTIPOValue; + property OldTIPO : String read GetOldTIPOValue; property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; @@ -302,8 +316,8 @@ type property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; - property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; - property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; + property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; + property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue; property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue; @@ -413,6 +427,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteREFERENCIA] := aValue; end; +function TRemesasClienteBusinessProcessorRules.GetTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteTIPO]; +end; + +function TRemesasClienteBusinessProcessorRules.GetOldTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteTIPO]; +end; + +procedure TRemesasClienteBusinessProcessorRules.SetTIPOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteTIPO] := aValue; +end; + function TRemesasClienteBusinessProcessorRules.GetFECHA_REMESAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_REMESA]; @@ -503,17 +532,17 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_MODIFICACION] := aValue; end; -function TRemesasClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; +function TRemesasClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL]; end; -function TRemesasClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; +function TRemesasClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteIMPORTE_TOTAL]; end; -procedure TRemesasClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); +procedure TRemesasClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL] := aValue; end; @@ -680,6 +709,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshREFERENCIA] := aValue; end; +function TRemesasCliente_RefreshBusinessProcessorRules.GetTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshTIPO]; +end; + +function TRemesasCliente_RefreshBusinessProcessorRules.GetOldTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshTIPO]; +end; + +procedure TRemesasCliente_RefreshBusinessProcessorRules.SetTIPOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshTIPO] := aValue; +end; + function TRemesasCliente_RefreshBusinessProcessorRules.GetFECHA_REMESAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_REMESA]; @@ -770,17 +814,17 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_MODIFICACION] := aValue; end; -function TRemesasCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; +function TRemesasCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL]; end; -function TRemesasCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; +function TRemesasCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL]; end; -procedure TRemesasCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); +procedure TRemesasCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float); begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL] := aValue; end; diff --git a/Source/Modulos/Remesas de cliente/Model/uBizRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Model/uBizRemesasCliente.pas index 487dcb42..42806ed1 100644 --- a/Source/Modulos/Remesas de cliente/Model/uBizRemesasCliente.pas +++ b/Source/Modulos/Remesas de cliente/Model/uBizRemesasCliente.pas @@ -8,6 +8,10 @@ uses const BIZ_CLIENT_REMESACLIENTE = 'Client.RemesaCliente'; + CTE_TIPO_REMESA = 'REMESA'; + CTE_TIPO_TALON = 'TALON'; + CTE_TIPO_EFECTIVO = 'EFECTIVO'; + CTE_TIPO_TRANSFERENCIA = 'TRANSFERENCIA'; type IBizRemesaCliente = interface(IRemesasCliente) @@ -73,6 +77,7 @@ begin ID_EMPRESA := dmUsuarios.IDEmpresaActual; FECHA_REMESA := Date; USUARIO := dmUsuarios.LoginInfo.Usuario; + TIPO := CTE_TIPO_REMESA; end; procedure TBizRemesaCliente.OnNewRecord(Sender: TDADataTable); diff --git a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm index 2d199f90..6bc41783 100644 --- a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm +++ b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm @@ -153,6 +153,34 @@ object srvRemesasCliente: TsrvRemesasCliente DisplayLabel = 'REFERENCIA' Alignment = taLeftJustify ServerAutoRefresh = True + end + item + Name = 'RemesasCliente_REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'REFERENCIA' + Alignment = taLeftJustify + ServerAutoRefresh = True + end + item + Name = 'RemesasCliente_TIPO' + DataType = datString + Size = 40 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Forma de cobro' + Alignment = taLeftJustify + end + item + Name = 'RemesasCliente_IMPORTE_TOTAL' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe total' + Alignment = taRightJustify + ServerAutoRefresh = True end> Left = 150 Top = 22 @@ -216,10 +244,11 @@ object srvRemesasCliente: TsrvRemesasCliente Connection = 'IBX' TargetTable = 'V_REMESAS_CLIENTE' SQL = - 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' + - 'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' + - 'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' + - 'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_CLIENTE' + 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' + + #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' + + 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' + + ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_C' + + 'LIENTE' StatementType = stSQL ColumnMappings = < item @@ -289,6 +318,10 @@ object srvRemesasCliente: TsrvRemesasCliente item DatasetField = 'SUFIJO_N58' TableField = 'SUFIJO_N58' + end + item + DatasetField = 'TIPO' + TableField = 'TIPO' end> end> Name = 'RemesasCliente' @@ -318,9 +351,18 @@ object srvRemesasCliente: TsrvRemesasCliente DataType = datString Size = 255 BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - ServerAutoRefresh = True + DictionaryEntry = 'RemesasCliente_REFERENCIA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TIPO' + DataType = datString + Size = 40 + BlobType = dabtUnknown + DictionaryEntry = 'RemesasCliente_TIPO' InPrimaryKey = False Calculated = False Lookup = False @@ -390,12 +432,9 @@ object srvRemesasCliente: TsrvRemesasCliente end item Name = 'IMPORTE_TOTAL' - DataType = datCurrency + DataType = datFloat BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Importe total' - Alignment = taRightJustify - ServerAutoRefresh = True + DictionaryEntry = 'RemesasCliente_IMPORTE_TOTAL' InPrimaryKey = False Calculated = False Lookup = False @@ -495,11 +534,11 @@ object srvRemesasCliente: TsrvRemesasCliente Connection = 'IBX' TargetTable = 'V_REMESAS_CLIENTE' SQL = - 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' + - 'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' + - 'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' + - 'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_CLIENTE'#10'W' + - 'HERE ID = :ID' + 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' + + #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' + + 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' + + ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_C' + + 'LIENTE'#10'WHERE ID = :ID' StatementType = stSQL ColumnMappings = < item @@ -570,6 +609,10 @@ object srvRemesasCliente: TsrvRemesasCliente item DatasetField = 'SUFIJO_N58' TableField = 'SUFIJO_N58' + end + item + DatasetField = 'TIPO' + TableField = 'TIPO' end> end> Name = 'RemesasCliente_Refresh' @@ -607,6 +650,17 @@ object srvRemesasCliente: TsrvRemesasCliente Lookup = False LookupCache = False end + item + Name = 'TIPO' + DataType = datString + Size = 40 + BlobType = dabtUnknown + DictionaryEntry = 'RemesasCliente_TIPO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'FECHA_REMESA' DataType = datDateTime @@ -671,7 +725,7 @@ object srvRemesasCliente: TsrvRemesasCliente end item Name = 'IMPORTE_TOTAL' - DataType = datCurrency + DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe total' @@ -817,6 +871,14 @@ object srvRemesasCliente: TsrvRemesasCliente Value = '' ParamType = daptInput end + item + Name = 'TIPO' + DataType = datString + Size = 40 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'FECHA_REMESA' DataType = datDateTime @@ -873,11 +935,11 @@ object srvRemesasCliente: TsrvRemesasCliente Connection = 'IBX' TargetTable = 'REMESAS_CLIENTE' SQL = - 'INSERT'#10' INTO REMESAS_CLIENTE'#10' (ID, REFERENCIA, FECHA_REMESA,' + - ' DESCRIPCION, USUARIO, ID_EMPRESA,'#10' ID_DATOS_BANCO, FECHA_AL' + - 'TA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :REFERENCIA, :FECHA_R' + - 'EMESA, :DESCRIPCION, :USUARIO,'#10' :ID_EMPRESA, :ID_DATOS_BANCO' + - ', :FECHA_ALTA,'#10' :FECHA_MODIFICACION)' + 'INSERT'#10' INTO REMESAS_CLIENTE'#10' (ID, REFERENCIA, TIPO, FECHA_R' + + 'EMESA, DESCRIPCION, USUARIO, ID_EMPRESA,'#10' ID_DATOS_BANCO, FE' + + 'CHA_ALTA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :REFERENCIA, :T' + + 'IPO, :FECHA_REMESA, :DESCRIPCION, :USUARIO,'#10' :ID_EMPRESA, :I' + + 'D_DATOS_BANCO, :FECHA_ALTA,'#10' :FECHA_MODIFICACION)' StatementType = stSQL ColumnMappings = <> end> @@ -912,6 +974,14 @@ object srvRemesasCliente: TsrvRemesasCliente Value = '' ParamType = daptInput end + item + Name = 'TIPO' + DataType = datString + Size = 40 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'FECHA_REMESA' DataType = datDateTime @@ -976,11 +1046,11 @@ object srvRemesasCliente: TsrvRemesasCliente TargetTable = 'REMESAS_CLIENTE' SQL = 'UPDATE REMESAS_CLIENTE'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' ' + - ' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPCION = :DESCRIPCION, ' + - #10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :ID_EMPRESA, '#10' ID_' + - 'DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALTA = :FECHA_ALTA, '#10' ' + - ' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE'#10' (ID = :OL' + - 'D_ID)' + ' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPCIO' + + 'N = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :ID' + + '_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALTA ' + + '= :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' W' + + 'HERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm b/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm index 99b43cdf..4bca4d60 100644 --- a/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm @@ -4,13 +4,13 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente HorzScrollBar.Visible = False VertScrollBar.Visible = False Caption = 'Ficha de remesa de cobro' - ClientHeight = 538 + ClientHeight = 583 ClientWidth = 676 Scaled = False OnClose = CustomEditorClose - ExplicitLeft = -19 + ExplicitLeft = -49 ExplicitWidth = 684 - ExplicitHeight = 572 + ExplicitHeight = 617 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -50,7 +50,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente Width = 676 ExplicitWidth = 676 inherited tbxMain: TTBXToolbar - ExplicitWidth = 592 + ExplicitWidth = 598 inherited TBXItem2: TTBXItem Visible = False end @@ -108,7 +108,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente end inherited pgPaginas: TPageControl Width = 676 - Height = 397 + Height = 442 MultiLine = True ExplicitWidth = 676 ExplicitHeight = 397 @@ -121,7 +121,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente Left = 0 Top = 0 Width = 668 - Height = 121 + Height = 145 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -132,13 +132,16 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente TabOrder = 0 ReadOnly = False ExplicitWidth = 668 - ExplicitHeight = 121 + ExplicitHeight = 145 inherited dxLayoutControlRemesaCliente: TdxLayoutControl Width = 668 - Height = 129 + Height = 160 Align = alTop ExplicitWidth = 668 - ExplicitHeight = 129 + ExplicitHeight = 160 + DesignSize = ( + 668 + 160) inherited eReferencia: TcxDBTextEdit ExplicitWidth = 326 Width = 326 @@ -157,6 +160,10 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente ExplicitWidth = 39 Width = 39 end + inherited cbTipo: TcxDBImageComboBox + ExplicitWidth = 121 + Width = 121 + end end inherited dsDataTable: TDADataSource Left = 104 @@ -168,9 +175,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente end inline frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente Left = 0 - Top = 121 + Top = 145 Width = 668 - Height = 248 + Height = 269 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -189,7 +196,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente inherited cxGrid: TcxGrid Left = 15 Width = 638 - Height = 208 + Height = 229 ExplicitLeft = 15 ExplicitWidth = 638 ExplicitHeight = 208 @@ -211,12 +218,24 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente Width = 638 ExplicitLeft = 15 ExplicitWidth = 638 + inherited ToolButton1: TToolButton + ExplicitWidth = 62 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 74 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 67 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 117 + end end end end end inherited StatusBar: TJvStatusBar - Top = 519 + Top = 564 Width = 676 Panels = < item @@ -227,7 +246,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente end inline frViewTotales1: TfrViewTotales [4] Left = 0 - Top = 473 + Top = 518 Width = 676 Height = 46 Align = alBottom diff --git a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.dfm b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.dfm index 1d20f0f5..75a65384 100644 --- a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.dfm @@ -2,16 +2,18 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente Left = 489 Top = 325 Caption = 'Lista de remesas de cobro' - ClientWidth = 820 - ExplicitWidth = 828 + ClientHeight = 409 + ClientWidth = 785 + ExplicitWidth = 793 + ExplicitHeight = 443 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 820 + Width = 785 Caption = 'Lista de remesas de cobro' ExplicitWidth = 820 inherited Image1: TImage - Left = 793 + Left = 758 Picture.Data = { 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0000180806000000E0773DF80000000970485973000017120000171201679FD2 @@ -40,15 +42,15 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente end end inherited TBXDock: TTBXDock - Width = 820 + Width = 785 ExplicitWidth = 820 inherited tbxMain: TTBXToolbar - ExplicitWidth = 552 + ExplicitWidth = 561 object TBXSeparatorItem17: TTBXSeparatorItem [12] end end inherited tbxFiltro: TTBXToolbar - ExplicitWidth = 260 + ExplicitWidth = 269 inherited tbxEditFiltro: TTBXEditItem EditOptions = [tboUseEditWhenVertical] end @@ -57,7 +59,7 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente end end inherited tbxMenu: TTBXToolbar - ExplicitWidth = 820 + ExplicitWidth = 785 object TBXSubmenuItem2: TTBXSubmenuItem [4] Caption = 'A&cciones' object TBXItem38: TTBXItem @@ -65,9 +67,14 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente end end end + inherited TBXTMain2: TTBXToolbar + Left = 334 + ExplicitLeft = 334 + end end inherited StatusBar: TJvStatusBar - Width = 820 + Top = 390 + Width = 785 ExplicitWidth = 820 end inherited EditorActionList: TActionList diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm index c61f9633..dbe828df 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm @@ -1,6 +1,6 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente Width = 451 - Height = 304 + Height = 157 Align = alClient ExplicitWidth = 451 ExplicitHeight = 304 @@ -8,15 +8,16 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente Left = 0 Top = 0 Width = 451 - Height = 304 + Height = 157 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 + ExplicitHeight = 304 DesignSize = ( 451 - 304) + 157) object eReferencia: TcxDBTextEdit Left = 110 Top = 30 @@ -42,7 +43,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente end object eDescripcion: TcxDBTextEdit Left = 110 - Top = 84 + Top = 111 DataBinding.DataField = 'DESCRIPCION' DataBinding.DataSource = dsDataTable Style.BorderColor = clWindowFrame @@ -57,7 +58,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 3 + TabOrder = 4 Width = 108 end object edtFechaRemesa: TcxDBDateEdit @@ -114,6 +115,28 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente TabOrder = 2 Width = 39 end + object cbTipo: TcxDBImageComboBox + Left = 110 + Top = 84 + DataBinding.DataField = 'TIPO' + DataBinding.DataSource = dsDataTable + Properties.Items = <> + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = bts3D + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 3 + Width = 121 + end object dxLayoutControlRemesaClienteGroup_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -153,6 +176,11 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente Control = cbCuentaBancaria ControlOptions.ShowBorder = False end + object dxLayoutControlRemesaClienteItem1: TdxLayoutItem + Caption = 'Forma de cobro:' + Control = cbTipo + ControlOptions.ShowBorder = False + end object dxLayoutControlRemesaClienteItem8: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas index 22d1b922..f2cecf4f 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas @@ -11,7 +11,8 @@ uses ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit, uFamiliasController, cxSpinEdit, cxCurrencyEdit, uBizRemesasCliente, uRemesasClienteController, cxCalendar, - dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox; + dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, + cxImageComboBox; type IViewRemesaCliente = interface(IViewBase) @@ -44,6 +45,8 @@ type cbCuentaBancaria: TcxDBLookupComboBox; dsDatosBanco: TDADataSource; dxLayoutControlRemesaClienteGroup2: TdxLayoutGroup; + cbTipo: TcxDBImageComboBox; + dxLayoutControlRemesaClienteItem1: TdxLayoutItem; protected FController: IRemesasClienteController; @@ -55,6 +58,7 @@ type public property RemesaCliente: IBizRemesaCliente read GetRemesaCliente write SetRemesaCliente; property Controller : IRemesasClienteController read GetController write SetController; + constructor Create(AOwner: TComponent); override; end; implementation @@ -76,6 +80,36 @@ begin Result := FRemesaCliente; end; +constructor TfrViewRemesaCliente.Create(AOwner: TComponent); +var + AItem : TcxImageComboBoxItem; +begin + inherited; + cbTipo.Properties.Items.BeginUpdate; + + AItem := cbTipo.Properties.Items.Add; + AItem.Tag := 1; + AItem.Description := CTE_TIPO_REMESA; + AItem.Value := CTE_TIPO_REMESA; + + AItem := cbTipo.Properties.Items.Add; + AItem.Tag := 2; + AItem.Description := CTE_TIPO_TALON; + AItem.Value := CTE_TIPO_TALON; + + AItem := cbTipo.Properties.Items.Add; + AItem.Tag := 3; + AItem.Description := CTE_TIPO_EFECTIVO; + AItem.Value := CTE_TIPO_EFECTIVO; + + AItem := cbTipo.Properties.Items.Add; + AItem.Tag := 4; + AItem.Description := CTE_TIPO_TRANSFERENCIA; + AItem.Value := CTE_TIPO_TRANSFERENCIA; + + cbTipo.Properties.Items.EndUpdate; +end; + function TfrViewRemesaCliente.GetController: IRemesasClienteController; begin Result := FController; diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm b/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm index 0a156d19..58c14950 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm @@ -1,7 +1,10 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente + Height = 420 + ExplicitHeight = 420 inherited cxGrid: TcxGrid + Height = 292 inherited cxGridView: TcxGridDBTableView - DataController.KeyFieldNames = 'ID' + DataController.KeyFieldNames = 'RecID' DataController.Summary.DefaultGroupSummaryItems = < item Format = ',0.00 '#8364';-,0.00 '#8364 @@ -33,19 +36,14 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente DataBinding.FieldName = 'RecID' Visible = False end - object cxGridViewID: TcxGridDBColumn - DataBinding.FieldName = 'ID' - Visible = False - end - object cxGridViewID_EMPRESA: TcxGridDBColumn - DataBinding.FieldName = 'ID_EMPRESA' - Visible = False - end object cxGridViewREFERENCIA: TcxGridDBColumn Caption = 'Referencia' DataBinding.FieldName = 'REFERENCIA' Width = 118 end + object cxGridViewTIPO: TcxGridDBColumn + DataBinding.FieldName = 'TIPO' + end object cxGridViewFECHA_REMESA: TcxGridDBColumn Caption = 'Fecha de cargo' DataBinding.FieldName = 'FECHA_REMESA' @@ -76,14 +74,6 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente DataBinding.FieldName = 'CUENTA' Visible = False end - object cxGridViewSUFIJO_N19: TcxGridDBColumn - DataBinding.FieldName = 'SUFIJO_N19' - Visible = False - end - object cxGridViewSUFIJO_N58: TcxGridDBColumn - DataBinding.FieldName = 'SUFIJO_N58' - Visible = False - end object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn Caption = 'Importe' DataBinding.FieldName = 'IMPORTE_TOTAL' @@ -98,6 +88,7 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente inherited TBXDock1: TTBXDock inherited TBXDockablePanel1: TTBXDockablePanel inherited dxLayoutControl1: TdxLayoutControl + ExplicitWidth = 550 inherited txtFiltroTodo: TcxTextEdit ExplicitWidth = 273 Width = 273 @@ -114,6 +105,10 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente end end end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 394 + ExplicitWidth = 554 + end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink ReportDocument.CreationDate = 38673.842406053240000000 diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas index 5b4d68f8..fb84b032 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas @@ -27,8 +27,6 @@ type TfrViewRemesasCliente = class(TfrViewGrid, IViewRemesasCliente) PngImageList: TPngImageList; cxGridViewRecID: TcxGridDBColumn; - cxGridViewID: TcxGridDBColumn; - cxGridViewID_EMPRESA: TcxGridDBColumn; cxGridViewREFERENCIA: TcxGridDBColumn; cxGridViewFECHA_REMESA: TcxGridDBColumn; cxGridViewDESCRIPCION: TcxGridDBColumn; @@ -38,8 +36,7 @@ type cxGridViewSUCURSAL: TcxGridDBColumn; cxGridViewDC: TcxGridDBColumn; cxGridViewCUENTA: TcxGridDBColumn; - cxGridViewSUFIJO_N19: TcxGridDBColumn; - cxGridViewSUFIJO_N58: TcxGridDBColumn; + cxGridViewTIPO: TcxGridDBColumn; procedure cxGridViewIDCustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); diff --git a/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm b/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm index 434d941c..f2a49d3c 100644 --- a/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm +++ b/Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm @@ -41,7 +41,7 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor Name = 'Password' ParamType = fIn DataType = rtString - Value = '1' + Value = 'luisleon07' end item Name = 'LoginInfo' @@ -66,7 +66,7 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor ProbeServers = False ProbeFrequency = 60000 UserAgent = 'RemObjects SDK' - TargetURL = 'http://localhost:8099/bin' + TargetURL = 'http://localhost:8090/bin' Left = 48 Top = 272 end @@ -109,7 +109,21 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify - ServerAutoRefresh = True + DictionaryEntry = 'RemesasProveedor_REFERENCIA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TIPO' + DataType = datString + Size = 40 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Forma de pago' + Alignment = taLeftJustify + DictionaryEntry = 'RemesasProveedor_TIPO' InPrimaryKey = False Calculated = False Lookup = False @@ -199,7 +213,7 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor DisplayWidth = 0 DisplayLabel = 'Importe total' Alignment = taRightJustify - ServerAutoRefresh = True + DictionaryEntry = 'RemesasProveedor_IMPORTE_TOTAL' InPrimaryKey = False Calculated = False Lookup = False diff --git a/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas b/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas index 01251ed4..5225d1c0 100644 --- a/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas +++ b/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas @@ -9,9 +9,9 @@ const { Data table rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_darReferencia = '{3D6FDF20-0A49-4834-AD39-B9CEC05728BC}'; - RID_RemesasProveedor = '{9F4452B5-ED06-43F7-AFE9-21A4BF5A3D2D}'; - RID_RemesasProveedor_Refresh = '{DB725E06-D3E1-4820-9256-20F5FA83DDF0}'; + RID_darReferencia = '{C1FE1FF9-7F1D-45EF-A6EC-36769F2459E8}'; + RID_RemesasProveedor = '{B681DD8C-CB40-4D5F-8717-3335972EB8EF}'; + RID_RemesasProveedor_Refresh = '{56DD2E63-E0E0-47F8-9840-044CC0BB101E}'; { Data table names } nme_darReferencia = 'darReferencia'; @@ -28,6 +28,7 @@ const fld_RemesasProveedorID = 'ID'; fld_RemesasProveedorID_EMPRESA = 'ID_EMPRESA'; fld_RemesasProveedorREFERENCIA = 'REFERENCIA'; + fld_RemesasProveedorTIPO = 'TIPO'; fld_RemesasProveedorFECHA_REMESA = 'FECHA_REMESA'; fld_RemesasProveedorDESCRIPCION = 'DESCRIPCION'; fld_RemesasProveedorUSUARIO = 'USUARIO'; @@ -47,25 +48,27 @@ const idx_RemesasProveedorID = 0; idx_RemesasProveedorID_EMPRESA = 1; idx_RemesasProveedorREFERENCIA = 2; - idx_RemesasProveedorFECHA_REMESA = 3; - idx_RemesasProveedorDESCRIPCION = 4; - idx_RemesasProveedorUSUARIO = 5; - idx_RemesasProveedorID_DATOS_BANCO = 6; - idx_RemesasProveedorFECHA_ALTA = 7; - idx_RemesasProveedorFECHA_MODIFICACION = 8; - idx_RemesasProveedorIMPORTE_TOTAL = 9; - idx_RemesasProveedorNOMBRE = 10; - idx_RemesasProveedorENTIDAD = 11; - idx_RemesasProveedorSUCURSAL = 12; - idx_RemesasProveedorDC = 13; - idx_RemesasProveedorCUENTA = 14; - idx_RemesasProveedorSUFIJO_N19 = 15; - idx_RemesasProveedorSUFIJO_N58 = 16; + idx_RemesasProveedorTIPO = 3; + idx_RemesasProveedorFECHA_REMESA = 4; + idx_RemesasProveedorDESCRIPCION = 5; + idx_RemesasProveedorUSUARIO = 6; + idx_RemesasProveedorID_DATOS_BANCO = 7; + idx_RemesasProveedorFECHA_ALTA = 8; + idx_RemesasProveedorFECHA_MODIFICACION = 9; + idx_RemesasProveedorIMPORTE_TOTAL = 10; + idx_RemesasProveedorNOMBRE = 11; + idx_RemesasProveedorENTIDAD = 12; + idx_RemesasProveedorSUCURSAL = 13; + idx_RemesasProveedorDC = 14; + idx_RemesasProveedorCUENTA = 15; + idx_RemesasProveedorSUFIJO_N19 = 16; + idx_RemesasProveedorSUFIJO_N58 = 17; { RemesasProveedor_Refresh fields } fld_RemesasProveedor_RefreshID = 'ID'; fld_RemesasProveedor_RefreshID_EMPRESA = 'ID_EMPRESA'; fld_RemesasProveedor_RefreshREFERENCIA = 'REFERENCIA'; + fld_RemesasProveedor_RefreshTIPO = 'TIPO'; fld_RemesasProveedor_RefreshFECHA_REMESA = 'FECHA_REMESA'; fld_RemesasProveedor_RefreshDESCRIPCION = 'DESCRIPCION'; fld_RemesasProveedor_RefreshUSUARIO = 'USUARIO'; @@ -85,25 +88,26 @@ const idx_RemesasProveedor_RefreshID = 0; idx_RemesasProveedor_RefreshID_EMPRESA = 1; idx_RemesasProveedor_RefreshREFERENCIA = 2; - idx_RemesasProveedor_RefreshFECHA_REMESA = 3; - idx_RemesasProveedor_RefreshDESCRIPCION = 4; - idx_RemesasProveedor_RefreshUSUARIO = 5; - idx_RemesasProveedor_RefreshID_DATOS_BANCO = 6; - idx_RemesasProveedor_RefreshFECHA_ALTA = 7; - idx_RemesasProveedor_RefreshFECHA_MODIFICACION = 8; - idx_RemesasProveedor_RefreshIMPORTE_TOTAL = 9; - idx_RemesasProveedor_RefreshNOMBRE = 10; - idx_RemesasProveedor_RefreshENTIDAD = 11; - idx_RemesasProveedor_RefreshSUCURSAL = 12; - idx_RemesasProveedor_RefreshDC = 13; - idx_RemesasProveedor_RefreshCUENTA = 14; - idx_RemesasProveedor_RefreshSUFIJO_N19 = 15; - idx_RemesasProveedor_RefreshSUFIJO_N58 = 16; + idx_RemesasProveedor_RefreshTIPO = 3; + idx_RemesasProveedor_RefreshFECHA_REMESA = 4; + idx_RemesasProveedor_RefreshDESCRIPCION = 5; + idx_RemesasProveedor_RefreshUSUARIO = 6; + idx_RemesasProveedor_RefreshID_DATOS_BANCO = 7; + idx_RemesasProveedor_RefreshFECHA_ALTA = 8; + idx_RemesasProveedor_RefreshFECHA_MODIFICACION = 9; + idx_RemesasProveedor_RefreshIMPORTE_TOTAL = 10; + idx_RemesasProveedor_RefreshNOMBRE = 11; + idx_RemesasProveedor_RefreshENTIDAD = 12; + idx_RemesasProveedor_RefreshSUCURSAL = 13; + idx_RemesasProveedor_RefreshDC = 14; + idx_RemesasProveedor_RefreshCUENTA = 15; + idx_RemesasProveedor_RefreshSUFIJO_N19 = 16; + idx_RemesasProveedor_RefreshSUFIJO_N58 = 17; type { IdarReferencia } IdarReferencia = interface(IDAStronglyTypedDataTable) - ['{419EF698-F812-4BB2-AF2E-4BDCAF09060F}'] + ['{117BD92C-DD52-4B6F-840D-675FF8A7BB4B}'] { Property getters and setters } function GetVALORValue: String; procedure SetVALORValue(const aValue: String); @@ -132,7 +136,7 @@ type { IRemesasProveedor } IRemesasProveedor = interface(IDAStronglyTypedDataTable) - ['{88EC9B27-C7D8-4C82-8E83-29E8F70DBB66}'] + ['{23B52BF8-6AAD-4393-96A3-F66CAA606CF5}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -140,6 +144,8 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); + function GetTIPOValue: String; + procedure SetTIPOValue(const aValue: String); function GetFECHA_REMESAValue: DateTime; procedure SetFECHA_REMESAValue(const aValue: DateTime); function GetDESCRIPCIONValue: String; @@ -174,6 +180,7 @@ type property ID: Integer read GetIDValue write SetIDValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property TIPO: String read GetTIPOValue write SetTIPOValue; property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; @@ -201,6 +208,8 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetTIPOValue: String; virtual; + procedure SetTIPOValue(const aValue: String); virtual; function GetFECHA_REMESAValue: DateTime; virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; function GetDESCRIPCIONValue: String; virtual; @@ -234,6 +243,7 @@ type property ID: Integer read GetIDValue write SetIDValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property TIPO: String read GetTIPOValue write SetTIPOValue; property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; @@ -257,7 +267,7 @@ type { IRemesasProveedor_Refresh } IRemesasProveedor_Refresh = interface(IDAStronglyTypedDataTable) - ['{53C9C363-9E14-448C-9201-52DB64D0B000}'] + ['{DE94F87C-D124-425E-868D-607F9F21A92C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -265,6 +275,8 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); function GetREFERENCIAValue: String; procedure SetREFERENCIAValue(const aValue: String); + function GetTIPOValue: String; + procedure SetTIPOValue(const aValue: String); function GetFECHA_REMESAValue: DateTime; procedure SetFECHA_REMESAValue(const aValue: DateTime); function GetDESCRIPCIONValue: String; @@ -299,6 +311,7 @@ type property ID: Integer read GetIDValue write SetIDValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property TIPO: String read GetTIPOValue write SetTIPOValue; property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; @@ -326,6 +339,8 @@ type procedure SetID_EMPRESAValue(const aValue: Integer); virtual; function GetREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetTIPOValue: String; virtual; + procedure SetTIPOValue(const aValue: String); virtual; function GetFECHA_REMESAValue: DateTime; virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; function GetDESCRIPCIONValue: String; virtual; @@ -359,6 +374,7 @@ type property ID: Integer read GetIDValue write SetIDValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; + property TIPO: String read GetTIPOValue write SetTIPOValue; property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; @@ -447,6 +463,16 @@ begin DataTable.Fields[idx_RemesasProveedorREFERENCIA].AsString := aValue; end; +function TRemesasProveedorDataTableRules.GetTIPOValue: String; +begin + result := DataTable.Fields[idx_RemesasProveedorTIPO].AsString; +end; + +procedure TRemesasProveedorDataTableRules.SetTIPOValue(const aValue: String); +begin + DataTable.Fields[idx_RemesasProveedorTIPO].AsString := aValue; +end; + function TRemesasProveedorDataTableRules.GetFECHA_REMESAValue: DateTime; begin result := DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].AsDateTime; @@ -629,6 +655,16 @@ begin DataTable.Fields[idx_RemesasProveedor_RefreshREFERENCIA].AsString := aValue; end; +function TRemesasProveedor_RefreshDataTableRules.GetTIPOValue: String; +begin + result := DataTable.Fields[idx_RemesasProveedor_RefreshTIPO].AsString; +end; + +procedure TRemesasProveedor_RefreshDataTableRules.SetTIPOValue(const aValue: String); +begin + DataTable.Fields[idx_RemesasProveedor_RefreshTIPO].AsString := aValue; +end; + function TRemesasProveedor_RefreshDataTableRules.GetFECHA_REMESAValue: DateTime; begin result := DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_REMESA].AsDateTime; diff --git a/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas b/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas index 78f94c43..d46edbb3 100644 --- a/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas +++ b/Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas @@ -9,14 +9,14 @@ const { Delta rules ids Feel free to change them to something more human readable but make sure they are unique in the context of your application } - RID_darReferenciaDelta = '{137F6E55-880D-4E7A-9E63-2B70A858EB7E}'; - RID_RemesasProveedorDelta = '{13DBC096-29B3-43C6-8174-3776F2A23352}'; - RID_RemesasProveedor_RefreshDelta = '{357339B7-C872-48D4-A472-875E190B5EE5}'; + RID_darReferenciaDelta = '{1CF21482-DCAA-4AC1-99E1-17E699935E70}'; + RID_RemesasProveedorDelta = '{3E42591F-5D39-4B25-9D0B-65195F9A748B}'; + RID_RemesasProveedor_RefreshDelta = '{98216DA8-39E0-4978-8E23-96992F4135C8}'; type { IdarReferenciaDelta } IdarReferenciaDelta = interface(IdarReferencia) - ['{137F6E55-880D-4E7A-9E63-2B70A858EB7E}'] + ['{1CF21482-DCAA-4AC1-99E1-17E699935E70}'] { Property getters and setters } function GetOldVALORValue : String; @@ -45,11 +45,12 @@ type { IRemesasProveedorDelta } IRemesasProveedorDelta = interface(IRemesasProveedor) - ['{13DBC096-29B3-43C6-8174-3776F2A23352}'] + ['{3E42591F-5D39-4B25-9D0B-65195F9A748B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; + function GetOldTIPOValue : String; function GetOldFECHA_REMESAValue : DateTime; function GetOldDESCRIPCIONValue : String; function GetOldUSUARIOValue : String; @@ -69,6 +70,7 @@ type property OldID : Integer read GetOldIDValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldTIPO : String read GetOldTIPOValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; @@ -99,6 +101,9 @@ type function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetTIPOValue: String; virtual; + function GetOldTIPOValue: String; virtual; + procedure SetTIPOValue(const aValue: String); virtual; function GetFECHA_REMESAValue: DateTime; virtual; function GetOldFECHA_REMESAValue: DateTime; virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; @@ -149,6 +154,8 @@ type property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property TIPO : String read GetTIPOValue write SetTIPOValue; + property OldTIPO : String read GetOldTIPOValue; property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; @@ -186,11 +193,12 @@ type { IRemesasProveedor_RefreshDelta } IRemesasProveedor_RefreshDelta = interface(IRemesasProveedor_Refresh) - ['{357339B7-C872-48D4-A472-875E190B5EE5}'] + ['{98216DA8-39E0-4978-8E23-96992F4135C8}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; + function GetOldTIPOValue : String; function GetOldFECHA_REMESAValue : DateTime; function GetOldDESCRIPCIONValue : String; function GetOldUSUARIOValue : String; @@ -210,6 +218,7 @@ type property OldID : Integer read GetOldIDValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldTIPO : String read GetOldTIPOValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldUSUARIO : String read GetOldUSUARIOValue; @@ -240,6 +249,9 @@ type function GetREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; + function GetTIPOValue: String; virtual; + function GetOldTIPOValue: String; virtual; + procedure SetTIPOValue(const aValue: String); virtual; function GetFECHA_REMESAValue: DateTime; virtual; function GetOldFECHA_REMESAValue: DateTime; virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; @@ -290,6 +302,8 @@ type property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property TIPO : String read GetTIPOValue write SetTIPOValue; + property OldTIPO : String read GetOldTIPOValue; property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; @@ -413,6 +427,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorREFERENCIA] := aValue; end; +function TRemesasProveedorBusinessProcessorRules.GetTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorTIPO]; +end; + +function TRemesasProveedorBusinessProcessorRules.GetOldTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorTIPO]; +end; + +procedure TRemesasProveedorBusinessProcessorRules.SetTIPOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorTIPO] := aValue; +end; + function TRemesasProveedorBusinessProcessorRules.GetFECHA_REMESAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_REMESA]; @@ -680,6 +709,21 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshREFERENCIA] := aValue; end; +function TRemesasProveedor_RefreshBusinessProcessorRules.GetTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshTIPO]; +end; + +function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldTIPOValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshTIPO]; +end; + +procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetTIPOValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshTIPO] := aValue; +end; + function TRemesasProveedor_RefreshBusinessProcessorRules.GetFECHA_REMESAValue: DateTime; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_REMESA]; diff --git a/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedor.pas index 0a40005b..c801571e 100644 --- a/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedor.pas @@ -8,6 +8,10 @@ uses const BIZ_CLIENT_REMESAPROVEEDOR = 'Client.RemesaProveedor'; + CTE_TIPO_REMESA = 'REMESA'; + CTE_TIPO_TALON = 'TALON'; + CTE_TIPO_EFECTIVO = 'EFECTIVO'; + CTE_TIPO_TRANSFERENCIA = 'TRANSFERENCIA'; type IBizRemesaProveedor = interface(IRemesasProveedor) @@ -73,6 +77,7 @@ begin ID_EMPRESA := dmUsuarios.IDEmpresaActual; FECHA_REMESA := Date; USUARIO := dmUsuarios.LoginInfo.Usuario; + TIPO := CTE_TIPO_REMESA; end; procedure TBizRemesaProveedor.OnNewRecord(Sender: TDADataTable); diff --git a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm index e5654c7d..6a841334 100644 --- a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm +++ b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm @@ -153,6 +153,34 @@ object srvRemesasProveedor: TsrvRemesasProveedor DisplayLabel = 'REFERENCIA' Alignment = taLeftJustify ServerAutoRefresh = True + end + item + Name = 'RemesasProveedor_REFERENCIA' + DataType = datString + Size = 255 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'REFERENCIA' + Alignment = taLeftJustify + ServerAutoRefresh = True + end + item + Name = 'RemesasProveedor_TIPO' + DataType = datString + Size = 40 + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Forma de pago' + Alignment = taLeftJustify + end + item + Name = 'RemesasProveedor_IMPORTE_TOTAL' + DataType = datFloat + BlobType = dabtUnknown + DisplayWidth = 0 + DisplayLabel = 'Importe total' + Alignment = taRightJustify + ServerAutoRefresh = True end> Left = 150 Top = 22 @@ -216,10 +244,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor Connection = 'IBX' TargetTable = 'V_REMESAS_PROVEEDOR' SQL = - 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' + - 'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' + - 'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' + - 'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_PROVEEDOR' + 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' + + #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' + + 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' + + ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_P' + + 'ROVEEDOR' StatementType = stSQL ColumnMappings = < item @@ -289,6 +318,10 @@ object srvRemesasProveedor: TsrvRemesasProveedor item DatasetField = 'SUFIJO_N58' TableField = 'SUFIJO_N58' + end + item + DatasetField = 'TIPO' + TableField = 'TIPO' end> end> Name = 'RemesasProveedor' @@ -318,9 +351,18 @@ object srvRemesasProveedor: TsrvRemesasProveedor DataType = datString Size = 255 BlobType = dabtUnknown - DisplayWidth = 0 - Alignment = taLeftJustify - ServerAutoRefresh = True + DictionaryEntry = 'RemesasProveedor_REFERENCIA' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end + item + Name = 'TIPO' + DataType = datString + Size = 40 + BlobType = dabtUnknown + DictionaryEntry = 'RemesasProveedor_TIPO' InPrimaryKey = False Calculated = False Lookup = False @@ -392,10 +434,7 @@ object srvRemesasProveedor: TsrvRemesasProveedor Name = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown - DisplayWidth = 0 - DisplayLabel = 'Importe total' - Alignment = taRightJustify - ServerAutoRefresh = True + DictionaryEntry = 'RemesasProveedor_IMPORTE_TOTAL' InPrimaryKey = False Calculated = False Lookup = False @@ -495,11 +534,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor Connection = 'IBX' TargetTable = 'V_REMESAS_PROVEEDOR' SQL = - 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' + - 'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' + - 'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' + - 'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_PROVEEDOR' + - #10'WHERE ID = :ID' + 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' + + #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' + + 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' + + ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_P' + + 'ROVEEDOR'#10'WHERE ID = :ID' StatementType = stSQL ColumnMappings = < item @@ -570,6 +609,10 @@ object srvRemesasProveedor: TsrvRemesasProveedor item DatasetField = 'SUFIJO_N58' TableField = 'SUFIJO_N58' + end + item + DatasetField = 'TIPO' + TableField = 'TIPO' end> end> Name = 'RemesasProveedor_Refresh' @@ -607,6 +650,17 @@ object srvRemesasProveedor: TsrvRemesasProveedor Lookup = False LookupCache = False end + item + Name = 'TIPO' + DataType = datString + Size = 40 + BlobType = dabtUnknown + DictionaryEntry = 'RemesasProveedor_TIPO' + InPrimaryKey = False + Calculated = False + Lookup = False + LookupCache = False + end item Name = 'FECHA_REMESA' DataType = datDateTime @@ -817,6 +871,14 @@ object srvRemesasProveedor: TsrvRemesasProveedor Value = '' ParamType = daptInput end + item + Name = 'TIPO' + DataType = datString + Size = 40 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'FECHA_REMESA' DataType = datDateTime @@ -873,11 +935,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor Connection = 'IBX' TargetTable = 'REMESAS_PROVEEDOR' SQL = - 'INSERT'#10' INTO REMESAS_PROVEEDOR'#10' (ID, REFERENCIA, FECHA_REMES' + - 'A, DESCRIPCION, USUARIO, ID_EMPRESA,'#10' ID_DATOS_BANCO, FECHA_' + - 'ALTA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :REFERENCIA, :FECHA' + - '_REMESA, :DESCRIPCION, :USUARIO,'#10' :ID_EMPRESA, :ID_DATOS_BAN' + - 'CO, :FECHA_ALTA,'#10' :FECHA_MODIFICACION)' + 'INSERT'#10' INTO REMESAS_PROVEEDOR'#10' (ID, REFERENCIA, TIPO, FECHA' + + '_REMESA, DESCRIPCION, USUARIO, ID_EMPRESA,'#10' ID_DATOS_BANCO, ' + + 'FECHA_ALTA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :REFERENCIA, ' + + ':TIPO, :FECHA_REMESA, :DESCRIPCION, :USUARIO,'#10' :ID_EMPRESA, ' + + ':ID_DATOS_BANCO, :FECHA_ALTA,'#10' :FECHA_MODIFICACION)' StatementType = stSQL ColumnMappings = <> end> @@ -912,6 +974,14 @@ object srvRemesasProveedor: TsrvRemesasProveedor Value = '' ParamType = daptInput end + item + Name = 'TIPO' + DataType = datString + Size = 40 + BlobType = dabtUnknown + Value = '' + ParamType = daptInput + end item Name = 'FECHA_REMESA' DataType = datDateTime @@ -976,11 +1046,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor TargetTable = 'REMESAS_PROVEEDOR' SQL = 'UPDATE REMESAS_PROVEEDOR'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' ' + - ' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPCION = :DESCRIPCION' + - ', '#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :ID_EMPRESA, '#10' I' + - 'D_DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALTA = :FECHA_ALTA, '#10 + - ' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE'#10' (ID = :' + - 'OLD_ID)' + ' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPC' + + 'ION = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :' + + 'ID_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALT' + + 'A = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' ' + + ' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm index 3de62889..30a89641 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm +++ b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm @@ -49,7 +49,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor Width = 676 ExplicitWidth = 676 inherited tbxMain: TTBXToolbar - ExplicitWidth = 482 + ExplicitWidth = 488 inherited TBXItem2: TTBXItem Visible = False end @@ -118,9 +118,9 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor ExplicitHeight = 369 inline frViewRecibosRemesaProveedor1: TfrViewRecibosRemesaProveedor Left = 0 - Top = 130 + Top = 145 Width = 668 - Height = 239 + Height = 224 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -135,7 +135,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor ExplicitHeight = 239 inherited cxGrid: TcxGrid Width = 668 - Height = 214 + Height = 199 ExplicitWidth = 668 ExplicitHeight = 214 inherited cxGridView: TcxGridDBTableView @@ -157,7 +157,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor Left = 0 Top = 0 Width = 668 - Height = 130 + Height = 145 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -168,10 +168,10 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor TabOrder = 1 ReadOnly = False ExplicitWidth = 668 - ExplicitHeight = 130 + ExplicitHeight = 145 inherited dxLayoutControlRemesaProveedor: TdxLayoutControl Width = 668 - Height = 130 + Height = 145 ExplicitWidth = 668 ExplicitHeight = 130 inherited eReferencia: TcxDBTextEdit @@ -183,8 +183,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor Width = 108 end inherited edtFechaRemesa: TcxDBDateEdit - Left = 419 - ExplicitLeft = 419 + Left = 411 + ExplicitLeft = 411 ExplicitWidth = 170 Width = 170 end diff --git a/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm b/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm index 8838266d..e9018e44 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm +++ b/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm @@ -1,6 +1,6 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor Width = 451 - Height = 304 + Height = 160 Align = alClient ExplicitWidth = 451 ExplicitHeight = 304 @@ -8,15 +8,16 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor Left = 0 Top = 0 Width = 451 - Height = 304 + Height = 160 Align = alClient ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 + ExplicitHeight = 304 DesignSize = ( 451 - 304) + 160) object eReferencia: TcxDBTextEdit Left = 110 Top = 30 @@ -42,7 +43,7 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor end object eDescripcion: TcxDBTextEdit Left = 110 - Top = 84 + Top = 111 DataBinding.DataField = 'DESCRIPCION' DataBinding.DataSource = dsDataTable Style.BorderColor = clWindowFrame @@ -57,7 +58,7 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 3 + TabOrder = 4 Width = 108 end object edtFechaRemesa: TcxDBDateEdit @@ -114,6 +115,28 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor TabOrder = 2 Width = 39 end + object cbTipo: TcxDBImageComboBox + Left = 110 + Top = 84 + DataBinding.DataField = 'TIPO' + DataBinding.DataSource = dsDataTable + Properties.Items = <> + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = bts3D + Style.PopupBorderStyle = epbsFrame3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 3 + Width = 319 + end object dxLayoutControlRemesaProveedorGroup_Root: TdxLayoutGroup ShowCaption = False Hidden = True @@ -153,6 +176,11 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor Control = cbCuentaBancaria ControlOptions.ShowBorder = False end + object dxLayoutControlRemesaProveedorItem1: TdxLayoutItem + Caption = 'Forma de pago:' + Control = cbTipo + ControlOptions.ShowBorder = False + end object dxLayoutControlRemesaProveedorItem8: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient diff --git a/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas index f68f9a0e..c2df78d8 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas @@ -11,7 +11,8 @@ uses ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit, uFamiliasController, cxSpinEdit, cxCurrencyEdit, uBizRemesasProveedor, uRemesasProveedorController, cxCalendar, - dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox; + dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, + cxImageComboBox; type IViewRemesaProveedor = interface(IViewBase) @@ -44,6 +45,8 @@ type cbCuentaBancaria: TcxDBLookupComboBox; dsDatosBanco: TDADataSource; dxLayoutControlRemesaProveedorGroup2: TdxLayoutGroup; + dxLayoutControlRemesaProveedorItem1: TdxLayoutItem; + cbTipo: TcxDBImageComboBox; protected FController: IRemesasProveedorController; @@ -55,6 +58,7 @@ type public property RemesaProveedor: IBizRemesaProveedor read GetRemesaProveedor write SetRemesaProveedor; property Controller : IRemesasProveedorController read GetController write SetController; + constructor Create(AOwner: TComponent); override; end; implementation @@ -76,6 +80,36 @@ begin Result := FRemesaProveedor; end; +constructor TfrViewRemesaProveedor.Create(AOwner: TComponent); +var + AItem : TcxImageComboBoxItem; +begin + inherited; + cbTipo.Properties.Items.BeginUpdate; + + AItem := cbTipo.Properties.Items.Add; + AItem.Tag := 1; + AItem.Description := CTE_TIPO_REMESA; + AItem.Value := CTE_TIPO_REMESA; + + AItem := cbTipo.Properties.Items.Add; + AItem.Tag := 2; + AItem.Description := CTE_TIPO_TALON; + AItem.Value := CTE_TIPO_TALON; + + AItem := cbTipo.Properties.Items.Add; + AItem.Tag := 3; + AItem.Description := CTE_TIPO_EFECTIVO; + AItem.Value := CTE_TIPO_EFECTIVO; + + AItem := cbTipo.Properties.Items.Add; + AItem.Tag := 4; + AItem.Description := CTE_TIPO_TRANSFERENCIA; + AItem.Value := CTE_TIPO_TRANSFERENCIA; + + cbTipo.Properties.Items.EndUpdate; +end; + function TfrViewRemesaProveedor.GetController: IRemesasProveedorController; begin Result := FController; diff --git a/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.dfm b/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.dfm index aef1a64f..4c0477dc 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.dfm +++ b/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.dfm @@ -1,7 +1,10 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor + Height = 397 + ExplicitHeight = 397 inherited cxGrid: TcxGrid + Height = 269 inherited cxGridView: TcxGridDBTableView - DataController.KeyFieldNames = 'ID' + DataController.KeyFieldNames = 'RecID' DataController.Summary.DefaultGroupSummaryItems = < item Format = ',0.00 '#8364';-,0.00 '#8364 @@ -33,19 +36,14 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor DataBinding.FieldName = 'RecID' Visible = False end - object cxGridViewID: TcxGridDBColumn - DataBinding.FieldName = 'ID' - Visible = False - end - object cxGridViewID_EMPRESA: TcxGridDBColumn - DataBinding.FieldName = 'ID_EMPRESA' - Visible = False - end object cxGridViewREFERENCIA: TcxGridDBColumn Caption = 'Referencia' DataBinding.FieldName = 'REFERENCIA' Width = 118 end + object cxGridViewTIPO: TcxGridDBColumn + DataBinding.FieldName = 'TIPO' + end object cxGridViewFECHA_REMESA: TcxGridDBColumn Caption = 'Fecha de cargo' DataBinding.FieldName = 'FECHA_REMESA' @@ -76,19 +74,12 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor DataBinding.FieldName = 'CUENTA' Visible = False end - object cxGridViewSUFIJO_N19: TcxGridDBColumn - DataBinding.FieldName = 'SUFIJO_N19' - Visible = False - end - object cxGridViewSUFIJO_N58: TcxGridDBColumn - DataBinding.FieldName = 'SUFIJO_N58' - Visible = False - end object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn Caption = 'Importe' DataBinding.FieldName = 'IMPORTE_TOTAL' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify + FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify Width = 128 end @@ -98,6 +89,7 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor inherited TBXDock1: TTBXDock inherited TBXDockablePanel1: TTBXDockablePanel inherited dxLayoutControl1: TdxLayoutControl + ExplicitWidth = 550 inherited txtFiltroTodo: TcxTextEdit ExplicitWidth = 273 Width = 273 @@ -114,6 +106,10 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor end end end + inherited pnlAgrupaciones: TTBXDockablePanel + Top = 371 + ExplicitWidth = 554 + end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink ReportDocument.CreationDate = 38673.842406053240000000 diff --git a/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.pas index abd6b6f8..cca4593f 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.pas @@ -27,8 +27,6 @@ type TfrViewRemesasProveedor = class(TfrViewGrid, IViewRemesasProveedor) PngImageList: TPngImageList; cxGridViewRecID: TcxGridDBColumn; - cxGridViewID: TcxGridDBColumn; - cxGridViewID_EMPRESA: TcxGridDBColumn; cxGridViewREFERENCIA: TcxGridDBColumn; cxGridViewFECHA_REMESA: TcxGridDBColumn; cxGridViewDESCRIPCION: TcxGridDBColumn; @@ -38,8 +36,7 @@ type cxGridViewSUCURSAL: TcxGridDBColumn; cxGridViewDC: TcxGridDBColumn; cxGridViewCUENTA: TcxGridDBColumn; - cxGridViewSUFIJO_N19: TcxGridDBColumn; - cxGridViewSUFIJO_N58: TcxGridDBColumn; + cxGridViewTIPO: TcxGridDBColumn; procedure cxGridViewIDCustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index e3187706..4cf808c1 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -63,8 +63,6 @@ uses uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS', srvRecibosCliente_Impl in '..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas' {srvRecibosCliente: TDARemoteService}, srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDARemoteService}, - schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas', - schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas', uBizRemesasClienteServer in '..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas', uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule}, uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule}, @@ -96,8 +94,6 @@ uses uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule}, srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDARemoteService}, uRptRemesasProveedor_Server in '..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas' {RptRemesasProveedor: TDataModule}, - schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas', - schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas', uBizRemesasProveedorServer in '..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas', srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDARemoteService}, schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas', @@ -126,7 +122,11 @@ uses schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', - schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas'; + schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', + schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas', + schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas', + schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas', + schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res}