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

Version 2.0.9

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1117 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2015-06-23 15:52:26 +00:00
parent 89f2ebcc68
commit fb886d75b1
18 changed files with 251 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Database/scripts/factuges.sql
View File

@ -1053,7 +1053,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
DESCRIPCION_BONIFICACION VARCHAR(255) COLLATE ES_ES,
IMPORTE_BONIFICACION TIPO_IMPORTE,
CERTIFICADO_ISO TIPO_BOOLEANO,
ID_PRESUPUESTO TIPO_ID
ID_PRESUPUESTO TIPO_ID,
PRESUPUESTO_WEB TIPO_BOOLEANO DEFAULT 0 NOT NULL
);
CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
@ -3145,7 +3146,8 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
DESCRIPCION_BONIFICACION,
IMPORTE_BONIFICACION,
CERTIFICADO_ISO,
NUM_FACTURA)
NUM_FACTURA,
PRESUPUESTO_WEB)
AS
SELECT
PRESUPUESTOS_CLIENTE.ID,
@ -3182,7 +3184,8 @@ SELECT
PRESUPUESTOS_CLIENTE.DESCRIPCION_BONIFICACION,
PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION,
PRESUPUESTOS_CLIENTE.CERTIFICADO_ISO,
V_PRESUPUESTOS_NUM_FAC.NUM_FACTURAS
V_PRESUPUESTOS_NUM_FAC.NUM_FACTURAS,
PRESUPUESTOS_CLIENTE.PRESUPUESTO_WEB
FROM
PRESUPUESTOS_CLIENTE
inner JOIN CONTACTOS ON (CONTACTOS.ID = PRESUPUESTOS_CLIENTE.ID_CLIENTE)
@ -3191,6 +3194,7 @@ FROM
/* View: V_PROVEEDORES */
CREATE VIEW V_PROVEEDORES(
ID,

2
Source/Cliente/FactuGES.dproj
View File

@ -53,7 +53,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
<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">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">9</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.0.9.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">2.0.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>

8
Source/Cliente/FactuGES.rc
View File

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

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

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

@ -8,8 +8,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Height = 290
RootLevelOptions.DetailTabsPosition = dtpTop
OnActiveTabChanged = cxGridActiveTabChanged
ExplicitLeft = 48
ExplicitTop = 96
ExplicitWidth = 665
ExplicitHeight = 290
inherited cxGridView: TcxGridDBTableView
@ -40,6 +38,8 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Value = 0
end>
Properties.ShowDescriptions = False
BestFitMaxWidth = 40
Width = 40
end
object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO'

4
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.dfm
View File

@ -242,6 +242,10 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
Name = 'NUM_FACTURA'
DataType = datString
Size = 31
end
item
Name = 'PRESUPUESTO_WEB'
DataType = datSmallInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

47
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ 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_ListaAnosPresupuestos = '{FB0C7CCA-A5AD-4DC9-92A7-B1F988BC66F6}';
RID_PresupuestosCliente = '{13B7954C-1238-405E-9808-FAFEE50453B2}';
RID_PresupuestosCliente_Detalles = '{F440F004-9D8C-4318-A703-B778699FEF40}';
RID_ListaAnosPresupuestos = '{57F229C4-0E25-4B14-9EF2-FDDD99E71C84}';
RID_PresupuestosCliente = '{59171E8B-CE19-4D89-B535-C89A0CF3A7A8}';
RID_PresupuestosCliente_Detalles = '{DEBB6BD7-53C4-423A-A7BC-7EDB8FE1E85B}';
{ Data table names }
nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
@ -60,6 +60,7 @@ const
fld_PresupuestosClienteIMPORTE_BONIFICACION = 'IMPORTE_BONIFICACION';
fld_PresupuestosClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO';
fld_PresupuestosClienteNUM_FACTURA = 'NUM_FACTURA';
fld_PresupuestosClientePRESUPUESTO_WEB = 'PRESUPUESTO_WEB';
{ PresupuestosCliente field indexes }
idx_PresupuestosClienteID = 0;
@ -97,6 +98,7 @@ const
idx_PresupuestosClienteIMPORTE_BONIFICACION = 32;
idx_PresupuestosClienteCERTIFICADO_ISO = 33;
idx_PresupuestosClienteNUM_FACTURA = 34;
idx_PresupuestosClientePRESUPUESTO_WEB = 35;
{ PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID';
@ -135,7 +137,7 @@ const
type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{A9351889-76CD-4DF9-A713-429A45EEFF0E}']
['{8205902D-1C1B-4481-8FA3-990C69B260CA}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -170,7 +172,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{8270147A-7440-4A9F-96C0-4473F3A5103C}']
['{80C8000B-8736-4612-B2A2-0D4B0EFD5401}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -308,6 +310,10 @@ type
procedure SetNUM_FACTURAValue(const aValue: String);
function GetNUM_FACTURAIsNull: Boolean;
procedure SetNUM_FACTURAIsNull(const aValue: Boolean);
function GetPRESUPUESTO_WEBValue: SmallInt;
procedure SetPRESUPUESTO_WEBValue(const aValue: SmallInt);
function GetPRESUPUESTO_WEBIsNull: Boolean;
procedure SetPRESUPUESTO_WEBIsNull(const aValue: Boolean);
{ Properties }
@ -381,6 +387,8 @@ type
property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
property NUM_FACTURA: String read GetNUM_FACTURAValue write SetNUM_FACTURAValue;
property NUM_FACTURAIsNull: Boolean read GetNUM_FACTURAIsNull write SetNUM_FACTURAIsNull;
property PRESUPUESTO_WEB: SmallInt read GetPRESUPUESTO_WEBValue write SetPRESUPUESTO_WEBValue;
property PRESUPUESTO_WEBIsNull: Boolean read GetPRESUPUESTO_WEBIsNull write SetPRESUPUESTO_WEBIsNull;
end;
{ TPresupuestosClienteDataTableRules }
@ -532,6 +540,10 @@ type
procedure SetNUM_FACTURAValue(const aValue: String); virtual;
function GetNUM_FACTURAIsNull: Boolean; virtual;
procedure SetNUM_FACTURAIsNull(const aValue: Boolean); virtual;
function GetPRESUPUESTO_WEBValue: SmallInt; virtual;
procedure SetPRESUPUESTO_WEBValue(const aValue: SmallInt); virtual;
function GetPRESUPUESTO_WEBIsNull: Boolean; virtual;
procedure SetPRESUPUESTO_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -604,6 +616,8 @@ type
property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
property NUM_FACTURA: String read GetNUM_FACTURAValue write SetNUM_FACTURAValue;
property NUM_FACTURAIsNull: Boolean read GetNUM_FACTURAIsNull write SetNUM_FACTURAIsNull;
property PRESUPUESTO_WEB: SmallInt read GetPRESUPUESTO_WEBValue write SetPRESUPUESTO_WEBValue;
property PRESUPUESTO_WEBIsNull: Boolean read GetPRESUPUESTO_WEBIsNull write SetPRESUPUESTO_WEBIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -613,7 +627,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{F55BA8B9-B3C5-41E9-A24C-37775DEC3E12}']
['{F117D80D-7B65-4791-8611-ACCF1099A09E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1619,6 +1633,27 @@ begin
DataTable.Fields[idx_PresupuestosClienteNUM_FACTURA].AsVariant := Null;
end;
function TPresupuestosClienteDataTableRules.GetPRESUPUESTO_WEBValue: SmallInt;
begin
result := DataTable.Fields[idx_PresupuestosClientePRESUPUESTO_WEB].AsSmallInt;
end;
procedure TPresupuestosClienteDataTableRules.SetPRESUPUESTO_WEBValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_PresupuestosClientePRESUPUESTO_WEB].AsSmallInt := aValue;
end;
function TPresupuestosClienteDataTableRules.GetPRESUPUESTO_WEBIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosClientePRESUPUESTO_WEB].IsNull;
end;
procedure TPresupuestosClienteDataTableRules.SetPRESUPUESTO_WEBIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosClientePRESUPUESTO_WEB].AsVariant := Null;
end;
{ TPresupuestosCliente_DetallesDataTableRules }
constructor TPresupuestosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

55
Source/Modulos/Presupuestos de cliente/Model/schPresupuestosClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ 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_ListaAnosPresupuestosDelta = '{2A42AFEA-7059-4D2F-9607-2FEF08BA8B18}';
RID_PresupuestosClienteDelta = '{C30EFE0E-9528-4EA9-A001-D32D0CBE4A62}';
RID_PresupuestosCliente_DetallesDelta = '{BC5B932F-4F80-464F-89B1-D198C455DC79}';
RID_ListaAnosPresupuestosDelta = '{C0D3D85C-14FE-4640-ABB5-AFFA1E455AB5}';
RID_PresupuestosClienteDelta = '{DBAC9306-FDD2-4E1C-8E32-1AD77204437E}';
RID_PresupuestosCliente_DetallesDelta = '{5C3B3F44-DBFB-471E-B345-BCD2673FED43}';
type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{2A42AFEA-7059-4D2F-9607-2FEF08BA8B18}']
['{C0D3D85C-14FE-4640-ABB5-AFFA1E455AB5}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{C30EFE0E-9528-4EA9-A001-D32D0CBE4A62}']
['{DBAC9306-FDD2-4E1C-8E32-1AD77204437E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -87,6 +87,7 @@ type
function GetOldIMPORTE_BONIFICACIONValue : Currency;
function GetOldCERTIFICADO_ISOValue : SmallInt;
function GetOldNUM_FACTURAValue : String;
function GetOldPRESUPUESTO_WEBValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -124,6 +125,7 @@ type
property OldIMPORTE_BONIFICACION : Currency read GetOldIMPORTE_BONIFICACIONValue;
property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
property OldNUM_FACTURA : String read GetOldNUM_FACTURAValue;
property OldPRESUPUESTO_WEB : SmallInt read GetOldPRESUPUESTO_WEBValue;
end;
{ TPresupuestosClienteBusinessProcessorRules }
@ -345,6 +347,12 @@ type
function GetOldNUM_FACTURAIsNull: Boolean; virtual;
procedure SetNUM_FACTURAValue(const aValue: String); virtual;
procedure SetNUM_FACTURAIsNull(const aValue: Boolean); virtual;
function GetPRESUPUESTO_WEBValue: SmallInt; virtual;
function GetPRESUPUESTO_WEBIsNull: Boolean; virtual;
function GetOldPRESUPUESTO_WEBValue: SmallInt; virtual;
function GetOldPRESUPUESTO_WEBIsNull: Boolean; virtual;
procedure SetPRESUPUESTO_WEBValue(const aValue: SmallInt); virtual;
procedure SetPRESUPUESTO_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -487,6 +495,10 @@ type
property NUM_FACTURAIsNull : Boolean read GetNUM_FACTURAIsNull write SetNUM_FACTURAIsNull;
property OldNUM_FACTURA : String read GetOldNUM_FACTURAValue;
property OldNUM_FACTURAIsNull : Boolean read GetOldNUM_FACTURAIsNull;
property PRESUPUESTO_WEB : SmallInt read GetPRESUPUESTO_WEBValue write SetPRESUPUESTO_WEBValue;
property PRESUPUESTO_WEBIsNull : Boolean read GetPRESUPUESTO_WEBIsNull write SetPRESUPUESTO_WEBIsNull;
property OldPRESUPUESTO_WEB : SmallInt read GetOldPRESUPUESTO_WEBValue;
property OldPRESUPUESTO_WEBIsNull : Boolean read GetOldPRESUPUESTO_WEBIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -496,7 +508,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{BC5B932F-4F80-464F-89B1-D198C455DC79}']
['{5C3B3F44-DBFB-471E-B345-BCD2673FED43}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@ -1866,6 +1878,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNUM_FACTURA] := Null;
end;
function TPresupuestosClienteBusinessProcessorRules.GetPRESUPUESTO_WEBValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRESUPUESTO_WEB];
end;
function TPresupuestosClienteBusinessProcessorRules.GetPRESUPUESTO_WEBIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRESUPUESTO_WEB]);
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldPRESUPUESTO_WEBValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePRESUPUESTO_WEB];
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldPRESUPUESTO_WEBIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClientePRESUPUESTO_WEB]);
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetPRESUPUESTO_WEBValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRESUPUESTO_WEB] := aValue;
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetPRESUPUESTO_WEBIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePRESUPUESTO_WEB] := Null;
end;
{ TPresupuestosCliente_DetallesBusinessProcessorRules }
constructor TPresupuestosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

