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

Version 2.0.7

Browse Source 
petición 248
petición 265

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1111 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2015-02-05 17:51:58 +00:00
parent 1eea2d0990
commit f3dd5216ca
48 changed files with 1293 additions and 963 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
Database/scripts/factuges.sql
View File

@ -747,7 +747,8 @@ CREATE TABLE FACTURAS_PROVEEDOR (
FECHA_VENCIMIENTO DATE,
FECHA_RECEPCION DATE,
RETENCION TIPO_PORCENTAJE,
IMPORTE_RETENCION TIPO_IMPORTE
IMPORTE_RETENCION TIPO_IMPORTE,
ID_PEDIDO TIPO_ID
);
CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
@ -1049,7 +1050,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
ID_DIRECCION TIPO_ID,
DESCRIPCION_BONIFICACION VARCHAR(255) COLLATE ES_ES,
IMPORTE_BONIFICACION TIPO_IMPORTE,
CERTIFICADO_ISO TIPO_BOOLEANO
CERTIFICADO_ISO TIPO_BOOLEANO,
ID_PRESUPUESTO TIPO_ID
);
CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
@ -2099,7 +2101,9 @@ CREATE VIEW V_FACTURAS_CLIENTE(
REFERENCIA_COMISION,
RETENCION,
IMPORTE_RETENCION,
CERTIFICADO_ISO)
CERTIFICADO_ISO,
ID_PRESUPUESTO,
REFERENCIA_PRESUPUESTO)
AS
SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA,
@ -2141,7 +2145,9 @@ SELECT FACTURAS_CLIENTE.ID,
COMISIONES_LIQUIDADAS.REFERENCIA,
FACTURAS_CLIENTE.RETENCION,
FACTURAS_CLIENTE.IMPORTE_RETENCION,
FACTURAS_CLIENTE.CERTIFICADO_ISO
FACTURAS_CLIENTE.CERTIFICADO_ISO,
FACTURAS_CLIENTE.ID_PRESUPUESTO,
PRESUPUESTOS_CLIENTE.REFERENCIA as REFERENCIA_PRE
FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)
@ -2149,6 +2155,8 @@ SELECT FACTURAS_CLIENTE.ID,
ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
LEFT JOIN CLIENTES_DATOS
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE)
LEFT JOIN PRESUPUESTOS_CLIENTE
ON (PRESUPUESTOS_CLIENTE.ID = FACTURAS_CLIENTE.ID_PRESUPUESTO)
;
@ -2187,7 +2195,11 @@ CREATE VIEW V_FACTURAS_PROVEEDOR(
ID_TIPO_IVA,
IMPORTE_NETO,
IMPORTE_PORTE,
DATOS_BANCARIOS)
DATOS_BANCARIOS,
RETENCION,
IMPORTE_RETENCION,
ID_PEDIDO,
REFERENCIA_PEDIDO)
AS
SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_EMPRESA,
@ -2222,13 +2234,19 @@ SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_TIPO_IVA,
FACTURAS_PROVEEDOR.IMPORTE_NETO,
FACTURAS_PROVEEDOR.IMPORTE_PORTE,
FACTURAS_PROVEEDOR.DATOS_BANCARIOS
FACTURAS_PROVEEDOR.DATOS_BANCARIOS,
FACTURAS_PROVEEDOR.RETENCION,
FACTURAS_PROVEEDOR.IMPORTE_RETENCION,
FACTURAS_PROVEEDOR.ID_PEDIDO,
PEDIDOS_PROVEEDOR.REFERENCIA as REFERENCIA_PED
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);
@ -2944,7 +2962,7 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
ID,
ID_EMPRESA,
ID_PROVEEDOR,
NOMBRE,
NOMBRE,
ID_DIRECCION,
PERSONA_CONTACTO_PROV,
REFERENCIA,
@ -2980,9 +2998,7 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
BASE_IMPONIBLE,
IVA,
IMPORTE_IVA,
ID_FORMA_PAGO,
ID_FACTURA,
REF_FACTURA_PROV)
ID_FORMA_PAGO)
AS
SELECT
PEDIDOS_PROVEEDOR.ID,
@ -3024,9 +3040,7 @@ SELECT
PEDIDOS_PROVEEDOR.BASE_IMPONIBLE,
PEDIDOS_PROVEEDOR.IVA,
PEDIDOS_PROVEEDOR.IMPORTE_IVA,
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
PEDIDOS_PROVEEDOR.ID_FACTURA,
FACTURAS_PROVEEDOR.REFERENCIA
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO
FROM
PEDIDOS_PROVEEDOR
@ -3035,7 +3049,6 @@ FROM
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)
LEFT OUTER JOIN ALMACENES OBRAS ON (OBRAS.ID = PEDIDOS_PROVEEDOR.ID_OBRA)
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
LEFT OUTER JOIN FACTURAS_PROVEEDOR ON (FACTURAS_PROVEEDOR.ID = PEDIDOS_PROVEEDOR.ID_FACTURA)
;
@ -3072,8 +3085,6 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
IMPORTE_IVA,
IMPORTE_TOTAL,
ID_FORMA_PAGO,
ID_FACTURA,
FACTURA,
PERSONA_CONTACTO,
DESCRIPCION_BONIFICACION,
IMPORTE_BONIFICACION,
@ -3110,8 +3121,6 @@ SELECT
PRESUPUESTOS_CLIENTE.IMPORTE_IVA,
PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,
PRESUPUESTOS_CLIENTE.ID_FORMA_PAGO,
PRESUPUESTOS_CLIENTE.ID_FACTURA,
FACTURAS_CLIENTE.REFERENCIA,
PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,
PRESUPUESTOS_CLIENTE.DESCRIPCION_BONIFICACION,
PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION,
@ -3119,7 +3128,6 @@ SELECT
FROM
PRESUPUESTOS_CLIENTE
INNER JOIN CONTACTOS ON (CONTACTOS.ID = PRESUPUESTOS_CLIENTE.ID_CLIENTE)
LEFT OUTER JOIN FACTURAS_CLIENTE ON (FACTURAS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_FACTURA)
;

8
Source/ApplicationBase/uPlugins_Intf.pas
View File

@ -29,8 +29,8 @@ type
IMCFacturasCliente = interface(IInterface)
['{DA2FEEA4-4B37-4510-9CE8-6223F9894DEE}']
procedure VerFacturas(const ID_Cliente: Integer;
const ANombreCliente : String = '');
procedure VerFacturas(const ID_Cliente: Integer; const ANombreCliente : String = '');
procedure VerFacturasPresupuesto(const ID_Presupuesto: Integer; const ARefPresupuesto : String = ''; const ANombreCliente : String = '');
end;
IMCRecibosCliente = interface(IInterface)
@ -55,8 +55,8 @@ type
IMCFacturasProveedor = interface(IInterface)
['{8A48058F-490E-4BF4-9BBB-09654B66CEED}']
procedure VerFacturas(const ID_Proveedor: Integer;
const ANombreProveedor : String = '');
procedure VerFacturas(const ID_Proveedor: Integer; const ANombreProveedor : String = '');
procedure VerFacturasDePedido(const ID_Pedido: Integer; const AReferencia : String = ''; const ANombreProveedor : String = '');
end;
IMCRecibosProveedor = interface(IInterface)

102
Source/Base/Base.dproj
View File

@ -54,58 +54,58 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxGridD11.dcp" />
<DCCReference Include="..\cxIntl6D11.dcp" />
<DCCReference Include="..\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dclIndyCore.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxPSCoreD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="..\IndyCore.dcp" />
<DCCReference Include="..\IndyProtocols.dcp" />
<DCCReference Include="..\IndySystem.dcp" />
<DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\JSDialog100.dcp" />
<DCCReference Include="..\JvCmpD11R.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvDlgsD11R.dcp" />
<DCCReference Include="..\JvMMD11R.dcp" />
<DCCReference Include="..\JvNetD11R.dcp" />
<DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\pckMD5.dcp" />
<DCCReference Include="..\pckUCDataConnector.dcp" />
<DCCReference Include="..\pckUserControl_RT.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\adortl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\designide.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dsnap.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\GUISDK_D11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Jcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\rtl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcl.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcldb.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\vclx.dcp" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\TB2k_D10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\VclSmp.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

