Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Campo tipo de pago en remesas de cliente y proveedor, además de otros arraglos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@103 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2007-07-18 17:06:04 +00:00
parent af07fc6b6c
commit 799355f951
52 changed files with 1085 additions and 616 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
Database/VISTAS.SQL
View File

@ -44,10 +44,10 @@ DROP VIEW V_ALB_CLI_SITUACION;
DROP VIEW V_PEDIDOS_PROVEEDOR; DROP VIEW V_PEDIDOS_PROVEEDOR;
DROP VIEW V_PED_PROV_SITUACION; DROP VIEW V_PED_PROV_SITUACION;
DROP VIEW V_PED_PROV_PARCIALMENTE; /**/ DROP VIEW V_PED_PROV_PARCIALMENTE;
DROP VIEW V_PED_PROV_RECIBIDOS; /**/ DROP VIEW V_PED_PROV_RECIBIDOS;
DROP VIEW V_PED_PROV_NUM_ARTICULOS; /**/ DROP VIEW V_PED_PROV_NUM_ARTICULOS;
DROP VIEW V_PED_PROV_ARTICULOS_RECIBIDOS2; /**/ DROP VIEW V_PED_PROV_ARTICULOS_RECIBIDOS2;
DROP VIEW V_PED_PROV_ARTICULOS; DROP VIEW V_PED_PROV_ARTICULOS;
DROP VIEW V_PED_PROV_ARTICULOS_AUX; DROP VIEW V_PED_PROV_ARTICULOS_AUX;
@ -646,6 +646,7 @@ CREATE VIEW V_REMESAS_CLIENTE(
ID, ID,
ID_EMPRESA, ID_EMPRESA,
REFERENCIA, REFERENCIA,
TIPO,
FECHA_REMESA, FECHA_REMESA,
DESCRIPCION, DESCRIPCION,
ID_DATOS_BANCO, ID_DATOS_BANCO,
@ -665,6 +666,7 @@ SELECT
REMESAS_CLIENTE.ID, REMESAS_CLIENTE.ID,
REMESAS_CLIENTE.ID_EMPRESA, REMESAS_CLIENTE.ID_EMPRESA,
REMESAS_CLIENTE.REFERENCIA, REMESAS_CLIENTE.REFERENCIA,
REMESAS_CLIENTE.TIPO,
REMESAS_CLIENTE.FECHA_REMESA, REMESAS_CLIENTE.FECHA_REMESA,
REMESAS_CLIENTE.DESCRIPCION, REMESAS_CLIENTE.DESCRIPCION,
REMESAS_CLIENTE.ID_DATOS_BANCO, 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 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 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) 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*/ /*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( CREATE VIEW V_PED_PROV_SITUACION(
ID_PEDIDO, ID_PEDIDO,
SITUACION) SITUACION)
AS AS
/*ANTERIOR A LA VISTA ACTUAL
SELECT ID_PEDIDO, SELECT ID_PEDIDO,
CASE CASE WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) = 0) THEN 'PENDIENTE'
WHEN (HAY_ALBARANES = 0) OR (CANTIDAD_RECIBIDA <= 0) THEN 'PENDIENTE' WHEN (SUM(CANTIDAD_PENDIENTE) <= 0) THEN 'RECIBIDO'
WHEN (CANTIDAD_PENDIENTE <= 0) THEN 'RECIBIDO' WHEN (SUM(CANTIDAD_PENDIENTE) > 0) AND (SUM(CANTIDAD_RECIBIDA) > 0) THEN 'PARCIAL'
ELSE 'PARCIAL' ELSE 'N/A'
END AS SITUACION END AS SITUACION
FROM FROM V_PED_PROV_ARTICULOS
(SELECT V_PED_PROV_ARTICULOS.ID_PEDIDO, GROUP BY 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;
CREATE VIEW V_PEDIDOS_CLIENTE( CREATE VIEW V_PEDIDOS_CLIENTE(
@ -2262,6 +2203,7 @@ CREATE VIEW V_REMESAS_PROVEEDOR(
ID, ID,
ID_EMPRESA, ID_EMPRESA,
REFERENCIA, REFERENCIA,
TIPO,
FECHA_REMESA, FECHA_REMESA,
DESCRIPCION, DESCRIPCION,
ID_DATOS_BANCO, ID_DATOS_BANCO,
@ -2281,6 +2223,7 @@ SELECT
REMESAS_PROVEEDOR.ID, REMESAS_PROVEEDOR.ID,
REMESAS_PROVEEDOR.ID_EMPRESA, REMESAS_PROVEEDOR.ID_EMPRESA,
REMESAS_PROVEEDOR.REFERENCIA, REMESAS_PROVEEDOR.REFERENCIA,
REMESAS_PROVEEDOR.TIPO,
REMESAS_PROVEEDOR.FECHA_REMESA, REMESAS_PROVEEDOR.FECHA_REMESA,
REMESAS_PROVEEDOR.DESCRIPCION, REMESAS_PROVEEDOR.DESCRIPCION,
REMESAS_PROVEEDOR.ID_DATOS_BANCO, 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 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 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) 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*/ /*Vista para ver para quien estan reservados los articulos del inventario*/

11
Source/Modulos/Contactos/Views/uEditorAgente.dfm
View File

@ -1,7 +1,6 @@
inherited fEditorAgente: TfEditorAgente inherited fEditorAgente: TfEditorAgente
Caption = 'fEditorAgente' Caption = 'fEditorAgente'
ClientHeight = 498 ClientHeight = 498
ExplicitWidth = 320
ExplicitHeight = 532 ExplicitHeight = 532
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
@ -47,12 +46,8 @@ inherited fEditorAgente: TfEditorAgente
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Height = 403 Height = 403
ActivePage = pagDatosBancarios
ExplicitHeight = 403 ExplicitHeight = 403
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 375 ExplicitHeight = 375
inline frViewAgente1: TfrViewAgente inline frViewAgente1: TfrViewAgente
Left = 0 Left = 0
@ -265,15 +260,9 @@ inherited fEditorAgente: TfEditorAgente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 624 Width = 624
ExplicitWidth = 624 ExplicitWidth = 624
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton inherited ToolButton4: TToolButton
ExplicitWidth = 74 ExplicitWidth = 74
end end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
ExplicitWidth = 117 ExplicitWidth = 117
end end

36
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -52,7 +52,7 @@ inherited fEditorCliente: TfEditorCliente
Width = 656 Width = 656
ExplicitWidth = 656 ExplicitWidth = 656
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 440 ExplicitWidth = 446
object TBXItem7: TTBXItem [7] object TBXItem7: TTBXItem [7]
Action = actGruposCliente Action = actGruposCliente
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -65,12 +65,10 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 656 Width = 656
Height = 490 Height = 490
ActivePage = pagDatosComerciales ActivePage = pagDatosBancarios
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 490 ExplicitHeight = 490
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 648 ExplicitWidth = 648
ExplicitHeight = 462 ExplicitHeight = 462
inline frViewCliente1: TfrViewCliente inline frViewCliente1: TfrViewCliente
@ -185,6 +183,14 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 429
Top = 315
ExplicitLeft = 429
ExplicitTop = 315
ExplicitWidth = 275
Width = 275
end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 524 Left = 524
Top = 30 Top = 30
@ -232,14 +238,6 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 429
Top = 315
ExplicitLeft = 429
ExplicitTop = 315
ExplicitWidth = 275
Width = 275
end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 524 Left = 524
Top = 190 Top = 190
@ -282,9 +280,23 @@ inherited fEditorCliente: TfEditorCliente
Width = 648 Width = 648
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 648 ExplicitWidth = 648
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 418 Left = 418
ExplicitLeft = 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 end
end end

21
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -7,7 +7,6 @@ inherited fEditorContacto: TfEditorContacto
ClientWidth = 632 ClientWidth = 632
Scaled = False Scaled = False
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -23,7 +22,7 @@ inherited fEditorContacto: TfEditorContacto
Width = 632 Width = 632
ExplicitWidth = 632 ExplicitWidth = 632
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 324 ExplicitWidth = 330
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -77,10 +76,10 @@ inherited fEditorContacto: TfEditorContacto
Width = 632 Width = 632
ExplicitWidth = 632 ExplicitWidth = 632
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 0 ExplicitLeft = 4
ExplicitTop = 0 ExplicitTop = 24
ExplicitWidth = 624 ExplicitWidth = 624
ExplicitHeight = 0 ExplicitHeight = 338
end end
object pagDatosBancarios: TTabSheet object pagDatosBancarios: TTabSheet
Caption = 'Datos bancarios' Caption = 'Datos bancarios'
@ -108,22 +107,16 @@ inherited fEditorContacto: TfEditorContacto
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
Top = 57 Top = 57
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 114
Width = 114
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 405 Left = 406
Top = 57 Top = 57
ExplicitLeft = 405 ExplicitLeft = 406
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 112
Width = 112
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Top = 84 Top = 84
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 194
Width = 194
end end
inherited eDC: TcxDBTextEdit inherited eDC: TcxDBTextEdit
Top = 84 Top = 84
@ -132,8 +125,6 @@ inherited fEditorContacto: TfEditorContacto
inherited eTitular: TcxDBTextEdit inherited eTitular: TcxDBTextEdit
Top = 30 Top = 30
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 194
Width = 194
end end
end end
end end

15
Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.dfm
View File

@ -60,7 +60,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitTop = 335 ExplicitTop = 334
ExplicitWidth = 599 ExplicitWidth = 599
inherited JvFooter1: TJvFooter inherited JvFooter1: TJvFooter
Width = 599 Width = 599
@ -95,6 +95,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Margins.Bottom = 0 Margins.Bottom = 0
AllowDelete = False AllowDelete = False
AllowInsert = False AllowInsert = False
Color = clBtnFace
DataSource = dsDirecciones DataSource = dsDirecciones
PanelHeight = 87 PanelHeight = 87
PanelWidth = 566 PanelWidth = 566
@ -116,6 +117,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Transparent = True Transparent = True
OnDblClick = ComponenteDblClick
end end
object ePoblacion: TDBText object ePoblacion: TDBText
Left = 70 Left = 70
@ -131,6 +133,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Transparent = True Transparent = True
OnDblClick = ComponenteDblClick
end end
object eTelefono: TDBText object eTelefono: TDBText
Left = 423 Left = 423
@ -146,6 +149,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Transparent = True Transparent = True
OnDblClick = ComponenteDblClick
end end
object eProvincia: TDBText object eProvincia: TDBText
Left = 423 Left = 423
@ -161,6 +165,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Transparent = True Transparent = True
OnDblClick = ComponenteDblClick
end end
object ePersonaContacto: TDBText object ePersonaContacto: TDBText
Left = 124 Left = 124
@ -176,6 +181,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Transparent = True Transparent = True
OnDblClick = ComponenteDblClick
end end
object eNombre: TDBText object eNombre: TDBText
Left = 8 Left = 8
@ -191,6 +197,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Transparent = True Transparent = True
OnDblClick = ComponenteDblClick
end end
object eCodigoPostal: TDBText object eCodigoPostal: TDBText
Left = 353 Left = 353
@ -206,6 +213,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Transparent = True Transparent = True
OnDblClick = ComponenteDblClick
end end
object Label1: TLabel object Label1: TLabel
Left = 15 Left = 15
@ -213,6 +221,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Width = 27 Width = 27
Height = 13 Height = 13
Caption = 'Calle:' Caption = 'Calle:'
OnDblClick = ComponenteDblClick
end end
object Label2: TLabel object Label2: TLabel
Left = 15 Left = 15
@ -220,6 +229,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Width = 49 Width = 49
Height = 13 Height = 13
Caption = 'Poblaci'#243'n:' Caption = 'Poblaci'#243'n:'
OnDblClick = ComponenteDblClick
end end
object Label3: TLabel object Label3: TLabel
Left = 447 Left = 447
@ -227,6 +237,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Width = 30 Width = 30
Height = 13 Height = 13
Caption = 'Porte:' Caption = 'Porte:'
OnDblClick = ComponenteDblClick
end end
object ePorte: TDBText object ePorte: TDBText
Left = 483 Left = 483
@ -242,6 +253,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Transparent = True Transparent = True
OnDblClick = ComponenteDblClick
end end
object Label4: TLabel object Label4: TLabel
Left = 15 Left = 15
@ -249,6 +261,7 @@ object fEditorElegirDireccionEntrega: TfEditorElegirDireccionEntrega
Width = 103 Width = 103
Height = 13 Height = 13
Caption = 'Persona de contacto:' Caption = 'Persona de contacto:'
OnDblClick = ComponenteDblClick
end end
end end
object dsDirecciones: TDADataSource object dsDirecciones: TDADataSource

6
Source/Modulos/Contactos/Views/uEditorElegirDireccionEntrega.pas
View File

@ -30,6 +30,7 @@ type
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject); procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject); procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure DBCtrlGrid1DblClick(Sender: TObject); procedure DBCtrlGrid1DblClick(Sender: TObject);
procedure ComponenteDblClick(Sender: TObject);
protected protected
FDirecciones: IBizDireccionesContacto; FDirecciones: IBizDireccionesContacto;
@ -60,6 +61,11 @@ begin
frViewBarraSeleccion1.actSeleccionar.Execute; frViewBarraSeleccion1.actSeleccionar.Execute;
end; end;
procedure TfEditorElegirDireccionEntrega.ComponenteDblClick(Sender: TObject);
begin
DBCtrlGrid1DblClick(Sender);
end;
procedure TfEditorElegirDireccionEntrega.frViewBarraSeleccion1actCancelarExecute( procedure TfEditorElegirDireccionEntrega.frViewBarraSeleccion1actCancelarExecute(
Sender: TObject); Sender: TObject);
begin begin

28
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -1,7 +1,6 @@
inherited fEditorProveedor: TfEditorProveedor inherited fEditorProveedor: TfEditorProveedor
Caption = 'fEditorProveedor' Caption = 'fEditorProveedor'
ClientHeight = 548 ClientHeight = 548
ExplicitWidth = 320
ExplicitHeight = 582 ExplicitHeight = 582
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
@ -44,9 +43,6 @@ inherited fEditorProveedor: TfEditorProveedor
Height = 453 Height = 453
ExplicitHeight = 453 ExplicitHeight = 453
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 425 ExplicitHeight = 425
inline frViewProveedor1: TfrViewProveedor inline frViewProveedor1: TfrViewProveedor
Left = 0 Left = 0
@ -136,6 +132,14 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 368
Top = 270
ExplicitLeft = 368
ExplicitTop = 270
ExplicitWidth = 310
Width = 310
end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 463 Left = 463
Top = 30 Top = 30
@ -183,14 +187,6 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
end end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 368
Top = 270
ExplicitLeft = 368
ExplicitTop = 270
ExplicitWidth = 310
Width = 310
end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 463 Left = 463
Top = 190 Top = 190
@ -224,13 +220,9 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitHeight = 425 ExplicitHeight = 425
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 144
Width = 144
end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
ExplicitWidth = 139 ExplicitWidth = 177
Width = 139 Width = 177
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 242 ExplicitWidth = 242

12
Source/Modulos/Contactos/Views/uViewContactoDatosBancarios.dfm
View File

