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_VENCIMIENTO DATE,
FECHA_RECEPCION DATE, FECHA_RECEPCION DATE,
RETENCION TIPO_PORCENTAJE, RETENCION TIPO_PORCENTAJE,
IMPORTE_RETENCION TIPO_IMPORTE IMPORTE_RETENCION TIPO_IMPORTE,
ID_PEDIDO TIPO_ID
); );
CREATE TABLE FACTURAS_PROVEEDOR_DETALLES ( CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
@ -1049,7 +1050,8 @@ CREATE TABLE PRESUPUESTOS_CLIENTE (
ID_DIRECCION TIPO_ID, ID_DIRECCION TIPO_ID,
DESCRIPCION_BONIFICACION VARCHAR(255) COLLATE ES_ES, DESCRIPCION_BONIFICACION VARCHAR(255) COLLATE ES_ES,
IMPORTE_BONIFICACION TIPO_IMPORTE, IMPORTE_BONIFICACION TIPO_IMPORTE,
CERTIFICADO_ISO TIPO_BOOLEANO CERTIFICADO_ISO TIPO_BOOLEANO,
ID_PRESUPUESTO TIPO_ID
); );
CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES ( CREATE TABLE PRESUPUESTOS_CLIENTE_DETALLES (
@ -2099,7 +2101,9 @@ CREATE VIEW V_FACTURAS_CLIENTE(
REFERENCIA_COMISION, REFERENCIA_COMISION,
RETENCION, RETENCION,
IMPORTE_RETENCION, IMPORTE_RETENCION,
CERTIFICADO_ISO) CERTIFICADO_ISO,
ID_PRESUPUESTO,
REFERENCIA_PRESUPUESTO)
AS AS
SELECT FACTURAS_CLIENTE.ID, SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA, FACTURAS_CLIENTE.ID_EMPRESA,
@ -2141,7 +2145,9 @@ SELECT FACTURAS_CLIENTE.ID,
COMISIONES_LIQUIDADAS.REFERENCIA, COMISIONES_LIQUIDADAS.REFERENCIA,
FACTURAS_CLIENTE.RETENCION, FACTURAS_CLIENTE.RETENCION,
FACTURAS_CLIENTE.IMPORTE_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 FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE LEFT JOIN FACTURAS_CLIENTE
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA) 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) ON (COMISIONES_LIQUIDADAS.ID = FACTURAS_CLIENTE.ID_COMISION_LIQUIDADA)
LEFT JOIN CLIENTES_DATOS LEFT JOIN CLIENTES_DATOS
ON (CLIENTES_DATOS.ID_CLIENTE = FACTURAS_CLIENTE.ID_CLIENTE) 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, ID_TIPO_IVA,
IMPORTE_NETO, IMPORTE_NETO,
IMPORTE_PORTE, IMPORTE_PORTE,
DATOS_BANCARIOS) DATOS_BANCARIOS,
RETENCION,
IMPORTE_RETENCION,
ID_PEDIDO,
REFERENCIA_PEDIDO)
AS AS
SELECT FACTURAS_PROVEEDOR.ID, SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_EMPRESA, FACTURAS_PROVEEDOR.ID_EMPRESA,
@ -2222,13 +2234,19 @@ SELECT FACTURAS_PROVEEDOR.ID,
FACTURAS_PROVEEDOR.ID_TIPO_IVA, FACTURAS_PROVEEDOR.ID_TIPO_IVA,
FACTURAS_PROVEEDOR.IMPORTE_NETO, FACTURAS_PROVEEDOR.IMPORTE_NETO,
FACTURAS_PROVEEDOR.IMPORTE_PORTE, 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 FROM V_FAC_PRO_SITUACION
LEFT JOIN FACTURAS_PROVEEDOR LEFT JOIN FACTURAS_PROVEEDOR
ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA) ON (FACTURAS_PROVEEDOR.ID = V_FAC_PRO_SITUACION.ID_FACTURA)
LEFT JOIN PROVEEDORES_DATOS LEFT JOIN PROVEEDORES_DATOS
ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR) ON (PROVEEDORES_DATOS.ID_PROVEEDOR = FACTURAS_PROVEEDOR.ID_PROVEEDOR)
; LEFT JOIN PEDIDOS_PROVEEDOR
ON (PEDIDOS_PROVEEDOR.ID = FACTURAS_PROVEEDOR.ID_PEDIDO);
@ -2944,7 +2962,7 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
ID, ID,
ID_EMPRESA, ID_EMPRESA,
ID_PROVEEDOR, ID_PROVEEDOR,
NOMBRE, NOMBRE,
ID_DIRECCION, ID_DIRECCION,
PERSONA_CONTACTO_PROV, PERSONA_CONTACTO_PROV,
REFERENCIA, REFERENCIA,
@ -2980,9 +2998,7 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
BASE_IMPONIBLE, BASE_IMPONIBLE,
IVA, IVA,
IMPORTE_IVA, IMPORTE_IVA,
ID_FORMA_PAGO, ID_FORMA_PAGO)
ID_FACTURA,
REF_FACTURA_PROV)
AS AS
SELECT SELECT
PEDIDOS_PROVEEDOR.ID, PEDIDOS_PROVEEDOR.ID,
@ -3024,9 +3040,7 @@ SELECT
PEDIDOS_PROVEEDOR.BASE_IMPONIBLE, PEDIDOS_PROVEEDOR.BASE_IMPONIBLE,
PEDIDOS_PROVEEDOR.IVA, PEDIDOS_PROVEEDOR.IVA,
PEDIDOS_PROVEEDOR.IMPORTE_IVA, PEDIDOS_PROVEEDOR.IMPORTE_IVA,
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO, PEDIDOS_PROVEEDOR.ID_FORMA_PAGO
PEDIDOS_PROVEEDOR.ID_FACTURA,
FACTURAS_PROVEEDOR.REFERENCIA
FROM FROM
PEDIDOS_PROVEEDOR PEDIDOS_PROVEEDOR
@ -3035,7 +3049,6 @@ FROM
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN) 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 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 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_IVA,
IMPORTE_TOTAL, IMPORTE_TOTAL,
ID_FORMA_PAGO, ID_FORMA_PAGO,
ID_FACTURA,
FACTURA,
PERSONA_CONTACTO, PERSONA_CONTACTO,
DESCRIPCION_BONIFICACION, DESCRIPCION_BONIFICACION,
IMPORTE_BONIFICACION, IMPORTE_BONIFICACION,
@ -3110,8 +3121,6 @@ SELECT
PRESUPUESTOS_CLIENTE.IMPORTE_IVA, PRESUPUESTOS_CLIENTE.IMPORTE_IVA,
PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL, PRESUPUESTOS_CLIENTE.IMPORTE_TOTAL,
PRESUPUESTOS_CLIENTE.ID_FORMA_PAGO, PRESUPUESTOS_CLIENTE.ID_FORMA_PAGO,
PRESUPUESTOS_CLIENTE.ID_FACTURA,
FACTURAS_CLIENTE.REFERENCIA,
PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO, PRESUPUESTOS_CLIENTE.PERSONA_CONTACTO,
PRESUPUESTOS_CLIENTE.DESCRIPCION_BONIFICACION, PRESUPUESTOS_CLIENTE.DESCRIPCION_BONIFICACION,
PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION, PRESUPUESTOS_CLIENTE.IMPORTE_BONIFICACION,
@ -3119,7 +3128,6 @@ SELECT
FROM FROM
PRESUPUESTOS_CLIENTE PRESUPUESTOS_CLIENTE
INNER JOIN CONTACTOS ON (CONTACTOS.ID = PRESUPUESTOS_CLIENTE.ID_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) IMCFacturasCliente = interface(IInterface)
['{DA2FEEA4-4B37-4510-9CE8-6223F9894DEE}'] ['{DA2FEEA4-4B37-4510-9CE8-6223F9894DEE}']
procedure VerFacturas(const ID_Cliente: Integer; procedure VerFacturas(const ID_Cliente: Integer; const ANombreCliente : String = '');
const ANombreCliente : String = ''); procedure VerFacturasPresupuesto(const ID_Presupuesto: Integer; const ARefPresupuesto : String = ''; const ANombreCliente : String = '');
end; end;
IMCRecibosCliente = interface(IInterface) IMCRecibosCliente = interface(IInterface)
@ -55,8 +55,8 @@ type
IMCFacturasProveedor = interface(IInterface) IMCFacturasProveedor = interface(IInterface)
['{8A48058F-490E-4BF4-9BBB-09654B66CEED}'] ['{8A48058F-490E-4BF4-9BBB-09654B66CEED}']
procedure VerFacturas(const ID_Proveedor: Integer; procedure VerFacturas(const ID_Proveedor: Integer; const ANombreProveedor : String = '');
const ANombreProveedor : String = ''); procedure VerFacturasDePedido(const ID_Pedido: Integer; const AReferencia : String = ''; const ANombreProveedor : String = '');
end; end;
IMCRecibosProveedor = interface(IInterface) IMCRecibosProveedor = interface(IInterface)

102
Source/Base/Base.dproj
View File