25
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -23,6 +23,7 @@ type
function BuscarTodos: IBizFacturaCliente; overload;
function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload;
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
function BuscarDePresupuesto(const AID_Presupuesto: Integer): IBizFacturaCliente;
procedure Ver(AFactura : IBizFacturaCliente);
procedure VerTodos(AFacturas: IBizFacturaCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = '';
@ -107,6 +108,7 @@ type
function BuscarTodos: IBizFacturaCliente; overload;
function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload;
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
function BuscarDePresupuesto(const AID_Presupuesto: Integer): IBizFacturaCliente;
function Nuevo (withInsert: Boolean = True) : IBizFacturaCliente;
procedure Ver(AFactura : IBizFacturaCliente);
procedure VerTodos(AFacturas: IBizFacturaCliente;
@ -351,6 +353,29 @@ begin
FiltrarEmpresa(Result);
end;
function TFacturasClienteController.BuscarDePresupuesto(const AID_Presupuesto: Integer): IBizFacturaCliente;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
with Result.DataTable.DynamicWhere do
begin
// ID_CLIENTE
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_PRESUPUESTO), NewConstant(AID_Presupuesto, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
end;
function TFacturasClienteController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
var
Condicion: TDAWhereExpression;

9
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -274,6 +274,15 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
item
Name = 'CERTIFICADO_ISO'
DataType = datSmallInt
end
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger
end
item
Name = 'REFERENCIA_PRESUPUESTO'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

82
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{2BE0816C-FC37-48FE-821C-2E95BF7FE692}';
RID_FacturasCliente = '{D5524FA0-4AEE-4B36-A0C4-C5FC20DA3080}';
RID_FacturasCliente_Detalles = '{E3866D80-EDE0-4C5D-82A8-50B6970312D3}';
RID_ListaAnosFacturas = '{16572AF4-9D62-43E1-82BE-070FD956E657}';
RID_FacturasCliente = '{4F822E48-FDE7-401F-B607-FF5C03C42CFD}';
RID_FacturasCliente_Detalles = '{C830455C-688C-4B62-8104-24B21CD60BFD}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -66,6 +66,8 @@ const
fld_FacturasClienteRETENCION = 'RETENCION';
fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION';
fld_FacturasClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO';
fld_FacturasClienteID_PRESUPUESTO = 'ID_PRESUPUESTO';
fld_FacturasClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
@ -109,6 +111,8 @@ const
idx_FacturasClienteRETENCION = 38;
idx_FacturasClienteIMPORTE_RETENCION = 39;
idx_FacturasClienteCERTIFICADO_ISO = 40;
idx_FacturasClienteID_PRESUPUESTO = 41;
idx_FacturasClienteREFERENCIA_PRESUPUESTO = 42;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@ -147,7 +151,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{36AA5910-CD3F-4B7B-8E88-3FCD9B019983}']
['{609E2895-4415-41C7-93B4-0273A1C0D906}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -182,7 +186,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{3CA669F5-C2C0-425D-A432-7CA926F1EF4D}']
['{1098D2D9-46DC-453C-8DF2-A159BCDB5401}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -347,6 +351,14 @@ type
procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt);
function GetCERTIFICADO_ISOIsNull: Boolean;
procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean);
function GetID_PRESUPUESTOValue: Integer;
procedure SetID_PRESUPUESTOValue(const aValue: Integer);
function GetID_PRESUPUESTOIsNull: Boolean;
procedure SetID_PRESUPUESTOIsNull(const aValue: Boolean);
function GetREFERENCIA_PRESUPUESTOValue: String;
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String);
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean);
{ Properties }
@ -432,6 +444,10 @@ type
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
property ID_PRESUPUESTO: Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue;
property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
end;
{ TFacturasClienteDataTableRules }
@ -604,6 +620,14 @@ type
procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual;
function GetCERTIFICADO_ISOIsNull: Boolean; virtual;
procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); virtual;
function GetID_PRESUPUESTOValue: Integer; virtual;
procedure SetID_PRESUPUESTOValue(const aValue: Integer); virtual;
function GetID_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetID_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PRESUPUESTOValue: String; virtual;
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -688,6 +712,10 @@ type
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
property ID_PRESUPUESTO: Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue;
property ID_PRESUPUESTOIsNull: Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property REFERENCIA_PRESUPUESTO: String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
property REFERENCIA_PRESUPUESTOIsNull: Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -697,7 +725,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{1B150346-57B9-49D8-8074-3E0886CCB78B}']
['{33EBA6E5-6C58-408A-8673-6D46447E3B8F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1814,6 +1842,48 @@ begin
DataTable.Fields[idx_FacturasClienteCERTIFICADO_ISO].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetID_PRESUPUESTOValue: Integer;
begin
result := DataTable.Fields[idx_FacturasClienteID_PRESUPUESTO].AsInteger;
end;
procedure TFacturasClienteDataTableRules.SetID_PRESUPUESTOValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasClienteID_PRESUPUESTO].AsInteger := aValue;
end;
function TFacturasClienteDataTableRules.GetID_PRESUPUESTOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteID_PRESUPUESTO].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetID_PRESUPUESTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteID_PRESUPUESTO].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetREFERENCIA_PRESUPUESTOValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsString;
end;
procedure TFacturasClienteDataTableRules.SetREFERENCIA_PRESUPUESTOValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetREFERENCIA_PRESUPUESTOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteREFERENCIA_PRESUPUESTO].AsVariant := Null;
end;
{ TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

98
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{5F59F46F-6D99-47EF-97B7-62E578F5EC77}';
RID_FacturasClienteDelta = '{210A006E-9750-4D37-9655-232A93590F32}';
RID_FacturasCliente_DetallesDelta = '{DBBBA305-DC20-44F9-BD34-E330F919C098}';
RID_ListaAnosFacturasDelta = '{550EADCB-EE2C-4BA0-A501-40C59A395CE1}';
RID_FacturasClienteDelta = '{09E87A98-15E6-4D62-8E4E-91005D037D1D}';
RID_FacturasCliente_DetallesDelta = '{3E85AA5C-FE35-452C-9A31-E85D8D57F742}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{5F59F46F-6D99-47EF-97B7-62E578F5EC77}']
['{550EADCB-EE2C-4BA0-A501-40C59A395CE1}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{210A006E-9750-4D37-9655-232A93590F32}']
['{09E87A98-15E6-4D62-8E4E-91005D037D1D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -93,6 +93,8 @@ type
function GetOldRETENCIONValue : Currency;
function GetOldIMPORTE_RETENCIONValue : Currency;
function GetOldCERTIFICADO_ISOValue : SmallInt;
function GetOldID_PRESUPUESTOValue : Integer;
function GetOldREFERENCIA_PRESUPUESTOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -136,6 +138,8 @@ type
property OldRETENCION : Currency read GetOldRETENCIONValue;
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
end;
{ TFacturasClienteBusinessProcessorRules }
@ -390,6 +394,18 @@ type
function GetOldCERTIFICADO_ISOIsNull: Boolean; virtual;
procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual;
procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); virtual;
function GetID_PRESUPUESTOValue: Integer; virtual;
function GetID_PRESUPUESTOIsNull: Boolean; virtual;
function GetOldID_PRESUPUESTOValue: Integer; virtual;
function GetOldID_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetID_PRESUPUESTOValue(const aValue: Integer); virtual;
procedure SetID_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PRESUPUESTOValue: String; virtual;
function GetREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
function GetOldREFERENCIA_PRESUPUESTOValue: String; virtual;
function GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PRESUPUESTOValue(const aValue: String); virtual;
procedure SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -556,6 +572,14 @@ type
property CERTIFICADO_ISOIsNull : Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
property OldCERTIFICADO_ISOIsNull : Boolean read GetOldCERTIFICADO_ISOIsNull;
property ID_PRESUPUESTO : Integer read GetID_PRESUPUESTOValue write SetID_PRESUPUESTOValue;
property ID_PRESUPUESTOIsNull : Boolean read GetID_PRESUPUESTOIsNull write SetID_PRESUPUESTOIsNull;
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldID_PRESUPUESTOIsNull : Boolean read GetOldID_PRESUPUESTOIsNull;
property REFERENCIA_PRESUPUESTO : String read GetREFERENCIA_PRESUPUESTOValue write SetREFERENCIA_PRESUPUESTOValue;
property REFERENCIA_PRESUPUESTOIsNull : Boolean read GetREFERENCIA_PRESUPUESTOIsNull write SetREFERENCIA_PRESUPUESTOIsNull;
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
property OldREFERENCIA_PRESUPUESTOIsNull : Boolean read GetOldREFERENCIA_PRESUPUESTOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -565,7 +589,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{DBBBA305-DC20-44F9-BD34-E330F919C098}']
['{3E85AA5C-FE35-452C-9A31-E85D8D57F742}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -2103,6 +2127,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCERTIFICADO_ISO] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetID_PRESUPUESTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_PRESUPUESTO];
end;
function TFacturasClienteBusinessProcessorRules.GetID_PRESUPUESTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_PRESUPUESTO]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldID_PRESUPUESTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_PRESUPUESTO];
end;
function TFacturasClienteBusinessProcessorRules.GetOldID_PRESUPUESTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_PRESUPUESTO]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetID_PRESUPUESTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_PRESUPUESTO] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetID_PRESUPUESTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_PRESUPUESTO] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_PRESUPUESTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO];
end;
function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_PRESUPUESTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_PRESUPUESTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO];
end;
function TFacturasClienteBusinessProcessorRules.GetOldREFERENCIA_PRESUPUESTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_PRESUPUESTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetREFERENCIA_PRESUPUESTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_PRESUPUESTO] := Null;
end;
{ TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

28
Source/Modulos/Facturas de cliente/Plugin/uPluginFacturasCliente.pas
View File

@ -20,8 +20,8 @@ type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure VerFacturas(const ID_Cliente: Integer;
const ANombreCliente : String = '');
procedure VerFacturas(const ID_Cliente: Integer; const ANombreCliente : String = '');
procedure VerFacturasPresupuesto(const ID_Presupuesto: Integer; const ARefPresupuesto : String = ''; const ANombreCliente : String = '');
end;
implementation
@ -76,7 +76,7 @@ begin
try
ShowHourglassCursor;
try
AFacturasCliente := AFacturasClienteController.BuscarTodos(ID_Cliente);
AFacturasCliente := AFacturasClienteController.BuscarTodos(ID_Cliente);
finally
HideHourglassCursor;
end;
@ -88,6 +88,28 @@ begin
end;
procedure TPluginFacturasCliente.VerFacturasPresupuesto(const ID_Presupuesto: Integer; const ARefPresupuesto, ANombreCliente: String);
var
AFacturasClienteController : IFacturasClienteController;
AFacturasCliente : IBizFacturaCliente;
AText : String;
begin
AText := Format('Lista de facturas del contrato %s - %s', [ARefPresupuesto, ANombreCliente]);
AFacturasClienteController := TFacturasClienteController.Create;
try
ShowHourglassCursor;
try
AFacturasCliente := AFacturasClienteController.BuscarDePresupuesto(ID_Presupuesto);
finally
HideHourglassCursor;
end;
AFacturasClienteController.VerTodos(AFacturasCliente, True, AText);
finally
AFacturasCliente := NIL;
AFacturasClienteController := NIL;
end;
end;
initialization
RegisterModuleClass(TPluginFacturasCliente);

53
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -211,6 +211,14 @@ object srvFacturasCliente: TsrvFacturasCliente
item
DatasetField = 'CERTIFICADO_ISO'
TableField = 'CERTIFICADO_ISO'
end
item
DatasetField = 'ID_PRESUPUESTO'
TableField = 'ID_PRESUPUESTO'
end
item
DatasetField = 'REFERENCIA_PRESUPUESTO'
TableField = 'REFERENCIA_PRESUPUESTO'
end>
end>
Name = 'FacturasCliente'
@ -429,6 +437,15 @@ object srvFacturasCliente: TsrvFacturasCliente
item
Name = 'CERTIFICADO_ISO'
DataType = datSmallInt
end
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger
end
item
Name = 'REFERENCIA_PRESUPUESTO'
DataType = datString
Size = 255
end>
end
item
@ -996,6 +1013,11 @@ object srvFacturasCliente: TsrvFacturasCliente
Name = 'CERTIFICADO_ISO'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger
Value = ''
end>
Statements = <
item
@ -1013,17 +1035,18 @@ object srvFacturasCliente: TsrvFacturasCliente
'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' +
','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' +
'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' CERTIFI' +
'CADO_ISO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10 +
' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' :FECHA_RETENCION' +
','#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' ' +
' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORT' +
'E_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' ' +
':NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' :POBLACION,'#10' :PRO' +
'VINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICA' +
'CION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCI' +
'A,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' ' +
':DATOS_BANCARIOS,'#10' :CLIENTE_FINAL,'#10' :RETENCION,'#10' :IMPOR' +
'TE_RETENCION,'#10' :CERTIFICADO_ISO);'#10
'CADO_ISO,'#10' ID_PRESUPUESTO)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRES' +
'A,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10 +
' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :' +
'IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMP' +
'ORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE' +
','#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' ' +
':POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,' +
#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' ' +
':RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' ' +
':IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIENTE_FINAL,'#10' :R' +
'ETENCION,'#10' :IMPORTE_RETENCION,'#10' :CERTIFICADO_ISO,'#10' :ID_' +
'PRESUPUESTO);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -1216,6 +1239,11 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1243,7 +1271,8 @@ object srvFacturasCliente: TsrvFacturasCliente
' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_B' +
'ANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :R' +
'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' CERTIF' +
'ICADO_ISO = :CERTIFICADO_ISO'#10' WHERE'#10' (ID = :OLD_ID);'#10
'ICADO_ISO = :CERTIFICADO_ISO,'#10' ID_PRESUPUESTO = :ID_PRESUPUES' +
'TO'#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL
ColumnMappings = <>
end>

24
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -174,25 +174,35 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Width = 263
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 441
Left = 325
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441
ExplicitLeft = 325
ExplicitWidth = 263
Width = 263
end
inherited eLista: TcxComboBox
Left = 801
Left = 591
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 801
ExplicitLeft = 591
ExplicitWidth = 20
Width = 20
end
inherited eLista2: TcxComboBox
Left = 654
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 654
ExplicitWidth = 207
Width = 207
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 842
@ -1904,12 +1914,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Default = True
end
item
Caption = 'Utilizar uno o m'#225's presupuestos de cliente.'
Caption = 'Utilizar un presupuesto de cliente.'
Value = 200
Info.Strings = (
'Puede utilizar uno o m'#225's presupuestos existentes para dar de alt' +
'a una factura nueva.')
'Puede utilizar un presupuesto existente para dar de alta una fac' +
'tura nueva.')
end
item
Caption = 'Utilizar uno o m'#225's albaranes de cliente.'

9
Source/Modulos/Facturas de cliente/Views/uViewDatosYSeleccionClienteFacturaCliente.pas
View File

@ -118,7 +118,7 @@ implementation
{$R *.dfm}
uses
uDataModuleClientes, Math, uCustomView, uBizContactosPersonal, uDialogUtils;
uDataModuleClientes, Math, uCustomView, uBizContactosPersonal, uDialogUtils, uStringsUtils;
procedure TfrViewDatosYSeleccionClienteFacturaCliente.actElegirContactoExecute(Sender: TObject);
@ -183,7 +183,12 @@ procedure TfrViewDatosYSeleccionClienteFacturaCliente.CopiarDireccionAFactura;
begin
FFactura.Edit;
FFactura.ID_DIRECCION := FDireccion.ID;
FFactura.CALLE := FDireccion.CALLE;
if EsCadenaVacia(FDireccion.NOMBRE) then
FFactura.CALLE := FDireccion.CALLE
else
FFactura.CALLE := FDireccion.NOMBRE + ' - ' + FDireccion.CALLE;
FFactura.POBLACION := FDireccion.POBLACION;
FFactura.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
FFactura.PROVINCIA := FDireccion.PROVINCIA;

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

@ -155,6 +155,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Value = 1
end>
end
object cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn
Caption = 'Ref. presupuesto'
DataBinding.FieldName = 'REFERENCIA_PRESUPUESTO'
end
end
inherited cxGridLevel: TcxGridLevel
Caption = 'Todas'
@ -194,34 +198,32 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Width = 144
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 185
Left = 209
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 185
ExplicitLeft = 209
ExplicitWidth = 273
Width = 273
end
inherited eLista: TcxComboBox
Left = 414
Left = 468
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 414
ExplicitLeft = 468
ExplicitWidth = 97
Width = 97
end
inherited eLista2: TcxComboBox
Left = 518
Left = 585
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 518
ExplicitWidth = 207
Width = 207
ExplicitLeft = 585
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel

1
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -59,6 +59,7 @@ type
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
cxGridViewIMPORTE_RETENCION: TcxGridDBColumn;
cxGridViewCERTIFICADO_ISO: TcxGridDBColumn;
cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle);