@ -13,7 +13,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
object eEntidad: TcxDBTextEdit object eEntidad: TcxDBTextEdit
Left = 116 Left = 117
Top = 55 Top = 55
DataBinding.DataField = 'ENTIDAD' DataBinding.DataField = 'ENTIDAD'
DataBinding.DataSource = dsDatosBancarios DataBinding.DataSource = dsDatosBancarios
@ -32,7 +32,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 114 Width = 114
end end
object eSucursal: TcxDBTextEdit object eSucursal: TcxDBTextEdit
Left = 340 Left = 341
Top = 55 Top = 55
DataBinding.DataField = 'SUCURSAL' DataBinding.DataField = 'SUCURSAL'
DataBinding.DataSource = dsDatosBancarios DataBinding.DataSource = dsDatosBancarios
@ -51,7 +51,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 112 Width = 112
end end
object eCuenta: TcxDBTextEdit object eCuenta: TcxDBTextEdit
Left = 237 Left = 238
Top = 82 Top = 82
DataBinding.DataField = 'CUENTA' DataBinding.DataField = 'CUENTA'
DataBinding.DataSource = dsDatosBancarios DataBinding.DataSource = dsDatosBancarios
@ -70,7 +70,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 194 Width = 194
end end
object eDC: TcxDBTextEdit object eDC: TcxDBTextEdit
Left = 116 Left = 117
Top = 82 Top = 82
DataBinding.DataField = 'DC' DataBinding.DataField = 'DC'
DataBinding.DataSource = dsDatosBancarios DataBinding.DataSource = dsDatosBancarios
@ -89,7 +89,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
Width = 47 Width = 47
end end
object eTitular: TcxDBTextEdit object eTitular: TcxDBTextEdit
Left = 116 Left = 117
Top = 28 Top = 28
DataBinding.DataField = 'TITULAR' DataBinding.DataField = 'TITULAR'
DataBinding.DataSource = dsDatosBancarios DataBinding.DataSource = dsDatosBancarios
@ -114,7 +114,7 @@ inherited frViewClienteDatosBancarios: TfrViewClienteDatosBancarios
object dxLayoutControl1Group3: TdxLayoutGroup object dxLayoutControl1Group3: TdxLayoutGroup
Caption = 'Datos bancarios' Caption = 'Datos bancarios'
object dxLayoutControl1Item5: TdxLayoutItem object dxLayoutControl1Item5: TdxLayoutItem
Caption = 'Nombre del titular:' Caption = 'Nombre del banco:'
Control = eTitular Control = eTitular
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end

19
Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
View File

@ -9,6 +9,9 @@ uses
const const
BIZ_SERVER_FACTURAS_CLIENTE = 'Server.FacturasCliente'; BIZ_SERVER_FACTURAS_CLIENTE = 'Server.FacturasCliente';
REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE'; REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE';
REF_ABONOS_CLIENTE = 'REF_ABONOS_CLIENTE';
CTE_TIPO_ABONO = 'A';
CTE_TIPO_FACTURA = 'F';
type type
TBizFacturasClienteServer = class(TFacturasClienteBusinessProcessorRules) TBizFacturasClienteServer = class(TFacturasClienteBusinessProcessorRules)
@ -34,6 +37,7 @@ var
ACurrentConn : IDAConnection; ACurrentConn : IDAConnection;
dsData: IDADataset; dsData: IDADataset;
Empresa : Variant; Empresa : Variant;
Tipo : Variant;
begin begin
inherited; inherited;
@ -49,8 +53,13 @@ begin
try try
//Siempre va a estar rellena //Siempre va a estar rellena
Empresa := aChange.NewValueByName[fld_FacturasClienteID_EMPRESA]; 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 except
RaiseError('No existe la tabla REFERENCIAS'); RaiseError('No existe la tabla REFERENCIAS');
end; end;
@ -58,12 +67,16 @@ begin
dsData.Active := True; dsData.Active := True;
if dsData.IsEmpty then 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; REFERENCIA := dsData.FieldByName('VALOR').AsString;
try 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 except
RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla'); RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
end; end;

4
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
View File

@ -36,7 +36,7 @@ type
protected protected
{ IsrvFacturasCliente methods } { IsrvFacturasCliente methods }
function GetNextAutoInc(const GeneratorName: String): Integer; function GetNextAutoInc(const GeneratorName: String): Integer;
function GenerateReport(const FacturaID: Integer): Binary; function GenerateReport(const FacturaID: Integer): Binary;
end; end;
implementation implementation
@ -75,7 +75,7 @@ end;
procedure TsrvFacturasCliente.DARemoteServiceCreate(Sender: TObject); procedure TsrvFacturasCliente.DARemoteServiceCreate(Sender: TObject);
begin begin
SessionManager := dmServer.SessionManager; SessionManager := dmServer.SessionManager;
bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE; bpFacturasCliente.BusinessRulesID := BIZ_SERVER_FACTURAS_CLIENTE;
end; end;
function TsrvFacturasCliente.GenerateReport(const FacturaID: Integer): Binary; function TsrvFacturasCliente.GenerateReport(const FacturaID: Integer): Binary;

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

@ -38,7 +38,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Width = 640 Width = 640
ExplicitWidth = 640 ExplicitWidth = 640
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 623 ExplicitWidth = 632
object TBXSubmenuItem2: TTBXSubmenuItem [0] object TBXSubmenuItem2: TTBXSubmenuItem [0]
Caption = 'Nuevo' Caption = 'Nuevo'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -90,24 +90,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 417 ExplicitHeight = 417
inherited cxGridView: TcxGridDBTableView 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
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
@ -121,9 +103,19 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 636 Width = 636
ExplicitWidth = 636 ExplicitWidth = 636
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 393 Left = 393
ExplicitLeft = 393 ExplicitLeft = 393
ExplicitWidth = 121
Width = 121
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

32
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas
View File

@ -110,17 +110,17 @@ begin
else else
Opcion := 100; Opcion := 100;
case Opcion of case Opcion of
200 : begin // Utilizar factura seleccionada 200 : begin // Utilizar factura seleccionada
FController.Ver(FController.GenerarAbono(Facturas)); FController.Ver(FController.GenerarAbono(Facturas));
actRefrescar.Execute; actRefrescar.Execute;
ViewGrid._FocusedView.DataController.GotoFirst; ViewGrid._FocusedView.DataController.GotoFirst;
end;
100 : begin // Abono nuevo vacio
if FController.AnadirAbono(Facturas) then
FController.Ver(Facturas);
end;
end; end;
100 : begin // Abono nuevo vacio
if FController.AnadirAbono(Facturas) then
FController.Ver(Facturas);
end;
end;
end; end;
constructor TfEditorFacturasCliente.Create(AOwner: TComponent); constructor TfEditorFacturasCliente.Create(AOwner: TComponent);
@ -153,11 +153,11 @@ var
ACadena : String; ACadena : String;
begin begin
if Facturas.TIPO = CTE_TIPO_FACTURA then if Facturas.TIPO = CTE_TIPO_FACTURA then
ACadena := '¿Desea borrar esta factura de cliente?' ACadena := '¿Desea borrar esta factura de cliente?'
else 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 begin
FController.Eliminar(Facturas); FController.Eliminar(Facturas);
inherited; inherited;
@ -192,7 +192,7 @@ procedure TfEditorFacturasCliente.ImprimirInterno;
var var
Respuesta : Integer; Respuesta : Integer;
begin 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 if not ViewGrid.esSeleccionCeldaDatos then
inherited inherited
else else
@ -241,7 +241,7 @@ begin
try try
APedido := FPedidosClienteController.ElegirPedidos(FPedidosClienteController.BuscarPendientes, APedido := FPedidosClienteController.ElegirPedidos(FPedidosClienteController.BuscarPendientes,
'Elija el pedido de cliente que desea utilizar para dar de alta la factura.' '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 if Assigned(APedido) then
begin begin
if FController.Anadir(Facturas, APedido) then if FController.Anadir(Facturas, APedido) then
@ -275,7 +275,7 @@ procedure TfEditorFacturasCliente.PrevisualizarInterno;
var var
Respuesta : Integer; Respuesta : Integer;
begin 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 if not ViewGrid.esSeleccionCeldaDatos then
inherited inherited
else else

20
Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
View File

@ -9,6 +9,10 @@ uses
const const
BIZ_SERVER_FACTURAS_PROVEEDOR = 'Server.FacturasProveedor'; BIZ_SERVER_FACTURAS_PROVEEDOR = 'Server.FacturasProveedor';
REF_FACTURAS_PROVEEDOR = 'REF_FACTURAS_PROVEEDOR'; REF_FACTURAS_PROVEEDOR = 'REF_FACTURAS_PROVEEDOR';
REF_ABONOS_PROVEEDOR = 'REF_ABONOS_PROVEEDOR';
CTE_TIPO_ABONO = 'A';
CTE_TIPO_FACTURA = 'F';
type type
TBizFacturasProveedorServer = class(TFacturasProveedorBusinessProcessorRules) TBizFacturasProveedorServer = class(TFacturasProveedorBusinessProcessorRules)
@ -34,6 +38,7 @@ var
ACurrentConn : IDAConnection; ACurrentConn : IDAConnection;
dsData: IDADataset; dsData: IDADataset;
Empresa : Variant; Empresa : Variant;
Tipo : Variant;
begin begin
inherited; inherited;
@ -49,8 +54,13 @@ begin
try try
//Siempre va a estar rellena //Siempre va a estar rellena
Empresa := aChange.NewValueByName[fld_FacturasProveedorID_EMPRESA]; 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 except
RaiseError('No existe la tabla REFERENCIAS'); RaiseError('No existe la tabla REFERENCIAS');
end; end;
@ -58,12 +68,16 @@ begin
dsData.Active := True; dsData.Active := True;
if dsData.IsEmpty then 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; REFERENCIA := dsData.FieldByName('VALOR').AsString;
try 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 except
RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla'); RaiseError('Error al asignar la nueva ' + REFERENCIA + ' referencia en tabla');
end; end;

40
Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
View File

@ -103,21 +103,31 @@ object RptPedidosProveedor: TRptPedidosProveedor
SQL = SQL =
'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' + 'SELECT'#10' V_PEDIDOS_PROVEEDOR.ID,'#10' V_PEDIDOS_PROVEEDOR.ID_EMPRES' +
'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' + 'A,'#10' V_PEDIDOS_PROVEEDOR.REFERENCIA,'#10' V_PEDIDOS_PROVEEDOR.FECHA' +
'_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PEDIDOS_PROVEE' + '_PEDIDO,'#10' V_PEDIDOS_PROVEEDOR.OBSERVACIONES,'#10' V_PROVEEDORES.NO' +
'DOR.CALLE,'#10' V_PEDIDOS_PROVEEDOR.POBLACION,'#10' V_PEDIDOS_PROVEEDO' + 'MBRE,'#10' ALMACENES.NOMBRE AS NOMBRE_ALMACEN,'#10#10' CASE WHEN (ALMACE' +
'R.PROVINCIA,'#10' V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL,'#10' V_PEDIDOS_PR' + 'NES.ID > 0)'#10' THEN ALMACENES.CALLE'#10' ELSE V_' +
'OVEEDOR.PERSONA_CONTACTO,'#10' V_PEDIDOS_PROVEEDOR.TELEFONO,'#10' V_PR' + 'PEDIDOS_PROVEEDOR.CALLE'#10' END as CALLE,'#10#10' CASE WHEN (ALMACENES.' +
'OVEEDORES.NOMBRE,'#10' ALMACENES.NOMBRE AS NOMBRE_ALMACEN,'#10' EMPRES' + 'ID > 0)'#10' THEN ALMACENES.POBLACION'#10' ELSE V_' +
'AS.NIF_CIF AS NIF_CIF_EMPRESA,'#10' EMPRESAS.NOMBRE AS NOMBRE_EMPRE' + 'PEDIDOS_PROVEEDOR.POBLACION'#10' END as POBLACION,'#10#10' CASE WHEN (AL' +
'SA,'#10' EMPRESAS.RAZON_SOCIAL AS RAZON_SOCIAL_EMPRESA,'#10' EMPRESAS.' + 'MACENES.ID > 0)'#10' THEN ALMACENES.PROVINCIA'#10' ' +
'TELEFONO_1 AS TELEFONO_1_EMPRESA,'#10' EMPRESAS.FAX AS FAX_EMPRESA,' + ' ELSE V_PEDIDOS_PROVEEDOR.PROVINCIA'#10' END as PROVINCIA,'#10#10' CASE ' +
#10' EMPRESAS.MOVIL_1 AS MOVIL_1_EMPRESA,'#10' EMPRESAS.EMAIL_1 AS EM' + 'WHEN (ALMACENES.ID > 0)'#10' THEN ALMACENES.CODIGO_POSTAL' +
'AIL_1_EMPRESA,'#10' EMPRESAS.PAGINA_WEB AS PAGINA_WEB_EMPRESA'#10'FROM'#10 + #10' ELSE V_PEDIDOS_PROVEEDOR.CODIGO_POSTAL'#10' END as COD' +
' V_PEDIDOS_PROVEEDOR'#10' LEFT OUTER JOIN V_PROVEEDORES ON (V_PROV' + 'IGO_POSTAL,'#10#10' CASE WHEN (ALMACENES.ID > 0)'#10' THEN ALM' +
'EEDORES.ID = V_PEDIDOS_PROVEEDOR.ID_PROVEEDOR)'#10' LEFT OUTER JOIN' + 'ACENES.PERSONA_CONTACTO'#10' ELSE V_PEDIDOS_PROVEEDOR.PER' +
' ALMACENES ON (ALMACENES.ID = V_PEDIDOS_PROVEEDOR.ID_ALMACEN)'#10' ' + 'SONA_CONTACTO'#10' END as PERSONA_CONTACTO,'#10#10' CASE WHEN (ALMACENES' +
'LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.ID = V_PEDIDOS_PROVEEDOR.I' + '.ID > 0)'#10' THEN ALMACENES.TELEFONO'#10' ELSE V_' +
'D_EMPRESA)'#10'WHERE V_PEDIDOS_PROVEEDOR.ID = :ID' '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 StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item

2
Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas
View File

@ -25,9 +25,9 @@ type
frxChartObject1: TfrxChartObject; frxChartObject1: TfrxChartObject;
frxDBCabecera: TfrxDBDataset; frxDBCabecera: TfrxDBDataset;
frxDBDetalles: TfrxDBDataset; frxDBDetalles: TfrxDBDataset;
frxReport: TfrxReport;
schReport: TDASchema; schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
frxReport: TfrxReport;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;

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

@ -46,7 +46,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Width = 765 Width = 765
ExplicitWidth = 765 ExplicitWidth = 765
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 482 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -64,7 +64,6 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 765 Width = 765
Height = 476 Height = 476
ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 765 ExplicitWidth = 765

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

@ -66,6 +66,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
ExplicitWidth = 71 ExplicitWidth = 71
Width = 71 Width = 71
end end
inherited Button1: TBitBtn
OnClick = frViewProveedorPedidoButton1Click
end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 135 Left = 135
ExplicitLeft = 135 ExplicitLeft = 135

6
Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.dfm
View File

@ -129,7 +129,7 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
Width = 632 Width = 632
ExplicitWidth = 632 ExplicitWidth = 632
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 482 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -200,10 +200,6 @@ inherited fEditorPedidoCliente: TfEditorPedidoCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0

3
Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.dfm
View File

@ -124,6 +124,9 @@ inherited frViewPedidoCliente: TfrViewPedidoCliente
Left = 204 Left = 204
ExplicitLeft = 204 ExplicitLeft = 204
end end
inherited Button1: TBitBtn
OnClick = frViewClientePedidoButton1Click
end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 94 Left = 94
ExplicitLeft = 94 ExplicitLeft = 94

12
Source/Modulos/Pedidos de cliente/Views/uViewPedidoCliente.pas
View File

@ -76,6 +76,7 @@ type
procedure actElegirDireccionExecute(Sender: TObject); procedure actElegirDireccionExecute(Sender: TObject);
procedure actElegirDireccionUpdate(Sender: TObject); procedure actElegirDireccionUpdate(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure frViewClientePedidoButton1Click(Sender: TObject);
protected protected
FPedido : IBizPedidoCliente; FPedido : IBizPedidoCliente;
FViewClientePedido : TfrViewDatosYSeleccionCliente; FViewClientePedido : TfrViewDatosYSeleccionCliente;
@ -159,6 +160,17 @@ begin
inherited; inherited;
end; 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; function TfrViewPedidoCliente.GetPedido: IBizPedidoCliente;
begin begin
Result := FPedido; Result := FPedido;

67
Source/Modulos/Recibos de cliente/Views/uEditorElegirRecibosCliente.dfm
View File

@ -1,14 +1,14 @@
inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
Caption = 'Seleccionar recibos de cliente' Caption = 'Seleccionar recibos de cliente'
ClientWidth = 654 ClientWidth = 670
ExplicitTop = -94 ExplicitLeft = -52
ExplicitWidth = 662 ExplicitWidth = 678
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0] object JvgWizardHeader1: TJvgWizardHeader [0]
Left = 0 Left = 0
Top = 0 Top = 0
Width = 654 Width = 670
Height = 60 Height = 60
CaptionFont.Charset = DEFAULT_CHARSET CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText CaptionFont.Color = clWindowText
@ -40,18 +40,18 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
end end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Top = 144 Top = 144
Width = 654 Width = 670
Visible = False Visible = False
ExplicitTop = 144 ExplicitTop = 144
ExplicitWidth = 654 ExplicitWidth = 654
inherited Image1: TImage inherited Image1: TImage
Left = 627 Left = 643
ExplicitLeft = 629 ExplicitLeft = 629
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Top = 171 Top = 171
Width = 654 Width = 670
ExplicitTop = 171 ExplicitTop = 171
ExplicitWidth = 654 ExplicitWidth = 654
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
@ -79,7 +79,7 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 654 ExplicitWidth = 670
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 334 Left = 334
@ -88,14 +88,14 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 506 Top = 506
Width = 654 Width = 670
ExplicitTop = 506 ExplicitTop = 506
ExplicitWidth = 654 ExplicitWidth = 654
end end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
Left = 0 Left = 0
Top = 525 Top = 525
Width = 654 Width = 670
Height = 36 Height = 36
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -110,20 +110,20 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 36 ExplicitHeight = 36
inherited JvFooter1: TJvFooter inherited JvFooter1: TJvFooter
Width = 654 Width = 670
Height = 36 Height = 36
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 36 ExplicitHeight = 36
inherited bSeleccionar: TJvFooterBtn inherited bSeleccionar: TJvFooterBtn
Left = 442 Left = 458
Top = 3 Top = 3
ExplicitLeft = 444 ExplicitLeft = 444
ExplicitTop = 3 ExplicitTop = 3
end end
inherited bCancelar: TJvFooterBtn inherited bCancelar: TJvFooterBtn
Left = 546 Left = 562
Top = 4 Top = 4
ExplicitLeft = 546 ExplicitLeft = 562
ExplicitTop = 4 ExplicitTop = 4
end end
end end
@ -139,13 +139,13 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
end end
inherited frViewRecibosCliente1: TfrViewRecibosCliente [5] inherited frViewRecibosCliente1: TfrViewRecibosCliente [5]
Top = 246 Top = 246
Width = 654 Width = 670
Height = 260 Height = 260
ExplicitTop = 246 ExplicitTop = 246
ExplicitWidth = 654 ExplicitWidth = 654
ExplicitHeight = 260 ExplicitHeight = 260
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 654 Width = 670
Height = 132 Height = 132
RootLevelOptions.DetailTabsPosition = dtpNone RootLevelOptions.DetailTabsPosition = dtpNone
ExplicitWidth = 654 ExplicitWidth = 654
@ -170,15 +170,15 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 654 Width = 670
ExplicitWidth = 654 ExplicitWidth = 654
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 654 Width = 670
ExplicitWidth = 654 ExplicitWidth = 654
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 654 ExplicitWidth = 670
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 650 Width = 666
ExplicitWidth = 650 ExplicitWidth = 650
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 393 ExplicitWidth = 393
@ -189,17 +189,17 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
Width = 199 Width = 199
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 466 Left = 486
ExplicitLeft = 466 ExplicitLeft = 486
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 650 Width = 666
ExplicitWidth = 650 ExplicitWidth = 650
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 640 Width = 656
ExplicitWidth = 640 ExplicitWidth = 640
end end
end end
@ -211,10 +211,10 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
ExplicitTop = 234 ExplicitTop = 234
ExplicitWidth = 654 ExplicitWidth = 654
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 654 Width = 670
ExplicitWidth = 654 ExplicitWidth = 654
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 644 Width = 660
ExplicitWidth = 644 ExplicitWidth = 644
end end
end end
@ -253,15 +253,16 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
ShowCaptionWhenDocked = False ShowCaptionWhenDocked = False
SupportedDocks = [dkStandardDock, dkMultiDock] SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 5 TabOrder = 5
ExplicitWidth = 654
object Label1: TLabel object Label1: TLabel
Left = 296 Left = 330
Top = 50 Top = 50
Width = 17 Width = 17
Height = 13 Height = 13
Caption = 'y el' Caption = 'y el'
end end
object txtFiltroTodo: TcxTextEdit object txtFiltroTodo: TcxTextEdit
Left = 168 Left = 202
Top = 16 Top = 16
Properties.OnChange = txtFiltroTodoPropertiesChange Properties.OnChange = txtFiltroTodoPropertiesChange
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
@ -276,7 +277,7 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
Width = 273 Width = 273
end end
object edtFechaFiltro1: TcxDateEdit object edtFechaFiltro1: TcxDateEdit
Left = 168 Left = 202
Top = 46 Top = 46
Enabled = False Enabled = False
Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
@ -292,7 +293,7 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
Width = 121 Width = 121
end end
object edtFechaFiltro2: TcxDateEdit object edtFechaFiltro2: TcxDateEdit
Left = 320 Left = 354
Top = 46 Top = 46
Enabled = False Enabled = False
Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
@ -323,16 +324,16 @@ inherited fEditorElegirRecibosCliente: TfEditorElegirRecibosCliente
object rbFechas: TcxRadioButton object rbFechas: TcxRadioButton
Left = 16 Left = 16
Top = 48 Top = 48
Width = 145 Width = 174
Height = 17 Height = 17
Caption = 'Recibos con fechas entre:' Caption = 'Recibos con vencimiento entre:'
TabOrder = 4 TabOrder = 4
OnClick = rbTodoClick OnClick = rbTodoClick
LookAndFeel.Kind = lfStandard LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
end end
object Button1: TBitBtn object Button1: TBitBtn
Left = 470 Left = 504
Top = 43 Top = 43
Width = 163 Width = 163
Height = 25 Height = 25

28
Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm
View File

@ -76,22 +76,6 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
ExplicitWidth = 645 ExplicitWidth = 645
ExplicitHeight = 312 ExplicitHeight = 312
inherited cxGridView: TcxGridDBTableView 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
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
@ -105,15 +89,9 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 641 Width = 641
ExplicitWidth = 641 ExplicitWidth = 641
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 199
Width = 199
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 460 Left = 468
ExplicitLeft = 460 ExplicitLeft = 468
ExplicitWidth = 121
Width = 121
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@ -142,7 +120,7 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 39211.776488344910000000 ReportDocument.CreationDate = 39211.776488344920000000
BuiltInReportLink = True BuiltInReportLink = True
end end
end end

20
Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas
View File

@ -1,18 +1,18 @@
{ {
=============================================================================== ===============================================================================
Copyright (©) 2007. Rodax Software. Copyright (©) 2007. Rodax Software.
=============================================================================== ===============================================================================
Los contenidos de este fichero son propiedad de Rodax Software titular del 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 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. bajo el que se suministra.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
Web: www.rodax-software.com Web: www.rodax-software.com
=============================================================================== ===============================================================================
Fecha primera versión: Fecha primera versión:
Versión actual: 1.0.0 Versión actual: 1.0.0
Fecha versión actual: Fecha versión actual:
=============================================================================== ===============================================================================
Modificaciones: Modificaciones:
@ -113,7 +113,7 @@ begin
raise Exception.Create('No hay ninguna vista asignada'); raise Exception.Create('No hay ninguna vista asignada');
if not Assigned(FRecibosCliente) then 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; FRecibosCliente.DataTable.Active := True;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
@ -133,7 +133,7 @@ procedure TfEditorRecibosCliente.ImprimirInterno;
var var
Respuesta : Integer; Respuesta : Integer;
begin 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 if not ViewGrid.esSeleccionCeldaDatos then
inherited inherited
else else
@ -163,7 +163,7 @@ end;
procedure TfEditorRecibosCliente.NuevoInterno; procedure TfEditorRecibosCliente.NuevoInterno;
begin begin
// inherited; // inherited;
//No se pueden añadir recibos nuevos //No se pueden añadir recibos nuevos
end; end;
procedure TfEditorRecibosCliente.PonerTitulos(const ATitulo: string); procedure TfEditorRecibosCliente.PonerTitulos(const ATitulo: string);
@ -178,7 +178,7 @@ procedure TfEditorRecibosCliente.PrevisualizarInterno;
var var
Respuesta : Integer; Respuesta : Integer;
begin 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 if not ViewGrid.esSeleccionCeldaDatos then
inherited inherited
else else

30
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.dfm
View File

@ -30,6 +30,16 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
Format = '0 recibos' Format = '0 recibos'
Kind = skCount Kind = skCount
Column = cxGridViewREFERENCIA 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> end>
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
@ -97,6 +107,9 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
object cxGridViewIMPORTE: TcxGridDBColumn object cxGridViewIMPORTE: TcxGridDBColumn
Caption = 'Importe' Caption = 'Importe'
DataBinding.FieldName = 'IMPORTE' DataBinding.FieldName = 'IMPORTE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 56 Width = 56
end end
@ -146,26 +159,29 @@ inherited frViewRecibosCliente: TfrViewRecibosCliente
ExplicitWidth = 531 ExplicitWidth = 531
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 527 Width = 527
ExplicitWidth = 527
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Left = 124 Left = 146
ExplicitLeft = 124 ExplicitLeft = 146
ExplicitWidth = 393 ExplicitWidth = 393
Width = 393 Width = 393
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
Left = 124 Left = 146
ExplicitLeft = 124 ExplicitLeft = 146
ExplicitWidth = 199 ExplicitWidth = 199
Width = 199 Width = 199
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 327 Left = 386
ExplicitLeft = 327 ExplicitLeft = 386
ExplicitWidth = 121
Width = 121
end end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Item2: TdxLayoutItem inherited dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Emision entre la fecha:' Caption = 'Vencimiento entre la fecha:'
end end
end end
end end

6
Source/Modulos/Recibos de cliente/Views/uViewRecibosCliente.pas
View File

@ -84,7 +84,7 @@ type
implementation implementation
uses uses
uDataModuleRecibosCliente, DateUtils; schRecibosClienteClient_Intf, uDataModuleRecibosCliente, DateUtils;
{$R *.dfm} {$R *.dfm}
@ -125,7 +125,7 @@ begin
cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare]; cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
FFiltro := AddFilterGrid(fboAnd); 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)); FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
end; end;
end; end;
@ -258,7 +258,7 @@ begin
if not VarIsNull(Fecha1) if not VarIsNull(Fecha1)
and not VarIsNull(Fecha2) then and not VarIsNull(Fecha2) then
begin 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)); Root.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
Active := True; Active := True;
end end

