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

Version 2.1.0

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1118 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2015-07-09 17:26:48 +00:00
parent fb886d75b1
commit f87d5ed462
29 changed files with 504 additions and 146 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
Database/scripts/factuges.sql
View File

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

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">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>
<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">1</VersionInfo><VersionInfo Name="Release">0</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.1.0.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.1.0.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,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"

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

4
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm
View File

@ -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]

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

@ -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);

59
Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas
View File

@ -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);

3
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas
View File

@ -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);

40
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm
View File

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

84
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

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

4
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

@ -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);

41
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm
View File

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

1
Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.pas
View File

@ -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);

4
Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
View File

@ -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]

51
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
View File

@ -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);

59
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
View File

@ -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);

1
Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
View File

@ -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;

38
Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
View File

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

21
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
View File

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

87
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
View File

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

4
Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas
View File

@ -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);

41
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
View File

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

1
Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
View File

@ -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;

1
Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas
View File

@ -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;

1
Source/Modulos/Relaciones/Presupuestos de cliente - Facturas de cliente/uGenerarFacturasCliPreCliUtils.pas
View File

@ -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;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -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}

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">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>
<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">1</VersionInfo><VersionInfo Name="Release">0</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.1.0.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.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 23 de junio de 2015 17:48</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,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"