27
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -22,6 +22,7 @@ type
function Buscar(const ID: Integer): IBizFacturaProveedor;
function BuscarTodos: IBizFacturaProveedor; overload;
function BuscarTodos(const ID_Proveedor : Integer): IBizFacturaProveedor; overload;
function BuscarTodosDelPedido(const ID_Pedido : Integer): IBizFacturaProveedor;
procedure Ver(AFactura : IBizFacturaProveedor);
procedure VerTodos(AFacturas: IBizFacturaProveedor;
const AVerModal : Boolean = False; const AWindowCaption: String = '';
@ -99,6 +100,7 @@ type
function Buscar(const ID: Integer): IBizFacturaProveedor;
function BuscarTodos: IBizFacturaProveedor; overload;
function BuscarTodos(const ID_Proveedor : Integer): IBizFacturaProveedor; overload;
function BuscarTodosDelPedido(const ID_Pedido : Integer): IBizFacturaProveedor;
// function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor;
function Nuevo (withInsert: Boolean = True): IBizFacturaProveedor;
procedure Ver(AFactura : IBizFacturaProveedor);
@ -332,6 +334,31 @@ begin
end;
end;
function TFacturasProveedorController.BuscarTodosDelPedido(
const ID_Pedido: Integer): IBizFacturaProveedor;
var
Condicion: TDAWhereExpression;
begin
ShowHourglassCursor;
try
Result := BuscarTodos;
with Result.DataTable.DynamicWhere do
begin
// ID_CLIENTE
Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorID_PEDIDO),
NewConstant(ID_Pedido, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
finally
HideHourglassCursor;
end;
end;
{REPASARRRRR
function TFacturasProveedorController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor;
begin

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

@ -119,20 +119,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA'
end
item
Name = 'RETENCION'
DataType = datFloat
DisplayLabel = 'Retenci'#243'n'
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_RETENCION'
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
DisplayLabel = 'Importe retenci'#243'n'
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IMPORTE_RETENCION'
end
item
Name = 'RE'
DataType = datFloat
@ -260,6 +246,29 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Size = 255
DisplayLabel = 'Datos bancarios'
DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS'
end
item
Name = 'RETENCION'
DataType = datFloat
DisplayLabel = 'Retenci'#243'n'
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_RETENCION'
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
DisplayLabel = 'Importe retenci'#243'n'
Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IMPORTE_RETENCION'
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
end
item
Name = 'REFERENCIA_PEDIDO'
DataType = datString
Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

60
Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
View File

@ -113,6 +113,33 @@
<Target Name="FacturasProveedor_controller:Make">
<MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Make" />
</Target>
<Target Name="AlbProv_FacProv_relation">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="" />
</Target>
<Target Name="AlbProv_FacProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="AlbProv_FacProv_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="PedProv_AlbProv_relation">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="" />
</Target>
<Target Name="PedProv_AlbProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="PedProv_AlbProv_relation:Make">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="PedProv_FacProv_relation">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="" />
</Target>
<Target Name="PedProv_FacProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="PedProv_FacProv_relation:Make">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_view">
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" />
</Target>
@ -149,15 +176,6 @@
<Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target>
<Target Name="AlbProv_FacProv_relation">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="" />
</Target>
<Target Name="AlbProv_FacProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="AlbProv_FacProv_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="AlbaranesProveedor_view">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" />
</Target>
@ -167,15 +185,6 @@
<Target Name="AlbaranesProveedor_view:Make">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="PedProv_AlbProv_relation">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="" />
</Target>
<Target Name="PedProv_AlbProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="PedProv_AlbProv_relation:Make">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="PedidosProveedor_view">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
</Target>
@ -230,15 +239,6 @@
<Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="PedProv_FacProv_relation">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="" />
</Target>
<Target Name="PedProv_FacProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="PedProv_FacProv_relation:Make">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Facturas de proveedor\PedProv_FacProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="PreCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="" />
</Target>
@ -312,13 +312,13 @@
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PedProv_FacProv_relation;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;AlbProv_FacProv_relation;PedProv_AlbProv_relation;PedProv_FacProv_relation;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PedProv_FacProv_relation:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;AlbProv_FacProv_relation:Clean;PedProv_AlbProv_relation:Clean;PedProv_FacProv_relation:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PedProv_FacProv_relation:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;AlbProv_FacProv_relation:Make;PedProv_AlbProv_relation:Make;PedProv_FacProv_relation:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

266
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 = '{5BF20483-0987-4847-9C60-D1E2273B804C}';
RID_FacturasProveedor = '{4DA50F35-8E3D-4026-87AC-0463785925E3}';
RID_FacturasProveedor_Detalles = '{6CB75F1D-81CB-406B-BC72-36935ABD0A7E}';
RID_FacturasProveedor_Pedidos = '{26EB0745-E499-4FE1-B52D-6AB1F550D0AE}';
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}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -41,8 +41,6 @@ const
fld_FacturasProveedorIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
fld_FacturasProveedorIVA = 'IVA';
fld_FacturasProveedorIMPORTE_IVA = 'IMPORTE_IVA';
fld_FacturasProveedorRETENCION = 'RETENCION';
fld_FacturasProveedorIMPORTE_RETENCION = 'IMPORTE_RETENCION';
fld_FacturasProveedorRE = 'RE';
fld_FacturasProveedorIMPORTE_RE = 'IMPORTE_RE';
fld_FacturasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL';
@ -63,6 +61,10 @@ const
fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO';
fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_FacturasProveedorDATOS_BANCARIOS = 'DATOS_BANCARIOS';
fld_FacturasProveedorRETENCION = 'RETENCION';
fld_FacturasProveedorIMPORTE_RETENCION = 'IMPORTE_RETENCION';
fld_FacturasProveedorID_PEDIDO = 'ID_PEDIDO';
fld_FacturasProveedorREFERENCIA_PEDIDO = 'REFERENCIA_PEDIDO';
{ FacturasProveedor field indexes }
idx_FacturasProveedorID = 0;
@ -79,28 +81,30 @@ const
idx_FacturasProveedorIMPORTE_DESCUENTO = 11;
idx_FacturasProveedorIVA = 12;
idx_FacturasProveedorIMPORTE_IVA = 13;
idx_FacturasProveedorRETENCION = 14;
idx_FacturasProveedorIMPORTE_RETENCION = 15;
idx_FacturasProveedorRE = 16;
idx_FacturasProveedorIMPORTE_RE = 17;
idx_FacturasProveedorIMPORTE_TOTAL = 18;
idx_FacturasProveedorOBSERVACIONES = 19;
idx_FacturasProveedorID_PROVEEDOR = 20;
idx_FacturasProveedorNIF_CIF = 21;
idx_FacturasProveedorNOMBRE = 22;
idx_FacturasProveedorCALLE = 23;
idx_FacturasProveedorPOBLACION = 24;
idx_FacturasProveedorPROVINCIA = 25;
idx_FacturasProveedorCODIGO_POSTAL = 26;
idx_FacturasProveedorFECHA_ALTA = 27;
idx_FacturasProveedorFECHA_MODIFICACION = 28;
idx_FacturasProveedorUSUARIO = 29;
idx_FacturasProveedorID_FORMA_PAGO = 30;
idx_FacturasProveedorRECARGO_EQUIVALENCIA = 31;
idx_FacturasProveedorID_TIPO_IVA = 32;
idx_FacturasProveedorIMPORTE_NETO = 33;
idx_FacturasProveedorIMPORTE_PORTE = 34;
idx_FacturasProveedorDATOS_BANCARIOS = 35;
idx_FacturasProveedorRE = 14;
idx_FacturasProveedorIMPORTE_RE = 15;
idx_FacturasProveedorIMPORTE_TOTAL = 16;
idx_FacturasProveedorOBSERVACIONES = 17;
idx_FacturasProveedorID_PROVEEDOR = 18;
idx_FacturasProveedorNIF_CIF = 19;
idx_FacturasProveedorNOMBRE = 20;
idx_FacturasProveedorCALLE = 21;
idx_FacturasProveedorPOBLACION = 22;
idx_FacturasProveedorPROVINCIA = 23;
idx_FacturasProveedorCODIGO_POSTAL = 24;
idx_FacturasProveedorFECHA_ALTA = 25;
idx_FacturasProveedorFECHA_MODIFICACION = 26;
idx_FacturasProveedorUSUARIO = 27;
idx_FacturasProveedorID_FORMA_PAGO = 28;
idx_FacturasProveedorRECARGO_EQUIVALENCIA = 29;
idx_FacturasProveedorID_TIPO_IVA = 30;
idx_FacturasProveedorIMPORTE_NETO = 31;
idx_FacturasProveedorIMPORTE_PORTE = 32;
idx_FacturasProveedorDATOS_BANCARIOS = 33;
idx_FacturasProveedorRETENCION = 34;
idx_FacturasProveedorIMPORTE_RETENCION = 35;
idx_FacturasProveedorID_PEDIDO = 36;
idx_FacturasProveedorREFERENCIA_PEDIDO = 37;
{ FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID_TIPO_IVA = 'ID_TIPO_IVA';
@ -165,7 +169,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{FA78624A-FCC5-43A8-A8F2-902DBC3D2F55}']
['{4238D296-7C17-4CD5-B1E9-710EB08649AF}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -200,7 +204,7 @@ type
{ IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{EAAE2560-477C-4DFD-8683-2F20B4030377}']
['{E9F4EBE9-292E-4C00-B3AA-02A66888F93D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -258,14 +262,6 @@ type
procedure SetIMPORTE_IVAValue(const aValue: Currency);
function GetIMPORTE_IVAIsNull: Boolean;
procedure SetIMPORTE_IVAIsNull(const aValue: Boolean);
function GetRETENCIONValue: Float;
procedure SetRETENCIONValue(const aValue: Float);
function GetRETENCIONIsNull: Boolean;
procedure SetRETENCIONIsNull(const aValue: Boolean);
function GetIMPORTE_RETENCIONValue: Currency;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency);
function GetIMPORTE_RETENCIONIsNull: Boolean;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
function GetREValue: Float;
procedure SetREValue(const aValue: Float);
function GetREIsNull: Boolean;
@ -345,6 +341,22 @@ type
procedure SetDATOS_BANCARIOSValue(const aValue: String);
function GetDATOS_BANCARIOSIsNull: Boolean;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
function GetRETENCIONValue: Float;
procedure SetRETENCIONValue(const aValue: Float);
function GetRETENCIONIsNull: Boolean;
procedure SetRETENCIONIsNull(const aValue: Boolean);
function GetIMPORTE_RETENCIONValue: Currency;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency);
function GetIMPORTE_RETENCIONIsNull: Boolean;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
function GetID_PEDIDOIsNull: Boolean;
procedure SetID_PEDIDOIsNull(const aValue: Boolean);
function GetREFERENCIA_PEDIDOValue: String;
procedure SetREFERENCIA_PEDIDOValue(const aValue: String);
function GetREFERENCIA_PEDIDOIsNull: Boolean;
procedure SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean);
{ Properties }
@ -376,10 +388,6 @@ type
property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property RE: Float read GetREValue write SetREValue;
property REIsNull: Boolean read GetREIsNull write SetREIsNull;
property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
@ -420,6 +428,14 @@ type
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
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;
end;
{ TFacturasProveedorDataTableRules }
@ -485,14 +501,6 @@ type
procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
function GetIMPORTE_IVAIsNull: Boolean; virtual;
procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual;
function GetRETENCIONValue: Float; virtual;
procedure SetRETENCIONValue(const aValue: Float); virtual;
function GetRETENCIONIsNull: Boolean; virtual;
procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_RETENCIONValue: Currency; virtual;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
function GetREValue: Float; virtual;
procedure SetREValue(const aValue: Float); virtual;
function GetREIsNull: Boolean; virtual;
@ -572,6 +580,22 @@ type
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
function GetRETENCIONValue: Float; virtual;
procedure SetRETENCIONValue(const aValue: Float); virtual;
function GetRETENCIONIsNull: Boolean; virtual;
procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_RETENCIONValue: Currency; virtual;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
function GetID_PEDIDOValue: Integer; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
function GetID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PEDIDOValue: String; virtual;
procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual;
function GetREFERENCIA_PEDIDOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -602,10 +626,6 @@ type
property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property RE: Float read GetREValue write SetREValue;
property REIsNull: Boolean read GetREIsNull write SetREIsNull;
property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue;
@ -646,6 +666,14 @@ type
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
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;
public
constructor Create(aDataTable: TDADataTable); override;
@ -655,7 +683,7 @@ type
{ IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{E6999FBD-4DDF-4EE7-8FB5-B942CC4E32B4}']
['{FA4B068B-A429-43C6-8743-CEFD15E11814}']
{ Property getters and setters }
function GetID_TIPO_IVAValue: Integer;
procedure SetID_TIPO_IVAValue(const aValue: Integer);
@ -906,7 +934,7 @@ type
{ IFacturasProveedor_Pedidos }
IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
['{EC1CFD23-1D05-4E2F-B8E8-23E3A096F755}']
['{4B4D9EA0-EA24-4CBA-91CA-FDAD7FF943DF}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1364,48 +1392,6 @@ begin
DataTable.Fields[idx_FacturasProveedorIMPORTE_IVA].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetRETENCIONValue: Float;
begin
result := DataTable.Fields[idx_FacturasProveedorRETENCION].AsFloat;
end;
procedure TFacturasProveedorDataTableRules.SetRETENCIONValue(const aValue: Float);
begin
DataTable.Fields[idx_FacturasProveedorRETENCION].AsFloat := aValue;
end;
function TFacturasProveedorDataTableRules.GetRETENCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorRETENCION].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetRETENCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorRETENCION].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetIMPORTE_RETENCIONValue: Currency;
begin
result := DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].AsCurrency;
end;
procedure TFacturasProveedorDataTableRules.SetIMPORTE_RETENCIONValue(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].AsCurrency := aValue;
end;
function TFacturasProveedorDataTableRules.GetIMPORTE_RETENCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetREValue: Float;
begin
result := DataTable.Fields[idx_FacturasProveedorRE].AsFloat;
@ -1822,6 +1808,90 @@ begin
DataTable.Fields[idx_FacturasProveedorDATOS_BANCARIOS].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetRETENCIONValue: Float;
begin
result := DataTable.Fields[idx_FacturasProveedorRETENCION].AsFloat;
end;
procedure TFacturasProveedorDataTableRules.SetRETENCIONValue(const aValue: Float);
begin
DataTable.Fields[idx_FacturasProveedorRETENCION].AsFloat := aValue;
end;
function TFacturasProveedorDataTableRules.GetRETENCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorRETENCION].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetRETENCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorRETENCION].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetIMPORTE_RETENCIONValue: Currency;
begin
result := DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].AsCurrency;
end;
procedure TFacturasProveedorDataTableRules.SetIMPORTE_RETENCIONValue(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].AsCurrency := aValue;
end;
function TFacturasProveedorDataTableRules.GetIMPORTE_RETENCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorIMPORTE_RETENCION].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetID_PEDIDOValue: Integer;
begin
result := DataTable.Fields[idx_FacturasProveedorID_PEDIDO].AsInteger;
end;
procedure TFacturasProveedorDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
begin
DataTable.Fields[idx_FacturasProveedorID_PEDIDO].AsInteger := aValue;
end;
function TFacturasProveedorDataTableRules.GetID_PEDIDOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorID_PEDIDO].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorID_PEDIDO].AsVariant := Null;
end;
function TFacturasProveedorDataTableRules.GetREFERENCIA_PEDIDOValue: String;
begin
result := DataTable.Fields[idx_FacturasProveedorREFERENCIA_PEDIDO].AsString;
end;
procedure TFacturasProveedorDataTableRules.SetREFERENCIA_PEDIDOValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasProveedorREFERENCIA_PEDIDO].AsString := aValue;
end;
function TFacturasProveedorDataTableRules.GetREFERENCIA_PEDIDOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasProveedorREFERENCIA_PEDIDO].IsNull;
end;
procedure TFacturasProveedorDataTableRules.SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasProveedorREFERENCIA_PEDIDO].AsVariant := Null;
end;
{ TFacturasProveedor_DetallesDataTableRules }
constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);