37
Source/Modulos/Recibos de proveedor/Views/uEditorElegirRecibosProveedor.dfm
View File

@ -180,7 +180,17 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 650 Width = 650
ExplicitWidth = 650 ExplicitWidth = 650
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 494
Width = 494
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 140
Width = 140
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 314
ExplicitLeft = 314
ExplicitWidth = 314 ExplicitWidth = 314
Width = 314 Width = 314
end end
@ -190,6 +200,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
ExplicitWidth = 650 ExplicitWidth = 650
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 640 Width = 640
ExplicitWidth = 640
end end
end end
end end
@ -198,8 +209,14 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 337 Top = 337
ExplicitTop = 337 ExplicitTop = 337
ExplicitWidth = 654
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 654 Width = 654
ExplicitWidth = 654
inherited TBXToolbar1: TTBXToolbar
Width = 644
ExplicitWidth = 644
end
end end
end end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
@ -237,14 +254,14 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
SupportedDocks = [dkStandardDock, dkMultiDock] SupportedDocks = [dkStandardDock, dkMultiDock]
TabOrder = 5 TabOrder = 5
object Label1: TLabel object Label1: TLabel
Left = 296 Left = 329
Top = 50 Top = 50
Width = 17 Width = 17
Height = 13 Height = 13
Caption = 'y el' Caption = 'y el'
end end
object txtFiltroTodo: TcxTextEdit object txtFiltroTodo: TcxTextEdit
Left = 168 Left = 201
Top = 16 Top = 16
Properties.OnChange = txtFiltroTodoPropertiesChange Properties.OnChange = txtFiltroTodoPropertiesChange
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
@ -259,7 +276,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
Width = 273 Width = 273
end end
object edtFechaFiltro1: TcxDateEdit object edtFechaFiltro1: TcxDateEdit
Left = 168 Left = 201
Top = 46 Top = 46
Enabled = False Enabled = False
Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
@ -275,7 +292,7 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
Width = 121 Width = 121
end end
object edtFechaFiltro2: TcxDateEdit object edtFechaFiltro2: TcxDateEdit
Left = 320 Left = 353
Top = 46 Top = 46
Enabled = False Enabled = False
Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged Properties.OnEditValueChanged = edtFechaFiltro1PropertiesEditValueChanged
@ -306,16 +323,16 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
object rbFechas: TcxRadioButton object rbFechas: TcxRadioButton
Left = 16 Left = 16
Top = 48 Top = 48
Width = 145 Width = 174
Height = 17 Height = 17
Caption = 'Recibos con fechas entre:' Caption = 'Recibos con vencimiento entre:'
TabOrder = 4 TabOrder = 4
OnClick = rbTodoClick OnClick = rbTodoClick
LookAndFeel.Kind = lfStandard LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
end end
object Button1: TBitBtn object Button1: TBitBtn
Left = 470 Left = 503
Top = 43 Top = 43
Width = 163 Width = 163
Height = 25 Height = 25
@ -362,12 +379,6 @@ inherited fEditorElegirRecibosProveedor: TfEditorElegirRecibosProveedor
inherited EditorActionList: TActionList [9] inherited EditorActionList: TActionList [9]
Left = 112 Left = 112
Top = 192 Top = 192
inherited actPrevisualizar: TAction
Visible = False
end
inherited actImprimir: TAction
Visible = False
end
end end
inherited JvAppRegistryStorage: TJvAppRegistryStorage [10] inherited JvAppRegistryStorage: TJvAppRegistryStorage [10]
end end

35
Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm
View File

@ -41,10 +41,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Width = 638 Width = 638
ExplicitWidth = 638 ExplicitWidth = 638
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 347 ExplicitWidth = 276
inherited TBXItem3: TTBXItem
Visible = True
end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 638 ExplicitWidth = 638
@ -79,24 +76,6 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
ExplicitWidth = 638 ExplicitWidth = 638
ExplicitHeight = 415 ExplicitHeight = 415
inherited cxGridView: TcxGridDBTableView 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
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
@ -111,16 +90,16 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor
Width = 634 Width = 634
ExplicitWidth = 634 ExplicitWidth = 634
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 ExplicitWidth = 478
Width = 273 Width = 478
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 ExplicitWidth = 266
Width = 121 Width = 266
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 392 Left = 485
ExplicitLeft = 392 ExplicitLeft = 485
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end

16
Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.pas
View File

