Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

4.0.8

Browse Source 
* Errores #497: Facturas de cliente cuando se crea una nueva y elegimos articulos de la lista no recupera bien el precio coste
    * Errores #498: En la lista de articulos a seleccionar de la parte de documentos de cliente no deben de verse las columnas importe neto (ya que es el suyo y no el del cliente)
    * Errores #499: Se quita el parche para que carlos no visualizara lo de las dos empresas


git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@99 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-11-05 18:32:33 +00:00
parent 69227caa2d
commit 2c85e0fb91
34 changed files with 385 additions and 176 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

7
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -375,13 +375,6 @@ var
AEmpresas: IBizEmpresa;
AEmpresasController: IEmpresasController;
begin
//PARCHE
if (AppFactuGES.UsuarioActivo.ID = 2) then
begin
CambiarEmpresa(1);
exit;
end;
JsDialog := TJSDialog.Create(nil);
try
JsDialog.Content.Add('Selección de empresa');

106
Source/Base/Base.dproj
View File

@ -45,6 +45,8 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><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><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@ -62,59 +64,59 @@
<Form>DataModuleRegistroCorreos</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dxCoreD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Remesas de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.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\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.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\dxCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.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\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\RemObjects_Indy_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>

2
Source/Cliente/FactuGES.dproj
View File

@ -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">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">7</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">4.0.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.7.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">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">8</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">4.0.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.0.8.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>

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
FILEVERSION 4,0,7,0
PRODUCTVERSION 4,0,7,0
FILEVERSION 4,0,8,0
PRODUCTVERSION 4,0,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "4.0.7.0\0"
VALUE "FileVersion", "4.0.8.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "4.0.7.0\0"
VALUE "ProductVersion", "4.0.8.0\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

5
Source/Cliente/uBootStrap.pas
View File

@ -56,6 +56,11 @@ begin
LoadModule('Comisiones_plugin.bpl');
LoadModule('BancaElectronica_plugin.bpl');
LoadModule('TiendaWeb_plugin.bpl');
LoadModule('Informes_plugin.bpl');
// LoadModule('InfVentasArticulo_plugin.bpl');
// LoadModule('InfMargenArticulo_plugin.bpl');
end;
end;

40
Source/Cliente/uNavPaneController.pas
View File

@ -131,46 +131,6 @@ begin
try
AEmpresas.DataTable.Active := True;
//PARCHE
if (AppFactuGES.UsuarioActivo.ID = 2) then
begin
// Buscar la página si existe
AIndex := EncontrarPagina(FNavigationPane, AEmpresas.NOMBRE);
if AIndex > -1 then
ASeccionPadre := EncontrarSeccionPadre(FNavigationPane.NavPages[AIndex])
else begin
// Crear la página de la empresa
AIndex := CrearPagina(FNavigationPane, AEmpresas.NOMBRE, nil, -1);
ASeccionPadre := CrearSeccion(FNavigationPane.NavPages[AIndex]);
ASeccionPadre.Align := alClient;
ASeccionPadre.AutoScroll := True;
end;
FNavigationPane.NavPages[AIndex].Tag := AEmpresas.ID;
// Crear secciones
for ASeccionCount := 0 to AListaSecciones.Count - 1 do
begin
ASeccion := CrearSeccion(ASeccionPadre);
with ASeccion do
begin
Top := 100 * AEmpresasCount;
Align := alTop;
AutoScroll := False;
end;
ADivisor := CrearDivisor(ASeccion, AListaSecciones[ASeccionCount]);
PopulateNavPagePane(ASeccion, TMenuItem(AListaSecciones.Objects[ASeccionCount]),
FLargeImages, dmBase.StyleManager);
ASeccion.Height := ASeccion.Height + ADivisor.Height;
end;
end
else
//FIN PARCHE
{$IFDEF MULTIEMPRESA}
while not AEmpresas.DataTable.EOF do
begin

1
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -318,7 +318,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
Category = 'Empresa'
Caption = 'A'#241'adir empresa'
OnExecute = actAnadirEmpresaExecute
OnUpdate = actAnadirEmpresaUpdate
end
end
object ModulesSmallImageList: TPngImageList

7
Source/Cliente/uPantallaPrincipal.pas
View File