1
Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas
View File

@ -205,6 +205,7 @@ begin
FECHA_PRESUPUESTO := DateOf(Date);
INCIDENCIAS_ACTIVAS := 0;
CERTIFICADO_ISO := 1;
PRESUPUESTO_WEB := 0;
// INCIDENCIAS := NIL;
REFERENCIA := '';
SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;

41
Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.dfm
View File

@ -186,6 +186,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
item
DatasetField = 'NUM_FACTURA'
TableField = 'NUM_FACTURA'
end
item
DatasetField = 'PRESUPUESTO_WEB'
TableField = 'PRESUPUESTO_WEB'
end>
end>
Name = 'PresupuestosCliente'
@ -376,6 +380,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'NUM_FACTURA'
DataType = datString
Size = 31
end
item
Name = 'PRESUPUESTO_WEB'
DataType = datSmallInt
end>
end
item
@ -715,6 +723,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
Name = 'CERTIFICADO_ISO'
DataType = datSmallInt
Value = ''
end
item
Name = 'PRESUPUESTO_WEB'
DataType = datSmallInt
Value = ''
end>
Statements = <
item
@ -730,15 +743,16 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'E_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA' +
', IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' PERSONA_CONTAC' +
'TO, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION, CERTIFICADO_' +
'ISO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_' +
'DECISION, :REFERENCIA,'#10' :REFERENCIA_AUX, :SITUACION, :ID_CLI' +
'ENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10' :CLIENTE_FINAL, :' +
'PORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS, :INCIDENC' +
'IAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :I' +
'MPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENTO, :BASE_IMPONI' +
'BLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FORMA_PAGO, :' +
'PERSONA_CONTACTO,'#10' :DESCRIPCION_BONIFICACION, :IMPORTE_BONIF' +
'ICACION, :CERTIFICADO_ISO)'#10
'ISO,'#10' PRESUPUESTO_WEB)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECH' +
'A_PRESUPUESTO, :FECHA_DECISION, :REFERENCIA,'#10' :REFERENCIA_AU' +
'X, :SITUACION, :ID_CLIENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10 +
' :CLIENTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONES, '#10' :' +
'INCIDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUA' +
'RIO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_D' +
'ESCUENTO, :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TO' +
'TAL, :ID_FORMA_PAGO, :PERSONA_CONTACTO,'#10' :DESCRIPCION_BONIFI' +
'CACION, :IMPORTE_BONIFICACION, :CERTIFICADO_ISO, :PRESUPUESTO_WE' +
'B)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -924,6 +938,11 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datSmallInt
Value = ''
end
item
Name = 'PRESUPUESTO_WEB'
DataType = datSmallInt
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -951,8 +970,8 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'OTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
'PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' DESCRIPCION_BONIFICACI' +
'ON = :DESCRIPCION_BONIFICACION,'#10' IMPORTE_BONIFICACION = :IMPO' +
'RTE_BONIFICACION,'#10' CERTIFICADO_ISO = :CERTIFICADO_ISO'#10' WHERE' +
#10' (ID = :OLD_ID)'#10
'RTE_BONIFICACION,'#10' CERTIFICADO_ISO = :CERTIFICADO_ISO,'#10' PR' +
'ESUPUESTO_WEB = :PRESUPUESTO_WEB'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