@ -1,18 +1,18 @@
{ {
=============================================================================== ===============================================================================
Copyright (©) 2007. Rodax Software. Copyright (©) 2007. Rodax Software.
=============================================================================== ===============================================================================
Los contenidos de este fichero son propiedad de Rodax Software titular del 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 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. bajo el que se suministra.
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
Web: www.rodax-software.com Web: www.rodax-software.com
=============================================================================== ===============================================================================
Fecha primera versión: Fecha primera versión:
Versión actual: 1.0.0 Versión actual: 1.0.0
Fecha versión actual: Fecha versión actual:
=============================================================================== ===============================================================================
Modificaciones: Modificaciones:
@ -111,7 +111,7 @@ begin
raise Exception.Create('No hay ninguna vista asignada'); raise Exception.Create('No hay ninguna vista asignada');
if not Assigned(FRecibosProveedor) then 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; FRecibosProveedor.DataTable.Active := True;
ViewGrid.GotoFirst; ViewGrid.GotoFirst;
@ -142,7 +142,7 @@ end;
procedure TfEditorRecibosProveedor.NuevoInterno; procedure TfEditorRecibosProveedor.NuevoInterno;
begin begin
// inherited; // inherited;
//No se pueden añadir recibos nuevos //No se pueden añadir recibos nuevos
end; end;
procedure TfEditorRecibosProveedor.PonerTitulos(const ATitulo: string); procedure TfEditorRecibosProveedor.PonerTitulos(const ATitulo: string);

39
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.dfm
View File

@ -30,6 +30,16 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
Format = '0 recibos' Format = '0 recibos'
Kind = skCount Kind = skCount
Column = cxGridViewREFERENCIA 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> end>
OptionsCustomize.ColumnHidingOnGrouping = False OptionsCustomize.ColumnHidingOnGrouping = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
@ -101,6 +111,9 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
object cxGridViewIMPORTE: TcxGridDBColumn object cxGridViewIMPORTE: TcxGridDBColumn
Caption = 'Importe' Caption = 'Importe'
DataBinding.FieldName = 'IMPORTE' DataBinding.FieldName = 'IMPORTE'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 60 Width = 60
end end
@ -149,20 +162,28 @@ inherited frViewRecibosProveedor: TfrViewRecibosProveedor
ExplicitWidth = 531 ExplicitWidth = 531
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 527 Width = 527
ExplicitWidth = 527
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 Left = 146
Width = 273 ExplicitLeft = 146
ExplicitWidth = 371
Width = 371
end end
inherited edtFechaIniFiltro: TcxDateEdit inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121 Left = 146
Width = 121 ExplicitLeft = 146
ExplicitWidth = 185
Width = 185
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 328 Left = 330
ExplicitLeft = 328 ExplicitLeft = 330
ExplicitWidth = 121 end
Width = 121 inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Vencimiento entre la fecha:'
end
end
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

6
Source/Modulos/Recibos de proveedor/Views/uViewRecibosProveedor.pas
View File

@ -85,7 +85,7 @@ type
implementation implementation
uses uses
uDataModuleRecibosProveedor, DateUtils, uViewGridBase; schRecibosProveedorClient_Intf, uDataModuleRecibosProveedor, DateUtils, uViewGridBase;
{$R *.dfm} {$R *.dfm}
@ -127,7 +127,7 @@ begin
cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare]; cxGridView.DataController.Filter.Options := [fcoCaseInsensitive, fcoSoftCompare];
FFiltro := AddFilterGrid(fboAnd); 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)); FFiltro.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
end; end;
end; end;
@ -260,7 +260,7 @@ begin
if not VarIsNull(Fecha1) if not VarIsNull(Fecha1)
and not VarIsNull(Fecha2) then and not VarIsNull(Fecha2) then
begin 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)); Root.AddItem(Columna, foBetween, varArrayOf([Fecha1, Fecha2]), VarToStr(Fecha1) + ' and ' + VarToStr(Fecha2));
Active := True; Active := True;
end end

26
Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.dfm
View File

@ -41,7 +41,7 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente
Name = 'Password' Name = 'Password'
ParamType = fIn ParamType = fIn
DataType = rtString DataType = rtString
Value = '1' Value = 'luisleon07'
end end
item item
Name = 'LoginInfo' Name = 'LoginInfo'
@ -66,7 +66,9 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente
ProbeServers = False ProbeServers = False
ProbeFrequency = 60000 ProbeFrequency = 60000
UserAgent = 'RemObjects SDK' UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8099/bin' TargetURL = 'http://localhost:8090/bin'
Login.Username = 'Luis'
Login.Password = '1'
Left = 48 Left = 48
Top = 272 Top = 272
end end
@ -109,7 +111,21 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify 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 InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -194,12 +210,12 @@ object DataModuleRemesasCliente: TDataModuleRemesasCliente
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datFloat
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Importe total' DisplayLabel = 'Importe total'
Alignment = taRightJustify Alignment = taRightJustify
ServerAutoRefresh = True DictionaryEntry = 'RemesasCliente_IMPORTE_TOTAL'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False

144
Source/Modulos/Remesas de cliente/Model/schRemesasClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_darReferencia = '{88DA99A8-DE05-4D9D-A20E-37B516E5E77C}'; RID_darReferencia = '{A1E303BC-14C6-44ED-AB3B-110321C46D8B}';
RID_RemesasCliente = '{4F1FBA6F-4FB9-4662-8C91-02D04811FB8C}'; RID_RemesasCliente = '{C09AAC97-CD9C-4A7F-BAB3-A7A7845FA2CE}';
RID_RemesasCliente_Refresh = '{FDBE7165-B71F-4552-B3A3-CABFC5ADB649}'; RID_RemesasCliente_Refresh = '{1212E969-2479-4D5B-B7FB-C88F220139E8}';
{ Data table names } { Data table names }
nme_darReferencia = 'darReferencia'; nme_darReferencia = 'darReferencia';
@ -28,6 +28,7 @@ const
fld_RemesasClienteID = 'ID'; fld_RemesasClienteID = 'ID';
fld_RemesasClienteID_EMPRESA = 'ID_EMPRESA'; fld_RemesasClienteID_EMPRESA = 'ID_EMPRESA';
fld_RemesasClienteREFERENCIA = 'REFERENCIA'; fld_RemesasClienteREFERENCIA = 'REFERENCIA';
fld_RemesasClienteTIPO = 'TIPO';
fld_RemesasClienteFECHA_REMESA = 'FECHA_REMESA'; fld_RemesasClienteFECHA_REMESA = 'FECHA_REMESA';
fld_RemesasClienteDESCRIPCION = 'DESCRIPCION'; fld_RemesasClienteDESCRIPCION = 'DESCRIPCION';
fld_RemesasClienteUSUARIO = 'USUARIO'; fld_RemesasClienteUSUARIO = 'USUARIO';
@ -47,25 +48,27 @@ const
idx_RemesasClienteID = 0; idx_RemesasClienteID = 0;
idx_RemesasClienteID_EMPRESA = 1; idx_RemesasClienteID_EMPRESA = 1;
idx_RemesasClienteREFERENCIA = 2; idx_RemesasClienteREFERENCIA = 2;
idx_RemesasClienteFECHA_REMESA = 3; idx_RemesasClienteTIPO = 3;
idx_RemesasClienteDESCRIPCION = 4; idx_RemesasClienteFECHA_REMESA = 4;
idx_RemesasClienteUSUARIO = 5; idx_RemesasClienteDESCRIPCION = 5;
idx_RemesasClienteID_DATOS_BANCO = 6; idx_RemesasClienteUSUARIO = 6;
idx_RemesasClienteFECHA_ALTA = 7; idx_RemesasClienteID_DATOS_BANCO = 7;
idx_RemesasClienteFECHA_MODIFICACION = 8; idx_RemesasClienteFECHA_ALTA = 8;
idx_RemesasClienteIMPORTE_TOTAL = 9; idx_RemesasClienteFECHA_MODIFICACION = 9;
idx_RemesasClienteNOMBRE = 10; idx_RemesasClienteIMPORTE_TOTAL = 10;
idx_RemesasClienteENTIDAD = 11; idx_RemesasClienteNOMBRE = 11;
idx_RemesasClienteSUCURSAL = 12; idx_RemesasClienteENTIDAD = 12;
idx_RemesasClienteDC = 13; idx_RemesasClienteSUCURSAL = 13;
idx_RemesasClienteCUENTA = 14; idx_RemesasClienteDC = 14;
idx_RemesasClienteSUFIJO_N19 = 15; idx_RemesasClienteCUENTA = 15;
idx_RemesasClienteSUFIJO_N58 = 16; idx_RemesasClienteSUFIJO_N19 = 16;
idx_RemesasClienteSUFIJO_N58 = 17;
{ RemesasCliente_Refresh fields } { RemesasCliente_Refresh fields }
fld_RemesasCliente_RefreshID = 'ID'; fld_RemesasCliente_RefreshID = 'ID';
fld_RemesasCliente_RefreshID_EMPRESA = 'ID_EMPRESA'; fld_RemesasCliente_RefreshID_EMPRESA = 'ID_EMPRESA';
fld_RemesasCliente_RefreshREFERENCIA = 'REFERENCIA'; fld_RemesasCliente_RefreshREFERENCIA = 'REFERENCIA';
fld_RemesasCliente_RefreshTIPO = 'TIPO';
fld_RemesasCliente_RefreshFECHA_REMESA = 'FECHA_REMESA'; fld_RemesasCliente_RefreshFECHA_REMESA = 'FECHA_REMESA';
fld_RemesasCliente_RefreshDESCRIPCION = 'DESCRIPCION'; fld_RemesasCliente_RefreshDESCRIPCION = 'DESCRIPCION';
fld_RemesasCliente_RefreshUSUARIO = 'USUARIO'; fld_RemesasCliente_RefreshUSUARIO = 'USUARIO';
@ -85,25 +88,26 @@ const
idx_RemesasCliente_RefreshID = 0; idx_RemesasCliente_RefreshID = 0;
idx_RemesasCliente_RefreshID_EMPRESA = 1; idx_RemesasCliente_RefreshID_EMPRESA = 1;
idx_RemesasCliente_RefreshREFERENCIA = 2; idx_RemesasCliente_RefreshREFERENCIA = 2;
idx_RemesasCliente_RefreshFECHA_REMESA = 3; idx_RemesasCliente_RefreshTIPO = 3;
idx_RemesasCliente_RefreshDESCRIPCION = 4; idx_RemesasCliente_RefreshFECHA_REMESA = 4;
idx_RemesasCliente_RefreshUSUARIO = 5; idx_RemesasCliente_RefreshDESCRIPCION = 5;
idx_RemesasCliente_RefreshID_DATOS_BANCO = 6; idx_RemesasCliente_RefreshUSUARIO = 6;
idx_RemesasCliente_RefreshFECHA_ALTA = 7; idx_RemesasCliente_RefreshID_DATOS_BANCO = 7;
idx_RemesasCliente_RefreshFECHA_MODIFICACION = 8; idx_RemesasCliente_RefreshFECHA_ALTA = 8;
idx_RemesasCliente_RefreshIMPORTE_TOTAL = 9; idx_RemesasCliente_RefreshFECHA_MODIFICACION = 9;
idx_RemesasCliente_RefreshNOMBRE = 10; idx_RemesasCliente_RefreshIMPORTE_TOTAL = 10;
idx_RemesasCliente_RefreshENTIDAD = 11; idx_RemesasCliente_RefreshNOMBRE = 11;
idx_RemesasCliente_RefreshSUCURSAL = 12; idx_RemesasCliente_RefreshENTIDAD = 12;
idx_RemesasCliente_RefreshDC = 13; idx_RemesasCliente_RefreshSUCURSAL = 13;
idx_RemesasCliente_RefreshCUENTA = 14; idx_RemesasCliente_RefreshDC = 14;
idx_RemesasCliente_RefreshSUFIJO_N19 = 15; idx_RemesasCliente_RefreshCUENTA = 15;
idx_RemesasCliente_RefreshSUFIJO_N58 = 16; idx_RemesasCliente_RefreshSUFIJO_N19 = 16;
idx_RemesasCliente_RefreshSUFIJO_N58 = 17;
type type
{ IdarReferencia } { IdarReferencia }
IdarReferencia = interface(IDAStronglyTypedDataTable) IdarReferencia = interface(IDAStronglyTypedDataTable)
['{F1C155EA-E472-4A20-97E9-48A4F469EAC5}'] ['{7AF88C22-93F7-445B-A55E-87212FDB6C3C}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -132,7 +136,7 @@ type
{ IRemesasCliente } { IRemesasCliente }
IRemesasCliente = interface(IDAStronglyTypedDataTable) IRemesasCliente = interface(IDAStronglyTypedDataTable)
['{FCCDBFEE-7CAB-4837-A17A-D19281944A82}'] ['{3CB2DF7A-3B62-4B93-84B1-634DF3842413}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -140,6 +144,8 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
function GetREFERENCIAValue: String; function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetTIPOValue: String;
procedure SetTIPOValue(const aValue: String);
function GetFECHA_REMESAValue: DateTime; function GetFECHA_REMESAValue: DateTime;
procedure SetFECHA_REMESAValue(const aValue: DateTime); procedure SetFECHA_REMESAValue(const aValue: DateTime);
function GetDESCRIPCIONValue: String; function GetDESCRIPCIONValue: String;
@ -152,8 +158,8 @@ type
procedure SetFECHA_ALTAValue(const aValue: DateTime); procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_MODIFICACIONValue: DateTime; function GetFECHA_MODIFICACIONValue: DateTime;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
function GetIMPORTE_TOTALValue: Currency; function GetIMPORTE_TOTALValue: Float;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); procedure SetIMPORTE_TOTALValue(const aValue: Float);
function GetNOMBREValue: String; function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String); procedure SetNOMBREValue(const aValue: String);
function GetENTIDADValue: String; function GetENTIDADValue: String;
@ -174,13 +180,14 @@ type
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; 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 FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; 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_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; 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 NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
@ -201,6 +208,8 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
function GetFECHA_REMESAValue: DateTime; virtual; function GetFECHA_REMESAValue: DateTime; virtual;
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONValue: String; virtual;
@ -213,8 +222,8 @@ type
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetIMPORTE_TOTALValue: Currency; virtual; function GetIMPORTE_TOTALValue: Float; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
function GetNOMBREValue: String; virtual; function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREValue(const aValue: String); virtual;
function GetENTIDADValue: String; virtual; function GetENTIDADValue: String; virtual;
@ -234,13 +243,14 @@ type
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; 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 FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; 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_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; 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 NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
@ -257,7 +267,7 @@ type
{ IRemesasCliente_Refresh } { IRemesasCliente_Refresh }
IRemesasCliente_Refresh = interface(IDAStronglyTypedDataTable) IRemesasCliente_Refresh = interface(IDAStronglyTypedDataTable)
['{179D4A7F-C909-48AA-AE07-AB5F76D2AC66}'] ['{3F695DCE-EABB-439F-BC19-6FD396148EB6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -265,6 +275,8 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
function GetREFERENCIAValue: String; function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetTIPOValue: String;
procedure SetTIPOValue(const aValue: String);
function GetFECHA_REMESAValue: DateTime; function GetFECHA_REMESAValue: DateTime;
procedure SetFECHA_REMESAValue(const aValue: DateTime); procedure SetFECHA_REMESAValue(const aValue: DateTime);
function GetDESCRIPCIONValue: String; function GetDESCRIPCIONValue: String;
@ -277,8 +289,8 @@ type
procedure SetFECHA_ALTAValue(const aValue: DateTime); procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_MODIFICACIONValue: DateTime; function GetFECHA_MODIFICACIONValue: DateTime;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
function GetIMPORTE_TOTALValue: Currency; function GetIMPORTE_TOTALValue: Float;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); procedure SetIMPORTE_TOTALValue(const aValue: Float);
function GetNOMBREValue: String; function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String); procedure SetNOMBREValue(const aValue: String);
function GetENTIDADValue: String; function GetENTIDADValue: String;
@ -299,13 +311,14 @@ type
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; 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 FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; 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_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; 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 NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
@ -326,6 +339,8 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
function GetFECHA_REMESAValue: DateTime; virtual; function GetFECHA_REMESAValue: DateTime; virtual;
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONValue: String; virtual;
@ -338,8 +353,8 @@ type
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual; procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetIMPORTE_TOTALValue: Currency; virtual; function GetIMPORTE_TOTALValue: Float; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
function GetNOMBREValue: String; virtual; function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREValue(const aValue: String); virtual;
function GetENTIDADValue: String; virtual; function GetENTIDADValue: String; virtual;
@ -359,13 +374,14 @@ type
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; 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 FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
property ID_DATOS_BANCO: Integer read GetID_DATOS_BANCOValue write SetID_DATOS_BANCOValue; 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_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; 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 NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue; property ENTIDAD: String read GetENTIDADValue write SetENTIDADValue;
property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue; property SUCURSAL: String read GetSUCURSALValue write SetSUCURSALValue;
@ -447,6 +463,16 @@ begin
DataTable.Fields[idx_RemesasClienteREFERENCIA].AsString := aValue; DataTable.Fields[idx_RemesasClienteREFERENCIA].AsString := aValue;
end; 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; function TRemesasClienteDataTableRules.GetFECHA_REMESAValue: DateTime;
begin begin
result := DataTable.Fields[idx_RemesasClienteFECHA_REMESA].AsDateTime; result := DataTable.Fields[idx_RemesasClienteFECHA_REMESA].AsDateTime;
@ -507,14 +533,14 @@ begin
DataTable.Fields[idx_RemesasClienteFECHA_MODIFICACION].AsDateTime := aValue; DataTable.Fields[idx_RemesasClienteFECHA_MODIFICACION].AsDateTime := aValue;
end; end;
function TRemesasClienteDataTableRules.GetIMPORTE_TOTALValue: Currency; function TRemesasClienteDataTableRules.GetIMPORTE_TOTALValue: Float;
begin begin
result := DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsCurrency; result := DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsFloat;
end; end;
procedure TRemesasClienteDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); procedure TRemesasClienteDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
begin begin
DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsCurrency := aValue; DataTable.Fields[idx_RemesasClienteIMPORTE_TOTAL].AsFloat := aValue;
end; end;
function TRemesasClienteDataTableRules.GetNOMBREValue: String; function TRemesasClienteDataTableRules.GetNOMBREValue: String;
@ -629,6 +655,16 @@ begin
DataTable.Fields[idx_RemesasCliente_RefreshREFERENCIA].AsString := aValue; DataTable.Fields[idx_RemesasCliente_RefreshREFERENCIA].AsString := aValue;
end; 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; function TRemesasCliente_RefreshDataTableRules.GetFECHA_REMESAValue: DateTime;
begin begin
result := DataTable.Fields[idx_RemesasCliente_RefreshFECHA_REMESA].AsDateTime; result := DataTable.Fields[idx_RemesasCliente_RefreshFECHA_REMESA].AsDateTime;
@ -689,14 +725,14 @@ begin
DataTable.Fields[idx_RemesasCliente_RefreshFECHA_MODIFICACION].AsDateTime := aValue; DataTable.Fields[idx_RemesasCliente_RefreshFECHA_MODIFICACION].AsDateTime := aValue;
end; end;
function TRemesasCliente_RefreshDataTableRules.GetIMPORTE_TOTALValue: Currency; function TRemesasCliente_RefreshDataTableRules.GetIMPORTE_TOTALValue: Float;
begin begin
result := DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsCurrency; result := DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsFloat;
end; end;
procedure TRemesasCliente_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Currency); procedure TRemesasCliente_RefreshDataTableRules.SetIMPORTE_TOTALValue(const aValue: Float);
begin begin
DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsCurrency := aValue; DataTable.Fields[idx_RemesasCliente_RefreshIMPORTE_TOTAL].AsFloat := aValue;
end; end;
function TRemesasCliente_RefreshDataTableRules.GetNOMBREValue: String; function TRemesasCliente_RefreshDataTableRules.GetNOMBREValue: String;

