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, FECHA_RECEPCION DATE,
RETENCION TIPO_PORCENTAJE, RETENCION TIPO_PORCENTAJE,
IMPORTE_RETENCION TIPO_IMPORTE, 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 ( CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
@ -975,7 +976,8 @@ CREATE TABLE PEDIDOS_PROVEEDOR (
ID_FORMA_PAGO TIPO_ID, ID_FORMA_PAGO TIPO_ID,
FECHA_ENVIO DATE, FECHA_ENVIO DATE,
ID_FACTURA TIPO_ID, 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 ( CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (
@ -2205,7 +2207,8 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
RETENCION, RETENCION,
IMPORTE_RETENCION, IMPORTE_RETENCION,
ID_PEDIDO, ID_PEDIDO,
REFERENCIA_PEDIDO) REFERENCIA_PEDIDO,
FACTURA_WEB)
AS AS
SELECT FACTURAS_PROVEEDOR.ID, SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_EMPRESA, FACTURAS_PROVEEDOR.ID_EMPRESA,
@ -2244,15 +2247,16 @@ SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.RETENCION, FACTURAS_PROVEEDOR.RETENCION,
FACTURAS_PROVEEDOR.IMPORTE_RETENCION, FACTURAS_PROVEEDOR.IMPORTE_RETENCION,
FACTURAS_PROVEEDOR.ID_PEDIDO, 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 FROM V_FAC_PRO_SITUACION
LEFT JOIN FACTURAS_PROVEEDOR LEFT JOIN FACTURAS_PROVEEDOR
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA) ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
LEFT JOIN PROVEEDORES_DATOS LEFT JOIN PROVEEDORES_DATOS
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR) ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
LEFT JOIN PEDIDOS_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, IVA,
IMPORTE_IVA, IMPORTE_IVA,
ID_FORMA_PAGO, ID_FORMA_PAGO,
NUM_FACTURAS) NUM_FACTURAS,
PEDIDO_WEB)
AS AS
SELECT SELECT
PEDIDOS_PROVEEDOR.ID, PEDIDOS_PROVEEDOR.ID,
@ -3071,7 +3076,8 @@ SELECT
PEDIDOS_PROVEEDOR.IVA, PEDIDOS_PROVEEDOR.IVA,
PEDIDOS_PROVEEDOR.IMPORTE_IVA, PEDIDOS_PROVEEDOR.IMPORTE_IVA,
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO, PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
V_PEDIDOS_PROV_NUM_FAC.NUM_FACTURAS V_PEDIDOS_PROV_NUM_FAC.NUM_FACTURAS,
PEDIDOS_PROVEEDOR.PEDIDO_WEB
FROM FROM
PEDIDOS_PROVEEDOR PEDIDOS_PROVEEDOR

2
Source/Cliente/FactuGES.dproj
View File

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

