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

Versión 4.3.3

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@196 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2013-09-10 16:52:58 +00:00
parent aa47f35b96
commit 4dbb372f0c
38 changed files with 527 additions and 464 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.

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<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">3</VersionInfo><VersionInfo Name="Release">2</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.3.2.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.3.2.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">3</VersionInfo><VersionInfo Name="Release">3</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.3.3.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.3.3.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> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

5
Source/Cliente/uPantallaPrincipal.pas
View File

@ -192,6 +192,11 @@ end;
procedure TfPantallaPrincipal.FormShow(Sender: TObject); procedure TfPantallaPrincipal.FormShow(Sender: TObject);
begin begin
InicializarUI; InicializarUI;
//Solo verá Luis los informes
if (AppFactuGES.UsuarioActivo.ID <> 1)
and (AppFactuGES.UsuarioActivo.ID <> 3) then
actMenuInformes.Visible := False;
end; end;
procedure TfPantallaPrincipal.RefrescarUI; procedure TfPantallaPrincipal.RefrescarUI;

6
Source/Informes/1/InfPedidoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/2/InfPedidoCliente.fr3
View File

File diff suppressed because one or more lines are too long

6
Source/Informes/4/InfPedidoCliente.fr3
View File

File diff suppressed because one or more lines are too long

7
Source/Informes/5/InfPedidoCliente.fr3
View File

File diff suppressed because one or more lines are too long

7
Source/Informes/6/InfPedidoCliente.fr3
View File

File diff suppressed because one or more lines are too long

10
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schFacturasClienteClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
@ -261,7 +261,7 @@ type
end; end;
{ TListaAnosFacturasDataTableRules } { TListaAnosFacturasDataTableRules }
TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas) TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -553,7 +553,7 @@ type
end; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente) TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -931,7 +931,7 @@ type
end; end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles) TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1307,7 +1307,7 @@ type
end; end;
{ TFacturasClienteDeAlbaranDataTableRules } { TFacturasClienteDeAlbaranDataTableRules }
TFacturasClienteDeAlbaranDataTableRules = class(TDADataTableRules, IFacturasClienteDeAlbaran) TFacturasClienteDeAlbaranDataTableRules = class(TIntfObjectDADataTableRules, IFacturasClienteDeAlbaran)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);

2
Source/Modulos/Informe margen por articulo/Data/InfMargenArticulo_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dfm */ /* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\uDataModuleInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.res */ /* C:\Codigo\Source\Modulos\Informe margen por articulo\Data\InfMargenArticulo_data.res */
/* c:\temp\dtfC3E.tmp */ /* c:\temp\dtfD88.tmp */

2
Source/Modulos/Informe margen por articulo/Model/InfMargenArticulo_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.res */ /* C:\Codigo\Source\Modulos\Informe margen por articulo\Model\InfMargenArticulo_model.res */
/* c:\temp\dtfC3C.tmp */ /* c:\temp\dtfD86.tmp */

2
Source/Modulos/Informe margen por articulo/Views/InfMargenArticulo_view.drc
View File

@ -16,4 +16,4 @@ END
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */ /* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uViewInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */ /* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\uEditorInfMargenArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */ /* C:\Codigo\Source\Modulos\Informe margen por articulo\Views\InfMargenArticulo_view.res */
/* c:\temp\dtfC42.tmp */ /* c:\temp\dtfD8C.tmp */

2
Source/Modulos/Informe ventas por articulo/Data/InfVentasArticulo_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */ /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\uDataModuleInfVentasArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */ /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Data\InfVentasArticulo_data.res */
/* c:\temp\dtfC34.tmp */ /* c:\temp\dtfD7E.tmp */

2
Source/Modulos/Informe ventas por articulo/Model/InfVentasArticulo_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */ /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Model\InfVentasArticulo_model.res */
/* c:\temp\dtfC32.tmp */ /* c:\temp\dtfD7C.tmp */

2
Source/Modulos/Informe ventas por articulo/Views/InfVentasArticulo_view.drc
View File

