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

Cambios de nomenclatura

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@200 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2013-12-09 09:40:14 +00:00
parent 677ae1bcae
commit 46b4c141ca
16 changed files with 598 additions and 569 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">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> <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">4</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.4.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.4.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,3,0 FILEVERSION 4,3,4,0
PRODUCTVERSION 4,3,3,0 PRODUCTVERSION 4,3,4,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.3.0\0" VALUE "FileVersion", "4.3.4.0\0"
VALUE "InternalName", "FactuGES\0" VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "4.3.3.0\0" VALUE "ProductVersion", "4.3.4.0\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

2
Source/Cliente/uBootStrap.pas
View File

@ -39,7 +39,7 @@ begin
LoadModule('RecibosCliente_plugin.bpl'); LoadModule('RecibosCliente_plugin.bpl');
LoadModule(MODULENAME_FACTURAS_CLIENTE); LoadModule(MODULENAME_FACTURAS_CLIENTE);
LoadModule(MODULENAME_FACTURAS_PROFORMA); // LoadModule(MODULENAME_FACTURAS_PROFORMA);
LoadModule(MODULENAME_PEDIDOS_PROVEEDOR); LoadModule(MODULENAME_PEDIDOS_PROVEEDOR);
LoadModule(MODULENAME_ALBARANES_PROVEEDOR); LoadModule(MODULENAME_ALBARANES_PROVEEDOR);

46
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schContactosClient_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
@ -826,7 +826,7 @@ type
end; end;
{ TContactosDataTableRules } { TContactosDataTableRules }
TContactosDataTableRules = class(TDADataTableRules, IContactos) TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -1000,7 +1000,7 @@ type
end; end;
{ TGruposClienteDataTableRules } { TGruposClienteDataTableRules }
TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente) TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1089,7 +1089,7 @@ type
end; end;
{ TDatosBancariosDataTableRules } { TDatosBancariosDataTableRules }
TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios) TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1429,7 +1429,7 @@ type
end; end;
{ TClientesDataTableRules } { TClientesDataTableRules }
TClientesDataTableRules = class(TDADataTableRules, IClientes) TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -1950,7 +1950,7 @@ type
end; end;
{ TProveedoresDataTableRules } { TProveedoresDataTableRules }
TProveedoresDataTableRules = class(TDADataTableRules, IProveedores) TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -2407,7 +2407,7 @@ type
end; end;
{ TEmpleadosDataTableRules } { TEmpleadosDataTableRules }
TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados) TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
f_FORMACION_BASE: IROStrings; f_FORMACION_BASE: IROStrings;
@ -2734,7 +2734,7 @@ type
end; end;
{ TDireccionesContactoDataTableRules } { TDireccionesContactoDataTableRules }
TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto) TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -2884,7 +2884,7 @@ type
end; end;
{ TClientesDescuentosDataTableRules } { TClientesDescuentosDataTableRules }
TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos) TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2949,7 +2949,7 @@ type
end; end;
{ TGruposProveedorDataTableRules } { TGruposProveedorDataTableRules }
TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor) TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -2996,7 +2996,7 @@ type
end; end;
{ TGruposEmpleadoDataTableRules } { TGruposEmpleadoDataTableRules }
TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado) TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -3156,7 +3156,7 @@ type
end; end;
{ TContactos_RefreshDataTableRules } { TContactos_RefreshDataTableRules }
TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh) TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -3312,7 +3312,7 @@ type
end; end;
{ TContratosEmpleadosDataTableRules } { TContratosEmpleadosDataTableRules }
TContratosEmpleadosDataTableRules = class(TDADataTableRules, IContratosEmpleados) TContratosEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IContratosEmpleados)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -3347,7 +3347,7 @@ type
end; end;
{ TDescripcionesProveedoresDataTableRules } { TDescripcionesProveedoresDataTableRules }
TDescripcionesProveedoresDataTableRules = class(TDADataTableRules, IDescripcionesProveedores) TDescripcionesProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IDescripcionesProveedores)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -3436,7 +3436,7 @@ type
end; end;
{ TPersonalContactoDataTableRules } { TPersonalContactoDataTableRules }
TPersonalContactoDataTableRules = class(TDADataTableRules, IPersonalContacto) TPersonalContactoDataTableRules = class(TIntfObjectDADataTableRules, IPersonalContacto)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -3549,7 +3549,7 @@ type
end; end;
{ TAgentes_ComisionesDataTableRules } { TAgentes_ComisionesDataTableRules }
TAgentes_ComisionesDataTableRules = class(TDADataTableRules, IAgentes_Comisiones) TAgentes_ComisionesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Comisiones)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -3608,7 +3608,7 @@ type
end; end;
{ TListaAnosObjetivosAlbDataTableRules } { TListaAnosObjetivosAlbDataTableRules }
TListaAnosObjetivosAlbDataTableRules = class(TDADataTableRules, IListaAnosObjetivosAlb) TListaAnosObjetivosAlbDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosObjetivosAlb)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -3792,7 +3792,7 @@ type
end; end;
{ TAgentesDataTableRules } { TAgentesDataTableRules }
TAgentesDataTableRules = class(TDADataTableRules, IAgentes) TAgentesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes)
private private
f_NOTAS: IROStrings; f_NOTAS: IROStrings;
procedure NOTAS_OnChange(Sender: TObject); procedure NOTAS_OnChange(Sender: TObject);
@ -4026,7 +4026,7 @@ type
end; end;
{ TClientesDescuentosArticulosDataTableRules } { TClientesDescuentosArticulosDataTableRules }
TClientesDescuentosArticulosDataTableRules = class(TDADataTableRules, IClientesDescuentosArticulos) TClientesDescuentosArticulosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentosArticulos)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -4145,7 +4145,7 @@ type
end; end;
{ TAgentes_Objetivos_albaranesDataTableRules } { TAgentes_Objetivos_albaranesDataTableRules }
TAgentes_Objetivos_albaranesDataTableRules = class(TDADataTableRules, IAgentes_Objetivos_albaranes) TAgentes_Objetivos_albaranesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Objetivos_albaranes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -4252,7 +4252,7 @@ type
end; end;
{ TAgentes_Objetivos_facturasDataTableRules } { TAgentes_Objetivos_facturasDataTableRules }
TAgentes_Objetivos_facturasDataTableRules = class(TDADataTableRules, IAgentes_Objetivos_facturas) TAgentes_Objetivos_facturasDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Objetivos_facturas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -4323,7 +4323,7 @@ type
end; end;
{ TListaAnosObjetivosFacDataTableRules } { TListaAnosObjetivosFacDataTableRules }
TListaAnosObjetivosFacDataTableRules = class(TDADataTableRules, IListaAnosObjetivosFac) TListaAnosObjetivosFacDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosObjetivosFac)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -4364,7 +4364,7 @@ type
end; end;
{ TTiposClienteDataTableRules } { TTiposClienteDataTableRules }
TTiposClienteDataTableRules = class(TDADataTableRules, ITiposCliente) TTiposClienteDataTableRules = class(TIntfObjectDADataTableRules, ITiposCliente)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