274
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 = '{B700EE7C-8AB3-431C-9FA7-A6079A789D81}';
RID_FacturasProveedorDelta = '{CF80EDF3-AF67-4435-91F0-083105B1A702}';
RID_FacturasProveedor_DetallesDelta = '{A9EE3D34-89F5-48E3-80EB-286EDCE922A2}';
RID_FacturasProveedor_PedidosDelta = '{4F861C80-9436-4371-9127-530175C91776}';
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}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{B700EE7C-8AB3-431C-9FA7-A6079A789D81}']
['{B90583D3-FF94-483B-A62D-3936AA039340}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor)
['{CF80EDF3-AF67-4435-91F0-083105B1A702}']
['{79DD3FEF-946E-4381-9AFD-B131A243967D}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -67,8 +67,6 @@ type
function GetOldIMPORTE_DESCUENTOValue : Currency;
function GetOldIVAValue : Float;
function GetOldIMPORTE_IVAValue : Currency;
function GetOldRETENCIONValue : Float;
function GetOldIMPORTE_RETENCIONValue : Currency;
function GetOldREValue : Float;
function GetOldIMPORTE_REValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
@ -89,6 +87,10 @@ type
function GetOldIMPORTE_NETOValue : Currency;
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldDATOS_BANCARIOSValue : String;
function GetOldRETENCIONValue : Float;
function GetOldIMPORTE_RETENCIONValue : Currency;
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIA_PEDIDOValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -105,8 +107,6 @@ type
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
property OldIVA : Float read GetOldIVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldRETENCION : Float read GetOldRETENCIONValue;
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldRE : Float read GetOldREValue;
property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
@ -127,6 +127,10 @@ type
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldRETENCION : Float read GetOldRETENCIONValue;
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue;
end;
{ TFacturasProveedorBusinessProcessorRules }
@ -220,18 +224,6 @@ type
function GetOldIMPORTE_IVAIsNull: Boolean; virtual;
procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); virtual;
function GetRETENCIONValue: Float; virtual;
function GetRETENCIONIsNull: Boolean; virtual;
function GetOldRETENCIONValue: Float; virtual;
function GetOldRETENCIONIsNull: Boolean; virtual;
procedure SetRETENCIONValue(const aValue: Float); virtual;
procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_RETENCIONValue: Currency; virtual;
function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
function GetOldIMPORTE_RETENCIONValue: Currency; virtual;
function GetOldIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
function GetREValue: Float; virtual;
function GetREIsNull: Boolean; virtual;
function GetOldREValue: Float; virtual;
@ -351,6 +343,30 @@ type
function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
function GetRETENCIONValue: Float; virtual;
function GetRETENCIONIsNull: Boolean; virtual;
function GetOldRETENCIONValue: Float; virtual;
function GetOldRETENCIONIsNull: Boolean; virtual;
procedure SetRETENCIONValue(const aValue: Float); virtual;
procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_RETENCIONValue: Currency; virtual;
function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
function GetOldIMPORTE_RETENCIONValue: Currency; virtual;
function GetOldIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
function GetID_PEDIDOValue: Integer; virtual;
function GetID_PEDIDOIsNull: Boolean; virtual;
function GetOldID_PEDIDOValue: Integer; virtual;
function GetOldID_PEDIDOIsNull: Boolean; virtual;
procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_PEDIDOValue: String; virtual;
function GetREFERENCIA_PEDIDOIsNull: Boolean; virtual;
function GetOldREFERENCIA_PEDIDOValue: String; virtual;
function GetOldREFERENCIA_PEDIDOIsNull: Boolean; virtual;
procedure SetREFERENCIA_PEDIDOValue(const aValue: String); virtual;
procedure SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -409,14 +425,6 @@ type
property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull;
property RETENCION : Float read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull : Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property OldRETENCION : Float read GetOldRETENCIONValue;
property OldRETENCIONIsNull : Boolean read GetOldRETENCIONIsNull;
property IMPORTE_RETENCION : Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull : Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldIMPORTE_RETENCIONIsNull : Boolean read GetOldIMPORTE_RETENCIONIsNull;
property RE : Float read GetREValue write SetREValue;
property REIsNull : Boolean read GetREIsNull write SetREIsNull;
property OldRE : Float read GetOldREValue;
@ -497,6 +505,22 @@ type
property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull;
property RETENCION : Float read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull : Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property OldRETENCION : Float read GetOldRETENCIONValue;
property OldRETENCIONIsNull : Boolean read GetOldRETENCIONIsNull;
property IMPORTE_RETENCION : Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull : Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldIMPORTE_RETENCIONIsNull : Boolean read GetOldIMPORTE_RETENCIONIsNull;
property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
property REFERENCIA_PEDIDO : String read GetREFERENCIA_PEDIDOValue write SetREFERENCIA_PEDIDOValue;
property REFERENCIA_PEDIDOIsNull : Boolean read GetREFERENCIA_PEDIDOIsNull write SetREFERENCIA_PEDIDOIsNull;
property OldREFERENCIA_PEDIDO : String read GetOldREFERENCIA_PEDIDOValue;
property OldREFERENCIA_PEDIDOIsNull : Boolean read GetOldREFERENCIA_PEDIDOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -506,7 +530,7 @@ type
{ IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{A9EE3D34-89F5-48E3-80EB-286EDCE922A2}']
['{952E64EA-AAE5-4E2A-9182-C3C3A478327A}']
{ Property getters and setters }
function GetOldID_TIPO_IVAValue : Integer;
function GetOldIVAValue : Float;
@ -756,7 +780,7 @@ type
{ IFacturasProveedor_PedidosDelta }
IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
['{4F861C80-9436-4371-9127-530175C91776}']
['{80A1DCB5-2D75-4F33-93B6-AD1A79601ABD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -1364,68 +1388,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_IVA] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetRETENCIONValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION];
end;
function TFacturasProveedorBusinessProcessorRules.GetRETENCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldRETENCIONValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorRETENCION];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldRETENCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorRETENCION]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetRETENCIONValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetRETENCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetIMPORTE_RETENCIONValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION];
end;
function TFacturasProveedorBusinessProcessorRules.GetIMPORTE_RETENCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldIMPORTE_RETENCIONValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIMPORTE_RETENCION];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldIMPORTE_RETENCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIMPORTE_RETENCION]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetIMPORTE_RETENCIONValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetREValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRE];
@ -2043,6 +2005,130 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDATOS_BANCARIOS] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetRETENCIONValue: Float;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION];
end;
function TFacturasProveedorBusinessProcessorRules.GetRETENCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldRETENCIONValue: Float;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorRETENCION];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldRETENCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorRETENCION]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetRETENCIONValue(const aValue: Float);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetRETENCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRETENCION] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetIMPORTE_RETENCIONValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION];
end;
function TFacturasProveedorBusinessProcessorRules.GetIMPORTE_RETENCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldIMPORTE_RETENCIONValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIMPORTE_RETENCION];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldIMPORTE_RETENCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorIMPORTE_RETENCION]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetIMPORTE_RETENCIONValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_RETENCION] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_PEDIDO];
end;
function TFacturasProveedorBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_PEDIDO]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_PEDIDO];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_PEDIDO]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_PEDIDO] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_PEDIDO] := Null;
end;
function TFacturasProveedorBusinessProcessorRules.GetREFERENCIA_PEDIDOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO];
end;
function TFacturasProveedorBusinessProcessorRules.GetREFERENCIA_PEDIDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO]);
end;
function TFacturasProveedorBusinessProcessorRules.GetOldREFERENCIA_PEDIDOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO];
end;
function TFacturasProveedorBusinessProcessorRules.GetOldREFERENCIA_PEDIDOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO]);
end;
procedure TFacturasProveedorBusinessProcessorRules.SetREFERENCIA_PEDIDOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO] := aValue;
end;
procedure TFacturasProveedorBusinessProcessorRules.SetREFERENCIA_PEDIDOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorREFERENCIA_PEDIDO] := Null;
end;
{ TFacturasProveedor_DetallesBusinessProcessorRules }
constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

27
Source/Modulos/Facturas de proveedor/Plugin/uPluginFacturasProveedor.pas
View File

@ -20,8 +20,8 @@ type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure VerFacturas(const ID_Proveedor: Integer;
const ANombreProveedor : String = '');
procedure VerFacturas(const ID_Proveedor: Integer; const ANombreProveedor : String = '');
procedure VerFacturasDePedido(const ID_Pedido: Integer; const AReferencia : String = ''; const ANombreProveedor : String = '');
end;
implementation
@ -88,6 +88,29 @@ begin
end;
end;
procedure TPluginFacturasProveedor.VerFacturasDePedido(const ID_Pedido: Integer;
const AReferencia, ANombreProveedor: String);
var
AFacturasProveedorController : IFacturasProveedorController;
AFacturasProveedor : IBizFacturaProveedor;
AText : String;
begin
AText := Format('Lista de facturas del pedido de proveedor %s - %s', [AReferencia, ANombreProveedor]);
AFacturasProveedorController := TFacturasProveedorController.Create;
try
ShowHourglassCursor;
try
AFacturasProveedor := AFacturasProveedorController.BuscarTodosDelPedido(ID_Pedido);
finally
HideHourglassCursor;
end;
AFacturasProveedorController.VerTodos(AFacturasProveedor, True, AText);
finally
AFacturasProveedor := NIL;
AFacturasProveedorController := NIL;
end;
end;
initialization
RegisterModuleClass(TPluginFacturasProveedor);

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

@ -191,6 +191,14 @@ object srvFacturasProveedor: TsrvFacturasProveedor
item
DatasetField = 'IMPORTE_RETENCION'
TableField = 'IMPORTE_RETENCION'
end
item
DatasetField = 'ID_PEDIDO'
TableField = 'ID_PEDIDO'
end
item
DatasetField = 'REFERENCIA_PEDIDO'
TableField = 'REFERENCIA_PEDIDO'
end>
end>
Name = 'FacturasProveedor'
@ -272,16 +280,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA'
end
item
Name = 'RETENCION'
DataType = datFloat
DictionaryEntry = 'FacturasProveedor_RETENCION'
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_IMPORTE_RETENCION'
end
item
Name = 'RE'
DataType = datFloat
@ -389,6 +387,25 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datString
Size = 255
DictionaryEntry = 'FacturasProveedor_DATOS_BANCARIOS'
end
item
Name = 'RETENCION'
DataType = datFloat
DictionaryEntry = 'FacturasProveedor_RETENCION'
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
DictionaryEntry = 'FacturasProveedor_IMPORTE_RETENCION'
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
end
item
Name = 'REFERENCIA_PEDIDO'
DataType = datString
Size = 255
end>
end
item
@ -722,16 +739,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Params = <
item
Name = 'RETENCION'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
Value = ''
end
item
Name = 'ID'
DataType = datAutoInc
@ -892,6 +899,21 @@ object srvFacturasProveedor: TsrvFacturasProveedor
Name = 'FECHA_RECEPCION'
DataType = datDateTime
Value = ''
end
item
Name = 'RETENCION'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
end>
Statements = <
item
@ -907,15 +929,15 @@ 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' +
')'#10' VALUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :REFERENCIA_PROVE' +
'EDOR,'#10' :FECHA_FACTURA, :BASE_IMPONIBLE, :DESCUENTO,'#10' :IM' +
'PORTE_DESCUENTO, :IVA, :IMPORTE_IVA, :RE, :IMPORTE_RE, '#10' :IM' +
'PORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF, '#10' :NOM' +
'BRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' CURRE' +
'NT_TIMESTAMP, :USUARIO, :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENC' +
'IA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10' :IMPORTE_PORTE, :DATOS_BA' +
'NCARIOS, :FECHA_VENCIMIENTO, :FECHA_RECEPCION,'#10' :RETENCION, ' +
':IMPORTE_RETENCION)'#10' '#10' '#10#10
', 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
StatementType = stSQL
ColumnMappings = <>
end>
@ -942,16 +964,6 @@ object srvFacturasProveedor: TsrvFacturasProveedor
end
item
Params = <
item
Name = 'RETENCION'
DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
Value = ''
end
item
Name = 'ID'
DataType = datInteger
@ -1112,6 +1124,21 @@ object srvFacturasProveedor: TsrvFacturasProveedor
DataType = datDateTime
Value = ''
end
item
Name = 'RETENCION'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_PEDIDO'
DataType = datInteger
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
@ -1139,8 +1166,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
'ETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = ' +
':DATOS_BANCARIOS,'#10' FECHA_VENCIMIENTO = :FECHA_VENCIMIENTO,'#10' ' +
' FECHA_RECEPCION = :FECHA_RECEPCION,'#10' RETENCION = :RETENCION' +
','#10' IMPORTE_RETENCION = :IMPORTE_RETENCION'#10' WHERE'#10' (ID = :' +
'OLD_ID)'#10
','#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' ID_PEDIDO = :I' +
'D_PEDIDO'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

24
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm
View File

@ -173,25 +173,35 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Width = 282
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 386
Left = 249
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 386
ExplicitLeft = 249
ExplicitWidth = 453
Width = 453
end
inherited eLista: TcxComboBox
Left = 876
Left = 562
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 876
ExplicitLeft = 562
ExplicitWidth = 215
Width = 215
end
inherited eLista2: TcxComboBox
Left = 726
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 726
ExplicitWidth = 207
Width = 207
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 849
@ -1907,12 +1917,12 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Default = True
end
item
Caption = 'Utilizar uno o m'#225's pedidos de proveedor'
Caption = 'Utilizar un pedido de proveedor'
Value = 200
Info.Strings = (
'Puede utilizar uno o m'#225's albaranes existentes para dar de alta l' +
'a factura nueva')
'Puede utilizar un pedido a proveedor existente para dar de alta ' +
'la factura nueva')
end
item
Caption = 'Utilizar uno o m'#225's albaranes de proveedor.'

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

