Campo tipo de pago en remesas de cliente y proveedor, además de otros arraglos
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@103 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
parent
af07fc6b6c
commit
799355f951
@ -44,10 +44,10 @@ DROP VIEW V_ALB_CLI_SITUACION;
|
||||
|
||||
DROP VIEW V_PEDIDOS_PROVEEDOR;
|
||||
DROP VIEW V_PED_PROV_SITUACION;
|
||||
DROP VIEW V_PED_PROV_PARCIALMENTE;
|
||||
DROP VIEW V_PED_PROV_RECIBIDOS;
|
||||
DROP VIEW V_PED_PROV_NUM_ARTICULOS;
|
||||
DROP VIEW V_PED_PROV_ARTICULOS_RECIBIDOS2;
|
||||
/**/ DROP VIEW V_PED_PROV_PARCIALMENTE;
|
||||
/**/ DROP VIEW V_PED_PROV_RECIBIDOS;
|
||||
/**/ DROP VIEW V_PED_PROV_NUM_ARTICULOS;
|
||||
/**/ DROP VIEW V_PED_PROV_ARTICULOS_RECIBIDOS2;
|
||||
|
||||
DROP VIEW V_PED_PROV_ARTICULOS;
|
||||
DROP VIEW V_PED_PROV_ARTICULOS_AUX;
|
||||
@ -646,6 +646,7 @@ CREATE VIEW V_REMESAS_CLIENTE(
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
FECHA_REMESA,
|
||||
DESCRIPCION,
|
||||
ID_DATOS_BANCO,
|
||||
@ -665,6 +666,7 @@ SELECT
|
||||
REMESAS_CLIENTE.ID,
|
||||
REMESAS_CLIENTE.ID_EMPRESA,
|
||||
REMESAS_CLIENTE.REFERENCIA,
|
||||
REMESAS_CLIENTE.TIPO,
|
||||
REMESAS_CLIENTE.FECHA_REMESA,
|
||||
REMESAS_CLIENTE.DESCRIPCION,
|
||||
REMESAS_CLIENTE.ID_DATOS_BANCO,
|
||||
@ -685,7 +687,7 @@ FROM
|
||||
LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_CLIENTE.ID_DATOS_BANCO)
|
||||
LEFT OUTER JOIN RECIBOS_CLIENTE ON (RECIBOS_CLIENTE.ID_REMESA = REMESAS_CLIENTE.ID)
|
||||
LEFT OUTER JOIN V_REC_CLI_COMPENSADOS ON (V_REC_CLI_COMPENSADOS.ID_RECIBO = RECIBOS_CLIENTE.ID)
|
||||
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16;
|
||||
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17;
|
||||
|
||||
|
||||
|
||||
@ -1441,79 +1443,18 @@ HAVING SUM(CANTIDAD_PEDIDA) IS NOT NULL;
|
||||
|
||||
/*POR COMENTAR*/
|
||||
|
||||
CREATE VIEW V_PED_PROV_ARTICULOS_RECIBIDOS2(
|
||||
ID_PEDIDO,
|
||||
CANTIDAD)
|
||||
AS
|
||||
select ID_PEDIDO, count(CANTIDAD_PENDIENTE)
|
||||
from V_PED_PROV_ARTICULOS
|
||||
where (CANTIDAD_PENDIENTE <= 0)
|
||||
group by ID_PEDIDO;
|
||||
|
||||
CREATE VIEW V_PED_PROV_NUM_ARTICULOS(
|
||||
ID_PEDIDO,
|
||||
CANTIDAD)
|
||||
AS
|
||||
select ID_PEDIDO, count(ID_ARTICULO)
|
||||
from V_PED_PROV_DETALLES
|
||||
group by ID_PEDIDO;
|
||||
|
||||
CREATE VIEW V_PED_PROV_RECIBIDOS(
|
||||
ID_PEDIDO)
|
||||
AS
|
||||
SELECT V_PED_PROV_ARTICULOS_RECIBIDOS2.ID_PEDIDO
|
||||
from V_PED_PROV_ARTICULOS_RECIBIDOS2
|
||||
LEFT JOIN V_PED_PROV_NUM_ARTICULOS
|
||||
on (V_PED_PROV_NUM_ARTICULOS.ID_PEDIDO = V_PED_PROV_ARTICULOS_RECIBIDOS2.ID_PEDIDO)
|
||||
where V_PED_PROV_ARTICULOS_RECIBIDOS2.CANTIDAD = V_PED_PROV_NUM_ARTICULOS.CANTIDAD;
|
||||
|
||||
CREATE VIEW V_PED_PROV_PARCIALMENTE(
|
||||
ID_PEDIDO)
|
||||
AS
|
||||
Select DISTINCT(ID_PEDIDO)
|
||||
from v_ped_prov_articulos_recibidos
|
||||
where id_pedido not in (select ID_PEDIDO from V_PED_PROV_RECIBIDOS);
|
||||
|
||||
CREATE VIEW V_PED_PROV_SITUACION(
|
||||
ID_PEDIDO,
|
||||
SITUACION)
|
||||
AS
|
||||
/*ANTERIOR A LA VISTA ACTUAL
|
||||
SELECT ID_PEDIDO,
|
||||
CASE
|
||||
WHEN (HAY_ALBARANES = 0) OR (CANTIDAD_RECIBIDA <= 0) THEN 'PENDIENTE'
|
||||
WHEN (CANTIDAD_PENDIENTE <= 0) THEN 'RECIBIDO'
|
||||
ELSE 'PARCIAL'
|
||||
END AS SITUACION
|
||||
FROM
|
||||
(SELECT V_PED_PROV_ARTICULOS.ID_PEDIDO,
|
||||
SUM(V_PED_PROV_ARTICULOS.CANTIDAD_PEDIDA) AS CANTIDAD_PEDIDA,
|
||||
SUM(V_PED_PROV_ARTICULOS.CANTIDAD_RECIBIDA) AS CANTIDAD_RECIBIDA,
|
||||
SUM(V_PED_PROV_ARTICULOS.CANTIDAD_PENDIENTE) AS CANTIDAD_PENDIENTE,
|
||||
CASE
|
||||
WHEN COUNT(ALBARANES_PROVEEDOR.ID) > 0 THEN 1
|
||||
ELSE 0
|
||||
END AS HAY_ALBARANES
|
||||
FROM ALBARANES_PROVEEDOR
|
||||
RIGHT OUTER JOIN V_PED_PROV_ARTICULOS ON (ALBARANES_PROVEEDOR.ID_PEDIDO =
|
||||
V_PED_PROV_ARTICULOS.ID_PEDIDO)
|
||||
GROUP BY V_PED_PROV_ARTICULOS.ID_PEDIDO);
|
||||
*/
|
||||
|
||||
select ID, 'PENDIENTE'
|
||||
from PEDIDOS_PROVEEDOR
|
||||
where (ID not in (select ID_PEDIDO from v_ped_prov_parcialmente))
|
||||
and (ID not in (select ID_PEDIDO from v_ped_prov_recibidos))
|
||||
|
||||
union all
|
||||
|
||||
select ID_PEDIDO, 'PARCIAL'
|
||||
from v_ped_prov_parcialmente
|
||||
|
||||
union all
|
||||
|
||||
select ID_PEDIDO, 'RECIBIDO'
|
||||
from v_ped_prov_recibidos;
|
||||
CASE WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) = 0) THEN 'PENDIENTE'
|
||||
WHEN (SUM(CANTIDAD_PENDIENTE) <= 0) THEN 'RECIBIDO'
|
||||
WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) > 0) THEN 'PARCIAL'
|
||||
ELSE 'N/A'
|
||||
END AS SITUACION
|
||||
FROM V_PED_PROV_ARTICULOS
|
||||
GROUP BY V_PED_PROV_ARTICULOS.ID_PEDIDO;
|
||||
|
||||
|
||||
CREATE VIEW V_PEDIDOS_CLIENTE(
|
||||
@ -2262,6 +2203,7 @@ CREATE VIEW V_REMESAS_PROVEEDOR(
|
||||
ID,
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
TIPO,
|
||||
FECHA_REMESA,
|
||||
DESCRIPCION,
|
||||
ID_DATOS_BANCO,
|
||||
@ -2281,6 +2223,7 @@ SELECT
|
||||
REMESAS_PROVEEDOR.ID,
|
||||
REMESAS_PROVEEDOR.ID_EMPRESA,
|
||||
REMESAS_PROVEEDOR.REFERENCIA,
|
||||
REMESAS_PROVEEDOR.TIPO,
|
||||
REMESAS_PROVEEDOR.FECHA_REMESA,
|
||||
REMESAS_PROVEEDOR.DESCRIPCION,
|
||||
REMESAS_PROVEEDOR.ID_DATOS_BANCO,
|
||||
@ -2301,7 +2244,7 @@ FROM
|
||||
LEFT OUTER JOIN EMPRESAS_DATOS_BANCO ON (EMPRESAS_DATOS_BANCO.ID = REMESAS_PROVEEDOR.ID_DATOS_BANCO)
|
||||
LEFT OUTER JOIN RECIBOS_PROVEEDOR ON (RECIBOS_PROVEEDOR.ID_REMESA = REMESAS_PROVEEDOR.ID)
|
||||
LEFT OUTER JOIN V_REC_PRO_COMPENSADOS ON (V_REC_PRO_COMPENSADOS.ID_RECIBO = RECIBOS_PROVEEDOR.ID)
|
||||
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16;
|
||||
GROUP BY 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17;
|
||||
|
||||
|
||||
/*Vista para ver para quien estan reservados los articulos del inventario*/
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
inherited fEditorAgente: TfEditorAgente
|
||||
Caption = 'fEditorAgente'
|
||||
ClientHeight = 498
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 532
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
@ -47,12 +46,8 @@ inherited fEditorAgente: TfEditorAgente
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Height = 403
|
||||
ActivePage = pagDatosBancarios
|
||||
ExplicitHeight = 403
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 375
|
||||
inline frViewAgente1: TfrViewAgente
|
||||
Left = 0
|
||||
@ -265,15 +260,9 @@ inherited fEditorAgente: TfEditorAgente
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 624
|
||||
ExplicitWidth = 624
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 74
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 117
|
||||
end
|
||||
|
||||
@ -52,7 +52,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 440
|
||||
ExplicitWidth = 446
|
||||
object TBXItem7: TTBXItem [7]
|
||||
Action = actGruposCliente
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -65,12 +65,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 656
|
||||
Height = 490
|
||||
ActivePage = pagDatosComerciales
|
||||
ActivePage = pagDatosBancarios
|
||||
ExplicitWidth = 656
|
||||
ExplicitHeight = 490
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 648
|
||||
ExplicitHeight = 462
|
||||
inline frViewCliente1: TfrViewCliente
|
||||
@ -185,6 +183,14 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ExplicitWidth = 91
|
||||
Width = 91
|
||||
end
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
Left = 429
|
||||
Top = 315
|
||||
ExplicitLeft = 429
|
||||
ExplicitTop = 315
|
||||
ExplicitWidth = 275
|
||||
Width = 275
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 524
|
||||
Top = 30
|
||||
@ -232,14 +238,6 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
Left = 429
|
||||
Top = 315
|
||||
ExplicitLeft = 429
|
||||
ExplicitTop = 315
|
||||
ExplicitWidth = 275
|
||||
Width = 275
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 524
|
||||
Top = 190
|
||||
@ -282,9 +280,23 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Width = 648
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 648
|
||||
inherited eEntidad: TcxDBTextEdit
|
||||
ExplicitWidth = 114
|
||||
Width = 114
|
||||
end
|
||||
inherited eSucursal: TcxDBTextEdit
|
||||
Left = 418
|
||||
ExplicitLeft = 418
|
||||
ExplicitWidth = 112
|
||||
Width = 112
|
||||
end
|
||||
inherited eCuenta: TcxDBTextEdit
|
||||
ExplicitWidth = 194
|
||||
Width = 194
|
||||
end
|
||||
inherited eTitular: TcxDBTextEdit
|
||||
ExplicitWidth = 194
|
||||
Width = 194
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -7,7 +7,6 @@ inherited fEditorContacto: TfEditorContacto
|
||||
ClientWidth = 632
|
||||
Scaled = False
|
||||
ExplicitWidth = 640
|
||||
ExplicitHeight = 240
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -23,7 +22,7 @@ inherited fEditorContacto: TfEditorContacto
|
||||
Width = 632
|
||||
ExplicitWidth = 632
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 324
|
||||
ExplicitWidth = 330
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -77,10 +76,10 @@ inherited fEditorContacto: TfEditorContacto
|
||||
Width = 632
|
||||
ExplicitWidth = 632
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 624
|
||||
ExplicitHeight = 0
|
||||
ExplicitHeight = 338
|
||||
end
|
||||
object pagDatosBancarios: TTabSheet
|
||||
Caption = 'Datos bancarios'
|
||||
@ -108,22 +107,16 @@ inherited fEditorContacto: TfEditorContacto
|
||||
inherited eEntidad: TcxDBTextEdit
|
||||
Top = 57
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 114
|
||||
Width = 114
|
||||
end
|
||||
inherited eSucursal: TcxDBTextEdit
|
||||
Left = 405
|
||||
Left = 406
|
||||
Top = 57
|
||||
ExplicitLeft = 405
|
||||
ExplicitLeft = 406
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 112
|
||||
Width = 112
|
||||
end
|
||||
inherited eCuenta: TcxDBTextEdit
|
||||
Top = 84
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 194
|
||||
Width = 194
|
||||
end
|
||||
inherited eDC: TcxDBTextEdit
|
||||
Top = 84
|
||||
@ -132,8 +125,6 @@ inherited fEditorContacto: TfEditorContacto
|
||||
inherited eTitular: TcxDBTextEdit
|
||||
Top = 30
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 194
|
||||
Width = 194
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -60,7 +60,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitTop = 335
|
||||
ExplicitTop = 334
|
||||
ExplicitWidth = 599
|
||||
inherited JvFooter1: TJvFooter
|
||||
Width = 599
|
||||
@ -95,6 +95,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
Margins.Bottom = 0
|
||||
AllowDelete = False
|
||||
AllowInsert = False
|
||||
Color = clBtnFace
|
||||
DataSource = dsDirecciones
|
||||
PanelHeight = 87
|
||||
PanelWidth = 566
|
||||
@ -116,6 +117,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object ePoblacion: TDBText
|
||||
Left = 70
|
||||
@ -131,6 +133,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object eTelefono: TDBText
|
||||
Left = 423
|
||||
@ -146,6 +149,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object eProvincia: TDBText
|
||||
Left = 423
|
||||
@ -161,6 +165,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object ePersonaContacto: TDBText
|
||||
Left = 124
|
||||
@ -176,6 +181,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object eNombre: TDBText
|
||||
Left = 8
|
||||
@ -191,6 +197,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object eCodigoPostal: TDBText
|
||||
Left = 353
|
||||
@ -206,6 +213,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 15
|
||||
@ -213,6 +221,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
Width = 27
|
||||
Height = 13
|
||||
Caption = 'Calle:'
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 15
|
||||
@ -220,6 +229,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
Width = 49
|
||||
Height = 13
|
||||
Caption = 'Poblaci'#243'n:'
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 447
|
||||
@ -227,6 +237,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
Width = 30
|
||||
Height = 13
|
||||
Caption = 'Porte:'
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object ePorte: TDBText
|
||||
Left = 483
|
||||
@ -242,6 +253,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Transparent = True
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 15
|
||||
@ -249,6 +261,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
|
||||
Width = 103
|
||||
Height = 13
|
||||
Caption = 'Persona de contacto:'
|
||||
OnDblClick = ComponenteDblClick
|
||||
end
|
||||
end
|
||||
object dsDirecciones: TDADataSource
|
||||
|
||||
@ -30,6 +30,7 @@ type
|
||||
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
|
||||
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
|
||||
procedure DBCtrlGrid1DblClick(Sender: TObject);
|
||||
procedure ComponenteDblClick(Sender: TObject);
|
||||
|
||||
protected
|
||||
FDirecciones: IBizDireccionesContacto;
|
||||
@ -60,6 +61,11 @@ begin
|
||||
frViewBarraSeleccion1.actSeleccionar.Execute;
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirDireccionEntrega.ComponenteDblClick(Sender: TObject);
|
||||
begin
|
||||
DBCtrlGrid1DblClick(Sender);
|
||||
end;
|
||||
|
||||
procedure TfEditorElegirDireccionEntrega.frViewBarraSeleccion1actCancelarExecute(
|
||||
Sender: TObject);
|
||||
begin
|
||||
|
||||
@ -1,7 +1,6 @@
|
||||
inherited fEditorProveedor: TfEditorProveedor
|
||||
Caption = 'fEditorProveedor'
|
||||
ClientHeight = 548
|
||||
ExplicitWidth = 320
|
||||
ExplicitHeight = 582
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
@ -44,9 +43,6 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Height = 453
|
||||
ExplicitHeight = 453
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 425
|
||||
inline frViewProveedor1: TfrViewProveedor
|
||||
Left = 0
|
||||
@ -136,6 +132,14 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
end
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
Left = 368
|
||||
Top = 270
|
||||
ExplicitLeft = 368
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 310
|
||||
Width = 310
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 463
|
||||
Top = 30
|
||||
@ -183,14 +187,6 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ExplicitWidth = 129
|
||||
Width = 129
|
||||
end
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
Left = 368
|
||||
Top = 270
|
||||
ExplicitLeft = 368
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 310
|
||||
Width = 310
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 463
|
||||
Top = 190
|
||||
@ -224,13 +220,9 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ExplicitHeight = 425
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
inherited eEntidad: TcxDBTextEdit
|
||||
ExplicitWidth = 144
|
||||
Width = 144
|
||||
end
|
||||
inherited eSucursal: TcxDBTextEdit
|
||||
ExplicitWidth = 139
|
||||
Width = 139
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
end
|
||||
inherited eCuenta: TcxDBTextEdit
|
||||
ExplicitWidth = 242
|
||||
|
||||
@ -13,7 +13,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth]
|
||||
object eEntidad: TcxDBTextEdit
|
||||
Left = 116
|
||||
Left = 117
|
||||
Top = 55
|
||||
DataBinding.DataField = 'ENTIDAD'
|
||||
DataBinding.DataSource = dsDatosBancarios
|
||||
@ -32,7 +32,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
|
||||
Width = 114
|
||||
end
|
||||
object eSucursal: TcxDBTextEdit
|
||||
Left = 340
|
||||
Left = 341
|
||||
Top = 55
|
||||
DataBinding.DataField = 'SUCURSAL'
|
||||
DataBinding.DataSource = dsDatosBancarios
|
||||
@ -51,7 +51,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
|
||||
Width = 112
|
||||
end
|
||||
object eCuenta: TcxDBTextEdit
|
||||
Left = 237
|
||||
Left = 238
|
||||
Top = 82
|
||||
DataBinding.DataField = 'CUENTA'
|
||||
DataBinding.DataSource = dsDatosBancarios
|
||||
@ -70,7 +70,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
|
||||
Width = 194
|
||||
end
|
||||
object eDC: TcxDBTextEdit
|
||||
Left = 116
|
||||
Left = 117
|
||||
Top = 82
|
||||
DataBinding.DataField = 'DC'
|
||||
DataBinding.DataSource = dsDatosBancarios
|
||||
@ -89,7 +89,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
|
||||
Width = 47
|
||||
end
|
||||
object eTitular: TcxDBTextEdit
|
||||
Left = 116
|
||||
Left = 117
|
||||
Top = 28
|
||||
DataBinding.DataField = 'TITULAR'
|
||||
DataBinding.DataSource = dsDatosBancarios
|
||||
@ -114,7 +114,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
|
||||
object dxLayoutControl1Group3: TdxLayoutGroup
|
||||
Caption = 'Datos bancarios'
|
||||
object dxLayoutControl1Item5: TdxLayoutItem
|
||||
Caption = 'Nombre del titular:'
|
||||
Caption = 'Nombre del banco:'
|
||||
Control = eTitular
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
|
||||
@ -9,6 +9,9 @@ uses
|
||||
const
|
||||
BIZ_SERVER_FACTURAS_CLIENTE = 'Server.FacturasCliente';
|
||||
REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE';
|
||||
REF_ABONOS_CLIENTE = 'REF_ABONOS_CLIENTE';
|
||||
CTE_TIPO_ABONO = 'A';
|
||||
CTE_TIPO_FACTURA = 'F';
|
||||
|
||||
type
|
||||
TBizFacturasClienteServer = class(TFacturasClienteBusinessProcessorRules)
|
||||
@ -34,6 +37,7 @@ var
|
||||
ACurrentConn : IDAConnection;
|
||||
dsData: IDADataset;
|
||||
Empresa : Variant;
|
||||
Tipo : Variant;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
@ -49,8 +53,13 @@ begin
|
||||
try
|
||||
//Siempre va a estar rellena
|
||||
Empresa := aChange.NewValueByName[fld_FacturasClienteID_EMPRESA];
|
||||
Tipo := aChange.NewValueByName[fld_FacturasClienteTIPO];
|
||||
|
||||
if Tipo = CTE_TIPO_FACTURA then
|
||||
dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_CLIENTE, Empresa])
|
||||
else
|
||||
dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_ABONOS_CLIENTE, Empresa]);
|
||||
|
||||
dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_CLIENTE, Empresa]);
|
||||
except
|
||||
RaiseError('No existe la tabla REFERENCIAS');
|
||||
end;
|
||||
@ -58,12 +67,16 @@ begin
|
||||
dsData.Active := True;
|
||||
|
||||
if dsData.IsEmpty then
|
||||
RaiseError('NO HAY REFERENCIA ' + REF_FACTURAS_CLIENTE + ' DECLARADA EN TABLA REFERENCIAS');
|
||||
RaiseError('NO HAY REFERENCIA ' + REF_FACTURAS_CLIENTE + ' / ' + REF_ABONOS_CLIENTE + ' DECLARADA EN TABLA REFERENCIAS');
|
||||
|
||||
REFERENCIA := dsData.FieldByName('VALOR').AsString;
|
||||
|
||||
try
|
||||
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_FACTURAS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]);
|
||||
if Tipo = CTE_TIPO_FACTURA then
|
||||
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_FACTURAS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa])
|
||||
else
|
||||
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_ABONOS_CLIENTE, DarReferenciaSiguiente(REFERENCIA), Empresa]);
|
||||
|
||||
except
|
||||
RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
|
||||
end;
|
||||
|
||||
@ -36,7 +36,7 @@ type
|
||||
protected
|
||||
{ IsrvFacturasCliente methods }
|
||||
function GetNextAutoInc(const GeneratorName: String): Integer;
|
||||
function GenerateReport(const FacturaID: Integer): Binary;
|
||||
function GenerateReport(const FacturaID: Integer): Binary;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -75,7 +75,7 @@ end;
|
||||
procedure TsrvFacturasCliente.DARemoteServiceCreate(Sender: TObject);
|
||||
begin
|
||||
SessionManager := dmServer.SessionManager;
|
||||
bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
|
||||
bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
|
||||
end;
|
||||
|
||||
function TsrvFacturasCliente.GenerateReport(const FacturaID: Integer): Binary;
|
||||
|
||||
@ -38,7 +38,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
Width = 640
|
||||
ExplicitWidth = 640
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 623
|
||||
ExplicitWidth = 632
|
||||
object TBXSubmenuItem2: TTBXSubmenuItem [0]
|
||||
Caption = 'Nuevo'
|
||||
DisplayMode = nbdmImageAndText
|
||||
@ -90,24 +90,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
ExplicitWidth = 640
|
||||
ExplicitHeight = 417
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
Column = frViewFacturasCliente1.cxGridViewIMPORTE_IVA
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Column = frViewFacturasCliente1.cxGridViewIMPORTE_IVA
|
||||
end
|
||||
item
|
||||
Format = '0 facturas'
|
||||
Kind = skCount
|
||||
Column = frViewFacturasCliente1.cxGridViewTIPO
|
||||
end>
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
@ -121,9 +103,19 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 636
|
||||
ExplicitWidth = 636
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 393
|
||||
ExplicitLeft = 393
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
|
||||
@ -110,17 +110,17 @@ begin
|
||||
else
|
||||
Opcion := 100;
|
||||
|
||||
case Opcion of
|
||||
200 : begin // Utilizar factura seleccionada
|
||||
FController.Ver(FController.GenerarAbono(Facturas));
|
||||
actRefrescar.Execute;
|
||||
ViewGrid._FocusedView.DataController.GotoFirst;
|
||||
end;
|
||||
100 : begin // Abono nuevo vacio
|
||||
if FController.AnadirAbono(Facturas) then
|
||||
FController.Ver(Facturas);
|
||||
end;
|
||||
case Opcion of
|
||||
200 : begin // Utilizar factura seleccionada
|
||||
FController.Ver(FController.GenerarAbono(Facturas));
|
||||
actRefrescar.Execute;
|
||||
ViewGrid._FocusedView.DataController.GotoFirst;
|
||||
end;
|
||||
100 : begin // Abono nuevo vacio
|
||||
if FController.AnadirAbono(Facturas) then
|
||||
FController.Ver(Facturas);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TfEditorFacturasCliente.Create(AOwner: TComponent);
|
||||
@ -153,11 +153,11 @@ var
|
||||
ACadena : String;
|
||||
begin
|
||||
if Facturas.TIPO = CTE_TIPO_FACTURA then
|
||||
ACadena := '¿Desea borrar esta factura de cliente?'
|
||||
ACadena := '¿Desea borrar esta factura de cliente?'
|
||||
else
|
||||
ACadena := '¿Desea borrar este abono a cliente?';
|
||||
ACadena := '¿Desea borrar este abono a cliente?';
|
||||
|
||||
if (Application.MessageBox(PChar(ACadena), 'Atención', MB_YESNO) = IDYES) then
|
||||
if (Application.MessageBox(PChar(ACadena), 'Atención', MB_YESNO) = IDYES) then
|
||||
begin
|
||||
FController.Eliminar(Facturas);
|
||||
inherited;
|
||||
@ -192,7 +192,7 @@ procedure TfEditorFacturasCliente.ImprimirInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
begin
|
||||
//Si esta agrupado solo podré imprimir la lista de elementos visibles
|
||||
//Si esta agrupado solo podré imprimir la lista de elementos visibles
|
||||
if not ViewGrid.esSeleccionCeldaDatos then
|
||||
inherited
|
||||
else
|
||||
@ -241,7 +241,7 @@ begin
|
||||
try
|
||||
APedido := FPedidosClienteController.ElegirPedidos(FPedidosClienteController.BuscarPendientes,
|
||||
'Elija el pedido de cliente que desea utilizar para dar de alta la factura.'
|
||||
+ #10#13 + 'Tenga en cuenta que sólo se podrán utilizar pedidos que no tengan ningún albarán ya asociado.', False);
|
||||
+ #10#13 + 'Tenga en cuenta que sólo se podrán utilizar pedidos que no tengan ningún albarán ya asociado.', False);
|
||||
if Assigned(APedido) then
|
||||
begin
|
||||
if FController.Anadir(Facturas, APedido) then
|
||||
@ -275,7 +275,7 @@ procedure TfEditorFacturasCliente.PrevisualizarInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
begin
|
||||
//Si esta agrupado solo podré imprimir la lista de elementos visibles
|
||||
//Si esta agrupado solo podré imprimir la lista de elementos visibles
|
||||
if not ViewGrid.esSeleccionCeldaDatos then
|
||||
inherited
|
||||
else
|
||||
|
||||
@ -9,6 +9,10 @@ uses
|
||||
const
|
||||
BIZ_SERVER_FACTURAS_PROVEEDOR = 'Server.FacturasProveedor';
|
||||
REF_FACTURAS_PROVEEDOR = 'REF_FACTURAS_PROVEEDOR';
|
||||
REF_ABONOS_PROVEEDOR = 'REF_ABONOS_PROVEEDOR';
|
||||
CTE_TIPO_ABONO = 'A';
|
||||
CTE_TIPO_FACTURA = 'F';
|
||||
|
||||
|
||||
type
|
||||
TBizFacturasProveedorServer = class(TFacturasProveedorBusinessProcessorRules)
|
||||
@ -34,6 +38,7 @@ var
|
||||
ACurrentConn : IDAConnection;
|
||||
dsData: IDADataset;
|
||||
Empresa : Variant;
|
||||
Tipo : Variant;
|
||||
|
||||
begin
|
||||
inherited;
|
||||
@ -49,8 +54,13 @@ begin
|
||||
try
|
||||
//Siempre va a estar rellena
|
||||
Empresa := aChange.NewValueByName[fld_FacturasProveedorID_EMPRESA];
|
||||
Tipo := aChange.NewValueByName[fld_FacturasProveedorTIPO];
|
||||
|
||||
if Tipo = CTE_TIPO_FACTURA then
|
||||
dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_PROVEEDOR, Empresa])
|
||||
else
|
||||
dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_ABONOS_PROVEEDOR, Empresa]);
|
||||
|
||||
dsData := ASchema.NewDataset(ACurrentConn, 'DarReferencia', ['CODIGO', 'EMPRESA'], [REF_FACTURAS_PROVEEDOR, Empresa]);
|
||||
except
|
||||
RaiseError('No existe la tabla REFERENCIAS');
|
||||
end;
|
||||
@ -58,12 +68,16 @@ begin
|
||||
dsData.Active := True;
|
||||
|
||||
if dsData.IsEmpty then
|
||||
RaiseError('NO HAY REFERENCIA ' + REF_FACTURAS_PROVEEDOR + ' DECLARADA EN TABLA REFERENCIAS');
|
||||
RaiseError('NO HAY REFERENCIA ' + REF_FACTURAS_PROVEEDOR + ' / ' + REF_ABONOS_PROVEEDOR + ' DECLARADA EN TABLA REFERENCIAS');
|
||||
|
||||
REFERENCIA := dsData.FieldByName('VALOR').AsString;
|
||||
|
||||
try
|
||||
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_FACTURAS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]);
|
||||
if Tipo = CTE_TIPO_FACTURA then
|
||||
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_FACTURAS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa])
|
||||
else
|
||||
ASchema.NewCommand(ACurrentConn, 'ModificarReferencia', ['CODIGO', 'VALOR', 'ID_EMPRESA'], [REF_ABONOS_PROVEEDOR, DarReferenciaSiguiente(REFERENCIA), Empresa]);
|
||||
|
||||
except
|
||||
RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
|
||||
end;
|
||||
|
||||
@ -103,21 +103,31 @@ object RptPedidosProveedor: TRptPedidosProveedor
|
||||
SQL =
|
||||
'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' +
|
||||
'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' +
|
||||
'_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PEDIDOS_PROVEE' +
|
||||
'DOR.CALLE,'#10' V_PEDIDOS_PROVEEDOR.POBLACION,'#10' V_PEDIDOS_PROVEEDO' +
|
||||
'R.PROVINCIA,'#10' V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL,'#10' V_PEDIDOS_PR' +
|
||||
'OVEEDOR.PERSONA_CONTACTO,'#10' V_PEDIDOS_PROVEEDOR.TELEFONO,'#10' V_PR' +
|
||||
'OVEEDORES.NOMBRE,'#10' ALMACENES.NOMBRE AS NOMBRE_ALMACEN,'#10' EMPRES' +
|
||||
'AS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRE' +
|
||||
'SA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.' +
|
||||
'TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,' +
|
||||
#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EM' +
|
||||
'AIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10 +
|
||||
' V_PEDIDOS_PROVEEDOR'#10' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROV' +
|
||||
'EEDORES.ID = V_PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN' +
|
||||
' ALMACENES ON (ALMACENES.ID = V_PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10' ' +
|
||||
'LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_PEDIDOS_PROVEEDOR.I' +
|
||||
'D_EMPRESA)'#10'WHERE V_PEDIDOS_PROVEEDOR.ID = :ID'
|
||||
'_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEEDORES.NO' +
|
||||
'MBRE,'#10' ALMACENES.NOMBRE AS NOMBRE_ALMACEN,'#10#10' CASE WHEN (ALMACE' +
|
||||
'NES.ID > 0)'#10' THEN ALMACENES.CALLE'#10' ELSE V_' +
|
||||
'PEDIDOS_PROVEEDOR.CALLE'#10' END as CALLE,'#10#10' CASE WHEN (ALMACENES.' +
|
||||
'ID > 0)'#10' THEN ALMACENES.POBLACION'#10' ELSE V_' +
|
||||
'PEDIDOS_PROVEEDOR.POBLACION'#10' END as POBLACION,'#10#10' CASE WHEN (AL' +
|
||||
'MACENES.ID > 0)'#10' THEN ALMACENES.PROVINCIA'#10' ' +
|
||||
' ELSE V_PEDIDOS_PROVEEDOR.PROVINCIA'#10' END as PROVINCIA,'#10#10' CASE ' +
|
||||
'WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.CODIGO_POSTAL' +
|
||||
#10' ELSE V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL'#10' END as COD' +
|
||||
'IGO_POSTAL,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALM' +
|
||||
'ACENES.PERSONA_CONTACTO'#10' ELSE V_PEDIDOS_PROVEEDOR.PER' +
|
||||
'SONA_CONTACTO'#10' END as PERSONA_CONTACTO,'#10#10' CASE WHEN (ALMACENES' +
|
||||
'.ID > 0)'#10' THEN ALMACENES.TELEFONO'#10' ELSE V_' +
|
||||
'PEDIDOS_PROVEEDOR.TELEFONO'#10' END as TELEFONO,'#10#10' EMPRESAS.NIF_CI' +
|
||||
'F AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRESA,'#10' EMP' +
|
||||
'RESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.TELEFONO_' +
|
||||
'1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,'#10' EMPRES' +
|
||||
'AS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EMAIL_1_EMP' +
|
||||
'RESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10' V_PEDID' +
|
||||
'OS_PROVEEDOR'#10' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROVEEDORES.I' +
|
||||
'D = V_PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN ALMACENE' +
|
||||
'S ON (ALMACENES.ID = V_PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10' LEFT OUTE' +
|
||||
'R JOIN EMPRESAS ON (EMPRESAS.ID = V_PEDIDOS_PROVEEDOR.ID_EMPRESA' +
|
||||
')'#10'WHERE V_PEDIDOS_PROVEEDOR.ID = :ID'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
|
||||
@ -25,9 +25,9 @@ type
|
||||
frxChartObject1: TfrxChartObject;
|
||||
frxDBCabecera: TfrxDBDataset;
|
||||
frxDBDetalles: TfrxDBDataset;
|
||||
frxReport: TfrxReport;
|
||||
schReport: TDASchema;
|
||||
DataDictionary: TDADataDictionary;
|
||||
frxReport: TfrxReport;
|
||||
procedure DataModuleCreate(Sender: TObject);
|
||||
private
|
||||
FConnection: IDAConnection;
|
||||
|
||||
@ -46,7 +46,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
Width = 765
|
||||
ExplicitWidth = 765
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 482
|
||||
ExplicitWidth = 488
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -64,7 +64,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 765
|
||||
Height = 476
|
||||
ActivePage = pagContenido
|
||||
TabOrder = 1
|
||||
OnChanging = pgPaginasChanging
|
||||
ExplicitWidth = 765
|
||||
|
||||
@ -66,6 +66,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
|
||||
ExplicitWidth = 71
|
||||
Width = 71
|
||||
end
|
||||
inherited Button1: TBitBtn
|
||||
OnClick = frViewProveedorPedidoButton1Click
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 135
|
||||
ExplicitLeft = 135
|
||||
|
||||
@ -129,7 +129,7 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
||||
Width = 632
|
||||
ExplicitWidth = 632
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 482
|
||||
ExplicitWidth = 488
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -200,10 +200,6 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
|
||||
object pagInicidencias: TTabSheet
|
||||
Caption = 'Incidencias'
|
||||
ImageIndex = 2
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 0
|
||||
ExplicitWidth = 0
|
||||
ExplicitHeight = 0
|
||||
inline frViewIncidenciasCli: TfrViewIncidencias
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
||||
@ -124,6 +124,9 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
|
||||
Left = 204
|
||||
ExplicitLeft = 204
|
||||
end
|
||||
inherited Button1: TBitBtn
|
||||
OnClick = frViewClientePedidoButton1Click
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 94
|
||||
ExplicitLeft = 94
|
||||
|
||||
@ -76,6 +76,7 @@ type
|
||||
procedure actElegirDireccionExecute(Sender: TObject);
|
||||
procedure actElegirDireccionUpdate(Sender: TObject);
|
||||
procedure bFormasPagoClick(Sender: TObject);
|
||||
procedure frViewClientePedidoButton1Click(Sender: TObject);
|
||||
protected
|
||||
FPedido : IBizPedidoCliente;
|
||||
FViewClientePedido : TfrViewDatosYSeleccionCliente;
|
||||
@ -159,6 +160,17 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
procedure TfrViewPedidoCliente.frViewClientePedidoButton1Click(Sender: TObject);
|
||||
begin
|
||||
if Assigned(Pedido) and Assigned(Pedido.Cliente) and
|
||||
Assigned (Pedido.Detalles) and (Pedido.Detalles.RecordCount > 0) then
|
||||
begin
|
||||
if (Application.MessageBox('Los descuentos de los artículos del pedido serán actualizados con los del nuevo cliente seleccionado, ¿Desea continuar?', 'Atención', MB_YESNO) = IDNO) then
|
||||
Exit;
|
||||
end;
|
||||
frViewClientePedido.actElegirContacto.Execute;
|
||||
end;
|
||||
|
||||
function TfrViewPedidoCliente.GetPedido: IBizPedidoCliente;
|
||||
begin
|
||||
Result := FPedido;
|
||||
|
||||
@ -1,14 +1,14 @@
|
||||
inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
Caption = 'Seleccionar recibos de cliente'
|
||||
ClientWidth = 654
|
||||
ExplicitTop = -94
|
||||
ExplicitWidth = 662
|
||||
ClientWidth = 670
|
||||
ExplicitLeft = -52
|
||||
ExplicitWidth = 678
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object JvgWizardHeader1: TJvgWizardHeader [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 654
|
||||
Width = 670
|
||||
Height = 60
|
||||
CaptionFont.Charset = DEFAULT_CHARSET
|
||||
CaptionFont.Color = clWindowText
|
||||
@ -40,18 +40,18 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
end
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Top = 144
|
||||
Width = 654
|
||||
Width = 670
|
||||
Visible = False
|
||||
ExplicitTop = 144
|
||||
ExplicitWidth = 654
|
||||
inherited Image1: TImage
|
||||
Left = 627
|
||||
Left = 643
|
||||
ExplicitLeft = 629
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Top = 171
|
||||
Width = 654
|
||||
Width = 670
|
||||
ExplicitTop = 171
|
||||
ExplicitWidth = 654
|
||||
inherited tbxMain: TTBXToolbar
|
||||
@ -79,7 +79,7 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 654
|
||||
ExplicitWidth = 670
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 334
|
||||
@ -88,14 +88,14 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 506
|
||||
Width = 654
|
||||
Width = 670
|
||||
ExplicitTop = 506
|
||||
ExplicitWidth = 654
|
||||
end
|
||||
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
|
||||
Left = 0
|
||||
Top = 525
|
||||
Width = 654
|
||||
Width = 670
|
||||
Height = 36
|
||||
Align = alBottom
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -110,20 +110,20 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
ExplicitWidth = 654
|
||||
ExplicitHeight = 36
|
||||
inherited JvFooter1: TJvFooter
|
||||
Width = 654
|
||||
Width = 670
|
||||
Height = 36
|
||||
ExplicitWidth = 654
|
||||
ExplicitHeight = 36
|
||||
inherited bSeleccionar: TJvFooterBtn
|
||||
Left = 442
|
||||
Left = 458
|
||||
Top = 3
|
||||
ExplicitLeft = 444
|
||||
ExplicitTop = 3
|
||||
end
|
||||
inherited bCancelar: TJvFooterBtn
|
||||
Left = 546
|
||||
Left = 562
|
||||
Top = 4
|
||||
ExplicitLeft = 546
|
||||
ExplicitLeft = 562
|
||||
ExplicitTop = 4
|
||||
end
|
||||
end
|
||||
@ -139,13 +139,13 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
end
|
||||
inherited frViewRecibosCliente1: TfrViewRecibosCliente [5]
|
||||
Top = 246
|
||||
Width = 654
|
||||
Width = 670
|
||||
Height = 260
|
||||
ExplicitTop = 246
|
||||
ExplicitWidth = 654
|
||||
ExplicitHeight = 260
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 654
|
||||
Width = 670
|
||||
Height = 132
|
||||
RootLevelOptions.DetailTabsPosition = dtpNone
|
||||
ExplicitWidth = 654
|
||||
@ -170,15 +170,15 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
Width = 654
|
||||
Width = 670
|
||||
ExplicitWidth = 654
|
||||
inherited TBXDock1: TTBXDock
|
||||
Width = 654
|
||||
Width = 670
|
||||
ExplicitWidth = 654
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
ExplicitWidth = 654
|
||||
ExplicitWidth = 670
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 650
|
||||
Width = 666
|
||||
ExplicitWidth = 650
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 393
|
||||
@ -189,17 +189,17 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
Width = 199
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 466
|
||||
ExplicitLeft = 466
|
||||
Left = 486
|
||||
ExplicitLeft = 486
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 650
|
||||
Width = 666
|
||||
ExplicitWidth = 650
|
||||
inherited tbxBotones: TTBXToolbar
|
||||
Width = 640
|
||||
Width = 656
|
||||
ExplicitWidth = 640
|
||||
end
|
||||
end
|
||||
@ -211,10 +211,10 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
ExplicitTop = 234
|
||||
ExplicitWidth = 654
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 654
|
||||
Width = 670
|
||||
ExplicitWidth = 654
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
Width = 644
|
||||
Width = 660
|
||||
ExplicitWidth = 644
|
||||
end
|
||||
end
|
||||
@ -253,15 +253,16 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
ShowCaptionWhenDocked = False
|
||||
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||
TabOrder = 5
|
||||
ExplicitWidth = 654
|
||||
object Label1: TLabel
|
||||
Left = 296
|
||||
Left = 330
|
||||
Top = 50
|
||||
Width = 17
|
||||
Height = 13
|
||||
Caption = 'y el'
|
||||
end
|
||||
object txtFiltroTodo: TcxTextEdit
|
||||
Left = 168
|
||||
Left = 202
|
||||
Top = 16
|
||||
Properties.OnChange = txtFiltroTodoPropertiesChange
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
@ -276,7 +277,7 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
Width = 273
|
||||
end
|
||||
object edtFechaFiltro1: TcxDateEdit
|
||||
Left = 168
|
||||
Left = 202
|
||||
Top = 46
|
||||
Enabled = False
|
||||
Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
|
||||
@ -292,7 +293,7 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
Width = 121
|
||||
end
|
||||
object edtFechaFiltro2: TcxDateEdit
|
||||
Left = 320
|
||||
Left = 354
|
||||
Top = 46
|
||||
Enabled = False
|
||||
Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
|
||||
@ -323,16 +324,16 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
|
||||
object rbFechas: TcxRadioButton
|
||||
Left = 16
|
||||
Top = 48
|
||||
Width = 145
|
||||
Width = 174
|
||||
Height = 17
|
||||
Caption = 'Recibos con fechas entre:'
|
||||
Caption = 'Recibos con vencimiento entre:'
|
||||
TabOrder = 4
|
||||
OnClick = rbTodoClick
|
||||
LookAndFeel.Kind = lfStandard
|
||||
LookAndFeel.NativeStyle = True
|
||||
end
|
||||
object Button1: TBitBtn
|
||||
Left = 470
|
||||
Left = 504
|
||||
Top = 43
|
||||
Width = 163
|
||||
Height = 25
|
||||
|
||||
@ -76,22 +76,6 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
||||
ExplicitWidth = 645
|
||||
ExplicitHeight = 312
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Format = '0 recibos'
|
||||
Kind = skCount
|
||||
Column = frViewRecibosCliente1.cxGridViewFECHA_EMISION
|
||||
end>
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
@ -105,15 +89,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 641
|
||||
ExplicitWidth = 641
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 199
|
||||
Width = 199
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 460
|
||||
ExplicitLeft = 460
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
Left = 468
|
||||
ExplicitLeft = 468
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
@ -142,7 +120,7 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
|
||||
end
|
||||
inherited dxComponentPrinter: TdxComponentPrinter
|
||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||
ReportDocument.CreationDate = 39211.776488344910000000
|
||||
ReportDocument.CreationDate = 39211.776488344920000000
|
||||
BuiltInReportLink = True
|
||||
end
|
||||
end
|
||||
|
||||
@ -1,18 +1,18 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. Rodax Software.
|
||||
Copyright (©) 2007. Rodax Software.
|
||||
===============================================================================
|
||||
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
||||
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
||||
bajo el que se suministra.
|
||||
-----------------------------------------------------------------------------
|
||||
Web: www.rodax-software.com
|
||||
===============================================================================
|
||||
Fecha primera versión:
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual:
|
||||
Fecha primera versión:
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual:
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
@ -113,7 +113,7 @@ begin
|
||||
raise Exception.Create('No hay ninguna vista asignada');
|
||||
|
||||
if not Assigned(FRecibosCliente) then
|
||||
raise Exception.Create('No hay ningún objeto asignado');
|
||||
raise Exception.Create('No hay ningún objeto asignado');
|
||||
|
||||
FRecibosCliente.DataTable.Active := True;
|
||||
ViewGrid.GotoFirst;
|
||||
@ -133,7 +133,7 @@ procedure TfEditorRecibosCliente.ImprimirInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
begin
|
||||
//Si esta agrupado solo podré imprimir la lista de elementos visibles
|
||||
//Si esta agrupado solo podré imprimir la lista de elementos visibles
|
||||
if not ViewGrid.esSeleccionCeldaDatos then
|
||||
inherited
|
||||
else
|
||||
@ -163,7 +163,7 @@ end;
|
||||
procedure TfEditorRecibosCliente.NuevoInterno;
|
||||
begin
|
||||
// inherited;
|
||||
//No se pueden añadir recibos nuevos
|
||||
//No se pueden añadir recibos nuevos
|
||||
end;
|
||||
|
||||
procedure TfEditorRecibosCliente.PonerTitulos(const ATitulo: string);
|
||||
@ -178,7 +178,7 @@ procedure TfEditorRecibosCliente.PrevisualizarInterno;
|
||||
var
|
||||
Respuesta : Integer;
|
||||
begin
|
||||
//Si esta agrupado solo podré imprimir la lista de elementos visibles
|
||||
//Si esta agrupado solo podré imprimir la lista de elementos visibles
|
||||
if not ViewGrid.esSeleccionCeldaDatos then
|
||||
inherited
|
||||
else
|
||||
|
||||
@ -30,6 +30,16 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
||||
Format = '0 recibos'
|
||||
Kind = skCount
|
||||
Column = cxGridViewREFERENCIA
|
||||
end
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Column = cxGridViewIMPORTE
|
||||
end
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Column = cxGridViewOTROS_GASTOS
|
||||
end>
|
||||
OptionsCustomize.ColumnHidingOnGrouping = False
|
||||
OptionsView.GroupFooters = gfAlwaysVisible
|
||||
@ -97,6 +107,9 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
||||
object cxGridViewIMPORTE: TcxGridDBColumn
|
||||
Caption = 'Importe'
|
||||
DataBinding.FieldName = 'IMPORTE'
|
||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
FooterAlignmentHorz = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
Width = 56
|
||||
end
|
||||
@ -146,26 +159,29 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
|
||||
ExplicitWidth = 531
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 527
|
||||
ExplicitWidth = 527
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
Left = 124
|
||||
ExplicitLeft = 124
|
||||
Left = 146
|
||||
ExplicitLeft = 146
|
||||
ExplicitWidth = 393
|
||||
Width = 393
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
Left = 124
|
||||
ExplicitLeft = 124
|
||||
Left = 146
|
||||
ExplicitLeft = 146
|
||||
ExplicitWidth = 199
|
||||
Width = 199
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 327
|
||||
ExplicitLeft = 327
|
||||
Left = 386
|
||||
ExplicitLeft = 386
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item2: TdxLayoutItem
|
||||
Caption = 'Emision entre la fecha:'
|
||||
Caption = 'Vencimiento entre la fecha:'
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -84,7 +84,7 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
uDataModuleRecibosCliente, DateUtils;
|
||||
schRecibosClienteClient_Intf, uDataModuleRecibosCliente, DateUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -125,7 +125,7 @@ begin
|
||||
cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
|
||||
FFiltro := AddFilterGrid(fboAnd);
|
||||
|
||||
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_EMISION');
|
||||
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosClienteFECHA_VENCIMIENTO);
|
||||
FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
|
||||
end;
|
||||
end;
|
||||
@ -258,7 +258,7 @@ begin
|
||||
if not VarIsNull(Fecha1)
|
||||
and not VarIsNull(Fecha2) then
|
||||
begin
|
||||
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_VENCIMIENTO');
|
||||
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosClienteFECHA_VENCIMIENTO);
|
||||
Root.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
|
||||
Active := True;
|
||||
end
|
||||
|
||||
@ -180,7 +180,17 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 650
|
||||
ExplicitWidth = 650
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 494
|
||||
Width = 494
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 140
|
||||
Width = 140
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 314
|
||||
ExplicitLeft = 314
|
||||
ExplicitWidth = 314
|
||||
Width = 314
|
||||
end
|
||||
@ -190,6 +200,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
|
||||
ExplicitWidth = 650
|
||||
inherited tbxBotones: TTBXToolbar
|
||||
Width = 640
|
||||
ExplicitWidth = 640
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -198,8 +209,14 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 337
|
||||
ExplicitTop = 337
|
||||
ExplicitWidth = 654
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
Width = 654
|
||||
ExplicitWidth = 654
|
||||
inherited TBXToolbar1: TTBXToolbar
|
||||
Width = 644
|
||||
ExplicitWidth = 644
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited dxComponentPrinter: TdxComponentPrinter
|
||||
@ -237,14 +254,14 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
|
||||
SupportedDocks = [dkStandardDock, dkMultiDock]
|
||||
TabOrder = 5
|
||||
object Label1: TLabel
|
||||
Left = 296
|
||||
Left = 329
|
||||
Top = 50
|
||||
Width = 17
|
||||
Height = 13
|
||||
Caption = 'y el'
|
||||
end
|
||||
object txtFiltroTodo: TcxTextEdit
|
||||
Left = 168
|
||||
Left = 201
|
||||
Top = 16
|
||||
Properties.OnChange = txtFiltroTodoPropertiesChange
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
@ -259,7 +276,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
|
||||
Width = 273
|
||||
end
|
||||
object edtFechaFiltro1: TcxDateEdit
|
||||
Left = 168
|
||||
Left = 201
|
||||
Top = 46
|
||||
Enabled = False
|
||||
Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
|
||||
@ -275,7 +292,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
|
||||
Width = 121
|
||||
end
|
||||
object edtFechaFiltro2: TcxDateEdit
|
||||
Left = 320
|
||||
Left = 353
|
||||
Top = 46
|
||||
Enabled = False
|
||||
Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
|
||||
@ -306,16 +323,16 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
|
||||
object rbFechas: TcxRadioButton
|
||||
Left = 16
|
||||
Top = 48
|
||||
Width = 145
|
||||
Width = 174
|
||||
Height = 17
|
||||
Caption = 'Recibos con fechas entre:'
|
||||
Caption = 'Recibos con vencimiento entre:'
|
||||
TabOrder = 4
|
||||
OnClick = rbTodoClick
|
||||
LookAndFeel.Kind = lfStandard
|
||||
LookAndFeel.NativeStyle = True
|
||||
end
|
||||
object Button1: TBitBtn
|
||||
Left = 470
|
||||
Left = 503
|
||||
Top = 43
|
||||
Width = 163
|
||||
Height = 25
|
||||
@ -362,12 +379,6 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
|
||||
inherited EditorActionList: TActionList [9]
|
||||
Left = 112
|
||||
Top = 192
|
||||
inherited actPrevisualizar: TAction
|
||||
Visible = False
|
||||
end
|
||||
inherited actImprimir: TAction
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
|
||||
end
|
||||
|
||||
@ -41,10 +41,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
|
||||
Width = 638
|
||||
ExplicitWidth = 638
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 347
|
||||
inherited TBXItem3: TTBXItem
|
||||
Visible = True
|
||||
end
|
||||
ExplicitWidth = 276
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 638
|
||||
@ -79,24 +76,6 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
|
||||
ExplicitWidth = 638
|
||||
ExplicitHeight = 415
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Position = spFooter
|
||||
Column = frViewRecibosProveedor1.cxGridViewIMPORTE_TOTAL
|
||||
end>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Column = frViewRecibosProveedor1.cxGridViewIMPORTE_TOTAL
|
||||
end
|
||||
item
|
||||
Format = '0 recibos'
|
||||
Kind = skCount
|
||||
Column = frViewRecibosProveedor1.cxGridViewREFERENCIA
|
||||
end>
|
||||
end
|
||||
end
|
||||
inherited frViewFiltroBase1: TfrViewFiltroBase
|
||||
@ -111,16 +90,16 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
|
||||
Width = 634
|
||||
ExplicitWidth = 634
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
ExplicitWidth = 478
|
||||
Width = 478
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
ExplicitWidth = 266
|
||||
Width = 266
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 392
|
||||
ExplicitLeft = 392
|
||||
Left = 485
|
||||
ExplicitLeft = 485
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
|
||||
@ -1,18 +1,18 @@
|
||||
{
|
||||
===============================================================================
|
||||
Copyright (©) 2007. Rodax Software.
|
||||
Copyright (©) 2007. Rodax Software.
|
||||
===============================================================================
|
||||
Los contenidos de este fichero son propiedad de Rodax Software titular del
|
||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
||||
copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
|
||||
en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
|
||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
||||
acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
|
||||
bajo el que se suministra.
|
||||
-----------------------------------------------------------------------------
|
||||
Web: www.rodax-software.com
|
||||
===============================================================================
|
||||
Fecha primera versión:
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual:
|
||||
Fecha primera versión:
|
||||
Versión actual: 1.0.0
|
||||
Fecha versión actual:
|
||||
===============================================================================
|
||||
Modificaciones:
|
||||
|
||||
@ -111,7 +111,7 @@ begin
|
||||
raise Exception.Create('No hay ninguna vista asignada');
|
||||
|
||||
if not Assigned(FRecibosProveedor) then
|
||||
raise Exception.Create('No hay ningún objeto asignado');
|
||||
raise Exception.Create('No hay ningún objeto asignado');
|
||||
|
||||
FRecibosProveedor.DataTable.Active := True;
|
||||
ViewGrid.GotoFirst;
|
||||
@ -142,7 +142,7 @@ end;
|
||||
procedure TfEditorRecibosProveedor.NuevoInterno;
|
||||
begin
|
||||
// inherited;
|
||||
//No se pueden añadir recibos nuevos
|
||||
//No se pueden añadir recibos nuevos
|
||||
end;
|
||||
|
||||
procedure TfEditorRecibosProveedor.PonerTitulos(const ATitulo: string);
|
||||
|
||||
@ -30,6 +30,16 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
|
||||
Format = '0 recibos'
|
||||
Kind = skCount
|
||||
Column = cxGridViewREFERENCIA
|
||||
end
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Column = cxGridViewIMPORTE
|
||||
end
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
Kind = skSum
|
||||
Column = cxGridViewOTROS_GASTOS
|
||||
end>
|
||||
OptionsCustomize.ColumnHidingOnGrouping = False
|
||||
OptionsView.GroupFooters = gfAlwaysVisible
|
||||
@ -101,6 +111,9 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
|
||||
object cxGridViewIMPORTE: TcxGridDBColumn
|
||||
Caption = 'Importe'
|
||||
DataBinding.FieldName = 'IMPORTE'
|
||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
FooterAlignmentHorz = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
Width = 60
|
||||
end
|
||||
@ -149,20 +162,28 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
|
||||
ExplicitWidth = 531
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 527
|
||||
ExplicitWidth = 527
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
Left = 146
|
||||
ExplicitLeft = 146
|
||||
ExplicitWidth = 371
|
||||
Width = 371
|
||||
end
|
||||
inherited edtFechaIniFiltro: TcxDateEdit
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
Left = 146
|
||||
ExplicitLeft = 146
|
||||
ExplicitWidth = 185
|
||||
Width = 185
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 328
|
||||
ExplicitLeft = 328
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
Left = 330
|
||||
ExplicitLeft = 330
|
||||
end
|
||||
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Group1: TdxLayoutGroup
|
||||
inherited dxLayoutControl1Item2: TdxLayoutItem
|
||||
Caption = 'Vencimiento entre la fecha:'
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
|
||||
|
||||
@ -85,7 +85,7 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
uDataModuleRecibosProveedor, DateUtils, uViewGridBase;
|
||||
schRecibosProveedorClient_Intf, uDataModuleRecibosProveedor, DateUtils, uViewGridBase;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -127,7 +127,7 @@ begin
|
||||
cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
|
||||
FFiltro := AddFilterGrid(fboAnd);
|
||||
|
||||
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_EMISION');
|
||||
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosCompensadosProvFECHA_VENCIMIENTO);
|
||||
FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
|
||||
end;
|
||||
end;
|
||||
@ -260,7 +260,7 @@ begin
|
||||
if not VarIsNull(Fecha1)
|
||||
and not VarIsNull(Fecha2) then
|
||||
begin
|
||||
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName('FECHA_VENCIMIENTO');
|
||||
Columna := (cxGridView as TcxGridDBTableView).GetColumnByFieldName(fld_RecibosCompensadosProvFECHA_VENCIMIENTO);
|
||||
Root.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
|
||||
Active := True;
|
||||
end
|
||||
|
||||
@ -41,7 +41,7 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente
|
||||
Name = 'Password'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = '1'
|
||||
Value = 'luisleon07'
|
||||
end
|
||||
item
|
||||
Name = 'LoginInfo'
|
||||
@ -66,7 +66,9 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8099/bin'
|
||||
TargetURL = 'http://localhost:8090/bin'
|
||||
Login.Username = 'Luis'
|
||||
Login.Password = '1'
|
||||
Left = 48
|
||||
Top = 272
|
||||
end
|
||||
@ -109,7 +111,21 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'RemesasCliente_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Forma de cobro'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasCliente_TIPO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
@ -194,12 +210,12 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'RemesasCliente_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
|
||||
@ -9,9 +9,9 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_darReferencia = '{88DA99A8-DE05-4D9D-A20E-37B516E5E77C}';
|
||||
RID_RemesasCliente = '{4F1FBA6F-4FB9-4662-8C91-02D04811FB8C}';
|
||||
RID_RemesasCliente_Refresh = '{FDBE7165-B71F-4552-B3A3-CABFC5ADB649}';
|
||||
RID_darReferencia = '{A1E303BC-14C6-44ED-AB3B-110321C46D8B}';
|
||||
RID_RemesasCliente = '{C09AAC97-CD9C-4A7F-BAB3-A7A7845FA2CE}';
|
||||
RID_RemesasCliente_Refresh = '{1212E969-2479-4D5B-B7FB-C88F220139E8}';
|
||||
|
||||
{ Data table names }
|
||||
nme_darReferencia = 'darReferencia';
|
||||
@ -28,6 +28,7 @@ const
|
||||
fld_RemesasClienteID = 'ID';
|
||||
fld_RemesasClienteID_EMPRESA = 'ID_EMPRESA';
|
||||
fld_RemesasClienteREFERENCIA = 'REFERENCIA';
|
||||
fld_RemesasClienteTIPO = 'TIPO';
|
||||
fld_RemesasClienteFECHA_REMESA = 'FECHA_REMESA';
|
||||
fld_RemesasClienteDESCRIPCION = 'DESCRIPCION';
|
||||
fld_RemesasClienteUSUARIO = 'USUARIO';
|
||||
@ -47,25 +48,27 @@ const
|
||||
idx_RemesasClienteID = 0;
|
||||
idx_RemesasClienteID_EMPRESA = 1;
|
||||
idx_RemesasClienteREFERENCIA = 2;
|
||||
idx_RemesasClienteFECHA_REMESA = 3;
|
||||
idx_RemesasClienteDESCRIPCION = 4;
|
||||
idx_RemesasClienteUSUARIO = 5;
|
||||
idx_RemesasClienteID_DATOS_BANCO = 6;
|
||||
idx_RemesasClienteFECHA_ALTA = 7;
|
||||
idx_RemesasClienteFECHA_MODIFICACION = 8;
|
||||
idx_RemesasClienteIMPORTE_TOTAL = 9;
|
||||
idx_RemesasClienteNOMBRE = 10;
|
||||
idx_RemesasClienteENTIDAD = 11;
|
||||
idx_RemesasClienteSUCURSAL = 12;
|
||||
idx_RemesasClienteDC = 13;
|
||||
idx_RemesasClienteCUENTA = 14;
|
||||
idx_RemesasClienteSUFIJO_N19 = 15;
|
||||
idx_RemesasClienteSUFIJO_N58 = 16;
|
||||
idx_RemesasClienteTIPO = 3;
|
||||
idx_RemesasClienteFECHA_REMESA = 4;
|
||||
idx_RemesasClienteDESCRIPCION = 5;
|
||||
idx_RemesasClienteUSUARIO = 6;
|
||||
idx_RemesasClienteID_DATOS_BANCO = 7;
|
||||
idx_RemesasClienteFECHA_ALTA = 8;
|
||||
idx_RemesasClienteFECHA_MODIFICACION = 9;
|
||||
idx_RemesasClienteIMPORTE_TOTAL = 10;
|
||||
idx_RemesasClienteNOMBRE = 11;
|
||||
idx_RemesasClienteENTIDAD = 12;
|
||||
idx_RemesasClienteSUCURSAL = 13;
|
||||
idx_RemesasClienteDC = 14;
|
||||
idx_RemesasClienteCUENTA = 15;
|
||||
idx_RemesasClienteSUFIJO_N19 = 16;
|
||||
idx_RemesasClienteSUFIJO_N58 = 17;
|
||||
|
||||
{ RemesasCliente_Refresh fields }
|
||||
fld_RemesasCliente_RefreshID = 'ID';
|
||||
fld_RemesasCliente_RefreshID_EMPRESA = 'ID_EMPRESA';
|
||||
fld_RemesasCliente_RefreshREFERENCIA = 'REFERENCIA';
|
||||
fld_RemesasCliente_RefreshTIPO = 'TIPO';
|
||||
fld_RemesasCliente_RefreshFECHA_REMESA = 'FECHA_REMESA';
|
||||
fld_RemesasCliente_RefreshDESCRIPCION = 'DESCRIPCION';
|
||||
fld_RemesasCliente_RefreshUSUARIO = 'USUARIO';
|
||||
@ -85,25 +88,26 @@ const
|
||||
idx_RemesasCliente_RefreshID = 0;
|
||||
idx_RemesasCliente_RefreshID_EMPRESA = 1;
|
||||
idx_RemesasCliente_RefreshREFERENCIA = 2;
|
||||
idx_RemesasCliente_RefreshFECHA_REMESA = 3;
|
||||
idx_RemesasCliente_RefreshDESCRIPCION = 4;
|
||||
idx_RemesasCliente_RefreshUSUARIO = 5;
|
||||
idx_RemesasCliente_RefreshID_DATOS_BANCO = 6;
|
||||
idx_RemesasCliente_RefreshFECHA_ALTA = 7;
|
||||
idx_RemesasCliente_RefreshFECHA_MODIFICACION = 8;
|
||||
idx_RemesasCliente_RefreshIMPORTE_TOTAL = 9;
|
||||
idx_RemesasCliente_RefreshNOMBRE = 10;
|
||||
idx_RemesasCliente_RefreshENTIDAD = 11;
|
||||
idx_RemesasCliente_RefreshSUCURSAL = 12;
|
||||
idx_RemesasCliente_RefreshDC = 13;
|
||||
idx_RemesasCliente_RefreshCUENTA = 14;
|
||||
idx_RemesasCliente_RefreshSUFIJO_N19 = 15;
|
||||
idx_RemesasCliente_RefreshSUFIJO_N58 = 16;
|
||||
idx_RemesasCliente_RefreshTIPO = 3;
|
||||
idx_RemesasCliente_RefreshFECHA_REMESA = 4;
|
||||
idx_RemesasCliente_RefreshDESCRIPCION = 5;
|
||||
idx_RemesasCliente_RefreshUSUARIO = 6;
|
||||
idx_RemesasCliente_RefreshID_DATOS_BANCO = 7;
|
||||
idx_RemesasCliente_RefreshFECHA_ALTA = 8;
|
||||
idx_RemesasCliente_RefreshFECHA_MODIFICACION = 9;
|
||||
idx_RemesasCliente_RefreshIMPORTE_TOTAL = 10;
|
||||
idx_RemesasCliente_RefreshNOMBRE = 11;
|
||||
idx_RemesasCliente_RefreshENTIDAD = 12;
|
||||
idx_RemesasCliente_RefreshSUCURSAL = 13;
|
||||
idx_RemesasCliente_RefreshDC = 14;
|
||||
idx_RemesasCliente_RefreshCUENTA = 15;
|
||||
idx_RemesasCliente_RefreshSUFIJO_N19 = 16;
|
||||
idx_RemesasCliente_RefreshSUFIJO_N58 = 17;
|
||||
|
||||
type
|
||||
{ IdarReferencia }
|
||||
IdarReferencia = interface(IDAStronglyTypedDataTable)
|
||||
['{F1C155EA-E472-4A20-97E9-48A4F469EAC5}']
|
||||
['{7AF88C22-93F7-445B-A55E-87212FDB6C3C}']
|
||||
{ Property getters and setters }
|
||||
function GetVALORValue: String;
|
||||
procedure SetVALORValue(const aValue: String);
|
||||
@ -132,7 +136,7 @@ type
|
||||
|
||||
{ IRemesasCliente }
|
||||
IRemesasCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{FCCDBFEE-7CAB-4837-A17A-D19281944A82}']
|
||||
['{3CB2DF7A-3B62-4B93-84B1-634DF3842413}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -140,6 +144,8 @@ type
|
||||
procedure SetID_EMPRESAValue(const aValue: Integer);
|
||||
function GetREFERENCIAValue: String;
|
||||
procedure SetREFERENCIAValue(const aValue: String);
|
||||
function GetTIPOValue: String;
|
||||
procedure SetTIPOValue(const aValue: String);
|
||||
function GetFECHA_REMESAValue: DateTime;
|
||||
procedure SetFECHA_REMESAValue(const aValue: DateTime);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
@ -152,8 +158,8 @@ type
|
||||
procedure SetFECHA_ALTAValue(const aValue: DateTime);
|
||||
function GetFECHA_MODIFICACIONValue: DateTime;
|
||||
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
||||
function GetIMPORTE_TOTALValue: Currency;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||
function GetIMPORTE_TOTALValue: Float;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Float);
|
||||
function GetNOMBREValue: String;
|
||||
procedure SetNOMBREValue(const aValue: String);
|
||||
function GetENTIDADValue: String;
|
||||
@ -174,13 +180,14 @@ type
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
|
||||
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
||||
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
|
||||
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
|
||||
@ -201,6 +208,8 @@ type
|
||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
function GetFECHA_REMESAValue: DateTime; virtual;
|
||||
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
@ -213,8 +222,8 @@ type
|
||||
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
||||
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
||||
function GetIMPORTE_TOTALValue: Currency; virtual;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
||||
function GetIMPORTE_TOTALValue: Float; virtual;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
|
||||
function GetNOMBREValue: String; virtual;
|
||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||
function GetENTIDADValue: String; virtual;
|
||||
@ -234,13 +243,14 @@ type
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
|
||||
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
||||
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
|
||||
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
|
||||
@ -257,7 +267,7 @@ type
|
||||
|
||||
{ IRemesasCliente_Refresh }
|
||||
IRemesasCliente_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{179D4A7F-C909-48AA-AE07-AB5F76D2AC66}']
|
||||
['{3F695DCE-EABB-439F-BC19-6FD396148EB6}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -265,6 +275,8 @@ type
|
||||
procedure SetID_EMPRESAValue(const aValue: Integer);
|
||||
function GetREFERENCIAValue: String;
|
||||
procedure SetREFERENCIAValue(const aValue: String);
|
||||
function GetTIPOValue: String;
|
||||
procedure SetTIPOValue(const aValue: String);
|
||||
function GetFECHA_REMESAValue: DateTime;
|
||||
procedure SetFECHA_REMESAValue(const aValue: DateTime);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
@ -277,8 +289,8 @@ type
|
||||
procedure SetFECHA_ALTAValue(const aValue: DateTime);
|
||||
function GetFECHA_MODIFICACIONValue: DateTime;
|
||||
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
|
||||
function GetIMPORTE_TOTALValue: Currency;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||
function GetIMPORTE_TOTALValue: Float;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Float);
|
||||
function GetNOMBREValue: String;
|
||||
procedure SetNOMBREValue(const aValue: String);
|
||||
function GetENTIDADValue: String;
|
||||
@ -299,13 +311,14 @@ type
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
|
||||
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
||||
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
|
||||
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
|
||||
@ -326,6 +339,8 @@ type
|
||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
function GetFECHA_REMESAValue: DateTime; virtual;
|
||||
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
@ -338,8 +353,8 @@ type
|
||||
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
|
||||
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
||||
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
||||
function GetIMPORTE_TOTALValue: Currency; virtual;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
||||
function GetIMPORTE_TOTALValue: Float; virtual;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
|
||||
function GetNOMBREValue: String; virtual;
|
||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||
function GetENTIDADValue: String; virtual;
|
||||
@ -359,13 +374,14 @@ type
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue;
|
||||
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
|
||||
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
||||
property IMPORTE_TOTAL: Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTAL: Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
|
||||
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
|
||||
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
|
||||
@ -447,6 +463,16 @@ begin
|
||||
DataTable.Fields[idx_RemesasClienteREFERENCIA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasClienteDataTableRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RemesasClienteTIPO].AsString;
|
||||
end;
|
||||
|
||||
procedure TRemesasClienteDataTableRules.SetTIPOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_RemesasClienteTIPO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasClienteDataTableRules.GetFECHA_REMESAValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RemesasClienteFECHA_REMESA].AsDateTime;
|
||||
@ -507,14 +533,14 @@ begin
|
||||
DataTable.Fields[idx_RemesasClienteFECHA_MODIFICACION].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasClienteDataTableRules.GetIMPORTE_TOTALValue: Currency;
|
||||
function TRemesasClienteDataTableRules.GetIMPORTE_TOTALValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsCurrency;
|
||||
result := DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsFloat;
|
||||
end;
|
||||
|
||||
procedure TRemesasClienteDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||
procedure TRemesasClienteDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
|
||||
begin
|
||||
DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsCurrency := aValue;
|
||||
DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasClienteDataTableRules.GetNOMBREValue: String;
|
||||
@ -629,6 +655,16 @@ begin
|
||||
DataTable.Fields[idx_RemesasCliente_RefreshREFERENCIA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasCliente_RefreshDataTableRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RemesasCliente_RefreshTIPO].AsString;
|
||||
end;
|
||||
|
||||
procedure TRemesasCliente_RefreshDataTableRules.SetTIPOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_RemesasCliente_RefreshTIPO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasCliente_RefreshDataTableRules.GetFECHA_REMESAValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RemesasCliente_RefreshFECHA_REMESA].AsDateTime;
|
||||
@ -689,14 +725,14 @@ begin
|
||||
DataTable.Fields[idx_RemesasCliente_RefreshFECHA_MODIFICACION].AsDateTime := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasCliente_RefreshDataTableRules.GetIMPORTE_TOTALValue: Currency;
|
||||
function TRemesasCliente_RefreshDataTableRules.GetIMPORTE_TOTALValue: Float;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsCurrency;
|
||||
result := DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsFloat;
|
||||
end;
|
||||
|
||||
procedure TRemesasCliente_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||
procedure TRemesasCliente_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
|
||||
begin
|
||||
DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsCurrency := aValue;
|
||||
DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsFloat := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasCliente_RefreshDataTableRules.GetNOMBREValue: String;
|
||||
|
||||
@ -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_darReferenciaDelta = '{2E1B93B3-0013-4E76-9282-C1A8DD67CD55}';
|
||||
RID_RemesasClienteDelta = '{A9F30F17-7489-41DF-99B0-9610DAFF0CBD}';
|
||||
RID_RemesasCliente_RefreshDelta = '{F948F4C1-BE3B-43B0-9E83-608F6CFCA690}';
|
||||
RID_darReferenciaDelta = '{6BDDB07D-2116-434F-9B1C-3438BC15858E}';
|
||||
RID_RemesasClienteDelta = '{1ECF3F1A-3E7B-4CFA-B097-D5895756EB02}';
|
||||
RID_RemesasCliente_RefreshDelta = '{0EB05604-7651-4CAE-8D91-0032CBD944CB}';
|
||||
|
||||
type
|
||||
{ IdarReferenciaDelta }
|
||||
IdarReferenciaDelta = interface(IdarReferencia)
|
||||
['{2E1B93B3-0013-4E76-9282-C1A8DD67CD55}']
|
||||
['{6BDDB07D-2116-434F-9B1C-3438BC15858E}']
|
||||
{ Property getters and setters }
|
||||
function GetOldVALORValue : String;
|
||||
|
||||
@ -45,18 +45,19 @@ type
|
||||
|
||||
{ IRemesasClienteDelta }
|
||||
IRemesasClienteDelta = interface(IRemesasCliente)
|
||||
['{A9F30F17-7489-41DF-99B0-9610DAFF0CBD}']
|
||||
['{1ECF3F1A-3E7B-4CFA-B097-D5895756EB02}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldTIPOValue : String;
|
||||
function GetOldFECHA_REMESAValue : DateTime;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
function GetOldUSUARIOValue : String;
|
||||
function GetOldID_DATOS_BANCOValue : Integer;
|
||||
function GetOldFECHA_ALTAValue : DateTime;
|
||||
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
||||
function GetOldIMPORTE_TOTALValue : Currency;
|
||||
function GetOldIMPORTE_TOTALValue : Float;
|
||||
function GetOldNOMBREValue : String;
|
||||
function GetOldENTIDADValue : String;
|
||||
function GetOldSUCURSALValue : String;
|
||||
@ -69,13 +70,14 @@ type
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldUSUARIO : String read GetOldUSUARIOValue;
|
||||
property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue;
|
||||
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
||||
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
||||
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||
property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property OldENTIDAD : String read GetOldENTIDADValue;
|
||||
property OldSUCURSAL : String read GetOldSUCURSALValue;
|
||||
@ -99,6 +101,9 @@ type
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
function GetOldREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
function GetOldTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
function GetFECHA_REMESAValue: DateTime; virtual;
|
||||
function GetOldFECHA_REMESAValue: DateTime; virtual;
|
||||
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
|
||||
@ -117,9 +122,9 @@ type
|
||||
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
||||
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
|
||||
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
||||
function GetIMPORTE_TOTALValue: Currency; virtual;
|
||||
function GetOldIMPORTE_TOTALValue: Currency; virtual;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
||||
function GetIMPORTE_TOTALValue: Float; virtual;
|
||||
function GetOldIMPORTE_TOTALValue: Float; virtual;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
|
||||
function GetNOMBREValue: String; virtual;
|
||||
function GetOldNOMBREValue: String; virtual;
|
||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||
@ -149,6 +154,8 @@ type
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property TIPO : String read GetTIPOValue write SetTIPOValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
||||
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
@ -161,8 +168,8 @@ type
|
||||
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
||||
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
||||
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
||||
property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
|
||||
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
|
||||
@ -186,18 +193,19 @@ type
|
||||
|
||||
{ IRemesasCliente_RefreshDelta }
|
||||
IRemesasCliente_RefreshDelta = interface(IRemesasCliente_Refresh)
|
||||
['{F948F4C1-BE3B-43B0-9E83-608F6CFCA690}']
|
||||
['{0EB05604-7651-4CAE-8D91-0032CBD944CB}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldTIPOValue : String;
|
||||
function GetOldFECHA_REMESAValue : DateTime;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
function GetOldUSUARIOValue : String;
|
||||
function GetOldID_DATOS_BANCOValue : Integer;
|
||||
function GetOldFECHA_ALTAValue : DateTime;
|
||||
function GetOldFECHA_MODIFICACIONValue : DateTime;
|
||||
function GetOldIMPORTE_TOTALValue : Currency;
|
||||
function GetOldIMPORTE_TOTALValue : Float;
|
||||
function GetOldNOMBREValue : String;
|
||||
function GetOldENTIDADValue : String;
|
||||
function GetOldSUCURSALValue : String;
|
||||
@ -210,13 +218,14 @@ type
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldUSUARIO : String read GetOldUSUARIOValue;
|
||||
property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue;
|
||||
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
||||
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
||||
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||
property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property OldENTIDAD : String read GetOldENTIDADValue;
|
||||
property OldSUCURSAL : String read GetOldSUCURSALValue;
|
||||
@ -240,6 +249,9 @@ type
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
function GetOldREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
function GetOldTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
function GetFECHA_REMESAValue: DateTime; virtual;
|
||||
function GetOldFECHA_REMESAValue: DateTime; virtual;
|
||||
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
|
||||
@ -258,9 +270,9 @@ type
|
||||
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
|
||||
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
|
||||
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
|
||||
function GetIMPORTE_TOTALValue: Currency; virtual;
|
||||
function GetOldIMPORTE_TOTALValue: Currency; virtual;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual;
|
||||
function GetIMPORTE_TOTALValue: Float; virtual;
|
||||
function GetOldIMPORTE_TOTALValue: Float; virtual;
|
||||
procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
|
||||
function GetNOMBREValue: String; virtual;
|
||||
function GetOldNOMBREValue: String; virtual;
|
||||
procedure SetNOMBREValue(const aValue: String); virtual;
|
||||
@ -290,6 +302,8 @@ type
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property TIPO : String read GetTIPOValue write SetTIPOValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
||||
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
@ -302,8 +316,8 @@ type
|
||||
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
|
||||
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
|
||||
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
|
||||
property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
|
||||
property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
|
||||
property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
|
||||
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
|
||||
property OldNOMBRE : String read GetOldNOMBREValue;
|
||||
property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
|
||||
@ -413,6 +427,21 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteREFERENCIA] := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasClienteBusinessProcessorRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteTIPO];
|
||||
end;
|
||||
|
||||
function TRemesasClienteBusinessProcessorRules.GetOldTIPOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteTIPO];
|
||||
end;
|
||||
|
||||
procedure TRemesasClienteBusinessProcessorRules.SetTIPOValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteTIPO] := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasClienteBusinessProcessorRules.GetFECHA_REMESAValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_REMESA];
|
||||
@ -503,17 +532,17 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_MODIFICACION] := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
|
||||
function TRemesasClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL];
|
||||
end;
|
||||
|
||||
function TRemesasClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
|
||||
function TRemesasClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteIMPORTE_TOTAL];
|
||||
end;
|
||||
|
||||
procedure TRemesasClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||
procedure TRemesasClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL] := aValue;
|
||||
end;
|
||||
@ -680,6 +709,21 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshREFERENCIA] := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasCliente_RefreshBusinessProcessorRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshTIPO];
|
||||
end;
|
||||
|
||||
function TRemesasCliente_RefreshBusinessProcessorRules.GetOldTIPOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshTIPO];
|
||||
end;
|
||||
|
||||
procedure TRemesasCliente_RefreshBusinessProcessorRules.SetTIPOValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshTIPO] := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasCliente_RefreshBusinessProcessorRules.GetFECHA_REMESAValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_REMESA];
|
||||
@ -770,17 +814,17 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_MODIFICACION] := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency;
|
||||
function TRemesasCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL];
|
||||
end;
|
||||
|
||||
function TRemesasCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency;
|
||||
function TRemesasCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL];
|
||||
end;
|
||||
|
||||
procedure TRemesasCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency);
|
||||
procedure TRemesasCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL] := aValue;
|
||||
end;
|
||||
|
||||
@ -8,6 +8,10 @@ uses
|
||||
|
||||
const
|
||||
BIZ_CLIENT_REMESACLIENTE = 'Client.RemesaCliente';
|
||||
CTE_TIPO_REMESA = 'REMESA';
|
||||
CTE_TIPO_TALON = 'TALON';
|
||||
CTE_TIPO_EFECTIVO = 'EFECTIVO';
|
||||
CTE_TIPO_TRANSFERENCIA = 'TRANSFERENCIA';
|
||||
|
||||
type
|
||||
IBizRemesaCliente = interface(IRemesasCliente)
|
||||
@ -73,6 +77,7 @@ begin
|
||||
ID_EMPRESA := dmUsuarios.IDEmpresaActual;
|
||||
FECHA_REMESA := Date;
|
||||
USUARIO := dmUsuarios.LoginInfo.Usuario;
|
||||
TIPO := CTE_TIPO_REMESA;
|
||||
end;
|
||||
|
||||
procedure TBizRemesaCliente.OnNewRecord(Sender: TDADataTable);
|
||||
|
||||
@ -153,6 +153,34 @@ object srvRemesasCliente: TsrvRemesasCliente
|
||||
DisplayLabel = 'REFERENCIA'
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'RemesasCliente_REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'REFERENCIA'
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'RemesasCliente_TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Forma de cobro'
|
||||
Alignment = taLeftJustify
|
||||
end
|
||||
item
|
||||
Name = 'RemesasCliente_IMPORTE_TOTAL'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
ServerAutoRefresh = True
|
||||
end>
|
||||
Left = 150
|
||||
Top = 22
|
||||
@ -216,10 +244,11 @@ object srvRemesasCliente: TsrvRemesasCliente
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'V_REMESAS_CLIENTE'
|
||||
SQL =
|
||||
'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' +
|
||||
'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' +
|
||||
'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' +
|
||||
'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_CLIENTE'
|
||||
'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' +
|
||||
#10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' +
|
||||
'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' +
|
||||
','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_C' +
|
||||
'LIENTE'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -289,6 +318,10 @@ object srvRemesasCliente: TsrvRemesasCliente
|
||||
item
|
||||
DatasetField = 'SUFIJO_N58'
|
||||
TableField = 'SUFIJO_N58'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO'
|
||||
TableField = 'TIPO'
|
||||
end>
|
||||
end>
|
||||
Name = 'RemesasCliente'
|
||||
@ -318,9 +351,18 @@ object srvRemesasCliente: TsrvRemesasCliente
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'RemesasCliente_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
DictionaryEntry = 'RemesasCliente_TIPO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
@ -390,12 +432,9 @@ object srvRemesasCliente: TsrvRemesasCliente
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'RemesasCliente_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
@ -495,11 +534,11 @@ object srvRemesasCliente: TsrvRemesasCliente
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'V_REMESAS_CLIENTE'
|
||||
SQL =
|
||||
'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' +
|
||||
'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' +
|
||||
'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' +
|
||||
'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_CLIENTE'#10'W' +
|
||||
'HERE ID = :ID'
|
||||
'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' +
|
||||
#10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' +
|
||||
'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' +
|
||||
','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_C' +
|
||||
'LIENTE'#10'WHERE ID = :ID'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -570,6 +609,10 @@ object srvRemesasCliente: TsrvRemesasCliente
|
||||
item
|
||||
DatasetField = 'SUFIJO_N58'
|
||||
TableField = 'SUFIJO_N58'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO'
|
||||
TableField = 'TIPO'
|
||||
end>
|
||||
end>
|
||||
Name = 'RemesasCliente_Refresh'
|
||||
@ -607,6 +650,17 @@ object srvRemesasCliente: TsrvRemesasCliente
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
DictionaryEntry = 'RemesasCliente_TIPO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_REMESA'
|
||||
DataType = datDateTime
|
||||
@ -671,7 +725,7 @@ object srvRemesasCliente: TsrvRemesasCliente
|
||||
end
|
||||
item
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datCurrency
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
@ -817,6 +871,14 @@ object srvRemesasCliente: TsrvRemesasCliente
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_REMESA'
|
||||
DataType = datDateTime
|
||||
@ -873,11 +935,11 @@ object srvRemesasCliente: TsrvRemesasCliente
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'REMESAS_CLIENTE'
|
||||
SQL =
|
||||
'INSERT'#10' INTO REMESAS_CLIENTE'#10' (ID, REFERENCIA, FECHA_REMESA,' +
|
||||
' DESCRIPCION, USUARIO, ID_EMPRESA,'#10' ID_DATOS_BANCO, FECHA_AL' +
|
||||
'TA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :REFERENCIA, :FECHA_R' +
|
||||
'EMESA, :DESCRIPCION, :USUARIO,'#10' :ID_EMPRESA, :ID_DATOS_BANCO' +
|
||||
', :FECHA_ALTA,'#10' :FECHA_MODIFICACION)'
|
||||
'INSERT'#10' INTO REMESAS_CLIENTE'#10' (ID, REFERENCIA, TIPO, FECHA_R' +
|
||||
'EMESA, DESCRIPCION, USUARIO, ID_EMPRESA,'#10' ID_DATOS_BANCO, FE' +
|
||||
'CHA_ALTA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :REFERENCIA, :T' +
|
||||
'IPO, :FECHA_REMESA, :DESCRIPCION, :USUARIO,'#10' :ID_EMPRESA, :I' +
|
||||
'D_DATOS_BANCO, :FECHA_ALTA,'#10' :FECHA_MODIFICACION)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -912,6 +974,14 @@ object srvRemesasCliente: TsrvRemesasCliente
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_REMESA'
|
||||
DataType = datDateTime
|
||||
@ -976,11 +1046,11 @@ object srvRemesasCliente: TsrvRemesasCliente
|
||||
TargetTable = 'REMESAS_CLIENTE'
|
||||
SQL =
|
||||
'UPDATE REMESAS_CLIENTE'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' ' +
|
||||
' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPCION = :DESCRIPCION, ' +
|
||||
#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :ID_EMPRESA, '#10' ID_' +
|
||||
'DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALTA = :FECHA_ALTA, '#10' ' +
|
||||
' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE'#10' (ID = :OL' +
|
||||
'D_ID)'
|
||||
' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPCIO' +
|
||||
'N = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :ID' +
|
||||
'_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALTA ' +
|
||||
'= :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' W' +
|
||||
'HERE'#10' (ID = :OLD_ID)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -4,13 +4,13 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
|
||||
HorzScrollBar.Visible = False
|
||||
VertScrollBar.Visible = False
|
||||
Caption = 'Ficha de remesa de cobro'
|
||||
ClientHeight = 538
|
||||
ClientHeight = 583
|
||||
ClientWidth = 676
|
||||
Scaled = False
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitLeft = -19
|
||||
ExplicitLeft = -49
|
||||
ExplicitWidth = 684
|
||||
ExplicitHeight = 572
|
||||
ExplicitHeight = 617
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -50,7 +50,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
|
||||
Width = 676
|
||||
ExplicitWidth = 676
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 592
|
||||
ExplicitWidth = 598
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -108,7 +108,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 676
|
||||
Height = 397
|
||||
Height = 442
|
||||
MultiLine = True
|
||||
ExplicitWidth = 676
|
||||
ExplicitHeight = 397
|
||||
@ -121,7 +121,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 668
|
||||
Height = 121
|
||||
Height = 145
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -132,13 +132,16 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 668
|
||||
ExplicitHeight = 121
|
||||
ExplicitHeight = 145
|
||||
inherited dxLayoutControlRemesaCliente: TdxLayoutControl
|
||||
Width = 668
|
||||
Height = 129
|
||||
Height = 160
|
||||
Align = alTop
|
||||
ExplicitWidth = 668
|
||||
ExplicitHeight = 129
|
||||
ExplicitHeight = 160
|
||||
DesignSize = (
|
||||
668
|
||||
160)
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
ExplicitWidth = 326
|
||||
Width = 326
|
||||
@ -157,6 +160,10 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
|
||||
ExplicitWidth = 39
|
||||
Width = 39
|
||||
end
|
||||
inherited cbTipo: TcxDBImageComboBox
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
end
|
||||
end
|
||||
inherited dsDataTable: TDADataSource
|
||||
Left = 104
|
||||
@ -168,9 +175,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
|
||||
end
|
||||
inline frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente
|
||||
Left = 0
|
||||
Top = 121
|
||||
Top = 145
|
||||
Width = 668
|
||||
Height = 248
|
||||
Height = 269
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -189,7 +196,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
|
||||
inherited cxGrid: TcxGrid
|
||||
Left = 15
|
||||
Width = 638
|
||||
Height = 208
|
||||
Height = 229
|
||||
ExplicitLeft = 15
|
||||
ExplicitWidth = 638
|
||||
ExplicitHeight = 208
|
||||
@ -211,12 +218,24 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
|
||||
Width = 638
|
||||
ExplicitLeft = 15
|
||||
ExplicitWidth = 638
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 62
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 74
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 67
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 117
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 519
|
||||
Top = 564
|
||||
Width = 676
|
||||
Panels = <
|
||||
item
|
||||
@ -227,7 +246,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
|
||||
end
|
||||
inline frViewTotales1: TfrViewTotales [4]
|
||||
Left = 0
|
||||
Top = 473
|
||||
Top = 518
|
||||
Width = 676
|
||||
Height = 46
|
||||
Align = alBottom
|
||||
|
||||
@ -2,16 +2,18 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
|
||||
Left = 489
|
||||
Top = 325
|
||||
Caption = 'Lista de remesas de cobro'
|
||||
ClientWidth = 820
|
||||
ExplicitWidth = 828
|
||||
ClientHeight = 409
|
||||
ClientWidth = 785
|
||||
ExplicitWidth = 793
|
||||
ExplicitHeight = 443
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 820
|
||||
Width = 785
|
||||
Caption = 'Lista de remesas de cobro'
|
||||
ExplicitWidth = 820
|
||||
inherited Image1: TImage
|
||||
Left = 793
|
||||
Left = 758
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||
@ -40,15 +42,15 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 820
|
||||
Width = 785
|
||||
ExplicitWidth = 820
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 552
|
||||
ExplicitWidth = 561
|
||||
object TBXSeparatorItem17: TTBXSeparatorItem [12]
|
||||
end
|
||||
end
|
||||
inherited tbxFiltro: TTBXToolbar
|
||||
ExplicitWidth = 260
|
||||
ExplicitWidth = 269
|
||||
inherited tbxEditFiltro: TTBXEditItem
|
||||
EditOptions = [tboUseEditWhenVertical]
|
||||
end
|
||||
@ -57,7 +59,7 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 820
|
||||
ExplicitWidth = 785
|
||||
object TBXSubmenuItem2: TTBXSubmenuItem [4]
|
||||
Caption = 'A&cciones'
|
||||
object TBXItem38: TTBXItem
|
||||
@ -65,9 +67,14 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited TBXTMain2: TTBXToolbar
|
||||
Left = 334
|
||||
ExplicitLeft = 334
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Width = 820
|
||||
Top = 390
|
||||
Width = 785
|
||||
ExplicitWidth = 820
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewRemesaCliente: TfrViewRemesaCliente
|
||||
Width = 451
|
||||
Height = 304
|
||||
Height = 157
|
||||
Align = alClient
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
@ -8,15 +8,16 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 451
|
||||
Height = 304
|
||||
Height = 157
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
451
|
||||
304)
|
||||
157)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 110
|
||||
Top = 30
|
||||
@ -42,7 +43,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
|
||||
end
|
||||
object eDescripcion: TcxDBTextEdit
|
||||
Left = 110
|
||||
Top = 84
|
||||
Top = 111
|
||||
DataBinding.DataField = 'DESCRIPCION'
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -57,7 +58,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
TabOrder = 4
|
||||
Width = 108
|
||||
end
|
||||
object edtFechaRemesa: TcxDBDateEdit
|
||||
@ -114,6 +115,28 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
|
||||
TabOrder = 2
|
||||
Width = 39
|
||||
end
|
||||
object cbTipo: TcxDBImageComboBox
|
||||
Left = 110
|
||||
Top = 84
|
||||
DataBinding.DataField = 'TIPO'
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Properties.Items = <>
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
Width = 121
|
||||
end
|
||||
object dxLayoutControlRemesaClienteGroup_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -153,6 +176,11 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
|
||||
Control = cbCuentaBancaria
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlRemesaClienteItem1: TdxLayoutItem
|
||||
Caption = 'Forma de cobro:'
|
||||
Control = cbTipo
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlRemesaClienteItem8: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
|
||||
@ -11,7 +11,8 @@ uses
|
||||
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
|
||||
uFamiliasController, cxSpinEdit, cxCurrencyEdit,
|
||||
uBizRemesasCliente, uRemesasClienteController, cxCalendar,
|
||||
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
|
||||
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
|
||||
cxImageComboBox;
|
||||
|
||||
type
|
||||
IViewRemesaCliente = interface(IViewBase)
|
||||
@ -44,6 +45,8 @@ type
|
||||
cbCuentaBancaria: TcxDBLookupComboBox;
|
||||
dsDatosBanco: TDADataSource;
|
||||
dxLayoutControlRemesaClienteGroup2: TdxLayoutGroup;
|
||||
cbTipo: TcxDBImageComboBox;
|
||||
dxLayoutControlRemesaClienteItem1: TdxLayoutItem;
|
||||
|
||||
protected
|
||||
FController: IRemesasClienteController;
|
||||
@ -55,6 +58,7 @@ type
|
||||
public
|
||||
property RemesaCliente: IBizRemesaCliente read GetRemesaCliente write SetRemesaCliente;
|
||||
property Controller : IRemesasClienteController read GetController write SetController;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -76,6 +80,36 @@ begin
|
||||
Result := FRemesaCliente;
|
||||
end;
|
||||
|
||||
constructor TfrViewRemesaCliente.Create(AOwner: TComponent);
|
||||
var
|
||||
AItem : TcxImageComboBoxItem;
|
||||
begin
|
||||
inherited;
|
||||
cbTipo.Properties.Items.BeginUpdate;
|
||||
|
||||
AItem := cbTipo.Properties.Items.Add;
|
||||
AItem.Tag := 1;
|
||||
AItem.Description := CTE_TIPO_REMESA;
|
||||
AItem.Value := CTE_TIPO_REMESA;
|
||||
|
||||
AItem := cbTipo.Properties.Items.Add;
|
||||
AItem.Tag := 2;
|
||||
AItem.Description := CTE_TIPO_TALON;
|
||||
AItem.Value := CTE_TIPO_TALON;
|
||||
|
||||
AItem := cbTipo.Properties.Items.Add;
|
||||
AItem.Tag := 3;
|
||||
AItem.Description := CTE_TIPO_EFECTIVO;
|
||||
AItem.Value := CTE_TIPO_EFECTIVO;
|
||||
|
||||
AItem := cbTipo.Properties.Items.Add;
|
||||
AItem.Tag := 4;
|
||||
AItem.Description := CTE_TIPO_TRANSFERENCIA;
|
||||
AItem.Value := CTE_TIPO_TRANSFERENCIA;
|
||||
|
||||
cbTipo.Properties.Items.EndUpdate;
|
||||
end;
|
||||
|
||||
function TfrViewRemesaCliente.GetController: IRemesasClienteController;
|
||||
begin
|
||||
Result := FController;
|
||||
|
||||
@ -1,7 +1,10 @@
|
||||
inherited frViewRemesasCliente: TfrViewRemesasCliente
|
||||
Height = 420
|
||||
ExplicitHeight = 420
|
||||
inherited cxGrid: TcxGrid
|
||||
Height = 292
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.KeyFieldNames = 'ID'
|
||||
DataController.KeyFieldNames = 'RecID'
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
@ -33,19 +36,14 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
|
||||
DataBinding.FieldName = 'RecID'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewID: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ID'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewID_EMPRESA: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ID_EMPRESA'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewREFERENCIA: TcxGridDBColumn
|
||||
Caption = 'Referencia'
|
||||
DataBinding.FieldName = 'REFERENCIA'
|
||||
Width = 118
|
||||
end
|
||||
object cxGridViewTIPO: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'TIPO'
|
||||
end
|
||||
object cxGridViewFECHA_REMESA: TcxGridDBColumn
|
||||
Caption = 'Fecha de cargo'
|
||||
DataBinding.FieldName = 'FECHA_REMESA'
|
||||
@ -76,14 +74,6 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
|
||||
DataBinding.FieldName = 'CUENTA'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewSUFIJO_N19: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'SUFIJO_N19'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewSUFIJO_N58: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'SUFIJO_N58'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
|
||||
Caption = 'Importe'
|
||||
DataBinding.FieldName = 'IMPORTE_TOTAL'
|
||||
@ -98,6 +88,7 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
|
||||
inherited TBXDock1: TTBXDock
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
ExplicitWidth = 550
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
@ -114,6 +105,10 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 394
|
||||
ExplicitWidth = 554
|
||||
end
|
||||
inherited dxComponentPrinter: TdxComponentPrinter
|
||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||
ReportDocument.CreationDate = 38673.842406053240000000
|
||||
|
||||
@ -27,8 +27,6 @@ type
|
||||
TfrViewRemesasCliente = class(TfrViewGrid, IViewRemesasCliente)
|
||||
PngImageList: TPngImageList;
|
||||
cxGridViewRecID: TcxGridDBColumn;
|
||||
cxGridViewID: TcxGridDBColumn;
|
||||
cxGridViewID_EMPRESA: TcxGridDBColumn;
|
||||
cxGridViewREFERENCIA: TcxGridDBColumn;
|
||||
cxGridViewFECHA_REMESA: TcxGridDBColumn;
|
||||
cxGridViewDESCRIPCION: TcxGridDBColumn;
|
||||
@ -38,8 +36,7 @@ type
|
||||
cxGridViewSUCURSAL: TcxGridDBColumn;
|
||||
cxGridViewDC: TcxGridDBColumn;
|
||||
cxGridViewCUENTA: TcxGridDBColumn;
|
||||
cxGridViewSUFIJO_N19: TcxGridDBColumn;
|
||||
cxGridViewSUFIJO_N58: TcxGridDBColumn;
|
||||
cxGridViewTIPO: TcxGridDBColumn;
|
||||
procedure cxGridViewIDCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
|
||||
@ -41,7 +41,7 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor
|
||||
Name = 'Password'
|
||||
ParamType = fIn
|
||||
DataType = rtString
|
||||
Value = '1'
|
||||
Value = 'luisleon07'
|
||||
end
|
||||
item
|
||||
Name = 'LoginInfo'
|
||||
@ -66,7 +66,7 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor
|
||||
ProbeServers = False
|
||||
ProbeFrequency = 60000
|
||||
UserAgent = 'RemObjects SDK'
|
||||
TargetURL = 'http://localhost:8099/bin'
|
||||
TargetURL = 'http://localhost:8090/bin'
|
||||
Left = 48
|
||||
Top = 272
|
||||
end
|
||||
@ -109,7 +109,21 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'RemesasProveedor_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Forma de pago'
|
||||
Alignment = taLeftJustify
|
||||
DictionaryEntry = 'RemesasProveedor_TIPO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
@ -199,7 +213,7 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'RemesasProveedor_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
|
||||
@ -9,9 +9,9 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_darReferencia = '{3D6FDF20-0A49-4834-AD39-B9CEC05728BC}';
|
||||
RID_RemesasProveedor = '{9F4452B5-ED06-43F7-AFE9-21A4BF5A3D2D}';
|
||||
RID_RemesasProveedor_Refresh = '{DB725E06-D3E1-4820-9256-20F5FA83DDF0}';
|
||||
RID_darReferencia = '{C1FE1FF9-7F1D-45EF-A6EC-36769F2459E8}';
|
||||
RID_RemesasProveedor = '{B681DD8C-CB40-4D5F-8717-3335972EB8EF}';
|
||||
RID_RemesasProveedor_Refresh = '{56DD2E63-E0E0-47F8-9840-044CC0BB101E}';
|
||||
|
||||
{ Data table names }
|
||||
nme_darReferencia = 'darReferencia';
|
||||
@ -28,6 +28,7 @@ const
|
||||
fld_RemesasProveedorID = 'ID';
|
||||
fld_RemesasProveedorID_EMPRESA = 'ID_EMPRESA';
|
||||
fld_RemesasProveedorREFERENCIA = 'REFERENCIA';
|
||||
fld_RemesasProveedorTIPO = 'TIPO';
|
||||
fld_RemesasProveedorFECHA_REMESA = 'FECHA_REMESA';
|
||||
fld_RemesasProveedorDESCRIPCION = 'DESCRIPCION';
|
||||
fld_RemesasProveedorUSUARIO = 'USUARIO';
|
||||
@ -47,25 +48,27 @@ const
|
||||
idx_RemesasProveedorID = 0;
|
||||
idx_RemesasProveedorID_EMPRESA = 1;
|
||||
idx_RemesasProveedorREFERENCIA = 2;
|
||||
idx_RemesasProveedorFECHA_REMESA = 3;
|
||||
idx_RemesasProveedorDESCRIPCION = 4;
|
||||
idx_RemesasProveedorUSUARIO = 5;
|
||||
idx_RemesasProveedorID_DATOS_BANCO = 6;
|
||||
idx_RemesasProveedorFECHA_ALTA = 7;
|
||||
idx_RemesasProveedorFECHA_MODIFICACION = 8;
|
||||
idx_RemesasProveedorIMPORTE_TOTAL = 9;
|
||||
idx_RemesasProveedorNOMBRE = 10;
|
||||
idx_RemesasProveedorENTIDAD = 11;
|
||||
idx_RemesasProveedorSUCURSAL = 12;
|
||||
idx_RemesasProveedorDC = 13;
|
||||
idx_RemesasProveedorCUENTA = 14;
|
||||
idx_RemesasProveedorSUFIJO_N19 = 15;
|
||||
idx_RemesasProveedorSUFIJO_N58 = 16;
|
||||
idx_RemesasProveedorTIPO = 3;
|
||||
idx_RemesasProveedorFECHA_REMESA = 4;
|
||||
idx_RemesasProveedorDESCRIPCION = 5;
|
||||
idx_RemesasProveedorUSUARIO = 6;
|
||||
idx_RemesasProveedorID_DATOS_BANCO = 7;
|
||||
idx_RemesasProveedorFECHA_ALTA = 8;
|
||||
idx_RemesasProveedorFECHA_MODIFICACION = 9;
|
||||
idx_RemesasProveedorIMPORTE_TOTAL = 10;
|
||||
idx_RemesasProveedorNOMBRE = 11;
|
||||
idx_RemesasProveedorENTIDAD = 12;
|
||||
idx_RemesasProveedorSUCURSAL = 13;
|
||||
idx_RemesasProveedorDC = 14;
|
||||
idx_RemesasProveedorCUENTA = 15;
|
||||
idx_RemesasProveedorSUFIJO_N19 = 16;
|
||||
idx_RemesasProveedorSUFIJO_N58 = 17;
|
||||
|
||||
{ RemesasProveedor_Refresh fields }
|
||||
fld_RemesasProveedor_RefreshID = 'ID';
|
||||
fld_RemesasProveedor_RefreshID_EMPRESA = 'ID_EMPRESA';
|
||||
fld_RemesasProveedor_RefreshREFERENCIA = 'REFERENCIA';
|
||||
fld_RemesasProveedor_RefreshTIPO = 'TIPO';
|
||||
fld_RemesasProveedor_RefreshFECHA_REMESA = 'FECHA_REMESA';
|
||||
fld_RemesasProveedor_RefreshDESCRIPCION = 'DESCRIPCION';
|
||||
fld_RemesasProveedor_RefreshUSUARIO = 'USUARIO';
|
||||
@ -85,25 +88,26 @@ const
|
||||
idx_RemesasProveedor_RefreshID = 0;
|
||||
idx_RemesasProveedor_RefreshID_EMPRESA = 1;
|
||||
idx_RemesasProveedor_RefreshREFERENCIA = 2;
|
||||
idx_RemesasProveedor_RefreshFECHA_REMESA = 3;
|
||||
idx_RemesasProveedor_RefreshDESCRIPCION = 4;
|
||||
idx_RemesasProveedor_RefreshUSUARIO = 5;
|
||||
idx_RemesasProveedor_RefreshID_DATOS_BANCO = 6;
|
||||
idx_RemesasProveedor_RefreshFECHA_ALTA = 7;
|
||||
idx_RemesasProveedor_RefreshFECHA_MODIFICACION = 8;
|
||||
idx_RemesasProveedor_RefreshIMPORTE_TOTAL = 9;
|
||||
idx_RemesasProveedor_RefreshNOMBRE = 10;
|
||||
idx_RemesasProveedor_RefreshENTIDAD = 11;
|
||||
idx_RemesasProveedor_RefreshSUCURSAL = 12;
|
||||
idx_RemesasProveedor_RefreshDC = 13;
|
||||
idx_RemesasProveedor_RefreshCUENTA = 14;
|
||||
idx_RemesasProveedor_RefreshSUFIJO_N19 = 15;
|
||||
idx_RemesasProveedor_RefreshSUFIJO_N58 = 16;
|
||||
idx_RemesasProveedor_RefreshTIPO = 3;
|
||||
idx_RemesasProveedor_RefreshFECHA_REMESA = 4;
|
||||
idx_RemesasProveedor_RefreshDESCRIPCION = 5;
|
||||
idx_RemesasProveedor_RefreshUSUARIO = 6;
|
||||
idx_RemesasProveedor_RefreshID_DATOS_BANCO = 7;
|
||||
idx_RemesasProveedor_RefreshFECHA_ALTA = 8;
|
||||
idx_RemesasProveedor_RefreshFECHA_MODIFICACION = 9;
|
||||
idx_RemesasProveedor_RefreshIMPORTE_TOTAL = 10;
|
||||
idx_RemesasProveedor_RefreshNOMBRE = 11;
|
||||
idx_RemesasProveedor_RefreshENTIDAD = 12;
|
||||
idx_RemesasProveedor_RefreshSUCURSAL = 13;
|
||||
idx_RemesasProveedor_RefreshDC = 14;
|
||||
idx_RemesasProveedor_RefreshCUENTA = 15;
|
||||
idx_RemesasProveedor_RefreshSUFIJO_N19 = 16;
|
||||
idx_RemesasProveedor_RefreshSUFIJO_N58 = 17;
|
||||
|
||||
type
|
||||
{ IdarReferencia }
|
||||
IdarReferencia = interface(IDAStronglyTypedDataTable)
|
||||
['{419EF698-F812-4BB2-AF2E-4BDCAF09060F}']
|
||||
['{117BD92C-DD52-4B6F-840D-675FF8A7BB4B}']
|
||||
{ Property getters and setters }
|
||||
function GetVALORValue: String;
|
||||
procedure SetVALORValue(const aValue: String);
|
||||
@ -132,7 +136,7 @@ type
|
||||
|
||||
{ IRemesasProveedor }
|
||||
IRemesasProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{88EC9B27-C7D8-4C82-8E83-29E8F70DBB66}']
|
||||
['{23B52BF8-6AAD-4393-96A3-F66CAA606CF5}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -140,6 +144,8 @@ type
|
||||
procedure SetID_EMPRESAValue(const aValue: Integer);
|
||||
function GetREFERENCIAValue: String;
|
||||
procedure SetREFERENCIAValue(const aValue: String);
|
||||
function GetTIPOValue: String;
|
||||
procedure SetTIPOValue(const aValue: String);
|
||||
function GetFECHA_REMESAValue: DateTime;
|
||||
procedure SetFECHA_REMESAValue(const aValue: DateTime);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
@ -174,6 +180,7 @@ type
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
@ -201,6 +208,8 @@ type
|
||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
function GetFECHA_REMESAValue: DateTime; virtual;
|
||||
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
@ -234,6 +243,7 @@ type
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
@ -257,7 +267,7 @@ type
|
||||
|
||||
{ IRemesasProveedor_Refresh }
|
||||
IRemesasProveedor_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{53C9C363-9E14-448C-9201-52DB64D0B000}']
|
||||
['{DE94F87C-D124-425E-868D-607F9F21A92C}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -265,6 +275,8 @@ type
|
||||
procedure SetID_EMPRESAValue(const aValue: Integer);
|
||||
function GetREFERENCIAValue: String;
|
||||
procedure SetREFERENCIAValue(const aValue: String);
|
||||
function GetTIPOValue: String;
|
||||
procedure SetTIPOValue(const aValue: String);
|
||||
function GetFECHA_REMESAValue: DateTime;
|
||||
procedure SetFECHA_REMESAValue(const aValue: DateTime);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
@ -299,6 +311,7 @@ type
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
@ -326,6 +339,8 @@ type
|
||||
procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
function GetFECHA_REMESAValue: DateTime; virtual;
|
||||
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
@ -359,6 +374,7 @@ type
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
|
||||
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property TIPO: String read GetTIPOValue write SetTIPOValue;
|
||||
property FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
|
||||
@ -447,6 +463,16 @@ begin
|
||||
DataTable.Fields[idx_RemesasProveedorREFERENCIA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasProveedorDataTableRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RemesasProveedorTIPO].AsString;
|
||||
end;
|
||||
|
||||
procedure TRemesasProveedorDataTableRules.SetTIPOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_RemesasProveedorTIPO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasProveedorDataTableRules.GetFECHA_REMESAValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].AsDateTime;
|
||||
@ -629,6 +655,16 @@ begin
|
||||
DataTable.Fields[idx_RemesasProveedor_RefreshREFERENCIA].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasProveedor_RefreshDataTableRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RemesasProveedor_RefreshTIPO].AsString;
|
||||
end;
|
||||
|
||||
procedure TRemesasProveedor_RefreshDataTableRules.SetTIPOValue(const aValue: String);
|
||||
begin
|
||||
DataTable.Fields[idx_RemesasProveedor_RefreshTIPO].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasProveedor_RefreshDataTableRules.GetFECHA_REMESAValue: DateTime;
|
||||
begin
|
||||
result := DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_REMESA].AsDateTime;
|
||||
|
||||
@ -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_darReferenciaDelta = '{137F6E55-880D-4E7A-9E63-2B70A858EB7E}';
|
||||
RID_RemesasProveedorDelta = '{13DBC096-29B3-43C6-8174-3776F2A23352}';
|
||||
RID_RemesasProveedor_RefreshDelta = '{357339B7-C872-48D4-A472-875E190B5EE5}';
|
||||
RID_darReferenciaDelta = '{1CF21482-DCAA-4AC1-99E1-17E699935E70}';
|
||||
RID_RemesasProveedorDelta = '{3E42591F-5D39-4B25-9D0B-65195F9A748B}';
|
||||
RID_RemesasProveedor_RefreshDelta = '{98216DA8-39E0-4978-8E23-96992F4135C8}';
|
||||
|
||||
type
|
||||
{ IdarReferenciaDelta }
|
||||
IdarReferenciaDelta = interface(IdarReferencia)
|
||||
['{137F6E55-880D-4E7A-9E63-2B70A858EB7E}']
|
||||
['{1CF21482-DCAA-4AC1-99E1-17E699935E70}']
|
||||
{ Property getters and setters }
|
||||
function GetOldVALORValue : String;
|
||||
|
||||
@ -45,11 +45,12 @@ type
|
||||
|
||||
{ IRemesasProveedorDelta }
|
||||
IRemesasProveedorDelta = interface(IRemesasProveedor)
|
||||
['{13DBC096-29B3-43C6-8174-3776F2A23352}']
|
||||
['{3E42591F-5D39-4B25-9D0B-65195F9A748B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldTIPOValue : String;
|
||||
function GetOldFECHA_REMESAValue : DateTime;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
function GetOldUSUARIOValue : String;
|
||||
@ -69,6 +70,7 @@ type
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldUSUARIO : String read GetOldUSUARIOValue;
|
||||
@ -99,6 +101,9 @@ type
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
function GetOldREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
function GetOldTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
function GetFECHA_REMESAValue: DateTime; virtual;
|
||||
function GetOldFECHA_REMESAValue: DateTime; virtual;
|
||||
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
|
||||
@ -149,6 +154,8 @@ type
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property TIPO : String read GetTIPOValue write SetTIPOValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
||||
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
@ -186,11 +193,12 @@ type
|
||||
|
||||
{ IRemesasProveedor_RefreshDelta }
|
||||
IRemesasProveedor_RefreshDelta = interface(IRemesasProveedor_Refresh)
|
||||
['{357339B7-C872-48D4-A472-875E190B5EE5}']
|
||||
['{98216DA8-39E0-4978-8E23-96992F4135C8}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_EMPRESAValue : Integer;
|
||||
function GetOldREFERENCIAValue : String;
|
||||
function GetOldTIPOValue : String;
|
||||
function GetOldFECHA_REMESAValue : DateTime;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
function GetOldUSUARIOValue : String;
|
||||
@ -210,6 +218,7 @@ type
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldUSUARIO : String read GetOldUSUARIOValue;
|
||||
@ -240,6 +249,9 @@ type
|
||||
function GetREFERENCIAValue: String; virtual;
|
||||
function GetOldREFERENCIAValue: String; virtual;
|
||||
procedure SetREFERENCIAValue(const aValue: String); virtual;
|
||||
function GetTIPOValue: String; virtual;
|
||||
function GetOldTIPOValue: String; virtual;
|
||||
procedure SetTIPOValue(const aValue: String); virtual;
|
||||
function GetFECHA_REMESAValue: DateTime; virtual;
|
||||
function GetOldFECHA_REMESAValue: DateTime; virtual;
|
||||
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
|
||||
@ -290,6 +302,8 @@ type
|
||||
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
|
||||
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
|
||||
property OldREFERENCIA : String read GetOldREFERENCIAValue;
|
||||
property TIPO : String read GetTIPOValue write SetTIPOValue;
|
||||
property OldTIPO : String read GetOldTIPOValue;
|
||||
property FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
|
||||
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
@ -413,6 +427,21 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorREFERENCIA] := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasProveedorBusinessProcessorRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorTIPO];
|
||||
end;
|
||||
|
||||
function TRemesasProveedorBusinessProcessorRules.GetOldTIPOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedorTIPO];
|
||||
end;
|
||||
|
||||
procedure TRemesasProveedorBusinessProcessorRules.SetTIPOValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorTIPO] := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasProveedorBusinessProcessorRules.GetFECHA_REMESAValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_REMESA];
|
||||
@ -680,6 +709,21 @@ begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshREFERENCIA] := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasProveedor_RefreshBusinessProcessorRules.GetTIPOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshTIPO];
|
||||
end;
|
||||
|
||||
function TRemesasProveedor_RefreshBusinessProcessorRules.GetOldTIPOValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasProveedor_RefreshTIPO];
|
||||
end;
|
||||
|
||||
procedure TRemesasProveedor_RefreshBusinessProcessorRules.SetTIPOValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshTIPO] := aValue;
|
||||
end;
|
||||
|
||||
function TRemesasProveedor_RefreshBusinessProcessorRules.GetFECHA_REMESAValue: DateTime;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_REMESA];
|
||||
|
||||
@ -8,6 +8,10 @@ uses
|
||||
|
||||
const
|
||||
BIZ_CLIENT_REMESAPROVEEDOR = 'Client.RemesaProveedor';
|
||||
CTE_TIPO_REMESA = 'REMESA';
|
||||
CTE_TIPO_TALON = 'TALON';
|
||||
CTE_TIPO_EFECTIVO = 'EFECTIVO';
|
||||
CTE_TIPO_TRANSFERENCIA = 'TRANSFERENCIA';
|
||||
|
||||
type
|
||||
IBizRemesaProveedor = interface(IRemesasProveedor)
|
||||
@ -73,6 +77,7 @@ begin
|
||||
ID_EMPRESA := dmUsuarios.IDEmpresaActual;
|
||||
FECHA_REMESA := Date;
|
||||
USUARIO := dmUsuarios.LoginInfo.Usuario;
|
||||
TIPO := CTE_TIPO_REMESA;
|
||||
end;
|
||||
|
||||
procedure TBizRemesaProveedor.OnNewRecord(Sender: TDADataTable);
|
||||
|
||||
@ -153,6 +153,34 @@ object srvRemesasProveedor: TsrvRemesasProveedor
|
||||
DisplayLabel = 'REFERENCIA'
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'RemesasProveedor_REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'REFERENCIA'
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
end
|
||||
item
|
||||
Name = 'RemesasProveedor_TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Forma de pago'
|
||||
Alignment = taLeftJustify
|
||||
end
|
||||
item
|
||||
Name = 'RemesasProveedor_IMPORTE_TOTAL'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
ServerAutoRefresh = True
|
||||
end>
|
||||
Left = 150
|
||||
Top = 22
|
||||
@ -216,10 +244,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'V_REMESAS_PROVEEDOR'
|
||||
SQL =
|
||||
'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' +
|
||||
'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' +
|
||||
'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' +
|
||||
'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_PROVEEDOR'
|
||||
'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' +
|
||||
#10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' +
|
||||
'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' +
|
||||
','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_P' +
|
||||
'ROVEEDOR'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -289,6 +318,10 @@ object srvRemesasProveedor: TsrvRemesasProveedor
|
||||
item
|
||||
DatasetField = 'SUFIJO_N58'
|
||||
TableField = 'SUFIJO_N58'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO'
|
||||
TableField = 'TIPO'
|
||||
end>
|
||||
end>
|
||||
Name = 'RemesasProveedor'
|
||||
@ -318,9 +351,18 @@ object srvRemesasProveedor: TsrvRemesasProveedor
|
||||
DataType = datString
|
||||
Size = 255
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
Alignment = taLeftJustify
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'RemesasProveedor_REFERENCIA'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
DictionaryEntry = 'RemesasProveedor_TIPO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
@ -392,10 +434,7 @@ object srvRemesasProveedor: TsrvRemesasProveedor
|
||||
Name = 'IMPORTE_TOTAL'
|
||||
DataType = datFloat
|
||||
BlobType = dabtUnknown
|
||||
DisplayWidth = 0
|
||||
DisplayLabel = 'Importe total'
|
||||
Alignment = taRightJustify
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'RemesasProveedor_IMPORTE_TOTAL'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
@ -495,11 +534,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'V_REMESAS_PROVEEDOR'
|
||||
SQL =
|
||||
'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' +
|
||||
'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' +
|
||||
'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' +
|
||||
'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_PROVEEDOR' +
|
||||
#10'WHERE ID = :ID'
|
||||
'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' +
|
||||
#10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' +
|
||||
'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' +
|
||||
','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_P' +
|
||||
'ROVEEDOR'#10'WHERE ID = :ID'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <
|
||||
item
|
||||
@ -570,6 +609,10 @@ object srvRemesasProveedor: TsrvRemesasProveedor
|
||||
item
|
||||
DatasetField = 'SUFIJO_N58'
|
||||
TableField = 'SUFIJO_N58'
|
||||
end
|
||||
item
|
||||
DatasetField = 'TIPO'
|
||||
TableField = 'TIPO'
|
||||
end>
|
||||
end>
|
||||
Name = 'RemesasProveedor_Refresh'
|
||||
@ -607,6 +650,17 @@ object srvRemesasProveedor: TsrvRemesasProveedor
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
DictionaryEntry = 'RemesasProveedor_TIPO'
|
||||
InPrimaryKey = False
|
||||
Calculated = False
|
||||
Lookup = False
|
||||
LookupCache = False
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_REMESA'
|
||||
DataType = datDateTime
|
||||
@ -817,6 +871,14 @@ object srvRemesasProveedor: TsrvRemesasProveedor
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_REMESA'
|
||||
DataType = datDateTime
|
||||
@ -873,11 +935,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'REMESAS_PROVEEDOR'
|
||||
SQL =
|
||||
'INSERT'#10' INTO REMESAS_PROVEEDOR'#10' (ID, REFERENCIA, FECHA_REMES' +
|
||||
'A, DESCRIPCION, USUARIO, ID_EMPRESA,'#10' ID_DATOS_BANCO, FECHA_' +
|
||||
'ALTA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :REFERENCIA, :FECHA' +
|
||||
'_REMESA, :DESCRIPCION, :USUARIO,'#10' :ID_EMPRESA, :ID_DATOS_BAN' +
|
||||
'CO, :FECHA_ALTA,'#10' :FECHA_MODIFICACION)'
|
||||
'INSERT'#10' INTO REMESAS_PROVEEDOR'#10' (ID, REFERENCIA, TIPO, FECHA' +
|
||||
'_REMESA, DESCRIPCION, USUARIO, ID_EMPRESA,'#10' ID_DATOS_BANCO, ' +
|
||||
'FECHA_ALTA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :REFERENCIA, ' +
|
||||
':TIPO, :FECHA_REMESA, :DESCRIPCION, :USUARIO,'#10' :ID_EMPRESA, ' +
|
||||
':ID_DATOS_BANCO, :FECHA_ALTA,'#10' :FECHA_MODIFICACION)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -912,6 +974,14 @@ object srvRemesasProveedor: TsrvRemesasProveedor
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
DataType = datString
|
||||
Size = 40
|
||||
BlobType = dabtUnknown
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_REMESA'
|
||||
DataType = datDateTime
|
||||
@ -976,11 +1046,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor
|
||||
TargetTable = 'REMESAS_PROVEEDOR'
|
||||
SQL =
|
||||
'UPDATE REMESAS_PROVEEDOR'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' ' +
|
||||
' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPCION = :DESCRIPCION' +
|
||||
', '#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :ID_EMPRESA, '#10' I' +
|
||||
'D_DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALTA = :FECHA_ALTA, '#10 +
|
||||
' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE'#10' (ID = :' +
|
||||
'OLD_ID)'
|
||||
' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPC' +
|
||||
'ION = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :' +
|
||||
'ID_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALT' +
|
||||
'A = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' ' +
|
||||
' WHERE'#10' (ID = :OLD_ID)'
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -49,7 +49,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
|
||||
Width = 676
|
||||
ExplicitWidth = 676
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 482
|
||||
ExplicitWidth = 488
|
||||
inherited TBXItem2: TTBXItem
|
||||
Visible = False
|
||||
end
|
||||
@ -118,9 +118,9 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
|
||||
ExplicitHeight = 369
|
||||
inline frViewRecibosRemesaProveedor1: TfrViewRecibosRemesaProveedor
|
||||
Left = 0
|
||||
Top = 130
|
||||
Top = 145
|
||||
Width = 668
|
||||
Height = 239
|
||||
Height = 224
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -135,7 +135,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
|
||||
ExplicitHeight = 239
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 668
|
||||
Height = 214
|
||||
Height = 199
|
||||
ExplicitWidth = 668
|
||||
ExplicitHeight = 214
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
@ -157,7 +157,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 668
|
||||
Height = 130
|
||||
Height = 145
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -168,10 +168,10 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
|
||||
TabOrder = 1
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 668
|
||||
ExplicitHeight = 130
|
||||
ExplicitHeight = 145
|
||||
inherited dxLayoutControlRemesaProveedor: TdxLayoutControl
|
||||
Width = 668
|
||||
Height = 130
|
||||
Height = 145
|
||||
ExplicitWidth = 668
|
||||
ExplicitHeight = 130
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
@ -183,8 +183,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
|
||||
Width = 108
|
||||
end
|
||||
inherited edtFechaRemesa: TcxDBDateEdit
|
||||
Left = 419
|
||||
ExplicitLeft = 419
|
||||
Left = 411
|
||||
ExplicitLeft = 411
|
||||
ExplicitWidth = 170
|
||||
Width = 170
|
||||
end
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewRemesaProveedor: TfrViewRemesaProveedor
|
||||
Width = 451
|
||||
Height = 304
|
||||
Height = 160
|
||||
Align = alClient
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
@ -8,15 +8,16 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 451
|
||||
Height = 304
|
||||
Height = 160
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel1
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
451
|
||||
304)
|
||||
160)
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 110
|
||||
Top = 30
|
||||
@ -42,7 +43,7 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
|
||||
end
|
||||
object eDescripcion: TcxDBTextEdit
|
||||
Left = 110
|
||||
Top = 84
|
||||
Top = 111
|
||||
DataBinding.DataField = 'DESCRIPCION'
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Style.BorderColor = clWindowFrame
|
||||
@ -57,7 +58,7 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
TabOrder = 4
|
||||
Width = 108
|
||||
end
|
||||
object edtFechaRemesa: TcxDBDateEdit
|
||||
@ -114,6 +115,28 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
|
||||
TabOrder = 2
|
||||
Width = 39
|
||||
end
|
||||
object cbTipo: TcxDBImageComboBox
|
||||
Left = 110
|
||||
Top = 84
|
||||
DataBinding.DataField = 'TIPO'
|
||||
DataBinding.DataSource = dsDataTable
|
||||
Properties.Items = <>
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
Width = 319
|
||||
end
|
||||
object dxLayoutControlRemesaProveedorGroup_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
@ -153,6 +176,11 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
|
||||
Control = cbCuentaBancaria
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlRemesaProveedorItem1: TdxLayoutItem
|
||||
Caption = 'Forma de pago:'
|
||||
Control = cbTipo
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlRemesaProveedorItem8: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
|
||||
@ -11,7 +11,8 @@ uses
|
||||
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
|
||||
uFamiliasController, cxSpinEdit, cxCurrencyEdit,
|
||||
uBizRemesasProveedor, uRemesasProveedorController, cxCalendar,
|
||||
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox;
|
||||
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
|
||||
cxImageComboBox;
|
||||
|
||||
type
|
||||
IViewRemesaProveedor = interface(IViewBase)
|
||||
@ -44,6 +45,8 @@ type
|
||||
cbCuentaBancaria: TcxDBLookupComboBox;
|
||||
dsDatosBanco: TDADataSource;
|
||||
dxLayoutControlRemesaProveedorGroup2: TdxLayoutGroup;
|
||||
dxLayoutControlRemesaProveedorItem1: TdxLayoutItem;
|
||||
cbTipo: TcxDBImageComboBox;
|
||||
|
||||
protected
|
||||
FController: IRemesasProveedorController;
|
||||
@ -55,6 +58,7 @@ type
|
||||
public
|
||||
property RemesaProveedor: IBizRemesaProveedor read GetRemesaProveedor write SetRemesaProveedor;
|
||||
property Controller : IRemesasProveedorController read GetController write SetController;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
end;
|
||||
|
||||
implementation
|
||||
@ -76,6 +80,36 @@ begin
|
||||
Result := FRemesaProveedor;
|
||||
end;
|
||||
|
||||
constructor TfrViewRemesaProveedor.Create(AOwner: TComponent);
|
||||
var
|
||||
AItem : TcxImageComboBoxItem;
|
||||
begin
|
||||
inherited;
|
||||
cbTipo.Properties.Items.BeginUpdate;
|
||||
|
||||
AItem := cbTipo.Properties.Items.Add;
|
||||
AItem.Tag := 1;
|
||||
AItem.Description := CTE_TIPO_REMESA;
|
||||
AItem.Value := CTE_TIPO_REMESA;
|
||||
|
||||
AItem := cbTipo.Properties.Items.Add;
|
||||
AItem.Tag := 2;
|
||||
AItem.Description := CTE_TIPO_TALON;
|
||||
AItem.Value := CTE_TIPO_TALON;
|
||||
|
||||
AItem := cbTipo.Properties.Items.Add;
|
||||
AItem.Tag := 3;
|
||||
AItem.Description := CTE_TIPO_EFECTIVO;
|
||||
AItem.Value := CTE_TIPO_EFECTIVO;
|
||||
|
||||
AItem := cbTipo.Properties.Items.Add;
|
||||
AItem.Tag := 4;
|
||||
AItem.Description := CTE_TIPO_TRANSFERENCIA;
|
||||
AItem.Value := CTE_TIPO_TRANSFERENCIA;
|
||||
|
||||
cbTipo.Properties.Items.EndUpdate;
|
||||
end;
|
||||
|
||||
function TfrViewRemesaProveedor.GetController: IRemesasProveedorController;
|
||||
begin
|
||||
Result := FController;
|
||||
|
||||
@ -1,7 +1,10 @@
|
||||
inherited frViewRemesasProveedor: TfrViewRemesasProveedor
|
||||
Height = 397
|
||||
ExplicitHeight = 397
|
||||
inherited cxGrid: TcxGrid
|
||||
Height = 269
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
DataController.KeyFieldNames = 'ID'
|
||||
DataController.KeyFieldNames = 'RecID'
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
Format = ',0.00 '#8364';-,0.00 '#8364
|
||||
@ -33,19 +36,14 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
|
||||
DataBinding.FieldName = 'RecID'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewID: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ID'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewID_EMPRESA: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'ID_EMPRESA'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewREFERENCIA: TcxGridDBColumn
|
||||
Caption = 'Referencia'
|
||||
DataBinding.FieldName = 'REFERENCIA'
|
||||
Width = 118
|
||||
end
|
||||
object cxGridViewTIPO: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'TIPO'
|
||||
end
|
||||
object cxGridViewFECHA_REMESA: TcxGridDBColumn
|
||||
Caption = 'Fecha de cargo'
|
||||
DataBinding.FieldName = 'FECHA_REMESA'
|
||||
@ -76,19 +74,12 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
|
||||
DataBinding.FieldName = 'CUENTA'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewSUFIJO_N19: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'SUFIJO_N19'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewSUFIJO_N58: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'SUFIJO_N58'
|
||||
Visible = False
|
||||
end
|
||||
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
|
||||
Caption = 'Importe'
|
||||
DataBinding.FieldName = 'IMPORTE_TOTAL'
|
||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||
Properties.Alignment.Horz = taRightJustify
|
||||
FooterAlignmentHorz = taRightJustify
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
Width = 128
|
||||
end
|
||||
@ -98,6 +89,7 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
|
||||
inherited TBXDock1: TTBXDock
|
||||
inherited TBXDockablePanel1: TTBXDockablePanel
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
ExplicitWidth = 550
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
@ -114,6 +106,10 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pnlAgrupaciones: TTBXDockablePanel
|
||||
Top = 371
|
||||
ExplicitWidth = 554
|
||||
end
|
||||
inherited dxComponentPrinter: TdxComponentPrinter
|
||||
inherited dxComponentPrinterLink: TdxGridReportLink
|
||||
ReportDocument.CreationDate = 38673.842406053240000000
|
||||
|
||||
@ -27,8 +27,6 @@ type
|
||||
TfrViewRemesasProveedor = class(TfrViewGrid, IViewRemesasProveedor)
|
||||
PngImageList: TPngImageList;
|
||||
cxGridViewRecID: TcxGridDBColumn;
|
||||
cxGridViewID: TcxGridDBColumn;
|
||||
cxGridViewID_EMPRESA: TcxGridDBColumn;
|
||||
cxGridViewREFERENCIA: TcxGridDBColumn;
|
||||
cxGridViewFECHA_REMESA: TcxGridDBColumn;
|
||||
cxGridViewDESCRIPCION: TcxGridDBColumn;
|
||||
@ -38,8 +36,7 @@ type
|
||||
cxGridViewSUCURSAL: TcxGridDBColumn;
|
||||
cxGridViewDC: TcxGridDBColumn;
|
||||
cxGridViewCUENTA: TcxGridDBColumn;
|
||||
cxGridViewSUFIJO_N19: TcxGridDBColumn;
|
||||
cxGridViewSUFIJO_N58: TcxGridDBColumn;
|
||||
cxGridViewTIPO: TcxGridDBColumn;
|
||||
procedure cxGridViewIDCustomDrawCell(
|
||||
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
||||
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||||
|
||||
@ -63,8 +63,6 @@ uses
|
||||
uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS',
|
||||
srvRecibosCliente_Impl in '..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas' {srvRecibosCliente: TDARemoteService},
|
||||
srvRemesasCliente_Impl in '..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas' {srvRemesasCliente: TDARemoteService},
|
||||
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
|
||||
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas',
|
||||
uBizRemesasClienteServer in '..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas',
|
||||
uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule},
|
||||
uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule},
|
||||
@ -96,8 +94,6 @@ uses
|
||||
uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule},
|
||||
srvRemesasProveedor_Impl in '..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas' {srvRemesasProveedor: TDARemoteService},
|
||||
uRptRemesasProveedor_Server in '..\Modulos\Remesas de proveedor\Reports\uRptRemesasProveedor_Server.pas' {RptRemesasProveedor: TDataModule},
|
||||
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
|
||||
schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
|
||||
uBizRemesasProveedorServer in '..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas',
|
||||
srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDARemoteService},
|
||||
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
|
||||
@ -126,7 +122,11 @@ uses
|
||||
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
|
||||
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_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',
|
||||
schRemesasProveedorClient_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas',
|
||||
schRemesasProveedorServer_Intf in '..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas',
|
||||
schRemesasClienteClient_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas',
|
||||
schRemesasClienteServer_Intf in '..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
Reference in New Issue
Block a user