2
Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
View File

@ -238,7 +238,7 @@ object PluginContactos: TPluginContactos
OnUpdate = actEmpleadosUpdate OnUpdate = actEmpleadosUpdate
end end
object actGruposCliente: TAction object actGruposCliente: TAction
Caption = 'Grupos de cliente' Caption = 'Marcas de cliente'
ImageIndex = 5 ImageIndex = 5
OnExecute = actGruposClienteExecute OnExecute = actGruposClienteExecute
end end

120
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,58 +49,65 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\ApplicationBase.dcp" />
<DCCReference Include="Articulos_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Articulos_controller.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Base.dcp" />
<DCCReference Include="bdertl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\bdertl.dcp" />
<DCCReference Include="ccpackD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\ccpackD11.dcp" />
<DCCReference Include="cfpack_d11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cfpack_d11.dcp" />
<DCCReference Include="Contactos_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Contactos_model.dcp" />
<DCCReference Include="cxDataD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dbrtl.dcp" />
<DCCReference Include="dclcxLibraryD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dclcxLibraryD11.dcp" />
<DCCReference Include="designide.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\designide.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxLayoutControlD11.dcp" />
<DCCReference Include="dxPSCoreD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPSCoreD11.dcp" />
<DCCReference Include="dxPScxCommonD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPScxCommonD11.dcp" />
<DCCReference Include="dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="dxPSLnksD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxPSLnksD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\dxThemeD11.dcp" />
<DCCReference Include="FormasPago_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\FormasPago_controller.dcp" />
<DCCReference Include="FormasPago_model.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\FormasPago_model.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\GUISDK_D11R.dcp" />
<DCCReference Include="Jcl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JclVcl.dcp" />
<DCCReference Include="JSDialog100.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JSDialog100.dcp" />
<DCCReference Include="JvAppFrmD11R.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvAppFrmD11R.dcp" />
<DCCReference Include="JvCoreD11R.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvCtrlsD11R.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvGlobusD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\JvSystemD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\tbx_d10.dcp" />
<DCCReference Include="TiposIVA_controller.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\TiposIVA_controller.dcp" />
<DCCReference Include="TiposIVA_model.dcp" /> <DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\TiposIVA_model.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vcl.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vclactnband.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vcldb.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vcljpg.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vclshlctrls.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\vclx.dcp" />
<DCCReference Include="..\..\..\..\Resources\Iconos\Contactos\16x16\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorAgente.pas"> <DCCReference Include="uEditorAgente.pas">
<Form>fEditorAgente</Form> <Form>fEditorAgente</Form>
@ -194,7 +201,7 @@
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorTiposCliente.pas"> <DCCReference Include="uEditorTiposCliente.pas">
<Form>fEditorEmpleado</Form> <Form>fEditorTiposCliente</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewAgente.pas"> <DCCReference Include="uViewAgente.pas">
@ -293,13 +300,6 @@
<Form>frViewProveedores</Form> <Form>frViewProveedores</Form>
<DesignClass>TCustomView</DesignClass> <DesignClass>TCustomView</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclshlctrls.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

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