@ -19,4 +19,4 @@ END
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasAlbArticulo.dfm */ /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uViewInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasAlbArticulo.dfm */ /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\uEditorInfVentasAlbArticulo.dfm */
/* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */ /* C:\Codigo\Source\Modulos\Informe ventas por articulo\Views\InfVentasArticulo_view.res */
/* c:\temp\dtfC38.tmp */ /* c:\temp\dtfD82.tmp */

2
Source/Modulos/Informes base/Controller/InformesBase_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo\Source\Modulos\Informes base\Controller\InformesBase_controller.res */ /* C:\Codigo\Source\Modulos\Informes base\Controller\InformesBase_controller.res */
/* c:\temp\dtfC28.tmp */ /* c:\temp\dtfD72.tmp */

2
Source/Modulos/Informes base/Data/Informes_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\Informes base\Data\uDataModuleInformes.dfm */ /* C:\Codigo\Source\Modulos\Informes base\Data\uDataModuleInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Data\Informes_data.res */ /* C:\Codigo\Source\Modulos\Informes base\Data\Informes_data.res */
/* c:\temp\dtfC24.tmp */ /* c:\temp\dtfD6E.tmp */

2
Source/Modulos/Informes base/Model/Informes_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo\Source\Modulos\Informes base\Model\Informes_model.res */ /* C:\Codigo\Source\Modulos\Informes base\Model\Informes_model.res */
/* c:\temp\dtfC22.tmp */ /* c:\temp\dtfD6C.tmp */

2
Source/Modulos/Informes base/Views/Informes_view.drc
View File

@ -15,4 +15,4 @@ END
/* C:\Codigo\Source\Modulos\Informes base\Views\uViewInformes.dfm */ /* C:\Codigo\Source\Modulos\Informes base\Views\uViewInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\uEditorInformes.dfm */ /* C:\Codigo\Source\Modulos\Informes base\Views\uEditorInformes.dfm */
/* C:\Codigo\Source\Modulos\Informes base\Views\Informes_view.res */ /* C:\Codigo\Source\Modulos\Informes base\Views\Informes_view.res */
/* c:\temp\dtfC2C.tmp */ /* c:\temp\dtfD76.tmp */

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

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.RES */
/* c:\temp\dtfCB6.tmp */ /* c:\temp\dtfE00.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\uDataModulePedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.RES */
/* c:\temp\dtfC66.tmp */ /* c:\temp\dtfDB0.tmp */

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

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.RES */
/* c:\temp\dtfC64.tmp */ /* c:\temp\dtfDAE.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\uPluginPedidosCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.RES */
/* c:\temp\dtfCD0.tmp */ /* c:\temp\dtfE1A.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\uEditorElegirArticulosPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\uEditorDireccionEntregaPedidoCliente.dfm */
/* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */ /* C:\Codigo\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.RES */
/* c:\temp\dtfCCE.tmp */ /* c:\temp\dtfE18.tmp */

2
Source/Modulos/ProcesoPresupuestoCliente/Controller/ProcesoPresupuestosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.res */ /* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Controller\ProcesoPresupuestosCliente_controller.res */
/* c:\temp\dtfD00.tmp */ /* c:\temp\dtfE4A.tmp */

2
Source/Modulos/ProcesoPresupuestoCliente/Plugin/ProcesoPresupuestosCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\uPluginProcesoPresupuestosCliente.dfm */ /* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\uPluginProcesoPresupuestosCliente.dfm */
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.res */ /* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.res */
/* c:\temp\dtfD04.tmp */ /* c:\temp\dtfE4E.tmp */

16
Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.dproj
View File

@ -49,14 +49,14 @@
<DelphiCompile Include="ProcesoPresupuestosCliente_view.dpk"> <DelphiCompile Include="ProcesoPresupuestosCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\AlbaranesCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesCliente_model.dcp" />
<DCCReference Include="..\..\Lib\AlbaranesProveedor_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\AlbaranesProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
<DCCReference Include="..\..\Lib\FacturasProveedor_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\FacturasProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\PedidosCliente_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PedidosCliente_model.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PedidosProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\ProcesoPresupuestosCliente_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ProcesoPresupuestosCliente_controller.dcp" />
<DCCReference Include="uEditorProcesoPresupuestosCliente.pas"> <DCCReference Include="uEditorProcesoPresupuestosCliente.pas">
<Form>fEditorProcesoPresupuestosCliente</Form> <Form>fEditorProcesoPresupuestosCliente</Form>
<DesignClass>TfEditorPedidosProveedor</DesignClass> <DesignClass>TfEditorPedidosProveedor</DesignClass>