96
Source/Modulos/Remesas de cliente/Model/schRemesasClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_darReferenciaDelta = '{2E1B93B3-0013-4E76-9282-C1A8DD67CD55}'; RID_darReferenciaDelta = '{6BDDB07D-2116-434F-9B1C-3438BC15858E}';
RID_RemesasClienteDelta = '{A9F30F17-7489-41DF-99B0-9610DAFF0CBD}'; RID_RemesasClienteDelta = '{1ECF3F1A-3E7B-4CFA-B097-D5895756EB02}';
RID_RemesasCliente_RefreshDelta = '{F948F4C1-BE3B-43B0-9E83-608F6CFCA690}'; RID_RemesasCliente_RefreshDelta = '{0EB05604-7651-4CAE-8D91-0032CBD944CB}';
type type
{ IdarReferenciaDelta } { IdarReferenciaDelta }
IdarReferenciaDelta = interface(IdarReferencia) IdarReferenciaDelta = interface(IdarReferencia)
['{2E1B93B3-0013-4E76-9282-C1A8DD67CD55}'] ['{6BDDB07D-2116-434F-9B1C-3438BC15858E}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -45,18 +45,19 @@ type
{ IRemesasClienteDelta } { IRemesasClienteDelta }
IRemesasClienteDelta = interface(IRemesasCliente) IRemesasClienteDelta = interface(IRemesasCliente)
['{A9F30F17-7489-41DF-99B0-9610DAFF0CBD}'] ['{1ECF3F1A-3E7B-4CFA-B097-D5895756EB02}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldTIPOValue : String;
function GetOldFECHA_REMESAValue : DateTime; function GetOldFECHA_REMESAValue : DateTime;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_DATOS_BANCOValue : Integer; function GetOldID_DATOS_BANCOValue : Integer;
function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Float;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldENTIDADValue : String; function GetOldENTIDADValue : String;
function GetOldSUCURSALValue : String; function GetOldSUCURSALValue : String;
@ -69,13 +70,14 @@ type
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldTIPO : String read GetOldTIPOValue;
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue; property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; 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 OldNOMBRE : String read GetOldNOMBREValue;
property OldENTIDAD : String read GetOldENTIDADValue; property OldENTIDAD : String read GetOldENTIDADValue;
property OldSUCURSAL : String read GetOldSUCURSALValue; property OldSUCURSAL : String read GetOldSUCURSALValue;
@ -99,6 +101,9 @@ type
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: 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 GetFECHA_REMESAValue: DateTime; virtual;
function GetOldFECHA_REMESAValue: DateTime; virtual; function GetOldFECHA_REMESAValue: DateTime; virtual;
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
@ -117,9 +122,9 @@ type
function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetIMPORTE_TOTALValue: Currency; virtual; function GetIMPORTE_TOTALValue: Float; virtual;
function GetOldIMPORTE_TOTALValue: Currency; virtual; function GetOldIMPORTE_TOTALValue: Float; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
function GetNOMBREValue: String; virtual; function GetNOMBREValue: String; virtual;
function GetOldNOMBREValue: String; virtual; function GetOldNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREValue(const aValue: String); virtual;
@ -149,6 +154,8 @@ type
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; 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 FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
@ -161,8 +168,8 @@ type
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue; property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
@ -186,18 +193,19 @@ type
{ IRemesasCliente_RefreshDelta } { IRemesasCliente_RefreshDelta }
IRemesasCliente_RefreshDelta = interface(IRemesasCliente_Refresh) IRemesasCliente_RefreshDelta = interface(IRemesasCliente_Refresh)
['{F948F4C1-BE3B-43B0-9E83-608F6CFCA690}'] ['{0EB05604-7651-4CAE-8D91-0032CBD944CB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldTIPOValue : String;
function GetOldFECHA_REMESAValue : DateTime; function GetOldFECHA_REMESAValue : DateTime;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_DATOS_BANCOValue : Integer; function GetOldID_DATOS_BANCOValue : Integer;
function GetOldFECHA_ALTAValue : DateTime; function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldIMPORTE_TOTALValue : Currency; function GetOldIMPORTE_TOTALValue : Float;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldENTIDADValue : String; function GetOldENTIDADValue : String;
function GetOldSUCURSALValue : String; function GetOldSUCURSALValue : String;
@ -210,13 +218,14 @@ type
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldTIPO : String read GetOldTIPOValue;
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue; property OldID_DATOS_BANCO : Integer read GetOldID_DATOS_BANCOValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; 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 OldNOMBRE : String read GetOldNOMBREValue;
property OldENTIDAD : String read GetOldENTIDADValue; property OldENTIDAD : String read GetOldENTIDADValue;
property OldSUCURSAL : String read GetOldSUCURSALValue; property OldSUCURSAL : String read GetOldSUCURSALValue;
@ -240,6 +249,9 @@ type
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: 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 GetFECHA_REMESAValue: DateTime; virtual;
function GetOldFECHA_REMESAValue: DateTime; virtual; function GetOldFECHA_REMESAValue: DateTime; virtual;
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
@ -258,9 +270,9 @@ type
function GetFECHA_MODIFICACIONValue: DateTime; virtual; function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual; function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual; procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetIMPORTE_TOTALValue: Currency; virtual; function GetIMPORTE_TOTALValue: Float; virtual;
function GetOldIMPORTE_TOTALValue: Currency; virtual; function GetOldIMPORTE_TOTALValue: Float; virtual;
procedure SetIMPORTE_TOTALValue(const aValue: Currency); virtual; procedure SetIMPORTE_TOTALValue(const aValue: Float); virtual;
function GetNOMBREValue: String; virtual; function GetNOMBREValue: String; virtual;
function GetOldNOMBREValue: String; virtual; function GetOldNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREValue(const aValue: String); virtual;
@ -290,6 +302,8 @@ type
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; 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 FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
@ -302,8 +316,8 @@ type
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue; property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue; property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property IMPORTE_TOTAL : Currency read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue; property IMPORTE_TOTAL : Float read GetIMPORTE_TOTALValue write SetIMPORTE_TOTALValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue; property OldIMPORTE_TOTAL : Float read GetOldIMPORTE_TOTALValue;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue; property ENTIDAD : String read GetENTIDADValue write SetENTIDADValue;
@ -413,6 +427,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteREFERENCIA] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteREFERENCIA] := aValue;
end; 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; function TRemesasClienteBusinessProcessorRules.GetFECHA_REMESAValue: DateTime;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_REMESA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_REMESA];
@ -503,17 +532,17 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_MODIFICACION] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteFECHA_MODIFICACION] := aValue;
end; end;
function TRemesasClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; function TRemesasClienteBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL];
end; end;
function TRemesasClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; function TRemesasClienteBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteIMPORTE_TOTAL]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasClienteIMPORTE_TOTAL];
end; end;
procedure TRemesasClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); procedure TRemesasClienteBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasClienteIMPORTE_TOTAL] := aValue;
end; end;
@ -680,6 +709,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshREFERENCIA] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshREFERENCIA] := aValue;
end; 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; function TRemesasCliente_RefreshBusinessProcessorRules.GetFECHA_REMESAValue: DateTime;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_REMESA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_REMESA];
@ -770,17 +814,17 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_MODIFICACION] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshFECHA_MODIFICACION] := aValue;
end; end;
function TRemesasCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Currency; function TRemesasCliente_RefreshBusinessProcessorRules.GetIMPORTE_TOTALValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL];
end; end;
function TRemesasCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Currency; function TRemesasCliente_RefreshBusinessProcessorRules.GetOldIMPORTE_TOTALValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL];
end; end;
procedure TRemesasCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Currency); procedure TRemesasCliente_RefreshBusinessProcessorRules.SetIMPORTE_TOTALValue(const aValue: Float);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasCliente_RefreshIMPORTE_TOTAL] := aValue;
end; end;

5
Source/Modulos/Remesas de cliente/Model/uBizRemesasCliente.pas
View File

@ -8,6 +8,10 @@ uses
const const
BIZ_CLIENT_REMESACLIENTE = 'Client.RemesaCliente'; BIZ_CLIENT_REMESACLIENTE = 'Client.RemesaCliente';
CTE_TIPO_REMESA = 'REMESA';
CTE_TIPO_TALON = 'TALON';
CTE_TIPO_EFECTIVO = 'EFECTIVO';
CTE_TIPO_TRANSFERENCIA = 'TRANSFERENCIA';
type type
IBizRemesaCliente = interface(IRemesasCliente) IBizRemesaCliente = interface(IRemesasCliente)
@ -73,6 +77,7 @@ begin
ID_EMPRESA := dmUsuarios.IDEmpresaActual; ID_EMPRESA := dmUsuarios.IDEmpresaActual;
FECHA_REMESA := Date; FECHA_REMESA := Date;
USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := dmUsuarios.LoginInfo.Usuario;
TIPO := CTE_TIPO_REMESA;
end; end;
procedure TBizRemesaCliente.OnNewRecord(Sender: TDADataTable); procedure TBizRemesaCliente.OnNewRecord(Sender: TDADataTable);

126
Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.dfm
View File

@ -153,6 +153,34 @@ object srvRemesasCliente: TsrvRemesasCliente
DisplayLabel = 'REFERENCIA' DisplayLabel = 'REFERENCIA'
Alignment = taLeftJustify Alignment = taLeftJustify
ServerAutoRefresh = True 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> end>
Left = 150 Left = 150
Top = 22 Top = 22
@ -216,10 +244,11 @@ object srvRemesasCliente: TsrvRemesasCliente
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'V_REMESAS_CLIENTE' TargetTable = 'V_REMESAS_CLIENTE'
SQL = SQL =
'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' + 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' +
'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' + #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' +
'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' + 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' +
'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_CLIENTE' ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_C' +
'LIENTE'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -289,6 +318,10 @@ object srvRemesasCliente: TsrvRemesasCliente
item item
DatasetField = 'SUFIJO_N58' DatasetField = 'SUFIJO_N58'
TableField = 'SUFIJO_N58' TableField = 'SUFIJO_N58'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end> end>
end> end>
Name = 'RemesasCliente' Name = 'RemesasCliente'
@ -318,9 +351,18 @@ object srvRemesasCliente: TsrvRemesasCliente
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DictionaryEntry = 'RemesasCliente_REFERENCIA'
Alignment = taLeftJustify InPrimaryKey = False
ServerAutoRefresh = True Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIPO'
DataType = datString
Size = 40
BlobType = dabtUnknown
DictionaryEntry = 'RemesasCliente_TIPO'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -390,12 +432,9 @@ object srvRemesasCliente: TsrvRemesasCliente
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datFloat
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DictionaryEntry = 'RemesasCliente_IMPORTE_TOTAL'
DisplayLabel = 'Importe total'
Alignment = taRightJustify
ServerAutoRefresh = True
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -495,11 +534,11 @@ object srvRemesasCliente: TsrvRemesasCliente
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'V_REMESAS_CLIENTE' TargetTable = 'V_REMESAS_CLIENTE'
SQL = SQL =
'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' + 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' +
'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' + #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' +
'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' + 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' +
'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_CLIENTE'#10'W' + ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_C' +
'HERE ID = :ID' 'LIENTE'#10'WHERE ID = :ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -570,6 +609,10 @@ object srvRemesasCliente: TsrvRemesasCliente
item item
DatasetField = 'SUFIJO_N58' DatasetField = 'SUFIJO_N58'
TableField = 'SUFIJO_N58' TableField = 'SUFIJO_N58'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end> end>
end> end>
Name = 'RemesasCliente_Refresh' Name = 'RemesasCliente_Refresh'
@ -607,6 +650,17 @@ object srvRemesasCliente: TsrvRemesasCliente
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'TIPO'
DataType = datString
Size = 40
BlobType = dabtUnknown
DictionaryEntry = 'RemesasCliente_TIPO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'FECHA_REMESA' Name = 'FECHA_REMESA'
DataType = datDateTime DataType = datDateTime
@ -671,7 +725,7 @@ object srvRemesasCliente: TsrvRemesasCliente
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datFloat
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Importe total' DisplayLabel = 'Importe total'
@ -817,6 +871,14 @@ object srvRemesasCliente: TsrvRemesasCliente
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'TIPO'
DataType = datString
Size = 40
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'FECHA_REMESA' Name = 'FECHA_REMESA'
DataType = datDateTime DataType = datDateTime
@ -873,11 +935,11 @@ object srvRemesasCliente: TsrvRemesasCliente
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'REMESAS_CLIENTE' TargetTable = 'REMESAS_CLIENTE'
SQL = SQL =
'INSERT'#10' INTO REMESAS_CLIENTE'#10' (ID, REFERENCIA, FECHA_REMESA,' + 'INSERT'#10' INTO REMESAS_CLIENTE'#10' (ID, REFERENCIA, TIPO, FECHA_R' +
' DESCRIPCION, USUARIO, ID_EMPRESA,'#10' ID_DATOS_BANCO, FECHA_AL' + 'EMESA, DESCRIPCION, USUARIO, ID_EMPRESA,'#10' ID_DATOS_BANCO, FE' +
'TA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :REFERENCIA, :FECHA_R' + 'CHA_ALTA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :REFERENCIA, :T' +
'EMESA, :DESCRIPCION, :USUARIO,'#10' :ID_EMPRESA, :ID_DATOS_BANCO' + 'IPO, :FECHA_REMESA, :DESCRIPCION, :USUARIO,'#10' :ID_EMPRESA, :I' +
', :FECHA_ALTA,'#10' :FECHA_MODIFICACION)' 'D_DATOS_BANCO, :FECHA_ALTA,'#10' :FECHA_MODIFICACION)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -912,6 +974,14 @@ object srvRemesasCliente: TsrvRemesasCliente
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'TIPO'
DataType = datString
Size = 40
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'FECHA_REMESA' Name = 'FECHA_REMESA'
DataType = datDateTime DataType = datDateTime
@ -976,11 +1046,11 @@ object srvRemesasCliente: TsrvRemesasCliente
TargetTable = 'REMESAS_CLIENTE' TargetTable = 'REMESAS_CLIENTE'
SQL = SQL =
'UPDATE REMESAS_CLIENTE'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' ' + 'UPDATE REMESAS_CLIENTE'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' ' +
' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPCION = :DESCRIPCION, ' + ' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPCIO' +
#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :ID_EMPRESA, '#10' ID_' + 'N = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :ID' +
'DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALTA = :FECHA_ALTA, '#10' ' + '_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALTA ' +
' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE'#10' (ID = :OL' + '= :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' W' +
'D_ID)' 'HERE'#10' (ID = :OLD_ID)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