8
Source/Cliente/FactuGES.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico" MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,0,9,0 FILEVERSION 2,1,0,0
PRODUCTVERSION 2,0,9,0 PRODUCTVERSION 2,1,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" 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 "InternalName", "FactuGES\0"
VALUE "ProductName", "FactuGES\0" VALUE "ProductName", "FactuGES\0"
VALUE "ProductVersion", "2.0.9.0\0" VALUE "ProductVersion", "2.1.0.0\0"
END END
END END
BLOCK "VarFileInfo" 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' Name = 'REFERENCIA_PEDIDO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'FACTURA_WEB'
DataType = datSmallInt
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,10 +9,10 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{E9EE20DB-5E81-4754-8072-2259CFFDA5B9}'; RID_ListaAnosFacturas = '{B4BDA784-E7CD-4E5D-AD82-CA1AD2FA210E}';
RID_FacturasProveedor = '{FDCFBE98-A97E-4BC5-B2F6-6197A7ABDCED}'; RID_FacturasProveedor = '{88C6D669-25A9-4965-ADC8-DD1920257A84}';
RID_FacturasProveedor_Detalles = '{8000B72B-B998-4E4E-BB59-F2A5618AB501}'; RID_FacturasProveedor_Detalles = '{858A5CAE-E03F-4CAB-8AAF-D03986B66CD3}';
RID_FacturasProveedor_Pedidos = '{46C74857-4162-4EFB-BC4F-F54929804ADE}'; RID_FacturasProveedor_Pedidos = '{3B26DC10-C424-4261-8421-52BDE6ECDF82}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -65,6 +65,7 @@ const
fld_FacturasProveedorIMPORTE_RETENCION = 'IMPORTE_RETENCION'; fld_FacturasProveedorIMPORTE_RETENCION = 'IMPORTE_RETENCION';
fld_FacturasProveedorID_PEDIDO = 'ID_PEDIDO'; fld_FacturasProveedorID_PEDIDO = 'ID_PEDIDO';
fld_FacturasProveedorREFERENCIA_PEDIDO = 'REFERENCIA_PEDIDO'; fld_FacturasProveedorREFERENCIA_PEDIDO = 'REFERENCIA_PEDIDO';
fld_FacturasProveedorFACTURA_WEB = 'FACTURA_WEB';
{ FacturasProveedor field indexes } { FacturasProveedor field indexes }
idx_FacturasProveedorID = 0; idx_FacturasProveedorID = 0;
@ -105,6 +106,7 @@ const
idx_FacturasProveedorIMPORTE_RETENCION = 35; idx_FacturasProveedorIMPORTE_RETENCION = 35;
idx_FacturasProveedorID_PEDIDO = 36; idx_FacturasProveedorID_PEDIDO = 36;
idx_FacturasProveedorREFERENCIA_PEDIDO = 37; idx_FacturasProveedorREFERENCIA_PEDIDO = 37;
idx_FacturasProveedorFACTURA_WEB = 38;
{ FacturasProveedor_Detalles fields } { FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID_TIPO_IVA = 'ID_TIPO_IVA'; fld_FacturasProveedor_DetallesID_TIPO_IVA = 'ID_TIPO_IVA';
@ -169,7 +171,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{4238D296-7C17-4CD5-B1E9-710EB08649AF}'] ['{05484AA0-6BB3-4627-AACC-ACA197D91A7A}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -204,7 +206,7 @@ type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{E9F4EBE9-292E-4C00-B3AA-02A66888F93D}'] ['{AD3265C8-FA1C-4EF5-AE75-30202C4F636C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -357,6 +359,10 @@ type
procedure SetREFERENCIA_PEDIDOValue(const aValue: String); procedure SetREFERENCIA_PEDIDOValue(const aValue: String);
function GetREFERENCIA_PEDIDOIsNull: Boolean; function GetREFERENCIA_PEDIDOIsNull: Boolean;
procedure SetREFERENCIA_PEDIDOIsNull(const aValue: 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 } { Properties }
@ -436,6 +442,8 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REFERENCIA_PEDIDO: String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue; property REFERENCIA_PEDIDO: String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue;
property REFERENCIA_PEDIDOIsNull: Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull; 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; end;
{ TFacturasProveedorDataTableRules } { TFacturasProveedorDataTableRules }
@ -596,6 +604,10 @@ type
procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual; procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual;
function GetREFERENCIA_PEDIDOIsNull: Boolean; virtual; function GetREFERENCIA_PEDIDOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PEDIDOIsNull(const aValue: 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -674,6 +686,8 @@ type
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull; property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property REFERENCIA_PEDIDO: String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue; property REFERENCIA_PEDIDO: String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue;
property REFERENCIA_PEDIDOIsNull: Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull; 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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -683,7 +697,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{FA4B068B-A429-43C6-8743-CEFD15E11814}'] ['{F659E93B-D0FA-48CD-86DF-07903E7F8687}']
{ Property getters and setters } { Property getters and setters }
function GetID_TIPO_IVAValue: Integer; function GetID_TIPO_IVAValue: Integer;
procedure SetID_TIPO_IVAValue(const aValue: Integer); procedure SetID_TIPO_IVAValue(const aValue: Integer);
@ -934,7 +948,7 @@ type
{ IFacturasProveedor_Pedidos } { IFacturasProveedor_Pedidos }
IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
['{4B4D9EA0-EA24-4CBA-91CA-FDAD7FF943DF}'] ['{EED4D71C-4868-4437-B0F5-CE738331D865}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1892,6 +1906,27 @@ begin
DataTable.Fields[idx_FacturasProveedorREFERENCIA_PEDIDO].AsVariant := Null; DataTable.Fields[idx_FacturasProveedorREFERENCIA_PEDIDO].AsVariant := Null;
end; 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 } { TFacturasProveedor_DetallesDataTableRules }
constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); 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 { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{B90583D3-FF94-483B-A62D-3936AA039340}'; RID_ListaAnosFacturasDelta = '{597C7E92-4D92-447E-B929-17142EC8D988}';
RID_FacturasProveedorDelta = '{79DD3FEF-946E-4381-9AFD-B131A243967D}'; RID_FacturasProveedorDelta = '{ACBA8C9D-A8DA-42B8-82C6-443D313A128F}';
RID_FacturasProveedor_DetallesDelta = '{952E64EA-AAE5-4E2A-9182-C3C3A478327A}'; RID_FacturasProveedor_DetallesDelta = '{A8B404BC-49F6-4337-B720-7E89EE78B376}';
RID_FacturasProveedor_PedidosDelta = '{80A1DCB5-2D75-4F33-93B6-AD1A79601ABD}'; RID_FacturasProveedor_PedidosDelta = '{27E068A8-51CD-4289-AB94-31B7C5120DC4}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{B90583D3-FF94-483B-A62D-3936AA039340}'] ['{597C7E92-4D92-447E-B929-17142EC8D988}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{79DD3FEF-946E-4381-9AFD-B131A243967D}'] ['{ACBA8C9D-A8DA-42B8-82C6-443D313A128F}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -91,6 +91,7 @@ type
function GetOldIMPORTE_RETENCIONValue : Currency; function GetOldIMPORTE_RETENCIONValue : Currency;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIA_PEDIDOValue : String; function GetOldREFERENCIA_PEDIDOValue : String;
function GetOldFACTURA_WEBValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -131,6 +132,7 @@ type
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue; property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue; property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue; property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue;
property OldFACTURA_WEB : SmallInt read GetOldFACTURA_WEBValue;
end; end;
{ TFacturasProveedorBusinessProcessorRules } { TFacturasProveedorBusinessProcessorRules }
@ -367,6 +369,12 @@ type
function GetOldREFERENCIA_PEDIDOIsNull: Boolean; virtual; function GetOldREFERENCIA_PEDIDOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual; procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual;
procedure SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -521,6 +529,10 @@ type
property REFERENCIA_PEDIDOIsNull : Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull; property REFERENCIA_PEDIDOIsNull : Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull;
property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue; property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue;
property OldREFERENCIA_PEDIDOIsNull : Boolean read GetOldREFERENCIA_PEDIDOIsNull; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -530,7 +542,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{952E64EA-AAE5-4E2A-9182-C3C3A478327A}'] ['{A8B404BC-49F6-4337-B720-7E89EE78B376}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_TIPO_IVAValue : Integer; function GetOldID_TIPO_IVAValue : Integer;
function GetOldIVAValue : Float; function GetOldIVAValue : Float;
@ -780,7 +792,7 @@ type
{ IFacturasProveedor_PedidosDelta } { IFacturasProveedor_PedidosDelta }
IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos) IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
['{80A1DCB5-2D75-4F33-93B6-AD1A79601ABD}'] ['{27E068A8-51CD-4289-AB94-31B7C5120DC4}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -2129,6 +2141,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO] := Null;
end; 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 } { TFacturasProveedor_DetallesBusinessProcessorRules }
constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); 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_FORMA_PAGO := AppFactuGES.EmpresaActiva.ID_FORMA_PAGO;
ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA; ID_TIPO_IVA := AppFactuGES.EmpresaActiva.ID_TIPO_IVA;
RE := 0; RE := 0;
SITUACION := CTE_PENDIENTE; SITUACION := CTE_PENDIENTE;
FACTURA_WEB := 0;
end; end;
procedure TBizFacturaProveedor.IVAOnChange(Sender: TDACustomField); 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 item
DatasetField = 'REFERENCIA_PEDIDO' DatasetField = 'REFERENCIA_PEDIDO'
TableField = 'REFERENCIA_PEDIDO' TableField = 'REFERENCIA_PEDIDO'
end
item
DatasetField = 'FACTURA_WEB'
TableField = 'FACTURA_WEB'
end> end>
end> end>
Name = 'FacturasProveedor' Name = 'FacturasProveedor'
@ -406,6 +410,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'REFERENCIA_PEDIDO' Name = 'REFERENCIA_PEDIDO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'FACTURA_WEB'
DataType = datSmallInt
end> end>
end end
item item
@ -914,6 +922,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end
item
Name = 'FACTURA_WEB'
DataType = datSmallInt
Value = ''
end> end>
Statements = < Statements = <
item item
@ -929,15 +942,16 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'A_ALTA, USUARIO, ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA, ID_TI' + 'A_ALTA, USUARIO, ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA, ID_TI' +
'PO_IVA, IMPORTE_NETO, IMPORTE_PORTE,'#10' DATOS_BANCARIOS, FECHA' + 'PO_IVA, IMPORTE_NETO, IMPORTE_PORTE,'#10' DATOS_BANCARIOS, FECHA' +
'_VENCIMIENTO, FECHA_RECEPCION,'#10' RETENCION, IMPORTE_RETENCION' + '_VENCIMIENTO, FECHA_RECEPCION,'#10' RETENCION, IMPORTE_RETENCION' +
', ID_PEDIDO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFER' + ', ID_PEDIDO, FACTURA_WEB)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFER' +
'ENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCUENT' + 'ENCIA, :REFERENCIA_PROVEEDOR,'#10' :FECHA_FACTURA, :BASE_IMPONIB' +
'O,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE' + 'LE, :DESCUENTO,'#10' :IMPORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE' +
', '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,' + ', :IMPORTE_RE, '#10' :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEED' +
' '#10' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, ' + 'OR, :NIF_CIF, '#10' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CO' +
#10' CURRENT_TIMESTAMP, :USUARIO, :ID_FORMA_PAGO,'#10' :RECARGO' + 'DIGO_POSTAL, '#10' CURRENT_TIMESTAMP, :USUARIO, :ID_FORMA_PAGO,'#10 +
'_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE' + ' :RECARGO_EQUIVALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :' +
', :DATOS_BANCARIOS, :FECHA_VENCIMIENTO, :FECHA_RECEPCION,'#10' :' + 'IMPORTE_PORTE, :DATOS_BANCARIOS, :FECHA_VENCIMIENTO, :FECHA_RECE' +
'RETENCION, :IMPORTE_RETENCION, :ID_PEDIDO)'#10' '#10' '#10#10 'PCION,'#10' :RETENCION, :IMPORTE_RETENCION, :ID_PEDIDO, :FACTURA' +
'_WEB)'#10' '#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1139,6 +1153,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datInteger DataType = datInteger
Value = '' Value = ''
end end
item
Name = 'FACTURA_WEB'
DataType = datSmallInt
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1167,7 +1186,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
':DATOS_BANCARIOS,'#10' FECHA_VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' ' + ':DATOS_BANCARIOS,'#10' FECHA_VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' ' +
' FECHA_RECEPCION = :FECHA_RECEPCION,'#10' RETENCION = :RETENCION' + ' FECHA_RECEPCION = :FECHA_RECEPCION,'#10' RETENCION = :RETENCION' +
','#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' ID_PEDIDO = :I' + ','#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 StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -1,6 +1,6 @@
inherited frViewFacturaProveedor: TfrViewFacturaProveedor inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 451 Width = 910
Height = 304 Height = 484
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,17 +9,19 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 910
Height = 304 Height = 484
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
451 910
304) 484)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 136 Left = 136
Top = 30 Top = 30
@ -47,7 +49,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
end end
object edtFecha: TcxDBDateEdit object edtFecha: TcxDBDateEdit
Left = 136 Left = 136
Top = 84 Top = 111
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataField = 'FECHA_FACTURA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -67,12 +69,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 3
Width = 159 Width = 159
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 269 Top = 296
Anchors = [akLeft, akTop, akRight, akBottom] Anchors = [akLeft, akTop, akRight, akBottom]
DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataField = 'OBSERVACIONES'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -88,13 +90,13 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 9
Height = 159 Height = 159
Width = 301 Width = 301
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 136 Left = 136
Top = 162 Top = 189
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -125,16 +127,16 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 5
Width = 78 Width = 78
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 162 Left = 318
Top = 162 Top = 189
Width = 132 Width = 132
Height = 23 Height = 23
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 5 TabOrder = 6
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object eReferenciaProveedor: TcxDBTextEdit object eReferenciaProveedor: TcxDBTextEdit
@ -162,7 +164,7 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 158 Width = 158
end end
inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor inline frViewProveedorFactura: TfrViewDatosYSeleccionProveedor
Left = 322 Left = 478
Top = 30 Top = 30
Width = 350 Width = 350
Height = 202 Height = 202
@ -172,9 +174,9 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 9 TabOrder = 10
ReadOnly = False ReadOnly = False
ExplicitLeft = 322 ExplicitLeft = 478
ExplicitTop = 30 ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
@ -216,22 +218,22 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Width = 327 Width = 327
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 203 Left = 318
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 203 ExplicitLeft = 318
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 87 Left = 202
ExplicitLeft = 87 ExplicitLeft = 202
end end
end end
end end
object cbCuentaBancaria: TcxDBComboBox object cbCuentaBancaria: TcxDBComboBox
Left = 136 Left = 136
Top = 218 Top = 245
DataBinding.DataField = 'DATOS_BANCARIOS' DataBinding.DataField = 'DATOS_BANCARIOS'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
@ -248,12 +250,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 8
Width = 165 Width = 165
end end
object edtFechaVencimiento: TcxDBDateEdit object edtFechaVencimiento: TcxDBDateEdit
Left = 136 Left = 136
Top = 191 Top = 218
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO' DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -273,12 +275,12 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6 TabOrder = 7
Width = 251 Width = 251
end end
object edtFechaRecepcion: TcxDBDateEdit object edtFechaRecepcion: TcxDBDateEdit
Left = 136 Left = 136
Top = 111 Top = 138
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_RECEPCION' DataBinding.DataField = 'FECHA_RECEPCION'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -298,9 +300,30 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3 TabOrder = 4
Width = 158 Width = 158
end 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 object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -326,6 +349,11 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Control = eReferenciaProveedor Control = eReferenciaProveedor
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item9: TdxLayoutItem
ShowCaption = False
Control = eFacturaWeb
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Fecha de la factura:' Caption = 'Fecha de la factura:'
Control = edtFecha 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, cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask,
DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, uFormasPagoController, uViewDatosYSeleccionProveedor, cxDBLookupComboBox, uFormasPagoController, uViewDatosYSeleccionProveedor,
uDAInterfaces, uBizFormasPago, uFacturasProveedorController; uDAInterfaces, uBizFormasPago, uFacturasProveedorController, cxCheckBox;
type type
IViewFacturaProveedor = interface(IViewBase) IViewFacturaProveedor = interface(IViewBase)
@ -57,6 +57,8 @@ type
dxLayoutControl1Group8: TdxLayoutGroup; dxLayoutControl1Group8: TdxLayoutGroup;
dxLayoutControl1Item8: TdxLayoutItem; dxLayoutControl1Item8: TdxLayoutItem;
edtFechaRecepcion: TcxDBDateEdit; edtFechaRecepcion: TcxDBDateEdit;
dxLayoutControl1Item9: TdxLayoutItem;
eFacturaWeb: TcxDBCheckBox;
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(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 DataController.OnCompare = cxGridViewDataControllerCompare
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible 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 object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO' DataBinding.FieldName = 'TIPO'
PropertiesClassName = 'TcxImageComboBoxProperties' PropertiesClassName = 'TcxImageComboBoxProperties'
@ -405,6 +424,28 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
00004B6D80F047EC10D30000000049454E44AE426082} 00004B6D80F047EC10D30000000049454E44AE426082}
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow 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> end>
Bitmap = {} Bitmap = {}
end end

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