2
Source/Modulos/ProcesoPresupuestoCliente/Views/ProcesoPresupuestosCliente_view.drc
View File

@ -15,4 +15,4 @@ END
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\uViewProcesoPresupuestosCliente.dfm */ /* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\uViewProcesoPresupuestosCliente.dfm */
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\uEditorProcesoPresupuestosCliente.dfm */ /* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\uEditorProcesoPresupuestosCliente.dfm */
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.res */ /* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.res */
/* C:\Codigo\Source\Modulos\ProcesoPresupuestoCliente\Views\ProcesoPresupuestosCliente_view.drf */ /* c:\temp\dtfE4C.tmp */

18
Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.dfm
View File

@ -7,7 +7,14 @@ inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 358 ExplicitWidth = 463
end
inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 269
end
inherited TBXTMain2: TTBXToolbar
Left = 318
ExplicitLeft = 318
end end
end end
inline frViewProcesoPresupuestosCliente1: TfrViewProcesoPresupuestosCliente [3] inline frViewProcesoPresupuestosCliente1: TfrViewProcesoPresupuestosCliente [3]
@ -143,6 +150,15 @@ inherited fEditorProcesoPresupuestosCliente: TfEditorProcesoPresupuestosCliente
Enabled = False Enabled = False
Visible = False Visible = False
end end
inherited actFiltrar: TAction
Visible = False
end
inherited actExpandir: TAction
Visible = True
end
inherited actContraer: TAction
Visible = True
end
end end
inherited SmallImages: TPngImageList [5] inherited SmallImages: TPngImageList [5]
end end

1
Source/Modulos/ProcesoPresupuestoCliente/Views/uEditorProcesoPresupuestosCliente.pas
View File

@ -107,6 +107,7 @@ begin
FacturasCliente.DataTable.Active := True; FacturasCliente.DataTable.Active := True;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
ViewGrid.ContraerTodo;
end; end;
function TfEditorProcesoPresupuestosCliente.GetAlbaranesCliente: IBizAlbaranCliente; function TfEditorProcesoPresupuestosCliente.GetAlbaranesCliente: IBizAlbaranCliente;

39
Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.dfm
View File

