diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 8c8e8a5c..d7b8fb98 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -750,7 +750,8 @@ CREATE TABLE FACTURAS_PROVEEDOR (
FECHA_RECEPCION DATE,
RETENCION TIPO_PORCENTAJE,
IMPORTE_RETENCION TIPO_IMPORTE,
- ID_PEDIDO TIPO_ID
+ ID_PEDIDO TIPO_ID,
+ FACTURA_WEB TIPO_BOOLEANO DEFAULT 0 NOT NULL
);
CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
@@ -975,7 +976,8 @@ CREATE TABLE PEDIDOS_PROVEEDOR (
ID_FORMA_PAGO TIPO_ID,
FECHA_ENVIO DATE,
ID_FACTURA TIPO_ID,
- REF_FACTURA_PROV VARCHAR(255) COLLATE ES_ES
+ REF_FACTURA_PROV VARCHAR(255) COLLATE ES_ES,
+ PEDIDO_WEB TIPO_BOOLEANO DEFAULT 0 NOT NULL
);
CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (
@@ -2205,7 +2207,8 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
RETENCION,
IMPORTE_RETENCION,
ID_PEDIDO,
- REFERENCIA_PEDIDO)
+ REFERENCIA_PEDIDO,
+ FACTURA_WEB)
AS
SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_EMPRESA,
@@ -2244,15 +2247,16 @@ SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.RETENCION,
FACTURAS_PROVEEDOR.IMPORTE_RETENCION,
FACTURAS_PROVEEDOR.ID_PEDIDO,
- PEDIDOS_PROVEEDOR.REFERENCIA as REFERENCIA_PED
+ PEDIDOS_PROVEEDOR.REFERENCIA as REFERENCIA_PED,
+ FACTURAS_PROVEEDOR.FACTURA_WEB
FROM V_FAC_PRO_SITUACION
LEFT JOIN FACTURAS_PROVEEDOR
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
LEFT JOIN PROVEEDORES_DATOS
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
LEFT JOIN PEDIDOS_PROVEEDOR
- ON (PEDIDOS_PROVEEDOR.ID = FACTURAS_PROVEEDOR.ID_PEDIDO);
-
+ ON (PEDIDOS_PROVEEDOR.ID = FACTURAS_PROVEEDOR.ID_PEDIDO)
+;
@@ -3028,7 +3032,8 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
IVA,
IMPORTE_IVA,
ID_FORMA_PAGO,
- NUM_FACTURAS)
+ NUM_FACTURAS,
+ PEDIDO_WEB)
AS
SELECT
PEDIDOS_PROVEEDOR.ID,
@@ -3071,7 +3076,8 @@ SELECT
PEDIDOS_PROVEEDOR.IVA,
PEDIDOS_PROVEEDOR.IMPORTE_IVA,
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
- V_PEDIDOS_PROV_NUM_FAC.NUM_FACTURAS
+ V_PEDIDOS_PROV_NUM_FAC.NUM_FACTURAS,
+ PEDIDOS_PROVEEDOR.PEDIDO_WEB
FROM
PEDIDOS_PROVEEDOR
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index bae1add9..502db4c0 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2090FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.9.0FactuGESFactuGES2.0.9.0FactuGES.dprFalse
+FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2100FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.0.0FactuGESFactuGES2.1.0.0FactuGES.dprFalse
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index e9d37334..706ae68a 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO
-FILEVERSION 2,0,9,0
-PRODUCTVERSION 2,0,9,0
+FILEVERSION 2,1,0,0
+PRODUCTVERSION 2,1,0,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.9.0\0"
+ VALUE "FileVersion", "2.1.0.0\0"
VALUE "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0"
- VALUE "ProductVersion", "2.0.9.0\0"
+ VALUE "ProductVersion", "2.1.0.0\0"
END
END
BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index e1cbae45..ee360fe5 100644
Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ
diff --git a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
index 27a6af5a..4eb1bfc1 100644
--- a/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
@@ -269,6 +269,10 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Name = 'REFERENCIA_PEDIDO'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'FACTURA_WEB'
+ DataType = datSmallInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
index 0f3a63d4..d537a980 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas
@@ -9,10 +9,10 @@ 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_ListaAnosFacturas = '{E9EE20DB-5E81-4754-8072-2259CFFDA5B9}';
- RID_FacturasProveedor = '{FDCFBE98-A97E-4BC5-B2F6-6197A7ABDCED}';
- RID_FacturasProveedor_Detalles = '{8000B72B-B998-4E4E-BB59-F2A5618AB501}';
- RID_FacturasProveedor_Pedidos = '{46C74857-4162-4EFB-BC4F-F54929804ADE}';
+ RID_ListaAnosFacturas = '{B4BDA784-E7CD-4E5D-AD82-CA1AD2FA210E}';
+ RID_FacturasProveedor = '{88C6D669-25A9-4965-ADC8-DD1920257A84}';
+ RID_FacturasProveedor_Detalles = '{858A5CAE-E03F-4CAB-8AAF-D03986B66CD3}';
+ RID_FacturasProveedor_Pedidos = '{3B26DC10-C424-4261-8421-52BDE6ECDF82}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -65,6 +65,7 @@ const
fld_FacturasProveedorIMPORTE_RETENCION = 'IMPORTE_RETENCION';
fld_FacturasProveedorID_PEDIDO = 'ID_PEDIDO';
fld_FacturasProveedorREFERENCIA_PEDIDO = 'REFERENCIA_PEDIDO';
+ fld_FacturasProveedorFACTURA_WEB = 'FACTURA_WEB';
{ FacturasProveedor field indexes }
idx_FacturasProveedorID = 0;
@@ -105,6 +106,7 @@ const
idx_FacturasProveedorIMPORTE_RETENCION = 35;
idx_FacturasProveedorID_PEDIDO = 36;
idx_FacturasProveedorREFERENCIA_PEDIDO = 37;
+ idx_FacturasProveedorFACTURA_WEB = 38;
{ FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID_TIPO_IVA = 'ID_TIPO_IVA';
@@ -169,7 +171,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
- ['{4238D296-7C17-4CD5-B1E9-710EB08649AF}']
+ ['{05484AA0-6BB3-4627-AACC-ACA197D91A7A}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -204,7 +206,7 @@ type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
- ['{E9F4EBE9-292E-4C00-B3AA-02A66888F93D}']
+ ['{AD3265C8-FA1C-4EF5-AE75-30202C4F636C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -357,6 +359,10 @@ type
procedure SetREFERENCIA_PEDIDOValue(const aValue: String);
function GetREFERENCIA_PEDIDOIsNull: Boolean;
procedure SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean);
+ function GetFACTURA_WEBValue: SmallInt;
+ procedure SetFACTURA_WEBValue(const aValue: SmallInt);
+ function GetFACTURA_WEBIsNull: Boolean;
+ procedure SetFACTURA_WEBIsNull(const aValue: Boolean);
{ Properties }
@@ -436,6 +442,8 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REFERENCIA_PEDIDO: String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue;
property REFERENCIA_PEDIDOIsNull: Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull;
+ property FACTURA_WEB: SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue;
+ property FACTURA_WEBIsNull: Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
end;
{ TFacturasProveedorDataTableRules }
@@ -596,6 +604,10 @@ type
procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual;
function GetREFERENCIA_PEDIDOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetFACTURA_WEBValue: SmallInt; virtual;
+ procedure SetFACTURA_WEBValue(const aValue: SmallInt); virtual;
+ function GetFACTURA_WEBIsNull: Boolean; virtual;
+ procedure SetFACTURA_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -674,6 +686,8 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REFERENCIA_PEDIDO: String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue;
property REFERENCIA_PEDIDOIsNull: Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull;
+ property FACTURA_WEB: SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue;
+ property FACTURA_WEBIsNull: Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -683,7 +697,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{FA4B068B-A429-43C6-8743-CEFD15E11814}']
+ ['{F659E93B-D0FA-48CD-86DF-07903E7F8687}']
{ Property getters and setters }
function GetID_TIPO_IVAValue: Integer;
procedure SetID_TIPO_IVAValue(const aValue: Integer);
@@ -934,7 +948,7 @@ type
{ IFacturasProveedor_Pedidos }
IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
- ['{4B4D9EA0-EA24-4CBA-91CA-FDAD7FF943DF}']
+ ['{EED4D71C-4868-4437-B0F5-CE738331D865}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -1892,6 +1906,27 @@ begin
DataTable.Fields[idx_FacturasProveedorREFERENCIA_PEDIDO].AsVariant := Null;
end;
+function TFacturasProveedorDataTableRules.GetFACTURA_WEBValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_FacturasProveedorFACTURA_WEB].AsSmallInt;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetFACTURA_WEBValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_FacturasProveedorFACTURA_WEB].AsSmallInt := aValue;
+end;
+
+function TFacturasProveedorDataTableRules.GetFACTURA_WEBIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_FacturasProveedorFACTURA_WEB].IsNull;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetFACTURA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_FacturasProveedorFACTURA_WEB].AsVariant := Null;
+end;
+
{ TFacturasProveedor_DetallesDataTableRules }
constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
index 285e6324..c065b316 100644
--- a/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
@@ -9,15 +9,15 @@ 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_ListaAnosFacturasDelta = '{B90583D3-FF94-483B-A62D-3936AA039340}';
- RID_FacturasProveedorDelta = '{79DD3FEF-946E-4381-9AFD-B131A243967D}';
- RID_FacturasProveedor_DetallesDelta = '{952E64EA-AAE5-4E2A-9182-C3C3A478327A}';
- RID_FacturasProveedor_PedidosDelta = '{80A1DCB5-2D75-4F33-93B6-AD1A79601ABD}';
+ RID_ListaAnosFacturasDelta = '{597C7E92-4D92-447E-B929-17142EC8D988}';
+ RID_FacturasProveedorDelta = '{ACBA8C9D-A8DA-42B8-82C6-443D313A128F}';
+ RID_FacturasProveedor_DetallesDelta = '{A8B404BC-49F6-4337-B720-7E89EE78B376}';
+ RID_FacturasProveedor_PedidosDelta = '{27E068A8-51CD-4289-AB94-31B7C5120DC4}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
- ['{B90583D3-FF94-483B-A62D-3936AA039340}']
+ ['{597C7E92-4D92-447E-B929-17142EC8D988}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -51,7 +51,7 @@ type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
- ['{79DD3FEF-946E-4381-9AFD-B131A243967D}']
+ ['{ACBA8C9D-A8DA-42B8-82C6-443D313A128F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -91,6 +91,7 @@ type
function GetOldIMPORTE_RETENCIONValue : Currency;
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIA_PEDIDOValue : String;
+ function GetOldFACTURA_WEBValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -131,6 +132,7 @@ type
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue;
+ property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue;
end;
{ TFacturasProveedorBusinessProcessorRules }
@@ -367,6 +369,12 @@ type
function GetOldREFERENCIA_PEDIDOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual;
procedure SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean); virtual;
+ function GetFACTURA_WEBValue: SmallInt; virtual;
+ function GetFACTURA_WEBIsNull: Boolean; virtual;
+ function GetOldFACTURA_WEBValue: SmallInt; virtual;
+ function GetOldFACTURA_WEBIsNull: Boolean; virtual;
+ procedure SetFACTURA_WEBValue(const aValue: SmallInt); virtual;
+ procedure SetFACTURA_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -521,6 +529,10 @@ type
property REFERENCIA_PEDIDOIsNull : Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull;
property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue;
property OldREFERENCIA_PEDIDOIsNull : Boolean read GetOldREFERENCIA_PEDIDOIsNull;
+ property FACTURA_WEB : SmallInt read GetFACTURA_WEBValue write SetFACTURA_WEBValue;
+ property FACTURA_WEBIsNull : Boolean read GetFACTURA_WEBIsNull write SetFACTURA_WEBIsNull;
+ property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue;
+ property OldFACTURA_WEBIsNull : Boolean read GetOldFACTURA_WEBIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -530,7 +542,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
- ['{952E64EA-AAE5-4E2A-9182-C3C3A478327A}']
+ ['{A8B404BC-49F6-4337-B720-7E89EE78B376}']
{ Property getters and setters }
function GetOldID_TIPO_IVAValue : Integer;
function GetOldIVAValue : Float;
@@ -780,7 +792,7 @@ type
{ IFacturasProveedor_PedidosDelta }
IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
- ['{80A1DCB5-2D75-4F33-93B6-AD1A79601ABD}']
+ ['{27E068A8-51CD-4289-AB94-31B7C5120DC4}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@@ -2129,6 +2141,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO] := Null;
end;
+function TFacturasProveedorBusinessProcessorRules.GetFACTURA_WEBValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFACTURA_WEB];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetFACTURA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFACTURA_WEB]);
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldFACTURA_WEBValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFACTURA_WEB];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldFACTURA_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorFACTURA_WEB]);
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetFACTURA_WEBValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFACTURA_WEB] := aValue;
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetFACTURA_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorFACTURA_WEB] := Null;
+end;
+
{ TFacturasProveedor_DetallesBusinessProcessorRules }
constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
index 9e88bc94..ac2bf01a 100644
--- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
+++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
@@ -294,7 +294,8 @@ begin
ID_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
RE := 0;
- SITUACION := CTE_PENDIENTE;
+ SITUACION := CTE_PENDIENTE;
+ FACTURA_WEB := 0;
end;
procedure TBizFacturaProveedor.IVAOnChange(Sender: TDACustomField);
diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
index 522df537..aa05046f 100644
--- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
+++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
@@ -199,6 +199,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item
DatasetField = 'REFERENCIA_PEDIDO'
TableField = 'REFERENCIA_PEDIDO'
+ end
+ item
+ DatasetField = 'FACTURA_WEB'
+ TableField = 'FACTURA_WEB'
end>
end>
Name = 'FacturasProveedor'
@@ -406,6 +410,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'REFERENCIA_PEDIDO'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'FACTURA_WEB'
+ DataType = datSmallInt
end>
end
item
@@ -914,6 +922,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
+ end
+ item
+ Name = 'FACTURA_WEB'
+ DataType = datSmallInt
+ Value = ''
end>
Statements = <
item
@@ -929,15 +942,16 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'A_ALTA, USUARIO, ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA, ID_TI' +
'PO_IVA, IMPORTE_NETO, IMPORTE_PORTE,'#10' DATOS_BANCARIOS, FECHA' +
'_VENCIMIENTO, FECHA_RECEPCION,'#10' RETENCION, IMPORTE_RETENCION' +
- ', ID_PEDIDO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFER' +
- 'ENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCUENT' +
- 'O,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE' +
- ', '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,' +
- ' '#10' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, ' +
- #10' CURRENT_TIMESTAMP, :USUARIO, :ID_FORMA_PAGO,'#10' :RECARGO' +
- '_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE' +
- ', :DATOS_BANCARIOS, :FECHA_VENCIMIENTO, :FECHA_RECEPCION,'#10' :' +
- 'RETENCION, :IMPORTE_RETENCION, :ID_PEDIDO)'#10' '#10' '#10#10
+ ', ID_PEDIDO, FACTURA_WEB)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFER' +
+ 'ENCIA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BASE_IMPONIB' +
+ 'LE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE' +
+ ', :IMPORTE_RE, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEED' +
+ 'OR, :NIF_CIF, '#10' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CO' +
+ 'DIGO_POSTAL, '#10' CURRENT_TIMESTAMP, :USUARIO, :ID_FORMA_PAGO,'#10 +
+ ' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :' +
+ 'IMPORTE_PORTE, :DATOS_BANCARIOS, :FECHA_VENCIMIENTO, :FECHA_RECE' +
+ 'PCION,'#10' :RETENCION, :IMPORTE_RETENCION, :ID_PEDIDO, :FACTURA' +
+ '_WEB)'#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1139,6 +1153,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datInteger
Value = ''
end
+ item
+ Name = 'FACTURA_WEB'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'OLD_ID'
Value = ''
@@ -1167,7 +1186,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
':DATOS_BANCARIOS,'#10' FECHA_VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' ' +
' FECHA_RECEPCION = :FECHA_RECEPCION,'#10' RETENCION = :RETENCION' +
','#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' ID_PEDIDO = :I' +
- 'D_PEDIDO'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ 'D_PEDIDO,'#10' FACTURA_WEB = :FACTURA_WEB'#10' WHERE'#10' (ID = :OLD_' +
+ 'ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
index fa693884..6246db3a 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
@@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor
- Width = 451
- Height = 304
+ Width = 910
+ Height = 484
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@@ -9,17 +9,19 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 451
- Height = 304
+ Width = 910
+ Height = 484
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1
+ ExplicitWidth = 451
+ ExplicitHeight = 304
DesignSize = (
- 451
- 304)
+ 910
+ 484)
object eReferencia: TcxDBTextEdit
Left = 136
Top = 30
@@ -47,7 +49,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end
object edtFecha: TcxDBDateEdit
Left = 136
- Top = 84
+ Top = 111
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA'
DataBinding.DataSource = DADataSource
@@ -67,12 +69,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 2
+ TabOrder = 3
Width = 159
end
object memObservaciones: TcxDBMemo
Left = 22
- Top = 269
+ Top = 296
Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource
@@ -88,13 +90,13 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 8
+ TabOrder = 9
Height = 159
Width = 301
end
object cbFormaPago: TcxDBLookupComboBox
Left = 136
- Top = 162
+ Top = 189
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True
@@ -125,16 +127,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 4
+ TabOrder = 5
Width = 78
end
object bFormasPago: TButton
- Left = 162
- Top = 162
+ Left = 318
+ Top = 189
Width = 132
Height = 23
Caption = 'Ver las formas de pago...'
- TabOrder = 5
+ TabOrder = 6
OnClick = bFormasPagoClick
end
object eReferenciaProveedor: TcxDBTextEdit
@@ -162,7 +164,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 158
end
inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
- Left = 322
+ Left = 478
Top = 30
Width = 350
Height = 202
@@ -172,9 +174,9 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 9
+ TabOrder = 10
ReadOnly = False
- ExplicitLeft = 322
+ ExplicitLeft = 478
ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit
@@ -216,22 +218,22 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 327
end
inherited edtCodigoPostal: TcxDBTextEdit
- Left = 203
+ Left = 318
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 203
+ ExplicitLeft = 318
end
inherited Button3: TBitBtn
- Left = 87
- ExplicitLeft = 87
+ Left = 202
+ ExplicitLeft = 202
end
end
end
object cbCuentaBancaria: TcxDBComboBox
Left = 136
- Top = 218
+ Top = 245
DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList
@@ -248,12 +250,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 7
+ TabOrder = 8
Width = 165
end
object edtFechaVencimiento: TcxDBDateEdit
Left = 136
- Top = 191
+ Top = 218
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource
@@ -273,12 +275,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 6
+ TabOrder = 7
Width = 251
end
object edtFechaRecepcion: TcxDBDateEdit
Left = 136
- Top = 111
+ Top = 138
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION'
DataBinding.DataSource = DADataSource
@@ -298,9 +300,30 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 3
+ TabOrder = 4
Width = 158
end
+ object eFacturaWeb: TcxDBCheckBox
+ Left = 22
+ Top = 84
+ Caption = 'Factura WEB'
+ DataBinding.DataField = 'FACTURA_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 = 2
+ Transparent = True
+ Width = 312
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -326,6 +349,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Control = eReferenciaProveedor
ControlOptions.ShowBorder = False
end
+ object dxLayoutControl1Item9: TdxLayoutItem
+ ShowCaption = False
+ Control = eFacturaWeb
+ ControlOptions.ShowBorder = False
+ end
object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha de la factura:'
Control = edtFecha
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
index 0cb09009..af93e902 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
@@ -10,7 +10,7 @@ uses
cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask,
DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, uFormasPagoController, uViewDatosYSeleccionProveedor,
- uDAInterfaces, uBizFormasPago, uFacturasProveedorController;
+ uDAInterfaces, uBizFormasPago, uFacturasProveedorController, cxCheckBox;
type
IViewFacturaProveedor = interface(IViewBase)
@@ -57,6 +57,8 @@ type
dxLayoutControl1Group8: TdxLayoutGroup;
dxLayoutControl1Item8: TdxLayoutItem;
edtFechaRecepcion: TcxDBDateEdit;
+ dxLayoutControl1Item9: TdxLayoutItem;
+ eFacturaWeb: TcxDBCheckBox;
procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject);
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
index 555af1c5..11ce7629 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
@@ -34,6 +34,25 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
DataController.OnCompare = cxGridViewDataControllerCompare
OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible
+ object cxGridViewFACTURA_WEB: TcxGridDBColumn
+ Caption = 'Web'
+ DataBinding.FieldName = 'FACTURA_WEB'
+ PropertiesClassName = 'TcxImageComboBoxProperties'
+ Properties.Images = GridPNGImageList
+ Properties.Items = <
+ item
+ Description = 'Normal'
+ Value = 0
+ end
+ item
+ Description = 'Web'
+ ImageIndex = 2
+ Value = 1
+ end>
+ Properties.ShowDescriptions = False
+ BestFitMaxWidth = 40
+ Width = 40
+ end
object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO'
PropertiesClassName = 'TcxImageComboBoxProperties'
@@ -405,6 +424,28 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
00004B6D80F047EC10D30000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000001E34944415478DAA5932D72E43010855F98D934341BC1858261D10D76
+ 8E3047305C1685051A067A59A0E042E70682863D6C608719EE6B399EADDABFAA
+ AD7595CAB2DCFDF5EB1FDDE13F9FBB9F0FF258225F27AEC415D109B05A35C3CC
+ EF32E653FD2380CE035F4388720C41609DC2D68ABA28B42688E1820E79CAE7E9
+ 17407316E4788F43E8033CF2F46D42F804E8E29084E0A2ACBE7B90E9798334C0
+ 40D9145AC2BD1E8591A58B5CFE27406D462915EA59AD4A70812CF142FBD3340E
+ 750764113C8648C9A214E20A0C762560A1A925A662A8FDD0D48A06846B782220
+ 6F80E732C7181F14858079CB69895B1D57D6824BBB99FF4A03C9952134BD9597
+ 21ED008BF1F341F52BAA3035098CC23428DB561A70D53EC39888EFB941D4F45E
+ 5EB2DC0021A6035BC56A0F306660BD1B464A3DB5A8B00CED89606A62B201A61D
+ 90CB8C3E3EA03BD2F002BD8EF4550FB441D421532B62658D02CFC4C2DBFC9AD3
+ 0EC86CDBA349DC24B2F7BA8E2D227BCF9CFD3CB573EC69409EE6D731EF804899
+ EC4F3CB6D631927623FFD48F5AC84741B1B572D58B4FEB5CC67A1BA4739ECE34
+ 18D185435DE756B070B5CDB17305B63BB741A2F38F41BA41BE38C4324D8FE6C6
+ 3E0FBE7CEF15F602716877E7DF5EA6F330B6CBC4F6A55641CAE69EC973245714
+ 97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
+ Name = 'PngImage2'
+ Background = clWindow
end>
Bitmap = {}
end
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
index b304314f..600e86c6 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
@@ -58,6 +58,7 @@ type
cxGridViewTIPO: TcxGridDBColumn;
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
cxGridViewFECHA_RECEPCION: TcxGridDBColumn;
+ cxGridViewFACTURA_WEB: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);
diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
index 3a110097..d39d7275 100644
--- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
@@ -294,6 +294,10 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'NUM_FACTURAS'
DataType = datString
Size = 31
+ end
+ item
+ Name = 'PEDIDO_WEB'
+ DataType = datSmallInt
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
index 359271e3..58b71a12 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
@@ -9,10 +9,10 @@ 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_ListaAnosPedidos = '{7B5AB739-5669-4C14-B0F6-0ACC1BB0DFA0}';
- RID_PedidosProveedor = '{EC621BE1-911E-4BE4-A060-3DF85084D597}';
- RID_PedidosProveedor_Detalles = '{B5BC7867-64E7-47CE-A624-6BB07BCEAE4C}';
- RID_PedidosProveedor_Articulos_Pendientes = '{D3246EE5-5CFD-484B-93CA-98F0A7E02478}';
+ RID_ListaAnosPedidos = '{FD53112C-906A-4DF2-93A5-F55402F8A5EA}';
+ RID_PedidosProveedor = '{49842140-394F-4E8C-84AB-362DFD7934C3}';
+ RID_PedidosProveedor_Detalles = '{9DBAB7E6-5A24-4995-BB7B-2577AD983A87}';
+ RID_PedidosProveedor_Articulos_Pendientes = '{79652041-4793-4E62-BD2E-6C70E6439352}';
{ Data table names }
nme_ListaAnosPedidos = 'ListaAnosPedidos';
@@ -68,6 +68,7 @@ const
fld_PedidosProveedorIMPORTE_IVA = 'IMPORTE_IVA';
fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_PedidosProveedorNUM_FACTURAS = 'NUM_FACTURAS';
+ fld_PedidosProveedorPEDIDO_WEB = 'PEDIDO_WEB';
{ PedidosProveedor field indexes }
idx_PedidosProveedorID = 0;
@@ -111,6 +112,7 @@ const
idx_PedidosProveedorIMPORTE_IVA = 38;
idx_PedidosProveedorID_FORMA_PAGO = 39;
idx_PedidosProveedorNUM_FACTURAS = 40;
+ idx_PedidosProveedorPEDIDO_WEB = 41;
{ PedidosProveedor_Detalles fields }
fld_PedidosProveedor_DetallesID = 'ID';
@@ -167,7 +169,7 @@ const
type
{ IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
- ['{95BAFBE5-EF3F-493E-B32B-B14E17AC88C3}']
+ ['{598B8631-5435-4D74-9504-5DEEAB785C91}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@@ -202,7 +204,7 @@ type
{ IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
- ['{0CE0A5A6-6640-4B20-B066-21DB629D9EA3}']
+ ['{C812B422-3054-4B49-8DDF-0F43367FAE55}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -366,6 +368,10 @@ type
procedure SetNUM_FACTURASValue(const aValue: String);
function GetNUM_FACTURASIsNull: Boolean;
procedure SetNUM_FACTURASIsNull(const aValue: Boolean);
+ function GetPEDIDO_WEBValue: SmallInt;
+ procedure SetPEDIDO_WEBValue(const aValue: SmallInt);
+ function GetPEDIDO_WEBIsNull: Boolean;
+ procedure SetPEDIDO_WEBIsNull(const aValue: Boolean);
{ Properties }
@@ -451,6 +457,8 @@ type
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property NUM_FACTURAS: String read GetNUM_FACTURASValue write SetNUM_FACTURASValue;
property NUM_FACTURASIsNull: Boolean read GetNUM_FACTURASIsNull write SetNUM_FACTURASIsNull;
+ property PEDIDO_WEB: SmallInt read GetPEDIDO_WEBValue write SetPEDIDO_WEBValue;
+ property PEDIDO_WEBIsNull: Boolean read GetPEDIDO_WEBIsNull write SetPEDIDO_WEBIsNull;
end;
{ TPedidosProveedorDataTableRules }
@@ -624,6 +632,10 @@ type
procedure SetNUM_FACTURASValue(const aValue: String); virtual;
function GetNUM_FACTURASIsNull: Boolean; virtual;
procedure SetNUM_FACTURASIsNull(const aValue: Boolean); virtual;
+ function GetPEDIDO_WEBValue: SmallInt; virtual;
+ procedure SetPEDIDO_WEBValue(const aValue: SmallInt); virtual;
+ function GetPEDIDO_WEBIsNull: Boolean; virtual;
+ procedure SetPEDIDO_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -708,6 +720,8 @@ type
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property NUM_FACTURAS: String read GetNUM_FACTURASValue write SetNUM_FACTURASValue;
property NUM_FACTURASIsNull: Boolean read GetNUM_FACTURASIsNull write SetNUM_FACTURASIsNull;
+ property PEDIDO_WEB: SmallInt read GetPEDIDO_WEBValue write SetPEDIDO_WEBValue;
+ property PEDIDO_WEBIsNull: Boolean read GetPEDIDO_WEBIsNull write SetPEDIDO_WEBIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -717,7 +731,7 @@ type
{ IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{F87546FE-0DD5-4BFC-A897-D1F3042879C6}']
+ ['{C96231EE-8179-4A37-86DE-6B37AFCB5997}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -932,7 +946,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
- ['{25860E5A-6817-453D-854D-1D19FF5E9B19}']
+ ['{003878CF-9D91-43CC-94C3-E8C2DB348C2C}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -1946,6 +1960,27 @@ begin
DataTable.Fields[idx_PedidosProveedorNUM_FACTURAS].AsVariant := Null;
end;
+function TPedidosProveedorDataTableRules.GetPEDIDO_WEBValue: SmallInt;
+begin
+ result := DataTable.Fields[idx_PedidosProveedorPEDIDO_WEB].AsSmallInt;
+end;
+
+procedure TPedidosProveedorDataTableRules.SetPEDIDO_WEBValue(const aValue: SmallInt);
+begin
+ DataTable.Fields[idx_PedidosProveedorPEDIDO_WEB].AsSmallInt := aValue;
+end;
+
+function TPedidosProveedorDataTableRules.GetPEDIDO_WEBIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosProveedorPEDIDO_WEB].IsNull;
+end;
+
+procedure TPedidosProveedorDataTableRules.SetPEDIDO_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosProveedorPEDIDO_WEB].AsVariant := Null;
+end;
+
{ TPedidosProveedor_DetallesDataTableRules }
constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
index 03db245d..11ec3862 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
@@ -9,15 +9,15 @@ 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_ListaAnosPedidosDelta = '{FAA7A8A0-DB4E-4366-BFCD-067E225BF72F}';
- RID_PedidosProveedorDelta = '{C5E85239-1B36-4D0D-A58D-C1966AAB1211}';
- RID_PedidosProveedor_DetallesDelta = '{0D7DD5EF-63B4-4A25-9995-9376405DB7A3}';
- RID_PedidosProveedor_Articulos_PendientesDelta = '{A159ECAD-282A-46C1-9D12-5B967B93B3ED}';
+ RID_ListaAnosPedidosDelta = '{31914F9F-8E1D-449F-BD56-70CFFFCA8763}';
+ RID_PedidosProveedorDelta = '{0E29D7D6-4F1E-487F-AEB2-7BD1C8EF6E1D}';
+ RID_PedidosProveedor_DetallesDelta = '{6C786E58-6BA7-4B9F-A6A1-BB9454AFA0BF}';
+ RID_PedidosProveedor_Articulos_PendientesDelta = '{24202EF3-E397-41C3-BA03-0EEC1D4A9B16}';
type
{ IListaAnosPedidosDelta }
IListaAnosPedidosDelta = interface(IListaAnosPedidos)
- ['{FAA7A8A0-DB4E-4366-BFCD-067E225BF72F}']
+ ['{31914F9F-8E1D-449F-BD56-70CFFFCA8763}']
{ Property getters and setters }
function GetOldANOValue : String;
@@ -51,7 +51,7 @@ type
{ IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor)
- ['{C5E85239-1B36-4D0D-A58D-C1966AAB1211}']
+ ['{0E29D7D6-4F1E-487F-AEB2-7BD1C8EF6E1D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -94,6 +94,7 @@ type
function GetOldIMPORTE_IVAValue : Currency;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldNUM_FACTURASValue : String;
+ function GetOldPEDIDO_WEBValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -137,6 +138,7 @@ type
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldNUM_FACTURAS : String read GetOldNUM_FACTURASValue;
+ property OldPEDIDO_WEB : SmallInt read GetOldPEDIDO_WEBValue;
end;
{ TPedidosProveedorBusinessProcessorRules }
@@ -392,6 +394,12 @@ type
function GetOldNUM_FACTURASIsNull: Boolean; virtual;
procedure SetNUM_FACTURASValue(const aValue: String); virtual;
procedure SetNUM_FACTURASIsNull(const aValue: Boolean); virtual;
+ function GetPEDIDO_WEBValue: SmallInt; virtual;
+ function GetPEDIDO_WEBIsNull: Boolean; virtual;
+ function GetOldPEDIDO_WEBValue: SmallInt; virtual;
+ function GetOldPEDIDO_WEBIsNull: Boolean; virtual;
+ procedure SetPEDIDO_WEBValue(const aValue: SmallInt); virtual;
+ procedure SetPEDIDO_WEBIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -558,6 +566,10 @@ type
property NUM_FACTURASIsNull : Boolean read GetNUM_FACTURASIsNull write SetNUM_FACTURASIsNull;
property OldNUM_FACTURAS : String read GetOldNUM_FACTURASValue;
property OldNUM_FACTURASIsNull : Boolean read GetOldNUM_FACTURASIsNull;
+ property PEDIDO_WEB : SmallInt read GetPEDIDO_WEBValue write SetPEDIDO_WEBValue;
+ property PEDIDO_WEBIsNull : Boolean read GetPEDIDO_WEBIsNull write SetPEDIDO_WEBIsNull;
+ property OldPEDIDO_WEB : SmallInt read GetOldPEDIDO_WEBValue;
+ property OldPEDIDO_WEBIsNull : Boolean read GetOldPEDIDO_WEBIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -567,7 +579,7 @@ type
{ IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
- ['{0D7DD5EF-63B4-4A25-9995-9376405DB7A3}']
+ ['{6C786E58-6BA7-4B9F-A6A1-BB9454AFA0BF}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
@@ -781,7 +793,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
- ['{A159ECAD-282A-46C1-9D12-5B967B93B3ED}']
+ ['{24202EF3-E397-41C3-BA03-0EEC1D4A9B16}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String;
@@ -2217,6 +2229,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_FACTURAS] := Null;
end;
+function TPedidosProveedorBusinessProcessorRules.GetPEDIDO_WEBValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPEDIDO_WEB];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetPEDIDO_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPEDIDO_WEB]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldPEDIDO_WEBValue: SmallInt;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPEDIDO_WEB];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldPEDIDO_WEBIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorPEDIDO_WEB]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetPEDIDO_WEBValue(const aValue: SmallInt);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPEDIDO_WEB] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetPEDIDO_WEBIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorPEDIDO_WEB] := Null;
+end;
+
{ TPedidosProveedor_DetallesBusinessProcessorRules }
constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
index a7213f14..987ff5be 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
@@ -200,6 +200,7 @@ begin
FECHA_PEDIDO := DateOf(Date);
SITUACION := SITUACION_PEDIDO_PENDIENTE;
INCIDENCIAS_ACTIVAS := 0;
+ PEDIDO_WEB := 0;
// ID_PEDIDO_CLIENTE := 0;
REF_PED_CLIENTE := '';
end;
diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
index 2ebe8168..f9cb58ea 100644
--- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
@@ -210,6 +210,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item
DatasetField = 'NUM_FACTURAS'
TableField = 'NUM_FACTURAS'
+ end
+ item
+ DatasetField = 'PEDIDO_WEB'
+ TableField = 'PEDIDO_WEB'
end>
end>
Name = 'PedidosProveedor'
@@ -442,6 +446,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'NUM_FACTURAS'
DataType = datString
Size = 31
+ end
+ item
+ Name = 'PEDIDO_WEB'
+ DataType = datSmallInt
end>
end
item
@@ -908,6 +916,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datString
Size = 30
Value = ''
+ end
+ item
+ Name = 'PEDIDO_WEB'
+ DataType = datSmallInt
+ Value = ''
end>
Statements = <
item
@@ -922,15 +935,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'EFONO, ID_PEDIDO_CLIENTE,'#10' IMPORTE_NETO, IMPORTE_PORTE, DESC' +
'UENTO, IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA,' +
' IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' FECHA_ENVIO, USUARIO, FECHA_' +
- 'ALTA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_PROVEEDOR, :ID_DIRECCI' +
- 'ON,'#10' :PERSONA_CONTACTO_PROV, :REFERENCIA, :FECHA_PEDIDO,'#10' ' +
- ' :FECHA_CONFIRMACION, :FECHA_ENTREGA, :ID_ALMACEN, :ID_OBRA,'#10' ' +
- ' :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS,'#10' :CAL' +
- 'LE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' ' +
- ' :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, :IMPORTE_PORTE' +
- ','#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' ' +
- ' :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :FECHA_ENVIO,'#10' ' +
- ' :USUARIO, CURRENT_TIMESTAMP)'#10
+ 'ALTA, PEDIDO_WEB)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_PROVEEDOR,' +
+ ' :ID_DIRECCION,'#10' :PERSONA_CONTACTO_PROV, :REFERENCIA, :FECHA' +
+ '_PEDIDO,'#10' :FECHA_CONFIRMACION, :FECHA_ENTREGA, :ID_ALMACEN, ' +
+ ':ID_OBRA,'#10' :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVA' +
+ 'S,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA' +
+ '_CONTACTO,'#10' :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, :I' +
+ 'MPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIB' +
+ 'LE, :IVA,'#10' :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :FE' +
+ 'CHA_ENVIO,'#10' :USUARIO, CURRENT_TIMESTAMP, :PEDIDO_WEB)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1107,6 +1120,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Size = 30
Value = ''
end
+ item
+ Name = 'PEDIDO_WEB'
+ DataType = datSmallInt
+ Value = ''
+ end
item
Name = 'OLD_ID'
Value = ''
@@ -1134,7 +1152,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
', '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' I' +
'MPORTE_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 +
' USUARIO = :USUARIO,'#10' FECHA_MODIFICACION = CURRENT_TIMESTA' +
- 'MP'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ 'MP,'#10' PEDIDO_WEB = :PEDIDO_WEB'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
index fec450f4..6ff83a0f 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
@@ -81,7 +81,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited pgPaginas: TPageControl
Width = 873
Height = 531
- ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 873
@@ -151,33 +150,33 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited FontSize: TEdit [7]
Left = 0
Top = 27
- Width = 294
+ Width = 310
ExplicitLeft = 0
ExplicitTop = 27
- ExplicitWidth = 294
+ ExplicitWidth = 310
end
inherited UpDown1: TUpDown [8]
- Left = 294
+ Left = 310
Top = 27
- ExplicitLeft = 294
+ ExplicitLeft = 310
ExplicitTop = 27
end
inherited ToolButton6: TToolButton
- Left = 311
+ Left = 327
Top = 27
- ExplicitLeft = 311
+ ExplicitLeft = 327
ExplicitTop = 27
end
inherited ToolButton7: TToolButton
- Left = 377
+ Left = 393
Top = 27
- ExplicitLeft = 377
+ ExplicitLeft = 393
ExplicitTop = 27
end
inherited ToolButton8: TToolButton
- Left = 444
+ Left = 460
Top = 27
- ExplicitLeft = 444
+ ExplicitLeft = 460
ExplicitTop = 27
end
inherited ToolButton12: TToolButton
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
index 4f87f643..26649441 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
@@ -67,7 +67,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 10
+ TabOrder = 11
Width = 344
end
object edtFechaEntrega: TcxDBDateEdit
@@ -90,7 +90,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 11
+ TabOrder = 12
Width = 344
end
object memObservaciones: TcxDBMemo
@@ -111,7 +111,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 12
+ TabOrder = 13
Height = 200
Width = 459
end
@@ -143,7 +143,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv
Left = 22
- Top = 301
+ Top = 328
Width = 432
Height = 248
Font.Charset = DEFAULT_CHARSET
@@ -152,10 +152,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 7
+ TabOrder = 8
ReadOnly = False
ExplicitLeft = 22
- ExplicitTop = 301
+ ExplicitTop = 328
ExplicitWidth = 432
ExplicitHeight = 248
inherited dxLayoutControl1: TdxLayoutControl
@@ -167,9 +167,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
432
248)
inherited Bevel1: TBevel
- Top = 175
+ Top = 148
Width = 566
- ExplicitTop = 175
+ ExplicitTop = 148
ExplicitWidth = 566
end
inherited lblObra: TLabel
@@ -190,9 +190,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
inherited bModificar: TBitBtn
Left = 284
- Top = 139
+ Top = 112
ExplicitLeft = 284
- ExplicitTop = 139
+ ExplicitTop = 112
end
inherited txtDireccion: TStaticText
Width = 882
@@ -205,12 +205,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ExplicitWidth = 223
end
inherited edtEntregarA: TcxDBButtonEdit
- Top = 206
+ Top = 179
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitTop = 206
+ ExplicitTop = 179
ExplicitWidth = 334
Width = 334
end
@@ -228,7 +228,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
object cbFormaPago: TcxDBLookupComboBox
Left = 121
- Top = 82
+ Top = 109
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID'
@@ -257,16 +257,16 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 2
+ TabOrder = 3
Width = 195
end
object bFormasPago: TButton
Left = 312
- Top = 82
+ Top = 109
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
- TabOrder = 3
+ TabOrder = 4
OnClick = bFormasPagoClick
end
object edtFechaEnvio: TcxDBDateEdit
@@ -291,14 +291,13 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 9
+ TabOrder = 10
Width = 344
end
object eReferenciaPedidoCli: TcxTextEdit
Left = 121
- Top = 109
+ Top = 136
Anchors = [akLeft, akTop, akRight]
- Enabled = False
Properties.ReadOnly = False
Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame
@@ -318,20 +317,20 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 4
+ TabOrder = 5
Width = 195
end
object bVerPedidoCliente: TButton
Left = 312
- Top = 109
+ Top = 136
Width = 132
Height = 23
Action = actVerPedidoCli
- TabOrder = 5
+ TabOrder = 6
end
inline frViewObraReserva1: TfrViewObraReserva
Left = 22
- Top = 168
+ Top = 195
Width = 422
Height = 97
Font.Charset = DEFAULT_CHARSET
@@ -340,25 +339,31 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 6
+ TabOrder = 7
ReadOnly = False
ExplicitLeft = 22
- ExplicitTop = 168
+ ExplicitTop = 195
ExplicitWidth = 422
ExplicitHeight = 97
inherited dxLayoutControl1: TdxLayoutControl
Width = 422
Height = 97
- ExplicitWidth = 432
- ExplicitHeight = 72
+ ExplicitWidth = 422
+ ExplicitHeight = 97
DesignSize = (
422
97)
+ inherited Label1: TLabel
+ Width = 202
+ ExplicitWidth = 202
+ end
inherited cbObraReserva: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
+ ExplicitWidth = 581
+ Width = 581
end
end
inherited PngImageList: TPngImageList
@@ -381,7 +386,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 8
+ TabOrder = 9
ReadOnly = False
ExplicitLeft = 474
ExplicitTop = 28
@@ -438,6 +443,27 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
end
end
+ object ePedidoWeb: TcxDBCheckBox
+ Left = 22
+ Top = 82
+ Caption = 'Pedido WEB'
+ DataBinding.DataField = 'PEDIDO_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 = 2
+ Transparent = True
+ Width = 312
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -463,6 +489,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Control = edtFechaPedido
ControlOptions.ShowBorder = False
end
+ object dxLayoutControl1Item14: TdxLayoutItem
+ ShowCaption = False
+ Control = ePedidoWeb
+ ControlOptions.ShowBorder = False
+ end
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas
index 1276cde3..6a35bb2f 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas
@@ -14,7 +14,7 @@ uses
// uBizPedidosCliente, uPedidosClienteController,
cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces, uBizFormasPago,
uViewProveedorPedido, uViewObraReserva, uObrasController,
- uPedidosProveedorController, uViewDatosYSeleccionProveedorPedido;
+ uPedidosProveedorController, uViewDatosYSeleccionProveedorPedido, cxCheckBox;
type
IViewPedidoProveedor = interface(IViewBase)
@@ -75,6 +75,8 @@ type
dxLayoutControl1Group11: TdxLayoutGroup;
frViewDatosYSeleccionProveedorPedido1: TfrViewDatosYSeleccionProveedorPedido;
dxLayoutControl1Item1: TdxLayoutItem;
+ dxLayoutControl1Item14: TdxLayoutItem;
+ ePedidoWeb: TcxDBCheckBox;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
index efa65d3d..c7d378f6 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
@@ -37,6 +37,25 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
MinWidth = 30
Width = 30
end
+ object cxGridViewPEDIDO_WEB: TcxGridDBColumn
+ Caption = 'Web'
+ DataBinding.FieldName = 'PEDIDO_WEB'
+ PropertiesClassName = 'TcxImageComboBoxProperties'
+ Properties.Images = GridPNGImageList
+ Properties.Items = <
+ item
+ Description = 'Normal'
+ Value = 0
+ end
+ item
+ Description = 'Web'
+ ImageIndex = 3
+ Value = 1
+ end>
+ Properties.ShowDescriptions = False
+ BestFitMaxWidth = 40
+ Width = 40
+ end
object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@@ -446,6 +465,28 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
CF0000000049454E44AE426082}
Name = 'PngImage1'
Background = clWindow
+ end
+ item
+ PngImage.Data = {
+ 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+ 61000001E34944415478DAA5932D72E43010855F98D934341BC1858261D10D76
+ 8E3047305C1685051A067A59A0E042E70682863D6C608719EE6B399EADDABFAA
+ AD7595CAB2DCFDF5EB1FDDE13F9FBB9F0FF258225F27AEC415D109B05A35C3CC
+ EF32E653FD2380CE035F4388720C41609DC2D68ABA28B42688E1820E79CAE7E9
+ 17407316E4788F43E8033CF2F46D42F804E8E29084E0A2ACBE7B90E9798334C0
+ 40D9145AC2BD1E8591A58B5CFE27406D462915EA59AD4A70812CF142FBD3340E
+ 750764113C8648C9A214E20A0C762560A1A925A662A8FDD0D48A06846B782220
+ 6F80E732C7181F14858079CB69895B1D57D6824BBB99FF4A03C9952134BD9597
+ 21ED008BF1F341F52BAA3035098CC23428DB561A70D53EC39888EFB941D4F45E
+ 5EB2DC0021A6035BC56A0F306660BD1B464A3DB5A8B00CED89606A62B201A61D
+ 90CB8C3E3EA03BD2F002BD8EF4550FB441D421532B62658D02CFC4C2DBFC9AD3
+ 0EC86CDBA349DC24B2F7BA8E2D227BCF9CFD3CB573EC69409EE6D731EF804899
+ EC4F3CB6D631927623FFD48F5AC84741B1B572D58B4FEB5CC67A1BA4739ECE34
+ 18D185435DE756B070B5CDB17305B63BB741A2F38F41BA41BE38C4324D8FE6C6
+ 3E0FBE7CEF15F602716877E7DF5EA6F330B6CBC4F6A55641CAE69EC973245714
+ 97FDD7DBF8AFCF7740E00D20BA266C3A0000000049454E44AE426082}
+ Name = 'PngImage3'
+ Background = clWindow
end>
Bitmap = {}
end
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
index b3410d47..e13d3f17 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
@@ -57,6 +57,7 @@ type
cxGridViewNUM_FACTURAS: TcxGridDBColumn;
cxGridViewNOMBRE_OBRA: TcxGridDBColumn;
cxStyleConFacturas: TcxStyle;
+ cxGridViewPEDIDO_WEB: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
diff --git a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas
index ef5ce071..bc1b6f25 100644
--- a/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas
+++ b/Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas
@@ -346,6 +346,7 @@ begin
AListaPedidos.Proveedor.DataTable.Active := True;
AFacturas.Proveedor := AListaPedidos.Proveedor;
AFacturas.ID_PEDIDO := AListaPedidos.ID;
+ AFacturas.FACTURA_WEB := AListaPedidos.PEDIDO_WEB;
AFacturaActual := AFacturas;
end;
diff --git a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas
index e0ea6b86..1d33495e 100644
--- a/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas
+++ b/Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas
@@ -263,6 +263,7 @@ begin
APresupuestosController.RecuperarCliente(AListaPresupuestos);
AFacturas.Cliente := AListaPresupuestos.Cliente;
AFacturas.ID_PRESUPUESTO := AListaPresupuestos.ID;
+ AFacturas.Factura_WEB := AListaPresupuestos.PRESUPUESTO_WEB;
AFacturas.OBSERVACIONES.Add('Importe de factura por trabajos realizados según indicaciones de nuestro presupuesto ' + AListaPresupuestos.REFERENCIA + ' con fecha ' + DateToStr(AListaPresupuestos.FECHA_PRESUPUESTO));
AFacturaActual := AFacturas;
end;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 28b58268..c1254f6c 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index c8b04135..cd7673d8 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -128,14 +128,14 @@ uses
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
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',
- 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',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
- schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_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',
+ schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
+ schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index bd09e0e1..76adc7b5 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -35,7 +35,7 @@
Delphi.Personality
- FalseTrueFalse/standaloneTrueFalse2090FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.0.9.0FactuGES Servidor2.0.9.0jueves, 28 de mayo de 2015 13:23
+ FalseTrueFalse/standaloneTrueFalse2100FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.1.0.0FactuGES Servidor2.1.0.0martes, 23 de junio de 2015 17:48
ExpressPrinting System by Developer Express Inc.
FactuGES_Server.dpr
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 65a4d6f3..942b2b51 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO
-FILEVERSION 2,0,9,0
-PRODUCTVERSION 2,0,9,0
+FILEVERSION 2,1,0,0
+PRODUCTVERSION 2,1,0,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.9.0\0"
+ VALUE "FileVersion", "2.1.0.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
- VALUE "ProductVersion", "2.0.9.0\0"
- VALUE "CompileDate", "martes, 23 de junio de 2015 17:48\0"
+ VALUE "ProductVersion", "2.1.0.0\0"
+ VALUE "CompileDate", "jueves, 09 de julio de 2015 19:18\0"
END
END
BLOCK "VarFileInfo"