47
Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm
View File

@ -4,13 +4,13 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
HorzScrollBar.Visible = False HorzScrollBar.Visible = False
VertScrollBar.Visible = False VertScrollBar.Visible = False
Caption = 'Ficha de remesa de cobro' Caption = 'Ficha de remesa de cobro'
ClientHeight = 538 ClientHeight = 583
ClientWidth = 676 ClientWidth = 676
Scaled = False Scaled = False
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitLeft = -19 ExplicitLeft = -49
ExplicitWidth = 684 ExplicitWidth = 684
ExplicitHeight = 572 ExplicitHeight = 617
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -50,7 +50,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 676 Width = 676
ExplicitWidth = 676 ExplicitWidth = 676
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 592 ExplicitWidth = 598
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -108,7 +108,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 676 Width = 676
Height = 397 Height = 442
MultiLine = True MultiLine = True
ExplicitWidth = 676 ExplicitWidth = 676
ExplicitHeight = 397 ExplicitHeight = 397
@ -121,7 +121,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 668 Width = 668
Height = 121 Height = 145
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -132,13 +132,16 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 668 ExplicitWidth = 668
ExplicitHeight = 121 ExplicitHeight = 145
inherited dxLayoutControlRemesaCliente: TdxLayoutControl inherited dxLayoutControlRemesaCliente: TdxLayoutControl
Width = 668 Width = 668
Height = 129 Height = 160
Align = alTop Align = alTop
ExplicitWidth = 668 ExplicitWidth = 668
ExplicitHeight = 129 ExplicitHeight = 160
DesignSize = (
668
160)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 326 ExplicitWidth = 326
Width = 326 Width = 326
@ -157,6 +160,10 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
ExplicitWidth = 39 ExplicitWidth = 39
Width = 39 Width = 39
end end
inherited cbTipo: TcxDBImageComboBox
ExplicitWidth = 121
Width = 121
end
end end
inherited dsDataTable: TDADataSource inherited dsDataTable: TDADataSource
Left = 104 Left = 104
@ -168,9 +175,9 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
inline frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente inline frViewRecibosRemesaCliente1: TfrViewRecibosRemesaCliente
Left = 0 Left = 0
Top = 121 Top = 145
Width = 668 Width = 668
Height = 248 Height = 269
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -189,7 +196,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Left = 15 Left = 15
Width = 638 Width = 638
Height = 208 Height = 229
ExplicitLeft = 15 ExplicitLeft = 15
ExplicitWidth = 638 ExplicitWidth = 638
ExplicitHeight = 208 ExplicitHeight = 208
@ -211,12 +218,24 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
Width = 638 Width = 638
ExplicitLeft = 15 ExplicitLeft = 15
ExplicitWidth = 638 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
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 519 Top = 564
Width = 676 Width = 676
Panels = < Panels = <
item item
@ -227,7 +246,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotales1: TfrViewTotales [4]
Left = 0 Left = 0
Top = 473 Top = 518
Width = 676 Width = 676
Height = 46 Height = 46
Align = alBottom Align = alBottom

25
Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.dfm
View File

@ -2,16 +2,18 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
Left = 489 Left = 489
Top = 325 Top = 325
Caption = 'Lista de remesas de cobro' Caption = 'Lista de remesas de cobro'
ClientWidth = 820 ClientHeight = 409
ExplicitWidth = 828 ClientWidth = 785
ExplicitWidth = 793
ExplicitHeight = 443
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 820 Width = 785
Caption = 'Lista de remesas de cobro' Caption = 'Lista de remesas de cobro'
ExplicitWidth = 820 ExplicitWidth = 820
inherited Image1: TImage inherited Image1: TImage
Left = 793 Left = 758
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -40,15 +42,15 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 820 Width = 785
ExplicitWidth = 820 ExplicitWidth = 820
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 552 ExplicitWidth = 561
object TBXSeparatorItem17: TTBXSeparatorItem [12] object TBXSeparatorItem17: TTBXSeparatorItem [12]
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
ExplicitWidth = 260 ExplicitWidth = 269
inherited tbxEditFiltro: TTBXEditItem inherited tbxEditFiltro: TTBXEditItem
EditOptions = [tboUseEditWhenVertical] EditOptions = [tboUseEditWhenVertical]
end end
@ -57,7 +59,7 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 820 ExplicitWidth = 785
object TBXSubmenuItem2: TTBXSubmenuItem [4] object TBXSubmenuItem2: TTBXSubmenuItem [4]
Caption = 'A&cciones' Caption = 'A&cciones'
object TBXItem38: TTBXItem object TBXItem38: TTBXItem
@ -65,9 +67,14 @@ inherited fEditorRemesasCliente: TfEditorRemesasCliente
end end
end end
end end
inherited TBXTMain2: TTBXToolbar
Left = 334
ExplicitLeft = 334
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 820 Top = 390
Width = 785
ExplicitWidth = 820 ExplicitWidth = 820
end end
inherited EditorActionList: TActionList inherited EditorActionList: TActionList

38
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewRemesaCliente: TfrViewRemesaCliente inherited frViewRemesaCliente: TfrViewRemesaCliente
Width = 451 Width = 451
Height = 304 Height = 157
Align = alClient Align = alClient
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
@ -8,15 +8,16 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 451
Height = 304 Height = 157
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitHeight = 304
DesignSize = ( DesignSize = (
451 451
304) 157)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 110 Left = 110
Top = 30 Top = 30
@ -42,7 +43,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
end end
object eDescripcion: TcxDBTextEdit object eDescripcion: TcxDBTextEdit
Left = 110 Left = 110
Top = 84 Top = 111
DataBinding.DataField = 'DESCRIPCION' DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -57,7 +58,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 4
Width = 108 Width = 108
end end
object edtFechaRemesa: TcxDBDateEdit object edtFechaRemesa: TcxDBDateEdit
@ -114,6 +115,28 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
TabOrder = 2 TabOrder = 2
Width = 39 Width = 39
end 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 object dxLayoutControlRemesaClienteGroup_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -153,6 +176,11 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente
Control = cbCuentaBancaria Control = cbCuentaBancaria
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlRemesaClienteItem1: TdxLayoutItem
Caption = 'Forma de cobro:'
Control = cbTipo
ControlOptions.ShowBorder = False
end
object dxLayoutControlRemesaClienteItem8: TdxLayoutItem object dxLayoutControlRemesaClienteItem8: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient

36
Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas
View File

@ -11,7 +11,8 @@ uses
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit, ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
uFamiliasController, cxSpinEdit, cxCurrencyEdit, uFamiliasController, cxSpinEdit, cxCurrencyEdit,
uBizRemesasCliente, uRemesasClienteController, cxCalendar, uBizRemesasCliente, uRemesasClienteController, cxCalendar,
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox; dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
cxImageComboBox;
type type
IViewRemesaCliente = interface(IViewBase) IViewRemesaCliente = interface(IViewBase)
@ -44,6 +45,8 @@ type
cbCuentaBancaria: TcxDBLookupComboBox; cbCuentaBancaria: TcxDBLookupComboBox;
dsDatosBanco: TDADataSource; dsDatosBanco: TDADataSource;
dxLayoutControlRemesaClienteGroup2: TdxLayoutGroup; dxLayoutControlRemesaClienteGroup2: TdxLayoutGroup;
cbTipo: TcxDBImageComboBox;
dxLayoutControlRemesaClienteItem1: TdxLayoutItem;
protected protected
FController: IRemesasClienteController; FController: IRemesasClienteController;
@ -55,6 +58,7 @@ type
public public
property RemesaCliente: IBizRemesaCliente read GetRemesaCliente write SetRemesaCliente; property RemesaCliente: IBizRemesaCliente read GetRemesaCliente write SetRemesaCliente;
property Controller : IRemesasClienteController read GetController write SetController; property Controller : IRemesasClienteController read GetController write SetController;
constructor Create(AOwner: TComponent); override;
end; end;
implementation implementation
@ -76,6 +80,36 @@ begin
Result := FRemesaCliente; Result := FRemesaCliente;
end; 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; function TfrViewRemesaCliente.GetController: IRemesasClienteController;
begin begin
Result := FController; Result := FController;

29
Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm
View File

@ -1,7 +1,10 @@
inherited frViewRemesasCliente: TfrViewRemesasCliente inherited frViewRemesasCliente: TfrViewRemesasCliente
Height = 420
ExplicitHeight = 420
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Height = 292
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'RecID'
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
@ -33,19 +36,14 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
DataBinding.FieldName = 'RecID' DataBinding.FieldName = 'RecID'
Visible = False Visible = False
end end
object cxGridViewID: TcxGridDBColumn
DataBinding.FieldName = 'ID'
Visible = False
end
object cxGridViewID_EMPRESA: TcxGridDBColumn
DataBinding.FieldName = 'ID_EMPRESA'
Visible = False
end
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia' Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
Width = 118 Width = 118
end end
object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO'
end
object cxGridViewFECHA_REMESA: TcxGridDBColumn object cxGridViewFECHA_REMESA: TcxGridDBColumn
Caption = 'Fecha de cargo' Caption = 'Fecha de cargo'
DataBinding.FieldName = 'FECHA_REMESA' DataBinding.FieldName = 'FECHA_REMESA'
@ -76,14 +74,6 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
DataBinding.FieldName = 'CUENTA' DataBinding.FieldName = 'CUENTA'
Visible = False Visible = False
end 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 object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe' Caption = 'Importe'
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
@ -98,6 +88,7 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 550
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
@ -114,6 +105,10 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 394
ExplicitWidth = 554
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.842406053240000000 ReportDocument.CreationDate = 38673.842406053240000000

5
Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas
View File

