diff --git a/Source/GUIBase/GUIBase.res b/Source/GUIBase/GUIBase.res index 1641339..8b251f3 100644 Binary files a/Source/GUIBase/GUIBase.res and b/Source/GUIBase/GUIBase.res differ diff --git a/Source/Informes/2/InfFacturaCliente.fr3 b/Source/Informes/2/InfFacturaCliente.fr3 index 8816144..d878e4f 100644 --- a/Source/Informes/2/InfFacturaCliente.fr3 +++ b/Source/Informes/2/InfFacturaCliente.fr3 @@ -1,82 +1,82 @@ - + - - - + + + - - - + + + - - + + - + - + - + - - - + + + - + - + - - + + - - + + - - - - + + + + - + - - + + - + - - - + + + - - + + - + - + - + diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas index d1e66a5..1b3b3f4 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas @@ -241,10 +241,14 @@ begin FCliente.DataTable.Active := True; ID_CLIENTE := FCliente.ID; - if (ID_FORMA_PAGO = 0) and (FCliente.ID_FORMA_PAGO > 0) then + + //Si la empresa tiene asociada una forma de pago por defecto tiene prioridad sobre la forma de pago del cliente + if (AppFactuGES.EmpresaActiva.ID_FORMA_PAGO > 0) then + ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO + else if (FCliente.ID_FORMA_PAGO > 0) then ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; DESCUENTO := FCliente.DESCUENTO; - DESCUENTO2 := FCliente.DESCUENTO2; + DESCUENTO2 := FCliente.DESCUENTO2; Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles //si se quita el id de la cabecera y los detalles se desincroniza diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm index 3d73d2d..67be2f6 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm @@ -200,94 +200,109 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente ExplicitHeight = 354 inherited ToolBar1: TToolBar Width = 841 - Height = 46 + Height = 51 ExplicitWidth = 841 - ExplicitHeight = 46 + ExplicitHeight = 51 inherited ToolButton3: TToolButton Wrap = False end inherited ToolButton4: TToolButton Left = 278 Top = 0 - Wrap = True ExplicitLeft = 278 ExplicitTop = 0 end - inherited FontName: TJvFontComboBox - Left = 0 + inherited ToolButton14: TToolButton [4] + Left = 334 + Top = 0 + Wrap = False ExplicitLeft = 334 ExplicitTop = 0 end - inherited ToolButton14: TToolButton - Left = 479 + inherited FontName: TJvFontComboBox [5] + Left = 399 Top = 0 - ExplicitLeft = 479 + ExplicitLeft = 399 ExplicitTop = 0 end inherited FontSize: TEdit - Top = 22 + Left = 544 + Top = 0 Width = 218 - ExplicitTop = 22 + ExplicitLeft = 544 + ExplicitTop = 0 ExplicitWidth = 218 end - inherited UpDown1: TUpDown - Left = 218 - Top = 22 - ExplicitLeft = 218 - ExplicitTop = 22 + inherited ToolButton13: TToolButton [7] + Left = 0 + Top = 0 + Wrap = True + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitHeight = 27 end - inherited ToolButton9: TToolButton - Left = 235 - Top = 22 - ExplicitLeft = 235 - ExplicitTop = 22 + inherited UpDown1: TUpDown [8] + Left = 0 + Top = 27 + ExplicitLeft = 0 + ExplicitTop = 27 end - inherited ToolButton12: TToolButton - Top = 22 - ExplicitTop = 22 + inherited ToolButton6: TToolButton [9] + Left = 17 + Top = 27 + ExplicitLeft = 17 + ExplicitTop = 27 end - inherited ToolButton6: TToolButton - Top = 52 - ExplicitTop = 52 + inherited ToolButton7: TToolButton [10] + Left = 83 + Top = 27 + ExplicitLeft = 83 + ExplicitTop = 27 end - inherited ToolButton7: TToolButton - Top = 52 - ExplicitTop = 52 - end - inherited ToolButton8: TToolButton - Top = 52 + inherited ToolButton8: TToolButton [11] + Left = 150 + Top = 27 Wrap = False - ExplicitTop = 52 + ExplicitLeft = 150 + ExplicitTop = 27 end - inherited ToolButton10: TToolButton - Left = 216 - Top = 52 - ExplicitLeft = 216 - ExplicitTop = 52 + inherited ToolButton12: TToolButton [12] + Left = 233 + Top = 27 + Wrap = False + ExplicitLeft = 233 + ExplicitTop = 27 + ExplicitHeight = 22 end - inherited ToolButton13: TToolButton - Left = 341 - Top = 52 - ExplicitLeft = 341 - ExplicitTop = 52 + inherited ToolButton9: TToolButton [13] + Left = 241 + Top = 27 + ExplicitLeft = 241 + ExplicitTop = 27 + end + inherited ToolButton10: TToolButton [14] + Left = 386 + Top = 27 + ExplicitLeft = 386 + ExplicitTop = 27 end inherited ToolButton11: TToolButton - Left = 349 - Top = 52 - ExplicitLeft = 349 - ExplicitTop = 52 + Left = 511 + Top = 27 + ExplicitLeft = 511 + ExplicitTop = 27 end end inherited cxGrid: TcxGrid - Top = 99 + Top = 77 Width = 841 - Height = 255 + Height = 277 ExplicitTop = 77 ExplicitWidth = 841 ExplicitHeight = 277 end inherited TBXDock1: TSpTBXDock - Top = 73 + Top = 51 Width = 841 ExplicitTop = 51 ExplicitWidth = 841 @@ -377,18 +392,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente ExplicitWidth = 855 ExplicitHeight = 143 inherited Bevel3: TBevel - Left = 338 + Left = 437 Height = 201 - ExplicitLeft = 338 + ExplicitLeft = 437 ExplicitHeight = 201 end inherited Bevel4: TBevel - Left = 471 - Width = 342 - Height = 9 - ExplicitLeft = 471 - ExplicitWidth = 342 - ExplicitHeight = 9 + Left = 570 + ExplicitLeft = 570 end inherited ImporteDto: TcxDBCurrencyEdit Style.LookAndFeel.SkinName = '' @@ -398,24 +409,22 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente StyleHot.LookAndFeel.SkinName = '' end inherited ImporteIVA: TcxDBCurrencyEdit - Left = 542 + Left = 641 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 542 + ExplicitLeft = 641 end inherited ImporteTotal: TcxDBCurrencyEdit - Left = 471 + Left = 570 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 471 - ExplicitWidth = 90 - Width = 90 + ExplicitLeft = 570 end inherited edtDescuento: TcxDBSpinEdit Style.LookAndFeel.SkinName = '' @@ -425,41 +434,41 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente StyleHot.LookAndFeel.SkinName = '' end inherited edtIVA: TcxDBSpinEdit - Left = 471 + Left = 570 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 471 + ExplicitLeft = 570 end inherited ImporteBase: TcxDBCurrencyEdit - Left = 471 + Left = 570 DataBinding.DataField = 'IMPORTE_NETO' Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 471 + ExplicitLeft = 570 end inherited edtRE: TcxDBSpinEdit - Left = 471 + Left = 570 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 471 + ExplicitLeft = 570 end inherited ImporteRE: TcxDBCurrencyEdit - Left = 542 + Left = 641 Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 542 + ExplicitLeft = 641 end inherited eImporteNeto: TcxDBCurrencyEdit Style.LookAndFeel.SkinName = '' @@ -482,20 +491,14 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente StyleHot.LookAndFeel.SkinName = '' end inherited bTiposIVA: TButton - Left = 190 - ExplicitLeft = 190 + Left = 289 + ExplicitLeft = 289 end inherited cbRecargoEquivalencia: TcxDBCheckBox Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 221 - Width = 221 - end - inherited Panel1: TPanel - Width = 185 - ExplicitWidth = 185 end end end diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas index 3cfe555..a0f6313 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas @@ -235,8 +235,14 @@ begin FAlbaran.Cliente := ViewAlbaran.ViewClienteAlbaran.Cliente; // Avisar si no hay datos bancarios - {if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then - ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha');} +// if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then +// ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha'); + + if Assigned(ViewAlbaran) then + begin + ViewAlbaran.RellenarCuentasBancarias; + ViewAlbaran.AsignarCuentaBancaria; + end; // Elegir la dirección de envio { case FAlbaran.Cliente.Direcciones.RecordCount of @@ -266,6 +272,7 @@ begin FAlbaran.IMPORTE_PORTE := 0; end; } + // Si el pedido tiene detalles hay que mirar si los descuentos // para los artículos hay que cambiarlos. if (FAlbaran.Detalles.RecordCount > 0) then diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm index 22f34ab..8f080df 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm @@ -19,7 +19,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente 542) object Label1: TLabel Left = 22 - Top = 443 + Top = 507 Width = 299 Height = 26 Caption = @@ -30,7 +30,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object edtFechaAlbaran: TcxDBDateEdit Left = 116 - Top = 18 + Top = 82 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ALBARAN' DataBinding.DataSource = DADataSource @@ -60,7 +60,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object memObservaciones: TcxDBMemo Left = 22 - Top = 510 + Top = 574 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource @@ -82,7 +82,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object eReferencia: TcxDBTextEdit Left = 116 - Top = -36 + Top = 28 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA' DataBinding.DataSource = DADataSource @@ -111,7 +111,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object eCalle: TcxDBTextEdit Left = 116 - Top = 217 + Top = 281 DataBinding.DataField = 'CALLE' DataBinding.DataSource = DADataSource Enabled = False @@ -135,7 +135,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object eCodigoPostal: TcxDBTextEdit Left = 375 - Top = 244 + Top = 308 DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataSource = DADataSource Enabled = False @@ -159,7 +159,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object ePersonaContacto: TcxDBTextEdit Left = 116 - Top = 298 + Top = 362 DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataSource = DADataSource Enabled = False @@ -184,7 +184,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object eTlfTrabajo: TcxDBTextEdit Left = 116 - Top = 325 + Top = 389 DataBinding.DataField = 'TELEFONO' DataBinding.DataSource = DADataSource Enabled = False @@ -208,7 +208,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object bElegirDireccion: TBitBtn Left = 268 - Top = 352 + Top = 416 Width = 172 Height = 23 Action = actElegirDireccion @@ -218,7 +218,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object Button1: TButton Left = 308 - Top = 45 + Top = 109 Width = 132 Height = 23 Action = actVerPedidoCli @@ -227,7 +227,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object eReferenciaPedidoCli: TcxTextEdit Left = 116 - Top = 45 + Top = 109 Anchors = [akLeft, akTop, akRight] Enabled = False Properties.ReadOnly = False @@ -254,7 +254,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object cbFormaPago: TcxDBLookupComboBox Left = 116 - Top = 104 + Top = 168 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' @@ -288,7 +288,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object bFormasPago: TButton Left = 308 - Top = 104 + Top = 168 Width = 132 Height = 23 Caption = 'Ver las formas de pago...' @@ -297,7 +297,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object eFechaRecepcion: TcxDBDateEdit Left = 604 - Top = 235 + Top = 299 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_RECEPCION' DataBinding.DataSource = DADataSource @@ -327,7 +327,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object cbConAlmacen: TCheckBox Left = 32 - Top = 411 + Top = 475 Width = 179 Height = 21 Caption = 'Asociar este albar'#225'n al almac'#233'n:' @@ -337,7 +337,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object cbAlmacen: TcxDBLookupComboBox Left = 217 - Top = 411 + Top = 475 DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataSource = DADataSource Enabled = False @@ -372,7 +372,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object eRefFacturaCli: TcxDBTextEdit Left = 116 - Top = 160 + Top = 224 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REF_FACTURA' DataBinding.DataSource = DADataSource @@ -401,7 +401,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object eFechaPrevista: TcxDBDateEdit Left = 604 - Top = 181 + Top = 245 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' DataBinding.DataSource = DADataSource @@ -433,7 +433,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object eRefCliente: TcxDBTextEdit Left = 116 - Top = -9 + Top = 55 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_CLIENTE' DataBinding.DataSource = DADataSource @@ -463,7 +463,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object eFechaEnvio: TcxDBDateEdit Left = 604 - Top = 208 + Top = 272 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ENVIO' DataBinding.DataSource = DADataSource @@ -493,7 +493,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object cbProvincia: TcxDBComboBox Left = 116 - Top = 244 + Top = 308 DataBinding.DataField = 'PROVINCIA' DataBinding.DataSource = DADataSource Enabled = False @@ -523,7 +523,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object cbPoblacion: TcxDBComboBox Left = 116 - Top = 271 + Top = 335 DataBinding.DataField = 'POBLACION' DataBinding.DataSource = DADataSource Enabled = False @@ -553,7 +553,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end inline frViewDatosYSeleccionClienteAlbaran1: TfrViewDatosYSeleccionClienteAlbaran Left = 470 - Top = -36 + Top = 28 Width = 406 Height = 181 Font.Charset = DEFAULT_CHARSET @@ -565,7 +565,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente TabOrder = 18 ReadOnly = False ExplicitLeft = 470 - ExplicitTop = -36 + ExplicitTop = 28 ExplicitWidth = 406 ExplicitHeight = 181 inherited dxLayoutControl1: TdxLayoutControl @@ -578,8 +578,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitWidth = 224 - Width = 224 end inherited edtNIFCIF: TcxDBTextEdit Left = 281 @@ -602,8 +600,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 110 - ExplicitWidth = 283 - Width = 283 end inherited edtDireccion: TcxMemo Style.LookAndFeel.SkinName = '' @@ -645,7 +641,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object cbCuentaBancaria: TcxDBComboBox Left = 116 - Top = 133 + Top = 197 DataBinding.DataField = 'DATOS_BANCARIOS' DataBinding.DataSource = DADataSource Properties.DropDownListStyle = lsFixedList diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas index 889680c..4d4deac 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas @@ -33,6 +33,9 @@ type function GetViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran; property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran; + + procedure RellenarCuentasBancarias; + procedure AsignarCuentaBancaria; end; TfrViewAlbaranCliente = class(TfrViewBase, IViewAlbaranCliente) @@ -139,7 +142,6 @@ type procedure CargarProvincias; procedure CargarPoblaciones; - procedure RellenarCuentasBancarias; function GetAlbaran: IBizAlbaranCliente; procedure SetAlbaran(const Value: IBizAlbaranCliente); virtual; @@ -152,6 +154,9 @@ type property Albaran: IBizAlbaranCliente read GetAlbaran write SetAlbaran; property ViewClienteAlbaran: IViewDatosYSeleccionClienteAlbaran read GetViewClienteAlbaran; property Controller : IAlbaranesClienteController read GetController write SetController; + + procedure RellenarCuentasBancarias; + procedure AsignarCuentaBancaria; end; implementation @@ -219,6 +224,16 @@ begin (Sender as TAction).Enabled := (Albaran.REF_PEDIDO <> '') end; +procedure TfrViewAlbaranCliente.AsignarCuentaBancaria; +begin + FAlbaran.Edit; + try + FAlbaran.DATOS_BANCARIOS := cbCuentaBancaria.Properties.Items[0]; + finally + FAlbaran.Post; + end; +end; + procedure TfrViewAlbaranCliente.bFormasPagoClick(Sender: TObject); begin inherited; @@ -461,7 +476,7 @@ begin BeginUpdate; try Clear; - Add(''); +{ for i := 0 to ALista.Count - 1 do Add(ALista.Names[i]); @@ -471,14 +486,16 @@ begin for i := 0 to AListaIBAN.Count - 1 do Add(AListaIBAN.Names[i]); end; - +} if AListaCliente.Count > 0 then begin - Add('--------------'); +// Add('--------------'); for i := 0 to AListaCliente.Count - 1 do Add(AListaCliente.Names[i]); end; + Add(''); + finally EndUpdate; end; diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas index 10ae51d..ff96379 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas @@ -313,9 +313,13 @@ begin CODIGO_POSTAL := FCliente.CODIGO_POSTAL; PROVINCIA := FCliente.PROVINCIA; POBLACION := FCliente.POBLACION; - if (ID_FORMA_PAGO = 0) and (FCliente.ID_FORMA_PAGO > 0) then + if (AppFactuGES.EmpresaActiva.ID_FORMA_PAGO > 0) then + ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO + else if (FCliente.ID_FORMA_PAGO > 0) then ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; - if (ID_TIPO_IVA = 0) and (FCliente.ID_TIPO_IVA > 0) then + if (AppFactuGES.EmpresaActiva.ID_TIPO_IVA > 0) then + ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA + else if (FCliente.ID_TIPO_IVA > 0) then ID_TIPO_IVA := FCliente.ID_TIPO_IVA; RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA; DESCUENTO := FCliente.DESCUENTO; diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj index 521ef3d..84ae922 100644 --- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj +++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj @@ -49,34 +49,34 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogOpcionesImpresionFacturasCliente
TfEditorElegirFacturasCliente diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm index 3642494..937fcf4 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm @@ -231,6 +231,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente object pagContenido: TTabSheet Caption = 'Contenido' ImageIndex = 1 + ExplicitLeft = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente Left = 0 Top = 0 @@ -251,106 +255,103 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente ExplicitHeight = 323 inherited ToolBar1: TToolBar Width = 888 - Height = 51 + Height = 46 ExplicitWidth = 888 - ExplicitHeight = 51 + ExplicitHeight = 46 inherited ToolButton3: TToolButton Wrap = False end inherited ToolButton4: TToolButton Left = 278 Top = 0 + Wrap = True ExplicitLeft = 278 ExplicitTop = 0 end inherited ToolButton14: TToolButton - Left = 334 - Top = 0 + Left = 0 Wrap = False - ExplicitLeft = 334 - ExplicitTop = 0 + ExplicitLeft = 0 end inherited FontName: TJvFontComboBox - Left = 399 - Top = 0 - ExplicitLeft = 399 - ExplicitTop = 0 + Left = 65 + Top = 22 + ExplicitLeft = 65 + ExplicitTop = 22 end inherited FontSize: TEdit - Left = 544 - Top = 0 + Left = 210 + Top = 22 Width = 280 - ExplicitLeft = 544 - ExplicitTop = 0 + ExplicitLeft = 210 + ExplicitTop = 22 ExplicitWidth = 280 end - inherited ToolButton13: TToolButton [7] - Left = 0 - Top = 0 - Wrap = True - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitHeight = 30 + inherited UpDown1: TUpDown + Left = 490 + Top = 22 + ExplicitLeft = 490 + ExplicitTop = 22 end - inherited UpDown1: TUpDown [8] - Left = 0 - Top = 30 - ExplicitLeft = 0 - ExplicitTop = 30 + inherited ToolButton13: TToolButton + Left = 507 + Top = 22 + ExplicitLeft = 507 + ExplicitTop = 22 end inherited ToolButton6: TToolButton - Left = 17 - Top = 30 - ExplicitLeft = 17 - ExplicitTop = 30 + Left = 515 + Top = 22 + ExplicitLeft = 515 + ExplicitTop = 22 end inherited ToolButton7: TToolButton - Left = 83 - Top = 30 - ExplicitLeft = 83 - ExplicitTop = 30 + Left = 581 + Top = 22 + ExplicitLeft = 581 + ExplicitTop = 22 end inherited ToolButton8: TToolButton - Left = 150 - Top = 30 - ExplicitLeft = 150 - ExplicitTop = 30 + Left = 648 + Top = 22 + ExplicitLeft = 648 + ExplicitTop = 22 end inherited ToolButton12: TToolButton - Left = 233 - Top = 30 - ExplicitLeft = 233 - ExplicitTop = 30 + Left = 731 + Top = 22 + ExplicitLeft = 731 + ExplicitTop = 22 end inherited ToolButton9: TToolButton - Left = 241 - Top = 30 - ExplicitLeft = 241 - ExplicitTop = 30 + Left = 739 + Top = 22 + ExplicitLeft = 739 + ExplicitTop = 22 end inherited ToolButton10: TToolButton - Left = 386 - Top = 30 - ExplicitLeft = 386 - ExplicitTop = 30 + Left = 884 + Top = 22 + ExplicitLeft = 884 + ExplicitTop = 22 end inherited ToolButton11: TToolButton - Left = 511 - Top = 30 - ExplicitLeft = 511 - ExplicitTop = 30 + Left = 1009 + Top = 22 + ExplicitLeft = 1009 + ExplicitTop = 22 end end inherited cxGrid: TcxGrid - Top = 77 + Top = 72 Width = 888 - Height = 246 + Height = 251 ExplicitTop = 77 ExplicitWidth = 888 ExplicitHeight = 246 end inherited TBXDock1: TSpTBXDock - Top = 51 + Top = 46 Width = 888 ExplicitTop = 51 ExplicitWidth = 888 diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas index 24b2bf2..3995021 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas @@ -348,6 +348,12 @@ procedure TfEditorFacturaCliente.OnClienteChanged(Sender: TObject); begin FFactura.Cliente := ViewFacturaCliente.ViewClienteFactura.Cliente; + if Assigned(ViewFacturaCliente) then + begin + ViewFacturaCliente.RellenarCuentasBancarias; + ViewFacturaCliente.AsignarCuentaBancaria; + end; + if not (FFactura.DataTable.State in dsEditModes) then FFactura.DataTable.Edit; diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm index 7cc39d0..3b7e35d 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm @@ -1,6 +1,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente - Width = 859 - Height = 407 + Width = 451 + Height = 304 Align = alClient OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy @@ -9,18 +9,16 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 859 - Height = 407 + Width = 451 + Height = 304 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False LayoutLookAndFeel = dmBase.dxLayoutSkinLookAndFeel - ExplicitWidth = 451 - ExplicitHeight = 304 DesignSize = ( - 859 - 407) + 451 + 304) object eReferencia: TcxDBTextEdit Left = 135 Top = 28 @@ -118,7 +116,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 269 end object bFormasPago: TButton - Left = 278 + Left = 161 Top = 112 Width = 132 Height = 23 @@ -145,7 +143,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 165 end inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente - Left = 440 + Left = 323 Top = 28 Width = 531 Height = 200 @@ -157,7 +155,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente ParentFont = False TabOrder = 6 ReadOnly = False - ExplicitLeft = 440 + ExplicitLeft = 323 ExplicitTop = 28 ExplicitWidth = 531 ExplicitHeight = 200 @@ -175,20 +173,20 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 224 end inherited edtNIFCIF: TcxDBTextEdit - Left = 284 + Left = 171 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 284 + ExplicitLeft = 171 end inherited Button3: TBitBtn - Left = 195 - ExplicitLeft = 195 + Left = 82 + ExplicitLeft = 82 end inherited Button4: TButton - Left = 364 - ExplicitLeft = 364 + Left = 251 + ExplicitLeft = 251 end inherited edtPersonaContacto: TcxDBTextEdit Style.LookAndFeel.SkinName = '' @@ -199,8 +197,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente Width = 403 end inherited Button5: TButton - Left = 364 - ExplicitLeft = 364 + Left = 251 + ExplicitLeft = 251 end inherited edtDireccion: TcxMemo Style.LookAndFeel.SkinName = '' diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas index de67726..1c5d2dd 100644 --- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas @@ -25,6 +25,9 @@ type function GetViewClienteFactura: IViewDatosYSeleccionClienteFacturaCliente; property ViewClienteFactura: IViewDatosYSeleccionClienteFacturaCliente read GetViewClienteFactura; + + procedure RellenarCuentasBancarias; + procedure AsignarCuentaBancaria; end; TfrViewFacturaCliente = class(TfrViewBase, IViewFacturaCliente) @@ -70,13 +73,15 @@ type procedure SetFactura(const Value: IBizFacturaCliente); function GetController : IFacturasClienteController; procedure SetController (const Value : IFacturasClienteController); - procedure RellenarCuentasBancarias; function GetViewClienteFactura: IViewDatosYSeleccionClienteFacturaCliente; public property Factura: IBizFacturaCliente read GetFactura write SetFactura; property Controller : IFacturasClienteController read GetController write SetController; property ViewClienteFactura: IViewDatosYSeleccionClienteFacturaCliente read GetViewClienteFactura; + + procedure RellenarCuentasBancarias; + procedure AsignarCuentaBancaria; end; @@ -91,6 +96,16 @@ uses { TfrViewFacturaCliente } +procedure TfrViewFacturaCliente.AsignarCuentaBancaria; +begin + FFactura.Edit; + try + FFactura.DATOS_BANCARIOS := cbCuentaBancaria.Properties.Items[0]; + finally + FFactura.Post; + end; +end; + procedure TfrViewFacturaCliente.bFormasPagoClick(Sender: TObject); begin inherited; @@ -159,7 +174,7 @@ begin BeginUpdate; try Clear; - Add(''); +{ for i := 0 to ALista.Count - 1 do Add(ALista.Names[i]); @@ -169,14 +184,16 @@ begin for i := 0 to AListaIBAN.Count - 1 do Add(AListaIBAN.Names[i]); end; - +} if AListaCliente.Count > 0 then begin - Add('--------------'); +// Add('--------------'); for i := 0 to AListaCliente.Count - 1 do Add(AListaCliente.Names[i]); end; + Add(''); + finally EndUpdate; end; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 12f4c8d..5ba6da9 100644 Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 93cd080..ba19229 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -1,337 +1,337 @@ - + - - {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} - FactuGES_Server.dpr - Debug - AnyCPU - DCC32 - ..\..\Output\Debug\Servidor\FactuGES_Server.exe - vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 - - - 7.0 - False - False - 0 - 3 - ..\..\Output\Release\Servidor - RELEASE - - - 7.0 - 3 - ..\..\Output\Debug\Servidor - DEBUG; - True - True - True - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug - - - Delphi.Personality - - -FalseTrueFalse/standaloneTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0lunes, 01 de febrero de 2010 9:47FactuGES_Server.dpr - - - - - MainSource - - - - - -
srvEmpresas
- TDARemoteService - - -
srvProvinciasPoblaciones_Impl
- TDataModule - - - - -
srvUsuarios
- TDataAbstractService - - - - - - - - -
RptAlbaranesCliente
- TDataModule - - -
RptWordAlbaranCliente
- TDataModule - - -
srvAlbaranesCliente
- TDataAbstractService - - - - - -
RptAlbaranesProveedor
- TDataModule - - -
RptWordAlbaranProveedor
- TDataModule - - -
srvAlbaranesProveedor
- TDataAbstractService - - - - -
srvAlmacenes
- TDARemoteService - - - - - -
srvArticulos
- TDARemoteService - - - - - - - - - -
RptEtiquetasContacto
- TDataModule - - -
RptFichasEmpleado
- TDataModule - - -
srvContactos
- TDARemoteService - - - - -
srvFabricantes
- TDataAbstractService - - - - - -
RptFacturasCliente
- TDataModule - - -
RptWordFacturaCliente
- TDataModule - - -
srvFacturasCliente
- TDataAbstractService - - - - - -
RptFacturasProveedor
- TDataModule - - -
srvFacturasProveedor
- TDataAbstractService - - - - -
srvFamilias
- TDataAbstractService - - - - -
srvFormasPago
- TDataAbstractService - - -
srvGestorDocumentos
- TDataAbstractService - - -
srvGestorInformes
- TDataAbstractService - - - - -
srvHistoricoMovimientos
- TDataAbstractService - - - - -
srvInventario
- TDataAbstractService - - - - - -
srvObras
- TDataAbstractService - - - - - -
RptPedidosProveedor
- TDataModule - - -
RptWordPedidoProveedor
- TDataModule - - -
srvPedidosProveedor
- TDataAbstractService - - - - - -
RptPresupuestosCliente
- TDataModule - - -
RptWordCertificadoTrabajo
- TDataModule - - -
RptWordPresupuestoCliente
- TDataModule - - -
srvPresupuestosCliente
- TDataAbstractService - - - - -
RptRecibosCliente
- TDataModule - - -
srvRecibosCliente
- TDataAbstractService - - - - -
RptRecibosProveedor
- TDataModule - - -
srvRecibosProveedor
- TDataAbstractService - - - - -
srvReferencias
- TDataAbstractService - - - - - -
RptRemesasCliente
- TDataModule - - -
srvRemesasCliente
- TDataAbstractService - - - - - -
srvRemesasProveedor
- TDataAbstractService - - - - -
srvTiposIVA
- TDataAbstractService - - - - -
srvUnidadesMedida
- TDataAbstractService - - - - -
srvConfiguracion
- TDataAbstractService - - -
frConexionBD
- TFrame - - -
frConfGeneral
- TFrame - - -
fConfiguracion
- TForm - - -
FrameConfiguracion
- TFrame - - -
srvLogin
- TDARemoteService - - -
fAcercaDe
- - -
dmServer
- TDataModule - - -
fServerForm
- - - - - - - - - - - - + + {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1} + FactuGES_Server.dpr + Debug + AnyCPU + DCC32 + ..\..\Output\Debug\Servidor\FactuGES_Server.exe + vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d11;SpTBXLib_d11;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxExportD10;GUISDK_D11R;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100 + + + 7.0 + False + False + 0 + 3 + ..\..\Output\Release\Servidor + RELEASE + + + 7.0 + 3 + ..\..\Output\Debug\Servidor + DEBUG; + True + True + True + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + $(BDS)\Lib\Debug\Indy10;$(BDS)\lib\Debug + + + Delphi.Personality + + + FalseTrueFalse/standaloneTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0lunes, 01 de febrero de 2010 9:47FactuGES_Server.dpr + + + + + MainSource + + + + + +
srvEmpresas
+ TDARemoteService + + +
srvProvinciasPoblaciones_Impl
+ TDataModule + + + + +
srvUsuarios
+ TDataAbstractService + + + + + + + + +
RptAlbaranesCliente
+ TDataModule + + +
RptWordAlbaranCliente
+ TDataModule + + +
srvAlbaranesCliente
+ TDataAbstractService + + + + + +
RptAlbaranesProveedor
+ TDataModule + + +
RptWordAlbaranProveedor
+ TDataModule + + +
srvAlbaranesProveedor
+ TDataAbstractService + + + + +
srvAlmacenes
+ TDARemoteService + + + + + +
srvArticulos
+ TDARemoteService + + + + + + + + + +
RptEtiquetasContacto
+ TDataModule + + +
RptFichasEmpleado
+ TDataModule + + +
srvContactos
+ TDARemoteService + + + + +
srvFabricantes
+ TDataAbstractService + + + + + +
RptFacturasCliente
+ TDataModule + + +
RptWordFacturaCliente
+ TDataModule + + +
srvFacturasCliente
+ TDataAbstractService + + + + + +
RptFacturasProveedor
+ TDataModule + + +
srvFacturasProveedor
+ TDataAbstractService + + + + +
srvFamilias
+ TDataAbstractService + + + + +
srvFormasPago
+ TDataAbstractService + + +
srvGestorDocumentos
+ TDataAbstractService + + +
srvGestorInformes
+ TDataAbstractService + + + + +
srvHistoricoMovimientos
+ TDataAbstractService + + + + +
srvInventario
+ TDataAbstractService + + + + + +
srvObras
+ TDataAbstractService + + + + + +
RptPedidosProveedor
+ TDataModule + + +
RptWordPedidoProveedor
+ TDataModule + + +
srvPedidosProveedor
+ TDataAbstractService + + + + + +
RptPresupuestosCliente
+ TDataModule + + +
RptWordCertificadoTrabajo
+ TDataModule + + +
RptWordPresupuestoCliente
+ TDataModule + + +
srvPresupuestosCliente
+ TDataAbstractService + + + + +
RptRecibosCliente
+ TDataModule + + +
srvRecibosCliente
+ TDataAbstractService + + + + +
RptRecibosProveedor
+ TDataModule + + +
srvRecibosProveedor
+ TDataAbstractService + + + + +
srvReferencias
+ TDataAbstractService + + + + + +
RptRemesasCliente
+ TDataModule + + +
srvRemesasCliente
+ TDataAbstractService + + + + + +
srvRemesasProveedor
+ TDataAbstractService + + + + +
srvTiposIVA
+ TDataAbstractService + + + + +
srvUnidadesMedida
+ TDataAbstractService + + + + +
srvConfiguracion
+ TDataAbstractService + + +
frConexionBD
+ TFrame + + +
frConfGeneral
+ TFrame + + +
fConfiguracion
+ TForm + + +
FrameConfiguracion
+ TFrame + + +
srvLogin
+ TDARemoteService + + +
fAcercaDe
+ + +
dmServer
+ TDataModule + + +
fServerForm
+ + + + + + + + + + + +