@ -58,6 +58,7 @@ type
cxGridViewTIPO: TcxGridDBColumn; cxGridViewTIPO: TcxGridDBColumn;
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn; cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
cxGridViewFECHA_RECEPCION: TcxGridDBColumn; cxGridViewFECHA_RECEPCION: TcxGridDBColumn;
cxGridViewFACTURA_WEB: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);

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

@ -294,6 +294,10 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'NUM_FACTURAS' Name = 'NUM_FACTURAS'
DataType = datString DataType = datString
Size = 31 Size = 31
end
item
Name = 'PEDIDO_WEB'
DataType = datSmallInt
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,10 +9,10 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosPedidos = '{7B5AB739-5669-4C14-B0F6-0ACC1BB0DFA0}'; RID_ListaAnosPedidos = '{FD53112C-906A-4DF2-93A5-F55402F8A5EA}';
RID_PedidosProveedor = '{EC621BE1-911E-4BE4-A060-3DF85084D597}'; RID_PedidosProveedor = '{49842140-394F-4E8C-84AB-362DFD7934C3}';
RID_PedidosProveedor_Detalles = '{B5BC7867-64E7-47CE-A624-6BB07BCEAE4C}'; RID_PedidosProveedor_Detalles = '{9DBAB7E6-5A24-4995-BB7B-2577AD983A87}';
RID_PedidosProveedor_Articulos_Pendientes = '{D3246EE5-5CFD-484B-93CA-98F0A7E02478}'; RID_PedidosProveedor_Articulos_Pendientes = '{79652041-4793-4E62-BD2E-6C70E6439352}';
{ Data table names } { Data table names }
nme_ListaAnosPedidos = 'ListaAnosPedidos'; nme_ListaAnosPedidos = 'ListaAnosPedidos';
@ -68,6 +68,7 @@ const
fld_PedidosProveedorIMPORTE_IVA = 'IMPORTE_IVA'; fld_PedidosProveedorIMPORTE_IVA = 'IMPORTE_IVA';
fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_PedidosProveedorNUM_FACTURAS = 'NUM_FACTURAS'; fld_PedidosProveedorNUM_FACTURAS = 'NUM_FACTURAS';
fld_PedidosProveedorPEDIDO_WEB = 'PEDIDO_WEB';
{ PedidosProveedor field indexes } { PedidosProveedor field indexes }
idx_PedidosProveedorID = 0; idx_PedidosProveedorID = 0;
@ -111,6 +112,7 @@ const
idx_PedidosProveedorIMPORTE_IVA = 38; idx_PedidosProveedorIMPORTE_IVA = 38;
idx_PedidosProveedorID_FORMA_PAGO = 39; idx_PedidosProveedorID_FORMA_PAGO = 39;
idx_PedidosProveedorNUM_FACTURAS = 40; idx_PedidosProveedorNUM_FACTURAS = 40;
idx_PedidosProveedorPEDIDO_WEB = 41;
{ PedidosProveedor_Detalles fields } { PedidosProveedor_Detalles fields }
fld_PedidosProveedor_DetallesID = 'ID'; fld_PedidosProveedor_DetallesID = 'ID';
@ -167,7 +169,7 @@ const
type type
{ IListaAnosPedidos } { IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable) IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
['{95BAFBE5-EF3F-493E-B32B-B14E17AC88C3}'] ['{598B8631-5435-4D74-9504-5DEEAB785C91}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -202,7 +204,7 @@ type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{0CE0A5A6-6640-4B20-B066-21DB629D9EA3}'] ['{C812B422-3054-4B49-8DDF-0F43367FAE55}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -366,6 +368,10 @@ type
procedure SetNUM_FACTURASValue(const aValue: String); procedure SetNUM_FACTURASValue(const aValue: String);
function GetNUM_FACTURASIsNull: Boolean; function GetNUM_FACTURASIsNull: Boolean;
procedure SetNUM_FACTURASIsNull(const aValue: 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 } { Properties }
@ -451,6 +457,8 @@ type
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; 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_FACTURAS: String read GetNUM_FACTURASValue write SetNUM_FACTURASValue;
property NUM_FACTURASIsNull: Boolean read GetNUM_FACTURASIsNull write SetNUM_FACTURASIsNull; 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; end;
{ TPedidosProveedorDataTableRules } { TPedidosProveedorDataTableRules }
@ -624,6 +632,10 @@ type
procedure SetNUM_FACTURASValue(const aValue: String); virtual; procedure SetNUM_FACTURASValue(const aValue: String); virtual;
function GetNUM_FACTURASIsNull: Boolean; virtual; function GetNUM_FACTURASIsNull: Boolean; virtual;
procedure SetNUM_FACTURASIsNull(const aValue: 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; 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 ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property NUM_FACTURAS: String read GetNUM_FACTURASValue write SetNUM_FACTURASValue; property NUM_FACTURAS: String read GetNUM_FACTURASValue write SetNUM_FACTURASValue;
property NUM_FACTURASIsNull: Boolean read GetNUM_FACTURASIsNull write SetNUM_FACTURASIsNull; 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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -717,7 +731,7 @@ type
{ IPedidosProveedor_Detalles } { IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{F87546FE-0DD5-4BFC-A897-D1F3042879C6}'] ['{C96231EE-8179-4A37-86DE-6B37AFCB5997}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -932,7 +946,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes } { IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{25860E5A-6817-453D-854D-1D19FF5E9B19}'] ['{003878CF-9D91-43CC-94C3-E8C2DB348C2C}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
@ -1946,6 +1960,27 @@ begin
DataTable.Fields[idx_PedidosProveedorNUM_FACTURAS].AsVariant := Null; DataTable.Fields[idx_PedidosProveedorNUM_FACTURAS].AsVariant := Null;
end; 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 } { TPedidosProveedor_DetallesDataTableRules }
constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); 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 { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosPedidosDelta = '{FAA7A8A0-DB4E-4366-BFCD-067E225BF72F}'; RID_ListaAnosPedidosDelta = '{31914F9F-8E1D-449F-BD56-70CFFFCA8763}';
RID_PedidosProveedorDelta = '{C5E85239-1B36-4D0D-A58D-C1966AAB1211}'; RID_PedidosProveedorDelta = '{0E29D7D6-4F1E-487F-AEB2-7BD1C8EF6E1D}';
RID_PedidosProveedor_DetallesDelta = '{0D7DD5EF-63B4-4A25-9995-9376405DB7A3}'; RID_PedidosProveedor_DetallesDelta = '{6C786E58-6BA7-4B9F-A6A1-BB9454AFA0BF}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{A159ECAD-282A-46C1-9D12-5B967B93B3ED}'; RID_PedidosProveedor_Articulos_PendientesDelta = '{24202EF3-E397-41C3-BA03-0EEC1D4A9B16}';
type type
{ IListaAnosPedidosDelta } { IListaAnosPedidosDelta }
IListaAnosPedidosDelta = interface(IListaAnosPedidos) IListaAnosPedidosDelta = interface(IListaAnosPedidos)
['{FAA7A8A0-DB4E-4366-BFCD-067E225BF72F}'] ['{31914F9F-8E1D-449F-BD56-70CFFFCA8763}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{C5E85239-1B36-4D0D-A58D-C1966AAB1211}'] ['{0E29D7D6-4F1E-487F-AEB2-7BD1C8EF6E1D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -94,6 +94,7 @@ type
function GetOldIMPORTE_IVAValue : Currency; function GetOldIMPORTE_IVAValue : Currency;
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldNUM_FACTURASValue : String; function GetOldNUM_FACTURASValue : String;
function GetOldPEDIDO_WEBValue : SmallInt;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -137,6 +138,7 @@ type
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldNUM_FACTURAS : String read GetOldNUM_FACTURASValue; property OldNUM_FACTURAS : String read GetOldNUM_FACTURASValue;
property OldPEDIDO_WEB : SmallInt read GetOldPEDIDO_WEBValue;
end; end;
{ TPedidosProveedorBusinessProcessorRules } { TPedidosProveedorBusinessProcessorRules }
@ -392,6 +394,12 @@ type
function GetOldNUM_FACTURASIsNull: Boolean; virtual; function GetOldNUM_FACTURASIsNull: Boolean; virtual;
procedure SetNUM_FACTURASValue(const aValue: String); virtual; procedure SetNUM_FACTURASValue(const aValue: String); virtual;
procedure SetNUM_FACTURASIsNull(const aValue: Boolean); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -558,6 +566,10 @@ type
property NUM_FACTURASIsNull : Boolean read GetNUM_FACTURASIsNull write SetNUM_FACTURASIsNull; property NUM_FACTURASIsNull : Boolean read GetNUM_FACTURASIsNull write SetNUM_FACTURASIsNull;
property OldNUM_FACTURAS : String read GetOldNUM_FACTURASValue; property OldNUM_FACTURAS : String read GetOldNUM_FACTURASValue;
property OldNUM_FACTURASIsNull : Boolean read GetOldNUM_FACTURASIsNull; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -567,7 +579,7 @@ type
{ IPedidosProveedor_DetallesDelta } { IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{0D7DD5EF-63B4-4A25-9995-9376405DB7A3}'] ['{6C786E58-6BA7-4B9F-A6A1-BB9454AFA0BF}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -781,7 +793,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta } { IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes) IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{A159ECAD-282A-46C1-9D12-5B967B93B3ED}'] ['{24202EF3-E397-41C3-BA03-0EEC1D4A9B16}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -2217,6 +2229,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_FACTURAS] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_FACTURAS] := Null;
end; 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 } { TPedidosProveedor_DetallesBusinessProcessorRules }
constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); 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); FECHA_PEDIDO := DateOf(Date);
SITUACION := SITUACION_PEDIDO_PENDIENTE; SITUACION := SITUACION_PEDIDO_PENDIENTE;
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
PEDIDO_WEB := 0;
// ID_PEDIDO_CLIENTE := 0; // ID_PEDIDO_CLIENTE := 0;
REF_PED_CLIENTE := ''; REF_PED_CLIENTE := '';
end; end;

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