@ -147,10 +147,9 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
HeaderAlignmentHorz = taRightJustify
Width = 98
end
object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn
Caption = 'Liquidaci'#243'n'
DataBinding.FieldName = 'REFERENCIA_COMISION'
Visible = False
object cxGridViewREFERENCIA_PEDIDO: TcxGridDBColumn
Caption = 'Ref. Pedido'
DataBinding.FieldName = 'REFERENCIA_PEDIDO'
end
end
inherited cxGridLevel: TcxGridLevel
@ -191,25 +190,35 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Width = 229
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 230
Left = 179
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 230
ExplicitLeft = 179
ExplicitWidth = 188
Width = 188
end
inherited eLista: TcxComboBox
Left = 388
Left = 304
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 388
ExplicitLeft = 304
ExplicitWidth = 215
Width = 215
end
inherited eLista2: TcxComboBox
Left = 438
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 438
ExplicitWidth = 207
Width = 207
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 531

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

@ -45,7 +45,7 @@ type
cxGridParcial: TcxGridLevel;
cxStyleAbono: TcxStyle;
cxGridPagadas: TcxGridLevel;
cxGridViewREFERENCIA_COMISION: TcxGridDBColumn;
cxGridViewREFERENCIA_PEDIDO: TcxGridDBColumn;
cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
cxStylePendientes: TcxStyle;
cxStyleParciales: TcxStyle;
@ -195,7 +195,7 @@ procedure TfrViewFacturasProveedor.cxGridViewDataControllerCompare(
begin
inherited;
if ((AItemIndex = cxGridViewREFERENCIA.Index) or
(AItemIndex = cxGridViewREFERENCIA_COMISION.Index) or
// (AItemIndex = cxGridViewREFERENCIA_COMISION.Index) or
(AItemIndex = cxGridViewREFERENCIA_PROVEEDOR.Index)) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2)

34
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
View File

@ -23,11 +23,12 @@ type
function BuscarTodos: IBizPedidoProveedor; overload;
function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload;
function BuscarPendientesRecepcion: IBizPedidoProveedor;
function BuscarSinFacturar : IBizPedidoProveedor;
// function BuscarSinFacturar : IBizPedidoProveedor;
procedure Ver(APedido : IBizPedidoProveedor);
procedure VerTodos(APedidos: IBizPedidoProveedor;
const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = '');
procedure VerFacturasDePedido(APedido : IBizPedidoProveedor);
procedure VerDireccionEntrega(APedido : IBizPedidoProveedor);
function Nuevo : IBizPedidoProveedor;
procedure Anadir(APedido : IBizPedidoProveedor);
@ -110,13 +111,13 @@ type
function BuscarTodos: IBizPedidoProveedor; overload;
function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload;
function BuscarPendientesRecepcion: IBizPedidoProveedor;
function BuscarSinFacturar : IBizPedidoProveedor;
// function BuscarSinFacturar : IBizPedidoProveedor;
function Nuevo : IBizPedidoProveedor;
procedure Ver(APedido : IBizPedidoProveedor);
procedure VerTodos(APedidos: IBizPedidoProveedor;
const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = '');
procedure VerFacturasDePedido(APedido : IBizPedidoProveedor);
procedure VerDireccionEntrega(APedido : IBizPedidoProveedor);
function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor;
@ -158,7 +159,8 @@ uses
schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController,
uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor, uIDialogListaPedidosProveedorEnvioEMail,
Dialogs, uIEditorDireccionEntregaPedidoProveedor, uIEditorSituacionPedidoProveedor,
Variants, uSistemaFunc, uEMailUtils, uDialogElegirEMail, uIntegerListUtils, uStringsUtils;
Variants, uSistemaFunc, uEMailUtils, uDialogElegirEMail, uIntegerListUtils, uStringsUtils,
uPlugins_Intf, uModuleController;
{ TPedidosProveedorController }
@ -237,6 +239,7 @@ begin
end;
end;
{
function TPedidosProveedorController.BuscarSinFacturar: IBizPedidoProveedor;
var
Condicion: TDAWhereExpression;
@ -260,6 +263,7 @@ begin
HideHourglassCursor;
end;
end;
}
function TPedidosProveedorController.BuscarTodos(
const AID_Proveedor: Integer): IBizPedidoProveedor;
@ -416,7 +420,6 @@ begin
// INCIDENCIAS := Nil;
REF_PED_CLIENTE := '';
ID_PEDIDO_CLIENTE := 0;
ID_FACTURA := 0;
end;
Result.Post;
finally
@ -574,6 +577,27 @@ begin
end;
end;
procedure TPedidosProveedorController.VerFacturasDePedido(APedido: IBizPedidoProveedor);
var
AModule : TModuleController;
APlugin : IMCFacturasProveedor;
begin
if not Assigned(APedido) then
raise Exception.Create ('Pedido no asignado (VerFacturasDePedido)');
if APedido.DataTable.Active then
APedido.DataTable.Active := True;
AModule := AppFactuGES.GetModule(MODULENAME_FACTURAS_PROVEEDOR);
if Assigned(AModule) then
try
if Supports(AModule, IMCFacturasProveedor, APlugin) then
APlugin.VerFacturasDePedido(APedido.ID, APedido.REFERENCIA, APedido.NOMBRE);
finally
APlugin := NIL;
end;
end;
function TPedidosProveedorController._Vacio: IBizPedidoProveedor;
begin
Result := Buscar(ID_NULO);

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

@ -14,12 +14,12 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Top = 84
end
object rda_PedidosProveedor: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43
Top = 151
end
@ -289,25 +289,10 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'ID_FORMA_PAGO'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DisplayLabel = 'PedidosProveedor_ID_FACTURA'
DictionaryEntry = 'PedidosProveedor_ID_FACTURA'
end
item
Name = 'REF_FACTURA_PROV'
DataType = datString
Size = 255
DisplayLabel = 'PedidosProveedor_REF_FACTURA_PROV'
DictionaryEntry = 'PedidosProveedor_REF_FACTURA_PROV'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosProveedor'
IndexDefs = <>
Left = 160
@ -367,8 +352,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
end>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosProveedor_Articulos_Pendientes'
IndexDefs = <>
Left = 480
@ -495,8 +478,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
MasterSource = ds_PedidosProveedor
MasterFields = 'ID'
DetailFields = 'ID_PEDIDO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PedidosProveedor_Detalles'
IndexDefs = <>
Left = 296
@ -519,8 +500,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_PedidosProveedor
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'ListaAnosPedidos'
IndexDefs = <>
Left = 168

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

@ -3,16 +3,16 @@ unit schPedidosProveedorClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosPedidos = '{BB4ACD7F-346E-4B72-9B4C-4765E709D911}';
RID_PedidosProveedor = '{FB6CB8F5-5944-469C-848F-C2B228E6115F}';
RID_PedidosProveedor_Detalles = '{BB197BA1-5EB9-416C-A7DD-1B8C3097AE72}';
RID_PedidosProveedor_Articulos_Pendientes = '{D8031329-D44D-436D-90CC-28FFBF9B3485}';
RID_ListaAnosPedidos = '{0BE63A2E-B331-4A57-A663-4E77D6E4A12A}';
RID_PedidosProveedor = '{CD6B65EC-536D-4CF6-A278-D5B2E929094D}';
RID_PedidosProveedor_Detalles = '{5C269D11-EC6B-4D1E-B1F9-48A80A4F22DC}';
RID_PedidosProveedor_Articulos_Pendientes = '{3E1EB0DC-A289-4452-B9D4-B57A29E5D8DA}';
{ Data table names }
nme_ListaAnosPedidos = 'ListaAnosPedidos';
@ -67,8 +67,6 @@ const
fld_PedidosProveedorIVA = 'IVA';
fld_PedidosProveedorIMPORTE_IVA = 'IMPORTE_IVA';
fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_PedidosProveedorID_FACTURA = 'ID_FACTURA';
fld_PedidosProveedorREF_FACTURA_PROV = 'REF_FACTURA_PROV';
{ PedidosProveedor field indexes }
idx_PedidosProveedorID = 0;
@ -111,8 +109,6 @@ const
idx_PedidosProveedorIVA = 37;
idx_PedidosProveedorIMPORTE_IVA = 38;
idx_PedidosProveedorID_FORMA_PAGO = 39;
idx_PedidosProveedorID_FACTURA = 40;
idx_PedidosProveedorREF_FACTURA_PROV = 41;
{ PedidosProveedor_Detalles fields }
fld_PedidosProveedor_DetallesID = 'ID';
@ -169,7 +165,7 @@ const
type
{ IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
['{F50ECDED-B2E2-4A7E-A160-91F65194D336}']
['{444C24ED-7A28-4E70-A26D-6D68F92B116D}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -204,7 +200,7 @@ type
{ IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{52592A3B-FB1A-438A-8B4D-56335E373D8C}']
['{8227DEFE-3F3E-4F9B-8BD0-0063F47CF363}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -364,14 +360,6 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetID_FORMA_PAGOIsNull: Boolean;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
function GetID_FACTURAValue: Integer;
procedure SetID_FACTURAValue(const aValue: Integer);
function GetID_FACTURAIsNull: Boolean;
procedure SetID_FACTURAIsNull(const aValue: Boolean);
function GetREF_FACTURA_PROVValue: String;
procedure SetREF_FACTURA_PROVValue(const aValue: String);
function GetREF_FACTURA_PROVIsNull: Boolean;
procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean);
{ Properties }
@ -455,10 +443,6 @@ type
property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
end;
{ TPedidosProveedorDataTableRules }
@ -628,14 +612,6 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetREF_FACTURA_PROVValue: String; virtual;
procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
function GetREF_FACTURA_PROVIsNull: Boolean; virtual;
procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -718,10 +694,6 @@ type
property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -731,7 +703,7 @@ type
{ IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{5D182AFF-F1C8-4C0C-A82B-E8F74B11F199}']
['{86705E35-B1C5-4E3D-997C-F320EEA14017}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -946,7 +918,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{4EDB8973-E2C1-4B31-BAB1-1724233A993F}']
['{46FBB380-02E3-4155-A485-1B6D4122047A}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@ -1939,48 +1911,6 @@ begin
DataTable.Fields[idx_PedidosProveedorID_FORMA_PAGO].AsVariant := Null;
end;
function TPedidosProveedorDataTableRules.GetID_FACTURAValue: Integer;
begin
result := DataTable.Fields[idx_PedidosProveedorID_FACTURA].AsInteger;
end;
procedure TPedidosProveedorDataTableRules.SetID_FACTURAValue(const aValue: Integer);
begin
DataTable.Fields[idx_PedidosProveedorID_FACTURA].AsInteger := aValue;
end;
function TPedidosProveedorDataTableRules.GetID_FACTURAIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedorID_FACTURA].IsNull;
end;
procedure TPedidosProveedorDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedorID_FACTURA].AsVariant := Null;
end;
function TPedidosProveedorDataTableRules.GetREF_FACTURA_PROVValue: String;
begin
result := DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].AsString;
end;
procedure TPedidosProveedorDataTableRules.SetREF_FACTURA_PROVValue(const aValue: String);
begin
DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].AsString := aValue;
end;
function TPedidosProveedorDataTableRules.GetREF_FACTURA_PROVIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].IsNull;
end;
procedure TPedidosProveedorDataTableRules.SetREF_FACTURA_PROVIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].AsVariant := Null;
end;
{ TPedidosProveedor_DetallesDataTableRules }
constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);