Binary file not shown.

102
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -61,12 +61,16 @@ inherited fEditorCliente: TfEditorCliente
Left = 3 Left = 3
DockPos = 3 DockPos = 3
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitWidth = 606 ExplicitWidth = 660
object TBXItem7: TTBXItem [7] object TBXItem42: TTBXItem [7]
Action = actTiposCliente
DisplayMode = nbdmImageAndText
end
object TBXItem7: TTBXItem [8]
Action = actGruposCliente Action = actGruposCliente
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
end end
object TBXSubmenuItem8: TTBXSubmenuItem [8] object TBXSubmenuItem8: TTBXSubmenuItem [9]
Caption = 'Documentos relacionados' Caption = 'Documentos relacionados'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
DropdownCombo = True DropdownCombo = True
@ -84,11 +88,11 @@ inherited fEditorCliente: TfEditorCliente
Action = actDocumentosRecibos Action = actDocumentosRecibos
end end
end end
inherited TBXSeparatorItem2: TTBXSeparatorItem [9] inherited TBXSeparatorItem2: TTBXSeparatorItem [10]
end end
inherited TBXItem24: TTBXItem [10] inherited TBXItem24: TTBXItem [11]
end end
inherited TBXItem23: TTBXItem [11] inherited TBXItem23: TTBXItem [12]
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
@ -169,18 +173,18 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 162 ExplicitTop = 162
end end
inherited Label1: TLabel inherited Label1: TLabel
Left = 426 Left = 484
Top = 418 Top = 418
Width = 269 Width = 269
ExplicitLeft = 426 ExplicitLeft = 484
ExplicitTop = 418 ExplicitTop = 418
ExplicitWidth = 269 ExplicitWidth = 269
end end
inherited Label2: TLabel inherited Label2: TLabel
Left = 426 Left = 484
Top = 321 Top = 321
Width = 271 Width = 271
ExplicitLeft = 426 ExplicitLeft = 484
ExplicitTop = 321 ExplicitTop = 321
ExplicitWidth = 271 ExplicitWidth = 271
end end
@ -271,42 +275,42 @@ inherited fEditorCliente: TfEditorCliente
Width = 246 Width = 246
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 333 Left = 391
Top = 409 Top = 409
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 333 ExplicitLeft = 391
ExplicitTop = 409 ExplicitTop = 409
end end
inherited cbFelicitacion: TcxDBCheckBox inherited cbFelicitacion: TcxDBCheckBox
Left = 426 Left = 484
Top = 270 Top = 270
ExplicitLeft = 426 ExplicitLeft = 484
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 370 ExplicitWidth = 370
Width = 370 Width = 370
end end
inherited cxDBCheckBox1: TcxDBCheckBox inherited cxDBCheckBox1: TcxDBCheckBox
Left = 426 Left = 484
Top = 463 Top = 463
ExplicitLeft = 426 ExplicitLeft = 484
ExplicitTop = 463 ExplicitTop = 463
ExplicitWidth = 274 ExplicitWidth = 274
Width = 274 Width = 274
end end
inherited cbRapel: TcxDBCheckBox inherited cbRapel: TcxDBCheckBox
Top = 165 Top = 192
ExplicitTop = 165 ExplicitTop = 192
ExplicitWidth = 308 ExplicitWidth = 308
Width = 308 Width = 308
end end
inherited eMailAdministracion: TcxDBHyperLinkEdit inherited eMailAdministracion: TcxDBHyperLinkEdit
Left = 538 Left = 596
Top = 366 Top = 366
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 538 ExplicitLeft = 596
ExplicitTop = 366 ExplicitTop = 366
ExplicitWidth = 133 ExplicitWidth = 133
Width = 133 Width = 133
@ -324,49 +328,49 @@ inherited fEditorCliente: TfEditorCliente
Width = 656 Width = 656
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 538 Left = 596
Top = 57 Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 538 ExplicitLeft = 596
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 538 Left = 596
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 538 ExplicitLeft = 596
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 538 Left = 596
Top = 84 Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 538 ExplicitLeft = 596
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 538 Left = 596
Top = 111 Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 538 ExplicitLeft = 596
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
@ -381,52 +385,64 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited cbTipoCliente: TcxDBComboBox
Top = 165
ExplicitTop = 165
ExplicitWidth = 332
Width = 332
end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 224 Left = 247
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 224 ExplicitLeft = 247
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 162 ExplicitWidth = 162
Width = 162 Width = 162
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 538 Left = 596
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 538 ExplicitLeft = 596
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 538 Left = 596
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 538 ExplicitLeft = 596
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
end end
inherited cbSEPA: TcxDBCheckBox
Top = 219
ExplicitTop = 219
ExplicitWidth = 481
Width = 481
end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 538 Left = 596
Top = 217 Top = 217
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 538 ExplicitLeft = 596
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 148 ExplicitWidth = 148
Width = 148 Width = 148
@ -681,12 +697,12 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 856 ExplicitWidth = 856
ExplicitHeight = 150 ExplicitHeight = 386
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 856 Width = 856
Height = 361 Height = 361
ExplicitWidth = 856 ExplicitWidth = 856
ExplicitHeight = 125 ExplicitHeight = 361
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 856
@ -714,7 +730,7 @@ inherited fEditorCliente: TfEditorCliente
Width = 856 Width = 856
Height = 175 Height = 175
ExplicitWidth = 856 ExplicitWidth = 856
ExplicitHeight = 411 ExplicitHeight = 175
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 856 Width = 856
@ -774,7 +790,7 @@ inherited fEditorCliente: TfEditorCliente
end end
object actGruposCliente: TAction object actGruposCliente: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Grupos de cliente' Caption = 'Marcas'
ImageIndex = 21 ImageIndex = 21
OnExecute = actGruposClienteExecute OnExecute = actGruposClienteExecute
end end
@ -802,6 +818,12 @@ inherited fEditorCliente: TfEditorCliente
ImageIndex = 26 ImageIndex = 26
OnExecute = actDocumentosRecibosExecute OnExecute = actDocumentosRecibosExecute
end end
object actTiposCliente: TAction
Category = 'Acciones'
Caption = 'Tipos de Cliente'
ImageIndex = 21
OnExecute = actTiposClienteExecute
end
end end
inherited dsDataTable: TDADataSource inherited dsDataTable: TDADataSource
Left = 16 Left = 16