@ -121,7 +121,6 @@ type
procedure Listadeempresas1_OLDClick(Sender: TObject);
procedure actInformacionEmpresaExecute(Sender: TObject);
procedure actAnadirEmpresaExecute(Sender: TObject);
procedure actAnadirEmpresaUpdate(Sender: TObject);
private
FContenido : TCustomEditor;
procedure ShowEmbedded(AEditor : ICustomEditor);
@ -542,12 +541,6 @@ begin
ShowMessage('Empresa dada de alta, cierre la aplicación y vuelva a abrirla, para poder acceder a ella');
end;
procedure TfPantallaPrincipal.actAnadirEmpresaUpdate(Sender: TObject);
begin
//PARCHE
(Sender as TAction).Enabled := (AppFactuGES.UsuarioActivo.ID <> 2)
end;
procedure TfPantallaPrincipal.actCambiarPassExecute(Sender: TObject);
begin
AppFactuGES.UsuariosController._ShowChangePassword;

30
Source/Modulos/Albaranes de cliente/Views/uViewElegirArticulosAlbaranesCliente.dfm
View File

@ -1,19 +1,49 @@
inherited frViewElegirArticulosAlbaranesCliente: TfrViewElegirArticulosAlbaranesCliente
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewPRECIO_NETO: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewPRECIO_PORTE: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
end
end
inherited frViewFiltroBase1: TfrViewFiltroBase
inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl
inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 225
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 225
ExplicitWidth = 121
Width = 121
end
inherited eLista: TcxComboBox
Left = 383
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 383
ExplicitWidth = 322
Width = 322

2
Source/Modulos/Albaranes de cliente/Views/uViewElegirArticulosAlbaranesCliente.pas
View File

@ -12,7 +12,7 @@ uses
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, dxPgsDlg,
ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase,
uDAInterfaces;
uDAInterfaces, uCustomView, uViewBase;
type
IViewElegirArticulosAlbaranesCliente = interface(IViewArticulos)

BIN
Source/Modulos/Contactos/Views/Contactos_view.identcache
View File

Binary file not shown.

4
Source/Modulos/Contactos/Views/uEditorClientes.dfm
View File

@ -260,6 +260,10 @@ inherited fEditorClientes: TfEditorClientes
Enabled = True
Visible = True
end
inherited actExportarExcel: TAction
Enabled = True
Visible = True
end
object actDocumentosPresupuestos: TAction
Category = 'Acciones'
Caption = 'Presupuestos'

11
Source/Modulos/Facturas de cliente/Controller/uDetallesFacturaClienteController.pas
View File

@ -158,11 +158,10 @@ end;
procedure TDetallesFacturaClienteController.RellenarOtros(ADetalles: IDAStronglyTypedDataTable; AArticulos: IBizArticulo);
begin
//En Tecsitel 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
// ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0;
if Assigned(AArticulos) then
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := AArticulos.DESCUENTO
else
ADetalles.DataTable.FieldByName(CAMPO_DESCUENTO).AsFloat := 0;
end;
procedure TDetallesFacturaClienteController.ValidarCampos(DataTable: TDADataTable);
@ -178,7 +177,7 @@ begin
if ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).IsNull then
if Assigned(AArticulos) then
// ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_PVP_TOTAL
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_NETO
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := AArticulos.PRECIO_COSTE
else
ADetalles.DataTable.FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null;
end;

4
Source/Modulos/Facturas de cliente/Views/uViewElegirArticulosFacturasCliente.dfm
View File

@ -9,9 +9,13 @@ inherited frViewElegirArticulosFacturasCliente: TfrViewElegirArticulosFacturasCl
end
inherited cxGridViewPRECIO_NETO: TcxGridDBColumn
Caption = 'Precio neto'
Visible = False
VisibleForCustomization = False
end
inherited cxGridViewPRECIO_PORTE: TcxGridDBColumn
Caption = 'Precio porte'
Visible = False
VisibleForCustomization = False
end
end
end

2
Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
/* c:\temp\dtf1AB.tmp */
/* c:\temp\dtf5F3.tmp */

2
Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
/* c:\temp\dtf1A9.tmp */
/* c:\temp\dtf5F1.tmp */

2
Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
/* c:\temp\dtf1A7.tmp */
/* c:\temp\dtf5EF.tmp */