@ -210,6 +210,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item item
DatasetField = 'NUM_FACTURAS' DatasetField = 'NUM_FACTURAS'
TableField = 'NUM_FACTURAS' TableField = 'NUM_FACTURAS'
end
item
DatasetField = 'PEDIDO_WEB'
TableField = 'PEDIDO_WEB'
end> end>
end> end>
Name = 'PedidosProveedor' Name = 'PedidosProveedor'
@ -442,6 +446,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'NUM_FACTURAS' Name = 'NUM_FACTURAS'
DataType = datString DataType = datString
Size = 31 Size = 31
end
item
Name = 'PEDIDO_WEB'
DataType = datSmallInt
end> end>
end end
item item
@ -908,6 +916,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datString DataType = datString
Size = 30 Size = 30
Value = '' Value = ''
end
item
Name = 'PEDIDO_WEB'
DataType = datSmallInt
Value = ''
end> end>
Statements = < Statements = <
item item
@ -922,15 +935,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'EFONO, ID_PEDIDO_CLIENTE,'#10' IMPORTE_NETO, IMPORTE_PORTE, DESC' + 'EFONO, ID_PEDIDO_CLIENTE,'#10' IMPORTE_NETO, IMPORTE_PORTE, DESC' +
'UENTO, IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA,' + 'UENTO, IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA,' +
' IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' FECHA_ENVIO, USUARIO, FECHA_' + ' IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' FECHA_ENVIO, USUARIO, FECHA_' +
'ALTA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_PROVEEDOR, :ID_DIRECCI' + 'ALTA, PEDIDO_WEB)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_PROVEEDOR,' +
'ON,'#10' :PERSONA_CONTACTO_PROV, :REFERENCIA, :FECHA_PEDIDO,'#10' ' + ' :ID_DIRECCION,'#10' :PERSONA_CONTACTO_PROV, :REFERENCIA, :FECHA' +
' :FECHA_CONFIRMACION, :FECHA_ENTREGA, :ID_ALMACEN, :ID_OBRA,'#10' ' + '_PEDIDO,'#10' :FECHA_CONFIRMACION, :FECHA_ENTREGA, :ID_ALMACEN, ' +
' :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS,'#10' :CAL' + ':ID_OBRA,'#10' :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVA' +
'LE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' ' + 'S,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA' +
' :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, :IMPORTE_PORTE' + '_CONTACTO,'#10' :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, :I' +
','#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' ' + 'MPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIB' +
' :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :FECHA_ENVIO,'#10' ' + 'LE, :IVA,'#10' :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :FE' +
' :USUARIO, CURRENT_TIMESTAMP)'#10 'CHA_ENVIO,'#10' :USUARIO, CURRENT_TIMESTAMP, :PEDIDO_WEB)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -1107,6 +1120,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Size = 30 Size = 30
Value = '' Value = ''
end end
item
Name = 'PEDIDO_WEB'
DataType = datSmallInt
Value = ''
end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
Value = '' Value = ''
@ -1134,7 +1152,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
', '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' I' + ', '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' I' +
'MPORTE_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 + 'MPORTE_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 +
' USUARIO = :USUARIO,'#10' FECHA_MODIFICACION = CURRENT_TIMESTA' + ' 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 StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -81,7 +81,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 873 Width = 873
Height = 531 Height = 531
ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 873 ExplicitWidth = 873
@ -151,33 +150,33 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited FontSize: TEdit [7] inherited FontSize: TEdit [7]
Left = 0 Left = 0
Top = 27 Top = 27
Width = 294 Width = 310
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 27 ExplicitTop = 27
ExplicitWidth = 294 ExplicitWidth = 310
end end
inherited UpDown1: TUpDown [8] inherited UpDown1: TUpDown [8]
Left = 294 Left = 310
Top = 27 Top = 27
ExplicitLeft = 294 ExplicitLeft = 310
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 311 Left = 327
Top = 27 Top = 27
ExplicitLeft = 311 ExplicitLeft = 327
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 377 Left = 393
Top = 27 Top = 27
ExplicitLeft = 377 ExplicitLeft = 393
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 444 Left = 460
Top = 27 Top = 27
ExplicitLeft = 444 ExplicitLeft = 460
ExplicitTop = 27 ExplicitTop = 27
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton

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