@ -54,58 +54,58 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\adortl.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\adortl.dcp" />
<DCCReference Include="..\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\cxExportD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxGridD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\cxGridD11.dcp" />
<DCCReference Include="..\cxIntl6D11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\cxIntl6D11.dcp" />
<DCCReference Include="..\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\cxPageControlD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\dbrtl.dcp" />
<DCCReference Include="..\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\dclIndyCore.dcp" />
<DCCReference Include="..\designide.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\dsnap.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\dxPSCoreD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\GUISDK_D11R.dcp" />
<DCCReference Include="..\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\IndyCore.dcp" />
<DCCReference Include="..\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\IndyProtocols.dcp" />
<DCCReference Include="..\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\IndySystem.dcp" />
<DCCReference Include="..\Jcl.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\JclVcl.dcp" />
<DCCReference Include="..\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\JSDialog100.dcp" />
<DCCReference Include="..\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\JvCmpD11R.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\JvCoreD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\JvDlgsD11R.dcp" />
<DCCReference Include="..\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\JvMMD11R.dcp" />
<DCCReference Include="..\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\JvNetD11R.dcp" />
<DCCReference Include="..\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\JvPageCompsD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\JvSystemD11R.dcp" />
<DCCReference Include="..\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\pckMD5.dcp" />
<DCCReference Include="..\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\pckUCDataConnector.dcp" />
<DCCReference Include="..\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\pckUserControl_RT.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\RemObjects_Indy_D11.dcp" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\rtl.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="..\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"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <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: IBizFacturaCliente; overload;
function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload; function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload;
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente; function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
function BuscarDePresupuesto(const AID_Presupuesto: Integer): IBizFacturaCliente;
procedure Ver(AFactura : IBizFacturaCliente); procedure Ver(AFactura : IBizFacturaCliente);
procedure VerTodos(AFacturas: IBizFacturaCliente; procedure VerTodos(AFacturas: IBizFacturaCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AVerModal : Boolean = False; const AWindowCaption: String = '';
@ -107,6 +108,7 @@ type
function BuscarTodos: IBizFacturaCliente; overload; function BuscarTodos: IBizFacturaCliente; overload;
function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload; function BuscarTodos(const AID_Cliente: Integer): IBizFacturaCliente; overload;
function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente; function BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
function BuscarDePresupuesto(const AID_Presupuesto: Integer): IBizFacturaCliente;
function Nuevo (withInsert: Boolean = True) : IBizFacturaCliente; function Nuevo (withInsert: Boolean = True) : IBizFacturaCliente;
procedure Ver(AFactura : IBizFacturaCliente); procedure Ver(AFactura : IBizFacturaCliente);
procedure VerTodos(AFacturas: IBizFacturaCliente; procedure VerTodos(AFacturas: IBizFacturaCliente;
@ -351,6 +353,29 @@ begin
FiltrarEmpresa(Result); FiltrarEmpresa(Result);
end; 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; function TFacturasClienteController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;

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

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

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

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{2BE0816C-FC37-48FE-821C-2E95BF7FE692}'; RID_ListaAnosFacturas = '{16572AF4-9D62-43E1-82BE-070FD956E657}';
RID_FacturasCliente = '{D5524FA0-4AEE-4B36-A0C4-C5FC20DA3080}'; RID_FacturasCliente = '{4F822E48-FDE7-401F-B607-FF5C03C42CFD}';
RID_FacturasCliente_Detalles = '{E3866D80-EDE0-4C5D-82A8-50B6970312D3}'; RID_FacturasCliente_Detalles = '{C830455C-688C-4B62-8104-24B21CD60BFD}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -66,6 +66,8 @@ const
fld_FacturasClienteRETENCION = 'RETENCION'; fld_FacturasClienteRETENCION = 'RETENCION';
fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION'; fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION';
fld_FacturasClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO'; fld_FacturasClienteCERTIFICADO_ISO = 'CERTIFICADO_ISO';
fld_FacturasClienteID_PRESUPUESTO = 'ID_PRESUPUESTO';
fld_FacturasClienteREFERENCIA_PRESUPUESTO = 'REFERENCIA_PRESUPUESTO';
{ FacturasCliente field indexes } { FacturasCliente field indexes }
idx_FacturasClienteID = 0; idx_FacturasClienteID = 0;
@ -109,6 +111,8 @@ const
idx_FacturasClienteRETENCION = 38; idx_FacturasClienteRETENCION = 38;
idx_FacturasClienteIMPORTE_RETENCION = 39; idx_FacturasClienteIMPORTE_RETENCION = 39;
idx_FacturasClienteCERTIFICADO_ISO = 40; idx_FacturasClienteCERTIFICADO_ISO = 40;
idx_FacturasClienteID_PRESUPUESTO = 41;
idx_FacturasClienteREFERENCIA_PRESUPUESTO = 42;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -147,7 +151,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{36AA5910-CD3F-4B7B-8E88-3FCD9B019983}'] ['{609E2895-4415-41C7-93B4-0273A1C0D906}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -182,7 +186,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{3CA669F5-C2C0-425D-A432-7CA926F1EF4D}'] ['{1098D2D9-46DC-453C-8DF2-A159BCDB5401}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -347,6 +351,14 @@ type
procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt);
function GetCERTIFICADO_ISOIsNull: Boolean; function GetCERTIFICADO_ISOIsNull: Boolean;
procedure SetCERTIFICADO_ISOIsNull(const aValue: 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 } { Properties }
@ -432,6 +444,10 @@ type
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue; property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull; 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; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
@ -604,6 +620,14 @@ type
procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual; procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual;
function GetCERTIFICADO_ISOIsNull: Boolean; virtual; function GetCERTIFICADO_ISOIsNull: Boolean; virtual;
procedure SetCERTIFICADO_ISOIsNull(const aValue: 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -688,6 +712,10 @@ type
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue; property CERTIFICADO_ISO: SmallInt read GetCERTIFICADO_ISOValue write SetCERTIFICADO_ISOValue;
property CERTIFICADO_ISOIsNull: Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull; 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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -697,7 +725,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{1B150346-57B9-49D8-8074-3E0886CCB78B}'] ['{33EBA6E5-6C58-408A-8673-6D46447E3B8F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1814,6 +1842,48 @@ begin
DataTable.Fields[idx_FacturasClienteCERTIFICADO_ISO].AsVariant := Null; DataTable.Fields[idx_FacturasClienteCERTIFICADO_ISO].AsVariant := Null;
end; 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 } { TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); 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 { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{5F59F46F-6D99-47EF-97B7-62E578F5EC77}'; RID_ListaAnosFacturasDelta = '{550EADCB-EE2C-4BA0-A501-40C59A395CE1}';
RID_FacturasClienteDelta = '{210A006E-9750-4D37-9655-232A93590F32}'; RID_FacturasClienteDelta = '{09E87A98-15E6-4D62-8E4E-91005D037D1D}';
RID_FacturasCliente_DetallesDelta = '{DBBBA305-DC20-44F9-BD34-E330F919C098}'; RID_FacturasCliente_DetallesDelta = '{3E85AA5C-FE35-452C-9A31-E85D8D57F742}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{5F59F46F-6D99-47EF-97B7-62E578F5EC77}'] ['{550EADCB-EE2C-4BA0-A501-40C59A395CE1}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{210A006E-9750-4D37-9655-232A93590F32}'] ['{09E87A98-15E6-4D62-8E4E-91005D037D1D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -93,6 +93,8 @@ type
function GetOldRETENCIONValue : Currency; function GetOldRETENCIONValue : Currency;
function GetOldIMPORTE_RETENCIONValue : Currency; function GetOldIMPORTE_RETENCIONValue : Currency;
function GetOldCERTIFICADO_ISOValue : SmallInt; function GetOldCERTIFICADO_ISOValue : SmallInt;
function GetOldID_PRESUPUESTOValue : Integer;
function GetOldREFERENCIA_PRESUPUESTOValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -136,6 +138,8 @@ type
property OldRETENCION : Currency read GetOldRETENCIONValue; property OldRETENCION : Currency read GetOldRETENCIONValue;
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue; property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue; property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
property OldID_PRESUPUESTO : Integer read GetOldID_PRESUPUESTOValue;
property OldREFERENCIA_PRESUPUESTO : String read GetOldREFERENCIA_PRESUPUESTOValue;
end; end;
{ TFacturasClienteBusinessProcessorRules } { TFacturasClienteBusinessProcessorRules }
@ -390,6 +394,18 @@ type
function GetOldCERTIFICADO_ISOIsNull: Boolean; virtual; function GetOldCERTIFICADO_ISOIsNull: Boolean; virtual;
procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual; procedure SetCERTIFICADO_ISOValue(const aValue: SmallInt); virtual;
procedure SetCERTIFICADO_ISOIsNull(const aValue: Boolean); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -556,6 +572,14 @@ type
property CERTIFICADO_ISOIsNull : Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull; property CERTIFICADO_ISOIsNull : Boolean read GetCERTIFICADO_ISOIsNull write SetCERTIFICADO_ISOIsNull;
property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue; property OldCERTIFICADO_ISO : SmallInt read GetOldCERTIFICADO_ISOValue;
property OldCERTIFICADO_ISOIsNull : Boolean read GetOldCERTIFICADO_ISOIsNull; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -565,7 +589,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{DBBBA305-DC20-44F9-BD34-E330F919C098}'] ['{3E85AA5C-FE35-452C-9A31-E85D8D57F742}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -2103,6 +2127,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCERTIFICADO_ISO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteCERTIFICADO_ISO] := Null;
end; 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 } { TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -20,8 +20,8 @@ type
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure VerFacturas(const ID_Cliente: Integer; procedure VerFacturas(const ID_Cliente: Integer; const ANombreCliente : String = '');
const ANombreCliente : String = ''); procedure VerFacturasPresupuesto(const ID_Presupuesto: Integer; const ARefPresupuesto : String = ''; const ANombreCliente : String = '');
end; end;
implementation implementation
@ -76,7 +76,7 @@ begin
try try
ShowHourglassCursor; ShowHourglassCursor;
try try
AFacturasCliente := AFacturasClienteController.BuscarTodos(ID_Cliente); AFacturasCliente := AFacturasClienteController.BuscarTodos(ID_Cliente);
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
@ -88,6 +88,28 @@ begin
end; 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 initialization
RegisterModuleClass(TPluginFacturasCliente); RegisterModuleClass(TPluginFacturasCliente);

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

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

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

@ -174,25 +174,35 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Width = 263 Width = 263
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 441 Left = 325
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 441 ExplicitLeft = 325
ExplicitWidth = 263 ExplicitWidth = 263
Width = 263 Width = 263
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 801 Left = 591
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 801 ExplicitLeft = 591
ExplicitWidth = 20 ExplicitWidth = 20
Width = 20 Width = 20
end 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 end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 842 Width = 842
@ -1904,12 +1914,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Default = True Default = True
end end
item item
Caption = 'Utilizar uno o m'#225's presupuestos de cliente.' Caption = 'Utilizar un presupuesto de cliente.'
Value = 200 Value = 200
Info.Strings = ( Info.Strings = (
'Puede utilizar uno o m'#225's presupuestos existentes para dar de alt' + 'Puede utilizar un presupuesto existente para dar de alta una fac' +
'a una factura nueva.') 'tura nueva.')
end end
item item
Caption = 'Utilizar uno o m'#225's albaranes de cliente.' 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} {$R *.dfm}
uses uses
uDataModuleClientes, Math, uCustomView, uBizContactosPersonal, uDialogUtils; uDataModuleClientes, Math, uCustomView, uBizContactosPersonal, uDialogUtils, uStringsUtils;
procedure TfrViewDatosYSeleccionClienteFacturaCliente.actElegirContactoExecute(Sender: TObject); procedure TfrViewDatosYSeleccionClienteFacturaCliente.actElegirContactoExecute(Sender: TObject);
@ -183,7 +183,12 @@ procedure TfrViewDatosYSeleccionClienteFacturaCliente.CopiarDireccionAFactura;
begin begin
FFactura.Edit; FFactura.Edit;
FFactura.ID_DIRECCION := FDireccion.ID; 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.POBLACION := FDireccion.POBLACION;
FFactura.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL; FFactura.CODIGO_POSTAL := FDireccion.CODIGO_POSTAL;
FFactura.PROVINCIA := FDireccion.PROVINCIA; FFactura.PROVINCIA := FDireccion.PROVINCIA;

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

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

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

@ -59,6 +59,7 @@ type
cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn; cxGridViewFECHA_VENCIMIENTO: TcxGridDBColumn;
cxGridViewIMPORTE_RETENCION: TcxGridDBColumn; cxGridViewIMPORTE_RETENCION: TcxGridDBColumn;
cxGridViewCERTIFICADO_ISO: TcxGridDBColumn; cxGridViewCERTIFICADO_ISO: TcxGridDBColumn;
cxGridViewREFERENCIA_PRESUPUESTO: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); 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 Buscar(const ID: Integer): IBizFacturaProveedor;
function BuscarTodos: IBizFacturaProveedor; overload; function BuscarTodos: IBizFacturaProveedor; overload;
function BuscarTodos(const ID_Proveedor : Integer): IBizFacturaProveedor; overload; function BuscarTodos(const ID_Proveedor : Integer): IBizFacturaProveedor; overload;
function BuscarTodosDelPedido(const ID_Pedido : Integer): IBizFacturaProveedor;
procedure Ver(AFactura : IBizFacturaProveedor); procedure Ver(AFactura : IBizFacturaProveedor);
procedure VerTodos(AFacturas: IBizFacturaProveedor; procedure VerTodos(AFacturas: IBizFacturaProveedor;
const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AVerModal : Boolean = False; const AWindowCaption: String = '';
@ -99,6 +100,7 @@ type
function Buscar(const ID: Integer): IBizFacturaProveedor; function Buscar(const ID: Integer): IBizFacturaProveedor;
function BuscarTodos: IBizFacturaProveedor; overload; function BuscarTodos: IBizFacturaProveedor; overload;
function BuscarTodos(const ID_Proveedor : Integer): 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 BuscarTodasPendientesComision(IdAgente: Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor;
function Nuevo (withInsert: Boolean = True): IBizFacturaProveedor; function Nuevo (withInsert: Boolean = True): IBizFacturaProveedor;
procedure Ver(AFactura : IBizFacturaProveedor); procedure Ver(AFactura : IBizFacturaProveedor);
@ -332,6 +334,31 @@ begin
end; end;
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 {REPASARRRRR
function TFacturasProveedorController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor; function TFacturasProveedorController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor;
begin begin

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

@ -119,20 +119,6 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Alignment = taRightJustify Alignment = taRightJustify
DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA' DictionaryEntry = 'FacturasProveedor_IMPORTE_IVA'
end 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 item
Name = 'RE' Name = 'RE'
DataType = datFloat DataType = datFloat
@ -260,6 +246,29 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
Size = 255 Size = 255
DisplayLabel = 'Datos bancarios' DisplayLabel = 'Datos bancarios'
DictionaryEntry = 'FacturasProveedor_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> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -113,6 +113,33 @@
<Target Name="FacturasProveedor_controller:Make"> <Target Name="FacturasProveedor_controller:Make">
<MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Make" /> <MSBuild Projects="Controller\FacturasProveedor_controller.dproj" Targets="Make" />
</Target> </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"> <Target Name="FacturasProveedor_view">
<MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" /> <MSBuild Projects="Views\FacturasProveedor_view.dproj" Targets="" />
</Target> </Target>
@ -149,15 +176,6 @@
<Target Name="FactuGES_Server:Make"> <Target Name="FactuGES_Server:Make">
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" /> <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
</Target> </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"> <Target Name="AlbaranesProveedor_view">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" /> <MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="" />
</Target> </Target>
@ -167,15 +185,6 @@
<Target Name="AlbaranesProveedor_view:Make"> <Target Name="AlbaranesProveedor_view:Make">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" /> <MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" />
</Target> </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"> <Target Name="PedidosProveedor_view">
<MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" /> <MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="" />
</Target> </Target>
@ -230,15 +239,6 @@
<Target Name="FacturasCliente_view:Make"> <Target Name="FacturasCliente_view:Make">
<MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" /> <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
</Target> </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"> <Target Name="PreCli_FacCli_relation">
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="" /> <MSBuild Projects="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" Targets="" />
</Target> </Target>
@ -312,13 +312,13 @@
<MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" /> <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="Build"> <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>
<Target Name="Clean"> <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>
<Target Name="Make"> <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> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

@ -9,10 +9,10 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{5BF20483-0987-4847-9C60-D1E2273B804C}'; RID_ListaAnosFacturas = '{E9EE20DB-5E81-4754-8072-2259CFFDA5B9}';
RID_FacturasProveedor = '{4DA50F35-8E3D-4026-87AC-0463785925E3}'; RID_FacturasProveedor = '{FDCFBE98-A97E-4BC5-B2F6-6197A7ABDCED}';
RID_FacturasProveedor_Detalles = '{6CB75F1D-81CB-406B-BC72-36935ABD0A7E}'; RID_FacturasProveedor_Detalles = '{8000B72B-B998-4E4E-BB59-F2A5618AB501}';
RID_FacturasProveedor_Pedidos = '{26EB0745-E499-4FE1-B52D-6AB1F550D0AE}'; RID_FacturasProveedor_Pedidos = '{46C74857-4162-4EFB-BC4F-F54929804ADE}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -41,8 +41,6 @@ const
fld_FacturasProveedorIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO'; fld_FacturasProveedorIMPORTE_DESCUENTO = 'IMPORTE_DESCUENTO';
fld_FacturasProveedorIVA = 'IVA'; fld_FacturasProveedorIVA = 'IVA';
fld_FacturasProveedorIMPORTE_IVA = 'IMPORTE_IVA'; fld_FacturasProveedorIMPORTE_IVA = 'IMPORTE_IVA';
fld_FacturasProveedorRETENCION = 'RETENCION';
fld_FacturasProveedorIMPORTE_RETENCION = 'IMPORTE_RETENCION';
fld_FacturasProveedorRE = 'RE'; fld_FacturasProveedorRE = 'RE';
fld_FacturasProveedorIMPORTE_RE = 'IMPORTE_RE'; fld_FacturasProveedorIMPORTE_RE = 'IMPORTE_RE';
fld_FacturasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_FacturasProveedorIMPORTE_TOTAL = 'IMPORTE_TOTAL';
@ -63,6 +61,10 @@ const
fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO'; fld_FacturasProveedorIMPORTE_NETO = 'IMPORTE_NETO';
fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE'; fld_FacturasProveedorIMPORTE_PORTE = 'IMPORTE_PORTE';
fld_FacturasProveedorDATOS_BANCARIOS = 'DATOS_BANCARIOS'; 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 } { FacturasProveedor field indexes }
idx_FacturasProveedorID = 0; idx_FacturasProveedorID = 0;
@ -79,28 +81,30 @@ const
idx_FacturasProveedorIMPORTE_DESCUENTO = 11; idx_FacturasProveedorIMPORTE_DESCUENTO = 11;
idx_FacturasProveedorIVA = 12; idx_FacturasProveedorIVA = 12;
idx_FacturasProveedorIMPORTE_IVA = 13; idx_FacturasProveedorIMPORTE_IVA = 13;
idx_FacturasProveedorRETENCION = 14; idx_FacturasProveedorRE = 14;
idx_FacturasProveedorIMPORTE_RETENCION = 15; idx_FacturasProveedorIMPORTE_RE = 15;
idx_FacturasProveedorRE = 16; idx_FacturasProveedorIMPORTE_TOTAL = 16;
idx_FacturasProveedorIMPORTE_RE = 17; idx_FacturasProveedorOBSERVACIONES = 17;
idx_FacturasProveedorIMPORTE_TOTAL = 18; idx_FacturasProveedorID_PROVEEDOR = 18;
idx_FacturasProveedorOBSERVACIONES = 19; idx_FacturasProveedorNIF_CIF = 19;
idx_FacturasProveedorID_PROVEEDOR = 20; idx_FacturasProveedorNOMBRE = 20;
idx_FacturasProveedorNIF_CIF = 21; idx_FacturasProveedorCALLE = 21;
idx_FacturasProveedorNOMBRE = 22; idx_FacturasProveedorPOBLACION = 22;
idx_FacturasProveedorCALLE = 23; idx_FacturasProveedorPROVINCIA = 23;
idx_FacturasProveedorPOBLACION = 24; idx_FacturasProveedorCODIGO_POSTAL = 24;
idx_FacturasProveedorPROVINCIA = 25; idx_FacturasProveedorFECHA_ALTA = 25;
idx_FacturasProveedorCODIGO_POSTAL = 26; idx_FacturasProveedorFECHA_MODIFICACION = 26;
idx_FacturasProveedorFECHA_ALTA = 27; idx_FacturasProveedorUSUARIO = 27;
idx_FacturasProveedorFECHA_MODIFICACION = 28; idx_FacturasProveedorID_FORMA_PAGO = 28;
idx_FacturasProveedorUSUARIO = 29; idx_FacturasProveedorRECARGO_EQUIVALENCIA = 29;
idx_FacturasProveedorID_FORMA_PAGO = 30; idx_FacturasProveedorID_TIPO_IVA = 30;
idx_FacturasProveedorRECARGO_EQUIVALENCIA = 31; idx_FacturasProveedorIMPORTE_NETO = 31;
idx_FacturasProveedorID_TIPO_IVA = 32; idx_FacturasProveedorIMPORTE_PORTE = 32;
idx_FacturasProveedorIMPORTE_NETO = 33; idx_FacturasProveedorDATOS_BANCARIOS = 33;
idx_FacturasProveedorIMPORTE_PORTE = 34; idx_FacturasProveedorRETENCION = 34;
idx_FacturasProveedorDATOS_BANCARIOS = 35; idx_FacturasProveedorIMPORTE_RETENCION = 35;
idx_FacturasProveedorID_PEDIDO = 36;
idx_FacturasProveedorREFERENCIA_PEDIDO = 37;
{ FacturasProveedor_Detalles fields } { FacturasProveedor_Detalles fields }
fld_FacturasProveedor_DetallesID_TIPO_IVA = 'ID_TIPO_IVA'; fld_FacturasProveedor_DetallesID_TIPO_IVA = 'ID_TIPO_IVA';
@ -165,7 +169,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{FA78624A-FCC5-43A8-A8F2-902DBC3D2F55}'] ['{4238D296-7C17-4CD5-B1E9-710EB08649AF}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -200,7 +204,7 @@ type
{ IFacturasProveedor } { IFacturasProveedor }
IFacturasProveedor = interface(IDAStronglyTypedDataTable) IFacturasProveedor = interface(IDAStronglyTypedDataTable)
['{EAAE2560-477C-4DFD-8683-2F20B4030377}'] ['{E9F4EBE9-292E-4C00-B3AA-02A66888F93D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -258,14 +262,6 @@ type
procedure SetIMPORTE_IVAValue(const aValue: Currency); procedure SetIMPORTE_IVAValue(const aValue: Currency);
function GetIMPORTE_IVAIsNull: Boolean; function GetIMPORTE_IVAIsNull: Boolean;
procedure SetIMPORTE_IVAIsNull(const aValue: 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; function GetREValue: Float;
procedure SetREValue(const aValue: Float); procedure SetREValue(const aValue: Float);
function GetREIsNull: Boolean; function GetREIsNull: Boolean;
@ -345,6 +341,22 @@ type
procedure SetDATOS_BANCARIOSValue(const aValue: String); procedure SetDATOS_BANCARIOSValue(const aValue: String);
function GetDATOS_BANCARIOSIsNull: Boolean; function GetDATOS_BANCARIOSIsNull: Boolean;
procedure SetDATOS_BANCARIOSIsNull(const aValue: 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 } { Properties }
@ -376,10 +388,6 @@ type
property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; 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 RE: Float read GetREValue write SetREValue;
property REIsNull: Boolean read GetREIsNull write SetREIsNull; property REIsNull: Boolean read GetREIsNull write SetREIsNull;
property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue; 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 IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; 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; end;
{ TFacturasProveedorDataTableRules } { TFacturasProveedorDataTableRules }
@ -485,14 +501,6 @@ type
procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
function GetIMPORTE_IVAIsNull: Boolean; virtual; function GetIMPORTE_IVAIsNull: Boolean; virtual;
procedure SetIMPORTE_IVAIsNull(const aValue: 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; function GetREValue: Float; virtual;
procedure SetREValue(const aValue: Float); virtual; procedure SetREValue(const aValue: Float); virtual;
function GetREIsNull: Boolean; virtual; function GetREIsNull: Boolean; virtual;
@ -572,6 +580,22 @@ type
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
function GetDATOS_BANCARIOSIsNull: Boolean; virtual; function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -602,10 +626,6 @@ type
property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull; property IVAIsNull: Boolean read GetIVAIsNull write SetIVAIsNull;
property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue; property IMPORTE_IVA: Currency read GetIMPORTE_IVAValue write SetIMPORTE_IVAValue;
property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; 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 RE: Float read GetREValue write SetREValue;
property REIsNull: Boolean read GetREIsNull write SetREIsNull; property REIsNull: Boolean read GetREIsNull write SetREIsNull;
property IMPORTE_RE: Currency read GetIMPORTE_REValue write SetIMPORTE_REValue; 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 IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue; property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; 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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -655,7 +683,7 @@ type
{ IFacturasProveedor_Detalles } { IFacturasProveedor_Detalles }
IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{E6999FBD-4DDF-4EE7-8FB5-B942CC4E32B4}'] ['{FA4B068B-A429-43C6-8743-CEFD15E11814}']
{ Property getters and setters } { Property getters and setters }
function GetID_TIPO_IVAValue: Integer; function GetID_TIPO_IVAValue: Integer;
procedure SetID_TIPO_IVAValue(const aValue: Integer); procedure SetID_TIPO_IVAValue(const aValue: Integer);
@ -906,7 +934,7 @@ type
{ IFacturasProveedor_Pedidos } { IFacturasProveedor_Pedidos }
IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable) IFacturasProveedor_Pedidos = interface(IDAStronglyTypedDataTable)
['{EC1CFD23-1D05-4E2F-B8E8-23E3A096F755}'] ['{4B4D9EA0-EA24-4CBA-91CA-FDAD7FF943DF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1364,48 +1392,6 @@ begin
DataTable.Fields[idx_FacturasProveedorIMPORTE_IVA].AsVariant := Null; DataTable.Fields[idx_FacturasProveedorIMPORTE_IVA].AsVariant := Null;
end; 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; function TFacturasProveedorDataTableRules.GetREValue: Float;
begin begin
result := DataTable.Fields[idx_FacturasProveedorRE].AsFloat; result := DataTable.Fields[idx_FacturasProveedorRE].AsFloat;
@ -1822,6 +1808,90 @@ begin
DataTable.Fields[idx_FacturasProveedorDATOS_BANCARIOS].AsVariant := Null; DataTable.Fields[idx_FacturasProveedorDATOS_BANCARIOS].AsVariant := Null;
end; 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 } { TFacturasProveedor_DetallesDataTableRules }
constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); 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 { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{B700EE7C-8AB3-431C-9FA7-A6079A789D81}'; RID_ListaAnosFacturasDelta = '{B90583D3-FF94-483B-A62D-3936AA039340}';
RID_FacturasProveedorDelta = '{CF80EDF3-AF67-4435-91F0-083105B1A702}'; RID_FacturasProveedorDelta = '{79DD3FEF-946E-4381-9AFD-B131A243967D}';
RID_FacturasProveedor_DetallesDelta = '{A9EE3D34-89F5-48E3-80EB-286EDCE922A2}'; RID_FacturasProveedor_DetallesDelta = '{952E64EA-AAE5-4E2A-9182-C3C3A478327A}';
RID_FacturasProveedor_PedidosDelta = '{4F861C80-9436-4371-9127-530175C91776}'; RID_FacturasProveedor_PedidosDelta = '{80A1DCB5-2D75-4F33-93B6-AD1A79601ABD}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{B700EE7C-8AB3-431C-9FA7-A6079A789D81}'] ['{B90583D3-FF94-483B-A62D-3936AA039340}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IFacturasProveedorDelta } { IFacturasProveedorDelta }
IFacturasProveedorDelta = interface(IFacturasProveedor) IFacturasProveedorDelta = interface(IFacturasProveedor)
['{CF80EDF3-AF67-4435-91F0-083105B1A702}'] ['{79DD3FEF-946E-4381-9AFD-B131A243967D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -67,8 +67,6 @@ type
function GetOldIMPORTE_DESCUENTOValue : Currency; function GetOldIMPORTE_DESCUENTOValue : Currency;
function GetOldIVAValue : Float; function GetOldIVAValue : Float;
function GetOldIMPORTE_IVAValue : Currency; function GetOldIMPORTE_IVAValue : Currency;
function GetOldRETENCIONValue : Float;
function GetOldIMPORTE_RETENCIONValue : Currency;
function GetOldREValue : Float; function GetOldREValue : Float;
function GetOldIMPORTE_REValue : Currency; function GetOldIMPORTE_REValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
@ -89,6 +87,10 @@ type
function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_NETOValue : Currency;
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
function GetOldDATOS_BANCARIOSValue : String; function GetOldDATOS_BANCARIOSValue : String;
function GetOldRETENCIONValue : Float;
function GetOldIMPORTE_RETENCIONValue : Currency;
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIA_PEDIDOValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -105,8 +107,6 @@ type
property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue; property OldIMPORTE_DESCUENTO : Currency read GetOldIMPORTE_DESCUENTOValue;
property OldIVA : Float read GetOldIVAValue; property OldIVA : Float read GetOldIVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; 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 OldRE : Float read GetOldREValue;
property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue; property OldIMPORTE_RE : Currency read GetOldIMPORTE_REValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
@ -127,6 +127,10 @@ type
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; 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; end;
{ TFacturasProveedorBusinessProcessorRules } { TFacturasProveedorBusinessProcessorRules }
@ -220,18 +224,6 @@ type
function GetOldIMPORTE_IVAIsNull: Boolean; virtual; function GetOldIMPORTE_IVAIsNull: Boolean; virtual;
procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual; procedure SetIMPORTE_IVAValue(const aValue: Currency); virtual;
procedure SetIMPORTE_IVAIsNull(const aValue: Boolean); 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 GetREValue: Float; virtual;
function GetREIsNull: Boolean; virtual; function GetREIsNull: Boolean; virtual;
function GetOldREValue: Float; virtual; function GetOldREValue: Float; virtual;
@ -351,6 +343,30 @@ type
function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual; function GetOldDATOS_BANCARIOSIsNull: Boolean; virtual;
procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual; procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -409,14 +425,6 @@ type
property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; property IMPORTE_IVAIsNull : Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldIMPORTE_IVAIsNull : Boolean read GetOldIMPORTE_IVAIsNull; 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 RE : Float read GetREValue write SetREValue;
property REIsNull : Boolean read GetREIsNull write SetREIsNull; property REIsNull : Boolean read GetREIsNull write SetREIsNull;
property OldRE : Float read GetOldREValue; property OldRE : Float read GetOldREValue;
@ -497,6 +505,22 @@ type
property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull; property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue; property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
property OldDATOS_BANCARIOSIsNull : Boolean read GetOldDATOS_BANCARIOSIsNull; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -506,7 +530,7 @@ type
{ IFacturasProveedor_DetallesDelta } { IFacturasProveedor_DetallesDelta }
IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles) IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
['{A9EE3D34-89F5-48E3-80EB-286EDCE922A2}'] ['{952E64EA-AAE5-4E2A-9182-C3C3A478327A}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_TIPO_IVAValue : Integer; function GetOldID_TIPO_IVAValue : Integer;
function GetOldIVAValue : Float; function GetOldIVAValue : Float;
@ -756,7 +780,7 @@ type
{ IFacturasProveedor_PedidosDelta } { IFacturasProveedor_PedidosDelta }
IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos) IFacturasProveedor_PedidosDelta = interface(IFacturasProveedor_Pedidos)
['{4F861C80-9436-4371-9127-530175C91776}'] ['{80A1DCB5-2D75-4F33-93B6-AD1A79601ABD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1364,68 +1388,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_IVA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorIMPORTE_IVA] := Null;
end; 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; function TFacturasProveedorBusinessProcessorRules.GetREValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorRE];
@ -2043,6 +2005,130 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDATOS_BANCARIOS] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorDATOS_BANCARIOS] := Null;
end; 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 } { TFacturasProveedor_DetallesBusinessProcessorRules }
constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -20,8 +20,8 @@ type
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure VerFacturas(const ID_Proveedor: Integer; procedure VerFacturas(const ID_Proveedor: Integer; const ANombreProveedor : String = '');
const ANombreProveedor : String = ''); procedure VerFacturasDePedido(const ID_Pedido: Integer; const AReferencia : String = ''; const ANombreProveedor : String = '');
end; end;
implementation implementation
@ -88,6 +88,29 @@ begin
end; end;
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 initialization
RegisterModuleClass(TPluginFacturasProveedor); RegisterModuleClass(TPluginFacturasProveedor);

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

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

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

@ -173,25 +173,35 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Width = 282 Width = 282
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 386 Left = 249
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 386 ExplicitLeft = 249
ExplicitWidth = 453 ExplicitWidth = 453
Width = 453 Width = 453
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 876 Left = 562
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 876 ExplicitLeft = 562
ExplicitWidth = 215 ExplicitWidth = 215
Width = 215 Width = 215
end 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 end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 849 Width = 849
@ -1907,12 +1917,12 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor
Default = True Default = True
end end
item item
Caption = 'Utilizar uno o m'#225's pedidos de proveedor' Caption = 'Utilizar un pedido de proveedor'
Value = 200 Value = 200
Info.Strings = ( Info.Strings = (
'Puede utilizar uno o m'#225's albaranes existentes para dar de alta l' + 'Puede utilizar un pedido a proveedor existente para dar de alta ' +
'a factura nueva') 'la factura nueva')
end end
item item
Caption = 'Utilizar uno o m'#225's albaranes de proveedor.' 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 HeaderAlignmentHorz = taRightJustify
Width = 98 Width = 98
end end
object cxGridViewREFERENCIA_COMISION: TcxGridDBColumn object cxGridViewREFERENCIA_PEDIDO: TcxGridDBColumn
Caption = 'Liquidaci'#243'n' Caption = 'Ref. Pedido'
DataBinding.FieldName = 'REFERENCIA_COMISION' DataBinding.FieldName = 'REFERENCIA_PEDIDO'
Visible = False
end end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
@ -191,25 +190,35 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
Width = 229 Width = 229
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 230 Left = 179
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 230 ExplicitLeft = 179
ExplicitWidth = 188 ExplicitWidth = 188
Width = 188 Width = 188
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 388 Left = 304
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 388 ExplicitLeft = 304
ExplicitWidth = 215 ExplicitWidth = 215
Width = 215 Width = 215
end 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 end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 531 Width = 531

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

@ -45,7 +45,7 @@ type
cxGridParcial: TcxGridLevel; cxGridParcial: TcxGridLevel;
cxStyleAbono: TcxStyle; cxStyleAbono: TcxStyle;
cxGridPagadas: TcxGridLevel; cxGridPagadas: TcxGridLevel;
cxGridViewREFERENCIA_COMISION: TcxGridDBColumn; cxGridViewREFERENCIA_PEDIDO: TcxGridDBColumn;
cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn; cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
cxStylePendientes: TcxStyle; cxStylePendientes: TcxStyle;
cxStyleParciales: TcxStyle; cxStyleParciales: TcxStyle;
@ -195,7 +195,7 @@ procedure TfrViewFacturasProveedor.cxGridViewDataControllerCompare(
begin begin
inherited; inherited;
if ((AItemIndex = cxGridViewREFERENCIA.Index) or if ((AItemIndex = cxGridViewREFERENCIA.Index) or
(AItemIndex = cxGridViewREFERENCIA_COMISION.Index) or // (AItemIndex = cxGridViewREFERENCIA_COMISION.Index) or
(AItemIndex = cxGridViewREFERENCIA_PROVEEDOR.Index)) and (AItemIndex = cxGridViewREFERENCIA_PROVEEDOR.Index)) and
(VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then (VarType(V1) = VarType(V2)) and (VarType(V1) = varString) then
Compare := CompararReferencias(V1, V2) 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: IBizPedidoProveedor; overload;
function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload; function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload;
function BuscarPendientesRecepcion: IBizPedidoProveedor; function BuscarPendientesRecepcion: IBizPedidoProveedor;
function BuscarSinFacturar : IBizPedidoProveedor; // function BuscarSinFacturar : IBizPedidoProveedor;
procedure Ver(APedido : IBizPedidoProveedor); procedure Ver(APedido : IBizPedidoProveedor);
procedure VerTodos(APedidos: IBizPedidoProveedor; procedure VerTodos(APedidos: IBizPedidoProveedor;
const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = ''); const AHeaderText: String = '');
procedure VerFacturasDePedido(APedido : IBizPedidoProveedor);
procedure VerDireccionEntrega(APedido : IBizPedidoProveedor); procedure VerDireccionEntrega(APedido : IBizPedidoProveedor);
function Nuevo : IBizPedidoProveedor; function Nuevo : IBizPedidoProveedor;
procedure Anadir(APedido : IBizPedidoProveedor); procedure Anadir(APedido : IBizPedidoProveedor);
@ -110,13 +111,13 @@ type
function BuscarTodos: IBizPedidoProveedor; overload; function BuscarTodos: IBizPedidoProveedor; overload;
function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload; function BuscarTodos(const AID_Proveedor: Integer): IBizPedidoProveedor; overload;
function BuscarPendientesRecepcion: IBizPedidoProveedor; function BuscarPendientesRecepcion: IBizPedidoProveedor;
function BuscarSinFacturar : IBizPedidoProveedor; // function BuscarSinFacturar : IBizPedidoProveedor;
function Nuevo : IBizPedidoProveedor; function Nuevo : IBizPedidoProveedor;
procedure Ver(APedido : IBizPedidoProveedor); procedure Ver(APedido : IBizPedidoProveedor);
procedure VerTodos(APedidos: IBizPedidoProveedor; procedure VerTodos(APedidos: IBizPedidoProveedor;
const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = ''); const AHeaderText: String = '');
procedure VerFacturasDePedido(APedido : IBizPedidoProveedor);
procedure VerDireccionEntrega(APedido : IBizPedidoProveedor); procedure VerDireccionEntrega(APedido : IBizPedidoProveedor);
function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor; function Duplicar(APedido: IBizPedidoProveedor): IBizPedidoProveedor;
@ -158,7 +159,8 @@ uses
schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController, schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController,
uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor, uIDialogListaPedidosProveedorEnvioEMail, uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor, uIDialogListaPedidosProveedorEnvioEMail,
Dialogs, uIEditorDireccionEntregaPedidoProveedor, uIEditorSituacionPedidoProveedor, Dialogs, uIEditorDireccionEntregaPedidoProveedor, uIEditorSituacionPedidoProveedor,
Variants, uSistemaFunc, uEMailUtils, uDialogElegirEMail, uIntegerListUtils, uStringsUtils; Variants, uSistemaFunc, uEMailUtils, uDialogElegirEMail, uIntegerListUtils, uStringsUtils,
uPlugins_Intf, uModuleController;
{ TPedidosProveedorController } { TPedidosProveedorController }
@ -237,6 +239,7 @@ begin
end; end;
end; end;
{
function TPedidosProveedorController.BuscarSinFacturar: IBizPedidoProveedor; function TPedidosProveedorController.BuscarSinFacturar: IBizPedidoProveedor;
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;
@ -260,6 +263,7 @@ begin
HideHourglassCursor; HideHourglassCursor;
end; end;
end; end;
}
function TPedidosProveedorController.BuscarTodos( function TPedidosProveedorController.BuscarTodos(
const AID_Proveedor: Integer): IBizPedidoProveedor; const AID_Proveedor: Integer): IBizPedidoProveedor;
@ -416,7 +420,6 @@ begin
// INCIDENCIAS := Nil; // INCIDENCIAS := Nil;
REF_PED_CLIENTE := ''; REF_PED_CLIENTE := '';
ID_PEDIDO_CLIENTE := 0; ID_PEDIDO_CLIENTE := 0;
ID_FACTURA := 0;
end; end;
Result.Post; Result.Post;
finally finally
@ -574,6 +577,27 @@ begin
end; end;
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; function TPedidosProveedorController._Vacio: IBizPedidoProveedor;
begin begin
Result := Buscar(ID_NULO); Result := Buscar(ID_NULO);

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

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

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

@ -3,16 +3,16 @@ unit schPedidosProveedorClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosPedidos = '{BB4ACD7F-346E-4B72-9B4C-4765E709D911}'; RID_ListaAnosPedidos = '{0BE63A2E-B331-4A57-A663-4E77D6E4A12A}';
RID_PedidosProveedor = '{FB6CB8F5-5944-469C-848F-C2B228E6115F}'; RID_PedidosProveedor = '{CD6B65EC-536D-4CF6-A278-D5B2E929094D}';
RID_PedidosProveedor_Detalles = '{BB197BA1-5EB9-416C-A7DD-1B8C3097AE72}'; RID_PedidosProveedor_Detalles = '{5C269D11-EC6B-4D1E-B1F9-48A80A4F22DC}';
RID_PedidosProveedor_Articulos_Pendientes = '{D8031329-D44D-436D-90CC-28FFBF9B3485}'; RID_PedidosProveedor_Articulos_Pendientes = '{3E1EB0DC-A289-4452-B9D4-B57A29E5D8DA}';
{ Data table names } { Data table names }
nme_ListaAnosPedidos = 'ListaAnosPedidos'; nme_ListaAnosPedidos = 'ListaAnosPedidos';
@ -67,8 +67,6 @@ const
fld_PedidosProveedorIVA = 'IVA'; fld_PedidosProveedorIVA = 'IVA';
fld_PedidosProveedorIMPORTE_IVA = 'IMPORTE_IVA'; fld_PedidosProveedorIMPORTE_IVA = 'IMPORTE_IVA';
fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_PedidosProveedorID_FACTURA = 'ID_FACTURA';
fld_PedidosProveedorREF_FACTURA_PROV = 'REF_FACTURA_PROV';
{ PedidosProveedor field indexes } { PedidosProveedor field indexes }
idx_PedidosProveedorID = 0; idx_PedidosProveedorID = 0;
@ -111,8 +109,6 @@ const
idx_PedidosProveedorIVA = 37; idx_PedidosProveedorIVA = 37;
idx_PedidosProveedorIMPORTE_IVA = 38; idx_PedidosProveedorIMPORTE_IVA = 38;
idx_PedidosProveedorID_FORMA_PAGO = 39; idx_PedidosProveedorID_FORMA_PAGO = 39;
idx_PedidosProveedorID_FACTURA = 40;
idx_PedidosProveedorREF_FACTURA_PROV = 41;
{ PedidosProveedor_Detalles fields } { PedidosProveedor_Detalles fields }
fld_PedidosProveedor_DetallesID = 'ID'; fld_PedidosProveedor_DetallesID = 'ID';
@ -169,7 +165,7 @@ const
type type
{ IListaAnosPedidos } { IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable) IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
['{F50ECDED-B2E2-4A7E-A160-91F65194D336}'] ['{444C24ED-7A28-4E70-A26D-6D68F92B116D}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -204,7 +200,7 @@ type
{ IPedidosProveedor } { IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable) IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{52592A3B-FB1A-438A-8B4D-56335E373D8C}'] ['{8227DEFE-3F3E-4F9B-8BD0-0063F47CF363}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -364,14 +360,6 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetID_FORMA_PAGOIsNull: Boolean; function GetID_FORMA_PAGOIsNull: Boolean;
procedure SetID_FORMA_PAGOIsNull(const aValue: 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 } { Properties }
@ -455,10 +443,6 @@ type
property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; 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_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_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; end;
{ TPedidosProveedorDataTableRules } { TPedidosProveedorDataTableRules }
@ -628,14 +612,6 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetID_FORMA_PAGOIsNull: Boolean; virtual; function GetID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -718,10 +694,6 @@ type
property IMPORTE_IVAIsNull: Boolean read GetIMPORTE_IVAIsNull write SetIMPORTE_IVAIsNull; 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_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_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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -731,7 +703,7 @@ type
{ IPedidosProveedor_Detalles } { IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{5D182AFF-F1C8-4C0C-A82B-E8F74B11F199}'] ['{86705E35-B1C5-4E3D-997C-F320EEA14017}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -946,7 +918,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes } { IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable) IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{4EDB8973-E2C1-4B31-BAB1-1724233A993F}'] ['{46FBB380-02E3-4155-A485-1B6D4122047A}']
{ Property getters and setters } { Property getters and setters }
function GetID_PEDIDOValue: Integer; function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer); procedure SetID_PEDIDOValue(const aValue: Integer);
@ -1939,48 +1911,6 @@ begin
DataTable.Fields[idx_PedidosProveedorID_FORMA_PAGO].AsVariant := Null; DataTable.Fields[idx_PedidosProveedorID_FORMA_PAGO].AsVariant := Null;
end; 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 } { TPedidosProveedor_DetallesDataTableRules }
constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable); 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 { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosPedidosDelta = '{7413239D-F923-4D2D-885F-4083C7008226}'; RID_ListaAnosPedidosDelta = '{2CD89CFA-6628-4D1B-AAFD-2143F6E16C6F}';
RID_PedidosProveedorDelta = '{D1505641-F1C6-4565-823C-F14DC964DDC6}'; RID_PedidosProveedorDelta = '{6510A108-8EDD-4CAF-AA7B-C010D901B2B0}';
RID_PedidosProveedor_DetallesDelta = '{E1572661-F1D9-4902-A018-60E27BF71613}'; RID_PedidosProveedor_DetallesDelta = '{92F733E7-B35E-4B57-B2F8-CD648B380B90}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{C1F7A9E2-4E27-4594-90D6-A830EBA65AF2}'; RID_PedidosProveedor_Articulos_PendientesDelta = '{99E04FCB-79B4-4C08-B667-38699CAD1FE4}';
type type
{ IListaAnosPedidosDelta } { IListaAnosPedidosDelta }
IListaAnosPedidosDelta = interface(IListaAnosPedidos) IListaAnosPedidosDelta = interface(IListaAnosPedidos)
['{7413239D-F923-4D2D-885F-4083C7008226}'] ['{2CD89CFA-6628-4D1B-AAFD-2143F6E16C6F}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IPedidosProveedorDelta } { IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor) IPedidosProveedorDelta = interface(IPedidosProveedor)
['{D1505641-F1C6-4565-823C-F14DC964DDC6}'] ['{6510A108-8EDD-4CAF-AA7B-C010D901B2B0}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -93,8 +93,6 @@ type
function GetOldIVAValue : Float; function GetOldIVAValue : Float;
function GetOldIMPORTE_IVAValue : Currency; function GetOldIMPORTE_IVAValue : Currency;
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldID_FACTURAValue : Integer;
function GetOldREF_FACTURA_PROVValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -137,8 +135,6 @@ type
property OldIVA : Float read GetOldIVAValue; property OldIVA : Float read GetOldIVAValue;
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
end; end;
{ TPedidosProveedorBusinessProcessorRules } { TPedidosProveedorBusinessProcessorRules }
@ -388,18 +384,6 @@ type
function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; 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 ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -579,7 +555,7 @@ type
{ IPedidosProveedor_DetallesDelta } { IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles) IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{E1572661-F1D9-4902-A018-60E27BF71613}'] ['{92F733E7-B35E-4B57-B2F8-CD648B380B90}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
@ -793,7 +769,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta } { IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes) IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{C1F7A9E2-4E27-4594-90D6-A830EBA65AF2}'] ['{99E04FCB-79B4-4C08-B667-38699CAD1FE4}']
{ Property getters and setters } { Property getters and setters }
function GetOldID_PEDIDOValue : Integer; function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -2198,68 +2174,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorID_FORMA_PAGO] := Null;
end; 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 } { TPedidosProveedor_DetallesBusinessProcessorRules }
constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); 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 SetID_PEDIDO_CLIENTEValue(const aValue: Integer); override;
// procedure SetINCIDENCIASValue(const aValue: IROStrings); override; // procedure SetINCIDENCIASValue(const aValue: IROStrings); override;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); override; procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
procedure SetID_FACTURAValue(const aValue: Integer); override;
procedure IMPORTE_NETOOnChange(Sender: TDACustomField); procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField); procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
@ -297,14 +296,6 @@ begin
inherited; inherited;
end; 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); procedure TBizPedidoProveedor.SetID_FORMA_PAGOValue(const aValue: Integer);
begin begin
if (aValue = 0) then 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\Controller\Contactos_controller.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.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\Controller\Inventario_controller.dproj" />
<Projects Include="..\Inventario\Data\Inventario_data.dproj" /> <Projects Include="..\Inventario\Data\Inventario_data.dproj" />
<Projects Include="..\Inventario\Views\Inventario_view.dproj" /> <Projects Include="..\Inventario\Views\Inventario_view.dproj" />
@ -261,14 +262,23 @@
<Target Name="AlbaranesProveedor_view:Make"> <Target Name="AlbaranesProveedor_view:Make">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" /> <MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" />
</Target> </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"> <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>
<Target Name="Clean"> <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>
<Target Name="Make"> <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> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

@ -199,14 +199,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DatasetField = 'ID_FORMA_PAGO' DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO' TableField = 'ID_FORMA_PAGO'
end end
item
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
item
DatasetField = 'REF_FACTURA_PROV'
TableField = 'REF_FACTURA_PROV'
end
item item
DatasetField = 'ID_DIRECCION' DatasetField = 'ID_DIRECCION'
TableField = 'ID_DIRECCION' TableField = 'ID_DIRECCION'
@ -441,17 +433,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger DataType = datInteger
DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO' 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>
end end
item item
@ -749,10 +730,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end end
item item
Params = < Params = <
item
Name = 'PERSONA_CONTACTO_PROV'
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datAutoInc
@ -761,126 +738,166 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_DIRECCION' Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item
Name = 'PERSONA_CONTACTO_PROV'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'FECHA_PEDIDO' Name = 'FECHA_PEDIDO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_CONFIRMACION' Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_ENTREGA' Name = 'FECHA_ENTREGA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_OBRA' Name = 'ID_OBRA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS' Name = 'INCIDENCIAS'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString
Size = 25
Value = '' Value = ''
end end
item item
Name = 'ID_PEDIDO_CLIENTE' Name = 'ID_PEDIDO_CLIENTE'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'FECHA_ENVIO' Name = 'FECHA_ENVIO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
Value = '' DataType = datString
end Size = 30
item
Name = 'ID_FACTURA'
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -896,15 +913,15 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'EFONO, ID_PEDIDO_CLIENTE,'#10' IMPORTE_NETO, IMPORTE_PORTE, DESC' + 'EFONO, ID_PEDIDO_CLIENTE,'#10' IMPORTE_NETO, IMPORTE_PORTE, DESC' +
'UENTO, IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA,' + 'UENTO, IMPORTE_DESCUENTO,'#10' BASE_IMPONIBLE, IVA, IMPORTE_IVA,' +
' IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' FECHA_ENVIO, USUARIO, FECHA_' + ' IMPORTE_TOTAL, ID_FORMA_PAGO,'#10' FECHA_ENVIO, USUARIO, FECHA_' +
'ALTA, ID_FACTURA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_PROVEEDOR,' + 'ALTA)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_PROVEEDOR, :ID_DIRECCI' +
' :ID_DIRECCION,'#10' :PERSONA_CONTACTO_PROV, :REFERENCIA, :FECHA' + 'ON,'#10' :PERSONA_CONTACTO_PROV, :REFERENCIA, :FECHA_PEDIDO,'#10' ' +
'_PEDIDO,'#10' :FECHA_CONFIRMACION, :FECHA_ENTREGA, :ID_ALMACEN, ' + ' :FECHA_CONFIRMACION, :FECHA_ENTREGA, :ID_ALMACEN, :ID_OBRA,'#10' ' +
':ID_OBRA,'#10' :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVA' + ' :OBSERVACIONES, :INCIDENCIAS, :INCIDENCIAS_ACTIVAS,'#10' :CAL' +
'S,'#10' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA' + 'LE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' ' +
'_CONTACTO,'#10' :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, :I' + ' :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NETO, :IMPORTE_PORTE' +
'MPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIB' + ','#10' :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' ' +
'LE, :IVA,'#10' :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :FE' + ' :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_FORMA_PAGO, :FECHA_ENVIO,'#10' ' +
'CHA_ENVIO,'#10' :USUARIO, CURRENT_TIMESTAMP, :ID_FACTURA)'#10 ' :USUARIO, CURRENT_TIMESTAMP)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -912,138 +929,173 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end end
item item
Params = < Params = <
item
Name = 'PERSONA_CONTACTO_PROV'
Value = ''
end
item item
Name = 'ID' Name = 'ID'
DataType = datAutoInc DataType = datInteger
GeneratorName = 'GEN_PEDIDOS_PROV_ID'
Value = '' Value = ''
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_DIRECCION' Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item
Name = 'PERSONA_CONTACTO_PROV'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'FECHA_ENVIO' Name = 'FECHA_ENVIO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_PEDIDO' Name = 'FECHA_PEDIDO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_CONFIRMACION' Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_ENTREGA' Name = 'FECHA_ENTREGA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS' Name = 'INCIDENCIAS'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_OBRA' Name = 'ID_OBRA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString
Size = 25
Value = '' Value = ''
end end
item item
Name = 'ID_PEDIDO_CLIENTE' Name = 'ID_PEDIDO_CLIENTE'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
Value = '' DataType = datString
end Size = 30
item
Name = 'ID_FACTURA'
Value = '' Value = ''
end end
item item
@ -1073,7 +1125,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
', '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' I' + ', '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' I' +
'MPORTE_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 + 'MPORTE_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10 +
' USUARIO = :USUARIO,'#10' FECHA_MODIFICACION = CURRENT_TIMESTA' + ' USUARIO = :USUARIO,'#10' FECHA_MODIFICACION = CURRENT_TIMESTA' +
'MP,'#10' ID_FACTURA = :ID_FACTURA'#10' WHERE'#10' (ID = :OLD_ID)'#10 'MP'#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

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

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

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

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

@ -32,11 +32,12 @@ type
function BuscarTodos: IBizPresupuestoCliente; overload; function BuscarTodos: IBizPresupuestoCliente; overload;
function BuscarTodos(const ID_Cliente: Integer): IBizPresupuestoCliente; overload; function BuscarTodos(const ID_Cliente: Integer): IBizPresupuestoCliente; overload;
function BuscarAceptados : IBizPresupuestoCliente; function BuscarAceptados : IBizPresupuestoCliente;
function BuscarSinFacturar : IBizPresupuestoCliente; // function BuscarSinFacturar : IBizPresupuestoCliente;
procedure Ver(APresupuesto : IBizPresupuestoCliente); procedure Ver(APresupuesto : IBizPresupuestoCliente);
procedure VerTodos(APresupuestos: IBizPresupuestoCliente; procedure VerTodos(APresupuestos: IBizPresupuestoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = ''); const AHeaderText: String = '');
procedure VerFacturasDePresupuesto(APresupuesto : IBizPresupuestoCliente);
procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente); procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente);
function Nuevo : IBizPresupuestoCliente; function Nuevo : IBizPresupuestoCliente;
function Anadir(APresupuesto : IBizPresupuestoCliente) : Boolean; function Anadir(APresupuesto : IBizPresupuestoCliente) : Boolean;
@ -123,12 +124,13 @@ type
function BuscarTodos: IBizPresupuestoCliente; overload; function BuscarTodos: IBizPresupuestoCliente; overload;
function BuscarTodos(const ID_Cliente: Integer): IBizPresupuestoCliente; overload; function BuscarTodos(const ID_Cliente: Integer): IBizPresupuestoCliente; overload;
function BuscarAceptados : IBizPresupuestoCliente; function BuscarAceptados : IBizPresupuestoCliente;
function BuscarSinFacturar : IBizPresupuestoCliente; // function BuscarSinFacturar : IBizPresupuestoCliente;
function Nuevo : IBizPresupuestoCliente; function Nuevo : IBizPresupuestoCliente;
procedure Ver(APresupuesto : IBizPresupuestoCliente); procedure Ver(APresupuesto : IBizPresupuestoCliente);
procedure VerTodos(APresupuestos: IBizPresupuestoCliente; procedure VerTodos(APresupuestos: IBizPresupuestoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = ''); const AHeaderText: String = '');
procedure VerFacturasDePresupuesto(APresupuesto : IBizPresupuestoCliente);
procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente); procedure VerDireccionEntrega(APresupuesto : IBizPresupuestoCliente);
function Duplicar(APresupuesto: IBizPresupuestoCliente): IBizPresupuestoCliente; function Duplicar(APresupuesto: IBizPresupuestoCliente): IBizPresupuestoCliente;
@ -168,7 +170,7 @@ uses
uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente, uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente,
schContactosClient_Intf, uPresupuestosClienteReportController, schContactosClient_Intf, uPresupuestosClienteReportController,
uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils, uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils,
uIDialogListaPresupuestosEnvioEMail; uIDialogListaPresupuestosEnvioEMail, uModuleController, uPlugins_Intf;
{ TPresupuestosClienteController } { TPresupuestosClienteController }
@ -275,6 +277,7 @@ begin
end; end;
end; end;
{
function TPresupuestosClienteController.BuscarSinFacturar: IBizPresupuestoCliente; function TPresupuestosClienteController.BuscarSinFacturar: IBizPresupuestoCliente;
var var
Condicion: TDAWhereExpression; Condicion: TDAWhereExpression;
@ -298,6 +301,7 @@ begin
HideHourglassCursor; HideHourglassCursor;
end; end;
end; end;
}
function TPresupuestosClienteController.BuscarTodos( function TPresupuestosClienteController.BuscarTodos(
const ID_Cliente: Integer): IBizPresupuestoCliente; const ID_Cliente: Integer): IBizPresupuestoCliente;
@ -457,7 +461,7 @@ begin
FECHA_PRESUPUESTO := DateOf(Now); FECHA_PRESUPUESTO := DateOf(Now);
INCIDENCIAS_ACTIVAS := 0; INCIDENCIAS_ACTIVAS := 0;
INCIDENCIASIsNull := True; INCIDENCIASIsNull := True;
ID_FACTURAIsNull := True; // ID_FACTURAIsNull := True;
FECHA_DECISIONIsNull := True; FECHA_DECISIONIsNull := True;
REFERENCIA := ''; REFERENCIA := '';
SITUACION := SITUACION_PRESUPUESTO_PENDIENTE; SITUACION := SITUACION_PRESUPUESTO_PENDIENTE;
@ -571,6 +575,28 @@ begin
} }
end; 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; procedure TPresupuestosClienteController.VerTodos(APresupuestos: IBizPresupuestoCliente;
const AVerModal : Boolean = False; const AWindowCaption: String = ''; const AVerModal : Boolean = False; const AWindowCaption: String = '';
const AHeaderText: String = ''); const AHeaderText: String = '');

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

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

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

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosPresupuestos = '{D73FB601-4855-412C-B145-BC927DE770D2}'; RID_ListaAnosPresupuestos = '{1156DC6C-FB6C-42AC-9552-371D052F073D}';
RID_PresupuestosCliente = '{A2898E4B-6B5C-443D-A744-9FAD9690292D}'; RID_PresupuestosCliente = '{7776B49F-7541-4ADC-8D5B-01D8C5813FE2}';
RID_PresupuestosCliente_Detalles = '{160328C6-D0E9-44C5-B1F0-407C54645451}'; RID_PresupuestosCliente_Detalles = '{69E339B8-A74D-47A0-BC7D-58F9F74B2E27}';
{ Data table names } { Data table names }
nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos'; nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
@ -55,8 +55,6 @@ const
fld_PresupuestosClienteIMPORTE_IVA = 'IMPORTE_IVA'; fld_PresupuestosClienteIMPORTE_IVA = 'IMPORTE_IVA';
fld_PresupuestosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL'; fld_PresupuestosClienteIMPORTE_TOTAL = 'IMPORTE_TOTAL';
fld_PresupuestosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_PresupuestosClienteID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_PresupuestosClienteID_FACTURA = 'ID_FACTURA';
fld_PresupuestosClienteFACTURA = 'FACTURA';
fld_PresupuestosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_PresupuestosClientePERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_PresupuestosClienteDESCRIPCION_BONIFICACION = 'DESCRIPCION_BONIFICACION'; fld_PresupuestosClienteDESCRIPCION_BONIFICACION = 'DESCRIPCION_BONIFICACION';
fld_PresupuestosClienteIMPORTE_BONIFICACION = 'IMPORTE_BONIFICACION'; fld_PresupuestosClienteIMPORTE_BONIFICACION = 'IMPORTE_BONIFICACION';
@ -93,12 +91,10 @@ const
idx_PresupuestosClienteIMPORTE_IVA = 27; idx_PresupuestosClienteIMPORTE_IVA = 27;
idx_PresupuestosClienteIMPORTE_TOTAL = 28; idx_PresupuestosClienteIMPORTE_TOTAL = 28;
idx_PresupuestosClienteID_FORMA_PAGO = 29; idx_PresupuestosClienteID_FORMA_PAGO = 29;
idx_PresupuestosClienteID_FACTURA = 30; idx_PresupuestosClientePERSONA_CONTACTO = 30;
idx_PresupuestosClienteFACTURA = 31; idx_PresupuestosClienteDESCRIPCION_BONIFICACION = 31;
idx_PresupuestosClientePERSONA_CONTACTO = 32; idx_PresupuestosClienteIMPORTE_BONIFICACION = 32;
idx_PresupuestosClienteDESCRIPCION_BONIFICACION = 33; idx_PresupuestosClienteCERTIFICADO_ISO = 33;
idx_PresupuestosClienteIMPORTE_BONIFICACION = 34;
idx_PresupuestosClienteCERTIFICADO_ISO = 35;
{ PresupuestosCliente_Detalles fields } { PresupuestosCliente_Detalles fields }
fld_PresupuestosCliente_DetallesID = 'ID'; fld_PresupuestosCliente_DetallesID = 'ID';
@ -137,7 +133,7 @@ const
type type
{ IListaAnosPresupuestos } { IListaAnosPresupuestos }
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable) IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
['{031EC815-C5C0-4E17-AC6F-D5356025BCE1}'] ['{7B9FC1A2-4BF9-463D-BFA2-17F1DEDC4914}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -172,7 +168,7 @@ type
{ IPresupuestosCliente } { IPresupuestosCliente }
IPresupuestosCliente = interface(IDAStronglyTypedDataTable) IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
['{E25A2981-6860-472F-80BA-2CA9D82D18FE}'] ['{FA3103A1-D1C7-4206-8D73-3FC5D91A5A87}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -290,14 +286,6 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetID_FORMA_PAGOIsNull: Boolean; function GetID_FORMA_PAGOIsNull: Boolean;
procedure SetID_FORMA_PAGOIsNull(const aValue: 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; function GetPERSONA_CONTACTOValue: String;
procedure SetPERSONA_CONTACTOValue(const aValue: String); procedure SetPERSONA_CONTACTOValue(const aValue: String);
function GetPERSONA_CONTACTOIsNull: Boolean; function GetPERSONA_CONTACTOIsNull: Boolean;
@ -377,10 +365,6 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; 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_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_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_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property DESCRIPCION_BONIFICACION: String read GetDESCRIPCION_BONIFICACIONValue write SetDESCRIPCION_BONIFICACIONValue; property DESCRIPCION_BONIFICACION: String read GetDESCRIPCION_BONIFICACIONValue write SetDESCRIPCION_BONIFICACIONValue;
@ -520,14 +504,6 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetID_FORMA_PAGOIsNull: Boolean; virtual; function GetID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: 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; function GetPERSONA_CONTACTOValue: String; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
@ -606,10 +582,6 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull; 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_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_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_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property DESCRIPCION_BONIFICACION: String read GetDESCRIPCION_BONIFICACIONValue write SetDESCRIPCION_BONIFICACIONValue; property DESCRIPCION_BONIFICACION: String read GetDESCRIPCION_BONIFICACIONValue write SetDESCRIPCION_BONIFICACIONValue;
@ -627,7 +599,7 @@ type
{ IPresupuestosCliente_Detalles } { IPresupuestosCliente_Detalles }
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable) IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{67B4300E-97EF-4FEA-BD7E-7B3C3DD4FB54}'] ['{341EBBC1-EE9E-46B6-B65A-AB180E04C8A3}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1528,48 +1500,6 @@ begin
DataTable.Fields[idx_PresupuestosClienteID_FORMA_PAGO].AsVariant := Null; DataTable.Fields[idx_PresupuestosClienteID_FORMA_PAGO].AsVariant := Null;
end; 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; function TPresupuestosClienteDataTableRules.GetPERSONA_CONTACTOValue: String;
begin begin
result := DataTable.Fields[idx_PresupuestosClientePERSONA_CONTACTO].AsString; 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 { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosPresupuestosDelta = '{52C49635-F38B-4B6E-B3D1-79EF81B7D611}'; RID_ListaAnosPresupuestosDelta = '{016A4229-E5D0-49BF-95B2-B0D2202975FF}';
RID_PresupuestosClienteDelta = '{779086A7-A3B9-42A6-A854-7AA3661376B9}'; RID_PresupuestosClienteDelta = '{883ECB54-1EFD-49B9-86AD-BAC66B8C72B8}';
RID_PresupuestosCliente_DetallesDelta = '{D21AC7F0-E4A5-48D5-8165-2CF2EEBFA6D6}'; RID_PresupuestosCliente_DetallesDelta = '{7FC6F73A-E858-43F9-8F1E-9907EE547F26}';
type type
{ IListaAnosPresupuestosDelta } { IListaAnosPresupuestosDelta }
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos) IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
['{52C49635-F38B-4B6E-B3D1-79EF81B7D611}'] ['{016A4229-E5D0-49BF-95B2-B0D2202975FF}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IPresupuestosClienteDelta } { IPresupuestosClienteDelta }
IPresupuestosClienteDelta = interface(IPresupuestosCliente) IPresupuestosClienteDelta = interface(IPresupuestosCliente)
['{779086A7-A3B9-42A6-A854-7AA3661376B9}'] ['{883ECB54-1EFD-49B9-86AD-BAC66B8C72B8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -82,8 +82,6 @@ type
function GetOldIMPORTE_IVAValue : Currency; function GetOldIMPORTE_IVAValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Currency;
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldID_FACTURAValue : Integer;
function GetOldFACTURAValue : String;
function GetOldPERSONA_CONTACTOValue : String; function GetOldPERSONA_CONTACTOValue : String;
function GetOldDESCRIPCION_BONIFICACIONValue : String; function GetOldDESCRIPCION_BONIFICACIONValue : String;
function GetOldIMPORTE_BONIFICACIONValue : Currency; function GetOldIMPORTE_BONIFICACIONValue : Currency;
@ -120,8 +118,6 @@ type
property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue; property OldIMPORTE_IVA : Currency read GetOldIMPORTE_IVAValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; 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 OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldDESCRIPCION_BONIFICACION : String read GetOldDESCRIPCION_BONIFICACIONValue; property OldDESCRIPCION_BONIFICACION : String read GetOldDESCRIPCION_BONIFICACIONValue;
property OldIMPORTE_BONIFICACION : Currency read GetOldIMPORTE_BONIFICACIONValue; property OldIMPORTE_BONIFICACION : Currency read GetOldIMPORTE_BONIFICACIONValue;
@ -317,18 +313,6 @@ type
function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); 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_CONTACTOValue: String; virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
function GetOldPERSONA_CONTACTOValue: String; 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 ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; 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_CONTACTO : String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
@ -508,7 +484,7 @@ type
{ IPresupuestosCliente_DetallesDelta } { IPresupuestosCliente_DetallesDelta }
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles) IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
['{D21AC7F0-E4A5-48D5-8165-2CF2EEBFA6D6}'] ['{7FC6F73A-E858-43F9-8F1E-9907EE547F26}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_PRESUPUESTOValue : Integer; function GetOldID_PRESUPUESTOValue : Integer;
@ -1723,68 +1699,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FORMA_PAGO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_FORMA_PAGO] := Null;
end; 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; function TPresupuestosClienteBusinessProcessorRules.GetPERSONA_CONTACTOValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClientePERSONA_CONTACTO]; 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\Data\Contactos_data.dproj" />
<Projects Include="..\Contactos\Model\Contactos_model.dproj" /> <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.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="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
<Projects Include="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" /> <Projects Include="..\Gestion de documentos\Controller\GestorDocumentos_controller.dproj" />
<Projects Include="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" /> <Projects Include="..\Gestion de documentos\Data\GestorDocumentos_data.dproj" />
@ -261,14 +262,23 @@
<Target Name="Articulos_model:Make"> <Target Name="Articulos_model:Make">
<MSBuild Projects="..\Articulos\Model\Articulos_model.dproj" Targets="Make" /> <MSBuild Projects="..\Articulos\Model\Articulos_model.dproj" Targets="Make" />
</Target> </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"> <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>
<Target Name="Clean"> <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>
<Target Name="Make"> <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> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

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

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

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

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

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

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

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

@ -46,6 +46,9 @@ type
TBXItem46: TTBXItem; TBXItem46: TTBXItem;
JSInformesDialog: TJSDialog; JSInformesDialog: TJSDialog;
TBXItem47: TTBXItem; TBXItem47: TTBXItem;
actVerFacturasRelacionadas: TAction;
TBXSeparatorItem19: TTBXSeparatorItem;
TBXItem48: TTBXItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actGenerarAlbaranCliExecute(Sender: TObject); procedure actGenerarAlbaranCliExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
@ -63,6 +66,7 @@ type
procedure actEnviarEMailUpdate(Sender: TObject); procedure actEnviarEMailUpdate(Sender: TObject);
procedure actInformesExecute(Sender: TObject); procedure actInformesExecute(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string); procedure OnListaAnosChange(Sender: TObject; const Text: string);
procedure actVerFacturasRelacionadasExecute(Sender: TObject);
protected protected
FPresupuestos: IBizPresupuestoCliente; FPresupuestos: IBizPresupuestoCliente;
@ -348,7 +352,7 @@ begin
inherited; inherited;
(Sender as TAction).Enabled := HayDatos (Sender as TAction).Enabled := HayDatos
and not (ViewGrid.NumSeleccionados > 1) and not (ViewGrid.NumSeleccionados > 1)
and (FPresupuestos.FACTURA = '') // and (FPresupuestos.FACTURA = '')
and ViewGrid.esSeleccionCeldaDatos and ViewGrid.esSeleccionCeldaDatos
and (FPresupuestos.SITUACION = SITUACION_PRESUPUESTO_ACEPTADO); and (FPresupuestos.SITUACION = SITUACION_PRESUPUESTO_ACEPTADO);
end; end;
@ -384,6 +388,13 @@ begin
end; end;
end; end;
procedure TfEditorPresupuestosCliente.actVerFacturasRelacionadasExecute(
Sender: TObject);
begin
inherited;
FController.VerFacturasDePresupuesto(Presupuestos);
end;
procedure TfEditorPresupuestosCliente.AsignarVista; procedure TfEditorPresupuestosCliente.AsignarVista;
begin begin
ViewGrid := CreateView(TfrViewPresupuestosCliente) as IViewPresupuestosCliente; 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 HeaderAlignmentHorz = taRightJustify
Width = 63 Width = 63
end end
object cxGridViewFACTURA: TcxGridDBColumn
Caption = 'Ref. factura'
DataBinding.FieldName = 'FACTURA'
Visible = False
BestFitMaxWidth = 25
Width = 25
end
end end
object cxGridDBTableView1: TcxGridDBTableView [1] object cxGridDBTableView1: TcxGridDBTableView [1]
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -188,37 +181,42 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
Width = 285 Width = 285
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 292 Left = 249
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 292 ExplicitLeft = 249
ExplicitWidth = 504 ExplicitWidth = 504
Width = 504 Width = 504
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 750 Left = 645
Enabled = False
Properties.OnChange = nil Properties.OnChange = nil
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 750 ExplicitLeft = 645
ExplicitWidth = 215
Width = 215
end end
inherited eLista2: TcxComboBox inherited eLista2: TcxComboBox
Left = 833 Left = 776
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 833 ExplicitLeft = 776
ExplicitWidth = 207
Width = 207
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Item4: TdxLayoutItem inherited dxLayoutControl1Item4: TdxLayoutItem
Caption = 'Con/Sin Factura:' Caption = 'Con/Sin Factura:'
Visible = True Enabled = False
end end
inherited dxLayoutControl1Item5: TdxLayoutItem inherited dxLayoutControl1Item5: TdxLayoutItem
Caption = 'ISO:' Caption = 'ISO:'

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

@ -30,7 +30,6 @@ type
cxGridViewSITUACION: TcxGridDBColumn; cxGridViewSITUACION: TcxGridDBColumn;
cxGridViewFECHA_PRESUPUESTO: TcxGridDBColumn; cxGridViewFECHA_PRESUPUESTO: TcxGridDBColumn;
cxGridViewCLIENTE_FINAL: TcxGridDBColumn; cxGridViewCLIENTE_FINAL: TcxGridDBColumn;
cxGridViewFACTURA: TcxGridDBColumn;
cxGridViewIMPORTE_TOTAL: TcxGridDBColumn; cxGridViewIMPORTE_TOTAL: TcxGridDBColumn;
cxGridLevelPendientes: TcxGridLevel; cxGridLevelPendientes: TcxGridLevel;
cxGridLevelEnProceso: TcxGridLevel; cxGridLevelEnProceso: TcxGridLevel;
@ -81,7 +80,7 @@ type
//Filtros relativos a la vista //Filtros relativos a la vista
procedure AnadirFiltroSituaciones; procedure AnadirFiltroSituaciones;
procedure AnadirFiltroFechas; procedure AnadirFiltroFechas;
procedure AnadirFiltroFacturado; // procedure AnadirFiltroFacturado;
procedure AnadirFiltroISO; procedure AnadirFiltroISO;
protected protected
@ -190,6 +189,7 @@ begin
end; end;
{
procedure TfrViewPresupuestosCliente.AnadirFiltroFacturado; procedure TfrViewPresupuestosCliente.AnadirFiltroFacturado;
var var
FFiltro : TcxFilterCriteriaItemList; FFiltro : TcxFilterCriteriaItemList;
@ -213,6 +213,7 @@ begin
end; end;
end; end;
end; end;
}
procedure TfrViewPresupuestosCliente.AnadirFiltroSituaciones; procedure TfrViewPresupuestosCliente.AnadirFiltroSituaciones;
var var
@ -233,7 +234,7 @@ begin
AnadirFiltroSituaciones; AnadirFiltroSituaciones;
AnadirFiltroFechas; AnadirFiltroFechas;
AnadirFiltroFacturado; // AnadirFiltroFacturado;
AnadirFiltroISO; AnadirFiltroISO;
//Finalmente activamos el filtro si tenemos algo //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 if not Assigned(APedidosProveedorController) then
Inicializar; Inicializar;
APedidos := APedidosProveedorController.ElegirPedidos(APedidosProveedorController.BuscarSinFacturar, APedidos := APedidosProveedorController.ElegirPedidos(APedidosProveedorController.BuscarTodos,
'Elija el pedido o pedidos de proveedor que desea utilizar para dar de alta la factura.' 'Elija el pedido de proveedor que desea utilizar para dar de alta la factura.' , False);
+ #10#13 + 'Si elige Pedidos de proveedores diferentes se dará de alta una factura por cada uno de ellos.' , True);
if Assigned(APedidos) then if Assigned(APedidos) then
begin 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) Result := GenerarFacturaProvPed(APedidos)
else else
Result := GenerarFacturaProvPed(APedidos, False); Result := GenerarFacturaProvPed(APedidos, False);
@ -346,6 +345,7 @@ begin
APedidosController.RecuperarProveedor(AListaPedidos); APedidosController.RecuperarProveedor(AListaPedidos);
AListaPedidos.Proveedor.DataTable.Active := True; AListaPedidos.Proveedor.DataTable.Active := True;
AFacturas.Proveedor := AListaPedidos.Proveedor; AFacturas.Proveedor := AListaPedidos.Proveedor;
AFacturas.ID_PEDIDO := AListaPedidos.ID;
AFacturaActual := AFacturas; AFacturaActual := AFacturas;
end; end;
@ -430,11 +430,12 @@ begin
// Guardo la factura que acabo de generar o editar // Guardo la factura que acabo de generar o editar
AFacturaActual.CalcularImporteTotal; AFacturaActual.CalcularImporteTotal;
AFacturasProveedorController.Guardar(AFacturaActual); AFacturasProveedorController.Guardar(AFacturaActual);
// Asocio la factura con el presupuesto // Asocio la factura con el presupuesto
AListaPedidos.Edit; // AListaPedidos.Edit;
AListaPedidos.ID_FACTURA := AFacturaActual.ID; // AListaPedidos.ID_FACTURA := AFacturaActual.ID;
AListaPedidos.Post; // AListaPedidos.Post;
APedidosController.Guardar(AListaPedidos); // APedidosController.Guardar(AListaPedidos);
AListaPedidos.Next; AListaPedidos.Next;
end; 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 if not Assigned(APresupuestosClienteController) then
Inicializar; Inicializar;
APresupuestos := APresupuestosClienteController.ElegirPresupuestos(APresupuestosClienteController.BuscarSinFacturar, APresupuestos := APresupuestosClienteController.ElegirPresupuestos(APresupuestosClienteController.BuscarAceptados,
'Elija el presupuesto o presupuestos de proveedor que desea utilizar para dar de alta la factura.' 'Elija el presupuesto de cliente que desea utilizar para dar de alta la factura.', False);
+ #10#13 + 'Si elige presupuestos de proveedores diferentes se dará de alta una factura por cada uno de ellos.' , True);
if Assigned(APresupuestos) then if Assigned(APresupuestos) then
begin 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) Result := GenerarFacturaCliPre(APresupuestos)
else else
Result := GenerarFacturaCliPre(APresupuestos, False); Result := GenerarFacturaCliPre(APresupuestos, False);
@ -263,6 +262,7 @@ begin
AFacturasClienteController.Anadir(AFacturas); AFacturasClienteController.Anadir(AFacturas);
APresupuestosController.RecuperarCliente(AListaPresupuestos); APresupuestosController.RecuperarCliente(AListaPresupuestos);
AFacturas.Cliente := AListaPresupuestos.Cliente; 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)); AFacturas.OBSERVACIONES.Add('Importe de factura por trabajos realizados según indicaciones de nuestro presupuesto ' + AListaPresupuestos.REFERENCIA + ' con fecha ' + DateToStr(AListaPresupuestos.FECHA_PRESUPUESTO));
AFacturaActual := AFacturas; AFacturaActual := AFacturas;
end; end;
@ -348,11 +348,13 @@ begin
// Guardo la factura que acabo de generar o editar // Guardo la factura que acabo de generar o editar
AFacturaActual.CalcularImporteTotal; AFacturaActual.CalcularImporteTotal;
AFacturasClienteController.Guardar(AFacturaActual); 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 // Asocio la factura con el presupuesto
AListaPresupuestos.Edit; // AListaPresupuestos.Edit;
AListaPresupuestos.ID_FACTURA := AFacturaActual.ID; // AListaPresupuestos.ID_FACTURA := AFacturaActual.ID;
AListaPresupuestos.Post; // AListaPresupuestos.Post;
APresupuestosController.Guardar(AListaPresupuestos); // APresupuestosController.Guardar(AListaPresupuestos);
AListaPresupuestos.Next; AListaPresupuestos.Next;
end; 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', schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule}, 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}, 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}, uRptAlbaranesProveedor_Server in '..\Modulos\Albaranes de proveedor\Reports\uRptAlbaranesProveedor_Server.pas' {RptAlbaranesProveedor: TDataModule},
uRptWordAlbaranProveedor in '..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas' {RptWordAlbaranProveedor: TDataModule}, uRptWordAlbaranProveedor in '..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas' {RptWordAlbaranProveedor: TDataModule},
MidasSpeedFix in 'Utiles\MidasSpeedFix.pas', MidasSpeedFix in 'Utiles\MidasSpeedFix.pas',
@ -126,16 +124,18 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_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', schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas', schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas'; schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
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 *.res}
{$R ..\Servicios\RODLFile.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 "FileVersion", "2.0.7.0\0"
VALUE "ProductName", "FactuGES Servidor\0" VALUE "ProductName", "FactuGES Servidor\0"
VALUE "ProductVersion", "2.0.7.0\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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"