diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339f..8b251f31 100644 Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ diff --git a/Source/GUIBase/uViewTotales.dfm b/Source/GUIBase/uViewTotales.dfm index 6fc989bd..0bec56e1 100644 --- a/Source/GUIBase/uViewTotales.dfm +++ b/Source/GUIBase/uViewTotales.dfm @@ -1,14 +1,14 @@ inherited frViewTotales: TfrViewTotales - Width = 751 + Width = 451 Height = 227 Align = alBottom - ExplicitWidth = 751 + ExplicitWidth = 451 ExplicitHeight = 227 object dxLayoutControl1: TdxLayoutControl AlignWithMargins = True Left = 0 Top = 0 - Width = 751 + Width = 451 Height = 217 Margins.Left = 0 Margins.Top = 0 @@ -18,7 +18,6 @@ inherited frViewTotales: TfrViewTotales ParentBackground = True TabOrder = 0 AutoContentSizes = [acsWidth, acsHeight] - ExplicitWidth = 451 object Bevel1: TBevel Left = 104 Top = 109 @@ -27,14 +26,14 @@ inherited frViewTotales: TfrViewTotales Shape = bsBottomLine end object Bevel3: TBevel - Left = 372 + Left = 278 Top = 28 Width = 3 Height = 122 Shape = bsRightLine end object Bevel4: TBevel - Left = 484 + Left = 390 Top = 109 Width = 192 Height = 9 @@ -72,7 +71,7 @@ inherited frViewTotales: TfrViewTotales Width = 93 end object ImporteIVA: TcxDBCurrencyEdit - Left = 555 + Left = 461 Top = 55 AutoSize = False DataBinding.DataField = 'IMPORTE_IVA' @@ -103,7 +102,7 @@ inherited frViewTotales: TfrViewTotales Width = 137 end object ImporteTotal: TcxDBCurrencyEdit - Left = 485 + Left = 391 Top = 129 AutoSize = False DataBinding.DataField = 'IMPORTE_TOTAL' @@ -165,7 +164,7 @@ inherited frViewTotales: TfrViewTotales Width = 65 end object edtIVA: TcxDBSpinEdit - Left = 484 + Left = 390 Top = 55 AutoSize = False DataBinding.DataField = 'IVA' @@ -202,7 +201,7 @@ inherited frViewTotales: TfrViewTotales Width = 65 end object ImporteBase: TcxDBCurrencyEdit - Left = 484 + Left = 390 Top = 28 AutoSize = False DataBinding.DataField = 'BASE_IMPONIBLE' @@ -233,7 +232,7 @@ inherited frViewTotales: TfrViewTotales Width = 92 end object edtRE: TcxDBSpinEdit - Left = 484 + Left = 390 Top = 82 AutoSize = False DataBinding.DataField = 'RE' @@ -270,7 +269,7 @@ inherited frViewTotales: TfrViewTotales Width = 65 end object ImporteRE: TcxDBCurrencyEdit - Left = 555 + Left = 461 Top = 82 AutoSize = False DataBinding.DataField = 'IMPORTE_RE' @@ -366,6 +365,7 @@ inherited frViewTotales: TfrViewTotales Top = 55 DataBinding.DataField = 'ID_TIPO_IVA' DataBinding.DataSource = DADataSource + Properties.DropDownListStyle = lsFixedList Properties.ImmediatePost = True Properties.KeyFieldNames = 'ID' Properties.ListColumns = < @@ -393,7 +393,7 @@ inherited frViewTotales: TfrViewTotales Width = 81 end object bTiposIVA: TButton - Left = 224 + Left = 130 Top = 55 Width = 132 Height = 21 diff --git a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj index 71ac34d8..381317bd 100644 --- a/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj +++ b/Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj @@ -50,6 +50,10 @@ + + + + File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found @@ -61,11 +65,11 @@ MainSource - - - - - + + + + +
fEditorAlbaranCliente
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm index 6abc0ca9..834866ef 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm @@ -202,6 +202,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente 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/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas index fd31756b..ac7d9e3f 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas @@ -239,7 +239,7 @@ begin // Avisar si no hay datos bancarios //if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then // ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha'); - +{ // Elegir la dirección de envio case FAlbaran.Cliente.Direcciones.RecordCount of 0 : begin @@ -270,6 +270,7 @@ begin FAlbaran.Edit; FAlbaran.IMPORTE_PORTE := 0; end; +} // Si el pedido tiene detalles hay que mirar si los descuentos // para los artículos hay que cambiarlos. diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm index 51b8b251..39c748de 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm @@ -116,6 +116,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente ExplicitTop = 28 inherited dxLayoutControl1: TdxLayoutControl Align = alTop + ExplicitWidth = 373 inherited edtlNombre: TcxDBTextEdit ExplicitWidth = 224 Width = 224 @@ -322,6 +323,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Top = 109 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource + Properties.DropDownListStyle = lsFixedList Properties.KeyFieldNames = 'ID' Properties.ListColumns = < item @@ -539,6 +541,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente ExplicitLeft = 430 ExplicitTop = 387 inherited dxLayoutControl1: TdxLayoutControl + ExplicitWidth = 373 inherited cbTienda: TcxComboBox ExplicitWidth = 376 Width = 376 @@ -639,6 +642,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente AutoAligns = [] AlignHorz = ahClient Caption = 'Direcci'#243'n de entrega' + Visible = False object dxLayoutControl1Item8: TdxLayoutItem Caption = 'Calle:' Control = eCalle diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas index 736efd57..94626e5c 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas @@ -170,11 +170,33 @@ var ADireccion : IBizDireccionesContacto; begin inherited; +{ + try + case FFactura.Cliente.Direcciones.RecordCount of + 0 : //No hay direcciones secundarias asociadas + else ADireccion := AClientesController.ElegirDireccion(FFactura.Cliente, 'Seleccione la dirección del proveedor que quiere utilizar como dirección fiscal de esta factura.'); + end; + + // Si hay dirección de envio, copiarla al albarán y poner el coste del porte + if Assigned(ADireccion) then + begin + try + FFactura.Edit; + FFactura.IMPORTE_PORTE := ADireccion.PORTE; + FController.CopiarDireccion(ADireccion, FFactura); + finally + ADireccion := NIL; + end; + end + finally + AClientesController := Nil; + end; +} +{ AClientesController := TClientesController.Create; AAlbaranController := TAlbaranesClienteController.Create; try - ADireccion := AClientesController.ElegirDireccionEntrega(FAlbaran.Cliente.Direcciones, - 'Seleccione la dirección del cliente que quiere utilizar como dirección de envio de este albaran.'); + ADireccion := AClientesController.ElegirDireccion(FAlbaran.Cliente, 'Seleccione la dirección del cliente que quiere utilizar como dirección de envio de este albaran.'); if Assigned(ADireccion) then begin AAlbaranController.CopiarDireccionEnvio(ADireccion, FAlbaran); @@ -185,6 +207,7 @@ begin AClientesController := NIL; AAlbaranController := NIL; end; +} end; procedure TfrViewAlbaranCliente.actElegirDireccionUpdate(Sender: TObject); diff --git a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm index 1da0bf98..5c514581 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranProveedor.dfm @@ -196,6 +196,7 @@ inherited frViewAlbaranProveedor: TfrViewAlbaranProveedor Top = 192 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = DADataSource + Properties.DropDownListStyle = lsFixedList Properties.KeyFieldNames = 'ID' Properties.ListColumns = < item diff --git a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas index 59eeb00e..1458d52d 100644 --- a/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas +++ b/Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas @@ -205,16 +205,16 @@ begin try Result := BuscarTodos; - with Result.DataTable.DynamicWhere do - begin +// with Result.DataTable.DynamicWhere do +// begin // (REF_CUENTAS = 600 ventas) - Condicion := NewBinaryExpression(NewField('', fld_SubCuentasREF_CUENTA), NewConstant(CTE_CUENTASCOMPRA, datInteger), dboEqual); +// Condicion := NewBinaryExpression(NewField('', fld_SubCuentasREF_CUENTA), NewConstant(CTE_CUENTASCOMPRA, datInteger), dboEqual); - if IsEmpty then - Expression := Condicion - else - Expression := NewBinaryExpression(Expression, Condicion, dboAnd); - end; +// if IsEmpty then +// Expression := Condicion +// else +// Expression := NewBinaryExpression(Expression, Condicion, dboAnd); +// end; finally HideHourglassCursor; diff --git a/Source/Modulos/Contactos/Contactos_Group.groupproj b/Source/Modulos/Contactos/Contactos_Group.groupproj index e28b46b9..8f0342d3 100644 --- a/Source/Modulos/Contactos/Contactos_Group.groupproj +++ b/Source/Modulos/Contactos/Contactos_Group.groupproj @@ -70,33 +70,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -124,6 +97,33 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -152,13 +152,13 @@ - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk index cf06ce3e..eac7f784 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.dpk +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dpk @@ -61,7 +61,6 @@ contains uIEditorElegirContactos in 'View\uIEditorElegirContactos.pas', uIEditorDireccionContacto in 'View\uIEditorDireccionContacto.pas', uDireccionesContactoController in 'uDireccionesContactoController.pas', - uIEditorElegirDireccion in 'View\uIEditorElegirDireccion.pas', uGruposClienteController in 'uGruposClienteController.pas', uIEditorGruposCliente in 'View\uIEditorGruposCliente.pas', uGruposProveedorController in 'uGruposProveedorController.pas', diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj index 58c69a19..8940bc7d 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj @@ -49,51 +49,6 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - JCL Debug IDE extension JCL Project Analyzer JCL Open and Save IDE dialogs with favorite folders @@ -104,23 +59,23 @@ MainSource - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + @@ -139,7 +94,6 @@ - diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas index eaf55fd2..c566674f 100644 --- a/Source/Modulos/Contactos/Controller/uClientesController.pas +++ b/Source/Modulos/Contactos/Controller/uClientesController.pas @@ -13,7 +13,6 @@ type ['{AAC3C51A-37F7-4961-B39F-FBC6B6A2B0F1}'] function BuscarTodosTiendaWeb: IBizCliente; function TieneDatosBancarios(ACliente: IBizCliente) : Boolean; - function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto; AMensaje: String): IBizDireccionesContacto; function EsEliminable(ACliente: IBizContacto): Boolean; function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload; procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false); @@ -42,8 +41,6 @@ type function ElegirContacto(AContactos : IBizContacto; AMensaje: String; AMultiSelect: Boolean): IBizContacto; override; function TieneDatosBancarios(ACliente: IBizCliente) : Boolean; - function ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto; - AMensaje: String): IBizDireccionesContacto; function EsEliminable(ACliente: IBizContacto): Boolean; function Eliminar(ACliente: IBizContacto; AllItems: Boolean = false): Boolean; overload; procedure Preview(ACliente : IBizCliente; AllItems: Boolean = false); @@ -57,7 +54,7 @@ implementation uses Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils, uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController, - uIEditorElegirClientes, uIEditorElegirDireccion, uEditorGridBase, + uIEditorElegirClientes, uEditorGridBase, Dialogs; { TClientesController } @@ -125,28 +122,6 @@ begin end; end; -function TClientesController.ElegirDireccionEntrega(ADirecciones: IBizDireccionesContacto; - AMensaje: String): IBizDireccionesContacto; -var - AEditor : IEditorElegirDireccion; -begin - Result := NIL; - - CreateEditor('EditorElegirDireccion', IEditorElegirDireccion, AEditor); - try - with AEditor do - begin - Direccion := ADirecciones; - Mensaje := AMensaje; - if IsPositiveResult(ShowModal) then - Result := DireccionSeleccionada; - Release; - end; - finally - AEditor := NIL; - end; -end; - function TClientesController.Eliminar(ACliente: IBizContacto; AllItems: Boolean): Boolean; //En el caso de eliminar almenos un elemento del conjunto se devuelve true var diff --git a/Source/Modulos/Contactos/Controller/uProveedoresController.pas b/Source/Modulos/Contactos/Controller/uProveedoresController.pas index 790387f6..3783640b 100644 --- a/Source/Modulos/Contactos/Controller/uProveedoresController.pas +++ b/Source/Modulos/Contactos/Controller/uProveedoresController.pas @@ -49,8 +49,7 @@ implementation uses Classes, SysUtils, cxControls, Dialogs, uDataModuleProveedores, uEditorRegistryUtils, uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController, - uIEditorElegirProveedores, Controls, uIEditorElegirDireccion, - uEditorGridBase, JSDialogs, JSDialog, Windows; + uIEditorElegirProveedores, Controls, uEditorGridBase, JSDialogs, JSDialog, Windows; { TProveedoresController } diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dpk b/Source/Modulos/Contactos/Views/Contactos_view.dpk index 4dc756b9..2170b5be 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dpk +++ b/Source/Modulos/Contactos/Views/Contactos_view.dpk @@ -74,7 +74,6 @@ contains uViewDireccionesEntrega in 'uViewDireccionesEntrega.pas' {frViewDireccionesEntrega: TFrame}, uViewClienteDescuentos in 'uViewClienteDescuentos.pas' {frViewClienteDescuentos: TFrame}, uEditorDireccion in 'uEditorDireccion.pas' {fEditorDireccion}, - uEditorElegirDireccion in 'uEditorElegirDireccion.pas' {fEditorElegirDireccion: TfEditorElegirDireccionEntrega}, uViewContactoDatosBancarios in 'uViewContactoDatosBancarios.pas' {frViewClienteDatosBancarios: TFrame}, uViewProveedorDatosComerciales in 'uViewProveedorDatosComerciales.pas' {frViewProveedorDatosComerciales: TFrame}, uViewClienteDatosComerciales in 'uViewClienteDatosComerciales.pas' {frViewClienteDatosComerciales: TFrame}, diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj index 21305990..d0098187 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dproj +++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj @@ -49,31 +49,26 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + +
fEditorCliente
@@ -98,10 +93,6 @@
fEditorElegirClientes
TCustomEditor - -
fEditorElegirDireccion
- TfEditorElegirDireccionEntrega -
fEditorElegirProveedores
TCustomEditor @@ -210,6 +201,11 @@
frViewSubCuentaContacto
TCustomView + + + + +