61
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.dfm
View File

@ -52,7 +52,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
TabOrder = 5
Width = 260
end
object memObservaciones: TcxDBMemo
@ -77,7 +77,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
TabOrder = 10
Height = 217
Width = 507
end
@ -142,7 +142,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
TabOrder = 8
Width = 122
end
object bFormasPago: TButton
@ -151,7 +151,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
TabOrder = 8
TabOrder = 9
OnClick = bFormasPagoClick
end
object edtFechaDecision: TcxDBDateEdit
@ -177,7 +177,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
TabOrder = 6
Width = 260
end
object eRefCliente: TcxDBTextEdit
@ -234,7 +234,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
TabOrder = 12
Width = 350
end
object cbSituacion: TcxDBImageComboBox
@ -268,7 +268,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
TabOrder = 7
Width = 260
end
object eReferenciaAux: TcxDBTextEdit
@ -311,7 +311,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 10
TabOrder = 11
ReadOnly = False
ExplicitLeft = 480
ExplicitTop = 28
@ -368,7 +368,7 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Width = 23
Height = 25
Action = actElegirClienteFinal
TabOrder = 12
TabOrder = 13
end
object eCertificadoISO: TcxDBCheckBox
Left = 22
@ -388,7 +388,28 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3
Transparent = True
Width = 359
Width = 110
end
object eFacturaWeb: TcxDBCheckBox
Left = 138
Top = 82
Caption = 'Presupuesto WEB'
DataBinding.DataField = 'PRESUPUESTO_WEB'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Transparent = True
Width = 162
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
@ -429,10 +450,24 @@ inherited frViewPresupuestoCliente: TfrViewPresupuestoCliente
Control = eRefCliente
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item13: TdxLayoutItem
object dxLayoutControl1Group10: TdxLayoutGroup
ShowCaption = False
Control = eCertificadoISO
ControlOptions.ShowBorder = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
object dxLayoutControl1Item13: TdxLayoutItem
AutoAligns = [aaVertical]
ShowCaption = False
Control = eCertificadoISO
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item14: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient
ShowCaption = False
Control = eFacturaWeb
ControlOptions.ShowBorder = False
end
end
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha presupuesto:'