2
Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
/* c:\temp\dtf20F.tmp */
/* c:\temp\dtf657.tmp */

2
Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc
View File

@ -26,4 +26,4 @@ END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorElegirArticulosPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
/* c:\temp\dtf20D.tmp */
/* c:\temp\dtf655.tmp */

2
Source/Modulos/Tienda web/Data/TiendaWeb_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Tienda web\Data\uDataModuleTiendaWeb.dfm */
/* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
/* c:\temp\dtf1C1.tmp */
/* c:\temp\dtf609.tmp */

10
Source/Modulos/Tienda web/Test/Contactos_data.drc
View File

@ -1,10 +0,0 @@
/* VER180
Generated by the Borland Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/

14
Source/Modulos/Tienda web/Test/TiendaWeb_Tests.drc
View File

@ -1,14 +0,0 @@
/* VER180
Generated by the Borland Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/
STRINGTABLE
BEGIN
END

10
Source/Modulos/Tienda web/Test/cxIntlPrintSys3D10.drc
View File

@ -1,10 +0,0 @@
/* VER180
Generated by the Borland Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/

10
Source/Modulos/Tienda web/Test/vclie.drc
View File

@ -1,10 +0,0 @@
/* VER180
Generated by the Borland Delphi Pascal Compiler
because -GD or --drc was supplied to the compiler.
This file contains compiler-generated resources that
were bound to the executable.
If this file is empty, then no compiler-generated
resources were bound to the produced executable.
*/

40
Source/Servicios/FactuGES.RODL
View File

@ -1036,6 +1036,46 @@
</Interface>
</Interfaces>
</Service>
<Service Name="srvInformes" UID="{B2F80E42-0C8D-440D-BE97-0968595F168C}" Ancestor="DataAbstractService">
<Interfaces>
<Interface Name="Default" UID="{2FC3D21B-4919-4357-A5B5-10EF4AF72185}">
<Operations>
</Operations>
</Interface>
</Interfaces>
</Service>
<Service Name="srvInfVentasArticulo" UID="{3669C23C-50C5-420B-B22F-A987EB6AEC26}" Ancestor="DataAbstractService">
<Interfaces>
<Interface Name="Default" UID="{669DBB17-90F9-4346-AD92-B2A85D2A6200}">
<Operations>
<Operation Name="GetData2" UID="{DC74B1A6-F149-4998-A43A-16C79671988F}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="DatasetName" DataType="AnsiString" Flag="In" >
</Parameter>
<Parameter Name="MaxRecords" DataType="Integer" Flag="In" >
</Parameter>
<Parameter Name="Columns" DataType="AnsiString" Flag="In" >
</Parameter>
<Parameter Name="Params" DataType="DataParameterArray" Flag="In" >
</Parameter>
</Parameters>
</Operation>
<Operation Name="GetSchema2" UID="{00D9C1E0-65BA-4C81-AB26-8FF961F15CD0}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="DatasetName" DataType="AnsiString" Flag="In" >
</Parameter>
<Parameter Name="Columns" DataType="AnsiString" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>
</Interface>
</Interfaces>
</Service>
</Services>
<EventSinks>
</EventSinks>

110
Source/Servicios/FactuGES_Intf.pas
View File