21
Source/Modulos/Contactos/Views/uEditorCliente.pas
View File

@ -47,12 +47,15 @@ type
actDocumentosRecibos: TAction; actDocumentosRecibos: TAction;
TBXItem41: TTBXItem; TBXItem41: TTBXItem;
frViewClienteDescuentosArticulos1: TfrViewClienteDescuentosArticulos; frViewClienteDescuentosArticulos1: TfrViewClienteDescuentosArticulos;
actTiposCliente: TAction;
TBXItem42: TTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGruposClienteExecute(Sender: TObject); procedure actGruposClienteExecute(Sender: TObject);
procedure actDocumentosFacturasExecute(Sender: TObject); procedure actDocumentosFacturasExecute(Sender: TObject);
procedure actDocumentosPedidosExecute(Sender: TObject); procedure actDocumentosPedidosExecute(Sender: TObject);
procedure actDocumentosAlbaranesExecute(Sender: TObject); procedure actDocumentosAlbaranesExecute(Sender: TObject);
procedure actDocumentosRecibosExecute(Sender: TObject); procedure actDocumentosRecibosExecute(Sender: TObject);
procedure actTiposClienteExecute(Sender: TObject);
protected protected
procedure EliminarInterno; override; procedure EliminarInterno; override;
procedure SetContacto(const Value: IBizContacto); override; procedure SetContacto(const Value: IBizContacto); override;
@ -65,7 +68,8 @@ implementation
uses uses
uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem, uEditorItem, uEditorBase, uDataModuleUsuarios, uEditorDBItem,
uGruposClienteController, uBizGruposCliente, uEditorDBBase, uDialogUtils, uGruposClienteController, uBizGruposCliente,
uTiposClienteController, uBizTiposCliente, uEditorDBBase, uDialogUtils,
uClientesController; uClientesController;
@ -110,6 +114,21 @@ begin
end; end;
end; end;
procedure TfEditorCliente.actTiposClienteExecute(Sender: TObject);
var
ATiposClienteController : ITiposClienteController;
ATiposCliente : IBizTipoCliente;
begin
ATiposClienteController := TTiposClienteController.Create;
try
ATiposCliente := (ATiposClienteController.BuscarTodos as IBizTipoCliente);
ATiposClienteController.VerTodos(ATiposCliente);
finally
ATiposCliente := NIL;
ATiposClienteController := NIL;
end;
end;
constructor TfEditorCliente.Create(AOwner: TComponent); constructor TfEditorCliente.Create(AOwner: TComponent);
begin begin
inherited; inherited;