102
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 = '{7413239D-F923-4D2D-885F-4083C7008226}';
RID_PedidosProveedorDelta = '{D1505641-F1C6-4565-823C-F14DC964DDC6}';
RID_PedidosProveedor_DetallesDelta = '{E1572661-F1D9-4902-A018-60E27BF71613}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{C1F7A9E2-4E27-4594-90D6-A830EBA65AF2}';
RID_ListaAnosPedidosDelta = '{2CD89CFA-6628-4D1B-AAFD-2143F6E16C6F}';
RID_PedidosProveedorDelta = '{6510A108-8EDD-4CAF-AA7B-C010D901B2B0}';
RID_PedidosProveedor_DetallesDelta = '{92F733E7-B35E-4B57-B2F8-CD648B380B90}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{99E04FCB-79B4-4C08-B667-38699CAD1FE4}';
type
{ IListaAnosPedidosDelta }
IListaAnosPedidosDelta = interface(IListaAnosPedidos)
['{7413239D-F923-4D2D-885F-4083C7008226}']
['{2CD89CFA-6628-4D1B-AAFD-2143F6E16C6F}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor)
['{D1505641-F1C6-4565-823C-F14DC964DDC6}']
['{6510A108-8EDD-4CAF-AA7B-C010D901B2B0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -93,8 +93,6 @@ type
function GetOldIVAValue : Float;
function GetOldIMPORTE_IVAValue : Currency;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldID_FACTURAValue : Integer;
function GetOldREF_FACTURA_PROVValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -137,8 +135,6 @@ type
property OldIVA : Float read GetOldIVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
end;
{ TPedidosProveedorBusinessProcessorRules }
@ -388,18 +384,6 @@ type
function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
function GetOldID_FACTURAValue: Integer; virtual;
function GetOldID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetREF_FACTURA_PROVValue: String; virtual;
function GetREF_FACTURA_PROVIsNull: Boolean; virtual;
function GetOldREF_FACTURA_PROVValue: String; virtual;
function GetOldREF_FACTURA_PROVIsNull: Boolean; virtual;
procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -562,14 +546,6 @@ type
property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
property REF_FACTURA_PROV : String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
property REF_FACTURA_PROVIsNull : Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
property OldREF_FACTURA_PROVIsNull : Boolean read GetOldREF_FACTURA_PROVIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -579,7 +555,7 @@ type
{ IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{E1572661-F1D9-4902-A018-60E27BF71613}']
['{92F733E7-B35E-4B57-B2F8-CD648B380B90}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
@ -793,7 +769,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{C1F7A9E2-4E27-4594-90D6-A830EBA65AF2}']
['{99E04FCB-79B4-4C08-B667-38699CAD1FE4}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String;
@ -2198,68 +2174,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO] := Null;
end;
function TPedidosProveedorBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FACTURA];
end;
function TPedidosProveedorBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FACTURA]);
end;
function TPedidosProveedorBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_FACTURA];
end;
function TPedidosProveedorBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorID_FACTURA]);
end;
procedure TPedidosProveedorBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FACTURA] := aValue;
end;
procedure TPedidosProveedorBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FACTURA] := Null;
end;
function TPedidosProveedorBusinessProcessorRules.GetREF_FACTURA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV];
end;
function TPedidosProveedorBusinessProcessorRules.GetREF_FACTURA_PROVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV]);
end;
function TPedidosProveedorBusinessProcessorRules.GetOldREF_FACTURA_PROVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_FACTURA_PROV];
end;
function TPedidosProveedorBusinessProcessorRules.GetOldREF_FACTURA_PROVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorREF_FACTURA_PROV]);
end;
procedure TPedidosProveedorBusinessProcessorRules.SetREF_FACTURA_PROVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV] := aValue;
end;
procedure TPedidosProveedorBusinessProcessorRules.SetREF_FACTURA_PROVIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV] := Null;
end;
{ TPedidosProveedor_DetallesBusinessProcessorRules }
constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -62,7 +62,6 @@ type
procedure SetID_PEDIDO_CLIENTEValue(const aValue: Integer); override;
// procedure SetINCIDENCIASValue(const aValue: IROStrings); override;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
procedure SetID_FACTURAValue(const aValue: Integer); override;
procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
@ -297,14 +296,6 @@ begin
inherited;
end;
procedure TBizPedidoProveedor.SetID_FACTURAValue(const aValue: Integer);
begin
if (aValue = 0) then
SetFieldNull(DataTable, fld_PedidosProveedorID_FACTURA)
else
inherited;
end;
procedure TBizPedidoProveedor.SetID_FORMA_PAGOValue(const aValue: Integer);
begin
if (aValue = 0) then

16
Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj
View File

@ -19,6 +19,7 @@
<Projects Include="..\Contactos\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
<Projects Include="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" />
<Projects Include="..\Inventario\Controller\Inventario_controller.dproj" />
<Projects Include="..\Inventario\Data\Inventario_data.dproj" />
<Projects Include="..\Inventario\Views\Inventario_view.dproj" />
@ -261,14 +262,23 @@
<Target Name="AlbaranesProveedor_view:Make">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" />
</Target>
<Target Name="FacturasProveedor_plugin">
<MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="" />
</Target>
<Target Name="FacturasProveedor_plugin:Clean">
<MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasProveedor_plugin:Make">
<MSBuild Projects="..\Facturas de proveedor\Plugin\FacturasProveedor_plugin.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;FacturasProveedor_controller;PedProv_FacProv_relation;PedidosProveedor_view;PedidosProveedor_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;FacturasProveedor_controller;PedProv_FacProv_relation;PedidosProveedor_view;PedidosProveedor_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasProveedor_plugin" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_FacProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_FacProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasProveedor_plugin:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_controller:Make;PedProv_FacProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;FacturasProveedor_controller:Make;PedProv_FacProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasProveedor_plugin:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

@ -199,14 +199,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'REF_FACTURA_PROV'
TableField = 'REF_FACTURA_PROV'
end
item
DatasetField = 'ID_DIRECCION'
TableField = 'ID_DIRECCION'
@ -441,17 +433,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'ID_FORMA_PAGO'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_FACTURA'
end
item
Name = 'REF_FACTURA_PROV'
DataType = datString
Size = 255
DictionaryEntry = 'PedidosProveedor_REF_FACTURA_PROV'
end>
end
item
@ -749,10 +730,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Params = <
item
Name = 'PERSONA_CONTACTO_PROV'
Value = ''
end
item
Name = 'ID'
DataType = datAutoInc
@ -761,126 +738,166 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item
Name = 'PERSONA_CONTACTO_PROV'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_ENTREGA'
DataType = datDateTime
Value = ''
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
Value = ''
end
item
Name = 'ID_OBRA'
DataType = datInteger
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'ID_PEDIDO_CLIENTE'
DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'FECHA_ENVIO'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
Value = ''
end
item
Name = 'ID_FACTURA'
DataType = datString
Size = 30
Value = ''
end>
Statements = <
@ -896,15 +913,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, ID_FACTURA)'#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, :ID_FACTURA)'#10
'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
StatementType = stSQL
ColumnMappings = <>
end>
@ -912,138 +929,173 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Params = <
item
Name = 'PERSONA_CONTACTO_PROV'
Value = ''
end
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_ID'
DataType = datInteger
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item
Name = 'PERSONA_CONTACTO_PROV'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_ENVIO'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_ENTREGA'
DataType = datDateTime
Value = ''
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
Value = ''
end
item
Name = 'ID_OBRA'
DataType = datInteger
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
Value = ''
end
item
Name = 'ID_PEDIDO_CLIENTE'
DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'USUARIO'
Value = ''
end
item
Name = 'ID_FACTURA'
DataType = datString
Size = 30
Value = ''
end
item
@ -1073,7 +1125,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' ID_FACTURA = :ID_FACTURA'#10' WHERE'#10' (ID = :OLD_ID)'#10
'MP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

38
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm
View File

@ -73,10 +73,18 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Action = actRecibirPedido
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem17: TTBXSeparatorItem
end
object TBXItem38: TTBXItem
Action = actFacturarPedido
DisplayMode = nbdmImageAndText
end
object TBXItem42: TTBXItem
Action = actVerFacturas
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem18: TTBXSeparatorItem
end
object TBXItem41: TTBXItem
Action = actInformes
end
@ -154,24 +162,34 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Width = 267
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 277
Left = 271
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 277
ExplicitLeft = 271
ExplicitWidth = 319
Width = 319
end
inherited eLista: TcxComboBox
Left = 543
Left = 531
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 543
ExplicitWidth = 215
Width = 215
ExplicitLeft = 531
ExplicitWidth = 100
Width = 100
end
inherited eLista2: TcxComboBox
Left = 636
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 636
ExplicitWidth = 93
Width = 93
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -242,7 +260,7 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
object actFacturarPedido: TAction
Category = 'Acciones'
Caption = 'Generar factura'
ImageIndex = 23
ImageIndex = 18
OnExecute = actFacturarPedidoExecute
OnUpdate = actFacturarPedidoUpdate
end
@ -257,6 +275,12 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Caption = 'Informes'
OnExecute = actInformesExecute
end
object actVerFacturas: TAction
Category = 'Acciones'
Caption = 'Ver facturas relacionadas'
ImageIndex = 21
OnExecute = actVerFacturasExecute
end
end
inherited SmallImages: TPngImageList [5]
PngImages = <

13
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
View File

@ -33,6 +33,10 @@ type
actInformes: TAction;
TBXItem41: TTBXItem;
JSInformesDialog: TJSDialog;
actVerFacturas: TAction;
TBXSeparatorItem17: TTBXSeparatorItem;
TBXSeparatorItem18: TTBXSeparatorItem;
TBXItem42: TTBXItem;
procedure FormShow(Sender: TObject);
procedure actCambiarSituacionExecute(Sender: TObject);
procedure actRecibirPedidoUpdate(Sender: TObject);
@ -44,6 +48,7 @@ type
procedure actEnviarEMailUpdate(Sender: TObject);
procedure actInformesExecute(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
procedure actVerFacturasExecute(Sender: TObject);
protected
FPedidos: IBizPedidoProveedor;
@ -154,7 +159,7 @@ begin
inherited;
(Sender as TAction).Enabled := HayDatos
and not (ViewGrid.NumSeleccionados > 1)
and (FPedidos.REF_FACTURA_PROV = '')
// and (FPedidos.REF_FACTURA_PROV = '')
and ViewGrid.esSeleccionCeldaDatos;
end;
@ -199,6 +204,12 @@ begin
(FPedidos.SITUACION <> SITUACION_PEDIDO_RECIBIDO);
end;
procedure TfEditorPedidosProveedor.actVerFacturasExecute(Sender: TObject);
begin
inherited;
FController.VerFacturasDePedido(Pedidos);
end;
constructor TfEditorPedidosProveedor.Create(AOwner: TComponent);
begin
inherited;

34
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -32,11 +32,12 @@ type
function BuscarTodos: IBizPresupuestoCliente; overload;
function BuscarTodos(const ID_Cliente: Integer): IBizPresupuestoCliente; overload;
function BuscarAceptados : IBizPresupuestoCliente;
function BuscarSinFacturar : IBizPresupuestoCliente;
// function BuscarSinFacturar : IBizPresupuestoCliente;
procedure Ver(APresupuesto : IBizPresupuestoCliente);
procedure VerTodos(APresupuestos: IBizPresupuestoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = '');
procedure VerFacturasDePresupuesto(APresupuesto : IBizPresupuestoCliente);
procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente);
function Nuevo : IBizPresupuestoCliente;
function Anadir(APresupuesto : IBizPresupuestoCliente) : Boolean;
@ -123,12 +124,13 @@ type
function BuscarTodos: IBizPresupuestoCliente; overload;
function BuscarTodos(const ID_Cliente: Integer): IBizPresupuestoCliente; overload;
function BuscarAceptados : IBizPresupuestoCliente;
function BuscarSinFacturar : IBizPresupuestoCliente;
// function BuscarSinFacturar : IBizPresupuestoCliente;
function Nuevo : IBizPresupuestoCliente;
procedure Ver(APresupuesto : IBizPresupuestoCliente);
procedure VerTodos(APresupuestos: IBizPresupuestoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = '');
procedure VerFacturasDePresupuesto(APresupuesto : IBizPresupuestoCliente);
procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente);
function Duplicar(APresupuesto: IBizPresupuestoCliente): IBizPresupuestoCliente;
@ -168,7 +170,7 @@ uses
uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente,
schContactosClient_Intf, uPresupuestosClienteReportController,
uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils,
uIDialogListaPresupuestosEnvioEMail;
uIDialogListaPresupuestosEnvioEMail, uModuleController, uPlugins_Intf;
{ TPresupuestosClienteController }
@ -275,6 +277,7 @@ begin
end;
end;
{
function TPresupuestosClienteController.BuscarSinFacturar: IBizPresupuestoCliente;
var
Condicion: TDAWhereExpression;
@ -298,6 +301,7 @@ begin
HideHourglassCursor;
end;
end;
}
function TPresupuestosClienteController.BuscarTodos(
const ID_Cliente: Integer): IBizPresupuestoCliente;
@ -457,7 +461,7 @@ begin
FECHA_PRESUPUESTO := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0;
INCIDENCIASIsNull := True;
ID_FACTURAIsNull := True;
// ID_FACTURAIsNull := True;
FECHA_DECISIONIsNull := True;
REFERENCIA := '';
SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
@ -571,6 +575,28 @@ begin
}
end;
procedure TPresupuestosClienteController.VerFacturasDePresupuesto(
APresupuesto: IBizPresupuestoCliente);
var
AModule : TModuleController;
APlugin : IMCFacturasCliente;
begin
if not Assigned(APresupuesto) then
raise Exception.Create ('Presupuesto no asignado (VerFacturasDePresupuesto)');
if not APresupuesto.DataTable.Active then
APresupuesto.DataTable.Active := True;
AModule := AppFactuGES.GetModule(MODULENAME_FACTURAS_CLIENTE);
if Assigned(AModule) then
try
if Supports(AModule, IMCFacturasCliente, APlugin) then
APlugin.VerFacturasPresupuesto(APresupuesto.ID, APresupuesto.REFERENCIA, APresupuesto.NOMBRE);
finally
APlugin := NIL;
end;
end;
procedure TPresupuestosClienteController.VerTodos(APresupuestos: IBizPresupuestoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = '');

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

@ -217,15 +217,6 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
DataType = datInteger
DictionaryEntry = 'PresupuestosCliente_ID_FORMA_PAGO'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'FACTURA'
DataType = datString
Size = 255
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString

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

