Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo refresco datos albaranes de proveedor

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@420 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-06-03 14:38:31 +00:00
parent f4ca3008c2
commit 0c39d9a777
7 changed files with 294 additions and 285 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Source/Modulos/Albaranes de proveedor/Data/uDataModuleAlbaranesProveedor.dfm
View File

@ -49,6 +49,7 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
DataType = datString
Size = 255
DisplayLabel = 'Proveedor'
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_NOMBRE'
end
item
@ -88,6 +89,7 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
DataType = datString
Size = 255
DisplayLabel = 'Almac'#233'n'
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_NOMBRE_ALMACEN'
end
item
@ -100,6 +102,7 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
DataType = datString
Size = 255
DisplayLabel = 'Ped. proveedor'
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_REF_PED_PROVEEDOR'
end
item
@ -119,6 +122,7 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
DataType = datString
Size = 255
DisplayLabel = 'Ref. factura prov'
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA_PROV'
end
item
@ -204,6 +208,7 @@ inherited DataModuleAlbaranesProveedor: TDataModuleAlbaranesProveedor
DataType = datFloat
DisplayFormat = ',0.00 %;-,0.00 %'
Alignment = taRightJustify
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_IVA'
end
item

14
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -3,14 +3,14 @@ unit schAlbaranesProveedorClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_AlbaranesProveedor = '{9D3B6136-5028-420C-9E17-EA1818B7411C}';
RID_AlbaranesProveedor_Detalles = '{1D79C6CB-2A51-466F-A598-25DC32A87422}';
RID_AlbaranesProveedor = '{DC4BC11F-D327-4E71-BD98-E2221D403DCD}';
RID_AlbaranesProveedor_Detalles = '{7E3C0C28-6CDC-44EC-B9B3-FA0D6E04B704}';
{ Data table names }
nme_AlbaranesProveedor = 'AlbaranesProveedor';
@ -129,7 +129,7 @@ const
type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{5D42B721-F52B-45FB-B58C-0D40EE691467}']
['{4A11793E-3535-4087-BAF4-4A6D47B4FB51}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -351,7 +351,7 @@ type
end;
{ TAlbaranesProveedorDataTableRules }
TAlbaranesProveedorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor)
TAlbaranesProveedorDataTableRules = class(TDADataTableRules, IAlbaranesProveedor)
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
@ -584,7 +584,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{DE37354A-12D5-4AA5-ACB5-02F30BE8C537}']
['{F72E89B1-361B-44F9-A166-02D428B67E07}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -682,7 +682,7 @@ type
end;
{ TAlbaranesProveedor_DetallesDataTableRules }
TAlbaranesProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor_Detalles)
TAlbaranesProveedor_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesProveedor_Detalles)
private
protected
{ Property getters and setters }

8
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_AlbaranesProveedorDelta = '{6144F95B-9D3E-4D8A-983B-515B64FC9E55}';
RID_AlbaranesProveedor_DetallesDelta = '{26F798F2-F1D8-4FB0-9302-1AEDC4F8D7A0}';
RID_AlbaranesProveedorDelta = '{3E80524F-4D76-4027-AD93-F08F2B616B77}';
RID_AlbaranesProveedor_DetallesDelta = '{BCE53CF1-BA9D-4944-8EB8-529E2AE826B9}';
type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{6144F95B-9D3E-4D8A-983B-515B64FC9E55}']
['{3E80524F-4D76-4027-AD93-F08F2B616B77}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -471,7 +471,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{26F798F2-F1D8-4FB0-9302-1AEDC4F8D7A0}']
['{BCE53CF1-BA9D-4944-8EB8-529E2AE826B9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;

8
Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.dfm
View File

@ -191,6 +191,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Name = 'NOMBRE'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_NOMBRE'
end
item
@ -225,6 +226,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_NOMBRE_ALMACEN'
end
item
@ -236,6 +238,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Name = 'REF_PED_PROVEEDOR'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_REF_PED_PROVEEDOR'
end
item
@ -253,6 +256,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
Name = 'REF_FACTURA_PROV'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_REF_FACTURA_PROV'
end
item
@ -319,6 +323,7 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
item
Name = 'IVA'
DataType = datFloat
ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesProveedor_IVA'
end
item
@ -1109,9 +1114,8 @@ object srvAlbaranesProveedor: TsrvAlbaranesProveedor
InsertCommandName = 'Insert_AlbaranesProveedor'
DeleteCommandName = 'Delete_AlbaranesProveedor'
UpdateCommandName = 'Update_AlbaranesProveedor'
RefreshDatasetName = 'AlbaranesProveedor_Refresh'
ReferencedDataset = 'AlbaranesProveedor'
ProcessorOptions = [poPrepareCommands]
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 208
Top = 24

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
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>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.4.0\0"
VALUE "ProductVersion", "1.0.4.0\0"
VALUE "CompileDate", "martes, 03 de junio de 2008 14:27\0"
VALUE "CompileDate", "martes, 03 de junio de 2008 16:14\0"
END
END
BLOCK "VarFileInfo"