Repaso general antes de primera subida a produccion

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@44 f33bb606-9f5c-448d-9c99-757f00063c96

Database/scripts/factuges_sysdata.sql

@@ -8,20 +8,6 @@ INSERT INTO CATEGORIAS (ID, CATEGORIA) VALUES (3, 'EMPLEADO');
 SET GENERATOR GEN_CATEGORIAS_ID TO 4;
 COMMIT WORK;
 
-INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (1, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por artículo', 'Informe de ventas por artículo', NULL, 'S');
-INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (2, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por cliente', 'Informe de ventas por cliente y artículo', NULL, 'S');
-INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (3, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por agente y cliente', 'Informe de ventas por agente y cliente', NULL, 'S');
-INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (4, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de venta promedio', NULL, 'S');
-INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (5, 1, 'VENTAS ARTICULOS', 'InfVentasArticuloController', 4, 'Ventas por proveedor', 'Informe de ventas por proveedor y artículo', NULL, 'S');
-INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (6, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por cliente', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S');
-INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (7, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 0, 'Margen (promedio) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de venta promedio', NULL, 'S');
-INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (8, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por artículo', 'Informe de margen por artículo teniendo en cuenta el precio neto de última venta', NULL, 'S');
-INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (9, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult.venta) por clientes', 'Informe de margen por artículo agrupado por cliente teniendo en cuenta el precio neto de última venta', NULL, 'S');
-INSERT INTO INFORMES (ID, ID_EMPRESA, CATEGORIA, CONTROLLER, ICONO, NOMBRE, DESCRIPCION, ORDEN, MODIFICABLE) VALUES (10, 1, 'MARGEN ARTICULOS', 'InfMargenArticuloController', 2, 'Margen (ult. venta) por agente y cliente', 'Informe de margen por artículo agrupado por agente y cliente teniendo en cuenta el precio neto de última venta', NULL, 'S');
-SET GENERATOR GEN_INFORMES_ID TO 11;
-COMMIT WORK;
-
-
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (1, 1, 'REF_FACTURAS_CLIENTE', 'FAC08/000001', 'Ref. facturas de cliente');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (2, 1, 'REF_PEDIDOS_PROVEEDOR', 'PED08/000001', 'Ref. pedidos de proveedor');
 INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (3, NULL, 'REF_ALBARANES_CLIENTE', 'ALB08/000001', 'Ref. albaranes de cliente');
@@ -99,8 +85,9 @@ INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES
 SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 24;
 COMMIT WORK;
 
-INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (1, '', 'NOVISEDA S.L.', 'NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -');
+INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, PARAM_TIEMPO, PARAM_MARGEN, ID_TIPO_IVA, ID_FORMA_PAGO) VALUES (1, 'B-81150278', 'NOVISEDA S.L.', 'NOVISEDA S.L.', 'C/ San Alejandro, 10', 'Madrid', 'Madrid', '28005', '91 364 22 06', NULL, NULL, NULL, '91 365 53 54', 'noviseda@fedecon.es', NULL, NULL, NULL, NULL, 'Administrador', 'Reg. Merc. de Madrid, Tomo 9.450, Libro 0, Folio 1, Sección 8ª, Hoja M-151873. Inscripción 1ª CIF: B-81150278', NULL, NULL, NULL, NULL);
-INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (2, '', 'PRUEBAS - NOVISEDA S.L.', 'PRUEBAS - NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -');
+INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, PARAM_TIEMPO, PARAM_MARGEN, ID_TIPO_IVA, ID_FORMA_PAGO) VALUES (2, 'B-81159278', 'PRUEBAS - NOVISEDA S.L.', 'PRUEBAS - NOVISEDA S.L.', 'C/ San Alejandro, 10', 'Madrid', 'Madrid', '28005', '91 364 22 06', NULL, '', NULL, '91 365 53 54', 'noviseda@fedecon.es', NULL, NULL, NULL, NULL, 'Administrador', 'Reg. Merc. de Madrid, Tomo 9.450, Libro 0, Folio 1, Sección 8ª, Hoja M-151873. Inscripción 1ª CIF: B-81150278', NULL, NULL, NULL, NULL);
+
 SET GENERATOR GEN_EMPRESAS_ID TO 3;
 COMMIT WORK;
 

Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm

@@ -326,8 +326,6 @@ inherited fEditorEmpresa: TfEditorEmpresa
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 165
-            ExplicitWidth = 202
-            Width = 202
           end
           inherited cbTipoIVA: TcxComboBox
             Top = 138
@@ -336,8 +334,6 @@ inherited fEditorEmpresa: TfEditorEmpresa
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 138
-            ExplicitWidth = 202
-            Width = 202
           end
         end
       end
@@ -371,6 +367,18 @@ inherited fEditorEmpresa: TfEditorEmpresa
         inherited ToolBar1: TToolBar
           Width = 660
           ExplicitWidth = 660
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
         end
       end
     end

Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm

@@ -23,6 +23,7 @@ inherited frViewEmpresa: TfrViewEmpresa
       Width = 23
       Height = 22
       Action = actEliminar
+      Enabled = False
       PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
     end
     object PngSpeedButton2: TPngSpeedButton
@@ -31,6 +32,7 @@ inherited frViewEmpresa: TfrViewEmpresa
       Width = 23
       Height = 22
       Action = actAnadir
+      Enabled = False
       PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
     end
     object eCalle: TcxDBTextEdit
@@ -148,6 +150,7 @@ inherited frViewEmpresa: TfrViewEmpresa
       Top = 388
       DataBinding.DataField = 'NOTAS'
       DataBinding.DataSource = DADataSource
+      Enabled = False
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
@@ -329,6 +332,7 @@ inherited frViewEmpresa: TfrViewEmpresa
       Top = 277
       DataBinding.DataField = 'LOGOTIPO'
       DataBinding.DataSource = DADataSource
+      Enabled = False
       Properties.Stretch = True
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
@@ -350,6 +354,7 @@ inherited frViewEmpresa: TfrViewEmpresa
       Top = 220
       DataBinding.DataField = 'PARAM_MARGEN'
       DataBinding.DataSource = DADataSource
+      Enabled = False
       Properties.OnValidate = eParamMargenPropertiesValidate
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
@@ -375,6 +380,7 @@ inherited frViewEmpresa: TfrViewEmpresa
       Top = 220
       DataBinding.DataField = 'PARAM_TIEMPO'
       DataBinding.DataSource = DADataSource
+      Enabled = False
       Properties.Alignment.Horz = taRightJustify
       Properties.OnValidate = eParamTiempoPropertiesValidate
       Style.BorderColor = clWindowFrame
@@ -551,6 +557,8 @@ inherited frViewEmpresa: TfrViewEmpresa
         end
         object dxLayoutControl1Group13: TdxLayoutGroup
           Caption = 'Datos cat'#225'logo art'#237'culos'
+          Enabled = False
+          Visible = False
           LayoutDirection = ldHorizontal
           object dxLayoutControl1Item18: TdxLayoutItem
             Caption = 'Margen de venta:'
@@ -609,6 +617,8 @@ inherited frViewEmpresa: TfrViewEmpresa
           AlignHorz = ahClient
           AlignVert = avClient
           Caption = 'Observaciones'
+          Enabled = False
+          Visible = False
           object dxLayoutControl1Item8: TdxLayoutItem
             AutoAligns = [aaHorizontal]
             AlignVert = avClient
@@ -674,6 +684,7 @@ inherited frViewEmpresa: TfrViewEmpresa
           AlignHorz = ahClient
           AlignVert = avClient
           Caption = 'Logotipo'
+          Enabled = False
           Visible = False
           LayoutDirection = ldHorizontal
           object dxLayoutControl1Item17: TdxLayoutItem

Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.dfm

@@ -2,6 +2,12 @@ inherited fEditorPerfilUsuario: TfEditorPerfilUsuario
   Caption = 'fEditorPerfilUsuario'
   PixelsPerInch = 96
   TextHeight = 13
+  inherited JvNavPanelHeader: TJvNavPanelHeader
+    inherited lblDesbloquear: TcxLabel
+      AnchorX = 821
+      AnchorY = 14
+    end
+  end
   inherited TBXDock: TTBXDock
     inherited tbxMain: TTBXToolbar
       ExplicitWidth = 330
@@ -11,7 +17,7 @@ inherited fEditorPerfilUsuario: TfEditorPerfilUsuario
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
       ExplicitTop = 24
-      ExplicitWidth = 638
+      ExplicitWidth = 887
       ExplicitHeight = 332
     end
   end

Source/ApplicationBase/Usuarios/Views/uEditorPerfilUsuario.pas

@@ -9,7 +9,8 @@ uses
   StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item,
   TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane,
   uIEditorPerfilUsuario, uUsuariosController, uCustomView, uViewBase,
-  uViewPerfilUsuario, uBizUsuarios, dxLayoutLookAndFeels;
+  uViewPerfilUsuario, uBizUsuarios, dxLayoutLookAndFeels, cxControls,
+  cxContainer, cxEdit, cxLabel;
 
 type
   TfEditorPerfilUsuario = class(TfEditorDBItem, IEditorPerfilUsuario)
@@ -74,8 +75,8 @@ end;
 constructor TfEditorPerfilUsuario.Create(AOwner: TComponent);
 begin
   inherited;
-  pgPaginas.ActivePageIndex := 0;
   AsignarVista;
+  pgPaginas.ActivePageIndex := 0;  
 end;
 
 destructor TfEditorPerfilUsuario.Destroy;

Source/ApplicationBase/Usuarios/Views/uEditorPerfilesUsuario.dfm

@@ -37,5 +37,9 @@ inherited fEditorPerfilesUsuario: TfEditorPerfilesUsuario
     inherited actDuplicar: TAction
       Visible = False
     end
+    inherited actExportarExcel: TAction
+      Enabled = False
+      Visible = False
+    end
   end
 end

Source/ApplicationBase/Usuarios/Views/uEditorUsuario.dfm

@@ -2,6 +2,12 @@ inherited fEditorUsuario: TfEditorUsuario
   Caption = 'fEditorUsuario'
   PixelsPerInch = 96
   TextHeight = 13
+  inherited JvNavPanelHeader: TJvNavPanelHeader
+    inherited lblDesbloquear: TcxLabel
+      AnchorX = 821
+      AnchorY = 14
+    end
+  end
   inherited TBXDock: TTBXDock
     inherited tbxMain: TTBXToolbar
       ExplicitWidth = 465
@@ -22,10 +28,14 @@ inherited fEditorUsuario: TfEditorUsuario
   end
   inherited pgPaginas: TPageControl
     inherited pagGeneral: TTabSheet
+      ExplicitLeft = 4
+      ExplicitTop = 24
+      ExplicitWidth = 887
+      ExplicitHeight = 332
       inline frViewUsuario1: TfrViewUsuario
         Left = 0
         Top = 0
-        Width = 638
+        Width = 887
         Height = 332
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
@@ -36,14 +46,14 @@ inherited fEditorUsuario: TfEditorUsuario
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
-        ExplicitWidth = 638
+        ExplicitWidth = 887
         ExplicitHeight = 332
         inherited dxLayoutControlArticulo: TdxLayoutControl
-          Width = 638
+          Width = 887
           LookAndFeel = dxLayoutOfficeLookAndFeel1
-          ExplicitWidth = 638
+          ExplicitWidth = 887
           DesignSize = (
-            638
+            887
             249)
           inherited PngSpeedButton3: TPngSpeedButton
             Top = 84
@@ -51,12 +61,20 @@ inherited fEditorUsuario: TfEditorUsuario
           end
           inherited eNombre: TcxDBTextEdit
             Top = 30
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 30
             ExplicitWidth = 164
             Width = 164
           end
           inherited eUsuario: TcxDBTextEdit
             Top = 57
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 57
             ExplicitWidth = 108
             Width = 108
@@ -64,22 +82,38 @@ inherited fEditorUsuario: TfEditorUsuario
           inherited eMail: TcxDBHyperLinkEdit
             Top = 84
             Properties.Prefix = 'mailto:'
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 84
           end
           inherited ePassword: TcxTextEdit
             Top = 163
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 163
             ExplicitWidth = 121
             Width = 121
           end
           inherited eConfirmarPassword: TcxTextEdit
             Top = 190
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 190
             ExplicitWidth = 372
             Width = 372
           end
           inherited cbPerfil: TcxComboBox
             Top = 112
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
             ExplicitTop = 112
           end
         end

Source/ApplicationBase/Usuarios/Views/uEditorUsuario.pas

@@ -9,7 +9,7 @@ uses
   StdActns, ActnList, ComCtrls, JvExComCtrls, JvStatusBar, TBX, TB2Item,
   TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvNavigationPane,
   uIEditorUsuario, uUsuariosController, uCustomView, uViewBase, uViewUsuario,
-  uBizUsuarios, dxLayoutLookAndFeels;
+  uBizUsuarios, dxLayoutLookAndFeels, cxControls, cxContainer, cxEdit, cxLabel;
 
 type
   TfEditorUsuario = class(TfEditorDBItem, IEditorUsuario)
@@ -24,6 +24,7 @@ type
     procedure actEliminarUpdate(Sender: TObject);
     procedure actCambiarPasswordExecute(Sender: TObject);
     procedure actCambiarPasswordUpdate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     FController : IUsuariosController;
     FUsuario : IBizUsuario;
@@ -57,7 +58,7 @@ implementation
 {$R *.dfm}
 
 uses
-  uDialogUtils, cxControls;
+  uDialogUtils;
 
 { TfEditorUsuario }
 
@@ -106,6 +107,12 @@ begin
   end;
 end;
 
+procedure TfEditorUsuario.FormShow(Sender: TObject);
+begin
+  inherited;
+//
+end;
+
 function TfEditorUsuario.GetController: IUsuariosController;
 begin
   Result := FController;

Source/Base/Controladores/uControllerDetallesBase.pas

@@ -300,7 +300,7 @@ procedure TControllerDetallesBase.CalculoDetalleDescuento(
   ImporteDto : Double;
   Redondeado : Double;}
 begin
-//Este metodo calcula el descuento por capitulo que no se activa para tecsitel 
+//Este metodo calcula el descuento por capitulo que no se activa para noviseda
 {  with DataTable do
   begin
     if not Editing then Edit;

Source/Cliente/FactuGES.dproj

@@ -53,7 +53,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>

Source/Cliente/FactuGES.rc

@@ -15,8 +15,7 @@ BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "InternalName", "FactuGES\0"
-              VALUE "ProductName", "1.0.0.0\0"
+              VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "ProductVersion", "2.0.0.0\0"
          END
     END
     BLOCK "VarFileInfo"

Source/GUIBase/uEditorBase.pas

@@ -127,6 +127,8 @@ type
     procedure actEliminarUpdate(Sender: TObject);
     procedure actGuardarCerrarUpdate(Sender: TObject);
     procedure actGuardarUpdate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+      
   protected
     FWindowCaption : String;
     FHeaderText : String;
@@ -154,7 +156,7 @@ type
     constructor Create(AOwner: TComponent); override;
     function ShowModal : Integer; override;
     procedure Show;
-    procedure FormShow(Sender: TObject);
+
   published
     property WindowCaption : String read GetWindowCaption write SetWindowCaption;
     property HeaderText : String read GetHeaderText write SetHeaderText;

Source/GUIBase/uEditorPreview.dfm

@@ -34,6 +34,8 @@ inherited fEditorPreview: TfEditorPreview
         end
         object TBXSubmenuItem8: TTBXSubmenuItem [11]
           Caption = 'Exportar'
+          Enabled = False
+          Visible = False
           object TBXItem53: TTBXItem
             Action = actExportarPDF
             Images = SmallImages
@@ -273,31 +275,41 @@ inherited fEditorPreview: TfEditorPreview
     object actExportarPDF: TAction
       Category = 'Exportaci'#243'n'
       Caption = 'Exportar a PDF...'
+      Enabled = False
       ImageIndex = 21
+      Visible = False
       OnExecute = actExportarPDFExecute
     end
     object actExportarRTF: TAction
       Category = 'Exportaci'#243'n'
       Caption = 'Exportar a documento Word...'
+      Enabled = False
       ImageIndex = 24
+      Visible = False
       OnExecute = actExportarRTFExecute
     end
     object actExportarExcel: TAction
       Category = 'Exportaci'#243'n'
       Caption = 'Exportar a libro Excel...'
+      Enabled = False
       ImageIndex = 22
+      Visible = False
       OnExecute = actExportarExcelExecute
     end
     object actExportarCorreo: TAction
       Category = 'Exportaci'#243'n'
       Caption = 'Enviar por correo electr'#243'nico...'
+      Enabled = False
       ImageIndex = 25
+      Visible = False
       OnExecute = actExportarCorreoExecute
     end
     object actExportarTexto: TAction
       Category = 'Exportaci'#243'n'
       Caption = 'Exportar a texto simple...'
+      Enabled = False
       ImageIndex = 23
+      Visible = False
       OnExecute = actExportarTextoExecute
     end
   end
@@ -2478,7 +2490,7 @@ inherited fEditorPreview: TfEditorPreview
     Bitmap = {}
   end
   object frxReport1: TfrxReport
-    Version = '4.3'
+    Version = '4.7.71'
     DotMatrixReport = False
     EngineOptions.DoublePass = True
     IniFile = '\Software\Fast Reports'
@@ -2529,6 +2541,7 @@ inherited fEditorPreview: TfEditorPreview
     ShowDialog = False
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
     Monochrome = True
     Left = 120
     Top = 384
@@ -2536,13 +2549,21 @@ inherited fEditorPreview: TfEditorPreview
   object frxPDFExport1: TfrxPDFExport
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
     PrintOptimized = True
     Outline = False
+    Background = False
+    HTMLTags = False
     Author = 'FastReport'#174
     Subject = 'FastReport PDF export'
-    Background = False
     Creator = 'FastReport (http://www.fast-report.com)'
-    HTMLTags = False
+    ProtectionFlags = [ePrint, eModify, eCopy, eAnnot]
+    HideToolbar = False
+    HideMenubar = False
+    HideWindowUI = False
+    FitWindow = False
+    CenterWindow = False
+    PrintScaling = False
     Left = 160
     Top = 384
   end
@@ -2550,6 +2571,7 @@ inherited fEditorPreview: TfEditorPreview
     ShowDialog = False
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
     Monochrome = True
     Left = 192
     Top = 384
@@ -2557,6 +2579,8 @@ inherited fEditorPreview: TfEditorPreview
   object frxXLSExport1: TfrxXLSExport
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
+    ExportEMF = True
     AsText = False
     Background = True
     FastExport = True
@@ -2569,25 +2593,32 @@ inherited fEditorPreview: TfEditorPreview
   object frxMailExport1: TfrxMailExport
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
     ShowExportDialog = True
     SmtpPort = 25
     UseIniFile = True
+    TimeOut = 60
+    ConfurmReading = False
     Left = 80
     Top = 384
   end
   object frxRTFExport: TfrxRTFExport
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
+    ExportEMF = True
     Wysiwyg = True
     Creator = 'FastReport http://www.fast-report.com'
     SuppressPageHeadersFooters = False
     HeaderFooterMode = hfText
+    AutoSize = False
     Left = 232
     Top = 384
   end
   object frxSimpleTextExport1: TfrxSimpleTextExport
     UseFileCache = True
     ShowProgress = True
+    OverwritePrompt = False
     Frames = False
     EmptyLines = False
     OEMCodepage = False

Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas

@@ -167,7 +167,7 @@ uses
   uIEditorElegirAlbaranesCliente, uIEditorDireccionEntregaAlbaranCliente,
   schContactosClient_Intf, uAlbaranesClienteReportController, uControllerDetallesBase,
 
-// Pedidos no estará en TECSITEL  
+// Pedidos no estará en noviseda
 //  uPedidosClienteController, uBizPedidosCliente, uBizDetallesPedidoCliente, schPedidosClienteClient_Intf,
 
   uDialogUtils, Windows, Forms, Dialogs, uGUIBase, uIntegerListUtils,

Source/Modulos/Albaranes de cliente/Controller/uDetallesAlbaranClienteController.pas

@@ -187,7 +187,7 @@ end;
 
 procedure TDetallesAlbaranClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
 begin
-//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
+//Como en noviseda no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
 //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
   if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
      if Assigned(AArticulos) then

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm

@@ -2,6 +2,7 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
   Caption = 'Lista de albaranes de cliente'
   ClientWidth = 583
   ExplicitWidth = 591
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader

Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas

@@ -91,7 +91,7 @@ implementation
 uses
   uDataModuleAlbaranesCliente, uDataModuleUsuarios, uFactuGES_App,
   uGenerarFacturasCliAlbCliUtils,
-//En tecsitel no estaran habilitados los pedidos
+//En noviseda no estaran habilitados los pedidos
 //  uPedidosClienteController, uBizPedidosCliente,
   uDialogUtils, schAlbaranesClienteClient_Intf,
 //  uFacturasClienteController, uBizFacturasCliente,

Source/Modulos/Articulos/Controller/uArticulosController.pas

@@ -182,7 +182,7 @@ function TArticulosController.BuscarReferencia(const Ref: String; AClienteID: In
 begin
   ShowHourglassCursor;
   try
-//En tecsitel se desactiva el sacar una lista de articulos personalizada por cliente
+//En noviseda se desactiva el sacar una lista de articulos personalizada por cliente
 //    if (AClienteID = -1)  then
        Result := BuscarTodos;
 //    else
@@ -217,7 +217,7 @@ function TArticulosController.BuscarReferenciaProveedor(const Ref: String; AClie
 begin
   ShowHourglassCursor;
   try
-//En tecsitel se desactiva el sacar una lista de articulos personalizada por cliente
+//En noviseda se desactiva el sacar una lista de articulos personalizada por cliente
 //    if (AClienteID = -1)  then
        Result := BuscarTodosPorProveedor;
 //    else
@@ -254,7 +254,7 @@ end;
 
 function TArticulosController.BuscarTodos(ACliente: IBizCliente): IBizArticulo;
 begin
-//En tecsitel se desactiva el sacar una lista de articulos personalizada por cliente
+//En noviseda se desactiva el sacar una lista de articulos personalizada por cliente
 //  if not Assigned(ACliente) then
 //     raise Exception.Create('Falta ACliente: BuscarTodos');
 

Source/Modulos/Articulos/Views/uViewArticulos.dfm

@@ -159,7 +159,6 @@ inherited frViewArticulos: TfrViewArticulos
   end
   inherited pnlAgrupaciones: TTBXDockablePanel
     Top = 436
-    Visible = True
     ExplicitTop = 436
     ExplicitWidth = 715
     inherited TBXAlignmentPanel1: TTBXAlignmentPanel

Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas

@@ -158,7 +158,7 @@ end;
 
 procedure TDetallesFacturaClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
 begin
-//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
+//En noviseda no se tiene en cuenta el descuento de cliente para el precio PVP
 //  if Assigned(AArticulos) then
 //    ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
 //  else
@@ -173,7 +173,7 @@ end;
 
 procedure TDetallesFacturaClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
 begin
-//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
+//Como en noviseda no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
 //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
   if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
      if Assigned(AArticulos) then

Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas

@@ -66,7 +66,7 @@ end;
 
 function TDataModuleFacturasCliente.NewItem: IBizFacturaCliente;
 begin
-//
+  Result := GetItem(ID_NULO)
 end;
 
 function TDataModuleFacturasCliente._GetDetalles: IBizDetallesFacturaCliente;

Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm

@@ -2,7 +2,6 @@ inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview
   Caption = 'Previsualizar la factura'
   ClientWidth = 622
   ExplicitWidth = 630
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -20,7 +19,6 @@ inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview
       ExplicitWidth = 622
     end
     inherited TBXToolbar1: TTBXToolbar
-      ExplicitWidth = 540
       object TBXItem58: TTBXItem [1]
         Action = actExportarRTF
         Images = SmallImages

Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas

@@ -1015,7 +1015,7 @@ begin
   ARecibos := ARecibosProveedorController.BuscarRecibosFactura(AFactura.ID);
   ARecibosProveedorController.EliminarTodo(ARecibos);
 
-  //Se cambia la lógica a peticion de tecsitel, en el caso de meter una fecha de vencimiento,
+  //Se cambia la lógica a peticion de noviseda, en el caso de meter una fecha de vencimiento,
   //los plazos de la forma de pago no tendrán efecto, se generará un recibo con el 100% y fecha de vencimiento
   //de la factura.
   With AFormaPago.Plazos.DataTable do

Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm

@@ -5,6 +5,7 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
   ClientWidth = 700
   Position = poDesigned
   ExplicitWidth = 708
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader

Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas

@@ -345,7 +345,7 @@ procedure TfEditorPedidosProveedor.NuevoInterno;
 begin
   inherited;
 
-// Para Tecsitel: No preguntar si hacer el pedido de proveedor
+// Para noviseda: No preguntar si hacer el pedido de proveedor
 // basado en pedido de cliente.
 
 {  Respuesta := JsNuevoPedidoProveedorDialog.Execute;

Source/Modulos/Presupuestos de cliente/Controller/uDetallesPresupuestoClienteController.pas

@@ -162,7 +162,7 @@ end;
 
 procedure TDetallesPresupuestoClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
 begin
-//En Tecsitel no se tiene en cuenta el descuento de cliente para el precio PVP
+//En noviseda no se tiene en cuenta el descuento de cliente para el precio PVP
 //  if Assigned(AArticulos) then
 //    ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
 //  else
@@ -177,7 +177,7 @@ end;
 
 procedure TDetallesPresupuestoClienteController.RellenarImportes(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
 begin
-//Como en tecsitel no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
+//Como en noviseda no hay descuento por linea de detalle, solo recuperamos nuevamente el valor del articulo cuando el detalle no tenga niguno
 //de esta forma evitamos que al cambiar de cliente se quiten los importes que se hubiesen establecido para los articulos.
   if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
      if Assigned(AArticulos) then

Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm

@@ -68,8 +68,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
         Left = 0
         Top = 0
         Width = 677
-        Height = 335
+        Height = 301
-        Align = alTop
+        Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
         Font.Height = -11
@@ -82,12 +82,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
         ExplicitHeight = 335
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 677
-          Height = 335
+          Height = 301
           ExplicitWidth = 677
           ExplicitHeight = 335
           DesignSize = (
             677
-            335)
+            301)
           inherited eReferencia: TcxDBTextEdit
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
@@ -123,53 +123,53 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
             Width = 315
           end
           inherited eFechaEmision: TcxDBTextEdit
-            Left = 441
+            Left = 438
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 441
+            ExplicitLeft = 438
             ExplicitWidth = 214
             Width = 214
           end
           inherited eFormaPago: TcxDBTextEdit
-            Left = 441
+            Left = 438
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 441
+            ExplicitLeft = 438
             ExplicitWidth = 214
             Width = 214
           end
           inherited eImporteTotal: TcxDBCurrencyEdit
-            Left = 441
+            Left = 438
             Style.LookAndFeel.SkinName = ''
             Style.IsFontAssigned = True
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 441
+            ExplicitLeft = 438
             ExplicitWidth = 214
             Width = 214
           end
           inherited eNombreCliente: TcxDBTextEdit
-            Left = 441
+            Left = 438
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 441
+            ExplicitLeft = 438
             ExplicitWidth = 214
             Width = 214
           end
           inherited eNifCif: TcxDBTextEdit
-            Left = 441
+            Left = 438
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 441
+            ExplicitLeft = 438
             ExplicitWidth = 214
             Width = 214
           end
@@ -206,12 +206,12 @@ inherited fEditorReciboCliente: TfEditorReciboCliente
             Width = 217
           end
           inherited eCuenta: TcxDBTextEdit
-            Left = 441
+            Left = 438
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 441
+            ExplicitLeft = 438
             ExplicitWidth = 214
             Width = 214
           end

Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm

@@ -1,22 +1,24 @@
 inherited frViewReciboCliente: TfrViewReciboCliente
-  Width = 795
+  Width = 856
-  Height = 333
+  Height = 450
-  ExplicitWidth = 795
+  ExplicitWidth = 856
-  ExplicitHeight = 333
+  ExplicitHeight = 450
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 795
+    Width = 856
-    Height = 333
+    Height = 450
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
+    ExplicitWidth = 795
+    ExplicitHeight = 333
     DesignSize = (
-      795
+      856
-      333)
+      450)
     object eReferencia: TcxDBTextEdit
       Left = 120
       Top = 30
@@ -126,7 +128,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       Width = 314
     end
     object eFechaEmision: TcxDBTextEdit
-      Left = 545
+      Left = 529
       Top = 30
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_FACTURA'
@@ -156,7 +158,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       Width = 228
     end
     object eFormaPago: TcxDBTextEdit
-      Left = 545
+      Left = 529
       Top = 57
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FORMA_PAGO_FACTURA'
@@ -186,7 +188,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       Width = 228
     end
     object eImporteTotal: TcxDBCurrencyEdit
-      Left = 545
+      Left = 529
       Top = 111
       AutoSize = False
       DataBinding.DataField = 'IMPORTE_FACTURA'
@@ -222,7 +224,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       Width = 228
     end
     object eNombreCliente: TcxDBTextEdit
-      Left = 545
+      Left = 529
       Top = 194
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'NOMBRE_CLIENTE'
@@ -252,7 +254,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       Width = 228
     end
     object eNifCif: TcxDBTextEdit
-      Left = 545
+      Left = 529
       Top = 167
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'NIF_CIF_CLIENTE'
@@ -400,7 +402,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       Width = 216
     end
     object eCuenta: TcxDBTextEdit
-      Left = 545
+      Left = 529
       Top = 84
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'DATOS_BANCARIOS'
@@ -498,6 +500,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
         end
         object dxLayoutControl1Group8: TdxLayoutGroup
           AutoAligns = [aaVertical]
+          AlignHorz = ahClient
           Caption = 'New Group'
           ShowCaption = False
           ShowBorder = False
@@ -548,6 +551,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente
       end
       object dxLayoutControl1Group7: TdxLayoutGroup
         AutoAligns = [aaHorizontal]
+        AlignVert = avClient
         Caption = 'Observaciones'
         object dxLayoutControl1Item5: TdxLayoutItem
           AutoAligns = [aaHorizontal]

Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas

@@ -220,8 +220,9 @@ begin
 //      if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos del albaran seleccionados a su factura correspondiente?', [])) = IDYES) then
 //        Result := GenerarFacturaCliAlb(AAlbaran)
 //      else
+//        Result := GenerarFacturaCliAlb(AAlbaran, False);
 //Siempre se copiaran todos los detalles del albarán a la factura ya que siempre será una relación 1 a 1.
-        Result := GenerarFacturaCliAlb(AAlbaran, False);
+        Result := GenerarFacturaCliAlb(AAlbaran);
     end;
 
     if Assigned(AAlbaranesClienteController) then
@@ -299,10 +300,13 @@ begin
 
     if Assigned(AAlbaranes) then
     begin
-      if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los albaran/es seleccionados a sus facturas correspondientes?', [])) = IDYES) then
+//      if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los albaran/es seleccionados a sus facturas correspondientes?', [])) = IDYES) then
-         Result := GenerarFacturaCliAlb(AAlbaranes)
+//         Result := GenerarFacturaCliAlb(AAlbaranes)
-      else
+//      else
-         Result := GenerarFacturaCliAlb(AAlbaranes, False);
+//         Result := GenerarFacturaCliAlb(AAlbaranes, False);
+//Siempre se copiaran todos los detalles del albarán a la factura ya que siempre será una relación 1 a 1.
+        Result := GenerarFacturaCliAlb(AAlbaranes);
+
     end;
 
     if Assigned(AAlbaranesClienteController) then
@@ -357,7 +361,9 @@ begin
         AAlbaranesController.RecuperarCliente(AListaAlbaranes);
         AListaAlbaranes.Cliente.DataTable.Active := True;
         AFacturas.Cliente := AListaAlbaranes.Cliente;
-        AFacturas.ID_FORMA_PAGO := AListaAlbaranes.ID_FORMA_PAGO;        
+        AFacturas.ID_FORMA_PAGO := AListaAlbaranes.ID_FORMA_PAGO;
+        AFacturas.DATOS_BANCARIOS := AListaAlbaranes.DATOS_BANCARIOS;
+        AFacturas.PERSONA_CONTACTO := AListaAlbaranes.PERSONA_CONTACTO;                        
 
         //Si el albaran es de tipo devolución hacemos la factura de tipo abono
         if (AListaAlbaranes.TIPO = CTE_TIPO_ALBARAN_DEV) then
@@ -385,7 +391,7 @@ begin
           Edit;
           CONCEPTO := 'Albaran ' + AListaAlbaranes.REFERENCIA;
           CANTIDAD := 1;
-          IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL;    //Tecsitel no utiliza el IVA en los pedidos por lo tanto el
+          IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL;    //noviseda no utiliza el IVA en los pedidos por lo tanto el
                                                                 //importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE)
           Post;
         end;
@@ -404,7 +410,8 @@ begin
         // Añado el contenido del albarán
         CopiarArticulosAlbaran(AListaAlbaranes.Detalles, AFacturaActual.Detalles);
 
-        AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
+//No hay porte en noviseda
+{        AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
         with AFacturaActual.Detalles do
         begin
           Edit;
@@ -413,6 +420,7 @@ begin
           IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_PORTE;
           Post;
         end;
+}
 
         // Añado el resumen
         AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL);

Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas

@@ -402,7 +402,7 @@ begin
           Edit;
           CONCEPTO := 'Albaran ' + AListaAlbaranes.REFERENCIA;
           CANTIDAD := 1;
-          IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL;    //Tecsitel no utiliza el IVA en los pedidos por lo tanto el
+          IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL;    //noviseda no utiliza el IVA en los pedidos por lo tanto el
                                                                 //importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE)
           Post;
         end;

Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas

@@ -361,7 +361,7 @@ begin
             Edit;
             CONCEPTO := 'Pedido ' + AListaPedidos.REFERENCIA;
             CANTIDAD := 1;
-            IMPORTE_UNIDAD := AListaPedidos.IMPORTE_TOTAL;      //Tecsitel no utiliza el IVA en los pedidos por lo tanto el
+            IMPORTE_UNIDAD := AListaPedidos.IMPORTE_TOTAL;      //noviseda no utiliza el IVA en los pedidos por lo tanto el
                                                                 //importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE)
             Post;
           end;

Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas

@@ -353,7 +353,7 @@ begin
             Edit;
             CONCEPTO := 'Presupuesto ' + AListaPresupuestos.REFERENCIA;
             CANTIDAD := 1;
-            IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los presupuestos por lo tanto el
+            IMPORTE_UNIDAD := AListaPresupuestos.IMPORTE_TOTAL; //noviseda no utiliza el IVA en los presupuestos por lo tanto el
                                                                 //importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE)
             Post;
           end;

Source/Servidor/FactuGES_Server.dproj

@@ -35,7 +35,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<Borland.ProjectType/>
 		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</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.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 15 de enero de 2010 17:13</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</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.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 20 de enero de 2010 11:54</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "martes, 19 de enero de 2010 19:31\0"
+              VALUE "CompileDate", "miércoles, 20 de enero de 2010 12:54\0"
          END
     END
     BLOCK "VarFileInfo"