@ -9,9 +9,9 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosPresupuestos = '{D73FB601-4855-412C-B145-BC927DE770D2}';
RID_PresupuestosCliente = '{A2898E4B-6B5C-443D-A744-9FAD9690292D}';
RID_PresupuestosCliente_Detalles = '{160328C6-D0E9-44C5-B1F0-407C54645451}';
RID_ListaAnosPresupuestos = '{1156DC6C-FB6C-42AC-9552-371D052F073D}';
RID_PresupuestosCliente = '{7776B49F-7541-4ADC-8D5B-01D8C5813FE2}';
RID_PresupuestosCliente_Detalles = '{69E339B8-A74D-47A0-BC7D-58F9F74B2E27}';
{ Data table names }
nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
@ -55,8 +55,6 @@ const
fld_PresupuestosClienteIMPORTE_IVA = 'IMPORTE_IVA';
fld_PresupuestosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_PresupuestosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_PresupuestosClienteID_FACTURA = 'ID_FACTURA';
fld_PresupuestosClienteFACTURA = 'FACTURA';
fld_PresupuestosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_PresupuestosClienteDESCRIPCION_BONIFICACION = 'DESCRIPCION_BONIFICACION';
fld_PresupuestosClienteIMPORTE_BONIFICACION = 'IMPORTE_BONIFICACION';
@ -93,12 +91,10 @@ const
idx_PresupuestosClienteIMPORTE_IVA = 27;
idx_PresupuestosClienteIMPORTE_TOTAL = 28;
idx_PresupuestosClienteID_FORMA_PAGO = 29;
idx_PresupuestosClienteID_FACTURA = 30;
idx_PresupuestosClienteFACTURA = 31;
idx_PresupuestosClientePERSONA_CONTACTO = 32;
idx_PresupuestosClienteDESCRIPCION_BONIFICACION = 33;
idx_PresupuestosClienteIMPORTE_BONIFICACION = 34;
idx_PresupuestosClienteCERTIFICADO_ISO = 35;
idx_PresupuestosClientePERSONA_CONTACTO = 30;
idx_PresupuestosClienteDESCRIPCION_BONIFICACION = 31;
idx_PresupuestosClienteIMPORTE_BONIFICACION = 32;
idx_PresupuestosClienteCERTIFICADO_ISO = 33;
{ PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID';
@ -137,7 +133,7 @@ const
type
{ IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{031EC815-C5C0-4E17-AC6F-D5356025BCE1}']
['{7B9FC1A2-4BF9-463D-BFA2-17F1DEDC4914}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -172,7 +168,7 @@ type
{ IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{E25A2981-6860-472F-80BA-2CA9D82D18FE}']
['{FA3103A1-D1C7-4206-8D73-3FC5D91A5A87}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -290,14 +286,6 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetID_FORMA_PAGOIsNull: Boolean;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
function GetID_FACTURAValue: Integer;
procedure SetID_FACTURAValue(const aValue: Integer);
function GetID_FACTURAIsNull: Boolean;
procedure SetID_FACTURAIsNull(const aValue: Boolean);
function GetFACTURAValue: String;
procedure SetFACTURAValue(const aValue: String);
function GetFACTURAIsNull: Boolean;
procedure SetFACTURAIsNull(const aValue: Boolean);
function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String);
function GetPERSONA_CONTACTOIsNull: Boolean;
@ -377,10 +365,6 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property FACTURA: String read GetFACTURAValue write SetFACTURAValue;
property FACTURAIsNull: Boolean read GetFACTURAIsNull write SetFACTURAIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property DESCRIPCION_BONIFICACION: String read GetDESCRIPCION_BONIFICACIONValue write SetDESCRIPCION_BONIFICACIONValue;
@ -520,14 +504,6 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetFACTURAValue: String; virtual;
procedure SetFACTURAValue(const aValue: String); virtual;
function GetFACTURAIsNull: Boolean; virtual;
procedure SetFACTURAIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
@ -606,10 +582,6 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property ID_FACTURA: Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property FACTURA: String read GetFACTURAValue write SetFACTURAValue;
property FACTURAIsNull: Boolean read GetFACTURAIsNull write SetFACTURAIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property DESCRIPCION_BONIFICACION: String read GetDESCRIPCION_BONIFICACIONValue write SetDESCRIPCION_BONIFICACIONValue;
@ -627,7 +599,7 @@ type
{ IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{67B4300E-97EF-4FEA-BD7E-7B3C3DD4FB54}']
['{341EBBC1-EE9E-46B6-B65A-AB180E04C8A3}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1528,48 +1500,6 @@ begin
DataTable.Fields[idx_PresupuestosClienteID_FORMA_PAGO].AsVariant := Null;
end;
function TPresupuestosClienteDataTableRules.GetID_FACTURAValue: Integer;
begin
result := DataTable.Fields[idx_PresupuestosClienteID_FACTURA].AsInteger;
end;
procedure TPresupuestosClienteDataTableRules.SetID_FACTURAValue(const aValue: Integer);
begin
DataTable.Fields[idx_PresupuestosClienteID_FACTURA].AsInteger := aValue;
end;
function TPresupuestosClienteDataTableRules.GetID_FACTURAIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosClienteID_FACTURA].IsNull;
end;
procedure TPresupuestosClienteDataTableRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosClienteID_FACTURA].AsVariant := Null;
end;
function TPresupuestosClienteDataTableRules.GetFACTURAValue: String;
begin
result := DataTable.Fields[idx_PresupuestosClienteFACTURA].AsString;
end;
procedure TPresupuestosClienteDataTableRules.SetFACTURAValue(const aValue: String);
begin
DataTable.Fields[idx_PresupuestosClienteFACTURA].AsString := aValue;
end;
function TPresupuestosClienteDataTableRules.GetFACTURAIsNull: boolean;
begin
result := DataTable.Fields[idx_PresupuestosClienteFACTURA].IsNull;
end;
procedure TPresupuestosClienteDataTableRules.SetFACTURAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PresupuestosClienteFACTURA].AsVariant := Null;
end;
function TPresupuestosClienteDataTableRules.GetPERSONA_CONTACTOValue: String;
begin
result := DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].AsString;

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

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosPresupuestosDelta = '{52C49635-F38B-4B6E-B3D1-79EF81B7D611}';
RID_PresupuestosClienteDelta = '{779086A7-A3B9-42A6-A854-7AA3661376B9}';
RID_PresupuestosCliente_DetallesDelta = '{D21AC7F0-E4A5-48D5-8165-2CF2EEBFA6D6}';
RID_ListaAnosPresupuestosDelta = '{016A4229-E5D0-49BF-95B2-B0D2202975FF}';
RID_PresupuestosClienteDelta = '{883ECB54-1EFD-49B9-86AD-BAC66B8C72B8}';
RID_PresupuestosCliente_DetallesDelta = '{7FC6F73A-E858-43F9-8F1E-9907EE547F26}';
type
{ IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{52C49635-F38B-4B6E-B3D1-79EF81B7D611}']
['{016A4229-E5D0-49BF-95B2-B0D2202975FF}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{779086A7-A3B9-42A6-A854-7AA3661376B9}']
['{883ECB54-1EFD-49B9-86AD-BAC66B8C72B8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -82,8 +82,6 @@ type
function GetOldIMPORTE_IVAValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldID_FACTURAValue : Integer;
function GetOldFACTURAValue : String;
function GetOldPERSONA_CONTACTOValue : String;
function GetOldDESCRIPCION_BONIFICACIONValue : String;
function GetOldIMPORTE_BONIFICACIONValue : Currency;
@ -120,8 +118,6 @@ type
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldFACTURA : String read GetOldFACTURAValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldDESCRIPCION_BONIFICACION : String read GetOldDESCRIPCION_BONIFICACIONValue;
property OldIMPORTE_BONIFICACION : Currency read GetOldIMPORTE_BONIFICACIONValue;
@ -317,18 +313,6 @@ type
function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetID_FACTURAValue: Integer; virtual;
function GetID_FACTURAIsNull: Boolean; virtual;
function GetOldID_FACTURAValue: Integer; virtual;
function GetOldID_FACTURAIsNull: Boolean; virtual;
procedure SetID_FACTURAValue(const aValue: Integer); virtual;
procedure SetID_FACTURAIsNull(const aValue: Boolean); virtual;
function GetFACTURAValue: String; virtual;
function GetFACTURAIsNull: Boolean; virtual;
function GetOldFACTURAValue: String; virtual;
function GetOldFACTURAIsNull: Boolean; virtual;
procedure SetFACTURAValue(const aValue: String); virtual;
procedure SetFACTURAIsNull(const aValue: Boolean); virtual;
function GetPERSONA_CONTACTOValue: String; virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
function GetOldPERSONA_CONTACTOValue: String; virtual;
@ -475,14 +459,6 @@ type
property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
property ID_FACTURA : Integer read GetID_FACTURAValue write SetID_FACTURAValue;
property ID_FACTURAIsNull : Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldID_FACTURAIsNull : Boolean read GetOldID_FACTURAIsNull;
property FACTURA : String read GetFACTURAValue write SetFACTURAValue;
property FACTURAIsNull : Boolean read GetFACTURAIsNull write SetFACTURAIsNull;
property OldFACTURA : String read GetOldFACTURAValue;
property OldFACTURAIsNull : Boolean read GetOldFACTURAIsNull;
property PERSONA_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
@ -508,7 +484,7 @@ type
{ IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{D21AC7F0-E4A5-48D5-8165-2CF2EEBFA6D6}']
['{7FC6F73A-E858-43F9-8F1E-9907EE547F26}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer;
@ -1723,68 +1699,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FORMA_PAGO] := Null;
end;
function TPresupuestosClienteBusinessProcessorRules.GetID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FACTURA];
end;
function TPresupuestosClienteBusinessProcessorRules.GetID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FACTURA]);
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldID_FACTURAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_FACTURA];
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldID_FACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_FACTURA]);
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetID_FACTURAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FACTURA] := aValue;
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetID_FACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FACTURA] := Null;
end;
function TPresupuestosClienteBusinessProcessorRules.GetFACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFACTURA];
end;
function TPresupuestosClienteBusinessProcessorRules.GetFACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFACTURA]);
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldFACTURAValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFACTURA];
end;
function TPresupuestosClienteBusinessProcessorRules.GetOldFACTURAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteFACTURA]);
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetFACTURAValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFACTURA] := aValue;
end;
procedure TPresupuestosClienteBusinessProcessorRules.SetFACTURAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteFACTURA] := Null;
end;
function TPresupuestosClienteBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO];

16
Source/Modulos/Presupuestos de cliente/PresupuestosCliente_Group.groupproj
View File

@ -17,6 +17,7 @@
<Projects Include="..\Contactos\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de cliente\Plugin\FacturasCliente_plugin.dproj" />
<Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" />
<Projects Include="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" />
@ -261,14 +262,23 @@
<Target Name="Articulos_model:Make">
<MSBuild Projects="..\Articulos\Model\Articulos_model.dproj" Targets="Make" />
</Target>
<Target Name="FacturasCliente_plugin">
<MSBuild Projects="..\Facturas de cliente\Plugin\FacturasCliente_plugin.dproj" Targets="" />
</Target>
<Target Name="FacturasCliente_plugin:Clean">
<MSBuild Projects="..\Facturas de cliente\Plugin\FacturasCliente_plugin.dproj" Targets="Clean" />
</Target>
<Target Name="FacturasCliente_plugin:Make">
<MSBuild Projects="..\Facturas de cliente\Plugin\FacturasCliente_plugin.dproj" Targets="Make" />
</Target>
<Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;PreCli_FacCli_relation;PreCli_AlbCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;GestorInformes_view;PedidosProveedor_view;Articulos_model" />
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_data;Articulos_controller;Articulos_view;PresupuestosCliente_model;PresupuestosCliente_data;GestorDocumentos_data;GestorDocumentos_controller;PresupuestosCliente_controller;PreCli_FacCli_relation;PreCli_AlbCli_relation;PresupuestosCliente_view;PresupuestosCliente_plugin;FactuGES;FactuGES_Server;FacturasCliente_view;GestorInformes_view;PedidosProveedor_view;Articulos_model;FacturasCliente_plugin" />
</Target>
<Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;PreCli_FacCli_relation:Clean;PreCli_AlbCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;GestorInformes_view:Clean;PedidosProveedor_view:Clean;Articulos_model:Clean" />
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PresupuestosCliente_model:Clean;PresupuestosCliente_data:Clean;GestorDocumentos_data:Clean;GestorDocumentos_controller:Clean;PresupuestosCliente_controller:Clean;PreCli_FacCli_relation:Clean;PreCli_AlbCli_relation:Clean;PresupuestosCliente_view:Clean;PresupuestosCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;FacturasCliente_view:Clean;GestorInformes_view:Clean;PedidosProveedor_view:Clean;Articulos_model:Clean;FacturasCliente_plugin:Clean" />
</Target>
<Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;PreCli_FacCli_relation:Make;PreCli_AlbCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;GestorInformes_view:Make;PedidosProveedor_view:Make;Articulos_model:Make" />
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PresupuestosCliente_model:Make;PresupuestosCliente_data:Make;GestorDocumentos_data:Make;GestorDocumentos_controller:Make;PresupuestosCliente_controller:Make;PreCli_FacCli_relation:Make;PreCli_AlbCli_relation:Make;PresupuestosCliente_view:Make;PresupuestosCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;FacturasCliente_view:Make;GestorInformes_view:Make;PedidosProveedor_view:Make;Articulos_model:Make;FacturasCliente_plugin:Make" />
</Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project>

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

