Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo de contactos para que se vea o no si es proveedor o acredor (en ficha de proveedor o ficha de cliente)

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@334 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-11-20 11:57:36 +00:00
parent 5ef41c4336
commit 0d7bc310cd
8 changed files with 314 additions and 293 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Base/Base.res
View File

Binary file not shown.

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

@ -685,13 +685,17 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 862
Width = 862
end
inherited rdTipoSubcuenta: TDBRadioGroup
inherited layoutApunteGroup_Root: TdxLayoutGroup
inherited layoutApunteGroup1: TdxLayoutGroup
inherited layoutApunteItem7: TdxLayoutItem
Visible = False
end
end
end
end
end
end
end
inherited StatusBar: TJvStatusBar
Top = 626
Width = 896

20
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -110,6 +110,10 @@ inherited fEditorContacto: TfEditorContacto
ExplicitWidth = 618
inherited eEntidad: TcxDBTextEdit
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 114
Width = 114
@ -117,6 +121,10 @@ inherited fEditorContacto: TfEditorContacto
inherited eSucursal: TcxDBTextEdit
Left = 403
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 403
ExplicitTop = 57
ExplicitWidth = 112
@ -124,16 +132,28 @@ inherited fEditorContacto: TfEditorContacto
end
inherited eCuenta: TcxDBTextEdit
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitWidth = 194
Width = 194
end
inherited eDC: TcxDBTextEdit
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
end
inherited eTitular: TcxDBTextEdit
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30
ExplicitWidth = 194
Width = 194

6
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schFacturasProveedorClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -374,7 +374,7 @@ type
end;
{ TFacturasProveedorDataTableRules }
TFacturasProveedorDataTableRules = class(TDADataTableRules, IFacturasProveedor)
TFacturasProveedorDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -716,7 +716,7 @@ type
end;
{ TFacturasProveedor_DetallesDataTableRules }
TFacturasProveedor_DetallesDataTableRules = class(TDADataTableRules, IFacturasProveedor_Detalles)
TFacturasProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasProveedor_Detalles)
private
protected
{ Property getters and setters }

8
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schRecibosProveedorClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -447,7 +447,7 @@ type
end;
{ TRecibosCompensadosProvDataTableRules }
TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv)
TRecibosCompensadosProvDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosProv)
private
protected
{ Property getters and setters }
@ -926,7 +926,7 @@ type
end;
{ TRecibosProveedorDataTableRules }
TRecibosProveedorDataTableRules = class(TDADataTableRules, IRecibosProveedor)
TRecibosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRecibosProveedor)
private
protected
{ Property getters and setters }
@ -1255,7 +1255,7 @@ type
end;
{ TPagosProveedorDataTableRules }
TPagosProveedorDataTableRules = class(TDADataTableRules, IPagosProveedor)
TPagosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPagosProveedor)
private
protected
{ Property getters and setters }

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

5
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">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -29,9 +29,6 @@
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">2</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">2.2.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.2.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 22 de julio de 2008 19:27</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.2.4.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.2.4.0\0"
VALUE "CompileDate", "miércoles, 19 de noviembre de 2008 17:04\0"
VALUE "CompileDate", "jueves, 20 de noviembre de 2008 12:46\0"
END
END
BLOCK "VarFileInfo"