From 900b88959d9e0d75cc3cd4c449a2d6ade86b22fb Mon Sep 17 00:00:00 2001 From: david Date: Thu, 10 Jul 2008 16:03:19 +0000 Subject: [PATCH] =?UTF-8?q?-=20Limpieza=20de=20mensajes=20de=20warning=20-?= =?UTF-8?q?=20Configuraci=C3=B3n=20del=20m=C3=B3dulo=20de=20contactos=20(s?= =?UTF-8?q?in=20terminar)?= 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@272 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Views/uViewConfiguracionGeneral.dfm | 3 +- .../Views/uViewConfiguracionGeneral.pas | 3 +- .../Controller/Contactos_controller.dproj | 66 ++++--- .../Controller/Contactos_controller.res | Bin 384 -> 4748 bytes .../Controller/uClientesController.pas | 85 +++++---- .../Controller/uContactosController.pas | 6 +- .../Controller/uGruposClienteController.pas | 4 - .../Controller/uGruposProveedorController.pas | 4 - .../uProcedenciasClienteController.pas | 4 - .../Controller/uProveedoresController.pas | 81 ++++----- .../Controller/uVendedoresController.pas | 8 +- .../Contactos/Model/Contactos_model.dpk | Bin 1628 -> 1627 bytes .../Contactos/Model/Contactos_model.dproj | 20 +-- .../Contactos/Model/Contactos_model.res | Bin 384 -> 4748 bytes .../Modulos/Contactos/Model/uBizContactos.pas | 37 +++- .../Contactos/Views/Contactos_view.dproj | 94 +++++----- .../Contactos/Views/Contactos_view.res | Bin 384 -> 4748 bytes .../Contactos/Views/uEditorCliente.dfm | 167 ++++++++++-------- .../Contactos/Views/uEditorContacto.dfm | 1 + .../Modulos/Contactos/Views/uViewCliente.dfm | 10 -- .../Modulos/Contactos/Views/uViewCliente.pas | 8 +- .../Views/uViewClienteDatosComerciales.dfm | 19 +- .../Views/uViewClienteDatosComerciales.pas | 15 +- .../Views/uViewClienteDescuentos.dfm | 2 +- .../Views/uViewClienteDescuentos.pas | 8 +- .../Views/uViewConfiguracionContactos.dfm | 93 +++++++++- .../Views/uViewConfiguracionContactos.pas | 76 ++++++-- .../Modulos/Contactos/Views/uViewContacto.dfm | 5 + .../Modulos/Contactos/Views/uViewContacto.pas | 10 +- .../Views/uViewContactoDatosBancarios.dfm | 1 + .../Views/uViewContactoDatosBancarios.pas | 8 +- .../Views/uViewDatosYSeleccionCliente.dfm | 1 + .../Views/uViewDatosYSeleccionCliente.pas | 8 +- .../Views/uViewDireccionesEntrega.pas | 8 +- .../Views/uViewProveedorDatosComerciales.dfm | 9 +- .../Views/uViewProveedorDatosComerciales.pas | 8 +- .../Views/uViewSubCuentaContacto.dfm | 23 +-- .../Views/uViewSubCuentaContacto.pas | 8 +- 38 files changed, 564 insertions(+), 339 deletions(-) diff --git a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm b/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm index d6b850fd..e332c2b1 100644 --- a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm +++ b/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.dfm @@ -70,9 +70,9 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral Top = 11 Width = 168 Height = 21 + Style = csDropDownList ItemHeight = 13 TabOrder = 0 - Text = 'cbEsquemaColor' end end object Panel4: TPanel @@ -175,7 +175,6 @@ inherited frViewConfiguracionGeneral: TfrViewConfiguracionGeneral BevelOuter = bvNone ParentColor = True TabOrder = 6 - ExplicitTop = 224 object lblLongMinPass: TLabel Left = 17 Top = 43 diff --git a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.pas b/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.pas index a591196e..03b2c868 100644 --- a/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.pas +++ b/Source/ApplicationBase/Configuracion/Views/uViewConfiguracionGeneral.pas @@ -42,7 +42,8 @@ type implementation -uses uFactuGES_App; +uses + uFactuGES_App; {$R *.dfm} diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj index 790f04f3..f28352ba 100644 --- a/Source/Modulos/Contactos/Controller/Contactos_controller.dproj +++ b/Source/Modulos/Contactos/Controller/Contactos_controller.dproj @@ -46,6 +46,24 @@ + + + + + + + + + + + + + + + + + + @@ -59,6 +77,30 @@ MainSource + + + + + + + + + + + + + + + + + + + + + + + + @@ -68,25 +110,6 @@ - - - - - - - - - - - - - - - - - - - @@ -104,11 +127,6 @@ - - - - - diff --git a/Source/Modulos/Contactos/Controller/Contactos_controller.res b/Source/Modulos/Contactos/Controller/Contactos_controller.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch 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 delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas index c566674f..e565b8db 100644 --- a/Source/Modulos/Contactos/Controller/uClientesController.pas +++ b/Source/Modulos/Contactos/Controller/uClientesController.pas @@ -126,10 +126,9 @@ function TClientesController.Eliminar(ACliente: IBizContacto; AllItems: Boolean) //En el caso de eliminar almenos un elemento del conjunto se devuelve true var bEliminado: Boolean; - begin - Result := False; - + bEliminado := False; + if not Assigned(ACliente) then raise Exception.Create ('Contacto no asignado'); @@ -208,34 +207,33 @@ procedure TClientesController.Preview(ACliente: IBizCliente; AllItems: Boolean); var AReportController : IEtiquetasContactosReportController; ListaID: TStringList; - begin AReportController := TEtiquetasContactosReportController.Create; try - ListaID := TStringList.Create; - - //Si deseamos previsualizar todos los items del objeto albaran - if AllItems then - begin - with ACliente.DataTable do - begin - First; - while not EOF do + ListaID := TStringList.Create; + try + //Si deseamos previsualizar todos los items del objeto albaran + if AllItems then begin + with ACliente.DataTable do + begin + First; + while not EOF do + begin + ListaID.Add(IntToStr(ACliente.ID)); + Next; + end; + end; + end + else //Solo previsualizamos el item seleccionado ListaID.Add(IntToStr(ACliente.ID)); - Next; - end; - end; - end - //Solo previsualizamos el item seleccionado - else - ListaID.Add(IntToStr(ACliente.ID)); - - AReportController.Preview(ListaID.CommaText); + AReportController.Preview(ListaID.CommaText); + finally + FreeANDNil(ListaID); + end; finally AReportController := NIL; - ListaID.Free; end; end; @@ -247,30 +245,31 @@ var begin AReportController := TEtiquetasContactosReportController.Create; try - ListaID := TStringList.Create; - - //Si deseamos previsualizar todos los items del objeto albaran - if AllItems then - begin - with ACliente.DataTable do - begin - First; - while not EOF do + ListaID := TStringList.Create; + try + //Si deseamos previsualizar todos los items del objeto albaran + if AllItems then begin + with ACliente.DataTable do + begin + First; + while not EOF do + begin + ListaID.Add(IntToStr(ACliente.ID)); + Next; + end; + end; + end + //Solo previsualizamos el item seleccionado + else ListaID.Add(IntToStr(ACliente.ID)); - Next; - end; - end; - end - //Solo previsualizamos el item seleccionado - else - ListaID.Add(IntToStr(ACliente.ID)); - - AReportController.Print(ListaID.CommaText); + AReportController.Print(ListaID.CommaText); + finally + FreeANDNIL(ListaID); + end; finally AReportController := NIL; - ListaID.Free; end; end; @@ -320,8 +319,6 @@ end; function TClientesController.TieneDatosBancarios(ACliente: IBizCliente): Boolean; begin - Result := False; - if not Assigned(ACliente) then raise Exception.Create ('Cliente no asignado (TieneDatosBancarios)'); diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas index 82d44e78..06b3561f 100644 --- a/Source/Modulos/Contactos/Controller/uContactosController.pas +++ b/Source/Modulos/Contactos/Controller/uContactosController.pas @@ -132,8 +132,6 @@ end; function TContactosController.ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto; var JsDialog: TJSDialog; - Respuesta: Integer; - begin Result := NIL; JsDialog := TJSDialog.Create(nil); @@ -175,7 +173,7 @@ begin Result := AContacto.Direcciones; finally - JsDialog := NIL; + FreeAndNIL(JsDialog); end; end; @@ -317,8 +315,6 @@ end; function TContactosController.ValidarContacto(AContacto: IBizContacto): Boolean; begin - Result := False; - if not Assigned(AContacto) then raise Exception.Create ('Contacto no asignado'); diff --git a/Source/Modulos/Contactos/Controller/uGruposClienteController.pas b/Source/Modulos/Contactos/Controller/uGruposClienteController.pas index e9ee7d15..9e51fc9e 100644 --- a/Source/Modulos/Contactos/Controller/uGruposClienteController.pas +++ b/Source/Modulos/Contactos/Controller/uGruposClienteController.pas @@ -123,8 +123,6 @@ end; function TGruposClienteController.ValidarGrupoCliente(AGrupoCliente: IBizGrupoCliente): Boolean; begin - Result := False; - if not Assigned(AGrupoCliente) then raise Exception.Create ('GrupoCliente no asignada'); @@ -161,8 +159,6 @@ end; function TGruposClienteController.Eliminar(AGrupoCliente: IBizGrupoCliente): Boolean; begin - Result := False; - if not Assigned(AGrupoCliente) then raise Exception.Create ('GrupoCliente no asignada'); diff --git a/Source/Modulos/Contactos/Controller/uGruposProveedorController.pas b/Source/Modulos/Contactos/Controller/uGruposProveedorController.pas index e201436a..c99eb8fa 100644 --- a/Source/Modulos/Contactos/Controller/uGruposProveedorController.pas +++ b/Source/Modulos/Contactos/Controller/uGruposProveedorController.pas @@ -123,8 +123,6 @@ end; function TGruposProveedorController.ValidarGrupoProveedor(AGrupoProveedor: IBizGrupoProveedor): Boolean; begin - Result := False; - if not Assigned(AGrupoProveedor) then raise Exception.Create ('GrupoProveedor no asignada'); @@ -161,8 +159,6 @@ end; function TGruposProveedorController.Eliminar(AGrupoProveedor: IBizGrupoProveedor): Boolean; begin - Result := False; - if not Assigned(AGrupoProveedor) then raise Exception.Create ('GrupoProveedor no asignada'); diff --git a/Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas b/Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas index 6abd7b55..d9ef2755 100644 --- a/Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas +++ b/Source/Modulos/Contactos/Controller/uProcedenciasClienteController.pas @@ -123,8 +123,6 @@ end; function TProcedenciasClienteController.ValidarProcedenciaCliente(AProcedenciaCliente: IBizProcedenciaCliente): Boolean; begin - Result := False; - if not Assigned(AProcedenciaCliente) then raise Exception.Create ('ProcedenciaCliente no asignada'); @@ -161,8 +159,6 @@ end; function TProcedenciasClienteController.Eliminar(AProcedenciaCliente: IBizProcedenciaCliente): Boolean; begin - Result := False; - if not Assigned(AProcedenciaCliente) then raise Exception.Create ('ProcedenciaCliente no asignada'); diff --git a/Source/Modulos/Contactos/Controller/uProveedoresController.pas b/Source/Modulos/Contactos/Controller/uProveedoresController.pas index 3783640b..e3f4facf 100644 --- a/Source/Modulos/Contactos/Controller/uProveedoresController.pas +++ b/Source/Modulos/Contactos/Controller/uProveedoresController.pas @@ -116,8 +116,7 @@ var bEliminado: Boolean; begin - Result := False; - + bEliminado := False; if not Assigned(AProveedor) then raise Exception.Create ('Contacto no asignado'); @@ -200,30 +199,31 @@ var begin AReportController := TEtiquetasContactosReportController.Create; try - ListaID := TStringList.Create; - - //Si deseamos previsualizar todos los items del objeto albaran - if AllItems then - begin - with AProveedor.DataTable do - begin - First; - while not EOF do + ListaID := TStringList.Create; + try + //Si deseamos previsualizar todos los items del objeto albaran + if AllItems then begin + with AProveedor.DataTable do + begin + First; + while not EOF do + begin + ListaID.Add(IntToStr(AProveedor.ID)); + Next; + end; + end; + end + //Solo previsualizamos el item seleccionado + else ListaID.Add(IntToStr(AProveedor.ID)); - Next; - end; - end; - end - //Solo previsualizamos el item seleccionado - else - ListaID.Add(IntToStr(AProveedor.ID)); - - AReportController.Preview(ListaID.CommaText); + AReportController.Preview(ListaID.CommaText); + finally + FreeANDNIL(ListaID); + end; finally AReportController := NIL; - ListaID.Free; end; end; @@ -235,30 +235,31 @@ var begin AReportController := TEtiquetasContactosReportController.Create; try - ListaID := TStringList.Create; - - //Si deseamos previsualizar todos los items del objeto albaran - if AllItems then - begin - with AProveedor.DataTable do - begin - First; - while not EOF do + ListaID := TStringList.Create; + try + //Si deseamos previsualizar todos los items del objeto albaran + if AllItems then begin + with AProveedor.DataTable do + begin + First; + while not EOF do + begin + ListaID.Add(IntToStr(AProveedor.ID)); + Next; + end; + end; + end + //Solo previsualizamos el item seleccionado + else ListaID.Add(IntToStr(AProveedor.ID)); - Next; - end; - end; - end - //Solo previsualizamos el item seleccionado - else - ListaID.Add(IntToStr(AProveedor.ID)); - - AReportController.Print(ListaID.CommaText); + AReportController.Print(ListaID.CommaText); + finally + FreeANDNIL(ListaID); + end; finally AReportController := NIL; - ListaID.Free; end; end; diff --git a/Source/Modulos/Contactos/Controller/uVendedoresController.pas b/Source/Modulos/Contactos/Controller/uVendedoresController.pas index d9861481..1b246e6f 100644 --- a/Source/Modulos/Contactos/Controller/uVendedoresController.pas +++ b/Source/Modulos/Contactos/Controller/uVendedoresController.pas @@ -26,7 +26,7 @@ type function Duplicar(AContacto: IBizContacto): IBizContacto; override; function Buscar(const ID: Integer): IBizContacto; override; function BuscarTodos: IBizContacto; overload; override; - function BuscarTodos(const CadenaIDs: String): IBizContacto; overload; + function BuscarTodos(const CadenaIDs: String): IBizContacto; overload; function Nuevo : IBizContacto; override; procedure Ver(AContacto : IBizContacto); override; procedure VerTodos(AContactos: IBizContacto); override; @@ -106,7 +106,6 @@ end; function TVendedoresController.DarListaVendedores: TStringList; var AVendedores: IBizContacto; - i : integer; begin AVendedores := BuscarTodos; AVendedores.DataTable.Active := True; @@ -160,10 +159,9 @@ function TVendedoresController.Eliminar(AVendedor: IBizContacto; AllItems: Boole //En el caso de eliminar almenos un elemento del conjunto se devuelve true var bEliminado: Boolean; - begin - Result := False; - + bEliminado := False; + if not Assigned(AVendedor) then raise Exception.Create ('Contacto no asignado'); diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dpk b/Source/Modulos/Contactos/Model/Contactos_model.dpk index 54d947310b36ce8db2e7cd6a7e4b11a4bc4d183f..9693fa7d8abf08ffe27db5e1eb0c6f3933eeae42 100644 GIT binary patch delta 98 zcmcb^bDL*_JX5G!eo<~>aX?~vetd3zN@|V{FPDM>l3;RvUP)1YPEKkOSSBR1Aivl% R%n?a3TnM3bb1BnvW&oqnB6R=& delta 99 zcmcc3bBAYxJX2UoQc+2c4lkF2f=gmaqGM8VNl{{QNxXA@QEI%4p&?kNEIB773Cv0< g&Pyx+vl3JCVH$%{bN!RDQj<%H;o3HrFg<4m00aCU&Hw-a diff --git a/Source/Modulos/Contactos/Model/Contactos_model.dproj b/Source/Modulos/Contactos/Model/Contactos_model.dproj index 26fb6dd7..86f28038 100644 --- a/Source/Modulos/Contactos/Model/Contactos_model.dproj +++ b/Source/Modulos/Contactos/Model/Contactos_model.dproj @@ -49,23 +49,21 @@ MainSource + + + + + + + + + - - - - - - - - - - - diff --git a/Source/Modulos/Contactos/Model/Contactos_model.res b/Source/Modulos/Contactos/Model/Contactos_model.res index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644 GIT binary patch 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 delta 11 ScmeBCZD5|Duvteife`=|>;pCc diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas index 21e4a991..70bca986 100644 --- a/Source/Modulos/Contactos/Model/uBizContactos.pas +++ b/Source/Modulos/Contactos/Model/uBizContactos.pas @@ -18,11 +18,6 @@ const CATEGORIA_VENDEDOR = 3; CATEGORIA_INSTALADOR = 4; - PROVEEDOR_REGIMEN_IVA = 'General'; - CLIENTE_REGIMEN_IVA = 'General'; - CLIENTE_DIAS_VENCIMIENTO = 15; - CLIENTE_RECARGO_EQUIVALENCIA = 0; - type IBizContacto = interface (IContactos) ['{CD585680-26B6-47A4-B684-89C468670F4A}'] @@ -382,11 +377,21 @@ type implementation + {$INCLUDE ..\..\..\FactuGES.inc} uses - uDataTableUtils, Classes, DateUtils, SysUtils, uFactuGES_App, uBizEmpresasTiendas; + uDataTableUtils, Classes, DateUtils, SysUtils, uFactuGES_App, + uBizEmpresasTiendas, uTiposIVAController, uBizTiposIVA, + uFormasPagoController, uBizFormasPago; + +const + PROVEEDOR_REGIMEN_IVA = 'General'; + CLIENTE_REGIMEN_IVA = 'General'; + CLIENTE_DIAS_VENCIMIENTO = 15; + CLIENTE_RECARGO_EQUIVALENCIA = 0; + { TBizContacto } @@ -643,13 +648,16 @@ begin end; procedure TBizCliente.IniciarValoresContactoNuevo; +var + AFormaPagoController: IFormasPagoController; + ATiposIVAController: ITiposIVAController; begin inherited; ID_CATEGORIA := CATEGORIA_CLIENTE; VENCIMIENTO_FACTURAS := CLIENTE_DIAS_VENCIMIENTO; BLOQUEADO := 0; RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA; - REGIMEN_IVA := CLIENTE_REGIMEN_IVA; + REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA); {$IFDEF CONTABILIDAD} IGNORAR_CONTABILIDAD := 0; @@ -658,8 +666,23 @@ begin IGNORAR_CONTABILIDAD := 1; TIENE_SUBCUENTA := 0; {$ENDIF} + + AFormaPagoController := TFormasPagoController.Create; + try + ID_FORMA_PAGO := AFormaPagoController.BuscarID(AppFactuGES.Configuracion.GetSettingAsString('Clientes.FormaPago')) + finally + AFormaPagoController := NIL; + end; + + ATiposIVAController := TTiposIVAController.Create; + try + ID_TIPO_IVA := ATiposIVAController.BuscarID(AppFactuGES.Configuracion.GetSettingAsString('Clientes.TipoIVA')) + finally + ATiposIVAController := NIL; + end; end; + { TBizProveedor } function TBizProveedor.GetGRUPO_PROVEEDORValue: String; diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj index eeea6c35..af493e2e 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dproj +++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj @@ -49,53 +49,47 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorCliente
@@ -227,6 +221,12 @@
frViewVendedores
TCustomView + + + + + +