@ -27,8 +27,6 @@ type
TfrViewRemesasCliente = class(TfrViewGrid, IViewRemesasCliente) TfrViewRemesasCliente = class(TfrViewGrid, IViewRemesasCliente)
PngImageList: TPngImageList; PngImageList: TPngImageList;
cxGridViewRecID: TcxGridDBColumn; cxGridViewRecID: TcxGridDBColumn;
cxGridViewID: TcxGridDBColumn;
cxGridViewID_EMPRESA: TcxGridDBColumn;
cxGridViewREFERENCIA: TcxGridDBColumn; cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewFECHA_REMESA: TcxGridDBColumn; cxGridViewFECHA_REMESA: TcxGridDBColumn;
cxGridViewDESCRIPCION: TcxGridDBColumn; cxGridViewDESCRIPCION: TcxGridDBColumn;
@ -38,8 +36,7 @@ type
cxGridViewSUCURSAL: TcxGridDBColumn; cxGridViewSUCURSAL: TcxGridDBColumn;
cxGridViewDC: TcxGridDBColumn; cxGridViewDC: TcxGridDBColumn;
cxGridViewCUENTA: TcxGridDBColumn; cxGridViewCUENTA: TcxGridDBColumn;
cxGridViewSUFIJO_N19: TcxGridDBColumn; cxGridViewTIPO: TcxGridDBColumn;
cxGridViewSUFIJO_N58: TcxGridDBColumn;
procedure cxGridViewIDCustomDrawCell( procedure cxGridViewIDCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

22
Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.dfm
View File

@ -41,7 +41,7 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor
Name = 'Password' Name = 'Password'
ParamType = fIn ParamType = fIn
DataType = rtString DataType = rtString
Value = '1' Value = 'luisleon07'
end end
item item
Name = 'LoginInfo' Name = 'LoginInfo'
@ -66,7 +66,7 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor
ProbeServers = False ProbeServers = False
ProbeFrequency = 60000 ProbeFrequency = 60000
UserAgent = 'RemObjects SDK' UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8099/bin' TargetURL = 'http://localhost:8090/bin'
Left = 48 Left = 48
Top = 272 Top = 272
end end
@ -109,7 +109,21 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DisplayWidth = 0
Alignment = taLeftJustify 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 InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -199,7 +213,7 @@ object DataModuleRemesasProveedor: TDataModuleRemesasProveedor
DisplayWidth = 0 DisplayWidth = 0
DisplayLabel = 'Importe total' DisplayLabel = 'Importe total'
Alignment = taRightJustify Alignment = taRightJustify
ServerAutoRefresh = True DictionaryEntry = 'RemesasProveedor_IMPORTE_TOTAL'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False

104
Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_darReferencia = '{3D6FDF20-0A49-4834-AD39-B9CEC05728BC}'; RID_darReferencia = '{C1FE1FF9-7F1D-45EF-A6EC-36769F2459E8}';
RID_RemesasProveedor = '{9F4452B5-ED06-43F7-AFE9-21A4BF5A3D2D}'; RID_RemesasProveedor = '{B681DD8C-CB40-4D5F-8717-3335972EB8EF}';
RID_RemesasProveedor_Refresh = '{DB725E06-D3E1-4820-9256-20F5FA83DDF0}'; RID_RemesasProveedor_Refresh = '{56DD2E63-E0E0-47F8-9840-044CC0BB101E}';
{ Data table names } { Data table names }
nme_darReferencia = 'darReferencia'; nme_darReferencia = 'darReferencia';
@ -28,6 +28,7 @@ const
fld_RemesasProveedorID = 'ID'; fld_RemesasProveedorID = 'ID';
fld_RemesasProveedorID_EMPRESA = 'ID_EMPRESA'; fld_RemesasProveedorID_EMPRESA = 'ID_EMPRESA';
fld_RemesasProveedorREFERENCIA = 'REFERENCIA'; fld_RemesasProveedorREFERENCIA = 'REFERENCIA';
fld_RemesasProveedorTIPO = 'TIPO';
fld_RemesasProveedorFECHA_REMESA = 'FECHA_REMESA'; fld_RemesasProveedorFECHA_REMESA = 'FECHA_REMESA';
fld_RemesasProveedorDESCRIPCION = 'DESCRIPCION'; fld_RemesasProveedorDESCRIPCION = 'DESCRIPCION';
fld_RemesasProveedorUSUARIO = 'USUARIO'; fld_RemesasProveedorUSUARIO = 'USUARIO';
@ -47,25 +48,27 @@ const
idx_RemesasProveedorID = 0; idx_RemesasProveedorID = 0;
idx_RemesasProveedorID_EMPRESA = 1; idx_RemesasProveedorID_EMPRESA = 1;
idx_RemesasProveedorREFERENCIA = 2; idx_RemesasProveedorREFERENCIA = 2;
idx_RemesasProveedorFECHA_REMESA = 3; idx_RemesasProveedorTIPO = 3;
idx_RemesasProveedorDESCRIPCION = 4; idx_RemesasProveedorFECHA_REMESA = 4;
idx_RemesasProveedorUSUARIO = 5; idx_RemesasProveedorDESCRIPCION = 5;
idx_RemesasProveedorID_DATOS_BANCO = 6; idx_RemesasProveedorUSUARIO = 6;
idx_RemesasProveedorFECHA_ALTA = 7; idx_RemesasProveedorID_DATOS_BANCO = 7;
idx_RemesasProveedorFECHA_MODIFICACION = 8; idx_RemesasProveedorFECHA_ALTA = 8;
idx_RemesasProveedorIMPORTE_TOTAL = 9; idx_RemesasProveedorFECHA_MODIFICACION = 9;
idx_RemesasProveedorNOMBRE = 10; idx_RemesasProveedorIMPORTE_TOTAL = 10;
idx_RemesasProveedorENTIDAD = 11; idx_RemesasProveedorNOMBRE = 11;
idx_RemesasProveedorSUCURSAL = 12; idx_RemesasProveedorENTIDAD = 12;
idx_RemesasProveedorDC = 13; idx_RemesasProveedorSUCURSAL = 13;
idx_RemesasProveedorCUENTA = 14; idx_RemesasProveedorDC = 14;
idx_RemesasProveedorSUFIJO_N19 = 15; idx_RemesasProveedorCUENTA = 15;
idx_RemesasProveedorSUFIJO_N58 = 16; idx_RemesasProveedorSUFIJO_N19 = 16;
idx_RemesasProveedorSUFIJO_N58 = 17;
{ RemesasProveedor_Refresh fields } { RemesasProveedor_Refresh fields }
fld_RemesasProveedor_RefreshID = 'ID'; fld_RemesasProveedor_RefreshID = 'ID';
fld_RemesasProveedor_RefreshID_EMPRESA = 'ID_EMPRESA'; fld_RemesasProveedor_RefreshID_EMPRESA = 'ID_EMPRESA';
fld_RemesasProveedor_RefreshREFERENCIA = 'REFERENCIA'; fld_RemesasProveedor_RefreshREFERENCIA = 'REFERENCIA';
fld_RemesasProveedor_RefreshTIPO = 'TIPO';
fld_RemesasProveedor_RefreshFECHA_REMESA = 'FECHA_REMESA'; fld_RemesasProveedor_RefreshFECHA_REMESA = 'FECHA_REMESA';
fld_RemesasProveedor_RefreshDESCRIPCION = 'DESCRIPCION'; fld_RemesasProveedor_RefreshDESCRIPCION = 'DESCRIPCION';
fld_RemesasProveedor_RefreshUSUARIO = 'USUARIO'; fld_RemesasProveedor_RefreshUSUARIO = 'USUARIO';
@ -85,25 +88,26 @@ const
idx_RemesasProveedor_RefreshID = 0; idx_RemesasProveedor_RefreshID = 0;
idx_RemesasProveedor_RefreshID_EMPRESA = 1; idx_RemesasProveedor_RefreshID_EMPRESA = 1;
idx_RemesasProveedor_RefreshREFERENCIA = 2; idx_RemesasProveedor_RefreshREFERENCIA = 2;
idx_RemesasProveedor_RefreshFECHA_REMESA = 3; idx_RemesasProveedor_RefreshTIPO = 3;
idx_RemesasProveedor_RefreshDESCRIPCION = 4; idx_RemesasProveedor_RefreshFECHA_REMESA = 4;
idx_RemesasProveedor_RefreshUSUARIO = 5; idx_RemesasProveedor_RefreshDESCRIPCION = 5;
idx_RemesasProveedor_RefreshID_DATOS_BANCO = 6; idx_RemesasProveedor_RefreshUSUARIO = 6;
idx_RemesasProveedor_RefreshFECHA_ALTA = 7; idx_RemesasProveedor_RefreshID_DATOS_BANCO = 7;
idx_RemesasProveedor_RefreshFECHA_MODIFICACION = 8; idx_RemesasProveedor_RefreshFECHA_ALTA = 8;
idx_RemesasProveedor_RefreshIMPORTE_TOTAL = 9; idx_RemesasProveedor_RefreshFECHA_MODIFICACION = 9;
idx_RemesasProveedor_RefreshNOMBRE = 10; idx_RemesasProveedor_RefreshIMPORTE_TOTAL = 10;
idx_RemesasProveedor_RefreshENTIDAD = 11; idx_RemesasProveedor_RefreshNOMBRE = 11;
idx_RemesasProveedor_RefreshSUCURSAL = 12; idx_RemesasProveedor_RefreshENTIDAD = 12;
idx_RemesasProveedor_RefreshDC = 13; idx_RemesasProveedor_RefreshSUCURSAL = 13;
idx_RemesasProveedor_RefreshCUENTA = 14; idx_RemesasProveedor_RefreshDC = 14;
idx_RemesasProveedor_RefreshSUFIJO_N19 = 15; idx_RemesasProveedor_RefreshCUENTA = 15;
idx_RemesasProveedor_RefreshSUFIJO_N58 = 16; idx_RemesasProveedor_RefreshSUFIJO_N19 = 16;
idx_RemesasProveedor_RefreshSUFIJO_N58 = 17;
type type
{ IdarReferencia } { IdarReferencia }
IdarReferencia = interface(IDAStronglyTypedDataTable) IdarReferencia = interface(IDAStronglyTypedDataTable)
['{419EF698-F812-4BB2-AF2E-4BDCAF09060F}'] ['{117BD92C-DD52-4B6F-840D-675FF8A7BB4B}']
{ Property getters and setters } { Property getters and setters }
function GetVALORValue: String; function GetVALORValue: String;
procedure SetVALORValue(const aValue: String); procedure SetVALORValue(const aValue: String);
@ -132,7 +136,7 @@ type
{ IRemesasProveedor } { IRemesasProveedor }
IRemesasProveedor = interface(IDAStronglyTypedDataTable) IRemesasProveedor = interface(IDAStronglyTypedDataTable)
['{88EC9B27-C7D8-4C82-8E83-29E8F70DBB66}'] ['{23B52BF8-6AAD-4393-96A3-F66CAA606CF5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -140,6 +144,8 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
function GetREFERENCIAValue: String; function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetTIPOValue: String;
procedure SetTIPOValue(const aValue: String);
function GetFECHA_REMESAValue: DateTime; function GetFECHA_REMESAValue: DateTime;
procedure SetFECHA_REMESAValue(const aValue: DateTime); procedure SetFECHA_REMESAValue(const aValue: DateTime);
function GetDESCRIPCIONValue: String; function GetDESCRIPCIONValue: String;
@ -174,6 +180,7 @@ type
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; 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 FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
@ -201,6 +208,8 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
function GetFECHA_REMESAValue: DateTime; virtual; function GetFECHA_REMESAValue: DateTime; virtual;
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONValue: String; virtual;
@ -234,6 +243,7 @@ type
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; 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 FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
@ -257,7 +267,7 @@ type
{ IRemesasProveedor_Refresh } { IRemesasProveedor_Refresh }
IRemesasProveedor_Refresh = interface(IDAStronglyTypedDataTable) IRemesasProveedor_Refresh = interface(IDAStronglyTypedDataTable)
['{53C9C363-9E14-448C-9201-52DB64D0B000}'] ['{DE94F87C-D124-425E-868D-607F9F21A92C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -265,6 +275,8 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); procedure SetID_EMPRESAValue(const aValue: Integer);
function GetREFERENCIAValue: String; function GetREFERENCIAValue: String;
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetTIPOValue: String;
procedure SetTIPOValue(const aValue: String);
function GetFECHA_REMESAValue: DateTime; function GetFECHA_REMESAValue: DateTime;
procedure SetFECHA_REMESAValue(const aValue: DateTime); procedure SetFECHA_REMESAValue(const aValue: DateTime);
function GetDESCRIPCIONValue: String; function GetDESCRIPCIONValue: String;
@ -299,6 +311,7 @@ type
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; 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 FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
@ -326,6 +339,8 @@ type
procedure SetID_EMPRESAValue(const aValue: Integer); virtual; procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetTIPOValue: String; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
function GetFECHA_REMESAValue: DateTime; virtual; function GetFECHA_REMESAValue: DateTime; virtual;
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
function GetDESCRIPCIONValue: String; virtual; function GetDESCRIPCIONValue: String; virtual;
@ -359,6 +374,7 @@ type
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue; property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; 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 FECHA_REMESA: DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue; property USUARIO: String read GetUSUARIOValue write SetUSUARIOValue;
@ -447,6 +463,16 @@ begin
DataTable.Fields[idx_RemesasProveedorREFERENCIA].AsString := aValue; DataTable.Fields[idx_RemesasProveedorREFERENCIA].AsString := aValue;
end; 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; function TRemesasProveedorDataTableRules.GetFECHA_REMESAValue: DateTime;
begin begin
result := DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].AsDateTime; result := DataTable.Fields[idx_RemesasProveedorFECHA_REMESA].AsDateTime;
@ -629,6 +655,16 @@ begin
DataTable.Fields[idx_RemesasProveedor_RefreshREFERENCIA].AsString := aValue; DataTable.Fields[idx_RemesasProveedor_RefreshREFERENCIA].AsString := aValue;
end; 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; function TRemesasProveedor_RefreshDataTableRules.GetFECHA_REMESAValue: DateTime;
begin begin
result := DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_REMESA].AsDateTime; result := DataTable.Fields[idx_RemesasProveedor_RefreshFECHA_REMESA].AsDateTime;

56
Source/Modulos/Remesas de proveedor/Model/schRemesasProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_darReferenciaDelta = '{137F6E55-880D-4E7A-9E63-2B70A858EB7E}'; RID_darReferenciaDelta = '{1CF21482-DCAA-4AC1-99E1-17E699935E70}';
RID_RemesasProveedorDelta = '{13DBC096-29B3-43C6-8174-3776F2A23352}'; RID_RemesasProveedorDelta = '{3E42591F-5D39-4B25-9D0B-65195F9A748B}';
RID_RemesasProveedor_RefreshDelta = '{357339B7-C872-48D4-A472-875E190B5EE5}'; RID_RemesasProveedor_RefreshDelta = '{98216DA8-39E0-4978-8E23-96992F4135C8}';
type type
{ IdarReferenciaDelta } { IdarReferenciaDelta }
IdarReferenciaDelta = interface(IdarReferencia) IdarReferenciaDelta = interface(IdarReferencia)
['{137F6E55-880D-4E7A-9E63-2B70A858EB7E}'] ['{1CF21482-DCAA-4AC1-99E1-17E699935E70}']
{ Property getters and setters } { Property getters and setters }
function GetOldVALORValue : String; function GetOldVALORValue : String;
@ -45,11 +45,12 @@ type
{ IRemesasProveedorDelta } { IRemesasProveedorDelta }
IRemesasProveedorDelta = interface(IRemesasProveedor) IRemesasProveedorDelta = interface(IRemesasProveedor)
['{13DBC096-29B3-43C6-8174-3776F2A23352}'] ['{3E42591F-5D39-4B25-9D0B-65195F9A748B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldTIPOValue : String;
function GetOldFECHA_REMESAValue : DateTime; function GetOldFECHA_REMESAValue : DateTime;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
@ -69,6 +70,7 @@ type
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldTIPO : String read GetOldTIPOValue;
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
@ -99,6 +101,9 @@ type
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: 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 GetFECHA_REMESAValue: DateTime; virtual;
function GetOldFECHA_REMESAValue: DateTime; virtual; function GetOldFECHA_REMESAValue: DateTime; virtual;
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
@ -149,6 +154,8 @@ type
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; 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 FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
@ -186,11 +193,12 @@ type
{ IRemesasProveedor_RefreshDelta } { IRemesasProveedor_RefreshDelta }
IRemesasProveedor_RefreshDelta = interface(IRemesasProveedor_Refresh) IRemesasProveedor_RefreshDelta = interface(IRemesasProveedor_Refresh)
['{357339B7-C872-48D4-A472-875E190B5EE5}'] ['{98216DA8-39E0-4978-8E23-96992F4135C8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldTIPOValue : String;
function GetOldFECHA_REMESAValue : DateTime; function GetOldFECHA_REMESAValue : DateTime;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
@ -210,6 +218,7 @@ type
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldTIPO : String read GetOldTIPOValue;
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue; property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
@ -240,6 +249,9 @@ type
function GetREFERENCIAValue: String; virtual; function GetREFERENCIAValue: String; virtual;
function GetOldREFERENCIAValue: String; virtual; function GetOldREFERENCIAValue: String; virtual;
procedure SetREFERENCIAValue(const aValue: 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 GetFECHA_REMESAValue: DateTime; virtual;
function GetOldFECHA_REMESAValue: DateTime; virtual; function GetOldFECHA_REMESAValue: DateTime; virtual;
procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual; procedure SetFECHA_REMESAValue(const aValue: DateTime); virtual;
@ -290,6 +302,8 @@ type
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; 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 FECHA_REMESA : DateTime read GetFECHA_REMESAValue write SetFECHA_REMESAValue;
property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue; property OldFECHA_REMESA : DateTime read GetOldFECHA_REMESAValue;
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue; property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
@ -413,6 +427,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorREFERENCIA] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorREFERENCIA] := aValue;
end; 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; function TRemesasProveedorBusinessProcessorRules.GetFECHA_REMESAValue: DateTime;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_REMESA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedorFECHA_REMESA];
@ -680,6 +709,21 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshREFERENCIA] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshREFERENCIA] := aValue;
end; 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; function TRemesasProveedor_RefreshBusinessProcessorRules.GetFECHA_REMESAValue: DateTime;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_REMESA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_RemesasProveedor_RefreshFECHA_REMESA];

5
Source/Modulos/Remesas de proveedor/Model/uBizRemesasProveedor.pas
View File

@ -8,6 +8,10 @@ uses
const const
BIZ_CLIENT_REMESAPROVEEDOR = 'Client.RemesaProveedor'; BIZ_CLIENT_REMESAPROVEEDOR = 'Client.RemesaProveedor';
CTE_TIPO_REMESA = 'REMESA';
CTE_TIPO_TALON = 'TALON';
CTE_TIPO_EFECTIVO = 'EFECTIVO';
CTE_TIPO_TRANSFERENCIA = 'TRANSFERENCIA';
type type
IBizRemesaProveedor = interface(IRemesasProveedor) IBizRemesaProveedor = interface(IRemesasProveedor)
@ -73,6 +77,7 @@ begin
ID_EMPRESA := dmUsuarios.IDEmpresaActual; ID_EMPRESA := dmUsuarios.IDEmpresaActual;
FECHA_REMESA := Date; FECHA_REMESA := Date;
USUARIO := dmUsuarios.LoginInfo.Usuario; USUARIO := dmUsuarios.LoginInfo.Usuario;
TIPO := CTE_TIPO_REMESA;
end; end;
procedure TBizRemesaProveedor.OnNewRecord(Sender: TDADataTable); procedure TBizRemesaProveedor.OnNewRecord(Sender: TDADataTable);

122
Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.dfm
View File