@ -57,6 +57,8 @@ const
IsrvImpresiones_IID : TGUID = '{CC4477C1-AA2C-464D-B485-AB0C31E282A7}';
IsrvRegistroCorreos_IID : TGUID = '{E912B281-0A69-49F5-ABA7-8A66FF17DD98}';
IsrvTiendaWeb_IID : TGUID = '{A0C6D311-18C5-4851-AA96-02B3CA95BE75}';
IsrvInformes_IID : TGUID = '{2FC3D21B-4919-4357-A5B5-10EF4AF72185}';
IsrvInfVentasArticulo_IID : TGUID = '{669DBB17-90F9-4346-AD92-B2A85D2A6200}';
{ Event ID's }
@ -96,6 +98,8 @@ type
IsrvImpresiones = interface;
IsrvRegistroCorreos = interface;
IsrvTiendaWeb = interface;
IsrvInformes = interface;
IsrvInfVentasArticulo = interface;
TRdxEmpresasArray = class;
TIntegerArray = class;
@ -946,6 +950,44 @@ type
function HayConexionConTienda: Boolean;
end;
{ IsrvInformes }
IsrvInformes = interface(IDataAbstractService)
['{2FC3D21B-4919-4357-A5B5-10EF4AF72185}']
end;
{ CosrvInformes }
CosrvInformes = class
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvInformes;
end;
{ TsrvInformes_Proxy }
TsrvInformes_Proxy = class(TDataAbstractService_Proxy, IsrvInformes)
protected
function __GetInterfaceName:string; override;
end;
{ IsrvInfVentasArticulo }
IsrvInfVentasArticulo = interface(IDataAbstractService)
['{669DBB17-90F9-4346-AD92-B2A85D2A6200}']
function GetData2(const DatasetName: AnsiString; const MaxRecords: Integer; const Columns: AnsiString; const Params: DataParameterArray): Binary;
function GetSchema2(const DatasetName: AnsiString; const Columns: AnsiString): Binary;
end;
{ CosrvInfVentasArticulo }
CosrvInfVentasArticulo = class
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvInfVentasArticulo;
end;
{ TsrvInfVentasArticulo_Proxy }
TsrvInfVentasArticulo_Proxy = class(TDataAbstractService_Proxy, IsrvInfVentasArticulo)
protected
function __GetInterfaceName:string; override;
function GetData2(const DatasetName: AnsiString; const MaxRecords: Integer; const Columns: AnsiString; const Params: DataParameterArray): Binary;
function GetSchema2(const DatasetName: AnsiString; const Columns: AnsiString): Binary;
end;
implementation
uses
@ -2999,6 +3041,70 @@ begin
end
end;
{ CosrvInformes }
class function CosrvInformes.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvInformes;
begin
result := TsrvInformes_Proxy.Create(aMessage, aTransportChannel);
end;
function TsrvInformes_Proxy.__GetInterfaceName:string;
begin
result := 'srvInformes';
end;
{ CosrvInfVentasArticulo }
class function CosrvInfVentasArticulo.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvInfVentasArticulo;
begin
result := TsrvInfVentasArticulo_Proxy.Create(aMessage, aTransportChannel);
end;
{ TsrvInfVentasArticulo_Proxy }
function TsrvInfVentasArticulo_Proxy.__GetInterfaceName:string;
begin
result := 'srvInfVentasArticulo';
end;
function TsrvInfVentasArticulo_Proxy.GetData2(const DatasetName: AnsiString; const MaxRecords: Integer; const Columns: AnsiString; const Params: DataParameterArray): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GetData2');
__Message.Write('DatasetName', TypeInfo(AnsiString), DatasetName, []);
__Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []);
__Message.Write('Columns', TypeInfo(AnsiString), Columns, []);
__Message.Write('Params', TypeInfo(DataAbstract4_Intf.DataParameterArray), Params, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
function TsrvInfVentasArticulo_Proxy.GetSchema2(const DatasetName: AnsiString; const Columns: AnsiString): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GetSchema2');
__Message.Write('DatasetName', TypeInfo(AnsiString), DatasetName, []);
__Message.Write('Columns', TypeInfo(AnsiString), Columns, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
initialization
RegisterROClass(TRdxLoginInfo);
RegisterROClass(TRdxEmpresasArray);
@ -3037,6 +3143,8 @@ initialization
RegisterProxyClass(IsrvImpresiones_IID, TsrvImpresiones_Proxy);
RegisterProxyClass(IsrvRegistroCorreos_IID, TsrvRegistroCorreos_Proxy);
RegisterProxyClass(IsrvTiendaWeb_IID, TsrvTiendaWeb_Proxy);
RegisterProxyClass(IsrvInformes_IID, TsrvInformes_Proxy);
RegisterProxyClass(IsrvInfVentasArticulo_IID, TsrvInfVentasArticulo_Proxy);
finalization
@ -3077,5 +3185,7 @@ finalization
UnregisterProxyClass(IsrvImpresiones_IID);
UnregisterProxyClass(IsrvRegistroCorreos_IID);
UnregisterProxyClass(IsrvTiendaWeb_IID);
UnregisterProxyClass(IsrvInformes_IID);
UnregisterProxyClass(IsrvInfVentasArticulo_IID);
end.

100
Source/Servicios/FactuGES_Invk.pas
View File

@ -355,6 +355,24 @@ type
procedure Invoke_HayConexionConTienda(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvInformes_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
end;
TsrvInfVentasArticulo_Invoker = class(TDataAbstractService_Invoker)
private
protected
public
constructor Create; override;
published
procedure Invoke_GetData2(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GetSchema2(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
implementation
uses
@ -2617,5 +2635,87 @@ begin
end;
end;
{ TsrvInformes_Invoker }
constructor TsrvInformes_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
{ TsrvInfVentasArticulo_Invoker }
constructor TsrvInfVentasArticulo_Invoker.Create;
begin
inherited Create;
FAbstract := False;
end;
procedure TsrvInfVentasArticulo_Invoker.Invoke_GetData2(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetData2(const DatasetName: AnsiString; const MaxRecords: Integer; const Columns: AnsiString; const Params: DataParameterArray): Binary; }
var
DatasetName: AnsiString;
MaxRecords: Integer;
Columns: AnsiString;
Params: DataAbstract4_Intf.DataParameterArray;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
Params := nil;
lResult := nil;
try
__Message.Read('DatasetName', TypeInfo(AnsiString), DatasetName, []);
__Message.Read('MaxRecords', TypeInfo(Integer), MaxRecords, []);
__Message.Read('Columns', TypeInfo(AnsiString), Columns, []);
__Message.Read('Params', TypeInfo(DataAbstract4_Intf.DataParameterArray), Params, []);
lResult := (__Instance as IsrvInfVentasArticulo).GetData2(DatasetName, MaxRecords, Columns, Params);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvInfVentasArticulo', 'GetData2Response');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(Params);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TsrvInfVentasArticulo_Invoker.Invoke_GetSchema2(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetSchema2(const DatasetName: AnsiString; const Columns: AnsiString): Binary; }
var
DatasetName: AnsiString;
Columns: AnsiString;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
__Message.Read('DatasetName', TypeInfo(AnsiString), DatasetName, []);
__Message.Read('Columns', TypeInfo(AnsiString), Columns, []);
lResult := (__Instance as IsrvInfVentasArticulo).GetSchema2(DatasetName, Columns);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvInfVentasArticulo', 'GetSchema2Response');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
initialization
end.

BIN
Source/Servicios/RODLFile.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -163,7 +163,11 @@ uses
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schTiendaWebClient_Intf in '..\Modulos\Tienda web\Model\schTiendaWebClient_Intf.pas',
schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas';
schTiendaWebServer_Intf in '..\Modulos\Tienda web\Model\schTiendaWebServer_Intf.pas',
srvInformes_Impl in '..\Modulos\Informes base\Servidor\srvInformes_Impl.pas' {srvInformes: TDataAbstractService},
schInformesClient_Intf in '..\Modulos\Informes base\Model\schInformesClient_Intf.pas',
schInformesServer_Intf in '..\Modulos\Informes base\Model\schInformesServer_Intf.pas',
srvInfVentasArticulo_Impl in '..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas' {srvInfVentasArticulo: TDataAbstractService};
{$R *.res}
{$R ..\Servicios\RODLFile.res}

12
Source/Servidor/FactuGES_Server.dproj
View File

@ -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">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">7</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">4.0.7.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">4.0.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 02 de noviembre de 2010 18:27</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">4</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">8</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">4.0.8.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">4.0.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 03 de noviembre de 2010 16:17</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>
@ -201,6 +201,16 @@
<Form>srvImpresiones</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informe ventas por articulo\Servidor\srvInfVentasArticulo_Impl.pas">
<Form>srvInfVentasArticulo</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Informes base\Model\schInformesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Informes base\Model\schInformesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Informes base\Servidor\srvInformes_Impl.pas">
<Form>srvInformes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 4,0,7,0
PRODUCTVERSION 4,0,7,0
FILEVERSION 4,0,8,0
PRODUCTVERSION 4,0,8,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "4.0.7.0\0"
VALUE "ProductVersion", "4.0.7.0\0"
VALUE "CompileDate", "martes, 02 de noviembre de 2010 18:52\0"
VALUE "FileVersion", "4.0.8.0\0"
VALUE "ProductVersion", "4.0.8.0\0"
VALUE "CompileDate", "viernes, 05 de noviembre de 2010 19:11\0"
END
END
BLOCK "VarFileInfo"