From 167979c6a2dcf6630f0bac92a463d6b5a2af9999 Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 9 Apr 2008 12:01:22 +0000 Subject: [PATCH] Subida de codigo sin el editor de direccion de entrega (falta repaso en albaranes de cliente de la direccion de entrega git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@192 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Base/Base.res | Bin 4748 -> 384 bytes Source/GUIBase/uViewTotales.dfm | 26 +- .../Views/AlbaranesCliente_view.dproj | 14 +- .../Views/uEditorAlbaranCliente.dfm | 4 + .../Views/uEditorAlbaranCliente.pas | 3 +- .../Views/uViewAlbaranCliente.dfm | 4 + .../Views/uViewAlbaranCliente.pas | 27 +- .../Views/uViewAlbaranProveedor.dfm | 1 + .../Controller/uSubCuentasController.pas | 16 +- .../Contactos/Contactos_Group.groupproj | 60 +-- .../Controller/Contactos_controller.dpk | 1 - .../Controller/Contactos_controller.dproj | 80 +-- .../Controller/uClientesController.pas | 27 +- .../Controller/uProveedoresController.pas | 3 +- .../Contactos/Views/Contactos_view.dpk | 1 - .../Contactos/Views/Contactos_view.dproj | 54 +- .../Views/uContactosViewRegister.pas | 4 +- .../Controller/uFacturasClienteController.pas | 2 +- .../Model/uBizFacturasCliente.pas | 3 +- .../Views/FacturasCliente_view.dproj | 56 +- .../Views/uEditorFacturaCliente.dfm | 8 + .../Views/uEditorFacturaCliente.pas | 3 + .../Views/uViewFacturaCliente.dfm | 6 + .../Views/uEditorFacturaProveedor.dfm | 8 - .../Views/uViewFacturaProveedor.dfm | 28 +- .../Views/uViewFacturaProveedor.pas | 2 +- .../Views/uEditorPresupuestoCliente.pas | 28 - .../Views/uViewPresupuestoCliente.dfm | 5 +- .../Views/uViewPresupuestoCliente.pas | 40 -- Source/Servidor/FactuGES_Server.RES | Bin 23200 -> 23208 bytes Source/Servidor/FactuGES_Server.dproj | 504 +++++++++--------- Source/Servidor/FactuGES_Server.rc | 2 +- 32 files changed, 457 insertions(+), 563 deletions(-) diff --git a/Source/Base/Base.res b/Source/Base/Base.res index 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP 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 + + + + +