From 49bac5fcd92fb6a408222279569b2c9a7c57d28a Mon Sep 17 00:00:00 2001 From: roberto Date: Fri, 21 Mar 2008 11:59:09 +0000 Subject: [PATCH] =?UTF-8?q?Cambio=20general=20para=20que=20al=20visualizar?= =?UTF-8?q?=20el=20editor=20se=20haga=20un=20ancho=20autom=C3=A1tico=20(en?= =?UTF-8?q?=20el=20formshow),=20ademas=20se=20cambia=20el=20editor=20de=20?= =?UTF-8?q?pagos=20en=20recibos=20de=20proveedor=20para=20que=20sea=20igua?= =?UTF-8?q?l=20que=20el=20de=20recibos=20de=20cliente?= 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.Acana_FactuGES2/trunk@172 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Views/uEditorAlbaranesCliente.pas | 2 + .../Views/uEditorAlbaranesProveedor.pas | 2 + .../Almacenes/Views/uEditorAlmacenes.pas | Bin 4378 -> 4447 bytes .../Articulos/Views/uEditorArticulos.pas | Bin 5406 -> 5474 bytes .../Comisiones/Views/uEditorComisiones.pas | Bin 5131 -> 5199 bytes .../Contabilidad/Views/uEditorBalances.pas | Bin 4326 -> 4395 bytes .../Contabilidad/Views/uEditorCuentas.pas | Bin 4300 -> 4369 bytes .../Views/uEditorCuentasEspeciales.pas | Bin 4905 -> 4974 bytes .../Contabilidad/Views/uEditorDiario.pas | 2 + .../Contabilidad/Views/uEditorEpigrafes.pas | Bin 4435 -> 4503 bytes .../Contabilidad/Views/uEditorSubCuentas.pas | Bin 4485 -> 4552 bytes .../Contactos/Views/uEditorContactos.pas | 2 + .../Views/uEditorFacturasCliente.pas | 4 +- .../Views/uEditorFacturasProveedor.pas | 4 +- .../Views/uEditorHistoricoMovimientos.pas | Bin 7896 -> 7965 bytes .../Inventario/Views/uEditorInventario.pas | 4 +- .../Views/uEditorPedidosProveedor.pas | 4 +- .../Views/uEditorPresupuestosCliente.pas | 2 + .../Views/uEditorFechaPago.dfm | 9 +- .../Views/uEditorFechaPago.pas | 3 +- .../Views/uEditorRecibosCliente.dfm | 42 +---- .../Views/uEditorRecibosCliente.pas | 4 +- .../Views/uViewRecibosCliente.dfm | 19 +++ .../RecibosProveedor_Group.groupproj | 16 +- .../Views/RecibosProveedor_view.dpk | 3 +- .../Views/RecibosProveedor_view.dproj | 1 + .../Views/uEditorFechaPagoProveedor.dfm | 146 ++++++------------ .../Views/uEditorFechaPagoProveedor.pas | 100 ++++++------ .../Views/uEditorReciboProveedor.dfm | 74 +++++++++ .../Views/uEditorReciboProveedor.pas | 2 +- .../Views/uEditorRecibosProveedor.pas | Bin 7466 -> 7533 bytes .../Views/uEditorRemesasCliente.pas | 4 +- .../Views/uEditorRemesasProveedor.pas | 4 +- Source/Servidor/FactuGES_Server.RES | Bin 23204 -> 23204 bytes Source/Servidor/FactuGES_Server.rc | 2 +- 35 files changed, 241 insertions(+), 214 deletions(-) diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas index 8753f307..4d9e1d31 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas @@ -382,6 +382,8 @@ begin Albaranes.DataTable.Active := True; ViewGrid.GotoFirst; + //Para que coja el ancho automático + actAnchoAuto.Execute; end; function TfEditorAlbaranesCliente.GetController: IAlbaranesClienteController; diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas index 4e3625fe..4ee8b31c 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas @@ -190,6 +190,8 @@ begin Albaranes.DataTable.Active := True; ViewGrid.GotoFirst; + //Para que coja el ancho automático + actAnchoAuto.Execute; end; function TfEditorAlbaranesProveedor.GetController: IAlbaranesProveedorController; diff --git a/Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas b/Source/Modulos/Almacenes/Views/uEditorAlmacenes.pas index 24ed174e48ffaf7929fa0e70aea987a2e25e2a73..d91ac036860a8c45e79a81b49e5a1260753c1c36 100644 GIT binary patch delta 83 zcmbQGbYE$M7pJp=g1&x0Vo{<(VQH#Da(-5#LTZjeVqS7azCvPYNq+9(g(aEE`Mg{T i3W>=jjv#SIps=26MQUZN h#N-l3kgy|ARL`{{HMz7T)mi}vHg|AM;bKxy005_L8;1Y@ delta 15 WcmaE)HBW0p7uV);0u_#fYuryU6IX^2=AvH%KF)ukIUm>xyBtQ3INoI0BFPDNs hVseQiNZ1i5s^?mfnp|3vYOMeSo3pv*aWW|=005BD8!P|- delta 15 WcmX@F(XFu|muvGzt~s1c3=9A=jjv#SIps=26MQU=jjv#SIps=26MQU+{<;2b#s delta 19 bcmbQJbVhN5DCgu&oT{7aIVZ3)F)#oCMJoli diff --git a/Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.pas b/Source/Modulos/Contabilidad/Views/uEditorCuentasEspeciales.pas index dcaa71417200934ff5a7f2ea23f6af3e23e70491..b844c8d2c2e2fa8fc60621332bdedc0d3ec5499f 100644 GIT binary patch delta 95 zcmZ3f_D*esDVMW?g1&x0Vo{<(VQH#Da(-5#LTZjeVqS7azCvPYNq+9(g(aEE`Mg{T u3W>=jjv#SIps=26MQU>6chj`Z6Ct` delta 15 WcmaE-wo+|_Dc9yIu1_3H3=9A=cm)Ok diff --git a/Source/Modulos/Contabilidad/Views/uEditorDiario.pas b/Source/Modulos/Contabilidad/Views/uEditorDiario.pas index 61bdf8dc..52498b5b 100644 --- a/Source/Modulos/Contabilidad/Views/uEditorDiario.pas +++ b/Source/Modulos/Contabilidad/Views/uEditorDiario.pas @@ -67,6 +67,8 @@ begin Diario.DataTable.Active := True; ViewGrid.GotoFirst; + //Para que coja el ancho automático + actAnchoAuto.Execute; end; function TfEditorDiario.GetDiario: IBizDiario; diff --git a/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas b/Source/Modulos/Contabilidad/Views/uEditorEpigrafes.pas index b29a67c52c522d5ea0ce5f4999ec417fd95919d3..7bdba6dc586f4f556ba8ad33608749cb6e9d8b6b 100644 GIT binary patch delta 82 zcmcbtG+lXvKc|y|g1&x0Vo{<(VQH#Da(-5#LTZjeVqS7azCvPYNq+9(g(aEE`Mg{T i3W>=jjv#SIps=26MQU;0u_#fYuryU6IX^2=AvH%KF)ukIUm>xyBtQ4?!jjD7d|oaE mg~a3%N07K9P*~5kA~m_RB-L6$Ve)-W&CN?V@3S*0C;$NW7#)EC delta 19 acmX@1+^W2xmUFTSm-^=CocGz87#ILZ&;~sK diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.pas b/Source/Modulos/Contactos/Views/uEditorContactos.pas index 40cf5389..5b50fe62 100644 --- a/Source/Modulos/Contactos/Views/uEditorContactos.pas +++ b/Source/Modulos/Contactos/Views/uEditorContactos.pas @@ -66,6 +66,8 @@ begin Contactos.DataTable.Active := True; ViewGrid.GotoFirst; + //Para que coja el ancho automático + actAnchoAuto.Execute; end; function TfEditorContactos.GetContactos: IBizContacto; diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas index 359c10fc..4bbb5c11 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas @@ -211,6 +211,8 @@ begin Facturas.DataTable.Active := True; ViewGrid.GotoFirst; + //Para que coja el ancho automático + actAnchoAuto.Execute; end; function TfEditorFacturasCliente.GetController: IFacturasClienteController; @@ -378,4 +380,4 @@ begin end; end. - \ No newline at end of file + \ No newline at end of file diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas index 04b563cf..53812847 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas @@ -218,6 +218,8 @@ begin Facturas.DataTable.Active := True; ViewGrid.GotoFirst; + //Para que coja el ancho automático + actAnchoAuto.Execute; end; function TfEditorFacturasProveedor.GetController: IFacturasProveedorController; @@ -390,4 +392,4 @@ begin end; end. - \ No newline at end of file + \ No newline at end of file diff --git a/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas b/Source/Modulos/Historico de movimientos/Views/uEditorHistoricoMovimientos.pas index 8e69d231e8eaf60b9a725f926447c494b9e7b15c..697de750796e8b425f70cac09b7a53e712495951 100644 GIT binary patch delta 87 zcmca%JJ)W5tDv)jg1&x0Vo{<(VQH#Da(-5#LTZjeVqS7azCvPYNq+9(g(aEE`Mg{T m3W>=jjv#SIps=26MQU+|bP#qxv delta 19 acmbPhcf)prtKj4mS^dpB1(SH07#ILdTLvfq diff --git a/Source/Modulos/Inventario/Views/uEditorInventario.pas b/Source/Modulos/Inventario/Views/uEditorInventario.pas index f37a4e8e..6f844ad0 100644 --- a/Source/Modulos/Inventario/Views/uEditorInventario.pas +++ b/Source/Modulos/Inventario/Views/uEditorInventario.pas @@ -147,6 +147,8 @@ begin Inventario.DataTable.Active := True; actContraer.Execute; ViewGrid.GotoFirst; + //Para que coja el ancho automático + actAnchoAuto.Execute; end; procedure TfEditorInventario.actModificarExecute(Sender: TObject); @@ -371,4 +373,4 @@ end; end. - \ No newline at end of file + \ No newline at end of file diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas index fd19b745..3cafc3ff 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas @@ -194,6 +194,8 @@ begin Pedidos.DataTable.Active := True; ViewGrid.GotoFirst; + //Para que coja el ancho automático + actAnchoAuto.Execute; end; function TfEditorPedidosProveedor.GetController: IPedidosProveedorController; @@ -347,4 +349,4 @@ begin end; end. - \ No newline at end of file + \ No newline at end of file diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas index 824097fa..03456b0c 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas @@ -265,6 +265,8 @@ begin Presupuestos.DataTable.Active := True; ViewGrid.GotoFirst; + //Para que coja el ancho automático + actAnchoAuto.Execute; end; function TfEditorPresupuestosCliente.GetController: IPresupuestosClienteController; diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm index 186b7aa0..a6c4ed31 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.dfm @@ -3,7 +3,7 @@ object fEditorFechaPago: TfEditorFechaPago Top = 0 BorderStyle = bsDialog Caption = 'Fecha del cobro / devoluci'#243'n' - ClientHeight = 213 + ClientHeight = 184 ClientWidth = 535 Color = clWindow Font.Charset = DEFAULT_CHARSET @@ -53,13 +53,14 @@ object fEditorFechaPago: TfEditorFechaPago end object Panel1: TPanel Left = 0 - Top = 172 + Top = 143 Width = 535 Height = 41 Align = alBottom TabOrder = 1 + ExplicitTop = 172 object bAceptar: TButton - Left = 41 + Left = 39 Top = 8 Width = 75 Height = 25 @@ -68,7 +69,7 @@ object fEditorFechaPago: TfEditorFechaPago TabOrder = 0 end object bCancelar: TButton - Left = 122 + Left = 120 Top = 8 Width = 75 Height = 25 diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas index b30b1608..fddebf44 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorFechaPago.pas @@ -58,8 +58,7 @@ begin FechaPago := eFechaPago.Date; end; -procedure TfEditorFechaPago.FormCloseQuery(Sender: TObject; - var CanClose: Boolean); +procedure TfEditorFechaPago.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := True; diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm index b43b6166..cb401ac2 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm @@ -3,7 +3,7 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente ClientHeight = 561 ClientWidth = 645 ExplicitWidth = 653 - ExplicitHeight = 588 + ExplicitHeight = 595 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -75,34 +75,6 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente Height = 312 ExplicitWidth = 645 ExplicitHeight = 312 - inherited cxGridView: TcxGridDBTableView - DataController.Summary.DefaultGroupSummaryItems = < - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Position = spFooter - Column = frViewRecibosCliente1.cxGridViewIMPORTE_TOTAL - end> - DataController.Summary.FooterSummaryItems = < - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Column = frViewRecibosCliente1.cxGridViewIMPORTE_TOTAL - end - item - Format = '0 recibos' - Kind = skCount - Column = frViewRecibosCliente1.cxGridViewREFERENCIA - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - Column = frViewRecibosCliente1.cxGridViewIMPORTE - end - item - Format = ',0.00 '#8364';-,0.00 '#8364 - Kind = skSum - Column = frViewRecibosCliente1.cxGridViewOTROS_GASTOS - end> - end end inherited frViewFiltroBase1: TfrViewFiltroBase Width = 645 @@ -112,17 +84,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente inherited dxLayoutControl1: TdxLayoutControl Width = 645 ExplicitWidth = 645 - inherited txtFiltroTodo: TcxTextEdit - ExplicitWidth = 273 - Width = 273 - end - inherited edtFechaIniFiltro: TcxDateEdit - ExplicitWidth = 121 - Width = 121 - end inherited edtFechaFinFiltro: TcxDateEdit - Left = 298 - ExplicitLeft = 298 + Left = 301 + ExplicitLeft = 301 ExplicitWidth = 244 Width = 244 end diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas index 63286d51..9d2e0963 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas @@ -168,7 +168,9 @@ begin raise Exception.Create('No hay ningún objeto asignado'); FRecibosCliente.DataTable.Active := True; - ViewGrid.GotoFirst; + ViewGrid.GotoFirst; + //Para que coja el ancho automático + actAnchoAuto.Execute; end; function TfEditorRecibosCliente.GetController: IRecibosClienteController; diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm index df90e81a..e00d67df 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm @@ -46,28 +46,33 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente object cxGridViewREFERENCIA: TcxGridDBColumn Caption = 'Referencia' DataBinding.FieldName = 'REFERENCIA' + BestFitMaxWidth = 60 Width = 64 end object cxGridViewID_TIENDA: TcxGridDBColumn DataBinding.FieldName = 'ID_TIENDA' Visible = False + BestFitMaxWidth = 20 VisibleForCustomization = False end object cxGridViewTIENDA: TcxGridDBColumn Caption = 'Tienda' DataBinding.FieldName = 'TIENDA' + BestFitMaxWidth = 60 end object cxGridViewID_RECIBO_COMPENSADO: TcxGridDBColumn Caption = 'Compensado' DataBinding.FieldName = 'ID_RECIBO_COMPENSADO' Visible = False OnCustomDrawCell = cxGridViewID_RECIBO_COMPENSADOCustomDrawCell + BestFitMaxWidth = 20 VisibleForCustomization = False end object cxGridViewREFERENCIA_REC_COMPENSADO: TcxGridDBColumn Caption = 'Ref. recibo compensado' DataBinding.FieldName = 'REFERENCIA_REC_COMPENSADO' Visible = False + BestFitMaxWidth = 70 VisibleForCustomization = False end object cxGridViewSITUACION: TcxGridDBColumn @@ -90,31 +95,37 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente ImageIndex = 1 Value = 'DEVUELTO' end> + BestFitMaxWidth = 80 Width = 50 end object cxGridViewFECHA_EMISION: TcxGridDBColumn Caption = 'Fecha emisi'#243'n' DataBinding.FieldName = 'FECHA_EMISION' + BestFitMaxWidth = 70 Width = 36 end object cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn Caption = 'Fecha vencimiento' DataBinding.FieldName = 'FECHA_VENCIMIENTO' + BestFitMaxWidth = 70 Width = 40 end object cxGridViewDESCRIPCION: TcxGridDBColumn Caption = 'Descripci'#243'n' DataBinding.FieldName = 'DESCRIPCION' Visible = False + BestFitMaxWidth = 150 end object cxGridViewNIF_CIF_CLIENTE: TcxGridDBColumn Caption = 'NIF/CIF' DataBinding.FieldName = 'NIF_CIF_CLIENTE' Visible = False + BestFitMaxWidth = 70 end object cxGridViewNOMBRE_CLIENTE: TcxGridDBColumn Caption = 'Cliente' DataBinding.FieldName = 'NOMBRE_CLIENTE' + BestFitMaxWidth = 150 Width = 51 end object cxGridViewIMPORTE: TcxGridDBColumn @@ -122,6 +133,7 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente DataBinding.FieldName = 'IMPORTE' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify + BestFitMaxWidth = 60 FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify Width = 56 @@ -131,6 +143,7 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente DataBinding.FieldName = 'OTROS_GASTOS' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify + BestFitMaxWidth = 60 HeaderAlignmentHorz = taRightJustify Width = 55 end @@ -139,6 +152,7 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente DataBinding.FieldName = 'IMPORTE_TOTAL' PropertiesClassName = 'TcxCurrencyEditProperties' Properties.Alignment.Horz = taRightJustify + BestFitMaxWidth = 70 FooterAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify Width = 117 @@ -146,6 +160,11 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente object cxGridViewREFERENCIA_REMESA: TcxGridDBColumn Caption = 'Ref. remesa' DataBinding.FieldName = 'REFERENCIA_REMESA' + PropertiesClassName = 'TcxTextEditProperties' + Properties.Alignment.Horz = taRightJustify + BestFitMaxWidth = 70 + GroupSummaryAlignment = taRightJustify + HeaderAlignmentHorz = taRightJustify Width = 48 end end diff --git a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj index 8350060c..027bd3c5 100644 --- a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj +++ b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj @@ -9,6 +9,7 @@ + @@ -151,14 +152,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk index 3ef4a1e4..13e339bc 100644 --- a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk +++ b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dpk @@ -29,7 +29,8 @@ requires RecibosProveedor_controller, RecibosProveedor_model, JvGlobusD11R, - Contactos_view; + Contactos_view, + Contabilidad_view; contains uEditorRecibosProveedor in 'uEditorRecibosProveedor.pas' {fEditorRecibosProveedor: TfEditorRecibosCliente}, diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj index ecc88d67..4d9de269 100644 --- a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj +++ b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj @@ -46,6 +46,7 @@ MainSource + diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm index 18b612b8..8c21093d 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.dfm @@ -3,8 +3,8 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor Top = 0 BorderStyle = bsDialog Caption = 'Fecha del cobro / devoluci'#243'n' - ClientHeight = 289 - ClientWidth = 409 + ClientHeight = 193 + ClientWidth = 510 Color = clWindow Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -13,34 +13,32 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor Font.Style = [] OldCreateOrder = False Position = poScreenCenter - OnClose = FormClose + OnCloseQuery = FormCloseQuery + OnCreate = FormCreate OnShow = FormShow - DesignSize = ( - 409 - 289) PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel - Left = 21 - Top = 16 - Width = 246 - Height = 26 + Left = 38 + Top = 8 + Width = 362 + Height = 13 Caption = - 'Introduzca la fecha en la que se ha hecho efectivo '#13#10'el cobro o ' + - 'la devoluci'#243'n:' + 'Introduzca la fecha en la que se ha hecho efectivo el cobro o la' + + ' devoluci'#243'n:' end object Label2: TLabel - Left = 38 - Top = 67 - Width = 33 + Left = 39 + Top = 43 + Width = 80 Height = 13 Alignment = taRightJustify - Caption = 'Fecha:' + Caption = 'Fecha del cobro:' FocusControl = eFechaPago end object eFechaPago: TcxDateEdit - Left = 77 - Top = 64 + Left = 125 + Top = 40 Properties.OnChange = eFechaPagoPropertiesChange Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True @@ -55,25 +53,24 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor end object Panel1: TPanel Left = 0 - Top = 248 - Width = 409 + Top = 152 + Width = 510 Height = 41 Align = alBottom TabOrder = 1 - ExplicitTop = 126 - ExplicitWidth = 283 + ExplicitTop = 248 + ExplicitWidth = 409 object bAceptar: TButton - Left = 119 + Left = 38 Top = 8 Width = 75 Height = 25 Caption = 'Aceptar' ModalResult = 1 TabOrder = 0 - OnClick = bAceptarClick end object bCancelar: TButton - Left = 200 + Left = 119 Top = 8 Width = 75 Height = 25 @@ -82,81 +79,30 @@ object fEditorFechaPagoProveedor: TfEditorFechaPagoProveedor TabOrder = 1 end end - object eContabilizar: TcxCheckBox - Left = 38 - Top = 120 - Caption = 'Ignorar en contabiliad' - Properties.ValueChecked = 1 - Properties.ValueUnchecked = 0 - Properties.OnChange = eContabilizarPropertiesChange + inline frViewListaSubcuentas1: TfrViewListaSubcuentas + Left = 30 + Top = 80 + Width = 453 + Height = 69 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False TabOrder = 2 - Width = 203 - end - object eRefSubCuenta: TcxTextEdit - Left = 39 - Top = 147 - Anchors = [akLeft, akTop, akRight] - AutoSize = False - Properties.ReadOnly = True - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = 14745599 - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 3 - Height = 21 - Width = 215 - end - object eSubCuenta: TcxTextEdit - Left = 38 - Top = 174 - Anchors = [akLeft, akTop, akRight] - AutoSize = False - Properties.ReadOnly = True - Properties.ValidateOnEnter = True - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = 14745599 - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 4 - Height = 21 - Width = 297 - end - object eIDSubcuenta: TcxTextEdit - Left = 38 - Top = 201 - Anchors = [akLeft, akTop, akRight] - AutoSize = False - Properties.ReadOnly = True - Properties.ValidateOnEnter = True - Properties.OnChange = eIDSubcuentaPropertiesChange - Style.BorderColor = clWindowFrame - Style.BorderStyle = ebs3D - Style.Color = 14745599 - Style.HotTrack = False - Style.LookAndFeel.NativeStyle = True - StyleDisabled.LookAndFeel.NativeStyle = True - StyleFocused.LookAndFeel.NativeStyle = True - StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 5 - Height = 21 - Width = 43 - end - object BitBtn3: TBitBtn - Left = 260 - Top = 143 - Width = 75 - Height = 25 - Caption = 'Elegir subcuenta' - TabOrder = 6 - OnClick = BitBtn3Click + ReadOnly = False + ExplicitLeft = 30 + ExplicitTop = 80 + inherited dxLayoutControl1: TdxLayoutControl + inherited cbSubCuentas: TcxComboBox + ExplicitWidth = 376 + Width = 376 + end + inherited eContabilizar: TcxCheckBox + ExplicitWidth = 203 + Width = 203 + end + end end end diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas index d7ee08e8..59d73a8c 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorFechaPagoProveedor.pas @@ -6,7 +6,8 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, ExtCtrls, uEditorBasico, uIEditorFechaPagoProveedor, - uSubCuentasController, Buttons, cxCheckBox; + uSubCuentasController, Buttons, cxCheckBox, uCustomView, uViewBase, + uViewListaSubCuentas; type TfEditorFechaPagoProveedor = class(TfEditorBasico, IEditorFechaPagoProveedor) @@ -16,22 +17,13 @@ type bCancelar: TButton; Label2: TLabel; Panel1: TPanel; - eContabilizar: TcxCheckBox; - eRefSubCuenta: TcxTextEdit; - eSubCuenta: TcxTextEdit; - eIDSubcuenta: TcxTextEdit; - BitBtn3: TBitBtn; + frViewListaSubcuentas1: TfrViewListaSubcuentas; procedure FormShow(Sender: TObject); procedure eFechaPagoPropertiesChange(Sender: TObject); - procedure BitBtn3Click(Sender: TObject); - procedure eContabilizarPropertiesChange(Sender: TObject); - procedure FormClose(Sender: TObject; var Action: TCloseAction); - procedure eIDSubcuentaPropertiesChange(Sender: TObject); - procedure bAceptarClick(Sender: TObject); + procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); + procedure FormCreate(Sender: TObject); + private - FController : ISubcuentasController; - FIdSubCuenta : Integer; - FIgnorarContabilidad : Integer; FFechaPago : TDateTime; function GetFechaPago: TDateTime; procedure SetFechaPago(const Value: TDateTime); @@ -44,42 +36,18 @@ type property FechaPago: TDateTime Read GetFechaPago write SetFechaPago; property IgnorarContabilidad: Integer Read GetIgnorarContabilidad write SetIgnorarContabilidad; property IdSubCuenta: Integer Read GetIdSubCuenta write SetIdSubCuenta; - constructor Create(AOwner: TComponent); override; - procedure DeshabilitarContabilidad; + procedure DeshabilitarContabilidad; end; implementation {$R *.dfm} +{$INCLUDE ..\..\..\FactuGES.inc} -uses uBizSubCuentas; +uses uDialogUtils; -procedure TfEditorFechaPagoProveedor.bAceptarClick(Sender: TObject); +procedure TfEditorFechaPagoProveedor.DeshabilitarContabilidad; begin - if (not eContabilizar.Checked) - and (eIdSubcuenta.Text = '') then - raise Exception.Create ('Es necesario que elija la SubCuenta donde se realizará el pago'); -end; - -procedure TfEditorFechaPagoProveedor.BitBtn3Click(Sender: TObject); -var - ASubCuenta: IBizSubcuenta; -begin - ASubCuenta := FController.ElegirSubCuenta(FController.BuscarTodos,'sssss', False); - eIDSubcuenta.Text := IntToStr(ASubcuenta.ID); - eRefSubCuenta.Text := ASubcuenta.REF_SUBCUENTA; - eSubCuenta.Text := ASubcuenta.DESCRIPCION; - ASubCuenta := Nil; -end; - -constructor TfEditorFechaPagoProveedor.Create(AOwner: TComponent); -begin - inherited; - FController := TSubcuentasController.Create; -end; - -procedure TfEditorFechaPagoProveedor.eContabilizarPropertiesChange(Sender: TObject); -begin - FIgnorarContabilidad := eContabilizar.EditValue; + frViewListaSubCuentas1.eContabilizar.Enabled := False; end; procedure TfEditorFechaPagoProveedor.eFechaPagoPropertiesChange(Sender: TObject); @@ -87,21 +55,43 @@ begin FechaPago := eFechaPago.Date; end; -procedure TfEditorFechaPagoProveedor.eIDSubcuentaPropertiesChange(Sender: TObject); +procedure TfEditorFechaPagoProveedor.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin - if not VarIsNull(eIDSubCuenta.EditValue) then - FIDSubCuenta := eIDSubCuenta.EditValue; + CanClose := True; + + if Self.ModalResult = mrOk then + begin + if (length(eFechaPago.EditValue) = 0) then + begin + CanClose := False; + ShowWarningMessage('Debe establecer la fecha del pago'); + end; + + if ((IgnorarContabilidad = 0) and (IdSubCuenta < 1)) then + begin + CanClose := False; + ShowWarningMessage('Debe establecer la caja o banco donde se realiza el pago'); + end + end; end; -procedure TfEditorFechaPagoProveedor.FormClose(Sender: TObject; var Action: TCloseAction); +procedure TfEditorFechaPagoProveedor.FormCreate(Sender: TObject); begin - FController := Nil; + {$IFDEF CONTABILIDAD} + frViewListaSubCuentas1.TipoSubCuenta := tCajas; + {$ENDIF} end; procedure TfEditorFechaPagoProveedor.FormShow(Sender: TObject); begin if (length(eFechaPago.Text) = 0) then eFechaPago.Date := Date; + + {$IFDEF CONTABILIDAD} + frViewListaSubCuentas1.Visible := true; + {$ELSE} + frViewListaSubCuentas1.Visible := false; + {$ENDIF} end; function TfEditorFechaPagoProveedor.GetFechaPago: TDateTime; @@ -111,31 +101,29 @@ end; function TfEditorFechaPagoProveedor.GetIdSubCuenta: Integer; begin - Result := eIDSubCuenta.EditValue; //FIdSubCuenta; + Result := frViewListaSubCuentas1.IdSubCuenta; end; function TfEditorFechaPagoProveedor.GetIgnorarContabilidad: Integer; begin - Result := FIgnorarContabilidad; + Result := frViewListaSubCuentas1.eContabilizar.EditValue; end; procedure TfEditorFechaPagoProveedor.SetFechaPago(const Value: TDateTime); begin FFechaPago := Value; + eFechaPago.EditValue := FFechaPago; end; procedure TfEditorFechaPagoProveedor.SetIdSubCuenta(const Value: Integer); begin - FIdSubCuenta := Value; + frViewListaSubCuentas1.ElegirSubCuenta(Value); end; procedure TfEditorFechaPagoProveedor.SetIgnorarContabilidad(const Value: Integer); begin - FIgnorarContabilidad := Value; - eContabilizar.EditValue := FIgnorarContabilidad; - //frViewListaSubCuentas1.eContabilizar.EditValue := Value; - // frViewListaSubCuentas1.Refrescar; - + frViewListaSubCuentas1.eContabilizar.EditValue := Value; + frViewListaSubCuentas1.Refrescar; end; end. diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm index d7795af6..c2faded8 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm @@ -84,6 +84,18 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor DesignSize = ( 677 350) + inherited eReferencia: TcxDBTextEdit + ExplicitWidth = 50 + Width = 50 + end + inherited eSituacion: TcxDBTextEdit + ExplicitWidth = 216 + Width = 216 + end + inherited edtFechaVencimiento: TcxDBDateEdit + ExplicitWidth = 216 + Width = 216 + end inherited memObservaciones: TcxDBMemo ExplicitWidth = 274 Width = 274 @@ -91,19 +103,27 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor inherited eFechaEmision: TcxDBTextEdit Left = 481 ExplicitLeft = 481 + ExplicitWidth = 20 + Width = 20 end inherited eFormaPago: TcxDBTextEdit Left = 481 ExplicitLeft = 481 + ExplicitWidth = 42 + Width = 42 end inherited eImporteTotal: TcxDBCurrencyEdit Left = 481 Style.IsFontAssigned = True ExplicitLeft = 481 + ExplicitWidth = 182 + Width = 182 end inherited eNombreCliente: TcxDBTextEdit Left = 481 ExplicitLeft = 481 + ExplicitWidth = 171 + Width = 171 end inherited eNifCif: TcxDBTextEdit Left = 481 @@ -114,10 +134,14 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor inherited eEntidad: TcxDBTextEdit Left = 481 ExplicitLeft = 481 + ExplicitWidth = 90 + Width = 90 end inherited eSucursal: TcxDBTextEdit Left = 556 ExplicitLeft = 556 + ExplicitWidth = 75 + Width = 75 end inherited eDC: TcxDBTextEdit Left = 605 @@ -126,6 +150,12 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor inherited eCuenta: TcxDBTextEdit Left = 481 ExplicitLeft = 481 + ExplicitWidth = 83 + Width = 83 + end + inherited eRemesa: TcxDBTextEdit + ExplicitWidth = 113 + Width = 113 end inherited edtFechaEmision: TcxDBDateEdit ExplicitWidth = 97 @@ -138,13 +168,42 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor inherited rReferenciaFacturaProv: TcxDBTextEdit Left = 481 ExplicitLeft = 481 + ExplicitWidth = 157 + Width = 157 + end + inherited rRefReciboCompensado: TcxDBTextEdit + ExplicitWidth = 216 + Width = 216 end inherited frViewProveedorRecibo: TfrViewDatosYSeleccionProveedor Left = 384 Top = 299 + Width = 350 ExplicitLeft = 384 ExplicitTop = 299 + ExplicitWidth = 350 inherited dxLayoutControl1: TdxLayoutControl + Width = 350 + inherited edtlNombre: TcxDBTextEdit + ExplicitWidth = 276 + Width = 276 + end + inherited edtNIFCIF: TcxDBTextEdit + ExplicitWidth = 562 + Width = 562 + end + inherited edtCalle: TcxDBTextEdit + ExplicitWidth = 562 + Width = 562 + end + inherited edtPoblacion: TcxDBTextEdit + ExplicitWidth = 177 + Width = 177 + end + inherited edtProvincia: TcxDBTextEdit + ExplicitWidth = 327 + Width = 327 + end inherited edtCodigoPostal: TcxDBTextEdit Left = 203 ExplicitLeft = 203 @@ -155,6 +214,21 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor end end end + inherited frViewTienda1: TfrViewTienda + Width = 451 + ExplicitWidth = 451 + inherited dxLayoutControl1: TdxLayoutControl + Width = 451 + inherited cbTienda: TcxComboBox + ExplicitWidth = 376 + Width = 376 + end + end + end + inherited eDescripcion: TcxDBTextEdit + ExplicitWidth = 407 + Width = 407 + end end end end diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas index 2cd8a91f..9013dd7f 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas @@ -153,7 +153,7 @@ begin begin //En el caso de que el proveedor del recibo no tenga aignada subcuenta contable el pago no podrá contabilizar - if (Recibo.Cliente.SubCuentas.ID < 1) then + if (Recibo.Proveedor.SubCuentas.ID < 1) then begin IgnorarContabilidad := 1; DeshabilitarContabilidad; diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas index 4985a3fd01b0441fd2390bfde63b9a06a6b97983..0c6fba6b0ef70cae22282da16a62bf3576e5429e 100644 GIT binary patch delta 85 zcmZ2w_10=jjv#SIps=26MQU