@ -10,7 +10,7 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
VisibleForCustomization = False VisibleForCustomization = False
end end
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Ref. Ped. Cliente' Caption = 'Ref. Pedido de cliente'
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
end end
object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn object cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn
@ -26,7 +26,7 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
DataBinding.FieldName = 'SITUACION' DataBinding.FieldName = 'SITUACION'
end end
object cxGridViewFECHA_PEDIDO: TcxGridDBColumn object cxGridViewFECHA_PEDIDO: TcxGridDBColumn
Caption = 'Fecha' Caption = 'Fecha del pedido'
DataBinding.FieldName = 'FECHA_PEDIDO' DataBinding.FieldName = 'FECHA_PEDIDO'
end end
end end
@ -58,7 +58,7 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
OptionsView.GroupRowStyle = grsOffice11 OptionsView.GroupRowStyle = grsOffice11
OptionsView.HeaderEndEllipsis = True OptionsView.HeaderEndEllipsis = True
object cxGridViewPedidosProveedorREFERENCIA: TcxGridDBColumn object cxGridViewPedidosProveedorREFERENCIA: TcxGridDBColumn
Caption = 'Ref. Ped. Proveedor' Caption = 'Ref. Pedido de proveedor'
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
end end
object cxGridViewPedidosProveedorNOMBRE: TcxGridDBColumn object cxGridViewPedidosProveedorNOMBRE: TcxGridDBColumn
@ -66,10 +66,11 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
end end
object cxGridViewPedidosProveedorSITUACION: TcxGridDBColumn object cxGridViewPedidosProveedorSITUACION: TcxGridDBColumn
Caption = 'Stuaci'#243'n'
DataBinding.FieldName = 'SITUACION' DataBinding.FieldName = 'SITUACION'
end end
object cxGridViewPedidosProveedorFECHA_PEDIDO: TcxGridDBColumn object cxGridViewPedidosProveedorFECHA_PEDIDO: TcxGridDBColumn
Caption = 'Fecha' Caption = 'Fecha del pedido'
DataBinding.FieldName = 'FECHA_PEDIDO' DataBinding.FieldName = 'FECHA_PEDIDO'
end end
end end
@ -101,13 +102,15 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
OptionsView.GroupRowStyle = grsOffice11 OptionsView.GroupRowStyle = grsOffice11
OptionsView.HeaderEndEllipsis = True OptionsView.HeaderEndEllipsis = True
object cxGridViewAlbaranesProveedorREFERENCIA: TcxGridDBColumn object cxGridViewAlbaranesProveedorREFERENCIA: TcxGridDBColumn
Caption = 'Ref. Alb. Proveedor' Caption = 'Ref. Albar'#225'n de proveedor'
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
end end
object cxGridViewAlbaranesProveedorSITUACION: TcxGridDBColumn object cxGridViewAlbaranesProveedorSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n'
DataBinding.FieldName = 'SITUACION' DataBinding.FieldName = 'SITUACION'
end end
object cxGridViewAlbaranesProveedorFECHA_ALBARAN: TcxGridDBColumn object cxGridViewAlbaranesProveedorFECHA_ALBARAN: TcxGridDBColumn
Caption = 'Fecha de albar'#225'n'
DataBinding.FieldName = 'FECHA_ALBARAN' DataBinding.FieldName = 'FECHA_ALBARAN'
end end
end end
@ -139,16 +142,19 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
OptionsView.GroupRowStyle = grsOffice11 OptionsView.GroupRowStyle = grsOffice11
OptionsView.HeaderEndEllipsis = True OptionsView.HeaderEndEllipsis = True
object cxGridViewFacturasProveedorREFERENCIA: TcxGridDBColumn object cxGridViewFacturasProveedorREFERENCIA: TcxGridDBColumn
Caption = 'Ref. Fac. Proveedor' Caption = 'Ref. Factura de proveedor'
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
end end
object cxGridViewFacturasProveedorREFERENCIA_PROVEEDOR: TcxGridDBColumn object cxGridViewFacturasProveedorREFERENCIA_PROVEEDOR: TcxGridDBColumn
Caption = 'Ref. del proveedor'
DataBinding.FieldName = 'REFERENCIA_PROVEEDOR' DataBinding.FieldName = 'REFERENCIA_PROVEEDOR'
end end
object cxGridViewFacturasProveedorSITUACION: TcxGridDBColumn object cxGridViewFacturasProveedorSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n'
DataBinding.FieldName = 'SITUACION' DataBinding.FieldName = 'SITUACION'
end end
object cxGridViewFacturasProveedorFECHA_FACTURA: TcxGridDBColumn object cxGridViewFacturasProveedorFECHA_FACTURA: TcxGridDBColumn
Caption = 'Fecha factura'
DataBinding.FieldName = 'FECHA_FACTURA' DataBinding.FieldName = 'FECHA_FACTURA'
end end
end end
@ -180,9 +186,17 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
OptionsView.GroupRowStyle = grsOffice11 OptionsView.GroupRowStyle = grsOffice11
OptionsView.HeaderEndEllipsis = True OptionsView.HeaderEndEllipsis = True
object cxGridViewAlbaranesClienteREFERENCIA: TcxGridDBColumn object cxGridViewAlbaranesClienteREFERENCIA: TcxGridDBColumn
Caption = 'Ref. Alb. Cliente' Caption = 'Ref. Albar'#225'n de cliente'
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
end end
object cxGridViewAlbaranesClienteSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n'
DataBinding.FieldName = 'SITUACION'
end
object cxGridViewAlbaranesClienteFECHA_ALBARAN: TcxGridDBColumn
Caption = 'Fecha albar'#225'n'
DataBinding.FieldName = 'FECHA_ALBARAN'
end
end end
object cxGridViewFacturasCliente: TcxGridDBTableView [5] object cxGridViewFacturasCliente: TcxGridDBTableView [5]
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -212,11 +226,20 @@ inherited frViewProcesoPresupuestosCliente: TfrViewProcesoPresupuestosCliente
OptionsView.GroupRowStyle = grsOffice11 OptionsView.GroupRowStyle = grsOffice11
OptionsView.HeaderEndEllipsis = True OptionsView.HeaderEndEllipsis = True
object cxGridViewFacturasClienteREFERENCIA: TcxGridDBColumn object cxGridViewFacturasClienteREFERENCIA: TcxGridDBColumn
Caption = 'Ref. fac. Cliente' Caption = 'Ref. factura de cliente'
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
end end
object cxGridViewFacturasClienteSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n'
DataBinding.FieldName = 'SITUACION'
end
object cxGridViewFacturasClienteFECHA_FACTURA: TcxGridDBColumn
Caption = 'Fecha'
DataBinding.FieldName = 'FECHA_FACTURA'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Options.DetailFrameColor = cl3DLight
Options.DetailTabsPosition = dtpTop Options.DetailTabsPosition = dtpTop
object cxGridLevelPedidosProveedor: TcxGridLevel object cxGridLevelPedidosProveedor: TcxGridLevel
Caption = 'Documentos de Proveedor' Caption = 'Documentos de Proveedor'