@ -67,7 +67,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 11
Width = 344 Width = 344
end end
object edtFechaEntrega: TcxDBDateEdit object edtFechaEntrega: TcxDBDateEdit
@ -90,7 +90,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 12
Width = 344 Width = 344
end end
object memObservaciones: TcxDBMemo object memObservaciones: TcxDBMemo
@ -111,7 +111,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 13
Height = 200 Height = 200
Width = 459 Width = 459
end end
@ -143,7 +143,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv
Left = 22 Left = 22
Top = 301 Top = 328
Width = 432 Width = 432
Height = 248 Height = 248
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -152,10 +152,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 7 TabOrder = 8
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 301 ExplicitTop = 328
ExplicitWidth = 432 ExplicitWidth = 432
ExplicitHeight = 248 ExplicitHeight = 248
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
@ -167,9 +167,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
432 432
248) 248)
inherited Bevel1: TBevel inherited Bevel1: TBevel
Top = 175 Top = 148
Width = 566 Width = 566
ExplicitTop = 175 ExplicitTop = 148
ExplicitWidth = 566 ExplicitWidth = 566
end end
inherited lblObra: TLabel inherited lblObra: TLabel
@ -190,9 +190,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
inherited bModificar: TBitBtn inherited bModificar: TBitBtn
Left = 284 Left = 284
Top = 139 Top = 112
ExplicitLeft = 284 ExplicitLeft = 284
ExplicitTop = 139 ExplicitTop = 112
end end
inherited txtDireccion: TStaticText inherited txtDireccion: TStaticText
Width = 882 Width = 882
@ -205,12 +205,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ExplicitWidth = 223 ExplicitWidth = 223
end end
inherited edtEntregarA: TcxDBButtonEdit inherited edtEntregarA: TcxDBButtonEdit
Top = 206 Top = 179
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 206 ExplicitTop = 179
ExplicitWidth = 334 ExplicitWidth = 334
Width = 334 Width = 334
end end
@ -228,7 +228,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 121 Left = 121
Top = 82 Top = 109
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
@ -257,16 +257,16 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 3
Width = 195 Width = 195
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 312 Left = 312
Top = 82 Top = 109
Width = 132 Width = 132
Height = 21 Height = 21
Caption = 'Ver las formas de pago...' Caption = 'Ver las formas de pago...'
TabOrder = 3 TabOrder = 4
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object edtFechaEnvio: TcxDBDateEdit object edtFechaEnvio: TcxDBDateEdit
@ -291,14 +291,13 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 10
Width = 344 Width = 344
end end
object eReferenciaPedidoCli: TcxTextEdit object eReferenciaPedidoCli: TcxTextEdit
Left = 121 Left = 121
Top = 109 Top = 136
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Enabled = False
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.ValidateOnEnter = True Properties.ValidateOnEnter = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -318,20 +317,20 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4 TabOrder = 5
Width = 195 Width = 195
end end
object bVerPedidoCliente: TButton object bVerPedidoCliente: TButton
Left = 312 Left = 312
Top = 109 Top = 136
Width = 132 Width = 132
Height = 23 Height = 23
Action = actVerPedidoCli Action = actVerPedidoCli
TabOrder = 5 TabOrder = 6
end end
inline frViewObraReserva1: TfrViewObraReserva inline frViewObraReserva1: TfrViewObraReserva
Left = 22 Left = 22
Top = 168 Top = 195
Width = 422 Width = 422
Height = 97 Height = 97
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -340,25 +339,31 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 7
ReadOnly = False ReadOnly = False
ExplicitLeft = 22 ExplicitLeft = 22
ExplicitTop = 168 ExplicitTop = 195
ExplicitWidth = 422 ExplicitWidth = 422
ExplicitHeight = 97 ExplicitHeight = 97
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 422 Width = 422
Height = 97 Height = 97
ExplicitWidth = 432 ExplicitWidth = 422
ExplicitHeight = 72 ExplicitHeight = 97
DesignSize = ( DesignSize = (
422 422
97) 97)
inherited Label1: TLabel
Width = 202
ExplicitWidth = 202
end
inherited cbObraReserva: TcxComboBox inherited cbObraReserva: TcxComboBox
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 581
Width = 581
end end
end end
inherited PngImageList: TPngImageList inherited PngImageList: TPngImageList
@ -381,7 +386,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 8 TabOrder = 9
ReadOnly = False ReadOnly = False
ExplicitLeft = 474 ExplicitLeft = 474
ExplicitTop = 28 ExplicitTop = 28
@ -438,6 +443,27 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end end
end 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 object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -463,6 +489,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Control = edtFechaPedido Control = edtFechaPedido
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item14: TdxLayoutItem
ShowCaption = False
Control = ePedidoWeb
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Group4: TdxLayoutGroup object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True

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

