Tareas #1408: En los informes de agentes antiguos, mirar si se puede poner salto de pagina al acabar con cada agente
Tareas #1410: En presupuestos de cliente y pedidos de cliente poder agrupar por agente git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@239 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
parent
39dba3aeed
commit
9b50aa673e
@ -3902,7 +3902,12 @@ CREATE VIEW V_PRESUPUESTOS_CLIENTE(
|
||||
FECHA_VIGENCIA,
|
||||
TIPO_PRESUPUESTO,
|
||||
ID_TIPO_IVA,
|
||||
REFERENCIA_FACTURA_PROFORMA)
|
||||
ID_PEDIDO,
|
||||
REFERENCIA_PEDIDO_CLIENTE,
|
||||
ID_AGENTE,
|
||||
AGENTE,
|
||||
NUM_COPIAS,
|
||||
NUM_CORREOS)
|
||||
AS
|
||||
SELECT
|
||||
PRESUPUESTOS_CLIENTE.ID,
|
||||
@ -3941,13 +3946,26 @@ SELECT
|
||||
PRESUPUESTOS_CLIENTE.FECHA_VIGENCIA,
|
||||
PRESUPUESTOS_CLIENTE.TIPO_PRESUPUESTO,
|
||||
PRESUPUESTOS_CLIENTE.ID_TIPO_IVA,
|
||||
FACTURAS_PROFORMA.REFERENCIA
|
||||
PRESUPUESTOS_CLIENTE.ID_PEDIDO,
|
||||
PEDIDOS_CLIENTE.REFERENCIA,
|
||||
CLIENTES_DATOS.ID_AGENTE,
|
||||
AGENTES.NOMBRE,
|
||||
IMPRESIONES.NUM_COPIAS,
|
||||
REGISTRO_CORREOS.NUM_CORREOS
|
||||
|
||||
|
||||
FROM
|
||||
PRESUPUESTOS_CLIENTE
|
||||
INNER JOIN CONTACTOS ON (CONTACTOS.ID = PRESUPUESTOS_CLIENTE.ID_CLIENTE)
|
||||
LEFT JOIN FACTURAS_PROFORMA on (FACTURAS_PROFORMA.ID_PRESUPUESTO = PRESUPUESTOS_CLIENTE.ID)
|
||||
;
|
||||
LEFT JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PRESUPUESTOS_CLIENTE.ID_PEDIDO)
|
||||
LEFT OUTER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = PRESUPUESTOS_CLIENTE.ID_CLIENTE)
|
||||
LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)
|
||||
LEFT JOIN IMPRESIONES
|
||||
ON ((IMPRESIONES.ID_TABLA = PRESUPUESTOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PRESUPUESTOSCLIENTE'))
|
||||
LEFT JOIN REGISTRO_CORREOS
|
||||
ON ((REGISTRO_CORREOS.ID_TABLA = PRESUPUESTOS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'PRESUPUESTOSCLIENTE'))
|
||||
;
|
||||
|
||||
|
||||
|
||||
/* View: V_PROVEEDORES */
|
||||
@ -4659,11 +4677,11 @@ CREATE VIEW V_PEDIDOS_CLIENTE(
|
||||
FECHA_PREVISTA_ENVIO,
|
||||
NUM_COPIAS,
|
||||
NUM_CORREOS,
|
||||
ID_PRESUPUESTO,
|
||||
REFERENCIA_PRESUPUESTO,
|
||||
TIPO_PEDIDO,
|
||||
PAIS,
|
||||
REFERENCIA_FACTURA_PROFORMA)
|
||||
REFERENCIA_FACTURA_PROFORMA,
|
||||
ID_AGENTE,
|
||||
AGENTE)
|
||||
AS
|
||||
SELECT
|
||||
PEDIDOS_CLIENTE.ID,
|
||||
@ -4704,23 +4722,25 @@ SELECT
|
||||
PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
|
||||
IMPRESIONES.NUM_COPIAS,
|
||||
REGISTRO_CORREOS.NUM_CORREOS,
|
||||
PEDIDOS_CLIENTE.ID_PRESUPUESTO,
|
||||
PRESUPUESTOS_CLIENTE.REFERENCIA,
|
||||
PEDIDOS_CLIENTE.TIPO_PEDIDO,
|
||||
PEDIDOS_CLIENTE.PAIS,
|
||||
FACTURAS_PROFORMA.REFERENCIA
|
||||
FACTURAS_PROFORMA.REFERENCIA,
|
||||
CLIENTES_DATOS.ID_AGENTE,
|
||||
AGENTES.NOMBRE
|
||||
|
||||
FROM
|
||||
PEDIDOS_CLIENTE
|
||||
LEFT JOIN V_PED_CLI_SITUACION_X_ALBARANES ON (V_PED_CLI_SITUACION_X_ALBARANES.ID_PEDIDO = PEDIDOS_CLIENTE.ID)
|
||||
LEFT JOIN PRESUPUESTOS_CLIENTE ON (PRESUPUESTOS_CLIENTE.id = PEDIDOS_CLIENTE.ID_PRESUPUESTO)
|
||||
LEFT JOIN FACTURAS_PROFORMA ON (FACTURAS_PROFORMA.ID_PEDIDO = PEDIDOS_CLIENTE.ID)
|
||||
/* INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)*/
|
||||
INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
|
||||
LEFT OUTER JOIN CLIENTES_DATOS ON (CLIENTES_DATOS.ID_CLIENTE = PEDIDOS_CLIENTE.ID_CLIENTE)
|
||||
LEFT OUTER JOIN CONTACTOS AGENTES ON (AGENTES.ID = CLIENTES_DATOS.ID_AGENTE)
|
||||
LEFT JOIN IMPRESIONES
|
||||
ON ((IMPRESIONES.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (IMPRESIONES.TABLA = 'PEDIDOSCLIENTE'))
|
||||
LEFT JOIN REGISTRO_CORREOS
|
||||
ON ((REGISTRO_CORREOS.ID_TABLA = PEDIDOS_CLIENTE.ID) AND (REGISTRO_CORREOS.TABLA = 'PEDIDOSCLIENTE'))
|
||||
;
|
||||
;
|
||||
|
||||
|
||||
|
||||
|
||||
@ -53,7 +53,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo\Resources\Iconos\Factuges.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 4,4,3,0
|
||||
PRODUCTVERSION 4,4,3,0
|
||||
FILEVERSION 4,4,4,0
|
||||
PRODUCTVERSION 4,4,4,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "4.4.3.0\0"
|
||||
VALUE "FileVersion", "4.4.4.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "4.4.3.0\0"
|
||||
VALUE "ProductVersion", "4.4.4.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -77,8 +77,11 @@ inherited frViewInformeBaseGrid: TfrViewInformeBaseGrid
|
||||
OptionsFormatting.UseNativeStyles = True
|
||||
OptionsFormatting.ConsumeSelectionStyle = True
|
||||
OptionsLevels.Unwrap = True
|
||||
OptionsPagination.OneGroupPerPage = True
|
||||
OptionsPagination.TopLevelGroup = True
|
||||
OptionsRefinements.TransparentGraphics = True
|
||||
OptionsSize.AutoWidth = True
|
||||
OptionsView.Footers = False
|
||||
OptionsView.Caption = False
|
||||
OptionsView.ExpandButtons = False
|
||||
OptionsView.FilterBar = False
|
||||
|
||||
@ -349,6 +349,15 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
|
||||
Name = 'REFERENCIA_FACTURA_PROFORMA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -9,13 +9,13 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosPedidos = '{7F08C4EE-4DD3-424F-BF2B-03782FC2C921}';
|
||||
RID_PedidosProveedor = '{3AD30CEC-123C-4814-ABEE-7CBFEACC5046}';
|
||||
RID_PedidosCliente = '{3818AE6E-8880-4DA2-AFE7-3BA16B6ACDC9}';
|
||||
RID_PedidosCliente_Detalles = '{B5B584AB-7EDB-470F-BC37-CDC90F320865}';
|
||||
RID_PedidosCliente_Articulos_Pendientes = '{1463B127-D633-4CB1-B80C-2D1DC7D67D62}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{65EB3E68-A0F0-4D3E-B8B1-BE492B381E09}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{9E91A095-986F-4653-AFDD-DC35FD643A81}';
|
||||
RID_ListaAnosPedidos = '{1F0D1CEA-72FF-45DF-9F29-B717FF5CE397}';
|
||||
RID_PedidosProveedor = '{02DD8FC4-99BB-4B51-B89E-68253F4083B7}';
|
||||
RID_PedidosCliente = '{86DA25A6-F592-4109-A0EC-AC01227830F7}';
|
||||
RID_PedidosCliente_Detalles = '{C6F42BD9-08CD-46C4-A131-B65D54B2F57C}';
|
||||
RID_PedidosCliente_Articulos_Pendientes = '{3CE21E24-8BD5-466E-9C75-A614D7520177}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProv = '{5E9768A3-7561-45F9-BE05-7AD4F8C62367}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulos = '{41259178-2A0A-428F-9413-F0F4DFDA2FE7}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosPedidos = 'ListaAnosPedidos';
|
||||
@ -82,6 +82,8 @@ const
|
||||
fld_PedidosClienteTIPO_PEDIDO = 'TIPO_PEDIDO';
|
||||
fld_PedidosClientePAIS = 'PAIS';
|
||||
fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA = 'REFERENCIA_FACTURA_PROFORMA';
|
||||
fld_PedidosClienteID_AGENTE = 'ID_AGENTE';
|
||||
fld_PedidosClienteAGENTE = 'AGENTE';
|
||||
|
||||
{ PedidosCliente field indexes }
|
||||
idx_PedidosClienteID = 0;
|
||||
@ -121,6 +123,8 @@ const
|
||||
idx_PedidosClienteTIPO_PEDIDO = 34;
|
||||
idx_PedidosClientePAIS = 35;
|
||||
idx_PedidosClienteREFERENCIA_FACTURA_PROFORMA = 36;
|
||||
idx_PedidosClienteID_AGENTE = 37;
|
||||
idx_PedidosClienteAGENTE = 38;
|
||||
|
||||
{ PedidosCliente_Detalles fields }
|
||||
fld_PedidosCliente_DetallesID = 'ID';
|
||||
@ -221,7 +225,7 @@ const
|
||||
type
|
||||
{ IListaAnosPedidos }
|
||||
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
|
||||
['{02789823-2D71-4BEF-877E-81C3D47AF0DA}']
|
||||
['{177EEA18-7C34-4A84-A140-DBF289C2117A}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -256,7 +260,7 @@ type
|
||||
|
||||
{ IPedidosProveedor }
|
||||
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{AF236896-9645-4397-8A22-A52D507524C4}']
|
||||
['{AEE1E4F3-43E6-4860-8B0D-0BA958ECECAD}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -327,7 +331,7 @@ type
|
||||
|
||||
{ IPedidosCliente }
|
||||
IPedidosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{535A54FF-0C95-4C28-A2E2-BEF681F402AA}']
|
||||
['{DF1ECC19-1402-4CD6-97F9-CE8B308AADA6}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -475,6 +479,14 @@ type
|
||||
procedure SetREFERENCIA_FACTURA_PROFORMAValue(const aValue: String);
|
||||
function GetREFERENCIA_FACTURA_PROFORMAIsNull: Boolean;
|
||||
procedure SetREFERENCIA_FACTURA_PROFORMAIsNull(const aValue: Boolean);
|
||||
function GetID_AGENTEValue: Integer;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
||||
function GetID_AGENTEIsNull: Boolean;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
function GetAGENTEValue: String;
|
||||
procedure SetAGENTEValue(const aValue: String);
|
||||
function GetAGENTEIsNull: Boolean;
|
||||
procedure SetAGENTEIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
@ -552,6 +564,10 @@ type
|
||||
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
|
||||
property REFERENCIA_FACTURA_PROFORMA: String read GetREFERENCIA_FACTURA_PROFORMAValue write SetREFERENCIA_FACTURA_PROFORMAValue;
|
||||
property REFERENCIA_FACTURA_PROFORMAIsNull: Boolean read GetREFERENCIA_FACTURA_PROFORMAIsNull write SetREFERENCIA_FACTURA_PROFORMAIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
|
||||
end;
|
||||
|
||||
{ TPedidosClienteDataTableRules }
|
||||
@ -709,6 +725,14 @@ type
|
||||
procedure SetREFERENCIA_FACTURA_PROFORMAValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_FACTURA_PROFORMAIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_FACTURA_PROFORMAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
function GetID_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetAGENTEValue: String; virtual;
|
||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
||||
function GetAGENTEIsNull: Boolean; virtual;
|
||||
procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
@ -785,6 +809,10 @@ type
|
||||
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
|
||||
property REFERENCIA_FACTURA_PROFORMA: String read GetREFERENCIA_FACTURA_PROFORMAValue write SetREFERENCIA_FACTURA_PROFORMAValue;
|
||||
property REFERENCIA_FACTURA_PROFORMAIsNull: Boolean read GetREFERENCIA_FACTURA_PROFORMAIsNull write SetREFERENCIA_FACTURA_PROFORMAIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -794,7 +822,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Detalles }
|
||||
IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{C925A6AB-E18C-4CBD-A66E-2BE476B6E8A6}']
|
||||
['{6C0A0A95-C28F-4BEB-8D19-028D81B5E95C}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -985,7 +1013,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Articulos_Pendientes }
|
||||
IPedidosCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
|
||||
['{C382C4D3-A9E5-44D8-B146-7DC5F8BB14D7}']
|
||||
['{9F5240B2-878F-47ED-B6EB-1925918DD1F4}']
|
||||
{ Property getters and setters }
|
||||
function GetID_ARTICULOValue: Integer;
|
||||
procedure SetID_ARTICULOValue(const aValue: Integer);
|
||||
@ -1056,7 +1084,7 @@ type
|
||||
|
||||
{ IPedidoCliente_ArticulosPendientesPedirAProv }
|
||||
IPedidoCliente_ArticulosPendientesPedirAProv = interface(IDAStronglyTypedDataTable)
|
||||
['{5A762AF0-6C9A-44C1-88B0-5C5E9FECFF7F}']
|
||||
['{46D2A767-B41C-47B3-8678-EF4582DBA702}']
|
||||
{ Property getters and setters }
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
@ -1211,7 +1239,7 @@ type
|
||||
|
||||
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos }
|
||||
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos = interface(IDAStronglyTypedDataTable)
|
||||
['{3BF2FB66-EEC0-4D8C-8D81-B92DF3C1C1AD}']
|
||||
['{3E96988B-0D3B-44FC-9C12-AB89B024A7A3}']
|
||||
{ Property getters and setters }
|
||||
function GetID_PEDIDOValue: Integer;
|
||||
procedure SetID_PEDIDOValue(const aValue: Integer);
|
||||
@ -2297,6 +2325,48 @@ begin
|
||||
DataTable.Fields[idx_PedidosClienteREFERENCIA_FACTURA_PROFORMA].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidosClienteDataTableRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosClienteID_AGENTE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteDataTableRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidosClienteID_AGENTE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosClienteDataTableRules.GetID_AGENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosClienteID_AGENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidosClienteID_AGENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPedidosClienteDataTableRules.GetAGENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosClienteAGENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteDataTableRules.SetAGENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_PedidosClienteAGENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TPedidosClienteDataTableRules.GetAGENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PedidosClienteAGENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteDataTableRules.SetAGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PedidosClienteAGENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TPedidosCliente_DetallesDataTableRules }
|
||||
constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);
|
||||
|
||||
@ -9,18 +9,18 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosPedidosDelta = '{2A9F6811-8378-4F63-8F2F-65E1EC8FBFA6}';
|
||||
RID_PedidosProveedorDelta = '{F6BB4C65-CF9A-4DD3-A4A9-218BF96AA231}';
|
||||
RID_PedidosClienteDelta = '{5E14E396-2278-4E58-9E05-2187E20237DD}';
|
||||
RID_PedidosCliente_DetallesDelta = '{8BE084A3-2D4B-404D-9624-F4A5B4D0A3AD}';
|
||||
RID_PedidosCliente_Articulos_PendientesDelta = '{3202351E-CE35-40B7-B9F3-A9E8E82253A9}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{708CDEE3-6D6D-45FA-9FB2-D65DC92F6999}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{41CD6113-3662-4572-9A24-5246CD483138}';
|
||||
RID_ListaAnosPedidosDelta = '{9D5054B0-9042-4E8B-9A21-934C56BB7DE9}';
|
||||
RID_PedidosProveedorDelta = '{EC16A954-9598-4583-AEE4-6C7E97EA7EB1}';
|
||||
RID_PedidosClienteDelta = '{70F56B09-DB20-4AA9-A6B0-80E526A3FE87}';
|
||||
RID_PedidosCliente_DetallesDelta = '{DA4E3B5A-4E9B-4C9A-BD97-BEDA56DA2DC3}';
|
||||
RID_PedidosCliente_Articulos_PendientesDelta = '{EF9B7694-BF6A-4027-BA88-A4B4FBAEF511}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProvDelta = '{52337014-8D82-4655-ACD4-ED5D9D795653}';
|
||||
RID_PedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = '{D8ED7E2F-6543-4240-8533-68681E2B0DFA}';
|
||||
|
||||
type
|
||||
{ IListaAnosPedidosDelta }
|
||||
IListaAnosPedidosDelta = interface(IListaAnosPedidos)
|
||||
['{2A9F6811-8378-4F63-8F2F-65E1EC8FBFA6}']
|
||||
['{9D5054B0-9042-4E8B-9A21-934C56BB7DE9}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -54,7 +54,7 @@ type
|
||||
|
||||
{ IPedidosProveedorDelta }
|
||||
IPedidosProveedorDelta = interface(IPedidosProveedor)
|
||||
['{F6BB4C65-CF9A-4DD3-A4A9-218BF96AA231}']
|
||||
['{EC16A954-9598-4583-AEE4-6C7E97EA7EB1}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
@ -124,7 +124,7 @@ type
|
||||
|
||||
{ IPedidosClienteDelta }
|
||||
IPedidosClienteDelta = interface(IPedidosCliente)
|
||||
['{5E14E396-2278-4E58-9E05-2187E20237DD}']
|
||||
['{70F56B09-DB20-4AA9-A6B0-80E526A3FE87}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -163,6 +163,8 @@ type
|
||||
function GetOldTIPO_PEDIDOValue : String;
|
||||
function GetOldPAISValue : String;
|
||||
function GetOldREFERENCIA_FACTURA_PROFORMAValue : String;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
function GetOldAGENTEValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
@ -202,6 +204,8 @@ type
|
||||
property OldTIPO_PEDIDO : String read GetOldTIPO_PEDIDOValue;
|
||||
property OldPAIS : String read GetOldPAISValue;
|
||||
property OldREFERENCIA_FACTURA_PROFORMA : String read GetOldREFERENCIA_FACTURA_PROFORMAValue;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldAGENTE : String read GetOldAGENTEValue;
|
||||
end;
|
||||
|
||||
{ TPedidosClienteBusinessProcessorRules }
|
||||
@ -433,6 +437,18 @@ type
|
||||
function GetOldREFERENCIA_FACTURA_PROFORMAIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_FACTURA_PROFORMAValue(const aValue: String); virtual;
|
||||
procedure SetREFERENCIA_FACTURA_PROFORMAIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
function GetID_AGENTEIsNull: Boolean; virtual;
|
||||
function GetOldID_AGENTEValue: Integer; virtual;
|
||||
function GetOldID_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetAGENTEValue: String; virtual;
|
||||
function GetAGENTEIsNull: Boolean; virtual;
|
||||
function GetOldAGENTEValue: String; virtual;
|
||||
function GetOldAGENTEIsNull: Boolean; virtual;
|
||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
||||
procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
@ -583,6 +599,14 @@ type
|
||||
property REFERENCIA_FACTURA_PROFORMAIsNull : Boolean read GetREFERENCIA_FACTURA_PROFORMAIsNull write SetREFERENCIA_FACTURA_PROFORMAIsNull;
|
||||
property OldREFERENCIA_FACTURA_PROFORMA : String read GetOldREFERENCIA_FACTURA_PROFORMAValue;
|
||||
property OldREFERENCIA_FACTURA_PROFORMAIsNull : Boolean read GetOldREFERENCIA_FACTURA_PROFORMAIsNull;
|
||||
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
|
||||
property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
|
||||
property AGENTEIsNull : Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
|
||||
property OldAGENTE : String read GetOldAGENTEValue;
|
||||
property OldAGENTEIsNull : Boolean read GetOldAGENTEIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -592,7 +616,7 @@ type
|
||||
|
||||
{ IPedidosCliente_DetallesDelta }
|
||||
IPedidosCliente_DetallesDelta = interface(IPedidosCliente_Detalles)
|
||||
['{8BE084A3-2D4B-404D-9624-F4A5B4D0A3AD}']
|
||||
['{DA4E3B5A-4E9B-4C9A-BD97-BEDA56DA2DC3}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
@ -782,7 +806,7 @@ type
|
||||
|
||||
{ IPedidosCliente_Articulos_PendientesDelta }
|
||||
IPedidosCliente_Articulos_PendientesDelta = interface(IPedidosCliente_Articulos_Pendientes)
|
||||
['{3202351E-CE35-40B7-B9F3-A9E8E82253A9}']
|
||||
['{EF9B7694-BF6A-4027-BA88-A4B4FBAEF511}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_ARTICULOValue : Integer;
|
||||
function GetOldCANTIDAD_PEDValue : Currency;
|
||||
@ -852,7 +876,7 @@ type
|
||||
|
||||
{ IPedidoCliente_ArticulosPendientesPedirAProvDelta }
|
||||
IPedidoCliente_ArticulosPendientesPedirAProvDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProv)
|
||||
['{708CDEE3-6D6D-45FA-9FB2-D65DC92F6999}']
|
||||
['{52337014-8D82-4655-ACD4-ED5D9D795653}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -1006,7 +1030,7 @@ type
|
||||
|
||||
{ IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta }
|
||||
IPedidoCliente_ArticulosPendientesPedirAProvNoArticulosDelta = interface(IPedidoCliente_ArticulosPendientesPedirAProvNoArticulos)
|
||||
['{41CD6113-3662-4572-9A24-5246CD483138}']
|
||||
['{D8ED7E2F-6543-4240-8533-68681E2B0DFA}']
|
||||
{ Property getters and setters }
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldPOSICIONValue : Integer;
|
||||
@ -2514,6 +2538,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteREFERENCIA_FACTURA_PROFORMA] := Null;
|
||||
end;
|
||||
|
||||
function TPedidosClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_AGENTE];
|
||||
end;
|
||||
|
||||
function TPedidosClienteBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_AGENTE]);
|
||||
end;
|
||||
|
||||
function TPedidosClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_AGENTE];
|
||||
end;
|
||||
|
||||
function TPedidosClienteBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteID_AGENTE]);
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_AGENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteID_AGENTE] := Null;
|
||||
end;
|
||||
|
||||
function TPedidosClienteBusinessProcessorRules.GetAGENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteAGENTE];
|
||||
end;
|
||||
|
||||
function TPedidosClienteBusinessProcessorRules.GetAGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteAGENTE]);
|
||||
end;
|
||||
|
||||
function TPedidosClienteBusinessProcessorRules.GetOldAGENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteAGENTE];
|
||||
end;
|
||||
|
||||
function TPedidosClienteBusinessProcessorRules.GetOldAGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosClienteAGENTE]);
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteBusinessProcessorRules.SetAGENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteAGENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TPedidosClienteBusinessProcessorRules.SetAGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosClienteAGENTE] := Null;
|
||||
end;
|
||||
|
||||
|
||||
{ TPedidosCliente_DetallesBusinessProcessorRules }
|
||||
constructor TPedidosCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
|
||||
@ -224,6 +224,24 @@
|
||||
<Target Name="PedCli_PedProv_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de cliente - Pedidos a proveedor\PedCli_PedProv_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedCli_FacProforma_relation">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de cliente - Facturas proforma\PedCli_FacProforma_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedCli_FacProforma_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de cliente - Facturas proforma\PedCli_FacProforma_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedCli_FacProforma_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de cliente - Facturas proforma\PedCli_FacProforma_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PreCli_PedCli_relation">
|
||||
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Pedidos de cliente\PreCli_PedCli_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PreCli_PedCli_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Pedidos de cliente\PreCli_PedCli_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PreCli_PedCli_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Pedidos de cliente\PreCli_PedCli_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProveedor_controller">
|
||||
<MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -386,15 +404,6 @@
|
||||
<Target Name="ProcesoPresupuestosCliente_plugin:Make">
|
||||
<MSBuild Projects="..\ProcesoPresupuestoCliente\Plugin\ProcesoPresupuestosCliente_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PedCli_FacProforma_relation">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de cliente - Facturas proforma\PedCli_FacProforma_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PedCli_FacProforma_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de cliente - Facturas proforma\PedCli_FacProforma_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PedCli_FacProforma_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Pedidos de cliente - Facturas proforma\PedCli_FacProforma_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FacturasProforma_data">
|
||||
<MSBuild Projects="..\Facturas proforma\Data\FacturasProforma_data.dproj" Targets="" />
|
||||
</Target>
|
||||
@ -422,23 +431,14 @@
|
||||
<Target Name="PresupuestosCliente_view:Make">
|
||||
<MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="PreCli_PedCli_relation">
|
||||
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Pedidos de cliente\PreCli_PedCli_relation.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PreCli_PedCli_relation:Clean">
|
||||
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Pedidos de cliente\PreCli_PedCli_relation.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PreCli_PedCli_relation:Make">
|
||||
<MSBuild Projects="..\Relaciones\Presupuestos de cliente - Pedidos de cliente\PreCli_PedCli_relation.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;ApplicationBase;GUIBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_plugin;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view;ProcesoPresupuestosCliente_plugin;PedCli_FacProforma_relation;FacturasProforma_data;PresupuestosCliente_controller;PresupuestosCliente_view;PreCli_PedCli_relation" />
|
||||
<CallTarget Targets="Base;ApplicationBase;GUIBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;PedidosCliente_model;PedidosCliente_data;PedidosCliente_controller;AlbaranesProveedor_controller;Inventario_controller;PedProv_AlbProv_relation;PedCli_AlbCli_relation;PedCli_PedProv_relation;PedCli_FacProforma_relation;PreCli_PedCli_relation;FacturasProveedor_controller;PedidosCliente_view;PedidosCliente_plugin;AlbaranesProveedor_data;AlbaranesCliente_data;FactuGES;FactuGES_Server;Inventario_data;Inventario_view;AlbaranesProveedor_view;FacturasCliente_view;PedidosProveedor_model;PedidosProveedor_data;PedidosProveedor_controller;PedidosProveedor_plugin;ProcesoPresupuestosCliente_controller;ProcesoPresupuestosCliente_view;ProcesoPresupuestosCliente_plugin;FacturasProforma_data;PresupuestosCliente_controller;PresupuestosCliente_view" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean;ProcesoPresupuestosCliente_plugin:Clean;PedCli_FacProforma_relation:Clean;FacturasProforma_data:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean;PreCli_PedCli_relation:Clean" />
|
||||
<CallTarget Targets="Base:Clean;ApplicationBase:Clean;GUIBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;PedidosCliente_model:Clean;PedidosCliente_data:Clean;PedidosCliente_controller:Clean;AlbaranesProveedor_controller:Clean;Inventario_controller:Clean;PedProv_AlbProv_relation:Clean;PedCli_AlbCli_relation:Clean;PedCli_PedProv_relation:Clean;PedCli_FacProforma_relation:Clean;PreCli_PedCli_relation:Clean;FacturasProveedor_controller:Clean;PedidosCliente_view:Clean;PedidosCliente_plugin:Clean;AlbaranesProveedor_data:Clean;AlbaranesCliente_data:Clean;FactuGES:Clean;FactuGES_Server:Clean;Inventario_data:Clean;Inventario_view:Clean;AlbaranesProveedor_view:Clean;FacturasCliente_view:Clean;PedidosProveedor_model:Clean;PedidosProveedor_data:Clean;PedidosProveedor_controller:Clean;PedidosProveedor_plugin:Clean;ProcesoPresupuestosCliente_controller:Clean;ProcesoPresupuestosCliente_view:Clean;ProcesoPresupuestosCliente_plugin:Clean;FacturasProforma_data:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make;ProcesoPresupuestosCliente_plugin:Make;PedCli_FacProforma_relation:Make;FacturasProforma_data:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make;PreCli_PedCli_relation:Make" />
|
||||
<CallTarget Targets="Base:Make;ApplicationBase:Make;GUIBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;PedidosCliente_model:Make;PedidosCliente_data:Make;PedidosCliente_controller:Make;AlbaranesProveedor_controller:Make;Inventario_controller:Make;PedProv_AlbProv_relation:Make;PedCli_AlbCli_relation:Make;PedCli_PedProv_relation:Make;PedCli_FacProforma_relation:Make;PreCli_PedCli_relation:Make;FacturasProveedor_controller:Make;PedidosCliente_view:Make;PedidosCliente_plugin:Make;AlbaranesProveedor_data:Make;AlbaranesCliente_data:Make;FactuGES:Make;FactuGES_Server:Make;Inventario_data:Make;Inventario_view:Make;AlbaranesProveedor_view:Make;FacturasCliente_view:Make;PedidosProveedor_model:Make;PedidosProveedor_data:Make;PedidosProveedor_controller:Make;PedidosProveedor_plugin:Make;ProcesoPresupuestosCliente_controller:Make;ProcesoPresupuestosCliente_view:Make;ProcesoPresupuestosCliente_plugin:Make;FacturasProforma_data:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -246,6 +246,14 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
item
|
||||
DatasetField = 'REFERENCIA_FACTURA_PROFORMA'
|
||||
TableField = 'REFERENCIA_FACTURA_PROFORMA'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_AGENTE'
|
||||
TableField = 'ID_AGENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'AGENTE'
|
||||
TableField = 'AGENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'PedidosCliente'
|
||||
@ -449,6 +457,15 @@ object srvPedidosCliente: TsrvPedidosCliente
|
||||
Name = 'REFERENCIA_FACTURA_PROFORMA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end>
|
||||
end
|
||||
item
|
||||
|
||||
@ -153,6 +153,10 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
||||
Caption = 'Ref. factura proforma'
|
||||
DataBinding.FieldName = 'REFERENCIA_FACTURA_PROFORMA'
|
||||
end
|
||||
object cxGridViewAgente: TcxGridDBColumn
|
||||
Caption = 'Agente'
|
||||
DataBinding.FieldName = 'AGENTE'
|
||||
end
|
||||
end
|
||||
object cxGridDBTableView1: TcxGridDBTableView [1]
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
@ -235,12 +239,19 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
||||
ExplicitWidth = 839
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
Width = 829
|
||||
ExplicitLeft = 3
|
||||
ExplicitTop = 6
|
||||
ExplicitWidth = 829
|
||||
object TBXSeparatorItem2: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem3: TTBXItem
|
||||
Action = actCliente
|
||||
end
|
||||
object TBXSeparatorItem1: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem2: TTBXItem
|
||||
Action = actAgente
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -277,6 +288,11 @@ inherited frViewPedidosCliente: TfrViewPedidosCliente
|
||||
OnExecute = actClienteExecute
|
||||
OnUpdate = actClienteUpdate
|
||||
end
|
||||
object actAgente: TAction
|
||||
Caption = 'Agente'
|
||||
OnExecute = actAgenteExecute
|
||||
OnUpdate = actAgenteUpdate
|
||||
end
|
||||
end
|
||||
inherited GridPNGImageList: TPngImageList
|
||||
PngImages = <
|
||||
|
||||
@ -52,6 +52,10 @@ type
|
||||
cxGridViewREFERENCIA_CLIENTE: TcxGridDBColumn;
|
||||
cxGridViewTIPO_PEDIDO: TcxGridDBColumn;
|
||||
cxGridViewREFERENCIA_FACTURA_PROFORMA: TcxGridDBColumn;
|
||||
cxGridViewAgente: TcxGridDBColumn;
|
||||
actAgente: TAction;
|
||||
TBXItem2: TTBXItem;
|
||||
TBXSeparatorItem1: TTBXSeparatorItem;
|
||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||
TcxGridLevel);
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
@ -76,6 +80,8 @@ type
|
||||
procedure cxGridViewREF_TIENDA_WEBCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
procedure actAgenteExecute(Sender: TObject);
|
||||
procedure actAgenteUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
//Filtros relativos a la vista
|
||||
@ -100,6 +106,26 @@ uses
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrViewPedidosCliente.actAgenteExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewAGENTE.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewAGENTE.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := -1;
|
||||
cxGridViewAGENTE.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPedidosCliente.actAgenteUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewPedidosCliente.actClienteExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewNOMBRE.GroupIndex < 0) then
|
||||
|
||||
@ -256,6 +256,15 @@ inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NUM_COPIAS'
|
||||
DataType = datSmallInt
|
||||
|
||||
@ -3,15 +3,15 @@ unit schPresupuestosClienteClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosPresupuestos = '{7C9A1D45-633A-43E1-BA2E-FF9B84046FD5}';
|
||||
RID_PresupuestosCliente = '{1189B99E-2CDA-4602-919D-C609D96D2A90}';
|
||||
RID_PresupuestosCliente_Detalles = '{085498EC-C5B1-40FF-8E94-6AE308799F01}';
|
||||
RID_ListaAnosPresupuestos = '{A5CCBECB-9270-4681-9429-ED71B913E585}';
|
||||
RID_PresupuestosCliente = '{4F26E768-ACDD-41DA-9C20-CB307CF45DA0}';
|
||||
RID_PresupuestosCliente_Detalles = '{90202BD4-1F2C-452F-B216-695F23808796}';
|
||||
|
||||
{ Data table names }
|
||||
nme_ListaAnosPresupuestos = 'ListaAnosPresupuestos';
|
||||
@ -63,6 +63,8 @@ const
|
||||
fld_PresupuestosClienteID_TIPO_IVA = 'ID_TIPO_IVA';
|
||||
fld_PresupuestosClienteID_PEDIDO = 'ID_PEDIDO';
|
||||
fld_PresupuestosClienteREFERENCIA_PEDIDO_CLIENTE = 'REFERENCIA_PEDIDO_CLIENTE';
|
||||
fld_PresupuestosClienteID_AGENTE = 'ID_AGENTE';
|
||||
fld_PresupuestosClienteAGENTE = 'AGENTE';
|
||||
fld_PresupuestosClienteNUM_COPIAS = 'NUM_COPIAS';
|
||||
fld_PresupuestosClienteNUM_CORREOS = 'NUM_CORREOS';
|
||||
|
||||
@ -105,8 +107,10 @@ const
|
||||
idx_PresupuestosClienteID_TIPO_IVA = 35;
|
||||
idx_PresupuestosClienteID_PEDIDO = 36;
|
||||
idx_PresupuestosClienteREFERENCIA_PEDIDO_CLIENTE = 37;
|
||||
idx_PresupuestosClienteNUM_COPIAS = 38;
|
||||
idx_PresupuestosClienteNUM_CORREOS = 39;
|
||||
idx_PresupuestosClienteID_AGENTE = 38;
|
||||
idx_PresupuestosClienteAGENTE = 39;
|
||||
idx_PresupuestosClienteNUM_COPIAS = 40;
|
||||
idx_PresupuestosClienteNUM_CORREOS = 41;
|
||||
|
||||
{ PresupuestosCliente_Detalles fields }
|
||||
fld_PresupuestosCliente_DetallesID = 'ID';
|
||||
@ -145,7 +149,7 @@ const
|
||||
type
|
||||
{ IListaAnosPresupuestos }
|
||||
IListaAnosPresupuestos = interface(IDAStronglyTypedDataTable)
|
||||
['{3ED70730-85C2-4C27-A2F6-FEA51A435D94}']
|
||||
['{347EB82F-86E0-44F8-89CC-1A41D79E8CC0}']
|
||||
{ Property getters and setters }
|
||||
function GetANOValue: String;
|
||||
procedure SetANOValue(const aValue: String);
|
||||
@ -159,7 +163,7 @@ type
|
||||
end;
|
||||
|
||||
{ TListaAnosPresupuestosDataTableRules }
|
||||
TListaAnosPresupuestosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosPresupuestos)
|
||||
TListaAnosPresupuestosDataTableRules = class(TDADataTableRules, IListaAnosPresupuestos)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -180,7 +184,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente }
|
||||
IPresupuestosCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{9F9B3F3D-05D0-4A3C-9BAA-2F093CD0A031}']
|
||||
['{52E0A5A8-9605-4DD9-B295-9074E20F5153}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -330,6 +334,14 @@ type
|
||||
procedure SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String);
|
||||
function GetREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean;
|
||||
procedure SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean);
|
||||
function GetID_AGENTEValue: Integer;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer);
|
||||
function GetID_AGENTEIsNull: Boolean;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
function GetAGENTEValue: String;
|
||||
procedure SetAGENTEValue(const aValue: String);
|
||||
function GetAGENTEIsNull: Boolean;
|
||||
procedure SetAGENTEIsNull(const aValue: Boolean);
|
||||
function GetNUM_COPIASValue: SmallInt;
|
||||
procedure SetNUM_COPIASValue(const aValue: SmallInt);
|
||||
function GetNUM_COPIASIsNull: Boolean;
|
||||
@ -417,6 +429,10 @@ type
|
||||
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
|
||||
property REFERENCIA_PEDIDO_CLIENTE: String read GetREFERENCIA_PEDIDO_CLIENTEValue write SetREFERENCIA_PEDIDO_CLIENTEValue;
|
||||
property REFERENCIA_PEDIDO_CLIENTEIsNull: Boolean read GetREFERENCIA_PEDIDO_CLIENTEIsNull write SetREFERENCIA_PEDIDO_CLIENTEIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
|
||||
property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
||||
property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
|
||||
property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
|
||||
@ -424,7 +440,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPresupuestosClienteDataTableRules }
|
||||
TPresupuestosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente)
|
||||
TPresupuestosClienteDataTableRules = class(TDADataTableRules, IPresupuestosCliente)
|
||||
private
|
||||
f_PORTADA: IROStrings;
|
||||
f_MEMORIA: IROStrings;
|
||||
@ -584,6 +600,14 @@ type
|
||||
procedure SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String); virtual;
|
||||
function GetREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
function GetID_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetAGENTEValue: String; virtual;
|
||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
||||
function GetAGENTEIsNull: Boolean; virtual;
|
||||
procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetNUM_COPIASValue: SmallInt; virtual;
|
||||
procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual;
|
||||
function GetNUM_COPIASIsNull: Boolean; virtual;
|
||||
@ -670,6 +694,10 @@ type
|
||||
property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
|
||||
property REFERENCIA_PEDIDO_CLIENTE: String read GetREFERENCIA_PEDIDO_CLIENTEValue write SetREFERENCIA_PEDIDO_CLIENTEValue;
|
||||
property REFERENCIA_PEDIDO_CLIENTEIsNull: Boolean read GetREFERENCIA_PEDIDO_CLIENTEIsNull write SetREFERENCIA_PEDIDO_CLIENTEIsNull;
|
||||
property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
|
||||
property AGENTEIsNull: Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
|
||||
property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
||||
property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
|
||||
property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
|
||||
@ -683,7 +711,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente_Detalles }
|
||||
IPresupuestosCliente_Detalles = interface(IDAStronglyTypedDataTable)
|
||||
['{5E5C8B04-E48B-4886-8C47-62EFCE5F3ABF}']
|
||||
['{B0C6CE39-F20B-4FAA-AB25-C7B30B765A40}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -781,7 +809,7 @@ type
|
||||
end;
|
||||
|
||||
{ TPresupuestosCliente_DetallesDataTableRules }
|
||||
TPresupuestosCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPresupuestosCliente_Detalles)
|
||||
TPresupuestosCliente_DetallesDataTableRules = class(TDADataTableRules, IPresupuestosCliente_Detalles)
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
@ -1752,6 +1780,48 @@ begin
|
||||
DataTable.Fields[idx_PresupuestosClienteREFERENCIA_PEDIDO_CLIENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClienteID_AGENTE].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteDataTableRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_PresupuestosClienteID_AGENTE].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetID_AGENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClienteID_AGENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PresupuestosClienteID_AGENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetAGENTEValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClienteAGENTE].AsString;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteDataTableRules.SetAGENTEValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_PresupuestosClienteAGENTE].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetAGENTEIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClienteAGENTE].IsNull;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteDataTableRules.SetAGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_PresupuestosClienteAGENTE].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteDataTableRules.GetNUM_COPIASValue: SmallInt;
|
||||
begin
|
||||
result := DataTable.Fields[idx_PresupuestosClienteNUM_COPIAS].AsSmallInt;
|
||||
|
||||
@ -9,14 +9,14 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ListaAnosPresupuestosDelta = '{34CA5EA1-B06E-450B-8002-C5EB2092C142}';
|
||||
RID_PresupuestosClienteDelta = '{20AEA529-6FEF-4BE8-AA42-F8AE317348CE}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{8DC5B0B1-C2F2-424A-B6BB-155D253691F6}';
|
||||
RID_ListaAnosPresupuestosDelta = '{4E2ABD2B-B653-485B-B3D5-B907387C435D}';
|
||||
RID_PresupuestosClienteDelta = '{2147C1BA-1E8D-4946-83BD-F8C3EC79775A}';
|
||||
RID_PresupuestosCliente_DetallesDelta = '{B125B872-E2D4-46B6-888E-472B62E2775F}';
|
||||
|
||||
type
|
||||
{ IListaAnosPresupuestosDelta }
|
||||
IListaAnosPresupuestosDelta = interface(IListaAnosPresupuestos)
|
||||
['{34CA5EA1-B06E-450B-8002-C5EB2092C142}']
|
||||
['{4E2ABD2B-B653-485B-B3D5-B907387C435D}']
|
||||
{ Property getters and setters }
|
||||
function GetOldANOValue : String;
|
||||
|
||||
@ -50,7 +50,7 @@ type
|
||||
|
||||
{ IPresupuestosClienteDelta }
|
||||
IPresupuestosClienteDelta = interface(IPresupuestosCliente)
|
||||
['{20AEA529-6FEF-4BE8-AA42-F8AE317348CE}']
|
||||
['{2147C1BA-1E8D-4946-83BD-F8C3EC79775A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
@ -90,6 +90,8 @@ type
|
||||
function GetOldID_TIPO_IVAValue : Integer;
|
||||
function GetOldID_PEDIDOValue : Integer;
|
||||
function GetOldREFERENCIA_PEDIDO_CLIENTEValue : String;
|
||||
function GetOldID_AGENTEValue : Integer;
|
||||
function GetOldAGENTEValue : String;
|
||||
function GetOldNUM_COPIASValue : SmallInt;
|
||||
function GetOldNUM_CORREOSValue : SmallInt;
|
||||
|
||||
@ -132,6 +134,8 @@ type
|
||||
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
|
||||
property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
|
||||
property OldREFERENCIA_PEDIDO_CLIENTE : String read GetOldREFERENCIA_PEDIDO_CLIENTEValue;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldAGENTE : String read GetOldAGENTEValue;
|
||||
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
|
||||
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
|
||||
end;
|
||||
@ -373,6 +377,18 @@ type
|
||||
function GetOldREFERENCIA_PEDIDO_CLIENTEIsNull: Boolean; virtual;
|
||||
procedure SetREFERENCIA_PEDIDO_CLIENTEValue(const aValue: String); virtual;
|
||||
procedure SetREFERENCIA_PEDIDO_CLIENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetID_AGENTEValue: Integer; virtual;
|
||||
function GetID_AGENTEIsNull: Boolean; virtual;
|
||||
function GetOldID_AGENTEValue: Integer; virtual;
|
||||
function GetOldID_AGENTEIsNull: Boolean; virtual;
|
||||
procedure SetID_AGENTEValue(const aValue: Integer); virtual;
|
||||
procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetAGENTEValue: String; virtual;
|
||||
function GetAGENTEIsNull: Boolean; virtual;
|
||||
function GetOldAGENTEValue: String; virtual;
|
||||
function GetOldAGENTEIsNull: Boolean; virtual;
|
||||
procedure SetAGENTEValue(const aValue: String); virtual;
|
||||
procedure SetAGENTEIsNull(const aValue: Boolean); virtual;
|
||||
function GetNUM_COPIASValue: SmallInt; virtual;
|
||||
function GetNUM_COPIASIsNull: Boolean; virtual;
|
||||
function GetOldNUM_COPIASValue: SmallInt; virtual;
|
||||
@ -539,6 +555,14 @@ type
|
||||
property REFERENCIA_PEDIDO_CLIENTEIsNull : Boolean read GetREFERENCIA_PEDIDO_CLIENTEIsNull write SetREFERENCIA_PEDIDO_CLIENTEIsNull;
|
||||
property OldREFERENCIA_PEDIDO_CLIENTE : String read GetOldREFERENCIA_PEDIDO_CLIENTEValue;
|
||||
property OldREFERENCIA_PEDIDO_CLIENTEIsNull : Boolean read GetOldREFERENCIA_PEDIDO_CLIENTEIsNull;
|
||||
property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
|
||||
property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
|
||||
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
|
||||
property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
|
||||
property AGENTE : String read GetAGENTEValue write SetAGENTEValue;
|
||||
property AGENTEIsNull : Boolean read GetAGENTEIsNull write SetAGENTEIsNull;
|
||||
property OldAGENTE : String read GetOldAGENTEValue;
|
||||
property OldAGENTEIsNull : Boolean read GetOldAGENTEIsNull;
|
||||
property NUM_COPIAS : SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
|
||||
property NUM_COPIASIsNull : Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
|
||||
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
|
||||
@ -556,7 +580,7 @@ type
|
||||
|
||||
{ IPresupuestosCliente_DetallesDelta }
|
||||
IPresupuestosCliente_DetallesDelta = interface(IPresupuestosCliente_Detalles)
|
||||
['{8DC5B0B1-C2F2-424A-B6BB-155D253691F6}']
|
||||
['{B125B872-E2D4-46B6-888E-472B62E2775F}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_PRESUPUESTOValue : Integer;
|
||||
@ -2019,6 +2043,68 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteREFERENCIA_PEDIDO_CLIENTE] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_AGENTE];
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_AGENTE]);
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_AGENTE];
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteID_AGENTE]);
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_AGENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteID_AGENTE] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetAGENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteAGENTE];
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetAGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteAGENTE]);
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetOldAGENTEValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteAGENTE];
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetOldAGENTEIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PresupuestosClienteAGENTE]);
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteBusinessProcessorRules.SetAGENTEValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteAGENTE] := aValue;
|
||||
end;
|
||||
|
||||
procedure TPresupuestosClienteBusinessProcessorRules.SetAGENTEIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteAGENTE] := Null;
|
||||
end;
|
||||
|
||||
function TPresupuestosClienteBusinessProcessorRules.GetNUM_COPIASValue: SmallInt;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PresupuestosClienteNUM_COPIAS];
|
||||
|
||||
@ -206,6 +206,14 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
item
|
||||
DatasetField = 'NUM_CORREOS'
|
||||
TableField = 'NUM_CORREOS'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID_AGENTE'
|
||||
TableField = 'ID_AGENTE'
|
||||
end
|
||||
item
|
||||
DatasetField = 'AGENTE'
|
||||
TableField = 'AGENTE'
|
||||
end>
|
||||
end>
|
||||
Name = 'PresupuestosCliente'
|
||||
@ -410,6 +418,15 @@ object srvPresupuestosCliente: TsrvPresupuestosCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'AGENTE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'NUM_COPIAS'
|
||||
DataType = datSmallInt
|
||||
|
||||
@ -157,6 +157,10 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
|
||||
BestFitMaxWidth = 25
|
||||
Width = 25
|
||||
end
|
||||
object cxGridViewAGENTE: TcxGridDBColumn
|
||||
Caption = 'Agente'
|
||||
DataBinding.FieldName = 'AGENTE'
|
||||
end
|
||||
end
|
||||
object cxGridDBTableView1: TcxGridDBTableView [1]
|
||||
NavigatorButtons.ConfirmDelete = False
|
||||
@ -265,7 +269,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
|
||||
Action = actCliente
|
||||
end
|
||||
object TBXSeparatorItem1: TTBXSeparatorItem
|
||||
Visible = False
|
||||
end
|
||||
object TBXItem4: TTBXItem
|
||||
Action = actAgente
|
||||
end
|
||||
object TBXSeparatorItem3: TTBXSeparatorItem
|
||||
end
|
||||
object TBXItem2: TTBXItem
|
||||
Action = actProvincia
|
||||
@ -314,6 +322,11 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
|
||||
OnExecute = actProvinciaExecute
|
||||
OnUpdate = actProvinciaUpdate
|
||||
end
|
||||
object actAgente: TAction
|
||||
Caption = 'Agente'
|
||||
OnExecute = actAgenteExecute
|
||||
OnUpdate = actAgenteUpdate
|
||||
end
|
||||
end
|
||||
inherited GridPNGImageList: TPngImageList
|
||||
PngImages = <
|
||||
|
||||
@ -53,6 +53,10 @@ type
|
||||
cxGridViewTIPO_PRESUPUESTO: TcxGridDBColumn;
|
||||
cxGridViewNOM_COPIAS: TcxGridDBColumn;
|
||||
cxGridViewNUM_CORREOS: TcxGridDBColumn;
|
||||
cxGridViewAGENTE: TcxGridDBColumn;
|
||||
TBXItem4: TTBXItem;
|
||||
actAgente: TAction;
|
||||
TBXSeparatorItem3: TTBXSeparatorItem;
|
||||
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
|
||||
TcxGridLevel);
|
||||
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
|
||||
@ -84,6 +88,8 @@ type
|
||||
procedure cxGridViewNOM_COPIASCustomDrawHeader(Sender: TcxGridTableView;
|
||||
ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo;
|
||||
var ADone: Boolean);
|
||||
procedure actAgenteExecute(Sender: TObject);
|
||||
procedure actAgenteUpdate(Sender: TObject);
|
||||
|
||||
private
|
||||
//Filtros relativos a la vista
|
||||
@ -108,6 +114,26 @@ uses
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrViewPresupuestosCliente.actAgenteExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewAGENTE.GroupIndex < 0) then
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
|
||||
cxGridViewAGENTE.Visible := False;
|
||||
end
|
||||
else
|
||||
begin
|
||||
cxGridViewAGENTE.GroupIndex := -1;
|
||||
cxGridViewAGENTE.Visible := True;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrViewPresupuestosCliente.actAgenteUpdate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
(Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
|
||||
end;
|
||||
|
||||
procedure TfrViewPresupuestosCliente.actClienteExecute(Sender: TObject);
|
||||
begin
|
||||
if (cxGridViewNOMBRE.GroupIndex < 0) then
|
||||
|
||||
Binary file not shown.
@ -35,7 +35,9 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">3</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 10 de marzo de 2015 18:26</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">4</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 22 de abril de 2015 17:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo\Resources\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 4,4,3,0
|
||||
PRODUCTVERSION 4,4,3,0
|
||||
FILEVERSION 4,4,4,0
|
||||
PRODUCTVERSION 4,4,4,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -12,9 +12,9 @@ BEGIN
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "4.4.3.0\0"
|
||||
VALUE "ProductVersion", "4.4.3.0\0"
|
||||
VALUE "CompileDate", "miércoles, 22 de abril de 2015 17:48\0"
|
||||
VALUE "FileVersion", "4.4.4.0\0"
|
||||
VALUE "ProductVersion", "4.4.4.0\0"
|
||||
VALUE "CompileDate", "viernes, 11 de septiembre de 2015 10:44\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Reference in New Issue
Block a user