6
Source/Modulos/ProcesoPresupuestoCliente/Views/uViewProcesoPresupuestosCliente.pas
View File

@ -77,6 +77,10 @@ type
cxGridViewAlbaranesClienteREFERENCIA: TcxGridDBColumn; cxGridViewAlbaranesClienteREFERENCIA: TcxGridDBColumn;
dsAlbaranesCliente: TDADataSource; dsAlbaranesCliente: TDADataSource;
dsFacturasCliente: TDADataSource; dsFacturasCliente: TDADataSource;
cxGridViewAlbaranesClienteSITUACION: TcxGridDBColumn;
cxGridViewAlbaranesClienteFECHA_ALBARAN: TcxGridDBColumn;
cxGridViewFacturasClienteSITUACION: TcxGridDBColumn;
cxGridViewFacturasClienteFECHA_FACTURA: TcxGridDBColumn;
procedure CustomViewShow(Sender: TObject); procedure CustomViewShow(Sender: TObject);
protected protected
@ -126,6 +130,8 @@ begin
inherited; inherited;
if Assigned(FPedidosCliente) then if Assigned(FPedidosCliente) then
FPedidosCliente.Active := True; FPedidosCliente.Active := True;
// cxGridView.
end; end;
destructor TfrViewProcesoPresupuestosCliente.Destroy; destructor TfrViewProcesoPresupuestosCliente.Destroy;

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\uDataModuleTiendaWeb.dfm */
/* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */ /* C:\Codigo\Source\Modulos\Tienda web\Data\TiendaWeb_data.res */
/* c:\temp\dtfC7C.tmp */ /* c:\temp\dtfDC6.tmp */

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

4
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <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">3</VersionInfo><VersionInfo Name="Release">2</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.3.2.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.3.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 19 de julio de 2013 13:48</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">3</VersionInfo><VersionInfo Name="Release">3</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.3.3.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.3.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 05 de septiembre de 2013 18:20</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 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><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 4,3,2,0 FILEVERSION 4,3,3,0
PRODUCTVERSION 4,3,2,0 PRODUCTVERSION 4,3,3,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -12,9 +12,9 @@ BEGIN
BEGIN BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "FileVersion", "4.3.2.0\0" VALUE "FileVersion", "4.3.3.0\0"
VALUE "ProductVersion", "4.3.2.0\0" VALUE "ProductVersion", "4.3.3.0\0"
VALUE "CompileDate", "jueves, 05 de septiembre de 2013 18:20\0" VALUE "CompileDate", "martes, 10 de septiembre de 2013 17:59\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"