Añadimos que se genere la subcuenta de proveedor al modificarlo si este activa la contabilidad y no se asocia ninguna subcuenta

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@184 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Base/Base.dproj

@@ -58,48 +58,48 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\designide.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\PluginSDK_D10R.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Modulos/Contactos/Model/uBizProveedoresServer.pas

@@ -213,9 +213,8 @@ begin
       Execute;
     end;
 
-//REPASAR en el caso de que se modifique el contacto sera todo manual    
     //En caso de no ignorar contabilidad se deberá dar de alta una cuenta para el cliente si el usuario no la ha asignado
-{    if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0) then
+    if (aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] = 0) then
     begin
       with TsrvContabilidad.Create(NIL) do
         try
@@ -229,7 +228,6 @@ begin
           Free;
         end;
     end;
-}
 
   finally
     ACommand := NIL;

Source/Modulos/Contactos/Views/Contactos_view.dproj

@@ -49,31 +49,31 @@
     <DelphiCompile Include="Contactos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Remesas de cliente\adortl.dcp" />
+    <DCCReference Include="..\adortl.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\ApplicationBase.dcp" />
+    <DCCReference Include="..\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\Base.dcp" />
+    <DCCReference Include="..\Base.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\ccpackD11.dcp" />
+    <DCCReference Include="..\ccpackD11.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\cfpack_d11.dcp" />
+    <DCCReference Include="..\cfpack_d11.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\Contactos_controller.dcp" />
+    <DCCReference Include="..\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\Contactos_model.dcp" />
+    <DCCReference Include="..\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\dbrtl.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\designide.dcp" />
+    <DCCReference Include="..\designide.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\dsnap.dcp" />
+    <DCCReference Include="..\dsnap.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\FormasPago_controller.dcp" />
+    <DCCReference Include="..\FormasPago_controller.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\FormasPago_model.dcp" />
+    <DCCReference Include="..\FormasPago_model.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\GUIBase.dcp" />
+    <DCCReference Include="..\GUIBase.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\GUISDK_D11.dcp" />
+    <DCCReference Include="..\GUISDK_D11.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\rtl.dcp" />
+    <DCCReference Include="..\rtl.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\TiposIVA_controller.dcp" />
+    <DCCReference Include="..\TiposIVA_controller.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\TiposIVA_model.dcp" />
+    <DCCReference Include="..\TiposIVA_model.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\vcl.dcp" />
+    <DCCReference Include="..\vcl.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\vclactnband.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\vcldb.dcp" />
+    <DCCReference Include="..\vcldb.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\vclx.dcp" />
+    <DCCReference Include="..\vclx.dcp" />
-    <DCCReference Include="..\..\Remesas de cliente\xmlrtl.dcp" />
+    <DCCReference Include="..\xmlrtl.dcp" />
     <DCCReference Include="uContactosViewRegister.pas" />
     <DCCReference Include="uEditorCliente.pas">
       <Form>fEditorCliente</Form>

Source/Modulos/Contactos/Views/uEditorProveedor.dfm

@@ -3,7 +3,7 @@ inherited fEditorProveedor: TfEditorProveedor
   ClientHeight = 590
   ClientWidth = 648
   ExplicitWidth = 656
-  ExplicitHeight = 617
+  ExplicitHeight = 624
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader

Source/Modulos/Contactos/Views/uEditorProveedor.pas

@@ -28,6 +28,7 @@ type
     frViewSubCuentaContacto1: TfrViewSubCuentaContacto;
     procedure actGruposProveedorExecute(Sender: TObject);
   protected
+    procedure GuardarInterno; override;  
     procedure EliminarInterno; override;
     procedure SetContacto(const Value: IBizContacto); override;
   public
@@ -77,6 +78,18 @@ begin
     inherited;
 end;
 
+procedure TfEditorProveedor.GuardarInterno;
+begin
+
+  //Si estamos modificando un proveedor y se activa la contabilidad, debemos avisar que se asignará una subcuenta al proveedor
+  if not Contacto.EsNuevo
+  and (frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue = 0) then
+      if (ShowConfirmMessage('Confirmación de subcuenta', 'Se creará una nueva subcuenta para el proveedor' + #10#13 + '¿Esta seguro que desea continuar?') = IDNO) then
+         frViewSubCuentaContacto1.cbIgnorarContabilidad.EditValue := 1;
+
+  inherited;
+end;
+
 procedure TfEditorProveedor.PonerTitulos(const ATitulo: string);
 var
   FTitulo : String;

Source/Servidor/FactuGES_Server.dproj

@@ -30,6 +30,7 @@
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.1.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de marzo de 2008 19:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
       
+      
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>