17
Source/Modulos/Contactos/Views/uEditorGruposCliente.dfm
View File

@ -4,7 +4,7 @@ object fEditorGruposCliente: TfEditorGruposCliente
ActiveControl = ListaGruposCliente ActiveControl = ListaGruposCliente
BorderIcons = [biSystemMenu] BorderIcons = [biSystemMenu]
BorderStyle = bsSingle BorderStyle = bsSingle
Caption = 'Administraci'#243'n de grupos de clientes' Caption = 'Administraci'#243'n de marcas de clientes'
ClientHeight = 499 ClientHeight = 499
ClientWidth = 404 ClientWidth = 404
Color = clBtnFace Color = clBtnFace
@ -47,17 +47,14 @@ object fEditorGruposCliente: TfEditorGruposCliente
ActivePage = TabSheet1 ActivePage = TabSheet1
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Grupos de cliente' Caption = 'Marcas de cliente'
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Label1: TLabel object Label1: TLabel
Left = 10 Left = 10
Top = 12 Top = 12
Width = 121 Width = 123
Height = 13 Height = 13
Caption = 'Lista de grupos de cliente' Caption = 'Lista de marcas de cliente'
end end
object ListaGruposCliente: TDBLookupListBox object ListaGruposCliente: TDBLookupListBox
Left = 8 Left = 8
@ -82,14 +79,14 @@ object fEditorGruposCliente: TfEditorGruposCliente
Top = 318 Top = 318
Width = 369 Width = 369
Height = 84 Height = 84
Caption = 'A'#241'adir un nuevo grupo de cliente' Caption = 'A'#241'adir una nueva marca de cliente'
TabOrder = 2 TabOrder = 2
object eCategoria: TLabel object eCategoria: TLabel
Left = 18 Left = 18
Top = 20 Top = 20
Width = 87 Width = 98
Height = 13 Height = 13
Caption = 'Nombre del grupo:' Caption = 'Nombre de la marca:'
end end
object bAnadir: TButton object bAnadir: TButton
Left = 282 Left = 282

8
Source/Modulos/Facturas proforma/Model/schFacturasProformaClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schFacturasProformaClient_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
@ -155,7 +155,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 }
@ -411,7 +411,7 @@ type
end; end;
{ TFacturasProformaDataTableRules } { TFacturasProformaDataTableRules }
TFacturasProformaDataTableRules = class(TDADataTableRules, IFacturasProforma) TFacturasProformaDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProforma)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -753,7 +753,7 @@ type
end; end;
{ TFacturasProforma_DetallesDataTableRules } { TFacturasProforma_DetallesDataTableRules }
TFacturasProforma_DetallesDataTableRules = class(TDADataTableRules, IFacturasProforma_Detalles) TFacturasProforma_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProforma_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

13
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,16 +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">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> <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">4</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.4.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.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 04 de diciembre de 2013 17:44</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,3,0 FILEVERSION 4,3,4,0
PRODUCTVERSION 4,3,3,0 PRODUCTVERSION 4,3,4,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.3.0\0" VALUE "FileVersion", "4.3.4.0\0"
VALUE "ProductVersion", "4.3.3.0\0" VALUE "ProductVersion", "4.3.4.0\0"
VALUE "CompileDate", "miércoles, 04 de diciembre de 2013 17:44\0" VALUE "CompileDate", "jueves, 05 de diciembre de 2013 12:20\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"