3
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestoCliente.pas
View File

@ -69,6 +69,9 @@ type
dxLayoutControl1Group9: TdxLayoutGroup;
dxLayoutControl1Item13: TdxLayoutItem;
eCertificadoISO: TcxDBCheckBox;
dxLayoutControl1Item14: TdxLayoutItem;
eFacturaWeb: TcxDBCheckBox;
dxLayoutControl1Group10: TdxLayoutGroup;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);

57
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -54,6 +54,25 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Visible = False
VisibleForCustomization = False
end
object cxGridViewPRESUPUESTO_WEB: TcxGridDBColumn
Caption = 'Web'
DataBinding.FieldName = 'PRESUPUESTO_WEB'
PropertiesClassName = 'TcxImageComboBoxProperties'
Properties.Images = GridPNGImageList
Properties.Items = <
item
Description = 'Presupuesto Normal'
Value = 0
end
item
Description = 'Presupuesto Web'
ImageIndex = 5
Value = 1
end>
Properties.ShowDescriptions = False
BestFitMaxWidth = 40
Width = 40
end
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@ -185,32 +204,36 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Width = 285
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 292
Left = 249
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 292
ExplicitLeft = 249
ExplicitWidth = 504
Width = 504
end
inherited eLista: TcxComboBox
Left = 750
Left = 645
Enabled = False
Properties.OnChange = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 750
ExplicitLeft = 645
ExplicitWidth = 215
Width = 215
end
inherited eLista2: TcxComboBox
Left = 833
Left = 776
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 833
ExplicitLeft = 776
ExplicitWidth = 207
Width = 207
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
@ -599,6 +622,28 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
C153E90000000049454E44AE426082}
Name = 'PngImage4'
Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
61000001E34944415478DAA5932D72E43010855F98D934341BC1858261D10D76
8E3047305C1685051A067A59A0E042E70682863D6C608719EE6B399EADDABFAA
AD7595CAB2DCFDF5EB1FDDE13F9FBB9F0FF258225F27AEC415D109B05A35C3CC
EF32E653FD2380CE035F4388720C41609DC2D68ABA28B42688E1820E79CAE7E9
17407316E4788F43E8033CF2F46D42F804E8E29084E0A2ACBE7B90E9798334C0
40D9145AC2BD1E8591A58B5CFE27406D462915EA59AD4A70812CF142FBD3340E
750764113C8648C9A214E20A0C762560A1A925A662A8FDD0D48A06846B782220
6F80E732C7181F14858079CB69895B1D57D6824BBB99FF4A03C9952134BD9597
21ED008BF1F341F52BAA3035098CC23428DB561A70D53EC39888EFB941D4F45E
5EB2DC0021A6035BC56A0F306660BD1B464A3DB5A8B00CED89606A62B201A61D
90CB8C3E3EA03BD2F002BD8EF4550FB441D421532B62658D02CFC4C2DBFC9AD3
0EC86CDBA349DC24B2F7BA8E2D227BCF9CFD3CB573EC69409EE6D731EF804899
EC4F3CB6D631927623FFD48F5AC84741B1B572D58B4FEB5CC67A1BA4739ECE34
18D185435DE756B070B5CDB17305B63BB741A2F38F41BA41BE38C4324D8FE6C6
3E0FBE7CEF15F602716877E7DF5EA6F330B6CBC4F6A55641CAE69EC973245714
97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
Name = 'PngImage5'
Background = clWindow
end>
Bitmap = {}
end

1
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas
View File

@ -49,6 +49,7 @@ type
cxGridViewCERTIFICADO_ISO: TcxGridDBColumn;
cxGridViewNUM_FACTURAS: TcxGridDBColumn;
cxStyleConFacturas: TcxStyle;
cxGridViewPRESUPUESTO_WEB: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -130,12 +130,12 @@ uses
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.8.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.0.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 17 de febrero de 2015 16:12</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">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">9</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.0.9.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.0.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 28 de mayo de 2015 13:23</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
FILEVERSION 2,0,8,0
PRODUCTVERSION 2,0,8,0
FILEVERSION 2,0,9,0
PRODUCTVERSION 2,0,9,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0"
VALUE "FileVersion", "2.0.8.0\0"
VALUE "FileVersion", "2.0.9.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.0.8.0\0"
VALUE "CompileDate", "jueves, 28 de mayo de 2015 13:23\0"
VALUE "ProductVersion", "2.0.9.0\0"
VALUE "CompileDate", "martes, 23 de junio de 2015 17:48\0"
END
END
BLOCK "VarFileInfo"