@ -163,14 +163,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'FACTURA'
TableField = 'FACTURA'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
@ -356,15 +348,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datInteger
DictionaryEntry = 'PresupuestosCliente_ID_FORMA_PAGO'
end
item
Name = 'ID_FACTURA'
DataType = datInteger
end
item
Name = 'FACTURA'
DataType = datString
Size = 255
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
@ -702,11 +685,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datInteger
Value = ''
end
item
Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
@ -741,17 +719,17 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'E_FINAL, PORTADA, MEMORIA, OBSERVACIONES, INCIDENCIAS, '#10' INC' +
'IDENCIAS_ACTIVAS, FECHA_ALTA,'#10' USUARIO, IMPORTE_NETO, IMPORT' +
'E_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA' +
', IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO, ID_FACTURA,'#10' PE' +
'RSONA_CONTACTO, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION, ' +
'CERTIFICADO_ISO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUE' +
'STO, :FECHA_DECISION, :REFERENCIA,'#10' :REFERENCIA_AUX, :SITUAC' +
'ION, :ID_CLIENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10' :CLIE' +
'NTE_FINAL, :PORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIA' +
'S, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPO' +
'RTE_NETO, :IMPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENTO, ' +
':BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :ID_F' +
'ORMA_PAGO, :ID_FACTURA, :PERSONA_CONTACTO,'#10' :DESCRIPCION_BON' +
'IFICACION, :IMPORTE_BONIFICACION, :CERTIFICADO_ISO)'#10
', IMPORTE_IVA, IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' PERSONA_CONTAC' +
'TO, DESCRIPCION_BONIFICACION, IMPORTE_BONIFICACION, CERTIFICADO_' +
'ISO)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_PRESUPUESTO, :FECHA_' +
'DECISION, :REFERENCIA,'#10' :REFERENCIA_AUX, :SITUACION, :ID_CLI' +
'ENTE, :ID_DIRECCION, :REFERENCIA_CLIENTE,'#10' :CLIENTE_FINAL, :' +
'PORTADA, :MEMORIA, :OBSERVACIONES, '#10' :INCIDENCIAS, :INCIDENC' +
'IAS_ACTIVAS, CURRENT_TIMESTAMP,'#10' :USUARIO, :IMPORTE_NETO, :I' +
'MPORTE_PORTE, :DESCUENTO, '#10' :IMPORTE_DESCUENTO, :BASE_IMPONI' +
'BLE, :IVA, :IMPORTE_IVA, '#10' :IMPORTE_TOTAL, :ID_FORMA_PAGO, :' +
'PERSONA_CONTACTO,'#10' :DESCRIPCION_BONIFICACION, :IMPORTE_BONIF' +
'ICACION, :CERTIFICADO_ISO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -915,11 +893,6 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
DataType = datInteger
Value = ''
end
item
Name = 'ID_FACTURA'
DataType = datInteger
Value = ''
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
@ -967,10 +940,10 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
'TO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, ' +
#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_T' +
'OTAL = :IMPORTE_TOTAL, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ' +
'ID_FACTURA = :ID_FACTURA,'#10' PERSONA_CONTACTO = :PERSONA_CONTAC' +
'TO,'#10' DESCRIPCION_BONIFICACION = :DESCRIPCION_BONIFICACION,'#10' ' +
' IMPORTE_BONIFICACION = :IMPORTE_BONIFICACION,'#10' CERTIFICADO_' +
'ISO = :CERTIFICADO_ISO'#10' WHERE'#10' (ID = :OLD_ID)'#10
'PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' DESCRIPCION_BONIFICACI' +
'ON = :DESCRIPCION_BONIFICACION,'#10' IMPORTE_BONIFICACION = :IMPO' +
'RTE_BONIFICACION,'#10' CERTIFICADO_ISO = :CERTIFICADO_ISO'#10' WHERE' +
#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>

12
Source/Modulos/Presupuestos de cliente/Views/uEditorElegirPresupuestosCliente.dfm
View File

@ -1,5 +1,5 @@
inherited fEditorElegirPresupuestosCliente: TfEditorElegirPresupuestosCliente
Caption = 'Seleccionar pedido de cliente'
Caption = 'Seleccionar presupuesto de cliente'
ClientWidth = 656
ExplicitWidth = 664
ExplicitHeight = 538
@ -9,8 +9,7 @@ inherited fEditorElegirPresupuestosCliente: TfEditorElegirPresupuestosCliente
Top = 139
Width = 656
Visible = False
ExplicitLeft = 8
ExplicitTop = 232
ExplicitTop = 139
ExplicitWidth = 656
inherited Image1: TImage
Left = 629
@ -20,7 +19,7 @@ inherited fEditorElegirPresupuestosCliente: TfEditorElegirPresupuestosCliente
inherited TBXDock: TTBXDock
Top = 64
Width = 656
ExplicitTop = 91
ExplicitTop = 64
ExplicitWidth = 656
inherited tbxMain: TTBXToolbar
Left = 427
@ -82,7 +81,6 @@ inherited fEditorElegirPresupuestosCliente: TfEditorElegirPresupuestosCliente
Padding.Bottom = 8
ParentBackground = False
TabOrder = 4
ExplicitTop = 27
object lblTitle: TLabel
AlignWithMargins = True
Left = 25
@ -94,14 +92,14 @@ inherited fEditorElegirPresupuestosCliente: TfEditorElegirPresupuestosCliente
Margins.Right = 0
Margins.Bottom = 8
Align = alTop
Caption = 'Seleccione el pedido de cliente'
Caption = 'Seleccione el presupuesto de cliente'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
ExplicitWidth = 172
ExplicitWidth = 205
end
object lblComments: TLabel
AlignWithMargins = True

12
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
View File

@ -186,6 +186,12 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Action = actGenerarFactura
DisplayMode = nbdmImageAndText
end
object TBXItem48: TTBXItem
Action = actVerFacturasRelacionadas
DisplayMode = nbdmImageAndText
end
object TBXSeparatorItem19: TTBXSeparatorItem
end
object TBXItem46: TTBXItem
Action = actInformes
end
@ -251,6 +257,12 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
Caption = 'Informes'
OnExecute = actInformesExecute
end
object actVerFacturasRelacionadas: TAction
Category = 'Acciones'
Caption = 'Ver facturas relacionadas'
ImageIndex = 24
OnExecute = actVerFacturasRelacionadasExecute
end
end
inherited SmallImages: TPngImageList
PngImages = <

13
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
View File

@ -46,6 +46,9 @@ type
TBXItem46: TTBXItem;
JSInformesDialog: TJSDialog;
TBXItem47: TTBXItem;
actVerFacturasRelacionadas: TAction;
TBXSeparatorItem19: TTBXSeparatorItem;
TBXItem48: TTBXItem;
procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
@ -63,6 +66,7 @@ type
procedure actEnviarEMailUpdate(Sender: TObject);
procedure actInformesExecute(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
procedure actVerFacturasRelacionadasExecute(Sender: TObject);
protected
FPresupuestos: IBizPresupuestoCliente;
@ -348,7 +352,7 @@ begin
inherited;
(Sender as TAction).Enabled := HayDatos
and not (ViewGrid.NumSeleccionados > 1)
and (FPresupuestos.FACTURA = '')
// and (FPresupuestos.FACTURA = '')
and ViewGrid.esSeleccionCeldaDatos
and (FPresupuestos.SITUACION = SITUACION_PRESUPUESTO_ACEPTADO);
end;
@ -384,6 +388,13 @@ begin
end;
end;
procedure TfEditorPresupuestosCliente.actVerFacturasRelacionadasExecute(
Sender: TObject);
begin
inherited;
FController.VerFacturasDePresupuesto(Presupuestos);
end;
procedure TfEditorPresupuestosCliente.AsignarVista;
begin
ViewGrid := CreateView(TfrViewPresupuestosCliente) as IViewPresupuestosCliente;

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

@ -136,13 +136,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
HeaderAlignmentHorz = taRightJustify
Width = 63
end
object cxGridViewFACTURA: TcxGridDBColumn
Caption = 'Ref. factura'
DataBinding.FieldName = 'FACTURA'
Visible = False
BestFitMaxWidth = 25
Width = 25
end
end
object cxGridDBTableView1: TcxGridDBTableView [1]
NavigatorButtons.ConfirmDelete = False
@ -188,37 +181,42 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Width = 285
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 292
Left = 249
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 292
ExplicitLeft = 249
ExplicitWidth = 504
Width = 504
end
inherited eLista: TcxComboBox
Left = 750
Left = 645
Enabled = False
Properties.OnChange = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 750
ExplicitLeft = 645
ExplicitWidth = 215
Width = 215
end
inherited eLista2: TcxComboBox
Left = 833
Left = 776
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 833
ExplicitLeft = 776
ExplicitWidth = 207
Width = 207
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Con/Sin Factura:'
Visible = True
Enabled = False
end
inherited dxLayoutControl1Item5: TdxLayoutItem
Caption = 'ISO:'

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

@ -30,7 +30,6 @@ type
cxGridViewSITUACION: TcxGridDBColumn;
cxGridViewFECHA_PRESUPUESTO: TcxGridDBColumn;
cxGridViewCLIENTE_FINAL: TcxGridDBColumn;
cxGridViewFACTURA: TcxGridDBColumn;
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
cxGridLevelPendientes: TcxGridLevel;
cxGridLevelEnProceso: TcxGridLevel;
@ -81,7 +80,7 @@ type
//Filtros relativos a la vista
procedure AnadirFiltroSituaciones;
procedure AnadirFiltroFechas;
procedure AnadirFiltroFacturado;
// procedure AnadirFiltroFacturado;
procedure AnadirFiltroISO;
protected
@ -190,6 +189,7 @@ begin
end;
{
procedure TfrViewPresupuestosCliente.AnadirFiltroFacturado;
var
FFiltro : TcxFilterCriteriaItemList;
@ -213,6 +213,7 @@ begin
end;
end;
end;
}
procedure TfrViewPresupuestosCliente.AnadirFiltroSituaciones;
var
@ -233,7 +234,7 @@ begin
AnadirFiltroSituaciones;
AnadirFiltroFechas;
AnadirFiltroFacturado;
// AnadirFiltroFacturado;
AnadirFiltroISO;
//Finalmente activamos el filtro si tenemos algo

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

@ -284,13 +284,12 @@ begin
if not Assigned(APedidosProveedorController) then
Inicializar;
APedidos := APedidosProveedorController.ElegirPedidos(APedidosProveedorController.BuscarSinFacturar,
'Elija el pedido o pedidos de proveedor que desea utilizar para dar de alta la factura.'
+ #10#13 + 'Si elige Pedidos de proveedores diferentes se dará de alta una factura por cada uno de ellos.' , True);
APedidos := APedidosProveedorController.ElegirPedidos(APedidosProveedorController.BuscarTodos,
'Elija el pedido de proveedor que desea utilizar para dar de alta la factura.' , False);
if Assigned(APedidos) then
begin
if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los pedido/s seleccionados a sus facturas correspondientes?', [])) = IDYES) then
if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos del pedido seleccionado a su factura correspondiente?', [])) = IDYES) then
Result := GenerarFacturaProvPed(APedidos)
else
Result := GenerarFacturaProvPed(APedidos, False);
@ -346,6 +345,7 @@ begin
APedidosController.RecuperarProveedor(AListaPedidos);
AListaPedidos.Proveedor.DataTable.Active := True;
AFacturas.Proveedor := AListaPedidos.Proveedor;
AFacturas.ID_PEDIDO := AListaPedidos.ID;
AFacturaActual := AFacturas;
end;
@ -430,11 +430,12 @@ begin
// Guardo la factura que acabo de generar o editar
AFacturaActual.CalcularImporteTotal;
AFacturasProveedorController.Guardar(AFacturaActual);
// Asocio la factura con el presupuesto
AListaPedidos.Edit;
AListaPedidos.ID_FACTURA := AFacturaActual.ID;
AListaPedidos.Post;
APedidosController.Guardar(AListaPedidos);
// AListaPedidos.Edit;
// AListaPedidos.ID_FACTURA := AFacturaActual.ID;
// AListaPedidos.Post;
// APedidosController.Guardar(AListaPedidos);
AListaPedidos.Next;
end;

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

@ -199,13 +199,12 @@ begin
if not Assigned(APresupuestosClienteController) then
Inicializar;
APresupuestos := APresupuestosClienteController.ElegirPresupuestos(APresupuestosClienteController.BuscarSinFacturar,
'Elija el presupuesto o presupuestos de proveedor que desea utilizar para dar de alta la factura.'
+ #10#13 + 'Si elige presupuestos de proveedores diferentes se dará de alta una factura por cada uno de ellos.' , True);
APresupuestos := APresupuestosClienteController.ElegirPresupuestos(APresupuestosClienteController.BuscarAceptados,
'Elija el presupuesto de cliente que desea utilizar para dar de alta la factura.', False);
if Assigned(APresupuestos) then
begin
if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los presupuesto/s seleccionados a sus facturas correspondientes?', [])) = IDYES) then
if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos del presupuesto seleccionado a su factura correspondientes?', [])) = IDYES) then
Result := GenerarFacturaCliPre(APresupuestos)
else
Result := GenerarFacturaCliPre(APresupuestos, False);
@ -263,6 +262,7 @@ begin
AFacturasClienteController.Anadir(AFacturas);
APresupuestosController.RecuperarCliente(AListaPresupuestos);
AFacturas.Cliente := AListaPresupuestos.Cliente;
AFacturas.ID_PRESUPUESTO := AListaPresupuestos.ID;
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;
@ -348,11 +348,13 @@ begin
// Guardo la factura que acabo de generar o editar
AFacturaActual.CalcularImporteTotal;
AFacturasClienteController.Guardar(AFacturaActual);
//Se cambia la relación un presupuesto puede tener 1 o varias facturas, por lo que la factura será la que tenga el ID_PRESUPUESTO
// Asocio la factura con el presupuesto
AListaPresupuestos.Edit;
AListaPresupuestos.ID_FACTURA := AFacturaActual.ID;
AListaPresupuestos.Post;
APresupuestosController.Guardar(AListaPresupuestos);
// AListaPresupuestos.Edit;
// AListaPresupuestos.ID_FACTURA := AFacturaActual.ID;
// AListaPresupuestos.Post;
// APresupuestosController.Guardar(AListaPresupuestos);
AListaPresupuestos.Next;
end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

18
Source/Servidor/FactuGES_Server.dpr
View File

@ -113,8 +113,6 @@ uses
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule},
uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule},
schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
uRptAlbaranesProveedor_Server in '..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas' {RptAlbaranesProveedor: TDataModule},
uRptWordAlbaranProveedor in '..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas' {RptWordAlbaranProveedor: TDataModule},
MidasSpeedFix in 'Utiles\MidasSpeedFix.pas',
@ -126,16 +124,18 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
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';
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_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',
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';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.0.7.0\0"
VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.0.7.0\0"
VALUE "CompileDate", "viernes, 10 de octubre de 2014 12:57\0"
VALUE "CompileDate", "jueves, 05 de febrero de 2015 14:11\0"
END
END
BLOCK "VarFileInfo"