@ -14,7 +14,7 @@ uses
// uBizPedidosCliente, uPedidosClienteController, // uBizPedidosCliente, uPedidosClienteController,
cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces, uBizFormasPago, cxDBLookupComboBox, uFormasPagoController, ActnList, uDAInterfaces, uBizFormasPago,
uViewProveedorPedido, uViewObraReserva, uObrasController, uViewProveedorPedido, uViewObraReserva, uObrasController,
uPedidosProveedorController, uViewDatosYSeleccionProveedorPedido; uPedidosProveedorController, uViewDatosYSeleccionProveedorPedido, cxCheckBox;
type type
IViewPedidoProveedor = interface(IViewBase) IViewPedidoProveedor = interface(IViewBase)
@ -75,6 +75,8 @@ type
dxLayoutControl1Group11: TdxLayoutGroup; dxLayoutControl1Group11: TdxLayoutGroup;
frViewDatosYSeleccionProveedorPedido1: TfrViewDatosYSeleccionProveedorPedido; frViewDatosYSeleccionProveedorPedido1: TfrViewDatosYSeleccionProveedorPedido;
dxLayoutControl1Item1: TdxLayoutItem; dxLayoutControl1Item1: TdxLayoutItem;
dxLayoutControl1Item14: TdxLayoutItem;
ePedidoWeb: TcxDBCheckBox;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(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 MinWidth = 30
Width = 30 Width = 30
end 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 object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
Caption = 'Incidencias' Caption = 'Incidencias'
DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS' DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@ -446,6 +465,28 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
CF0000000049454E44AE426082} CF0000000049454E44AE426082}
Name = 'PngImage1' Name = 'PngImage1'
Background = clWindow 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> end>
Bitmap = {} Bitmap = {}
end end

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