@ -153,6 +153,34 @@ object srvRemesasProveedor: TsrvRemesasProveedor
DisplayLabel = 'REFERENCIA' DisplayLabel = 'REFERENCIA'
Alignment = taLeftJustify Alignment = taLeftJustify
ServerAutoRefresh = True 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> end>
Left = 150 Left = 150
Top = 22 Top = 22
@ -216,10 +244,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'V_REMESAS_PROVEEDOR' TargetTable = 'V_REMESAS_PROVEEDOR'
SQL = SQL =
'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' + 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' +
'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' + #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' +
'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' + 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' +
'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_PROVEEDOR' ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_P' +
'ROVEEDOR'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -289,6 +318,10 @@ object srvRemesasProveedor: TsrvRemesasProveedor
item item
DatasetField = 'SUFIJO_N58' DatasetField = 'SUFIJO_N58'
TableField = 'SUFIJO_N58' TableField = 'SUFIJO_N58'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end> end>
end> end>
Name = 'RemesasProveedor' Name = 'RemesasProveedor'
@ -318,9 +351,18 @@ object srvRemesasProveedor: TsrvRemesasProveedor
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DictionaryEntry = 'RemesasProveedor_REFERENCIA'
Alignment = taLeftJustify InPrimaryKey = False
ServerAutoRefresh = True Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TIPO'
DataType = datString
Size = 40
BlobType = dabtUnknown
DictionaryEntry = 'RemesasProveedor_TIPO'
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -392,10 +434,7 @@ object srvRemesasProveedor: TsrvRemesasProveedor
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown BlobType = dabtUnknown
DisplayWidth = 0 DictionaryEntry = 'RemesasProveedor_IMPORTE_TOTAL'
DisplayLabel = 'Importe total'
Alignment = taRightJustify
ServerAutoRefresh = True
InPrimaryKey = False InPrimaryKey = False
Calculated = False Calculated = False
Lookup = False Lookup = False
@ -495,11 +534,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'V_REMESAS_PROVEEDOR' TargetTable = 'V_REMESAS_PROVEEDOR'
SQL = SQL =
'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' FECHA_REMESA,'#10' DESCR' + 'SELECT'#10' ID,'#10' ID_EMPRESA,'#10' REFERENCIA,'#10' TIPO,'#10' FECHA_REMESA,' +
'IPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' ' + #10' DESCRIPCION,'#10' ID_DATOS_BANCO,'#10' FECHA_ALTA,'#10' FECHA_MODIFICA' +
'USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA,'#10' SUFI' + 'CION,'#10' USUARIO,'#10' NOMBRE,'#10' ENTIDAD,'#10' SUCURSAL,'#10' DC,'#10' CUENTA' +
'JO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_PROVEEDOR' + ','#10' SUFIJO_N19,'#10' SUFIJO_N58,'#10' IMPORTE_TOTAL'#10'FROM'#10' V_REMESAS_P' +
#10'WHERE ID = :ID' 'ROVEEDOR'#10'WHERE ID = :ID'
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -570,6 +609,10 @@ object srvRemesasProveedor: TsrvRemesasProveedor
item item
DatasetField = 'SUFIJO_N58' DatasetField = 'SUFIJO_N58'
TableField = 'SUFIJO_N58' TableField = 'SUFIJO_N58'
end
item
DatasetField = 'TIPO'
TableField = 'TIPO'
end> end>
end> end>
Name = 'RemesasProveedor_Refresh' Name = 'RemesasProveedor_Refresh'
@ -607,6 +650,17 @@ object srvRemesasProveedor: TsrvRemesasProveedor
Lookup = False Lookup = False
LookupCache = False LookupCache = False
end end
item
Name = 'TIPO'
DataType = datString
Size = 40
BlobType = dabtUnknown
DictionaryEntry = 'RemesasProveedor_TIPO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item item
Name = 'FECHA_REMESA' Name = 'FECHA_REMESA'
DataType = datDateTime DataType = datDateTime
@ -817,6 +871,14 @@ object srvRemesasProveedor: TsrvRemesasProveedor
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'TIPO'
DataType = datString
Size = 40
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'FECHA_REMESA' Name = 'FECHA_REMESA'
DataType = datDateTime DataType = datDateTime
@ -873,11 +935,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'REMESAS_PROVEEDOR' TargetTable = 'REMESAS_PROVEEDOR'
SQL = SQL =
'INSERT'#10' INTO REMESAS_PROVEEDOR'#10' (ID, REFERENCIA, FECHA_REMES' + 'INSERT'#10' INTO REMESAS_PROVEEDOR'#10' (ID, REFERENCIA, TIPO, FECHA' +
'A, DESCRIPCION, USUARIO, ID_EMPRESA,'#10' ID_DATOS_BANCO, FECHA_' + '_REMESA, DESCRIPCION, USUARIO, ID_EMPRESA,'#10' ID_DATOS_BANCO, ' +
'ALTA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :REFERENCIA, :FECHA' + 'FECHA_ALTA, FECHA_MODIFICACION)'#10' VALUES'#10' (:ID, :REFERENCIA, ' +
'_REMESA, :DESCRIPCION, :USUARIO,'#10' :ID_EMPRESA, :ID_DATOS_BAN' + ':TIPO, :FECHA_REMESA, :DESCRIPCION, :USUARIO,'#10' :ID_EMPRESA, ' +
'CO, :FECHA_ALTA,'#10' :FECHA_MODIFICACION)' ':ID_DATOS_BANCO, :FECHA_ALTA,'#10' :FECHA_MODIFICACION)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -912,6 +974,14 @@ object srvRemesasProveedor: TsrvRemesasProveedor
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end end
item
Name = 'TIPO'
DataType = datString
Size = 40
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item item
Name = 'FECHA_REMESA' Name = 'FECHA_REMESA'
DataType = datDateTime DataType = datDateTime
@ -976,11 +1046,11 @@ object srvRemesasProveedor: TsrvRemesasProveedor
TargetTable = 'REMESAS_PROVEEDOR' TargetTable = 'REMESAS_PROVEEDOR'
SQL = SQL =
'UPDATE REMESAS_PROVEEDOR'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' ' + 'UPDATE REMESAS_PROVEEDOR'#10' SET '#10' REFERENCIA = :REFERENCIA, '#10' ' +
' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPCION = :DESCRIPCION' + ' TIPO = :TIPO,'#10' FECHA_REMESA = :FECHA_REMESA, '#10' DESCRIPC' +
', '#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :ID_EMPRESA, '#10' I' + 'ION = :DESCRIPCION, '#10' USUARIO = :USUARIO, '#10' ID_EMPRESA = :' +
'D_DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALTA = :FECHA_ALTA, '#10 + 'ID_EMPRESA, '#10' ID_DATOS_BANCO = :ID_DATOS_BANCO,'#10' FECHA_ALT' +
' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE'#10' (ID = :' + 'A = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' ' +
'OLD_ID)' ' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

18
Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.dfm
View File

@ -49,7 +49,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Width = 676 Width = 676
ExplicitWidth = 676 ExplicitWidth = 676
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 482 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -118,9 +118,9 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ExplicitHeight = 369 ExplicitHeight = 369
inline frViewRecibosRemesaProveedor1: TfrViewRecibosRemesaProveedor inline frViewRecibosRemesaProveedor1: TfrViewRecibosRemesaProveedor
Left = 0 Left = 0
Top = 130 Top = 145
Width = 668 Width = 668
Height = 239 Height = 224
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -135,7 +135,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
ExplicitHeight = 239 ExplicitHeight = 239
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 668 Width = 668
Height = 214 Height = 199
ExplicitWidth = 668 ExplicitWidth = 668
ExplicitHeight = 214 ExplicitHeight = 214
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
@ -157,7 +157,7 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 668 Width = 668
Height = 130 Height = 145
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -168,10 +168,10 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
TabOrder = 1 TabOrder = 1
ReadOnly = False ReadOnly = False
ExplicitWidth = 668 ExplicitWidth = 668
ExplicitHeight = 130 ExplicitHeight = 145
inherited dxLayoutControlRemesaProveedor: TdxLayoutControl inherited dxLayoutControlRemesaProveedor: TdxLayoutControl
Width = 668 Width = 668
Height = 130 Height = 145
ExplicitWidth = 668 ExplicitWidth = 668
ExplicitHeight = 130 ExplicitHeight = 130
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
@ -183,8 +183,8 @@ inherited fEditorRemesaProveedor: TfEditorRemesaProveedor
Width = 108 Width = 108
end end
inherited edtFechaRemesa: TcxDBDateEdit inherited edtFechaRemesa: TcxDBDateEdit
Left = 419 Left = 411
ExplicitLeft = 419 ExplicitLeft = 411
ExplicitWidth = 170 ExplicitWidth = 170
Width = 170 Width = 170
end end

38
Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.dfm
View File

@ -1,6 +1,6 @@
inherited frViewRemesaProveedor: TfrViewRemesaProveedor inherited frViewRemesaProveedor: TfrViewRemesaProveedor
Width = 451 Width = 451
Height = 304 Height = 160
Align = alClient Align = alClient
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
@ -8,15 +8,16 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 451
Height = 304 Height = 160
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitHeight = 304
DesignSize = ( DesignSize = (
451 451
304) 160)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 110 Left = 110
Top = 30 Top = 30
@ -42,7 +43,7 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
end end
object eDescripcion: TcxDBTextEdit object eDescripcion: TcxDBTextEdit
Left = 110 Left = 110
Top = 84 Top = 111
DataBinding.DataField = 'DESCRIPCION' DataBinding.DataField = 'DESCRIPCION'
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -57,7 +58,7 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 TabOrder = 4
Width = 108 Width = 108
end end
object edtFechaRemesa: TcxDBDateEdit object edtFechaRemesa: TcxDBDateEdit
@ -114,6 +115,28 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
TabOrder = 2 TabOrder = 2
Width = 39 Width = 39
end 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 object dxLayoutControlRemesaProveedorGroup_Root: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -153,6 +176,11 @@ inherited frViewRemesaProveedor: TfrViewRemesaProveedor
Control = cbCuentaBancaria Control = cbCuentaBancaria
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlRemesaProveedorItem1: TdxLayoutItem
Caption = 'Forma de pago:'
Control = cbTipo
ControlOptions.ShowBorder = False
end
object dxLayoutControlRemesaProveedorItem8: TdxLayoutItem object dxLayoutControlRemesaProveedorItem8: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient

36
Source/Modulos/Remesas de proveedor/Views/uViewRemesaProveedor.pas
View File

@ -11,7 +11,8 @@ uses
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit, ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
uFamiliasController, cxSpinEdit, cxCurrencyEdit, uFamiliasController, cxSpinEdit, cxCurrencyEdit,
uBizRemesasProveedor, uRemesasProveedorController, cxCalendar, uBizRemesasProveedor, uRemesasProveedorController, cxCalendar,
dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox; dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,
cxImageComboBox;
type type
IViewRemesaProveedor = interface(IViewBase) IViewRemesaProveedor = interface(IViewBase)
@ -44,6 +45,8 @@ type
cbCuentaBancaria: TcxDBLookupComboBox; cbCuentaBancaria: TcxDBLookupComboBox;
dsDatosBanco: TDADataSource; dsDatosBanco: TDADataSource;
dxLayoutControlRemesaProveedorGroup2: TdxLayoutGroup; dxLayoutControlRemesaProveedorGroup2: TdxLayoutGroup;
dxLayoutControlRemesaProveedorItem1: TdxLayoutItem;
cbTipo: TcxDBImageComboBox;
protected protected
FController: IRemesasProveedorController; FController: IRemesasProveedorController;
@ -55,6 +58,7 @@ type
public public
property RemesaProveedor: IBizRemesaProveedor read GetRemesaProveedor write SetRemesaProveedor; property RemesaProveedor: IBizRemesaProveedor read GetRemesaProveedor write SetRemesaProveedor;
property Controller : IRemesasProveedorController read GetController write SetController; property Controller : IRemesasProveedorController read GetController write SetController;
constructor Create(AOwner: TComponent); override;
end; end;
implementation implementation
@ -76,6 +80,36 @@ begin
Result := FRemesaProveedor; Result := FRemesaProveedor;
end; 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; function TfrViewRemesaProveedor.GetController: IRemesasProveedorController;
begin begin
Result := FController; Result := FController;

30
Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.dfm
View File

@ -1,7 +1,10 @@
inherited frViewRemesasProveedor: TfrViewRemesasProveedor inherited frViewRemesasProveedor: TfrViewRemesasProveedor
Height = 397
ExplicitHeight = 397
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Height = 269
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.KeyFieldNames = 'ID' DataController.KeyFieldNames = 'RecID'
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
Format = ',0.00 '#8364';-,0.00 '#8364 Format = ',0.00 '#8364';-,0.00 '#8364
@ -33,19 +36,14 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
DataBinding.FieldName = 'RecID' DataBinding.FieldName = 'RecID'
Visible = False Visible = False
end end
object cxGridViewID: TcxGridDBColumn
DataBinding.FieldName = 'ID'
Visible = False
end
object cxGridViewID_EMPRESA: TcxGridDBColumn
DataBinding.FieldName = 'ID_EMPRESA'
Visible = False
end
object cxGridViewREFERENCIA: TcxGridDBColumn object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia' Caption = 'Referencia'
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
Width = 118 Width = 118
end end
object cxGridViewTIPO: TcxGridDBColumn
DataBinding.FieldName = 'TIPO'
end
object cxGridViewFECHA_REMESA: TcxGridDBColumn object cxGridViewFECHA_REMESA: TcxGridDBColumn
Caption = 'Fecha de cargo' Caption = 'Fecha de cargo'
DataBinding.FieldName = 'FECHA_REMESA' DataBinding.FieldName = 'FECHA_REMESA'
@ -76,19 +74,12 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
DataBinding.FieldName = 'CUENTA' DataBinding.FieldName = 'CUENTA'
Visible = False Visible = False
end 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 object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe' Caption = 'Importe'
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 128 Width = 128
end end
@ -98,6 +89,7 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 550
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273 ExplicitWidth = 273
Width = 273 Width = 273
@ -114,6 +106,10 @@ inherited frViewRemesasProveedor: TfrViewRemesasProveedor
end end
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel
Top = 371
ExplicitWidth = 554
end
inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinter: TdxComponentPrinter
inherited dxComponentPrinterLink: TdxGridReportLink inherited dxComponentPrinterLink: TdxGridReportLink
ReportDocument.CreationDate = 38673.842406053240000000 ReportDocument.CreationDate = 38673.842406053240000000

5
Source/Modulos/Remesas de proveedor/Views/uViewRemesasProveedor.pas
View File

@ -27,8 +27,6 @@ type
TfrViewRemesasProveedor = class(TfrViewGrid, IViewRemesasProveedor) TfrViewRemesasProveedor = class(TfrViewGrid, IViewRemesasProveedor)
PngImageList: TPngImageList; PngImageList: TPngImageList;
cxGridViewRecID: TcxGridDBColumn; cxGridViewRecID: TcxGridDBColumn;
cxGridViewID: TcxGridDBColumn;
cxGridViewID_EMPRESA: TcxGridDBColumn;
cxGridViewREFERENCIA: TcxGridDBColumn; cxGridViewREFERENCIA: TcxGridDBColumn;
cxGridViewFECHA_REMESA: TcxGridDBColumn; cxGridViewFECHA_REMESA: TcxGridDBColumn;
cxGridViewDESCRIPCION: TcxGridDBColumn; cxGridViewDESCRIPCION: TcxGridDBColumn;
@ -38,8 +36,7 @@ type
cxGridViewSUCURSAL: TcxGridDBColumn; cxGridViewSUCURSAL: TcxGridDBColumn;
cxGridViewDC: TcxGridDBColumn; cxGridViewDC: TcxGridDBColumn;
cxGridViewCUENTA: TcxGridDBColumn; cxGridViewCUENTA: TcxGridDBColumn;
cxGridViewSUFIJO_N19: TcxGridDBColumn; cxGridViewTIPO: TcxGridDBColumn;
cxGridViewSUFIJO_N58: TcxGridDBColumn;
procedure cxGridViewIDCustomDrawCell( procedure cxGridViewIDCustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -63,8 +63,6 @@ uses
uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS', uBizAlbaranProveedorServer in '..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS',
srvRecibosCliente_Impl in '..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas' {srvRecibosCliente: TDARemoteService}, 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}, 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', uBizRemesasClienteServer in '..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas',
uRptRemesasCliente_Server in '..\Modulos\Remesas de cliente\Reports\uRptRemesasCliente_Server.pas' {RptRemesasCliente: TDataModule}, 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}, 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}, 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}, 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}, 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', uBizRemesasProveedorServer in '..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas',
srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDARemoteService}, srvReferencias_Impl in '..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas' {srvReferencias: TDARemoteService},
schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas', schReferenciasClient_Intf in '..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas',
@ -126,7 +122,11 @@ uses
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas', schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas', schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas', schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas'; schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}