@ -57,6 +57,7 @@ type
cxGridViewNUM_FACTURAS: TcxGridDBColumn; cxGridViewNUM_FACTURAS: TcxGridDBColumn;
cxGridViewNOMBRE_OBRA: TcxGridDBColumn; cxGridViewNOMBRE_OBRA: TcxGridDBColumn;
cxStyleConFacturas: TcxStyle; cxStyleConFacturas: TcxStyle;
cxGridViewPEDIDO_WEB: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; 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; AListaPedidos.Proveedor.DataTable.Active := True;
AFacturas.Proveedor := AListaPedidos.Proveedor; AFacturas.Proveedor := AListaPedidos.Proveedor;
AFacturas.ID_PEDIDO := AListaPedidos.ID; AFacturas.ID_PEDIDO := AListaPedidos.ID;
AFacturas.FACTURA_WEB := AListaPedidos.PEDIDO_WEB;
AFacturaActual := AFacturas; AFacturaActual := AFacturas;
end; end;

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

@ -263,6 +263,7 @@ begin
APresupuestosController.RecuperarCliente(AListaPresupuestos); APresupuestosController.RecuperarCliente(AListaPresupuestos);
AFacturas.Cliente := AListaPresupuestos.Cliente; AFacturas.Cliente := AListaPresupuestos.Cliente;
AFacturas.ID_PRESUPUESTO := AListaPresupuestos.ID; 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)); 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; AFacturaActual := AFacturas;
end; 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', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_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', schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', 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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -35,7 +35,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <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 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> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>

10
Source/Servidor/FactuGES_Server.rc
View File

@ -1,7 +1,7 @@
MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico" MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
1 VERSIONINFO 1 VERSIONINFO
FILEVERSION 2,0,9,0 FILEVERSION 2,1,0,0
PRODUCTVERSION 2,0,9,0 PRODUCTVERSION 2,1,0,0
FILEFLAGSMASK 0x3FL FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L FILEFLAGS 0x00L
FILEOS 0x40004L FILEOS 0x40004L
@ -13,10 +13,10 @@ BEGIN
BLOCK "0C0A04E4" BLOCK "0C0A04E4"
BEGIN BEGIN
VALUE "CompanyName", "Rodax Software S.L.\0" 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 "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.0.9.0\0" VALUE "ProductVersion", "2.1.0.0\0"
VALUE "CompileDate", "martes, 23 de junio de 2015 17:48\0" VALUE "CompileDate", "jueves, 09 de julio de 2015 19:18\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"