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

Primera adaptacion de facturas de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@11 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-01-13 18:30:03 +00:00
parent 636b736c6e
commit 52ca8b9345
117 changed files with 3417 additions and 1111 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
Database/scripts/factuges.sql
View File

@ -291,7 +291,9 @@ CREATE TABLE ALBARANES_CLIENTE (
FECHA_ENVIO DATE, FECHA_ENVIO DATE,
FECHA_RECEPCION DATE, FECHA_RECEPCION DATE,
FECHA_PREVISTA_ENVIO DATE, FECHA_PREVISTA_ENVIO DATE,
REFERENCIA_CLIENTE VARCHAR(255) REFERENCIA_CLIENTE VARCHAR(255),
DESCUENTO2 TIPO_PORCENTAJE,
IMPORTE_DESCUENTO2 TIPO_IMPORTE
); );
CREATE TABLE ALBARANES_CLIENTE_DETALLES ( CREATE TABLE ALBARANES_CLIENTE_DETALLES (
@ -467,7 +469,8 @@ CREATE TABLE CLIENTES_DATOS (
VENCIMIENTO_FACTURAS_1 SMALLINT, VENCIMIENTO_FACTURAS_1 SMALLINT,
VENCIMIENTO_FACTURAS_2 SMALLINT, VENCIMIENTO_FACTURAS_2 SMALLINT,
VENCIMIENTO_FACTURAS_3 SMALLINT, VENCIMIENTO_FACTURAS_3 SMALLINT,
FELICITACION TIPO_BOOLEANO FELICITACION TIPO_BOOLEANO,
DESCUENTO2 TIPO_PORCENTAJE
); );
CREATE TABLE CLIENTES_DTOS_PROVEEDORES ( CREATE TABLE CLIENTES_DTOS_PROVEEDORES (
@ -697,7 +700,9 @@ CREATE TABLE FACTURAS_CLIENTE (
DATOS_BANCARIOS VARCHAR(255), DATOS_BANCARIOS VARCHAR(255),
CLIENTE_FINAL VARCHAR(255), CLIENTE_FINAL VARCHAR(255),
RETENCION TIPO_PORCENTAJE, RETENCION TIPO_PORCENTAJE,
IMPORTE_RETENCION TIPO_IMPORTE IMPORTE_RETENCION TIPO_IMPORTE,
DESCUENTO2 TIPO_PORCENTAJE,
IMPORTE_DESCUENTO2 TIPO_IMPORTE
); );
CREATE TABLE FACTURAS_CLIENTE_DETALLES ( CREATE TABLE FACTURAS_CLIENTE_DETALLES (
@ -1366,7 +1371,9 @@ CREATE VIEW V_ALBARANES_CLIENTE(
ID_FORMA_PAGO, ID_FORMA_PAGO,
FECHA_PREVISTA_ENVIO, FECHA_PREVISTA_ENVIO,
FECHA_ENVIO, FECHA_ENVIO,
FECHA_RECEPCION) FECHA_RECEPCION,
DESCUENTO2,
IMPORTE_DESCUENTO2)
AS AS
SELECT SELECT
ALBARANES_CLIENTE.ID, ALBARANES_CLIENTE.ID,
@ -1408,7 +1415,9 @@ SELECT
ALBARANES_CLIENTE.ID_FORMA_PAGO, ALBARANES_CLIENTE.ID_FORMA_PAGO,
ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO, ALBARANES_CLIENTE.FECHA_PREVISTA_ENVIO,
ALBARANES_CLIENTE.FECHA_ENVIO, ALBARANES_CLIENTE.FECHA_ENVIO,
ALBARANES_CLIENTE.FECHA_RECEPCION ALBARANES_CLIENTE.FECHA_RECEPCION,
ALBARANES_CLIENTE.DESCUENTO2,
ALBARANES_CLIENTE.IMPORTE_DESCUENTO2
FROM FROM
ALBARANES_CLIENTE ALBARANES_CLIENTE
LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE) LEFT OUTER JOIN CONTACTOS ON (CONTACTOS.ID = ALBARANES_CLIENTE.ID_CLIENTE)
@ -1790,6 +1799,7 @@ CREATE VIEW V_CLIENTES(
ID_FORMA_PAGO, ID_FORMA_PAGO,
TIENDA_WEB, TIENDA_WEB,
DESCUENTO, DESCUENTO,
DESCUENTO2,
FELICITACION) FELICITACION)
AS AS
SELECT SELECT
@ -1830,6 +1840,7 @@ SELECT
CLIENTES_DATOS.ID_FORMA_PAGO, CLIENTES_DATOS.ID_FORMA_PAGO,
CLIENTES_DATOS.TIENDA_WEB, CLIENTES_DATOS.TIENDA_WEB,
CLIENTES_DATOS.DESCUENTO, CLIENTES_DATOS.DESCUENTO,
CLIENTES_DATOS.DESCUENTO2,
CLIENTES_DATOS.FELICITACION CLIENTES_DATOS.FELICITACION
FROM FROM
V_CONTACTOS V_CONTACTOS
@ -2162,7 +2173,9 @@ CREATE VIEW V_FACTURAS_CLIENTE(
ID_AGENTE, ID_AGENTE,
REFERENCIA_COMISION, REFERENCIA_COMISION,
RETENCION, RETENCION,
IMPORTE_RETENCION) IMPORTE_RETENCION,
DESCUENTO2,
IMPORTE_DESCUENTO2)
AS AS
SELECT FACTURAS_CLIENTE.ID, SELECT FACTURAS_CLIENTE.ID,
FACTURAS_CLIENTE.ID_EMPRESA, FACTURAS_CLIENTE.ID_EMPRESA,
@ -2203,7 +2216,10 @@ SELECT FACTURAS_CLIENTE.ID,
CLIENTES_DATOS.ID_AGENTE, CLIENTES_DATOS.ID_AGENTE,
COMISIONES_LIQUIDADAS.REFERENCIA, COMISIONES_LIQUIDADAS.REFERENCIA,
FACTURAS_CLIENTE.RETENCION, FACTURAS_CLIENTE.RETENCION,
FACTURAS_CLIENTE.IMPORTE_RETENCION FACTURAS_CLIENTE.IMPORTE_RETENCION,
FACTURAS_CLIENTE.DESCUENTO2,
FACTURAS_CLIENTE.IMPORTE_DESCUENTO2
FROM V_FAC_CLI_SITUACION FROM V_FAC_CLI_SITUACION
LEFT JOIN FACTURAS_CLIENTE LEFT JOIN FACTURAS_CLIENTE
ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA) ON (FACTURAS_CLIENTE.ID = V_FAC_CLI_SITUACION.ID_FACTURA)

11
Database/scripts/factuges_sysdata.sql
View File

@ -24,7 +24,7 @@ COMMIT WORK;
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (1, 1, 'REF_FACTURAS_CLIENTE', 'FAC08/000001', 'Ref. facturas de cliente'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (1, 1, 'REF_FACTURAS_CLIENTE', 'FAC08/000001', 'Ref. facturas de cliente');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (2, 1, 'REF_PEDIDOS_PROVEEDOR', 'PED08/000001', 'Ref. pedidos de proveedor'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (2, 1, 'REF_PEDIDOS_PROVEEDOR', 'PED08/000001', 'Ref. pedidos de proveedor');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (3, 1, 'REF_ALBARANES_CLIENTE', 'ALB08/000001', 'Ref. albaranes de cliente'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (3, NULL, 'REF_ALBARANES_CLIENTE', 'ALB08/000001', 'Ref. albaranes de cliente');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (4, 1, 'REF_ALBARANES_PROVEEDOR', 'ALP08/000001', 'Ref. albaranes de proveedor'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (4, 1, 'REF_ALBARANES_PROVEEDOR', 'ALP08/000001', 'Ref. albaranes de proveedor');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (5, 1, 'REF_REMESAS_CLIENTE', 'REM08/000001', 'Ref. remesas de cliente'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (5, 1, 'REF_REMESAS_CLIENTE', 'REM08/000001', 'Ref. remesas de cliente');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (6, 1, 'REF_FACTURAS_PROVEEDOR', 'FAP08/000001', 'Ref. facturas de proveedor'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (6, 1, 'REF_FACTURAS_PROVEEDOR', 'FAP08/000001', 'Ref. facturas de proveedor');
@ -37,8 +37,10 @@ INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (12,
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (13, NULL, 'REF_EMPLEADOS', '00001', 'Ref. empleados'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (13, NULL, 'REF_EMPLEADOS', '00001', 'Ref. empleados');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (14, NULL, 'REF_ARTICULOS', '1', 'Ref. artículos'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (14, NULL, 'REF_ARTICULOS', '1', 'Ref. artículos');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (15, NULL, 'REF_VENDEDORES', '0000000001', 'Ref. vendedores'); INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (15, NULL, 'REF_VENDEDORES', '0000000001', 'Ref. vendedores');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (16, 2, 'REF_FACTURAS_CLIENTE', 'FAC08/000001', 'Ref. facturas de cliente');
INSERT INTO REFERENCIAS (ID, ID_EMPRESA, CODIGO, VALOR, DESCRIPCION) VALUES (17, 2, 'REF_REMESAS_CLIENTE', 'REM08/000001', 'Ref. remesas de cliente');
SET GENERATOR GEN_REFERENCIAS_ID TO 16; SET GENERATOR GEN_REFERENCIAS_ID TO 18;
COMMIT WORK; COMMIT WORK;
INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (1, 'IVA16', 'IVA16', 16, 4); INSERT INTO TIPOS_IVA (ID, REFERENCIA, DESCRIPCION, IVA, RE) VALUES (1, 'IVA16', 'IVA16', 16, 4);
@ -97,7 +99,8 @@ INSERT INTO FORMAS_PAGO_PLAZOS (ID, ID_FORMA_PAGO, NUM_DIAS, PORCENTAJE) VALUES
SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 24; SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 24;
COMMIT WORK; COMMIT WORK;
INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (1, '-', 'NOVISEDA S.L.', 'NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -'); INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (1, '', 'NOVISEDA S.L.', 'NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -');
SET GENERATOR GEN_EMPRESAS_ID TO 2; INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL) VALUES (2, '', 'PRUEBAS - NOVISEDA S.L.', 'PRUEBAS - NOVISEDA S.L.', '-', '-', '-', '-', '-', NULL, NULL, NULL, '-', NULL, NULL, NULL, NULL, NULL, NULL, 'Insc. en el Reg. Merc. de -, Tomo -, Libro 0, Folio -, Sección -, Hoja M- CIF: -');
SET GENERATOR GEN_EMPRESAS_ID TO 3;
COMMIT WORK; COMMIT WORK;

4
Source/Cliente/FactuGES.drc
View File

@ -12,10 +12,10 @@ STRINGTABLE
BEGIN BEGIN
END END
/* c:\archivos de programa\codegear\rad studio\5.0\lib\WindowsXP.res */ /* C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\WindowsXP.res */
/* C:\Codigo Noviseda\Lib\JVCL\JvXPCore.res */ /* C:\Codigo Noviseda\Lib\JVCL\JvXPCore.res */
/* C:\Codigo Noviseda\Source\Cliente\uSplash.dfm */ /* C:\Codigo Noviseda\Source\Cliente\uSplash.dfm */
/* C:\Codigo Noviseda\Source\Cliente\uAcercaDe.dfm */ /* C:\Codigo Noviseda\Source\Cliente\uAcercaDe.dfm */
/* C:\Codigo Noviseda\Source\Cliente\uPantallaPrincipal.dfm */ /* C:\Codigo Noviseda\Source\Cliente\uPantallaPrincipal.dfm */
/* C:\Codigo Noviseda\Source\Cliente\FactuGES.res */ /* C:\Codigo Noviseda\Source\Cliente\FactuGES.res */
/* C:\Codigo Noviseda\Source\Cliente\FactuGES.drf */ /* E:\temp\dtf72F.tmp */

BIN
Source/Cliente/FactuGES.identcache
View File

Binary file not shown.

8
Source/Cliente/uBootStrap.pas
View File

@ -36,8 +36,8 @@ begin
// LoadModule(MODULENAME_PRESUPUESTOS_CLIENTE); // LoadModule(MODULENAME_PRESUPUESTOS_CLIENTE);
LoadModule(MODULENAME_ALBARANES_CLIENTE); LoadModule(MODULENAME_ALBARANES_CLIENTE);
// LoadModule('RecibosCliente_plugin.bpl'); LoadModule('RecibosCliente_plugin.bpl');
// LoadModule(MODULENAME_FACTURAS_CLIENTE); LoadModule(MODULENAME_FACTURAS_CLIENTE);
// LoadModule(MODULENAME_PEDIDOS_PROVEEDOR); // LoadModule(MODULENAME_PEDIDOS_PROVEEDOR);
// LoadModule(MODULENAME_ALBARANES_PROVEEDOR); // LoadModule(MODULENAME_ALBARANES_PROVEEDOR);
@ -48,8 +48,8 @@ begin
// LoadModule('RemesasCliente_plugin.bpl'); // LoadModule('RemesasCliente_plugin.bpl');
// LoadModule('RemesasProveedor_plugin.bpl'); // LoadModule('RemesasProveedor_plugin.bpl');
LoadModule('Inventario_plugin.bpl'); // LoadModule('Inventario_plugin.bpl');
LoadModule('HistoricoMovimientos_plugin.bpl'); // LoadModule('HistoricoMovimientos_plugin.bpl');
// LoadModule('GestorInformes_plugin.bpl'); // LoadModule('GestorInformes_plugin.bpl');
end; end;

26
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -232,6 +232,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Top = 88 Top = 88
end end
object GeneralActionList: TActionList object GeneralActionList: TActionList
Images = ModulesSmallImageList
Left = 288 Left = 288
Top = 85 Top = 85
object actSalir: TAction object actSalir: TAction
@ -311,6 +312,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
object actInformacionEmpresa: TAction object actInformacionEmpresa: TAction
Category = 'Empresa' Category = 'Empresa'
Caption = 'Informaci'#243'n de empresa' Caption = 'Informaci'#243'n de empresa'
ImageIndex = 2
OnExecute = actInformacionEmpresaExecute OnExecute = actInformacionEmpresaExecute
OnUpdate = actMenuComprasUpdate OnUpdate = actMenuComprasUpdate
end end
@ -357,6 +359,26 @@ object fPantallaPrincipal: TfPantallaPrincipal
00000049454E44AE426082} 00000049454E44AE426082}
Name = 'PngImage0' Name = 'PngImage0'
Background = clWindow Background = clWindow
end
item
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000774494D45000000000000000973942E000000097048597300001712
0000171201679FD252000001754944415478DA6364C001D6ECBE900CA4E640B9
2921AE0673B1A963C4A739C8598FE1DB8FDF0C33966C67505054C06A08232ECD
3EF6BA0C250B7F315C7FF88F6179E15F86456BF76135841197CD79737F324C4E
E1008BF345BC63B833959561F13A4C4318D13507BBE833E4CEF9C160ACC1C290
60C30296734D5FCD70F2A333564318B1D90CD20C02D72E9C04D33C92A60CAFDF
FF6358B8E71B86218CE87E866986D90E738186A92FC397EF0C0C6B8FA21A0232
E03FBACD5FBEFF07E30A3F36B801323ABE0C3F7FFF67F8FE938161EFC5EF7043
C00678586B32F8B7FD61887167836BFEF59B81A12E186180A8BA0F58F3E76FFF
194EDDFE0136A07DDA1AB001C90FEE3F98131BE4C4A092FD9BA12A8A07AC19E4
67582C800CE051F0C1D06C636994020F44902171214E0CCA99BF19E25DB8E09A
91C301161330CDE040448E46649764D85C473160C6114D0CCD581312B221CEFA
9C589D8D3521E13204047069C69B99608680002ECD380D4036E4C98B77383583
000005100EB8572466A60000000049454E44AE426082}
Name = 'PngImage2'
Background = clWindow
end> end>
Left = 51 Left = 51
Top = 181 Top = 181
@ -659,10 +681,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
Caption = '-' Caption = '-'
end end
end end
object Informes1: TMenuItem
Tag = 6000
Action = actMenuInformes
end
end end
object JvXPMenuItemPainter1: TJvXPMenuItemPainter object JvXPMenuItemPainter1: TJvXPMenuItemPainter
SelectionFrameBrush.Color = 13811126 SelectionFrameBrush.Color = 13811126

1
Source/Cliente/uPantallaPrincipal.pas
View File

@ -89,7 +89,6 @@ type
N9: TMenuItem; N9: TMenuItem;
N10: TMenuItem; N10: TMenuItem;
actMenuEmpresa: TAction; actMenuEmpresa: TAction;
Informes1: TMenuItem;
actMenuInformes: TAction; actMenuInformes: TAction;
actInformacionEmpresa: TAction; actInformacionEmpresa: TAction;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

48
Source/GUIBase/GUIBase.dproj
View File

@ -59,30 +59,30 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\Base.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\cxTreeListD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxBarD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxBarExtItemsD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxComnD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPSCoreD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\frx11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\frxe11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\fs11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\rtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vcldb.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vclx.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Views\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

2
Source/GUIBase/GUIBase.drc
View File

@ -39,4 +39,4 @@ END
/* C:\Codigo Noviseda\Source\GUIBase\uViewDocumentos.dfm */ /* C:\Codigo Noviseda\Source\GUIBase\uViewDocumentos.dfm */
/* C:\Codigo Noviseda\Source\GUIBase\uEditorColores.dfm */ /* C:\Codigo Noviseda\Source\GUIBase\uEditorColores.dfm */
/* C:\Codigo Noviseda\Source\GUIBase\GUIBase.res */ /* C:\Codigo Noviseda\Source\GUIBase\GUIBase.res */
/* C:\Codigo Noviseda\Source\GUIBase\GUIBase.drf */ /* E:\temp\dtf635.tmp */

BIN
Source/GUIBase/GUIBase.identcache
View File

Binary file not shown.

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

38
Source/GUIBase/uViewTotales.dfm
View File

@ -1,9 +1,9 @@
inherited frViewTotales: TfrViewTotales inherited frViewTotales: TfrViewTotales
Width = 451 Width = 829
Height = 252 Height = 278
Align = alBottom Align = alBottom
ExplicitWidth = 451 ExplicitWidth = 800
ExplicitHeight = 252 ExplicitHeight = 278
object Bevel5: TBevel object Bevel5: TBevel
Left = 666 Left = 666
Top = 109 Top = 109
@ -15,8 +15,8 @@ inherited frViewTotales: TfrViewTotales
AlignWithMargins = True AlignWithMargins = True
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 829
Height = 252 Height = 278
Margins.Left = 0 Margins.Left = 0
Margins.Top = 0 Margins.Top = 0
Margins.Right = 0 Margins.Right = 0
@ -26,22 +26,24 @@ inherited frViewTotales: TfrViewTotales
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451
ExplicitHeight = 252
object Bevel3: TBevel object Bevel3: TBevel
Left = 305 Left = 422
Top = 28 Top = 28
Width = 3 Width = 3
Height = 100 Height = 100
Shape = bsRightLine Shape = bsRightLine
end end
object Bevel4: TBevel object Bevel4: TBevel
Left = 417 Left = 534
Top = 70 Top = 70
Width = 342 Width = 342
Height = 9 Height = 9
Shape = bsBottomLine Shape = bsBottomLine
end end
object Bevel1: TBevel object Bevel1: TBevel
Left = 417 Left = 534
Top = 186 Top = 186
Width = 368 Width = 368
Height = 9 Height = 9
@ -90,7 +92,7 @@ inherited frViewTotales: TfrViewTotales
Width = 87 Width = 87
end end
object ImporteIVA: TcxDBCurrencyEdit object ImporteIVA: TcxDBCurrencyEdit
Left = 488 Left = 605
Top = 105 Top = 105
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_IVA' DataBinding.DataField = 'IMPORTE_IVA'
@ -125,7 +127,7 @@ inherited frViewTotales: TfrViewTotales
Width = 20 Width = 20
end end
object ImporteTotal: TcxDBCurrencyEdit object ImporteTotal: TcxDBCurrencyEdit
Left = 418 Left = 535
Top = 159 Top = 159
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_TOTAL' DataBinding.DataField = 'IMPORTE_TOTAL'
@ -195,7 +197,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65 Width = 65
end end
object edtIVA: TcxDBSpinEdit object edtIVA: TcxDBSpinEdit
Left = 417 Left = 534
Top = 105 Top = 105
AutoSize = False AutoSize = False
DataBinding.DataField = 'IVA' DataBinding.DataField = 'IVA'
@ -236,7 +238,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65 Width = 65
end end
object ImporteBase: TcxDBCurrencyEdit object ImporteBase: TcxDBCurrencyEdit
Left = 417 Left = 534
Top = 28 Top = 28
AutoSize = False AutoSize = False
DataBinding.DataField = 'BASE_IMPONIBLE' DataBinding.DataField = 'BASE_IMPONIBLE'
@ -271,7 +273,7 @@ inherited frViewTotales: TfrViewTotales
Width = 91 Width = 91
end end
object edtRE: TcxDBSpinEdit object edtRE: TcxDBSpinEdit
Left = 417 Left = 534
Top = 132 Top = 132
AutoSize = False AutoSize = False
DataBinding.DataField = 'RE' DataBinding.DataField = 'RE'
@ -312,7 +314,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65 Width = 65
end end
object ImporteRE: TcxDBCurrencyEdit object ImporteRE: TcxDBCurrencyEdit
Left = 488 Left = 605
Top = 132 Top = 132
AutoSize = False AutoSize = False
DataBinding.DataField = 'IMPORTE_RE' DataBinding.DataField = 'IMPORTE_RE'
@ -450,7 +452,7 @@ inherited frViewTotales: TfrViewTotales
Width = 20 Width = 20
end end
object bTiposIVA: TButton object bTiposIVA: TButton
Left = 157 Left = 274
Top = 109 Top = 109
Width = 132 Width = 132
Height = 21 Height = 21
@ -488,7 +490,7 @@ inherited frViewTotales: TfrViewTotales
Width = 221 Width = 221
end end
object edtRetencion: TcxDBSpinEdit object edtRetencion: TcxDBSpinEdit
Left = 417 Left = 534
Top = 206 Top = 206
AutoSize = False AutoSize = False
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -527,7 +529,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65 Width = 65
end end
object edtImporteRetencion: TcxDBCurrencyEdit object edtImporteRetencion: TcxDBCurrencyEdit
Left = 488 Left = 605
Top = 206 Top = 206
AutoSize = False AutoSize = False
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource

88
Source/Informes/1/InfAlbaranCliente.fr3
View File

File diff suppressed because one or more lines are too long

2
Source/Modulos/Albaranes de cliente/Controller/AlbaranesCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.res */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Controller\AlbaranesCliente_controller.drf */ /* E:\temp\dtf6BF.tmp */

10
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -203,7 +203,7 @@ end;
function TAlbaranesClienteController.Buscar(const ID: Integer): IBizAlbaranCliente; function TAlbaranesClienteController.Buscar(const ID: Integer): IBizAlbaranCliente;
begin begin
Result := FDataModule.GetItem(ID); Result := FDataModule.GetItem(ID);
FiltrarEmpresa(Result); // FiltrarEmpresa(Result);
end; end;
function TAlbaranesClienteController.BuscarAlbaranesDevolucion: IBizAlbaranCliente; function TAlbaranesClienteController.BuscarAlbaranesDevolucion: IBizAlbaranCliente;
@ -257,7 +257,7 @@ end;
function TAlbaranesClienteController.BuscarTodos: IBizAlbaranCliente; function TAlbaranesClienteController.BuscarTodos: IBizAlbaranCliente;
begin begin
Result := FDataModule.GetItems; Result := FDataModule.GetItems;
FiltrarEmpresa(Result); // FiltrarEmpresa(Result);
end; end;
function TAlbaranesClienteController.BuscarPendientes: IBizAlbaranCliente; function TAlbaranesClienteController.BuscarPendientes: IBizAlbaranCliente;
@ -534,6 +534,10 @@ begin
if AAlbaran.FECHA_RECEPCION < AAlbaran.FECHA_ENVIO then if AAlbaran.FECHA_RECEPCION < AAlbaran.FECHA_ENVIO then
raise Exception.Create('La fecha de recepcion debe ser posterior a la fecha de envio'); raise Exception.Create('La fecha de recepcion debe ser posterior a la fecha de envio');
{ Un albaran debe tener una forma de pago asignada. }
if (AAlbaran.ID_FORMA_PAGO = 0) then
raise Exception.Create('Debe indicar una forma de pago para este albarán');
{ Asegurarse de valores en campos "automáticos" tanto { Asegurarse de valores en campos "automáticos" tanto
en MODIFICACIÓN como en INSERCIÓN. } en MODIFICACIÓN como en INSERCIÓN. }
AAlbaran.Edit; AAlbaran.Edit;
@ -1016,7 +1020,7 @@ var
AAlbaran : IBizAlbaranCliente; AAlbaran : IBizAlbaranCliente;
begin begin
AAlbaran := FDataModule.NewItem; AAlbaran := FDataModule.NewItem;
FiltrarEmpresa(AAlbaran); // FiltrarEmpresa(AAlbaran);
AAlbaran.DataTable.Active := True; AAlbaran.DataTable.Active := True;
if WithInsert then if WithInsert then
AAlbaran.Insert; AAlbaran.Insert;

4
Source/Modulos/Albaranes de cliente/Data/AlbaranesCliente_data.drc
View File

@ -12,6 +12,6 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.DFM */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\uDataModuleAlbaranesCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.res */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Data\AlbaranesCliente_data.drf */ /* E:\temp\dtf6BD.tmp */

16
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.dfm
View File

@ -45,10 +45,6 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
DataType = datInteger DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_CLIENTE' DictionaryEntry = 'AlbaranesCliente_ID_CLIENTE'
end end
item
Name = 'ID_DIRECCION'
DataType = datInteger
end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
@ -132,6 +128,10 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_REF_FACTURA' DictionaryEntry = 'AlbaranesCliente_REF_FACTURA'
end end
item
Name = 'ID_DIRECCION'
DataType = datInteger
end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
@ -285,6 +285,14 @@ inherited DataModuleAlbaranesCliente: TDataModuleAlbaranesCliente
DataType = datDateTime DataType = datDateTime
DisplayLabel = 'Fecha de recepci'#243'n' DisplayLabel = 'Fecha de recepci'#243'n'
DictionaryEntry = 'AlbaranesCliente_FECHA_RECEPCION' DictionaryEntry = 'AlbaranesCliente_FECHA_RECEPCION'
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

2
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.res */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Model\AlbaranesCliente_model.drf */ /* E:\temp\dtf6BB.tmp */

BIN
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.res
View File

Binary file not shown.

190
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteClient_Intf.pas
View File

@ -3,16 +3,16 @@ unit schAlbaranesClienteClient_Intf;
interface interface
uses uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{18C62587-896C-41BC-9E0A-B1BB4BA1536F}'; RID_ListaAnosAlbaranes = '{B4206C62-06EB-4344-BEB1-1A30ED907220}';
RID_AlbaranesCliente = '{4A620EF8-3CC2-4C5C-B01B-23D8EFE9F1CD}'; RID_AlbaranesCliente = '{E1B3AF30-F3E6-4BC4-B9E5-6457F9E83272}';
RID_AlbaranesCliente_Detalle_Color = '{3958DA4C-F53F-46EE-9C7A-4ED04455B567}'; RID_AlbaranesCliente_Detalle_Color = '{7C8EFD2E-60FC-4742-B01A-F56A7C0637A7}';
RID_AlbaranesCliente_Detalles = '{44C711B3-BB9D-467E-856C-D4B1C506ACDC}'; RID_AlbaranesCliente_Detalles = '{1DEA680B-4B62-4552-99D4-91A10AB81A52}';
{ Data table names } { Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes'; nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -30,7 +30,6 @@ const
fld_AlbaranesClienteID = 'ID'; fld_AlbaranesClienteID = 'ID';
fld_AlbaranesClienteID_EMPRESA = 'ID_EMPRESA'; fld_AlbaranesClienteID_EMPRESA = 'ID_EMPRESA';
fld_AlbaranesClienteID_CLIENTE = 'ID_CLIENTE'; fld_AlbaranesClienteID_CLIENTE = 'ID_CLIENTE';
fld_AlbaranesClienteID_DIRECCION = 'ID_DIRECCION';
fld_AlbaranesClienteNOMBRE = 'NOMBRE'; fld_AlbaranesClienteNOMBRE = 'NOMBRE';
fld_AlbaranesClienteFECHA_ALBARAN = 'FECHA_ALBARAN'; fld_AlbaranesClienteFECHA_ALBARAN = 'FECHA_ALBARAN';
fld_AlbaranesClienteREFERENCIA = 'REFERENCIA'; fld_AlbaranesClienteREFERENCIA = 'REFERENCIA';
@ -43,6 +42,7 @@ const
fld_AlbaranesClienteREF_PEDIDO = 'REF_PEDIDO'; fld_AlbaranesClienteREF_PEDIDO = 'REF_PEDIDO';
fld_AlbaranesClienteID_FACTURA = 'ID_FACTURA'; fld_AlbaranesClienteID_FACTURA = 'ID_FACTURA';
fld_AlbaranesClienteREF_FACTURA = 'REF_FACTURA'; fld_AlbaranesClienteREF_FACTURA = 'REF_FACTURA';
fld_AlbaranesClienteID_DIRECCION = 'ID_DIRECCION';
fld_AlbaranesClienteCALLE = 'CALLE'; fld_AlbaranesClienteCALLE = 'CALLE';
fld_AlbaranesClienteCODIGO_POSTAL = 'CODIGO_POSTAL'; fld_AlbaranesClienteCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_AlbaranesClientePOBLACION = 'POBLACION'; fld_AlbaranesClientePOBLACION = 'POBLACION';
@ -67,24 +67,26 @@ const
fld_AlbaranesClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO'; fld_AlbaranesClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
fld_AlbaranesClienteFECHA_ENVIO = 'FECHA_ENVIO'; fld_AlbaranesClienteFECHA_ENVIO = 'FECHA_ENVIO';
fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION'; fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION';
fld_AlbaranesClienteDESCUENTO2 = 'DESCUENTO2';
fld_AlbaranesClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2';
{ AlbaranesCliente field indexes } { AlbaranesCliente field indexes }
idx_AlbaranesClienteID = 0; idx_AlbaranesClienteID = 0;
idx_AlbaranesClienteID_EMPRESA = 1; idx_AlbaranesClienteID_EMPRESA = 1;
idx_AlbaranesClienteID_CLIENTE = 2; idx_AlbaranesClienteID_CLIENTE = 2;
idx_AlbaranesClienteID_DIRECCION = 3; idx_AlbaranesClienteNOMBRE = 3;
idx_AlbaranesClienteNOMBRE = 4; idx_AlbaranesClienteFECHA_ALBARAN = 4;
idx_AlbaranesClienteFECHA_ALBARAN = 5; idx_AlbaranesClienteREFERENCIA = 5;
idx_AlbaranesClienteREFERENCIA = 6; idx_AlbaranesClienteREFERENCIA_CLIENTE = 6;
idx_AlbaranesClienteREFERENCIA_CLIENTE = 7; idx_AlbaranesClienteTIPO = 7;
idx_AlbaranesClienteTIPO = 8; idx_AlbaranesClienteSITUACION = 8;
idx_AlbaranesClienteSITUACION = 9; idx_AlbaranesClienteID_ALMACEN = 9;
idx_AlbaranesClienteID_ALMACEN = 10; idx_AlbaranesClienteNOMBRE_ALMACEN = 10;
idx_AlbaranesClienteNOMBRE_ALMACEN = 11; idx_AlbaranesClienteID_PEDIDO = 11;
idx_AlbaranesClienteID_PEDIDO = 12; idx_AlbaranesClienteREF_PEDIDO = 12;
idx_AlbaranesClienteREF_PEDIDO = 13; idx_AlbaranesClienteID_FACTURA = 13;
idx_AlbaranesClienteID_FACTURA = 14; idx_AlbaranesClienteREF_FACTURA = 14;
idx_AlbaranesClienteREF_FACTURA = 15; idx_AlbaranesClienteID_DIRECCION = 15;
idx_AlbaranesClienteCALLE = 16; idx_AlbaranesClienteCALLE = 16;
idx_AlbaranesClienteCODIGO_POSTAL = 17; idx_AlbaranesClienteCODIGO_POSTAL = 17;
idx_AlbaranesClientePOBLACION = 18; idx_AlbaranesClientePOBLACION = 18;
@ -109,6 +111,8 @@ const
idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 37; idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 37;
idx_AlbaranesClienteFECHA_ENVIO = 38; idx_AlbaranesClienteFECHA_ENVIO = 38;
idx_AlbaranesClienteFECHA_RECEPCION = 39; idx_AlbaranesClienteFECHA_RECEPCION = 39;
idx_AlbaranesClienteDESCUENTO2 = 40;
idx_AlbaranesClienteIMPORTE_DESCUENTO2 = 41;
{ AlbaranesCliente_Detalle_Color fields } { AlbaranesCliente_Detalle_Color fields }
fld_AlbaranesCliente_Detalle_ColorID = 'ID'; fld_AlbaranesCliente_Detalle_ColorID = 'ID';
@ -181,7 +185,7 @@ const
type type
{ IListaAnosAlbaranes } { IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable) IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{DB347C0B-48F1-4CB6-8C0E-8791F39A6D79}'] ['{9198BD80-46AC-41F3-80C0-EBD4A7055DBD}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -195,7 +199,7 @@ type
end; end;
{ TListaAnosAlbaranesDataTableRules } { TListaAnosAlbaranesDataTableRules }
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes) TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -216,7 +220,7 @@ type
{ IAlbaranesCliente } { IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable) IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{49752BC5-C457-46FE-8892-31C4E16591C2}'] ['{373AD37D-234D-47B9-9133-4B56CAFFB722}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -230,10 +234,6 @@ type
procedure SetID_CLIENTEValue(const aValue: Integer); procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: Boolean; function GetID_CLIENTEIsNull: Boolean;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); procedure SetID_CLIENTEIsNull(const aValue: Boolean);
function GetID_DIRECCIONValue: Integer;
procedure SetID_DIRECCIONValue(const aValue: Integer);
function GetID_DIRECCIONIsNull: Boolean;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
function GetNOMBREValue: String; function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String); procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean; function GetNOMBREIsNull: Boolean;
@ -282,6 +282,10 @@ type
procedure SetREF_FACTURAValue(const aValue: String); procedure SetREF_FACTURAValue(const aValue: String);
function GetREF_FACTURAIsNull: Boolean; function GetREF_FACTURAIsNull: Boolean;
procedure SetREF_FACTURAIsNull(const aValue: Boolean); procedure SetREF_FACTURAIsNull(const aValue: Boolean);
function GetID_DIRECCIONValue: Integer;
procedure SetID_DIRECCIONValue(const aValue: Integer);
function GetID_DIRECCIONIsNull: Boolean;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean);
function GetCALLEValue: String; function GetCALLEValue: String;
procedure SetCALLEValue(const aValue: String); procedure SetCALLEValue(const aValue: String);
function GetCALLEIsNull: Boolean; function GetCALLEIsNull: Boolean;
@ -376,6 +380,14 @@ type
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); procedure SetFECHA_RECEPCIONValue(const aValue: DateTime);
function GetFECHA_RECEPCIONIsNull: Boolean; function GetFECHA_RECEPCIONIsNull: Boolean;
procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean);
function GetDESCUENTO2Value: Currency;
procedure SetDESCUENTO2Value(const aValue: Currency);
function GetDESCUENTO2IsNull: Boolean;
procedure SetDESCUENTO2IsNull(const aValue: Boolean);
function GetIMPORTE_DESCUENTO2Value: Currency;
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
function GetIMPORTE_DESCUENTO2IsNull: Boolean;
procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -385,8 +397,6 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
@ -411,6 +421,8 @@ type
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue; property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
property REF_FACTURAIsNull: Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull; property REF_FACTURAIsNull: Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
@ -459,10 +471,14 @@ type
property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull; property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull;
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull; property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value;
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
end; end;
{ TAlbaranesClienteDataTableRules } { TAlbaranesClienteDataTableRules }
TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente) TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings; f_INCIDENCIAS: IROStrings;
@ -482,10 +498,6 @@ type
procedure SetID_CLIENTEValue(const aValue: Integer); virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: Boolean; virtual; function GetID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCIONValue: Integer; virtual;
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
function GetID_DIRECCIONIsNull: Boolean; virtual;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual; function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual; procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual; function GetNOMBREIsNull: Boolean; virtual;
@ -534,6 +546,10 @@ type
procedure SetREF_FACTURAValue(const aValue: String); virtual; procedure SetREF_FACTURAValue(const aValue: String); virtual;
function GetREF_FACTURAIsNull: Boolean; virtual; function GetREF_FACTURAIsNull: Boolean; virtual;
procedure SetREF_FACTURAIsNull(const aValue: Boolean); virtual; procedure SetREF_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCIONValue: Integer; virtual;
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
function GetID_DIRECCIONIsNull: Boolean; virtual;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual; function GetCALLEValue: String; virtual;
procedure SetCALLEValue(const aValue: String); virtual; procedure SetCALLEValue(const aValue: String); virtual;
function GetCALLEIsNull: Boolean; virtual; function GetCALLEIsNull: Boolean; virtual;
@ -628,6 +644,14 @@ type
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual; procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
function GetFECHA_RECEPCIONIsNull: Boolean; virtual; function GetFECHA_RECEPCIONIsNull: Boolean; virtual;
procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); virtual; procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); virtual;
function GetDESCUENTO2Value: Currency; virtual;
procedure SetDESCUENTO2Value(const aValue: Currency); virtual;
function GetDESCUENTO2IsNull: Boolean; virtual;
procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual;
function GetIMPORTE_DESCUENTO2Value: Currency; virtual;
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual;
function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual;
procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -636,8 +660,6 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue; property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull: Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue; property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue; property FECHA_ALBARAN: DateTime read GetFECHA_ALBARANValue write SetFECHA_ALBARANValue;
@ -662,6 +684,8 @@ type
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull; property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue; property REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
property REF_FACTURAIsNull: Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull; property REF_FACTURAIsNull: Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull;
property ID_DIRECCION: Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull: Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue; property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull; property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue; property CODIGO_POSTAL: String read GetCODIGO_POSTALValue write SetCODIGO_POSTALValue;
@ -710,6 +734,10 @@ type
property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull; property FECHA_ENVIOIsNull: Boolean read GetFECHA_ENVIOIsNull write SetFECHA_ENVIOIsNull;
property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue; property FECHA_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull; property FECHA_RECEPCIONIsNull: Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value;
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -719,7 +747,7 @@ type
{ IAlbaranesCliente_Detalle_Color } { IAlbaranesCliente_Detalle_Color }
IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
['{F6432EB6-CC41-40E8-B0AF-FAC070CF9F7F}'] ['{10257B11-C523-426D-B5F3-C83A653FC86F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -811,7 +839,7 @@ type
end; end;
{ TAlbaranesCliente_Detalle_ColorDataTableRules } { TAlbaranesCliente_Detalle_ColorDataTableRules }
TAlbaranesCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalle_Color) TAlbaranesCliente_Detalle_ColorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalle_Color)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -910,7 +938,7 @@ type
{ IAlbaranesCliente_Detalles } { IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable) IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{3A0076AC-86DC-4A8E-B575-EBB6C2DAC5E9}'] ['{0B31E831-E5AF-41C8-8043-2E16FC21CDE8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1014,7 +1042,7 @@ type
end; end;
{ TAlbaranesCliente_DetallesDataTableRules } { TAlbaranesCliente_DetallesDataTableRules }
TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles) TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1254,27 +1282,6 @@ begin
DataTable.Fields[idx_AlbaranesClienteID_CLIENTE].AsVariant := Null; DataTable.Fields[idx_AlbaranesClienteID_CLIENTE].AsVariant := Null;
end; end;
function TAlbaranesClienteDataTableRules.GetID_DIRECCIONValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsInteger;
end;
procedure TAlbaranesClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsInteger := aValue;
end;
function TAlbaranesClienteDataTableRules.GetID_DIRECCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsVariant := Null;
end;
function TAlbaranesClienteDataTableRules.GetNOMBREValue: String; function TAlbaranesClienteDataTableRules.GetNOMBREValue: String;
begin begin
result := DataTable.Fields[idx_AlbaranesClienteNOMBRE].AsString; result := DataTable.Fields[idx_AlbaranesClienteNOMBRE].AsString;
@ -1527,6 +1534,27 @@ begin
DataTable.Fields[idx_AlbaranesClienteREF_FACTURA].AsVariant := Null; DataTable.Fields[idx_AlbaranesClienteREF_FACTURA].AsVariant := Null;
end; end;
function TAlbaranesClienteDataTableRules.GetID_DIRECCIONValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsInteger;
end;
procedure TAlbaranesClienteDataTableRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsInteger := aValue;
end;
function TAlbaranesClienteDataTableRules.GetID_DIRECCIONIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClienteID_DIRECCION].AsVariant := Null;
end;
function TAlbaranesClienteDataTableRules.GetCALLEValue: String; function TAlbaranesClienteDataTableRules.GetCALLEValue: String;
begin begin
result := DataTable.Fields[idx_AlbaranesClienteCALLE].AsString; result := DataTable.Fields[idx_AlbaranesClienteCALLE].AsString;
@ -2023,6 +2051,48 @@ begin
DataTable.Fields[idx_AlbaranesClienteFECHA_RECEPCION].AsVariant := Null; DataTable.Fields[idx_AlbaranesClienteFECHA_RECEPCION].AsVariant := Null;
end; end;
function TAlbaranesClienteDataTableRules.GetDESCUENTO2Value: Currency;
begin
result := DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsCurrency;
end;
procedure TAlbaranesClienteDataTableRules.SetDESCUENTO2Value(const aValue: Currency);
begin
DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsCurrency := aValue;
end;
function TAlbaranesClienteDataTableRules.GetDESCUENTO2IsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetDESCUENTO2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClienteDESCUENTO2].AsVariant := Null;
end;
function TAlbaranesClienteDataTableRules.GetIMPORTE_DESCUENTO2Value: Currency;
begin
result := DataTable.Fields[idx_AlbaranesClienteIMPORTE_DESCUENTO2].AsCurrency;
end;
procedure TAlbaranesClienteDataTableRules.SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
begin
DataTable.Fields[idx_AlbaranesClienteIMPORTE_DESCUENTO2].AsCurrency := aValue;
end;
function TAlbaranesClienteDataTableRules.GetIMPORTE_DESCUENTO2IsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesClienteIMPORTE_DESCUENTO2].IsNull;
end;
procedure TAlbaranesClienteDataTableRules.SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesClienteIMPORTE_DESCUENTO2].AsVariant := Null;
end;
{ TAlbaranesCliente_Detalle_ColorDataTableRules } { TAlbaranesCliente_Detalle_ColorDataTableRules }
constructor TAlbaranesCliente_Detalle_ColorDataTableRules.Create(aDataTable: TDADataTable); constructor TAlbaranesCliente_Detalle_ColorDataTableRules.Create(aDataTable: TDADataTable);

188
Source/Modulos/Albaranes de cliente/Model/schAlbaranesClienteServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{80722770-25D1-4E97-AAEA-419BB719A5D6}'; RID_ListaAnosAlbaranesDelta = '{1E1DC3F8-2ECA-40D0-B18D-9AD1F0294B1C}';
RID_AlbaranesClienteDelta = '{3B43A4E8-B21B-4978-A8D1-91FEFBD05A31}'; RID_AlbaranesClienteDelta = '{8B265689-7E0C-412D-B7AE-56B2AF1573FD}';
RID_AlbaranesCliente_Detalle_ColorDelta = '{EC828BE2-9AA9-459F-8814-FC87BFF79A9C}'; RID_AlbaranesCliente_Detalle_ColorDelta = '{6FF87351-F32C-49FE-A68B-4BC03FEEE1DB}';
RID_AlbaranesCliente_DetallesDelta = '{3FA86ECC-B57D-4E8D-A7EA-66A2C066A9B5}'; RID_AlbaranesCliente_DetallesDelta = '{034AE7D6-C246-4EF8-AE5A-1773B4D37A26}';
type type
{ IListaAnosAlbaranesDelta } { IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes) IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{80722770-25D1-4E97-AAEA-419BB719A5D6}'] ['{1E1DC3F8-2ECA-40D0-B18D-9AD1F0294B1C}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -51,12 +51,11 @@ type
{ IAlbaranesClienteDelta } { IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente) IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{3B43A4E8-B21B-4978-A8D1-91FEFBD05A31}'] ['{8B265689-7E0C-412D-B7AE-56B2AF1573FD}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
function GetOldID_DIRECCIONValue : Integer;
function GetOldNOMBREValue : String; function GetOldNOMBREValue : String;
function GetOldFECHA_ALBARANValue : DateTime; function GetOldFECHA_ALBARANValue : DateTime;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
@ -69,6 +68,7 @@ type
function GetOldREF_PEDIDOValue : String; function GetOldREF_PEDIDOValue : String;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
function GetOldREF_FACTURAValue : String; function GetOldREF_FACTURAValue : String;
function GetOldID_DIRECCIONValue : Integer;
function GetOldCALLEValue : String; function GetOldCALLEValue : String;
function GetOldCODIGO_POSTALValue : String; function GetOldCODIGO_POSTALValue : String;
function GetOldPOBLACIONValue : String; function GetOldPOBLACIONValue : String;
@ -93,12 +93,13 @@ type
function GetOldFECHA_PREVISTA_ENVIOValue : DateTime; function GetOldFECHA_PREVISTA_ENVIOValue : DateTime;
function GetOldFECHA_ENVIOValue : DateTime; function GetOldFECHA_ENVIOValue : DateTime;
function GetOldFECHA_RECEPCIONValue : DateTime; function GetOldFECHA_RECEPCIONValue : DateTime;
function GetOldDESCUENTO2Value : Currency;
function GetOldIMPORTE_DESCUENTO2Value : Currency;
{ Properties } { Properties }
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 OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue; property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
@ -111,6 +112,7 @@ type
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue; property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue; property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_FACTURA : String read GetOldREF_FACTURAValue; property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldCALLE : String read GetOldCALLEValue; property OldCALLE : String read GetOldCALLEValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue; property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldPOBLACION : String read GetOldPOBLACIONValue; property OldPOBLACION : String read GetOldPOBLACIONValue;
@ -135,6 +137,8 @@ type
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue; property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue; property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value;
property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value;
end; end;
{ TAlbaranesClienteBusinessProcessorRules } { TAlbaranesClienteBusinessProcessorRules }
@ -164,12 +168,6 @@ type
function GetOldID_CLIENTEIsNull: Boolean; virtual; function GetOldID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); virtual; procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual; procedure SetID_CLIENTEIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCIONValue: Integer; virtual;
function GetID_DIRECCIONIsNull: Boolean; virtual;
function GetOldID_DIRECCIONValue: Integer; virtual;
function GetOldID_DIRECCIONIsNull: Boolean; virtual;
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual; function GetNOMBREValue: String; virtual;
function GetNOMBREIsNull: Boolean; virtual; function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual; function GetOldNOMBREValue: String; virtual;
@ -242,6 +240,12 @@ type
function GetOldREF_FACTURAIsNull: Boolean; virtual; function GetOldREF_FACTURAIsNull: Boolean; virtual;
procedure SetREF_FACTURAValue(const aValue: String); virtual; procedure SetREF_FACTURAValue(const aValue: String); virtual;
procedure SetREF_FACTURAIsNull(const aValue: Boolean); virtual; procedure SetREF_FACTURAIsNull(const aValue: Boolean); virtual;
function GetID_DIRECCIONValue: Integer; virtual;
function GetID_DIRECCIONIsNull: Boolean; virtual;
function GetOldID_DIRECCIONValue: Integer; virtual;
function GetOldID_DIRECCIONIsNull: Boolean; virtual;
procedure SetID_DIRECCIONValue(const aValue: Integer); virtual;
procedure SetID_DIRECCIONIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual; function GetCALLEValue: String; virtual;
function GetCALLEIsNull: Boolean; virtual; function GetCALLEIsNull: Boolean; virtual;
function GetOldCALLEValue: String; virtual; function GetOldCALLEValue: String; virtual;
@ -384,6 +388,18 @@ type
function GetOldFECHA_RECEPCIONIsNull: Boolean; virtual; function GetOldFECHA_RECEPCIONIsNull: Boolean; virtual;
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual; procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); virtual; procedure SetFECHA_RECEPCIONIsNull(const aValue: Boolean); virtual;
function GetDESCUENTO2Value: Currency; virtual;
function GetDESCUENTO2IsNull: Boolean; virtual;
function GetOldDESCUENTO2Value: Currency; virtual;
function GetOldDESCUENTO2IsNull: Boolean; virtual;
procedure SetDESCUENTO2Value(const aValue: Currency); virtual;
procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual;
function GetIMPORTE_DESCUENTO2Value: Currency; virtual;
function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual;
function GetOldIMPORTE_DESCUENTO2Value: Currency; virtual;
function GetOldIMPORTE_DESCUENTO2IsNull: Boolean; virtual;
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual;
procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -398,10 +414,6 @@ type
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull; property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue; property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull; property OldID_CLIENTEIsNull : Boolean read GetOldID_CLIENTEIsNull;
property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue; property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull; property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue; property OldNOMBRE : String read GetOldNOMBREValue;
@ -450,6 +462,10 @@ type
property REF_FACTURAIsNull : Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull; property REF_FACTURAIsNull : Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull;
property OldREF_FACTURA : String read GetOldREF_FACTURAValue; property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
property OldREF_FACTURAIsNull : Boolean read GetOldREF_FACTURAIsNull; property OldREF_FACTURAIsNull : Boolean read GetOldREF_FACTURAIsNull;
property ID_DIRECCION : Integer read GetID_DIRECCIONValue write SetID_DIRECCIONValue;
property ID_DIRECCIONIsNull : Boolean read GetID_DIRECCIONIsNull write SetID_DIRECCIONIsNull;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldID_DIRECCIONIsNull : Boolean read GetOldID_DIRECCIONIsNull;
property CALLE : String read GetCALLEValue write SetCALLEValue; property CALLE : String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull; property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
property OldCALLE : String read GetOldCALLEValue; property OldCALLE : String read GetOldCALLEValue;
@ -546,6 +562,14 @@ type
property FECHA_RECEPCIONIsNull : Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull; property FECHA_RECEPCIONIsNull : Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue; property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldFECHA_RECEPCIONIsNull : Boolean read GetOldFECHA_RECEPCIONIsNull; property OldFECHA_RECEPCIONIsNull : Boolean read GetOldFECHA_RECEPCIONIsNull;
property DESCUENTO2 : Currency read GetDESCUENTO2Value write SetDESCUENTO2Value;
property DESCUENTO2IsNull : Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value;
property OldDESCUENTO2IsNull : Boolean read GetOldDESCUENTO2IsNull;
property IMPORTE_DESCUENTO2 : Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
property IMPORTE_DESCUENTO2IsNull : Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value;
property OldIMPORTE_DESCUENTO2IsNull : Boolean read GetOldIMPORTE_DESCUENTO2IsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -555,7 +579,7 @@ type
{ IAlbaranesCliente_Detalle_ColorDelta } { IAlbaranesCliente_Detalle_ColorDelta }
IAlbaranesCliente_Detalle_ColorDelta = interface(IAlbaranesCliente_Detalle_Color) IAlbaranesCliente_Detalle_ColorDelta = interface(IAlbaranesCliente_Detalle_Color)
['{EC828BE2-9AA9-459F-8814-FC87BFF79A9C}'] ['{6FF87351-F32C-49FE-A68B-4BC03FEEE1DB}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_DETALLEValue : Integer; function GetOldID_DETALLEValue : Integer;
@ -745,7 +769,7 @@ type
{ IAlbaranesCliente_DetallesDelta } { IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles) IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{3FA86ECC-B57D-4E8D-A7EA-66A2C066A9B5}'] ['{034AE7D6-C246-4EF8-AE5A-1773B4D37A26}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer; function GetOldID_ALBARANValue : Integer;
@ -1129,37 +1153,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CLIENTE] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CLIENTE] := Null;
end; end;
function TAlbaranesClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION];
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_DIRECCION];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_DIRECCION]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION] := aValue;
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION] := Null;
end;
function TAlbaranesClienteBusinessProcessorRules.GetNOMBREValue: String; function TAlbaranesClienteBusinessProcessorRules.GetNOMBREValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE];
@ -1532,6 +1525,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_FACTURA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_FACTURA] := Null;
end; end;
function TAlbaranesClienteBusinessProcessorRules.GetID_DIRECCIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION];
end;
function TAlbaranesClienteBusinessProcessorRules.GetID_DIRECCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_DIRECCIONValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_DIRECCION];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldID_DIRECCIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteID_DIRECCION]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_DIRECCIONValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION] := aValue;
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetID_DIRECCIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_DIRECCION] := Null;
end;
function TAlbaranesClienteBusinessProcessorRules.GetCALLEValue: String; function TAlbaranesClienteBusinessProcessorRules.GetCALLEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteCALLE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteCALLE];
@ -2270,6 +2294,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_RECEPCION] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_RECEPCION] := Null;
end; end;
function TAlbaranesClienteBusinessProcessorRules.GetDESCUENTO2Value: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDESCUENTO2];
end;
function TAlbaranesClienteBusinessProcessorRules.GetDESCUENTO2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDESCUENTO2]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldDESCUENTO2Value: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteDESCUENTO2];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldDESCUENTO2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteDESCUENTO2]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetDESCUENTO2Value(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDESCUENTO2] := aValue;
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetDESCUENTO2IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteDESCUENTO2] := Null;
end;
function TAlbaranesClienteBusinessProcessorRules.GetIMPORTE_DESCUENTO2Value: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2];
end;
function TAlbaranesClienteBusinessProcessorRules.GetIMPORTE_DESCUENTO2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2]);
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTO2Value: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2];
end;
function TAlbaranesClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTO2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2]);
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2] := aValue;
end;
procedure TAlbaranesClienteBusinessProcessorRules.SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteIMPORTE_DESCUENTO2] := Null;
end;
{ TAlbaranesCliente_Detalle_ColorBusinessProcessorRules } { TAlbaranesCliente_Detalle_ColorBusinessProcessorRules }
constructor TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TAlbaranesCliente_Detalle_ColorBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

4
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas
View File

@ -91,7 +91,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias; AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA) Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, -1)
end; end;
function TBizAlbaranClienteServer.IncrementarReferencia: Boolean; function TBizAlbaranClienteServer.IncrementarReferencia: Boolean;
@ -110,7 +110,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias; AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA) Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, -1)
end; end;

41
Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas
View File

@ -69,6 +69,7 @@ type
procedure IMPORTE_NETOOnChange(Sender: TDACustomField); procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField); procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
procedure DESCUENTOOnChange(Sender: TDACustomField); procedure DESCUENTOOnChange(Sender: TDACustomField);
procedure DESCUENTO2OnChange(Sender: TDACustomField);
procedure IVAOnChange(Sender: TDACustomField); procedure IVAOnChange(Sender: TDACustomField);
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
@ -101,7 +102,8 @@ begin
if not Self.DataTable.Editing then if not Self.DataTable.Editing then
Edit; Edit;
IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100); IMPORTE_DESCUENTO := IMPORTE_NETO * (DESCUENTO/100);
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO + IMPORTE_PORTE; IMPORTE_DESCUENTO2 := IMPORTE_NETO * (DESCUENTO2/100);
BASE_IMPONIBLE := IMPORTE_NETO - IMPORTE_DESCUENTO - IMPORTE_DESCUENTO2 + IMPORTE_PORTE;
end; end;
procedure TBizAlbaranCliente.CalcularImporteTotal; procedure TBizAlbaranCliente.CalcularImporteTotal;
@ -140,12 +142,18 @@ begin
FieldByName(fld_AlbaranesClienteIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange; FieldByName(fld_AlbaranesClienteIMPORTE_NETO).OnChange := IMPORTE_NETOOnChange;
FieldByName(fld_AlbaranesClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange; FieldByName(fld_AlbaranesClienteIMPORTE_PORTE).OnChange := IMPORTE_PORTEOnChange;
FieldByName(fld_AlbaranesClienteDESCUENTO).OnChange := DESCUENTOOnChange; FieldByName(fld_AlbaranesClienteDESCUENTO).OnChange := DESCUENTOOnChange;
FieldByName(fld_AlbaranesClienteDESCUENTO2).OnChange := DESCUENTO2OnChange;
FieldByName(fld_AlbaranesClienteIVA).OnChange := IVAOnChange; FieldByName(fld_AlbaranesClienteIVA).OnChange := IVAOnChange;
end; end;
FSeleccionableInterface := TSeleccionable.Create(aDataTable); FSeleccionableInterface := TSeleccionable.Create(aDataTable);
end; end;
procedure TBizAlbaranCliente.DESCUENTO2OnChange(Sender: TDACustomField);
begin
CalcularImporteTotal;
end;
procedure TBizAlbaranCliente.DESCUENTOOnChange(Sender: TDACustomField); procedure TBizAlbaranCliente.DESCUENTOOnChange(Sender: TDACustomField);
begin begin
CalcularImporteTotal; CalcularImporteTotal;
@ -191,8 +199,8 @@ begin
REFERENCIA := ''; REFERENCIA := '';
TIPO := CTE_TIPO_ALBARAN; TIPO := CTE_TIPO_ALBARAN;
// NO SE TIENEN EN CUENTA LOS ALBARANES DE CLIENTE PARA EL STOCK DE ALMACEN "DE MOMENTO" // COMO SOLO TENDRÁ UN ALAMCÉN DADO DE ALTA YA QUE NO LE PERMITIMOS MÁS, LO PONEMOS A CAPÓN.
ID_ALMACEN := ID_NULO; ID_ALMACEN := 2;
end; end;
procedure TBizAlbaranCliente.IVAOnChange(Sender: TDACustomField); procedure TBizAlbaranCliente.IVAOnChange(Sender: TDACustomField);
@ -223,27 +231,26 @@ var
begin begin
FCliente := AValue; FCliente := AValue;
bEnEdicion := (DataTable.State in dsEditModes);
if not bEnEdicion then
Edit;
if Assigned(FCliente) then if Assigned(FCliente) then
begin begin
if not FCliente.DataTable.Active then if not FCliente.DataTable.Active then
FCliente.DataTable.Active := True; FCliente.DataTable.Active := True;
if ID_Cliente <> FCliente.ID then ID_CLIENTE := FCliente.ID;
begin if FCliente.ID_FORMA_PAGO > 0 then
bEnEdicion := (DataTable.State in dsEditModes); ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
if not bEnEdicion then DESCUENTO := FCliente.DESCUENTO;
DataTable.Edit; DESCUENTO2 := FCliente.DESCUENTO2;
ID_CLIENTE := FCliente.ID; Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles
if FCliente.ID_FORMA_PAGO > 0 then //si se quita el id de la cabecera y los detalles se desincroniza
ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO;
//DESCUENTO := FCliente.DESCUENTO; //No esta activado el descuento general para los albaranes
DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de añadir detalles if bEnEdicion then
//si se quita el id de la cabecera y los detalles se desincroniza Edit;
if bEnEdicion then
DataTable.Edit;
end;
end; end;
end; end;

1
Source/Modulos/Albaranes de cliente/Model/uBizDetalleColoresAlbaranCliente.pas
View File

@ -40,7 +40,6 @@ end;
procedure TBizDetalleColoresAlbaranCliente.OnNewRecord(Sender: TDADataTable); procedure TBizDetalleColoresAlbaranCliente.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
COLOR1 := 1; //Para que cuando elijamos varios articulos a añadir en un albarán por defecto es cantidad 1 y definimos por defecto tambien color 1
end; end;
initialization initialization

2
Source/Modulos/Albaranes de cliente/Plugin/AlbaranesCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\uPluginAlbaranesCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.res */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.drf */ /* E:\temp\dtf715.tmp */

134
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
View File

@ -64,17 +64,20 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'LBARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.' + 'LBARAN,'#10' V_ALBARANES_CLIENTE.REFERENCIA,'#10' V_ALBARANES_CLIENTE.' +
'REFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARAN' + 'REFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARAN' +
'ES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.OBSERVACIONES,'#10' V_' + 'ES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.OBSERVACIONES,'#10' V_' +
'ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.NIF_CIF, CONTACTOS.' + 'ALBARANES_CLIENTE.IMPORTE_NETO,'#10' V_ALBARANES_CLIENTE.DESCUENTO,' +
'NOMBRE,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' COALESCE(CONTA' + #10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' V_ALBARANES_CLIENTE.' +
'CTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CO' + 'DESCUENTO2,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO2,'#10' V_ALBARA' +
'NTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION' + 'NES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE' +
','#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCI' + ', CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CLIENTE.PER' +
'A) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL,' + 'SONA_CONTACTO,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS' +
' CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL'#10'FROM'#10' V_ALBARANES_CL' + '.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBLACION, CO' +
'IENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIE' + 'NTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONE' +
'NTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONT' + 'S.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTA' +
'ACTOS_DIRECCIONES.ID = V_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V' + 'CTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODI' +
'_ALBARANES_CLIENTE.ID = :ID'#10#10 'GO_POSTAL'#10'FROM'#10' V_ALBARANES_CLIENTE'#10' INNER JOIN CONTACTOS ON (' +
'CONTACTOS.ID = V_ALBARANES_CLIENTE.ID_CLIENTE)'#10' LEFT OUTER JOIN' +
' CONTACTOS_DIRECCIONES ON (CONTACTOS_DIRECCIONES.ID = V_ALBARANE' +
'S_CLIENTE.ID_DIRECCION)'#10'WHERE V_ALBARANES_CLIENTE.ID = :ID'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -144,6 +147,30 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item item
DatasetField = 'NIF_CIF' DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF' TableField = 'NIF_CIF'
end
item
DatasetField = 'REF_CLIENTE'
TableField = 'REF_CLIENTE'
end
item
DatasetField = 'IMPORTE_NETO'
TableField = 'IMPORTE_NETO'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'IMPORTE_DESCUENTO'
TableField = 'IMPORTE_DESCUENTO'
end
item
DatasetField = 'DESCUENTO2'
TableField = 'DESCUENTO2'
end
item
DatasetField = 'IMPORTE_DESCUENTO2'
TableField = 'IMPORTE_DESCUENTO2'
end> end>
end> end>
Name = 'Informe_Cabecera' Name = 'Informe_Cabecera'
@ -187,10 +214,35 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo DataType = datMemo
end end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'REF_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString
@ -476,7 +528,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39460.761954919000000000 ReportOptions.LastChange = 40190.500735312500000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ScriptText.Strings = ( ScriptText.Strings = (
'' ''
@ -537,11 +589,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
'' ''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);' 'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
'begin' 'begin'
'{ if not Engine.FinalPass then' ' if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));' ' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
'' ''
' if Engine.FinalPass then' ' if Engine.FinalPass then'
' Set('#39'Pagina'#39', (<Pagina> + 1));} ' ' Set('#39'Pagina'#39', (<Pagina> + 1)); '
'end;' 'end;'
'' ''
'procedure frxReportOnStartReport(Sender: TfrxComponent);' 'procedure frxReportOnStartReport(Sender: TfrxComponent);'
@ -550,6 +602,35 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
' Set('#39'TotalPaginas'#39', 0);' ' Set('#39'TotalPaginas'#39', 0);'
'end;' 'end;'
'' ''
''
'procedure frxDBDetallesCANTIDADOnBeforePrint(Sender: TfrxCompone' +
'nt);'
'var'
' ACantidad: String; '
' AIndice: Integer;'
' AText : String; '
'begin'
' frxDBDetallesCANTIDAD.Memo.Clear; '
' ACantidad := FloatToStr(<frxDBDetalles."CANTIDAD">); '
' if ACantidad = '#39'0'#39' then'
' AText := '#39#39
' else begin '
' AIndice := Pos('#39','#39', ACantidad);'
' if AIndice > 0 then ' +
' '
' AText := '#39'[FormatFloat('#39#39'#,##0.00'#39#39',<frxDBDetalles."CANTIDA' +
'D">)] [frxDBDetalles."UNIDAD_MEDIDA"]'#39
' else '
' AText := '#39'[FormatFloat('#39#39'#,##0.##'#39#39',<frxDBDetalles."CANTIDA' +
'D">)] [frxDBDetalles."UNIDAD_MEDIDA"]'#39';'
' end; '
' frxDBDetallesCANTIDAD.Memo.Add(AText);'
'end;'
''
'' ''
'begin' 'begin'
'' ''
@ -827,10 +908,35 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo DataType = datMemo
end end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'REF_CLIENTE'
DataType = datString
Size = 255
end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString

2
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
View File

@ -59,8 +59,8 @@ type
tbl_Cabecera: TDAMemDataTable; tbl_Cabecera: TDAMemDataTable;
tbl_Detalles: TDAMemDataTable; tbl_Detalles: TDAMemDataTable;
frxPDFExport1: TfrxPDFExport; frxPDFExport1: TfrxPDFExport;
schReport: TDASchema;
DABin2DataStreamer1: TDABin2DataStreamer; DABin2DataStreamer1: TDABin2DataStreamer;
schReport: TDASchema;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
private private

157
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.dfm
View File

@ -207,6 +207,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
item item
DatasetField = 'ID_DIRECCION' DatasetField = 'ID_DIRECCION'
TableField = 'ID_DIRECCION' TableField = 'ID_DIRECCION'
end
item
DatasetField = 'DESCUENTO2'
TableField = 'DESCUENTO2'
end
item
DatasetField = 'IMPORTE_DESCUENTO2'
TableField = 'IMPORTE_DESCUENTO2'
end> end>
end> end>
Name = 'AlbaranesCliente' Name = 'AlbaranesCliente'
@ -229,10 +237,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
DataType = datInteger DataType = datInteger
DictionaryEntry = 'AlbaranesCliente_ID_CLIENTE' DictionaryEntry = 'AlbaranesCliente_ID_CLIENTE'
end end
item
Name = 'ID_DIRECCION'
DataType = datInteger
end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
@ -307,6 +311,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'AlbaranesCliente_REF_FACTURA' DictionaryEntry = 'AlbaranesCliente_REF_FACTURA'
end end
item
Name = 'ID_DIRECCION'
DataType = datInteger
end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
@ -433,6 +441,14 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Name = 'FECHA_RECEPCION' Name = 'FECHA_RECEPCION'
DataType = datDateTime DataType = datDateTime
DictionaryEntry = 'AlbaranesCliente_FECHA_RECEPCION' DictionaryEntry = 'AlbaranesCliente_FECHA_RECEPCION'
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
end> end>
end end
item item
@ -768,138 +784,192 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'FECHA_ALBARAN' Name = 'FECHA_ALBARAN'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'TIPO' Name = 'TIPO'
DataType = datString
Size = 1
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA_CLIENTE' Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_DIRECCION' Name = 'ID_DIRECCION'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString
Size = 25
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS' Name = 'INCIDENCIAS'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 30
Value = '' Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'FECHA_PREVISTA_ENVIO' Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_ENVIO' Name = 'FECHA_ENVIO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_RECEPCION' Name = 'FECHA_RECEPCION'
DataType = datDateTime
Value = ''
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -916,16 +986,17 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'ASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10 + 'ASE_IMPONIBLE, IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10 +
' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFIC' + ' INCIDENCIAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFIC' +
'ACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' + 'ACION, '#10' USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA' +
'_ENVIO, '#10' FECHA_RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :' + '_ENVIO, '#10' FECHA_RECEPCION, DESCUENTO2, IMPORTE_DESCUENTO2)'#10' ' +
'ID_CLIENTE, :FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' :REFERENCIA' + ' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_ALBARAN, :TIP' +
'_CLIENTE, :ID_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :ID_DIRECCION,'#10' ' + 'O, :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID_PEDID' +
' :CALLE, :CODIGO_POSTAL, :POBLACION, :PROVINCIA, :PERSONA_CON' + 'O, :ID_FACTURA, :ID_DIRECCION,'#10' :CALLE, :CODIGO_POSTAL, :POB' +
'TACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO' + 'LACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_' +
', :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, ' + 'NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE' +
':IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INCIDENCIAS, :INCIDENCIAS_' + '_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10 +
'ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' :USUARIO, :ID_FO' + ' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MOD' +
'RMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_ENVIO, :FECHA_RECEPCION)' + 'IFICACION,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO,' +
#10' '#10' '#10#10 ' :FECHA_ENVIO, :FECHA_RECEPCION,'#10' :DESCUENTO2, :IMPORTE_DESC' +
'UENTO2)'#10' '#10' '#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -952,138 +1023,192 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
Params = < Params = <
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'FECHA_ALBARAN' Name = 'FECHA_ALBARAN'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'TIPO' Name = 'TIPO'
DataType = datString
Size = 1
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA_CLIENTE' Name = 'REFERENCIA_CLIENTE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'ID_ALMACEN' Name = 'ID_ALMACEN'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_DIRECCION' Name = 'ID_DIRECCION'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString
Size = 25
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS' Name = 'INCIDENCIAS'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'INCIDENCIAS_ACTIVAS' Name = 'INCIDENCIAS_ACTIVAS'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 30
Value = '' Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'FECHA_PREVISTA_ENVIO' Name = 'FECHA_PREVISTA_ENVIO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_ENVIO' Name = 'FECHA_ENVIO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_RECEPCION' Name = 'FECHA_RECEPCION'
DataType = datDateTime
Value = ''
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
Value = '' Value = ''
end end
item item
@ -1114,7 +1239,9 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
'CHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO,' + 'CHA_MODIFICACION = :FECHA_MODIFICACION, '#10' USUARIO = :USUARIO,' +
' '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO ' + ' '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO, '#10' FECHA_PREVISTA_ENVIO ' +
'= :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' F' + '= :FECHA_PREVISTA_ENVIO, '#10' FECHA_ENVIO = :FECHA_ENVIO, '#10' F' +
'ECHA_RECEPCION = :FECHA_RECEPCION'#10' WHERE'#10' (ID = :OLD_ID)'#10 'ECHA_RECEPCION = :FECHA_RECEPCION,'#10' DESCUENTO2 = :DESCUENTO2,' +
#10' IMPORTE_DESCUENTO2 = :IMPORTE_DESCUENTO2'#10' WHERE'#10' (ID = ' +
':OLD_ID)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

2
Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
View File

@ -25,9 +25,9 @@ type
bpAlbaranesCliente: TDABusinessProcessor; bpAlbaranesCliente: TDABusinessProcessor;
bpAlbaranesCliente_Detalles: TDABusinessProcessor; bpAlbaranesCliente_Detalles: TDABusinessProcessor;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
bpAlbaranesCliente_DetalleColor: TDABusinessProcessor;
schAlbaranesCliente: TDASchema; schAlbaranesCliente: TDASchema;
DADataDictionary: TDADataDictionary; DADataDictionary: TDADataDictionary;
bpAlbaranesCliente_DetalleColor: TDABusinessProcessor;
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string); procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer); procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject); procedure DARemoteServiceCreate(Sender: TObject);

3
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dpk
View File

@ -68,6 +68,7 @@ contains
uViewAlbaranesDevCliente in 'uViewAlbaranesDevCliente.pas' {frViewAlbaranesDevCliente: TCustomView}, uViewAlbaranesDevCliente in 'uViewAlbaranesDevCliente.pas' {frViewAlbaranesDevCliente: TCustomView},
uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor}, uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor},
uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView}, uViewAlbaranDevCliente in 'uViewAlbaranDevCliente.pas' {frViewAlbaranDevCliente: TCustomView},
uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView}; uViewDatosYSeleccionClienteAlbaran in 'uViewDatosYSeleccionClienteAlbaran.pas' {frViewDatosYSeleccionClienteAlbaran: TCustomView},
uViewTotalesAlbaran in 'uViewTotalesAlbaran.pas' {frViewTotalesAlbaran: TCustomView};
end. end.

12
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.dproj
View File

@ -43,14 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclIntraweb_80_100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclnet100.bpl not found</Excluded_Packages>
<Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages> <Excluded_Packages Name="c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
@ -145,6 +137,10 @@
<Form>frViewElegirArticulosAlbaranesCliente</Form> <Form>frViewElegirArticulosAlbaranesCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewTotalesAlbaran.pas">
<Form>frViewTotalesAlbaran</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" /> <DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" /> <DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" /> <DCCReference Include="vcljpg.dcp" />

3
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.drc
View File

@ -18,6 +18,7 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewDireccionEntregaAlbaranCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewDireccionEntregaAlbaranCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewDatosYSeleccionClienteAlbaran.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewDatosYSeleccionClienteAlbaran.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewTotalesAlbaran.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewElegirArticulosAlbaranesCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewElegirArticulosAlbaranesCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uEditorElegirArticulosAlbaranCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uEditorElegirArticulosAlbaranCliente.dfm */
@ -28,4 +29,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uViewAlbaranDevCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\uEditorAlbaranDevCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.res */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de cliente\Views\AlbaranesCliente_view.drf */ /* E:\temp\dtf713.tmp */

BIN
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.identcache
View File

Binary file not shown.

BIN
Source/Modulos/Albaranes de cliente/Views/AlbaranesCliente_view.res
View File

Binary file not shown.

422
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -2,19 +2,19 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
Left = 332 Left = 332
Top = 147 Top = 147
Caption = 'Nuevo albaran de cliente' Caption = 'Nuevo albaran de cliente'
ClientHeight = 585 ClientHeight = 626
ClientWidth = 765 ClientWidth = 855
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 773 ExplicitWidth = 863
ExplicitHeight = 619 ExplicitHeight = 660
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 765 Width = 855
Caption = 'Nuevo albaran de cliente' Caption = 'Nuevo albaran de cliente'
ExplicitWidth = 765 ExplicitWidth = 855
inherited Image1: TImage inherited Image1: TImage
Left = 632 Left = 722
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -125,15 +125,15 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitLeft = 735 ExplicitLeft = 735
end end
inherited lblDesbloquear: TcxLabel inherited lblDesbloquear: TcxLabel
Left = 667 Left = 757
ExplicitLeft = 667 ExplicitLeft = 757
AnchorX = 712 AnchorX = 802
AnchorY = 14 AnchorY = 14
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 765 Width = 855
ExplicitWidth = 765 ExplicitWidth = 855
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 488
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
@ -153,7 +153,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 765 ExplicitWidth = 855
object TBXSubmenuItem2: TTBXSubmenuItem [4] object TBXSubmenuItem2: TTBXSubmenuItem [4]
Caption = 'A&cciones' Caption = 'A&cciones'
object TBXItem7: TTBXItem object TBXItem7: TTBXItem
@ -163,27 +163,28 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end end
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 759 Width = 849
Height = 439 Height = 382
ActivePage = pagContenido ActivePage = pagContenido
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitWidth = 759 ExplicitWidth = 849
ExplicitHeight = 439 ExplicitHeight = 366
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 751 ExplicitWidth = 841
ExplicitHeight = 411 ExplicitHeight = 338
end end
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitHeight = 338
inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 841
Height = 411 Height = 354
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -195,117 +196,62 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 751 ExplicitWidth = 841
ExplicitHeight = 411 ExplicitHeight = 338
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 751 Width = 841
Height = 51 Height = 73
ExplicitWidth = 751 ExplicitWidth = 841
ExplicitHeight = 51 ExplicitHeight = 73
inherited ToolButton3: TToolButton
Wrap = False
end
inherited ToolButton4: TToolButton
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited FontName: TJvFontComboBox
Left = 334
Top = 0
ExplicitLeft = 334
ExplicitTop = 0
end
inherited ToolButton14: TToolButton
Left = 479
Top = 0
ExplicitLeft = 479
ExplicitTop = 0
end
inherited FontSize: TEdit inherited FontSize: TEdit
Left = 544 Width = 202
Top = 0 ExplicitWidth = 202
Width = 106
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 106
end end
inherited ToolButton13: TToolButton [7] inherited UpDown1: TUpDown
Left = 0 Left = 202
Top = 0 ExplicitLeft = 202
Wrap = True
ExplicitLeft = 0
ExplicitTop = 0
ExplicitHeight = 27
end
inherited UpDown1: TUpDown [8]
Left = 0
Top = 27
ExplicitLeft = 0
ExplicitTop = 27
end
inherited ToolButton11: TToolButton
Left = 17
Top = 27
ExplicitLeft = 17
ExplicitTop = 27
end
inherited ToolButton12: TToolButton
Left = 158
Top = 27
Wrap = False
ExplicitLeft = 158
ExplicitTop = 27
ExplicitHeight = 22
end
inherited ToolButton9: TToolButton
Left = 166
Top = 27
ExplicitLeft = 166
ExplicitTop = 27
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 311 Left = 219
Top = 27 ExplicitLeft = 219
ExplicitLeft = 311
ExplicitTop = 27
end end
inherited ToolButton6: TToolButton inherited FontName: TJvFontComboBox
Left = 436 Left = 344
Top = 27 ExplicitLeft = 344
ExplicitLeft = 436
ExplicitTop = 27
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 502 Left = 489
Top = 27
Wrap = False Wrap = False
ExplicitLeft = 502 ExplicitLeft = 489
ExplicitTop = 27 end
inherited ToolButton11: TToolButton
Left = 556
Top = 49
ExplicitLeft = 556
ExplicitTop = 49
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 569 Left = 697
Top = 27 Top = 49
ExplicitLeft = 569 ExplicitLeft = 697
ExplicitTop = 27 ExplicitTop = 49
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 77 Top = 99
Width = 751 Width = 841
Height = 334 Height = 255
ExplicitTop = 77 ExplicitTop = 99
ExplicitWidth = 751 ExplicitWidth = 841
ExplicitHeight = 334 ExplicitHeight = 239
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 51 Top = 73
Width = 751 Width = 841
ExplicitTop = 51 ExplicitTop = 73
ExplicitWidth = 751 ExplicitWidth = 841
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 751 ExplicitWidth = 841
end end
end end
inherited cxGridPopupMenu: TcxGridPopupMenu inherited cxGridPopupMenu: TcxGridPopupMenu
@ -322,11 +268,12 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet object pagInicidencias: TTabSheet
Caption = 'Incidencias' Caption = 'Incidencias'
ImageIndex = 2 ImageIndex = 2
ExplicitHeight = 338
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 841
Height = 411 Height = 354
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -336,45 +283,45 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 751 ExplicitWidth = 841
ExplicitHeight = 411 ExplicitHeight = 338
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 751 Width = 841
ExplicitWidth = 751 ExplicitWidth = 841
inherited eIncidenciaActiva: TcxDBCheckBox inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21 ExplicitHeight = 21
end end
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 751 Width = 841
Height = 383 Height = 326
ExplicitWidth = 751 ExplicitWidth = 841
ExplicitHeight = 383 ExplicitHeight = 310
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 734 ExplicitWidth = 824
ExplicitHeight = 356 ExplicitHeight = 283
Height = 356 Height = 299
Width = 734 Width = 824
end end
end end
end end
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 566 Top = 607
Width = 765 Width = 855
Panels = < Panels = <
item item
Width = 200 Width = 200
end> end>
ExplicitTop = 566 ExplicitTop = 607
ExplicitWidth = 765 ExplicitWidth = 855
end end
inline frViewTotales1: TfrViewTotales [4] inline frViewTotalesAlbaran1: TfrViewTotalesAlbaran [4]
Left = 0 Left = 0
Top = 521 Top = 464
Width = 765 Width = 855
Height = 45 Height = 143
Align = alBottom Align = alBottom
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -384,283 +331,150 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 521 ExplicitTop = 464
ExplicitWidth = 765 ExplicitWidth = 855
ExplicitHeight = 45 ExplicitHeight = 143
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 765 Width = 855
Height = 45 Height = 143
LookAndFeel = dxLayoutOfficeLookAndFeel1 ExplicitWidth = 855
ExplicitWidth = 765 ExplicitHeight = 159
ExplicitHeight = 45
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 428 Left = 418
Top = 11 Height = 201
Width = 7 ExplicitLeft = 418
Height = 54 ExplicitHeight = 201
ExplicitLeft = 428
ExplicitTop = 11
ExplicitWidth = 7
ExplicitHeight = 54
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 544 Left = 551
Top = 53 ExplicitLeft = 551
Width = 192
ExplicitLeft = 544
ExplicitTop = 53
ExplicitWidth = 192
end end
inherited Bevel1: TBevel inherited Bevel1: TBevel
Left = 544 Left = 551
Top = 169 ExplicitLeft = 551
Width = 73
ExplicitLeft = 544
ExplicitTop = 169
ExplicitWidth = 73
end
inherited Bevel2: TBevel
Left = 120
Top = 171
Width = 368
ExplicitLeft = 120
ExplicitTop = 171
ExplicitWidth = 368
end end
inherited ImporteDto: TcxDBCurrencyEdit inherited ImporteDto: TcxDBCurrencyEdit
Left = 191
Top = 38
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 191
ExplicitTop = 38
end end
inherited ImporteIVA: TcxDBCurrencyEdit inherited ImporteIVA: TcxDBCurrencyEdit
Left = 615 Left = 622
Top = 88
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 615 ExplicitLeft = 622
ExplicitTop = 88
ExplicitWidth = 182
Width = 182
end end
inherited ImporteTotal: TcxDBCurrencyEdit inherited ImporteTotal: TcxDBCurrencyEdit
Left = 545 Left = 552
Top = 142
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 545 ExplicitLeft = 552
ExplicitTop = 142
ExplicitWidth = 252
Width = 252
end end
inherited edtDescuento: TcxDBSpinEdit inherited edtDescuento: TcxDBSpinEdit
Left = 120
Top = 38
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 38
end end
inherited edtIVA: TcxDBSpinEdit inherited edtIVA: TcxDBSpinEdit
Left = 544 Left = 551
Top = 88
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544 ExplicitLeft = 551
ExplicitTop = 88
end end
inherited ImporteBase: TcxDBCurrencyEdit inherited ImporteBase: TcxDBCurrencyEdit
Left = 544 Left = 551
Top = 11 DataBinding.DataField = 'IMPORTE_NETO'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544 ExplicitLeft = 551
ExplicitTop = 11
ExplicitWidth = 253
Width = 253
end end
inherited edtRE: TcxDBSpinEdit inherited edtRE: TcxDBSpinEdit
Left = 544 Left = 551
Top = 115
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544 ExplicitLeft = 551
ExplicitTop = 115
end end
inherited ImporteRE: TcxDBCurrencyEdit inherited ImporteRE: TcxDBCurrencyEdit
Left = 615 Left = 622
Top = 115
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 615 ExplicitLeft = 622
ExplicitTop = 115
ExplicitWidth = 182
Width = 182
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Left = 120
Top = 11
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 11
end end
inherited ePorte: TcxDBCurrencyEdit inherited ePorte: TcxDBCurrencyEdit
Left = 120
Top = 65
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 65
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
Left = 120
Top = 92
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 92
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 280 Left = 270
Top = 92 ExplicitLeft = 270
ExplicitLeft = 280
ExplicitTop = 92
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 120
Top = 119
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 119
ExplicitWidth = 221
Width = 221
end end
inherited edtRetencion: TcxDBSpinEdit inherited edtRetencion: TcxDBSpinEdit
Left = 544 Left = 551
Top = 189
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544 ExplicitLeft = 551
ExplicitTop = 189
end end
inherited edtImporteRetencion: TcxDBCurrencyEdit inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 615 Left = 622
Top = 189
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 615 ExplicitLeft = 622
ExplicitTop = 189
ExplicitWidth = 180
Width = 180
end end
inherited edtFechaRetencion: TcxDBDateEdit inherited edtFechaRetencion: TcxDBDateEdit
Left = 120
Top = 191
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 191
ExplicitWidth = 280
Width = 280
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
ShowCaption = False
ShowBorder = False
inherited dxLayoutControl1Group2: TdxLayoutGroup
inherited dxLayoutControl1Item8: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group7: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Group6: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Item16: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item19: TdxLayoutItem
Visible = False
end
end
inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Item13: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item12: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Item14: TdxLayoutItem
Visible = False
end
inherited dxLayoutControl1Group9: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Group8: TdxLayoutGroup
Visible = False
end
inherited dxLayoutControl1Item10: TdxLayoutItem
Visible = False
end
end
end
end
end end
end end
end end

29
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -14,7 +14,7 @@ uses
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales, dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
uIEditorAlbaranCliente, uBizAlbaranesCliente, uViewAlbaranCliente, uIEditorAlbaranCliente, uBizAlbaranesCliente, uViewAlbaranCliente,
uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces, uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces,
uViewDetallesArticulosParaVenta, cxLabel, Grids, DBGrids; uViewDetallesArticulosParaVenta, cxLabel, Grids, DBGrids, uViewTotalesAlbaran;
type type
TfEditorAlbaranCliente = class(TfEditorDBItem, IEditorAlbaranCliente) TfEditorAlbaranCliente = class(TfEditorDBItem, IEditorAlbaranCliente)
@ -24,22 +24,19 @@ type
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList; dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente; frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente;
frViewTotales1: TfrViewTotales;
actEnviarEMail: TAction; actEnviarEMail: TAction;
TBXSubmenuItem2: TTBXSubmenuItem; TBXSubmenuItem2: TTBXSubmenuItem;
TBXItem7: TTBXItem; TBXItem7: TTBXItem;
TBXItem33: TTBXItem; TBXItem33: TTBXItem;
TBXSeparatorItem6: TTBXSeparatorItem; TBXSeparatorItem6: TTBXSeparatorItem;
frViewTotalesAlbaran1: TfrViewTotalesAlbaran;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction); procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean); procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject; procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTotales1edtDescuentoPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTotales1edtIVAPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure actEnviarEMailExecute(Sender: TObject); procedure actEnviarEMailExecute(Sender: TObject);
procedure actEnviarEMailUpdate(Sender: TObject); procedure actEnviarEMailUpdate(Sender: TObject);
private private
@ -171,22 +168,6 @@ begin
pgPaginas.ActivePage := pagGeneral; pgPaginas.ActivePage := pagGeneral;
end; end;
procedure TfEditorAlbaranCliente.frViewTotales1edtDescuentoPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
inherited;
FAlbaran.DESCUENTO := DisplayValue;
end;
procedure TfEditorAlbaranCliente.frViewTotales1edtIVAPropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean);
begin
inherited;
FAlbaran.IVA := DisplayValue;
end;
procedure TfEditorAlbaranCliente.frViewTotales1ePortePropertiesValidate( procedure TfEditorAlbaranCliente.frViewTotales1ePortePropertiesValidate(
Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption;
var Error: Boolean); var Error: Boolean);
@ -353,7 +334,7 @@ begin
begin begin
dsDataTable.DataTable := FAlbaran.DataTable; dsDataTable.DataTable := FAlbaran.DataTable;
frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable; frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable;
frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable; frViewTotalesAlbaran1.DADataSource.DataTable := dsDataTable.DataTable;
if Assigned(FViewAlbaran) then if Assigned(FViewAlbaran) then
begin begin
@ -370,7 +351,7 @@ begin
else begin else begin
dsDataTable.DataTable := NIL; dsDataTable.DataTable := NIL;
frViewIncidenciasCli.DADataSource.DataTable := NIL; frViewIncidenciasCli.DADataSource.DataTable := NIL;
frViewTotales1.DADataSource.DataTable := NIL; frViewTotalesAlbaran1.DADataSource.DataTable := NIL;
if Assigned(FViewAlbaran) then if Assigned(FViewAlbaran) then
begin begin

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -197,6 +197,10 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
inherited actAnchoAuto: TAction inherited actAnchoAuto: TAction
ImageIndex = 22 ImageIndex = 22
end end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
object actGenerarFactura: TAction object actGenerarFactura: TAction
Category = 'Acciones' Category = 'Acciones'
Caption = 'Generar factura' Caption = 'Generar factura'

46
Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.dfm
View File

@ -1,5 +1,51 @@
inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCliente inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCliente
Caption = 'fEditorElegirArticulosAlbaranCliente' Caption = 'fEditorElegirArticulosAlbaranCliente'
ExplicitHeight = 538
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
ExplicitTop = 113
end
inherited TBXDock: TTBXDock
ExplicitTop = 64
inherited tbxMain: TTBXToolbar
Left = 340
DockPos = 335
ExplicitLeft = 340
ExplicitWidth = 126
end
inherited tbxFiltro: TTBXToolbar
Left = 3
DockPos = 3
ExplicitLeft = 3
end
inherited TBXTMain2: TTBXToolbar
Left = 466
ExplicitLeft = 466
end
end
inherited pnlHeader: TPanel
ExplicitTop = 0
inherited lblTitle: TLabel
Width = 606
end
inherited lblComments: TLabel
Width = 581
Height = 24
end
end
inherited EditorActionList: TActionList
inherited actNuevo: TAction
Enabled = False
Visible = False
end
inherited actModificar: TAction
Enabled = False
Visible = False
end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
end
end end

6
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm
View File

@ -26,6 +26,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Caption = Caption =
'Si el proveedor entrega los materiales directamente al cliente, ' + 'Si el proveedor entrega los materiales directamente al cliente, ' +
'no se necesario asociar el albar'#225'n a un almac'#233'n.' 'no se necesario asociar el albar'#225'n a un almac'#233'n.'
Enabled = False
WordWrap = True WordWrap = True
end end
object edtFechaAlbaran: TcxDBDateEdit object edtFechaAlbaran: TcxDBDateEdit
@ -325,6 +326,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Width = 179 Width = 179
Height = 21 Height = 21
Caption = 'Asociar este albar'#225'n al almac'#233'n:' Caption = 'Asociar este albar'#225'n al almac'#233'n:'
Enabled = False
TabOrder = 15 TabOrder = 15
OnClick = cbConAlmacenClick OnClick = cbConAlmacenClick
end end
@ -333,6 +335,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
Top = 418 Top = 418
DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataField = 'ID_ALMACEN'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Enabled = False
Properties.KeyFieldNames = 'ID' Properties.KeyFieldNames = 'ID'
Properties.ListColumns = < Properties.ListColumns = <
item item
@ -667,7 +670,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
ShowBorder = False ShowBorder = False
object dxLayoutControl1Group14: TdxLayoutGroup object dxLayoutControl1Group14: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Visible = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
@ -779,6 +781,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente
end end
object dxLayoutControl1Group11: TdxLayoutGroup object dxLayoutControl1Group11: TdxLayoutGroup
Caption = 'Almac'#233'n de origen' Caption = 'Almac'#233'n de origen'
Enabled = False
Visible = False
object dxLayoutControl1Group10: TdxLayoutGroup object dxLayoutControl1Group10: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True

116
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm
View File

@ -1,60 +1,87 @@
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
inherited ToolButton9: TToolButton [3] Height = 100
Left = 278 ExplicitHeight = 100
Top = 0 inherited ToolButton14: TToolButton
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton4: TToolButton [4]
Left = 423
Wrap = False Wrap = False
ExplicitLeft = 423
end end
inherited ToolButton12: TToolButton [5] inherited ToolButton9: TToolButton [5]
Top = 0 Left = 121
ExplicitTop = 0 Top = 22
ExplicitLeft = 121
ExplicitTop = 22
end end
inherited ToolButton14: TToolButton [6] inherited FontName: TJvFontComboBox [6]
Left = 266
Top = 22
ExplicitLeft = 266
ExplicitTop = 22
end
inherited ToolButton13: TToolButton [7]
Left = 0 Left = 0
Top = 27 Top = 22
Wrap = True
ExplicitLeft = 0 ExplicitLeft = 0
ExplicitTop = 22
end end
inherited FontName: TJvFontComboBox [7] inherited ToolButton6: TToolButton [8]
end Left = 0
inherited ToolButton13: TToolButton [8]
Left = 145
Top = 49 Top = 49
ExplicitLeft = 145 ExplicitLeft = 0
ExplicitTop = 49 ExplicitTop = 49
end end
inherited ToolButton10: TToolButton inherited FontSize: TEdit [9]
Left = 153 Left = 66
ExplicitLeft = 153 Top = 49
end
inherited ToolButton7: TToolButton
Left = 278
ExplicitLeft = 278
end
inherited ToolButton8: TToolButton [12]
Left = 17
ExplicitLeft = 17
end
inherited ToolButton6: TToolButton
Left = 100
ExplicitLeft = 100
end
inherited ToolButton11: TToolButton [14]
Left = 166
ExplicitLeft = 166
end
inherited FontSize: TEdit
Width = 58 Width = 58
ExplicitLeft = 66
ExplicitTop = 49
ExplicitWidth = 58 ExplicitWidth = 58
end end
inherited UpDown1: TUpDown [10]
Left = 124
Top = 49
ExplicitLeft = 124
ExplicitTop = 49
end
inherited ToolButton7: TToolButton [11]
Left = 141
Top = 49
ExplicitLeft = 141
ExplicitTop = 49
end
inherited ToolButton11: TToolButton [12]
Left = 208
Top = 49
ExplicitLeft = 208
ExplicitTop = 49
end
inherited ToolButton12: TToolButton [13]
Left = 0
Top = 49
Wrap = True
ExplicitLeft = 0
ExplicitTop = 49
ExplicitHeight = 27
end
inherited ToolButton10: TToolButton
Left = 0
Top = 76
ExplicitLeft = 0
ExplicitTop = 76
end
inherited ToolButton8: TToolButton [15]
Left = 125
Top = 76
ExplicitLeft = 125
ExplicitTop = 76
end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
ExplicitTop = 121 Top = 126
Height = 178
ExplicitTop = 126
ExplicitHeight = 178
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn inherited cxGridViewTIPO: TcxGridDBColumn
Visible = False Visible = False
@ -62,6 +89,8 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
end end
inherited cxGridViewCANTIDAD: TcxGridDBColumn inherited cxGridViewCANTIDAD: TcxGridDBColumn
Properties.ReadOnly = True Properties.ReadOnly = True
Visible = False
VisibleForCustomization = False
end end
object cxGridViewCANTIDAD2: TcxGridDBColumn [10] object cxGridViewCANTIDAD2: TcxGridDBColumn [10]
Caption = 'Cantidad' Caption = 'Cantidad'
@ -75,9 +104,14 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = cxGridViewCANTIDAD2PropertiesButtonClick Properties.OnButtonClick = cxGridViewCANTIDAD2PropertiesButtonClick
end end
inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
end end
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 100
ExplicitTop = 100 ExplicitTop = 100
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
DockPos = 0 DockPos = 0

6
Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.pas
View File

@ -57,7 +57,7 @@ begin
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID, -1) Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID, -1)
else else
Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID); Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID, 0);
(Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles); (Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles);
end; end;
@ -87,7 +87,9 @@ begin
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False, -1) (Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False, -1)
else else
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False); (Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False, 0);
(Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles);
end; end;
procedure TfrViewDetallesAlbaranCliente.SetAlbaran(const Value: IBizAlbaranCliente); procedure TfrViewDetallesAlbaranCliente.SetAlbaran(const Value: IBizAlbaranCliente);

2
Source/Modulos/Albaranes de proveedor/Controller/AlbaranesProveedor_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Controller\AlbaranesProveedor_controller.res */
/* E:\temp\dtfCB.tmp */ /* E:\temp\dtf6E9.tmp */

2
Source/Modulos/Albaranes de proveedor/Data/AlbaranesProveedor_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\uDataModuleAlbaranesProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\uDataModuleAlbaranesProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\AlbaranesProveedor_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Data\AlbaranesProveedor_data.res */
/* E:\temp\dtfC9.tmp */ /* E:\temp\dtf6E7.tmp */

2
Source/Modulos/Albaranes de proveedor/Model/AlbaranesProveedor_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Model\AlbaranesProveedor_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Model\AlbaranesProveedor_model.res */
/* E:\temp\dtfC7.tmp */ /* E:\temp\dtf6E5.tmp */

2
Source/Modulos/Albaranes de proveedor/Plugin/AlbaranesProveedor_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\uPluginAlbaranesProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\uPluginAlbaranesProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.res */
/* E:\temp\dtf10B.tmp */ /* E:\temp\dtf729.tmp */

2
Source/Modulos/Albaranes de proveedor/Views/AlbaranesProveedor_view.drc
View File

@ -29,4 +29,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranDevProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranDevProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranesProveedorReport.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\uEditorAlbaranesProveedorReport.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.res */ /* C:\Codigo Noviseda\Source\Modulos\Albaranes de proveedor\Views\AlbaranesProveedor_view.res */
/* E:\temp\dtf109.tmp */ /* E:\temp\dtf727.tmp */

2
Source/Modulos/Almacenes/Plugin/uPluginAlmacenes.dfm
View File

@ -48,7 +48,9 @@ object PluginAlmacenes: TPluginAlmacenes
Tag = 100 Tag = 100
Category = 'Log'#237'stica' Category = 'Log'#237'stica'
Caption = 'Almacenes' Caption = 'Almacenes'
Enabled = False
ImageIndex = 0 ImageIndex = 0
Visible = False
OnExecute = actAlmacenesExecute OnExecute = actAlmacenesExecute
end end
end end

16
Source/Modulos/Articulos/Views/uViewDetallesArticulos.dfm
View File

@ -28,6 +28,22 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
Left = 345 Left = 345
ExplicitLeft = 345 ExplicitLeft = 345
end end
inherited ToolButton12: TToolButton
Left = 428
ExplicitLeft = 428
end
inherited ToolButton9: TToolButton
Left = 436
ExplicitLeft = 436
end
inherited ToolButton10: TToolButton
Left = 581
ExplicitLeft = 581
end
inherited ToolButton11: TToolButton
Left = 706
ExplicitLeft = 706
end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView

4
Source/Modulos/Articulos/Views/uViewDetallesArticulos.pas
View File

@ -103,7 +103,7 @@ procedure TfrViewDetallesArticulos.CustomViewShow(Sender: TObject);
begin begin
inherited; inherited;
with DADataSource.DataTable do { with DADataSource.DataTable do
begin begin
cxGridView.BeginUpdate; cxGridView.BeginUpdate;
try try
@ -137,7 +137,7 @@ begin
cxGridView.EndUpdate; cxGridView.EndUpdate;
end; end;
end; end;
}
SeleccionarFilaActual; SeleccionarFilaActual;
end; end;

124
Source/Modulos/Articulos/Views/uViewDetallesArticulosParaVenta.dfm
View File

@ -2,100 +2,85 @@ inherited frViewDetallesArticulosParaVenta: TfrViewDetallesArticulosParaVenta
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Height = 95 Height = 95
ExplicitHeight = 95 ExplicitHeight = 95
inherited ToolButton14: TToolButton [1] inherited ToolButton12: TToolButton [3]
Left = 0 Left = 278
Top = 22 Top = 0
Wrap = False ExplicitLeft = 278
ExplicitLeft = 0 ExplicitTop = 0
ExplicitTop = 22
end end
inherited ToolButton12: TToolButton [2] inherited ToolButton13: TToolButton [4]
Left = 65
Wrap = False
ExplicitLeft = 65
ExplicitHeight = 22
end
inherited ToolButton13: TToolButton [3]
Left = 0 Left = 0
Top = 0
Wrap = True Wrap = True
ExplicitLeft = 0
ExplicitHeight = 27
end end
inherited ToolButton2: TToolButton [4] inherited ToolButton4: TToolButton [5]
Left = 0 Top = 27
Top = 49
ExplicitLeft = 0
ExplicitTop = 49
end end
inherited ToolButton3: TToolButton [5] inherited ToolButton14: TToolButton [6]
Left = 114 Top = 27
Top = 49 Wrap = False
ExplicitLeft = 114 ExplicitTop = 27
ExplicitTop = 49
end end
inherited ToolButton4: TToolButton [6] inherited ToolButton6: TToolButton [7]
Left = 169 Left = 121
Top = 49 Top = 27
ExplicitLeft = 169 ExplicitLeft = 121
ExplicitTop = 49 ExplicitTop = 27
end end
inherited ToolButton7: TToolButton [7] inherited ToolButton9: TToolButton [8]
Left = 225 Left = 187
Top = 49 Top = 27
ExplicitLeft = 225
ExplicitTop = 49
end
inherited FontName: TJvFontComboBox [8]
Left = 292
Top = 49
ExplicitLeft = 292
ExplicitTop = 49
end
inherited ToolButton9: TToolButton [9]
Left = 437
ExplicitLeft = 437
end
inherited ToolButton8: TToolButton [10]
Left = 582
Top = 49
Wrap = True Wrap = True
ExplicitLeft = 582 ExplicitLeft = 187
ExplicitTop = 27
end
inherited FontSize: TEdit [9]
Left = 0
Top = 49
ExplicitLeft = 0
ExplicitTop = 49 ExplicitTop = 49
end end
inherited FontSize: TEdit [11] inherited ToolButton7: TToolButton
Left = 0
Top = 71
ExplicitLeft = 0
ExplicitTop = 71
end
inherited UpDown1: TUpDown [12]
Left = 42 Left = 42
Top = 71 Top = 49
ExplicitLeft = 42 ExplicitLeft = 42
ExplicitTop = 49
end
inherited UpDown1: TUpDown [11]
Left = 109
Top = 49
ExplicitLeft = 109
ExplicitTop = 49
end
inherited ToolButton10: TToolButton [12]
Left = 126
Top = 49
Wrap = True
ExplicitLeft = 126
ExplicitTop = 49
end
inherited FontName: TJvFontComboBox [13]
Top = 71
ExplicitTop = 71 ExplicitTop = 71
end end
inherited ToolButton6: TToolButton [13] inherited ToolButton8: TToolButton [14]
Left = 59 Left = 145
Top = 71 Top = 71
ExplicitLeft = 59 ExplicitLeft = 145
ExplicitTop = 71
end
inherited ToolButton10: TToolButton
Left = 125
Top = 71
ExplicitLeft = 125
ExplicitTop = 71 ExplicitTop = 71
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 250 Left = 228
Top = 71 Top = 71
ExplicitLeft = 250 ExplicitLeft = 228
ExplicitTop = 71 ExplicitTop = 71
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 121 Top = 121
Height = 183 Height = 183
ExplicitTop = 121
ExplicitHeight = 183
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn inherited cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn
Visible = False Visible = False
@ -109,5 +94,6 @@ inherited frViewDetallesArticulosParaVenta: TfrViewDetallesArticulosParaVenta
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 95 Top = 95
ExplicitTop = 68
end end
end end

7
Source/Modulos/Articulos/Views/uViewDetallesArticulosParaVenta.pas
View File

@ -37,13 +37,13 @@ uses uControllerDetallesArticulos;
procedure TfrViewDetallesArticulosParaVenta.CustomViewDestroy(Sender: TObject); procedure TfrViewDetallesArticulosParaVenta.CustomViewDestroy(Sender: TObject);
begin begin
inherited; inherited;
cxGridViewIMPORTEUNIDAD.OnGetPropertiesForEdit := Nil; // cxGridViewIMPORTEUNIDAD.OnGetPropertiesForEdit := Nil;
end; end;
procedure TfrViewDetallesArticulosParaVenta.CustomViewShow(Sender: TObject); procedure TfrViewDetallesArticulosParaVenta.CustomViewShow(Sender: TObject);
begin begin
inherited; inherited;
{
with DADataSource.DataTable do with DADataSource.DataTable do
begin begin
cxGridView.BeginUpdate; cxGridView.BeginUpdate;
@ -53,6 +53,7 @@ begin
cxGridView.EndUpdate; cxGridView.EndUpdate;
end; end;
end; end;
}
end; end;
procedure TfrViewDetallesArticulosParaVenta.OnIMPORTEUNIDADGetProperties( procedure TfrViewDetallesArticulosParaVenta.OnIMPORTEUNIDADGetProperties(
@ -61,6 +62,7 @@ procedure TfrViewDetallesArticulosParaVenta.OnIMPORTEUNIDADGetProperties(
var var
Aux_IDArticulo: Variant; Aux_IDArticulo: Variant;
begin begin
{
Aux_IDArticulo := Null; Aux_IDArticulo := Null;
cxEditRepositoryComboBox_IMPORTEUNIDAD.Properties.Items.Clear; cxEditRepositoryComboBox_IMPORTEUNIDAD.Properties.Items.Clear;
@ -88,6 +90,7 @@ begin
end; end;
end; end;
}
end; end;
end. end.

2
Source/Modulos/Contactos/Controller/Contactos_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Controller\Contactos_controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Controller\Contactos_controller.res */
/* E:\temp\dtf47.tmp */ /* E:\temp\dtf665.tmp */

2
Source/Modulos/Contactos/Data/Contactos_data.drc
View File

@ -18,4 +18,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleEmpleados.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleVendedores.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\uDataModuleVendedores.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\Contactos_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Data\Contactos_data.res */
/* E:\temp\dtf45.tmp */ /* E:\temp\dtf663.tmp */

4
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -255,6 +255,10 @@ inherited DataModuleClientes: TDataModuleClientes
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'DESCUENTO2'
DataType = datCurrency
end
item item
Name = 'FELICITACION' Name = 'FELICITACION'
DataType = datSmallInt DataType = datSmallInt

5
Source/Modulos/Contactos/Data/uDataModuleVendedores.dfm
View File

@ -171,6 +171,11 @@ inherited DataModuleVendedores: TDataModuleVendedores
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'Vendedores_REFERENCIA' DictionaryEntry = 'Vendedores_REFERENCIA'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item item
Name = 'COMISION' Name = 'COMISION'
DataType = datCurrency DataType = datCurrency

2
Source/Modulos/Contactos/Model/Contactos_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Model\Contactos_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Model\Contactos_model.res */
/* E:\temp\dtf43.tmp */ /* E:\temp\dtf661.tmp */

134
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -9,21 +9,21 @@ 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_Contactos = '{5939CC4C-98CD-4418-AE8E-E1DA5899B100}'; RID_Contactos = '{31E890C9-C096-4B82-8434-F8C22E4BDEDC}';
RID_GruposCliente = '{686F98AF-A391-438F-996F-2E8376E9C756}'; RID_GruposCliente = '{70B933FC-B92B-4DEA-B54A-5B4D39AC8BC0}';
RID_DatosBancarios = '{D9139452-F46D-4EDB-9332-BA358EF1BA5A}'; RID_DatosBancarios = '{67D159F3-DF6A-4090-85D0-18942A2E5E9F}';
RID_Vendedores = '{68A7BE98-0EA2-49CE-87AA-BECC0EAFDB21}'; RID_Vendedores = '{395B321C-C0F2-422E-9DCB-9F7535E4A2EF}';
RID_Clientes = '{A043C7D9-602B-4CE5-904A-748EF25CAA33}'; RID_Clientes = '{78865B8B-5E9D-48DA-A2B4-C7BF60D2C90A}';
RID_Proveedores = '{F34AE78A-927A-471A-930E-70476275378E}'; RID_Proveedores = '{35C717ED-5796-4BD8-9D32-F3BA1FE2F050}';
RID_Empleados = '{DC15408D-F82B-40B5-ABBF-7EC9B74EE6C4}'; RID_Empleados = '{AA5DB4CA-CC60-431C-9C32-3396340E225B}';
RID_DireccionesContacto = '{23F3B0A4-8058-4E86-9126-07B019F41A86}'; RID_DireccionesContacto = '{1F2574EE-F467-48A2-BD39-D288B2E72968}';
RID_ClientesDescuentos = '{9221F17D-4216-4B56-8266-D3A3CD27B9C0}'; RID_ClientesDescuentos = '{7971F20B-2FAA-4CFF-AFDB-3846A73505A2}';
RID_GruposProveedor = '{17C56F46-1FC5-4ECA-AEEF-35E9F0E37824}'; RID_GruposProveedor = '{E426F450-BDFB-412A-9BBE-83309453C2D2}';
RID_GruposEmpleado = '{2B172CD8-6608-4817-9888-732E289BDCD5}'; RID_GruposEmpleado = '{B7E33531-935F-43EF-9AAA-EA60734E4312}';
RID_Contactos_Refresh = '{AE8F079E-E59A-4AD4-959A-7E64693B346C}'; RID_Contactos_Refresh = '{B9889A3F-313E-4454-AE79-97CF3D812540}';
RID_ContratosEmpleados = '{635F5995-E674-43A9-8905-1582162D9A10}'; RID_ContratosEmpleados = '{6DE395F5-9C4F-4BED-BEC6-29552362FB92}';
RID_DescripcionesProveedores = '{1EDD4D3F-8608-4916-A739-A5FE584A9271}'; RID_DescripcionesProveedores = '{39884348-E254-4A49-932E-8FE22A14331E}';
RID_PersonalContacto = '{522A1340-5FCA-4907-A7D6-C5646908ABD1}'; RID_PersonalContacto = '{C74D4AF4-AF4E-4CC4-977F-93219C341679}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -148,6 +148,7 @@ const
fld_VendedoresUSUARIO = 'USUARIO'; fld_VendedoresUSUARIO = 'USUARIO';
fld_VendedoresID_EMPRESA = 'ID_EMPRESA'; fld_VendedoresID_EMPRESA = 'ID_EMPRESA';
fld_VendedoresREFERENCIA = 'REFERENCIA'; fld_VendedoresREFERENCIA = 'REFERENCIA';
fld_VendedoresPAIS = 'PAIS';
fld_VendedoresCOMISION = 'COMISION'; fld_VendedoresCOMISION = 'COMISION';
{ Vendedores field indexes } { Vendedores field indexes }
@ -174,7 +175,8 @@ const
idx_VendedoresUSUARIO = 20; idx_VendedoresUSUARIO = 20;
idx_VendedoresID_EMPRESA = 21; idx_VendedoresID_EMPRESA = 21;
idx_VendedoresREFERENCIA = 22; idx_VendedoresREFERENCIA = 22;
idx_VendedoresCOMISION = 23; idx_VendedoresPAIS = 23;
idx_VendedoresCOMISION = 24;
{ Clientes fields } { Clientes fields }
fld_ClientesID = 'ID'; fld_ClientesID = 'ID';
@ -214,6 +216,7 @@ const
fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_ClientesTIENDA_WEB = 'TIENDA_WEB'; fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
fld_ClientesDESCUENTO = 'DESCUENTO'; fld_ClientesDESCUENTO = 'DESCUENTO';
fld_ClientesDESCUENTO2 = 'DESCUENTO2';
fld_ClientesFELICITACION = 'FELICITACION'; fld_ClientesFELICITACION = 'FELICITACION';
{ Clientes field indexes } { Clientes field indexes }
@ -254,7 +257,8 @@ const
idx_ClientesID_FORMA_PAGO = 34; idx_ClientesID_FORMA_PAGO = 34;
idx_ClientesTIENDA_WEB = 35; idx_ClientesTIENDA_WEB = 35;
idx_ClientesDESCUENTO = 36; idx_ClientesDESCUENTO = 36;
idx_ClientesFELICITACION = 37; idx_ClientesDESCUENTO2 = 37;
idx_ClientesFELICITACION = 38;
{ Proveedores fields } { Proveedores fields }
fld_ProveedoresID = 'ID'; fld_ProveedoresID = 'ID';
@ -559,7 +563,7 @@ const
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{50009CF6-F80E-4F1F-A421-6C016FB350B5}'] ['{A35A8745-1A25-43A0-B705-6E13F0D74A27}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -870,7 +874,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{D15C83D9-E697-4B83-9A49-4B09DCB7F520}'] ['{FAAEE2D3-FB05-47AD-8948-E82168F803B6}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -917,7 +921,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{3C83C36A-B5A7-4019-8EA7-0B71F0E2A326}'] ['{14B854C7-B106-4620-9E3C-4C7346C1F185}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1048,7 +1052,7 @@ type
{ IVendedores } { IVendedores }
IVendedores = interface(IDAStronglyTypedDataTable) IVendedores = interface(IDAStronglyTypedDataTable)
['{9759F724-E96E-4C08-BDEA-23D9C275C679}'] ['{2BA78472-22B6-4544-874D-7C9F7FA3D9AC}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1141,6 +1145,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean; function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean); procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetPAISValue: String;
procedure SetPAISValue(const aValue: String);
function GetPAISIsNull: Boolean;
procedure SetPAISIsNull(const aValue: Boolean);
function GetCOMISIONValue: Currency; function GetCOMISIONValue: Currency;
procedure SetCOMISIONValue(const aValue: Currency); procedure SetCOMISIONValue(const aValue: Currency);
function GetCOMISIONIsNull: Boolean; function GetCOMISIONIsNull: Boolean;
@ -1194,6 +1202,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue; property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue;
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
end; end;
@ -1296,6 +1306,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual; function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetPAISValue: String; virtual;
procedure SetPAISValue(const aValue: String); virtual;
function GetPAISIsNull: Boolean; virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
function GetCOMISIONValue: Currency; virtual; function GetCOMISIONValue: Currency; virtual;
procedure SetCOMISIONValue(const aValue: Currency); virtual; procedure SetCOMISIONValue(const aValue: Currency); virtual;
function GetCOMISIONIsNull: Boolean; virtual; function GetCOMISIONIsNull: Boolean; virtual;
@ -1348,6 +1362,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue; property COMISION: Currency read GetCOMISIONValue write SetCOMISIONValue;
property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; property COMISIONIsNull: Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
@ -1359,7 +1375,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{A0EBE95B-5810-4106-8B6A-66729CAE424F}'] ['{E76A366B-DE63-4C0C-8634-103DA9C2858E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1508,6 +1524,10 @@ type
procedure SetDESCUENTOValue(const aValue: Currency); procedure SetDESCUENTOValue(const aValue: Currency);
function GetDESCUENTOIsNull: Boolean; function GetDESCUENTOIsNull: Boolean;
procedure SetDESCUENTOIsNull(const aValue: Boolean); procedure SetDESCUENTOIsNull(const aValue: Boolean);
function GetDESCUENTO2Value: Currency;
procedure SetDESCUENTO2Value(const aValue: Currency);
function GetDESCUENTO2IsNull: Boolean;
procedure SetDESCUENTO2IsNull(const aValue: Boolean);
function GetFELICITACIONValue: SmallInt; function GetFELICITACIONValue: SmallInt;
procedure SetFELICITACIONValue(const aValue: SmallInt); procedure SetFELICITACIONValue(const aValue: SmallInt);
function GetFELICITACIONIsNull: Boolean; function GetFELICITACIONIsNull: Boolean;
@ -1589,6 +1609,8 @@ type
property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
property DESCUENTO: Currency read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Currency read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value;
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
end; end;
@ -1747,6 +1769,10 @@ type
procedure SetDESCUENTOValue(const aValue: Currency); virtual; procedure SetDESCUENTOValue(const aValue: Currency); virtual;
function GetDESCUENTOIsNull: Boolean; virtual; function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetDESCUENTO2Value: Currency; virtual;
procedure SetDESCUENTO2Value(const aValue: Currency); virtual;
function GetDESCUENTO2IsNull: Boolean; virtual;
procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual;
function GetFELICITACIONValue: SmallInt; virtual; function GetFELICITACIONValue: SmallInt; virtual;
procedure SetFELICITACIONValue(const aValue: SmallInt); virtual; procedure SetFELICITACIONValue(const aValue: SmallInt); virtual;
function GetFELICITACIONIsNull: Boolean; virtual; function GetFELICITACIONIsNull: Boolean; virtual;
@ -1827,6 +1853,8 @@ type
property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
property DESCUENTO: Currency read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Currency read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value;
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
@ -1838,7 +1866,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{B9739EE6-8C5F-4FF5-9110-ED16F630EECF}'] ['{69281F58-47C5-447A-811E-27BAE8C96B1A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2305,7 +2333,7 @@ type
{ IEmpleados } { IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable) IEmpleados = interface(IDAStronglyTypedDataTable)
['{39609E2C-7624-4D4F-B872-9F289DE7937D}'] ['{9225D67C-D954-4519-BB62-C8FB0EFB9C72}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2736,7 +2764,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{4B93EF20-3992-48B7-BDBC-A57487E53E79}'] ['{FABA6DB9-4D4A-4D85-B09D-8E276690BBEE}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2951,7 +2979,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{7035995A-EC52-4E8F-9125-6C6F3BC775D9}'] ['{B9D08C3F-73DF-40A9-8276-51CE26BA7E11}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3034,7 +3062,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{A61D9648-2122-4FA8-A42F-0CE36F65026A}'] ['{8EDC5230-73EE-4212-83F1-881C5F46E504}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3081,7 +3109,7 @@ type
{ IGruposEmpleado } { IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable) IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{E336809F-9CCC-475C-81EC-A9A214F8190F}'] ['{A9B3167E-EF15-42F4-AAD7-2E195697345A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3128,7 +3156,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{A34B665C-EB99-4B5C-89AE-EBC2B1F3C04E}'] ['{983F8897-1B60-47CE-A029-A58FB45854C0}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3415,7 +3443,7 @@ type
{ IContratosEmpleados } { IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable) IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{13D56F00-3B17-4139-8C9C-4D824F100B29}'] ['{476A9822-5CC7-45FB-BEB1-66DB796FA07A}']
{ Property getters and setters } { Property getters and setters }
function GetCONTRATOValue: String; function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String); procedure SetCONTRATOValue(const aValue: String);
@ -3450,7 +3478,7 @@ type
{ IDescripcionesProveedores } { IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{6349752A-7AE2-40FF-8A52-255597E6E0E9}'] ['{0B27EF2B-D61E-4CDE-AEAF-AF2F3275D15D}']
{ Property getters and setters } { Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String; function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -3485,7 +3513,7 @@ type
{ IPersonalContacto } { IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable) IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{119539A2-3D42-4359-A16E-B2ED25BE299F}'] ['{F8B934DE-AE4E-4C28-90B2-7D81DA8A43FA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -4909,6 +4937,27 @@ begin
DataTable.Fields[idx_VendedoresREFERENCIA].AsVariant := Null; DataTable.Fields[idx_VendedoresREFERENCIA].AsVariant := Null;
end; end;
function TVendedoresDataTableRules.GetPAISValue: String;
begin
result := DataTable.Fields[idx_VendedoresPAIS].AsString;
end;
procedure TVendedoresDataTableRules.SetPAISValue(const aValue: String);
begin
DataTable.Fields[idx_VendedoresPAIS].AsString := aValue;
end;
function TVendedoresDataTableRules.GetPAISIsNull: boolean;
begin
result := DataTable.Fields[idx_VendedoresPAIS].IsNull;
end;
procedure TVendedoresDataTableRules.SetPAISIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_VendedoresPAIS].AsVariant := Null;
end;
function TVendedoresDataTableRules.GetCOMISIONValue: Currency; function TVendedoresDataTableRules.GetCOMISIONValue: Currency;
begin begin
result := DataTable.Fields[idx_VendedoresCOMISION].AsCurrency; result := DataTable.Fields[idx_VendedoresCOMISION].AsCurrency;
@ -5726,6 +5775,27 @@ begin
DataTable.Fields[idx_ClientesDESCUENTO].AsVariant := Null; DataTable.Fields[idx_ClientesDESCUENTO].AsVariant := Null;
end; end;
function TClientesDataTableRules.GetDESCUENTO2Value: Currency;
begin
result := DataTable.Fields[idx_ClientesDESCUENTO2].AsCurrency;
end;
procedure TClientesDataTableRules.SetDESCUENTO2Value(const aValue: Currency);
begin
DataTable.Fields[idx_ClientesDESCUENTO2].AsCurrency := aValue;
end;
function TClientesDataTableRules.GetDESCUENTO2IsNull: boolean;
begin
result := DataTable.Fields[idx_ClientesDESCUENTO2].IsNull;
end;
procedure TClientesDataTableRules.SetDESCUENTO2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ClientesDESCUENTO2].AsVariant := Null;
end;
function TClientesDataTableRules.GetFELICITACIONValue: SmallInt; function TClientesDataTableRules.GetFELICITACIONValue: SmallInt;
begin begin
result := DataTable.Fields[idx_ClientesFELICITACION].AsSmallInt; result := DataTable.Fields[idx_ClientesFELICITACION].AsSmallInt;

146
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,26 +9,26 @@ 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_ContactosDelta = '{D6952F1E-C7D5-4FD8-86A2-9086CF96322C}'; RID_ContactosDelta = '{D6DB0142-BEA4-4DC0-B44D-42008D833687}';
RID_GruposClienteDelta = '{27585B84-7756-4555-A6C8-FEB6918E681C}'; RID_GruposClienteDelta = '{E6162081-3DD9-48ED-91A1-8BD0F798707B}';
RID_DatosBancariosDelta = '{0E0F05AE-194D-46D2-8E16-B68300F69D4B}'; RID_DatosBancariosDelta = '{C18FF453-BFAF-4639-A681-AB04B74D6517}';
RID_VendedoresDelta = '{9760F5D1-81E3-4BCF-8E2E-F34D024CC9E1}'; RID_VendedoresDelta = '{5D018AE5-CDFF-48F1-A1DE-7767FC7DB308}';
RID_ClientesDelta = '{C269BFF3-0DF8-4830-A609-980977CB69E7}'; RID_ClientesDelta = '{FADEA8D9-97E9-4309-A11D-07D6E35D08B8}';
RID_ProveedoresDelta = '{013010DB-7E71-47A7-A53E-467CF4C830E4}'; RID_ProveedoresDelta = '{E7B3535A-B1BA-4926-AE46-BDD885A62B44}';
RID_EmpleadosDelta = '{F762DAD3-8D36-4ED7-9F25-9F0DC2FAAA33}'; RID_EmpleadosDelta = '{3768A3D0-2DBE-4A8A-A120-64D68A76B527}';
RID_DireccionesContactoDelta = '{98B972CF-1202-4B4B-954B-44C2854A60CA}'; RID_DireccionesContactoDelta = '{8210370B-075D-42EC-B0FE-C500A85C1E49}';
RID_ClientesDescuentosDelta = '{F5BE7170-6DD7-4D2F-9798-761D099BDD61}'; RID_ClientesDescuentosDelta = '{20831A5F-CC5C-4301-BC5E-9D2DD8A77A60}';
RID_GruposProveedorDelta = '{CE166657-6C53-480E-81F6-E05E1E94240D}'; RID_GruposProveedorDelta = '{7F668480-9D2B-48D4-8DDE-506796230F77}';
RID_GruposEmpleadoDelta = '{2AF2DC5D-9184-4BEE-9BD0-C51A6645AD63}'; RID_GruposEmpleadoDelta = '{7AB05FA7-9124-4A83-89B4-79B348BA09CA}';
RID_Contactos_RefreshDelta = '{F398F2D8-2192-450A-AA1B-5D0D9E179CC8}'; RID_Contactos_RefreshDelta = '{4184B8C3-2380-46D4-AA92-8128EE40E17B}';
RID_ContratosEmpleadosDelta = '{76026549-3C22-4EF1-8452-F8B09E430989}'; RID_ContratosEmpleadosDelta = '{6A832332-537B-4FD9-A618-5D40690AEDB5}';
RID_DescripcionesProveedoresDelta = '{724AB8D8-F8BB-4C45-8A20-0AA19291160D}'; RID_DescripcionesProveedoresDelta = '{366EAA53-20C7-4B8C-846C-480DF1C4A4FF}';
RID_PersonalContactoDelta = '{1A784A0F-7ACC-4FA2-8EB9-40E1E3FCCE57}'; RID_PersonalContactoDelta = '{E71E7008-5A1D-43BE-98E9-50AB8CB8418B}';
type type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{D6952F1E-C7D5-4FD8-86A2-9086CF96322C}'] ['{D6DB0142-BEA4-4DC0-B44D-42008D833687}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -339,7 +339,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{27585B84-7756-4555-A6C8-FEB6918E681C}'] ['{E6162081-3DD9-48ED-91A1-8BD0F798707B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -385,7 +385,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{0E0F05AE-194D-46D2-8E16-B68300F69D4B}'] ['{C18FF453-BFAF-4639-A681-AB04B74D6517}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -515,7 +515,7 @@ type
{ IVendedoresDelta } { IVendedoresDelta }
IVendedoresDelta = interface(IVendedores) IVendedoresDelta = interface(IVendedores)
['{9760F5D1-81E3-4BCF-8E2E-F34D024CC9E1}'] ['{5D018AE5-CDFF-48F1-A1DE-7767FC7DB308}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -540,6 +540,7 @@ type
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldPAISValue : String;
function GetOldCOMISIONValue : Currency; function GetOldCOMISIONValue : Currency;
{ Properties } { Properties }
@ -566,6 +567,7 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
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 OldPAIS : String read GetOldPAISValue;
property OldCOMISION : Currency read GetOldCOMISIONValue; property OldCOMISION : Currency read GetOldCOMISIONValue;
end; end;
@ -713,6 +715,12 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
function GetPAISValue: String; virtual;
function GetPAISIsNull: Boolean; virtual;
function GetOldPAISValue: String; virtual;
function GetOldPAISIsNull: Boolean; virtual;
procedure SetPAISValue(const aValue: String); virtual;
procedure SetPAISIsNull(const aValue: Boolean); virtual;
function GetCOMISIONValue: Currency; virtual; function GetCOMISIONValue: Currency; virtual;
function GetCOMISIONIsNull: Boolean; virtual; function GetCOMISIONIsNull: Boolean; virtual;
function GetOldCOMISIONValue: Currency; virtual; function GetOldCOMISIONValue: Currency; virtual;
@ -813,6 +821,10 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
property PAIS : String read GetPAISValue write SetPAISValue;
property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull;
property OldPAIS : String read GetOldPAISValue;
property OldPAISIsNull : Boolean read GetOldPAISIsNull;
property COMISION : Currency read GetCOMISIONValue write SetCOMISIONValue; property COMISION : Currency read GetCOMISIONValue write SetCOMISIONValue;
property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull; property COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
property OldCOMISION : Currency read GetOldCOMISIONValue; property OldCOMISION : Currency read GetOldCOMISIONValue;
@ -826,7 +838,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{C269BFF3-0DF8-4830-A609-980977CB69E7}'] ['{FADEA8D9-97E9-4309-A11D-07D6E35D08B8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -865,6 +877,7 @@ type
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldTIENDA_WEBValue : SmallInt; function GetOldTIENDA_WEBValue : SmallInt;
function GetOldDESCUENTOValue : Currency; function GetOldDESCUENTOValue : Currency;
function GetOldDESCUENTO2Value : Currency;
function GetOldFELICITACIONValue : SmallInt; function GetOldFELICITACIONValue : SmallInt;
{ Properties } { Properties }
@ -905,6 +918,7 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue; property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldDESCUENTO : Currency read GetOldDESCUENTOValue; property OldDESCUENTO : Currency read GetOldDESCUENTOValue;
property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value;
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue; property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
end; end;
@ -1136,6 +1150,12 @@ type
function GetOldDESCUENTOIsNull: Boolean; virtual; function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Currency); virtual; procedure SetDESCUENTOValue(const aValue: Currency); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetDESCUENTO2Value: Currency; virtual;
function GetDESCUENTO2IsNull: Boolean; virtual;
function GetOldDESCUENTO2Value: Currency; virtual;
function GetOldDESCUENTO2IsNull: Boolean; virtual;
procedure SetDESCUENTO2Value(const aValue: Currency); virtual;
procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual;
function GetFELICITACIONValue: SmallInt; virtual; function GetFELICITACIONValue: SmallInt; virtual;
function GetFELICITACIONIsNull: Boolean; virtual; function GetFELICITACIONIsNull: Boolean; virtual;
function GetOldFELICITACIONValue: SmallInt; virtual; function GetOldFELICITACIONValue: SmallInt; virtual;
@ -1292,6 +1312,10 @@ type
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Currency read GetOldDESCUENTOValue; property OldDESCUENTO : Currency read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property DESCUENTO2 : Currency read GetDESCUENTO2Value write SetDESCUENTO2Value;
property DESCUENTO2IsNull : Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value;
property OldDESCUENTO2IsNull : Boolean read GetOldDESCUENTO2IsNull;
property FELICITACION : SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION : SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
property FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue; property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
@ -1305,7 +1329,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{013010DB-7E71-47A7-A53E-467CF4C830E4}'] ['{E7B3535A-B1BA-4926-AE46-BDD885A62B44}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1772,7 +1796,7 @@ type
{ IEmpleadosDelta } { IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados) IEmpleadosDelta = interface(IEmpleados)
['{F762DAD3-8D36-4ED7-9F25-9F0DC2FAAA33}'] ['{3768A3D0-2DBE-4A8A-A120-64D68A76B527}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -2207,7 +2231,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{98B972CF-1202-4B4B-954B-44C2854A60CA}'] ['{8210370B-075D-42EC-B0FE-C500A85C1E49}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2422,7 +2446,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{F5BE7170-6DD7-4D2F-9798-761D099BDD61}'] ['{20831A5F-CC5C-4301-BC5E-9D2DD8A77A60}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2504,7 +2528,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{CE166657-6C53-480E-81F6-E05E1E94240D}'] ['{7F668480-9D2B-48D4-8DDE-506796230F77}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2550,7 +2574,7 @@ type
{ IGruposEmpleadoDelta } { IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado) IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{2AF2DC5D-9184-4BEE-9BD0-C51A6645AD63}'] ['{7AB05FA7-9124-4A83-89B4-79B348BA09CA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2596,7 +2620,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{F398F2D8-2192-450A-AA1B-5D0D9E179CC8}'] ['{4184B8C3-2380-46D4-AA92-8128EE40E17B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -2883,7 +2907,7 @@ type
{ IContratosEmpleadosDelta } { IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados) IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{76026549-3C22-4EF1-8452-F8B09E430989}'] ['{6A832332-537B-4FD9-A618-5D40690AEDB5}']
{ Property getters and setters } { Property getters and setters }
function GetOldCONTRATOValue : String; function GetOldCONTRATOValue : String;
@ -2917,7 +2941,7 @@ type
{ IDescripcionesProveedoresDelta } { IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{724AB8D8-F8BB-4C45-8A20-0AA19291160D}'] ['{366EAA53-20C7-4B8C-846C-480DF1C4A4FF}']
{ Property getters and setters } { Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String; function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -2951,7 +2975,7 @@ type
{ IPersonalContactoDelta } { IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto) IPersonalContactoDelta = interface(IPersonalContacto)
['{1A784A0F-7ACC-4FA2-8EB9-40E1E3FCCE57}'] ['{E71E7008-5A1D-43BE-98E9-50AB8CB8418B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -4957,6 +4981,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresREFERENCIA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresREFERENCIA] := Null;
end; end;
function TVendedoresBusinessProcessorRules.GetPAISValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS];
end;
function TVendedoresBusinessProcessorRules.GetPAISIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS]);
end;
function TVendedoresBusinessProcessorRules.GetOldPAISValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAIS];
end;
function TVendedoresBusinessProcessorRules.GetOldPAISIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_VendedoresPAIS]);
end;
procedure TVendedoresBusinessProcessorRules.SetPAISValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS] := aValue;
end;
procedure TVendedoresBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresPAIS] := Null;
end;
function TVendedoresBusinessProcessorRules.GetCOMISIONValue: Currency; function TVendedoresBusinessProcessorRules.GetCOMISIONValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION];
@ -6155,6 +6210,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO] := Null;
end; end;
function TClientesBusinessProcessorRules.GetDESCUENTO2Value: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2];
end;
function TClientesBusinessProcessorRules.GetDESCUENTO2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2]);
end;
function TClientesBusinessProcessorRules.GetOldDESCUENTO2Value: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO2];
end;
function TClientesBusinessProcessorRules.GetOldDESCUENTO2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO2]);
end;
procedure TClientesBusinessProcessorRules.SetDESCUENTO2Value(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2] := aValue;
end;
procedure TClientesBusinessProcessorRules.SetDESCUENTO2IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO2] := Null;
end;
function TClientesBusinessProcessorRules.GetFELICITACIONValue: SmallInt; function TClientesBusinessProcessorRules.GetFELICITACIONValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesFELICITACION];

2
Source/Modulos/Contactos/Model/uBizClientesServer.pas
View File

@ -92,6 +92,7 @@ begin
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO]; ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO];
ParamByName('DESCUENTO2').Value := aChange.NewValueByName[fld_ClientesDESCUENTO2];
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];
@ -132,6 +133,7 @@ begin
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO]; ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO];
ParamByName('DESCUENTO2').Value := aChange.NewValueByName[fld_ClientesDESCUENTO2];
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3];

18
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -91,6 +91,9 @@ type
function GetDESCUENTOValue: Double; function GetDESCUENTOValue: Double;
procedure SetDESCUENTOValue(const aValue: Double); procedure SetDESCUENTOValue(const aValue: Double);
function GetDESCUENTO2Value: Double;
procedure SetDESCUENTO2Value(const aValue: Double);
function GetDescuentos: IBizClienteDescuentos; function GetDescuentos: IBizClienteDescuentos;
procedure SetDescuentos(Value: IBizClienteDescuentos); procedure SetDescuentos(Value: IBizClienteDescuentos);
property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos; property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
@ -111,6 +114,7 @@ type
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTO2: Double read GetDESCUENTO2Value write SetDESCUENTO2Value;
property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
end; end;
@ -312,6 +316,9 @@ type
function GetDESCUENTOValue: Double; function GetDESCUENTOValue: Double;
procedure SetDESCUENTOValue(const aValue: Double); procedure SetDESCUENTOValue(const aValue: Double);
function GetDESCUENTO2Value: Double;
procedure SetDESCUENTO2Value(const aValue: Double);
function GetDescuentos: IBizClienteDescuentos; function GetDescuentos: IBizClienteDescuentos;
procedure SetDescuentos(Value: IBizClienteDescuentos); procedure SetDescuentos(Value: IBizClienteDescuentos);
@ -335,6 +342,7 @@ type
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTO2: Double read GetDESCUENTO2Value write SetDESCUENTO2Value;
property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
end; end;
@ -573,6 +581,11 @@ begin
result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger; result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger;
end; end;
function TBizCliente.GetDESCUENTO2Value: Double;
begin
result := DataTable.Fields[idx_ClientesDESCUENTO2].AsFloat;
end;
function TBizCliente.GetDescuentos: IBizClienteDescuentos; function TBizCliente.GetDescuentos: IBizClienteDescuentos;
begin begin
Result := FDescuentos; Result := FDescuentos;
@ -618,6 +631,11 @@ begin
DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger := aValue; DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger := aValue;
end; end;
procedure TBizCliente.SetDESCUENTO2Value(const aValue: Double);
begin
DataTable.Fields[idx_ClientesDESCUENTO2].AsFloat := aValue;
end;
procedure TBizCliente.SetDescuentos(Value: IBizClienteDescuentos); procedure TBizCliente.SetDescuentos(Value: IBizClienteDescuentos);
begin begin
FDescuentos := Value; FDescuentos := Value;

2
Source/Modulos/Contactos/Plugin/Contactos_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\uPluginContactos.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Plugin\Contactos_plugin.res */
/* E:\temp\dtf4B.tmp */ /* E:\temp\dtf669.tmp */

1
Source/Modulos/Contactos/Plugin/uPluginContactos.dfm
View File

@ -259,6 +259,7 @@ object PluginContactos: TPluginContactos
object actVendedores: TAction object actVendedores: TAction
Category = 'Ventas' Category = 'Ventas'
Caption = 'Vendedores' Caption = 'Vendedores'
ImageIndex = 3
OnExecute = actVendedoresExecute OnExecute = actVendedoresExecute
OnUpdate = actVendedoresUpdate OnUpdate = actVendedoresUpdate
end end

42
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -813,6 +813,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'PAIS' DatasetField = 'PAIS'
TableField = 'PAIS' TableField = 'PAIS'
end
item
DatasetField = 'DESCUENTO2'
TableField = 'DESCUENTO2'
end> end>
end> end>
Name = 'Clientes' Name = 'Clientes'
@ -1022,6 +1026,10 @@ object srvContactos: TsrvContactos
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency DataType = datCurrency
end end
item
Name = 'DESCUENTO2'
DataType = datCurrency
end
item item
Name = 'FELICITACION' Name = 'FELICITACION'
DataType = datSmallInt DataType = datSmallInt
@ -3099,6 +3107,11 @@ object srvContactos: TsrvContactos
DataType = datCurrency DataType = datCurrency
Value = '' Value = ''
end end
item
Name = 'DESCUENTO2'
DataType = datCurrency
Value = ''
end
item item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt DataType = datSmallInt
@ -3127,13 +3140,13 @@ object srvContactos: TsrvContactos
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' + 'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' +
'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL,'#10' BLOQUEADO, MOTIVO_BLOQ' + 'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL,'#10' BLOQUEADO, MOTIVO_BLOQ' +
'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, D' + 'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, D' +
'ESCUENTO,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, V' + 'ESCUENTO, DESCUENTO2,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_F' +
'ENCIMIENTO_FACTURAS_3,'#10' FELICITACION)'#10' VALUES'#10' (:ID_CLIE' + 'ACTURAS_2, VENCIMIENTO_FACTURAS_3,'#10' FELICITACION)'#10' VALUES'#10' ' +
'NTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE_COMERCIAL,'#10' ' + ' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE_' +
' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA, :ID' + 'COMERCIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_T' +
'_FORMA_PAGO,'#10' :TIENDA_WEB, :DESCUENTO,'#10' :VENCIMIENTO_FAC' + 'IPO_IVA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :DESCUENTO, :DESCUENT' +
'TURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3,'#10' ' + 'O2,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENC' +
':FELICITACION)'#10 'IMIENTO_FACTURAS_3,'#10' :FELICITACION)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3294,6 +3307,11 @@ object srvContactos: TsrvContactos
DataType = datCurrency DataType = datCurrency
Value = '' Value = ''
end end
item
Name = 'DESCUENTO2'
DataType = datCurrency
Value = ''
end
item item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt DataType = datSmallInt
@ -3329,11 +3347,11 @@ object srvContactos: TsrvContactos
'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' BLOQUEADO = :BLOQUEADO,'#10' ' + 'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' BLOQUEADO = :BLOQUEADO,'#10' ' +
' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ' + ' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ' +
' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10 + ' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10 +
' DESCUENTO = :DESCUENTO,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIM' + ' DESCUENTO = :DESCUENTO,'#10' DESCUENTO2 = :DESCUENTO2,'#10' VE' +
'IENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACT' + 'NCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_' +
'URAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3,'#10' ' + 'FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3' +
' FELICITACION = :FELICITACION'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID' + ' = :VENCIMIENTO_FACTURAS_3,'#10' FELICITACION = :FELICITACION'#10' W' +
'_CLIENTE)'#10 'HERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

116
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,56 +49,63 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="bdertl.dcp" /> <DCCReference Include="..\bdertl.dcp" />
<DCCReference Include="ccpackD11.dcp" /> <DCCReference Include="..\ccpackD11.dcp" />
<DCCReference Include="cfpack_d11.dcp" /> <DCCReference Include="..\cfpack_d11.dcp" />
<DCCReference Include="Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" /> <DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="cxDataD11.dcp" /> <DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" /> <DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" /> <DCCReference Include="..\cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" /> <DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" /> <DCCReference Include="..\cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" /> <DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="dclcxLibraryD11.dcp" /> <DCCReference Include="..\dclcxLibraryD11.dcp" />
<DCCReference Include="designide.dcp" /> <DCCReference Include="..\designide.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" /> <DCCReference Include="..\dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" /> <DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" /> <DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="dxPSCoreD11.dcp" /> <DCCReference Include="..\dxPSCoreD11.dcp" />
<DCCReference Include="dxPScxCommonD11.dcp" /> <DCCReference Include="..\dxPScxCommonD11.dcp" />
<DCCReference Include="dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="dxPSLnksD11.dcp" /> <DCCReference Include="..\dxPSLnksD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="FormasPago_controller.dcp" /> <DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="FormasPago_model.dcp" /> <DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" /> <DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="Jcl.dcp" /> <DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" /> <DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="JSDialog100.dcp" /> <DCCReference Include="..\JSDialog100.dcp" />
<DCCReference Include="JvCoreD11R.dcp" /> <DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" /> <DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" /> <DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" /> <DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" /> <DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" /> <DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" /> <DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" /> <DCCReference Include="..\tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" /> <DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="TiposIVA_controller.dcp" /> <DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="TiposIVA_model.dcp" /> <DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclshlctrls.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>
@ -184,7 +191,7 @@
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorVendedor.pas"> <DCCReference Include="uEditorVendedor.pas">
<Form>fEditorElegirVendedor</Form> <Form>fEditorVendedor</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorVendedores.pas"> <DCCReference Include="uEditorVendedores.pas">
@ -271,13 +278,6 @@
<Form>frViewVendedores</Form> <Form>frViewVendedores</Form>
<DesignClass>TCustomView</DesignClass> <DesignClass>TCustomView</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclshlctrls.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

2
Source/Modulos/Contactos/Views/Contactos_view.drc
View File

@ -56,4 +56,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\uViewDatosYSeleccionCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\uViewDatosYSeleccionClienteBase.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\uViewDatosYSeleccionClienteBase.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\Contactos_view.res */ /* C:\Codigo Noviseda\Source\Modulos\Contactos\Views\Contactos_view.res */
/* E:\temp\dtf49.tmp */ /* E:\temp\dtf667.tmp */

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

@ -123,7 +123,7 @@ inherited fEditorCliente: TfEditorCliente
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 786 Width = 786
Height = 530 Height = 530
ActivePage = pagGeneral ActivePage = pagDatosComerciales
ExplicitWidth = 786 ExplicitWidth = 786
ExplicitHeight = 530 ExplicitHeight = 530
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -287,6 +287,12 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 177 ExplicitWidth = 177
Width = 177 Width = 177
end end
inherited cbFelicitacion: TcxDBCheckBox
Top = 270
ExplicitTop = 270
ExplicitWidth = 370
Width = 370
end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Top = 84 Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -319,12 +325,6 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 246 ExplicitWidth = 246
Width = 246 Width = 246
end end
inherited cbFelicitacion: TcxDBCheckBox
Top = 270
ExplicitTop = 270
ExplicitWidth = 370
Width = 370
end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 219 Left = 219
Top = 30 Top = 30
@ -470,7 +470,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 778 Width = 778
Height = 193 Height = 209
Align = alTop Align = alTop
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -481,16 +481,16 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 778 ExplicitWidth = 778
ExplicitHeight = 193 ExplicitHeight = 209
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 778 Width = 778
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 778 ExplicitWidth = 778
inherited Label1: TLabel inherited Label1: TLabel
Left = 523 Left = 524
Top = 30 Top = 30
Width = 193 Width = 193
ExplicitLeft = 523 ExplicitLeft = 524
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 193 ExplicitWidth = 193
end end
@ -501,13 +501,13 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 263 ExplicitWidth = 263
end end
inherited eDiasVencimiento1: TcxDBSpinEdit inherited eDiasVencimiento1: TcxDBSpinEdit
Left = 595 Left = 596
Top = 62 Top = 62
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 595 ExplicitLeft = 596
ExplicitTop = 62 ExplicitTop = 62
end end
inherited cbRegimenIVA: TcxDBComboBox inherited cbRegimenIVA: TcxDBComboBox
@ -541,9 +541,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 169 Width = 169
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 363 Left = 364
Top = 57 Top = 57
ExplicitLeft = 363 ExplicitLeft = 364
ExplicitTop = 57 ExplicitTop = 57
end end
inherited eIVA: TcxDBLookupComboBox inherited eIVA: TcxDBLookupComboBox
@ -557,9 +557,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 169 Width = 169
end end
inherited bTiposIVA: TButton inherited bTiposIVA: TButton
Left = 363 Left = 364
Top = 84 Top = 84
ExplicitLeft = 363 ExplicitLeft = 364
ExplicitTop = 84 ExplicitTop = 84
end end
inherited eDescuento: TcxDBSpinEdit inherited eDescuento: TcxDBSpinEdit
@ -571,31 +571,32 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 149 ExplicitTop = 149
end end
inherited eDiasVencimiento2: TcxDBSpinEdit inherited eDiasVencimiento2: TcxDBSpinEdit
Left = 595 Left = 596
Top = 89 Top = 89
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 595 ExplicitLeft = 596
ExplicitTop = 89 ExplicitTop = 89
end end
inherited eDiasVencimiento3: TcxDBSpinEdit inherited eDiasVencimiento3: TcxDBSpinEdit
Left = 595 Left = 596
Top = 116 Top = 116
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 595 ExplicitLeft = 596
ExplicitTop = 116 ExplicitTop = 116
end end
inherited dxLayoutGroup1: TdxLayoutGroup inherited eDescuento2: TcxDBSpinEdit
inherited dxLayoutControl1Group3: TdxLayoutGroup Top = 176
inherited dxLayoutControl1Item1: TdxLayoutItem Style.LookAndFeel.SkinName = ''
Visible = False StyleDisabled.LookAndFeel.SkinName = ''
end StyleFocused.LookAndFeel.SkinName = ''
end StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 176
end end
end end
end end
@ -636,18 +637,6 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 778 Width = 778
ExplicitWidth = 778 ExplicitWidth = 778
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end

63
Source/Modulos/Contactos/Views/uEditorVendedor.dfm
View File

@ -59,6 +59,9 @@ inherited fEditorVendedor: TfEditorVendedor
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 676 Width = 676
ExplicitWidth = 676 ExplicitWidth = 676
inherited tbxMain: TTBXToolbar
ExplicitWidth = 330
end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 676 ExplicitWidth = 676
end end
@ -129,6 +132,8 @@ inherited fEditorVendedor: TfEditorVendedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 144
Width = 144
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 189 Top = 189
@ -137,15 +142,17 @@ inherited fEditorVendedor: TfEditorVendedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 189 ExplicitTop = 189
ExplicitWidth = 236
Width = 236
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 319 Left = 308
Top = 162 Top = 162
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 319 ExplicitLeft = 308
ExplicitTop = 162 ExplicitTop = 162
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
@ -164,51 +171,53 @@ inherited fEditorVendedor: TfEditorVendedor
Top = 84 Top = 84
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 65
Width = 65
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 507 Left = 496
Top = 57 Top = 57
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 507 ExplicitLeft = 496
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 507 Left = 496
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 507 ExplicitLeft = 496
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 507 Left = 496
Top = 84 Top = 84
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 507 ExplicitLeft = 496
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 507 Left = 496
Top = 111 Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 507 ExplicitLeft = 496
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
@ -220,50 +229,58 @@ inherited fEditorVendedor: TfEditorVendedor
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 263
Width = 263
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 222 Left = 217
Top = 30 Top = 30
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 222 ExplicitLeft = 217
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 194 ExplicitWidth = 194
Width = 194 Width = 194
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 507 Left = 496
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 507 ExplicitLeft = 496
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 129
Width = 129
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 507 Left = 496
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 507 ExplicitLeft = 496
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 165
Width = 165
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 507 Left = 496
Top = 217 Top = 217
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 507 ExplicitLeft = 496
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 165
Width = 165
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Top = 30 Top = 30
@ -376,6 +393,16 @@ inherited fEditorVendedor: TfEditorVendedor
ExplicitTop = 557 ExplicitTop = 557
ExplicitWidth = 676 ExplicitWidth = 676
end end
inherited EditorActionList: TActionList
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
end
inherited SmallImages: TPngImageList inherited SmallImages: TPngImageList
PngImages = < PngImages = <
item item

1426
Source/Modulos/Contactos/Views/uEditorVendedores.dfm
View File

File diff suppressed because it is too large Load Diff

2
Source/Modulos/Contactos/Views/uEditorVendedores.pas
View File

@ -11,7 +11,7 @@ uses
JvExControls, JvComponent, JvNavigationPane, uViewGridBase, uViewGrid, JvExControls, JvComponent, JvNavigationPane, uViewGridBase, uViewGrid,
uViewContactos, uIEditorVendedores, pngimage, TBXStatusBars, uViewContactos, uIEditorVendedores, pngimage, TBXStatusBars,
JvExComCtrls, JvStatusBar, JSDialog, uContactosController, uDAInterfaces, JvExComCtrls, JvStatusBar, JSDialog, uContactosController, uDAInterfaces,
uViewVendedores; uViewVendedores, dxGDIPlusClasses;
type type
TfEditorVendedores = class(TfEditorContactos, IEditorVendedores) TfEditorVendedores = class(TfEditorContactos, IEditorVendedores)

69
Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm
View File

@ -1,23 +1,22 @@
inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 725 Width = 725
Height = 284 Height = 226
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
ExplicitWidth = 725 ExplicitWidth = 725
ExplicitHeight = 284 ExplicitHeight = 226
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 725 Width = 725
Height = 209 Height = 217
Align = alTop Align = alTop
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth] AutoContentSizes = [acsWidth]
ExplicitWidth = 637
object Label1: TLabel object Label1: TLabel
Left = 445 Left = 447
Top = 28 Top = 28
Width = 227 Width = 227
Height = 26 Height = 26
@ -35,7 +34,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Shape = bsBottomLine Shape = bsBottomLine
end end
object eDiasVencimiento1: TcxDBSpinEdit object eDiasVencimiento1: TcxDBSpinEdit
Left = 517 Left = 519
Top = 60 Top = 60
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1' DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -59,11 +58,11 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7 TabOrder = 8
Width = 79 Width = 79
end end
object cbRegimenIVA: TcxDBComboBox object cbRegimenIVA: TcxDBComboBox
Left = 111 Left = 114
Top = 28 Top = 28
DataBinding.DataField = 'REGIMEN_IVA' DataBinding.DataField = 'REGIMEN_IVA'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -92,7 +91,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 121 Width = 121
end end
object cbRecargoEquivalencia: TcxDBCheckBox object cbRecargoEquivalencia: TcxDBCheckBox
Left = 111 Left = 114
Top = 109 Top = 109
Caption = 'Aplicar recargo de equivalencia' Caption = 'Aplicar recargo de equivalencia'
DataBinding.DataField = 'RECARGO_EQUIVALENCIA' DataBinding.DataField = 'RECARGO_EQUIVALENCIA'
@ -120,7 +119,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 121 Width = 121
end end
object cbFormaPago: TcxDBLookupComboBox object cbFormaPago: TcxDBLookupComboBox
Left = 111 Left = 114
Top = 55 Top = 55
DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -155,7 +154,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 121 Width = 121
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 283 Left = 285
Top = 55 Top = 55
Width = 132 Width = 132
Height = 21 Height = 21
@ -164,7 +163,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
OnClick = bFormasPagoClick OnClick = bFormasPagoClick
end end
object eIVA: TcxDBLookupComboBox object eIVA: TcxDBLookupComboBox
Left = 111 Left = 114
Top = 82 Top = 82
DataBinding.DataField = 'ID_TIPO_IVA' DataBinding.DataField = 'ID_TIPO_IVA'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -199,7 +198,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 121 Width = 121
end end
object bTiposIVA: TButton object bTiposIVA: TButton
Left = 283 Left = 285
Top = 82 Top = 82
Width = 132 Width = 132
Height = 21 Height = 21
@ -208,7 +207,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
OnClick = bTiposIVAClick OnClick = bTiposIVAClick
end end
object eDescuento: TcxDBSpinEdit object eDescuento: TcxDBSpinEdit
Left = 111 Left = 114
Top = 147 Top = 147
DataBinding.DataField = 'DESCUENTO' DataBinding.DataField = 'DESCUENTO'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -234,7 +233,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
Width = 190 Width = 190
end end
object eDiasVencimiento2: TcxDBSpinEdit object eDiasVencimiento2: TcxDBSpinEdit
Left = 517 Left = 519
Top = 87 Top = 87
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2' DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -257,11 +256,11 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 9
Width = 79 Width = 79
end end
object eDiasVencimiento3: TcxDBSpinEdit object eDiasVencimiento3: TcxDBSpinEdit
Left = 517 Left = 519
Top = 114 Top = 114
DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3' DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3'
DataBinding.DataSource = dsDatosComerciales DataBinding.DataSource = dsDatosComerciales
@ -284,9 +283,35 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 10
Width = 79 Width = 79
end end
object eDescuento2: TcxDBSpinEdit
Left = 114
Top = 174
DataBinding.DataField = 'DESCUENTO2'
DataBinding.DataSource = dsDatosComerciales
Properties.AssignedValues.MinValue = True
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 190
end
object dxLayoutGroup1: TdxLayoutGroup object dxLayoutGroup1: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
@ -359,10 +384,16 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
end end
object dxLayoutControl1Item1: TdxLayoutItem object dxLayoutControl1Item1: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
Caption = 'Dto. por defecto:' Caption = 'Dto. cliente:'
Control = eDescuento Control = eDescuento
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item13: TdxLayoutItem
AutoAligns = [aaVertical]
Caption = 'Dto. pronto pago:'
Control = eDescuento2
ControlOptions.ShowBorder = False
end
end end
object dxLayoutControl1Group5: TdxLayoutGroup object dxLayoutControl1Group5: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = [aaVertical]

2
Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas
View File

@ -53,6 +53,8 @@ type
eDiasVencimiento2: TcxDBSpinEdit; eDiasVencimiento2: TcxDBSpinEdit;
dxLayoutControl1Item12: TdxLayoutItem; dxLayoutControl1Item12: TdxLayoutItem;
eDiasVencimiento3: TcxDBSpinEdit; eDiasVencimiento3: TcxDBSpinEdit;
dxLayoutControl1Item13: TdxLayoutItem;
eDescuento2: TcxDBSpinEdit;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject); procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);

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

@ -43,10 +43,12 @@ inherited frViewClientes: TfrViewClientes
Value = 0 Value = 0
end> end>
Properties.ReadOnly = True Properties.ReadOnly = True
Visible = False
OnGetCellHint = cxGridViewFELICITACIONGetCellHint OnGetCellHint = cxGridViewFELICITACIONGetCellHint
BestFitMaxWidth = 22 BestFitMaxWidth = 22
MinWidth = 22 MinWidth = 22
Options.HorzSizing = False Options.HorzSizing = False
VisibleForCustomization = False
Width = 22 Width = 22
end end
object cxGridViewTiendaWeb: TcxGridDBColumn [3] object cxGridViewTiendaWeb: TcxGridDBColumn [3]
@ -101,22 +103,24 @@ inherited frViewClientes: TfrViewClientes
Width = 154 Width = 154
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 223 Left = 214
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 223 ExplicitLeft = 214
ExplicitWidth = 525 ExplicitWidth = 525
Width = 525 Width = 525
end end
inherited eLista: TcxComboBox inherited eLista: TcxComboBox
Left = 705 Left = 675
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 705 ExplicitLeft = 675
ExplicitWidth = 140
Width = 140
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel

2
Source/Modulos/Fabricantes/Data/Fabricantes_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\uDataModuleFabricantes.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\uDataModuleFabricantes.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\Fabricantes_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Data\Fabricantes_data.res */
/* E:\temp\dtf59.tmp */ /* E:\temp\dtf677.tmp */

2
Source/Modulos/Fabricantes/Model/Fabricantes_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Model\Fabricantes_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Fabricantes\Model\Fabricantes_model.res */
/* E:\temp\dtf57.tmp */ /* E:\temp\dtf675.tmp */

2
Source/Modulos/Facturas de cliente/Controller/FacturasCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.res */
/* E:\temp\dtfA7.tmp */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Controller\FacturasCliente_controller.drf */

4
Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.drc
View File

@ -12,6 +12,6 @@ STRINGTABLE
BEGIN BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\uDataModuleFacturasCliente.DFM */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.res */
/* E:\temp\dtfA5.tmp */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Data\FacturasCliente_data.drf */

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

@ -265,11 +265,19 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
end end
item item
Name = 'RETENCION' Name = 'RETENCION'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'IMPORTE_RETENCION' Name = 'IMPORTE_RETENCION'
DataType = datCurrency DataType = datCurrency
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

2
Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.res */
/* E:\temp\dtfA3.tmp */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Model\FacturasCliente_model.drf */

BIN
Source/Modulos/Facturas de cliente/Model/FacturasCliente_model.identcache
View File

Binary file not shown.

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

@ -3,15 +3,15 @@ unit schFacturasClienteClient_Intf;
interface interface
uses uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf; Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{FD7D4D74-BB5E-4F18-9F1A-AAF12EB25DC9}'; RID_ListaAnosFacturas = '{E39059AE-B71C-4FC8-8DD3-81EBB5116E6B}';
RID_FacturasCliente = '{C2CB3D1C-C182-4CE2-AA95-14AE2D5FFC12}'; RID_FacturasCliente = '{287DAE4D-3DFA-4253-B9B5-0462FEAC4ED5}';
RID_FacturasCliente_Detalles = '{CAE1BB94-5B84-483D-8C3A-1300951E64F2}'; RID_FacturasCliente_Detalles = '{FA5F5870-5B02-450A-A71C-EB3E455AFA75}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -65,6 +65,8 @@ const
fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION'; fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION';
fld_FacturasClienteRETENCION = 'RETENCION'; fld_FacturasClienteRETENCION = 'RETENCION';
fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION'; fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION';
fld_FacturasClienteDESCUENTO2 = 'DESCUENTO2';
fld_FacturasClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2';
{ FacturasCliente field indexes } { FacturasCliente field indexes }
idx_FacturasClienteID = 0; idx_FacturasClienteID = 0;
@ -107,6 +109,8 @@ const
idx_FacturasClienteREFERENCIA_COMISION = 37; idx_FacturasClienteREFERENCIA_COMISION = 37;
idx_FacturasClienteRETENCION = 38; idx_FacturasClienteRETENCION = 38;
idx_FacturasClienteIMPORTE_RETENCION = 39; idx_FacturasClienteIMPORTE_RETENCION = 39;
idx_FacturasClienteDESCUENTO2 = 40;
idx_FacturasClienteIMPORTE_DESCUENTO2 = 41;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -145,7 +149,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{CD6D3B14-759E-4A7A-A148-CB8DDBFA0D92}'] ['{02245449-B366-4C52-BD24-21593AF9429F}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -159,7 +163,7 @@ type
end; end;
{ TListaAnosFacturasDataTableRules } { TListaAnosFacturasDataTableRules }
TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas) TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -180,7 +184,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{6E9731DA-0B33-43DF-9128-37F89A8D1645}'] ['{F26DF140-07D6-46AE-9851-1882FD1CA63E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -333,14 +337,22 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String); procedure SetREFERENCIA_COMISIONValue(const aValue: String);
function GetREFERENCIA_COMISIONIsNull: Boolean; function GetREFERENCIA_COMISIONIsNull: Boolean;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
function GetRETENCIONValue: Float; function GetRETENCIONValue: Currency;
procedure SetRETENCIONValue(const aValue: Float); procedure SetRETENCIONValue(const aValue: Currency);
function GetRETENCIONIsNull: Boolean; function GetRETENCIONIsNull: Boolean;
procedure SetRETENCIONIsNull(const aValue: Boolean); procedure SetRETENCIONIsNull(const aValue: Boolean);
function GetIMPORTE_RETENCIONValue: Currency; function GetIMPORTE_RETENCIONValue: Currency;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); procedure SetIMPORTE_RETENCIONValue(const aValue: Currency);
function GetIMPORTE_RETENCIONIsNull: Boolean; function GetIMPORTE_RETENCIONIsNull: Boolean;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
function GetDESCUENTO2Value: Currency;
procedure SetDESCUENTO2Value(const aValue: Currency);
function GetDESCUENTO2IsNull: Boolean;
procedure SetDESCUENTO2IsNull(const aValue: Boolean);
function GetIMPORTE_DESCUENTO2Value: Currency;
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
function GetIMPORTE_DESCUENTO2IsNull: Boolean;
procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -420,14 +432,18 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue; property RETENCION: Currency read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value;
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
end; end;
{ TFacturasClienteDataTableRules } { TFacturasClienteDataTableRules }
TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente) TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
private private
f_OBSERVACIONES: IROStrings; f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject); procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -584,14 +600,22 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual; procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
function GetREFERENCIA_COMISIONIsNull: Boolean; virtual; function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
function GetRETENCIONValue: Float; virtual; function GetRETENCIONValue: Currency; virtual;
procedure SetRETENCIONValue(const aValue: Float); virtual; procedure SetRETENCIONValue(const aValue: Currency); virtual;
function GetRETENCIONIsNull: Boolean; virtual; function GetRETENCIONIsNull: Boolean; virtual;
procedure SetRETENCIONIsNull(const aValue: Boolean); virtual; procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_RETENCIONValue: Currency; virtual; function GetIMPORTE_RETENCIONValue: Currency; virtual;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual; procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
function GetIMPORTE_RETENCIONIsNull: Boolean; virtual; function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
function GetDESCUENTO2Value: Currency; virtual;
procedure SetDESCUENTO2Value(const aValue: Currency); virtual;
function GetDESCUENTO2IsNull: Boolean; virtual;
procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual;
function GetIMPORTE_DESCUENTO2Value: Currency; virtual;
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual;
function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual;
procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -670,10 +694,14 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull; property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue; property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property RETENCION: Float read GetRETENCIONValue write SetRETENCIONValue; property RETENCION: Currency read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; property RETENCIONIsNull: Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; property IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; property IMPORTE_RETENCIONIsNull: Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property DESCUENTO2: Currency read GetDESCUENTO2Value write SetDESCUENTO2Value;
property DESCUENTO2IsNull: Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
property IMPORTE_DESCUENTO2: Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
property IMPORTE_DESCUENTO2IsNull: Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -683,7 +711,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{7562C65C-C3D3-4104-BAAE-5F11D0C87BF4}'] ['{CBAB45E2-2610-41A2-BC17-402FDAE56E26}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -781,7 +809,7 @@ type
end; end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles) TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
private private
protected protected
{ Property getters and setters } { Property getters and setters }
@ -1737,14 +1765,14 @@ begin
DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null; DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetRETENCIONValue: Float; function TFacturasClienteDataTableRules.GetRETENCIONValue: Currency;
begin begin
result := DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat; result := DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency;
end; end;
procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Float); procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Currency);
begin begin
DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat := aValue; DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency := aValue;
end; end;
function TFacturasClienteDataTableRules.GetRETENCIONIsNull: boolean; function TFacturasClienteDataTableRules.GetRETENCIONIsNull: boolean;
@ -1779,6 +1807,48 @@ begin
DataTable.Fields[idx_FacturasClienteIMPORTE_RETENCION].AsVariant := Null; DataTable.Fields[idx_FacturasClienteIMPORTE_RETENCION].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetDESCUENTO2Value: Currency;
begin
result := DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsCurrency;
end;
procedure TFacturasClienteDataTableRules.SetDESCUENTO2Value(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsCurrency := aValue;
end;
function TFacturasClienteDataTableRules.GetDESCUENTO2IsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteDESCUENTO2].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetDESCUENTO2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteDESCUENTO2].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetIMPORTE_DESCUENTO2Value: Currency;
begin
result := DataTable.Fields[idx_FacturasClienteIMPORTE_DESCUENTO2].AsCurrency;
end;
procedure TFacturasClienteDataTableRules.SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasClienteIMPORTE_DESCUENTO2].AsCurrency := aValue;
end;
function TFacturasClienteDataTableRules.GetIMPORTE_DESCUENTO2IsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteIMPORTE_DESCUENTO2].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteIMPORTE_DESCUENTO2].AsVariant := Null;
end;
{ TFacturasCliente_DetallesDataTableRules } { TFacturasCliente_DetallesDataTableRules }
constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable); constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{918AF647-D101-44B9-AC18-3D64BE3A714A}'; RID_ListaAnosFacturasDelta = '{2F79221D-DBAF-40B5-AE82-8CA4E267AFE3}';
RID_FacturasClienteDelta = '{566BE766-12BF-4272-8214-8550BD00F7E3}'; RID_FacturasClienteDelta = '{22F82387-32E0-42FB-9BCF-6AA6C11881F4}';
RID_FacturasCliente_DetallesDelta = '{B1AB58CB-D6F2-4108-AB5F-B352E9C27B9F}'; RID_FacturasCliente_DetallesDelta = '{04D705AA-0C8D-42E5-98A4-3EA9BBB35577}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{918AF647-D101-44B9-AC18-3D64BE3A714A}'] ['{2F79221D-DBAF-40B5-AE82-8CA4E267AFE3}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{566BE766-12BF-4272-8214-8550BD00F7E3}'] ['{22F82387-32E0-42FB-9BCF-6AA6C11881F4}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -90,8 +90,10 @@ type
function GetOldIMPORTE_PORTEValue : Currency; function GetOldIMPORTE_PORTEValue : Currency;
function GetOldID_AGENTEValue : Integer; function GetOldID_AGENTEValue : Integer;
function GetOldREFERENCIA_COMISIONValue : String; function GetOldREFERENCIA_COMISIONValue : String;
function GetOldRETENCIONValue : Float; function GetOldRETENCIONValue : Currency;
function GetOldIMPORTE_RETENCIONValue : Currency; function GetOldIMPORTE_RETENCIONValue : Currency;
function GetOldDESCUENTO2Value : Currency;
function GetOldIMPORTE_DESCUENTO2Value : Currency;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -132,8 +134,10 @@ type
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue; property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue; property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue; property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
property OldRETENCION : Float read GetOldRETENCIONValue; property OldRETENCION : Currency read GetOldRETENCIONValue;
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue; property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value;
property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value;
end; end;
{ TFacturasClienteBusinessProcessorRules } { TFacturasClienteBusinessProcessorRules }
@ -370,11 +374,11 @@ type
function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual; function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual; procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual; procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
function GetRETENCIONValue: Float; virtual; function GetRETENCIONValue: Currency; virtual;
function GetRETENCIONIsNull: Boolean; virtual; function GetRETENCIONIsNull: Boolean; virtual;
function GetOldRETENCIONValue: Float; virtual; function GetOldRETENCIONValue: Currency; virtual;
function GetOldRETENCIONIsNull: Boolean; virtual; function GetOldRETENCIONIsNull: Boolean; virtual;
procedure SetRETENCIONValue(const aValue: Float); virtual; procedure SetRETENCIONValue(const aValue: Currency); virtual;
procedure SetRETENCIONIsNull(const aValue: Boolean); virtual; procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_RETENCIONValue: Currency; virtual; function GetIMPORTE_RETENCIONValue: Currency; virtual;
function GetIMPORTE_RETENCIONIsNull: Boolean; virtual; function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
@ -382,6 +386,18 @@ type
function GetOldIMPORTE_RETENCIONIsNull: Boolean; virtual; function GetOldIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual; procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual; procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
function GetDESCUENTO2Value: Currency; virtual;
function GetDESCUENTO2IsNull: Boolean; virtual;
function GetOldDESCUENTO2Value: Currency; virtual;
function GetOldDESCUENTO2IsNull: Boolean; virtual;
procedure SetDESCUENTO2Value(const aValue: Currency); virtual;
procedure SetDESCUENTO2IsNull(const aValue: Boolean); virtual;
function GetIMPORTE_DESCUENTO2Value: Currency; virtual;
function GetIMPORTE_DESCUENTO2IsNull: Boolean; virtual;
function GetOldIMPORTE_DESCUENTO2Value: Currency; virtual;
function GetOldIMPORTE_DESCUENTO2IsNull: Boolean; virtual;
procedure SetIMPORTE_DESCUENTO2Value(const aValue: Currency); virtual;
procedure SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean); virtual;
{ Properties } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -536,14 +552,22 @@ type
property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull; property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue; property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull; property OldREFERENCIA_COMISIONIsNull : Boolean read GetOldREFERENCIA_COMISIONIsNull;
property RETENCION : Float read GetRETENCIONValue write SetRETENCIONValue; property RETENCION : Currency read GetRETENCIONValue write SetRETENCIONValue;
property RETENCIONIsNull : Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull; property RETENCIONIsNull : Boolean read GetRETENCIONIsNull write SetRETENCIONIsNull;
property OldRETENCION : Float read GetOldRETENCIONValue; property OldRETENCION : Currency read GetOldRETENCIONValue;
property OldRETENCIONIsNull : Boolean read GetOldRETENCIONIsNull; property OldRETENCIONIsNull : Boolean read GetOldRETENCIONIsNull;
property IMPORTE_RETENCION : Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue; property IMPORTE_RETENCION : Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull : Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull; property IMPORTE_RETENCIONIsNull : Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue; property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldIMPORTE_RETENCIONIsNull : Boolean read GetOldIMPORTE_RETENCIONIsNull; property OldIMPORTE_RETENCIONIsNull : Boolean read GetOldIMPORTE_RETENCIONIsNull;
property DESCUENTO2 : Currency read GetDESCUENTO2Value write SetDESCUENTO2Value;
property DESCUENTO2IsNull : Boolean read GetDESCUENTO2IsNull write SetDESCUENTO2IsNull;
property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value;
property OldDESCUENTO2IsNull : Boolean read GetOldDESCUENTO2IsNull;
property IMPORTE_DESCUENTO2 : Currency read GetIMPORTE_DESCUENTO2Value write SetIMPORTE_DESCUENTO2Value;
property IMPORTE_DESCUENTO2IsNull : Boolean read GetIMPORTE_DESCUENTO2IsNull write SetIMPORTE_DESCUENTO2IsNull;
property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value;
property OldIMPORTE_DESCUENTO2IsNull : Boolean read GetOldIMPORTE_DESCUENTO2IsNull;
public public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -553,7 +577,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{B1AB58CB-D6F2-4108-AB5F-B352E9C27B9F}'] ['{04D705AA-0C8D-42E5-98A4-3EA9BBB35577}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1998,7 +2022,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetRETENCIONValue: Float; function TFacturasClienteBusinessProcessorRules.GetRETENCIONValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION];
end; end;
@ -2008,7 +2032,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION]);
end; end;
function TFacturasClienteBusinessProcessorRules.GetOldRETENCIONValue: Float; function TFacturasClienteBusinessProcessorRules.GetOldRETENCIONValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRETENCION]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRETENCION];
end; end;
@ -2018,7 +2042,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRETENCION]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRETENCION]);
end; end;
procedure TFacturasClienteBusinessProcessorRules.SetRETENCIONValue(const aValue: Float); procedure TFacturasClienteBusinessProcessorRules.SetRETENCIONValue(const aValue: Currency);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION] := aValue;
end; end;
@ -2060,6 +2084,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_RETENCION] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_RETENCION] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetDESCUENTO2Value: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCUENTO2];
end;
function TFacturasClienteBusinessProcessorRules.GetDESCUENTO2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCUENTO2]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldDESCUENTO2Value: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDESCUENTO2];
end;
function TFacturasClienteBusinessProcessorRules.GetOldDESCUENTO2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDESCUENTO2]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetDESCUENTO2Value(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCUENTO2] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetDESCUENTO2IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDESCUENTO2] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetIMPORTE_DESCUENTO2Value: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO2];
end;
function TFacturasClienteBusinessProcessorRules.GetIMPORTE_DESCUENTO2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO2]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTO2Value: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_DESCUENTO2];
end;
function TFacturasClienteBusinessProcessorRules.GetOldIMPORTE_DESCUENTO2IsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteIMPORTE_DESCUENTO2]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetIMPORTE_DESCUENTO2Value(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO2] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetIMPORTE_DESCUENTO2IsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_DESCUENTO2] := Null;
end;
{ TFacturasCliente_DetallesBusinessProcessorRules } { TFacturasCliente_DetallesBusinessProcessorRules }
constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

2
Source/Modulos/Facturas de cliente/Plugin/FacturasCliente_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\uPluginFacturasCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.res */
/* E:\temp\dtfFB.tmp */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Plugin\FacturasCliente_plugin.drf */

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

@ -207,6 +207,14 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
DatasetField = 'FECHA_RETENCION' DatasetField = 'FECHA_RETENCION'
TableField = 'FECHA_RETENCION' TableField = 'FECHA_RETENCION'
end
item
DatasetField = 'DESCUENTO2'
TableField = 'DESCUENTO2'
end
item
DatasetField = 'IMPORTE_DESCUENTO2'
TableField = 'IMPORTE_DESCUENTO2'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -416,11 +424,19 @@ object srvFacturasCliente: TsrvFacturasCliente
end end
item item
Name = 'RETENCION' Name = 'RETENCION'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'IMPORTE_RETENCION' Name = 'IMPORTE_RETENCION'
DataType = datCurrency DataType = datCurrency
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
end> end>
end end
item item
@ -806,138 +822,192 @@ object srvFacturasCliente: TsrvFacturasCliente
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_RETENCION' Name = 'FECHA_RETENCION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'RE' Name = 'RE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_RE' Name = 'IMPORTE_RE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = '' Value = ''
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'ID_DIRECCION' Name = 'ID_DIRECCION'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 30
Value = '' Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'RECARGO_EQUIVALENCIA' Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DATOS_BANCARIOS' Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CLIENTE_FINAL' Name = 'CLIENTE_FINAL'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'RETENCION' Name = 'RETENCION'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_RETENCION' Name = 'IMPORTE_RETENCION'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -955,17 +1025,19 @@ object srvFacturasCliente: TsrvFacturasCliente
'CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUAR' + 'CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUAR' +
'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' + 'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' +
','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' + ','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' +
'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION)'#10' VALUES ('#10 + 'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' DESCUEN' +
' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' ' + 'TO2,'#10' IMPORTE_DESCUENTO2)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA' +
' :FECHA_VENCIMIENTO,'#10' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE' + ','#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' ' +
','#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE' + ' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :I' +
'_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVA' + 'MPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPO' +
'CIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRE' + 'RTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,' +
'CCION,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_P' + #10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' :' +
'OSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' ' + 'POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10 +
' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10 + ' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :' +
' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' ' + 'RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :' +
' :CLIENTE_FINAL,'#10' :RETENCION,'#10' :IMPORTE_RETENCION);'#10 'IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIENTE_FINAL,'#10' :RE' +
'TENCION,'#10' :IMPORTE_RETENCION,'#10' :DESCUENTO2,'#10' :IMPORTE_D' +
'ESCUENTO2);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -975,138 +1047,192 @@ object srvFacturasCliente: TsrvFacturasCliente
Params = < Params = <
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_RETENCION' Name = 'FECHA_RETENCION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'BASE_IMPONIBLE' Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_DESCUENTO' Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IVA' Name = 'IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_IVA' Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'RE' Name = 'RE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_RE' Name = 'IMPORTE_RE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo
Value = '' Value = ''
end end
item item
Name = 'ID_CLIENTE' Name = 'ID_CLIENTE'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = '' Value = ''
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'ID_DIRECCION' Name = 'ID_DIRECCION'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = '' Value = ''
end end
item item
Name = 'FECHA_ALTA' Name = 'FECHA_ALTA'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'FECHA_MODIFICACION' Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = '' Value = ''
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString
Size = 30
Value = '' Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'RECARGO_EQUIVALENCIA' Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_NETO' Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_PORTE' Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DATOS_BANCARIOS' Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'CLIENTE_FINAL' Name = 'CLIENTE_FINAL'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'RETENCION' Name = 'RETENCION'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'IMPORTE_RETENCION' Name = 'IMPORTE_RETENCION'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
Value = '' Value = ''
end end
item item
@ -1135,8 +1261,9 @@ object srvFacturasCliente: TsrvFacturasCliente
'ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' + 'ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' +
' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_B' + ' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_B' +
'ANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :R' + 'ANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :R' +
'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION'#10' WHERE'#10' (' + 'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' DESCUE' +
'ID = :OLD_ID);'#10 'NTO2 = :DESCUENTO2,'#10' IMPORTE_DESCUENTO2 = :IMPORTE_DESCUENTO2' +
#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

21
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
View File

@ -36,7 +36,23 @@ requires
PreCli_FacCli_relation, PreCli_FacCli_relation,
GestorInformes_controller, GestorInformes_controller,
rtl, rtl,
vcl; vcl,
dbrtl,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
dxCoreD11,
vclx,
cxEditorsD11,
cxDataD11,
vcljpg,
vcldb,
DataAbstract_Core_D11,
dsnap,
adortl,
RemObjects_Core_D11,
dxLayoutControlD11,
dxComnD11;
contains contains
uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas', uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas',
@ -50,6 +66,7 @@ contains
uViewElegirArticulosFacturasCliente in 'uViewElegirArticulosFacturasCliente.pas' {frViewElegirArticulosFacturasCliente: TFrame}, uViewElegirArticulosFacturasCliente in 'uViewElegirArticulosFacturasCliente.pas' {frViewElegirArticulosFacturasCliente: TFrame},
uEditorElegirFacturasCliente in 'uEditorElegirFacturasCliente.pas' {fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente}, uEditorElegirFacturasCliente in 'uEditorElegirFacturasCliente.pas' {fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente},
uViewDatosYSeleccionClienteFacturaCliente in 'uViewDatosYSeleccionClienteFacturaCliente.pas' {frViewDatosYSeleccionClienteFacturaCliente: TFrame}, uViewDatosYSeleccionClienteFacturaCliente in 'uViewDatosYSeleccionClienteFacturaCliente.pas' {frViewDatosYSeleccionClienteFacturaCliente: TFrame},
uDialogOpcionesImpresionFacturasCliente in 'uDialogOpcionesImpresionFacturasCliente.pas' {fDialogOpcionesImpresionFacturasCliente: TfEditorElegirFacturasCliente}; uDialogOpcionesImpresionFacturasCliente in 'uDialogOpcionesImpresionFacturasCliente.pas' {fDialogOpcionesImpresionFacturasCliente: TfEditorElegirFacturasCliente},
uViewTotalesFactura in 'uViewTotalesFactura.pas' {frViewTotalesFactura: TFrame};
end. end.

44
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
View File

@ -49,18 +49,30 @@
<DelphiCompile Include="FacturasCliente_view.dpk"> <DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\AlbCli_FacCli_relation.dcp" /> <DCCReference Include="adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" /> <DCCReference Include="AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\Articulos_view.dcp" /> <DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" /> <DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="..\Contactos_view.dcp" /> <DCCReference Include="Base.dcp" />
<DCCReference Include="..\FacturasCliente_controller.dcp" /> <DCCReference Include="Contactos_view.dcp" />
<DCCReference Include="..\FacturasCliente_model.dcp" /> <DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="..\GestorInformes_controller.dcp" /> <DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="..\GUIBase.dcp" /> <DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="..\PreCli_FacCli_relation.dcp" /> <DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" /> <DCCReference Include="dbrtl.dcp" />
<DCCReference Include="..\vcl.dcp" /> <DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="FacturasCliente_controller.dcp" />
<DCCReference Include="FacturasCliente_model.dcp" />
<DCCReference Include="GestorInformes_controller.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="PreCli_FacCli_relation.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="uDialogOpcionesImpresionFacturasCliente.pas"> <DCCReference Include="uDialogOpcionesImpresionFacturasCliente.pas">
<Form>fDialogOpcionesImpresionFacturasCliente</Form> <Form>fDialogOpcionesImpresionFacturasCliente</Form>
<DesignClass>TfEditorElegirFacturasCliente</DesignClass> <DesignClass>TfEditorElegirFacturasCliente</DesignClass>
@ -105,6 +117,14 @@
<Form>frViewFacturasCliente</Form> <Form>frViewFacturasCliente</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewTotalesFactura.pas">
<Form>frViewTotalesFacturaCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

3
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.drc
View File

@ -23,5 +23,6 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uViewElegirArticulosFacturasCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uViewElegirArticulosFacturasCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorElegirArticulosFacturaCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uEditorElegirFacturasCliente.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\uViewTotalesFactura.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.res */
/* E:\temp\dtfF9.tmp */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de cliente\Views\FacturasCliente_view.drf */

BIN
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.identcache
View File

Binary file not shown.

43
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 1146 Width = 893
Height = 511 Height = 516
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,8 +9,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1146 Width = 893
Height = 511 Height = 516
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
@ -20,10 +20,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ExplicitWidth = 451 ExplicitWidth = 451
ExplicitHeight = 304 ExplicitHeight = 304
DesignSize = ( DesignSize = (
1146 893
511) 516)
object Label1: TLabel object Label1: TLabel
Left = 617 Left = 486
Top = 193 Top = 193
Width = 311 Width = 311
Height = 26 Height = 26
@ -142,7 +142,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 269 Width = 269
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 435 Left = 304
Top = 103 Top = 103
Width = 132 Width = 132
Height = 23 Height = 23
@ -173,7 +173,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 165 Width = 165
end end
object cbClienteFinal: TcxDBTextEdit object cbClienteFinal: TcxDBTextEdit
Left = 617 Left = 486
Top = 227 Top = 227
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CLIENTE_FINAL' DataBinding.DataField = 'CLIENTE_FINAL'
@ -201,7 +201,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 339 Width = 339
end end
object bElegirClienteFinal: TButton object bElegirClienteFinal: TButton
Left = 1090 Left = 837
Top = 225 Top = 225
Width = 23 Width = 23
Height = 25 Height = 25
@ -209,7 +209,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
TabOrder = 8 TabOrder = 8
end end
inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
Left = 606 Left = 475
Top = 30 Top = 30
Width = 505 Width = 505
Height = 138 Height = 138
@ -221,37 +221,40 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 6 TabOrder = 6
ReadOnly = False ReadOnly = False
ExplicitLeft = 606 ExplicitLeft = 475
ExplicitTop = 30 ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 101
inherited edtlNombre: TcxDBTextEdit inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end end
inherited edtNIFCIF: TcxDBTextEdit inherited edtNIFCIF: TcxDBTextEdit
Left = 405 Left = 283
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 405 ExplicitLeft = 283
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 316 Left = 194
ExplicitLeft = 316 ExplicitLeft = 194
end end
inherited edtDireccion: TcxTextEdit inherited edtDireccion: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end end
inherited Button4: TButton inherited Button4: TButton
Left = 485 Left = 363
ExplicitLeft = 485 ExplicitLeft = 363
end end
end end
inherited ActionList1: TActionList inherited ActionList1: TActionList
@ -346,6 +349,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end end
object ledtFechaVencimiento: TdxLayoutItem object ledtFechaVencimiento: TdxLayoutItem
Caption = 'Fecha de vencimiento:' Caption = 'Fecha de vencimiento:'
Visible = False
Control = edtFechaVemcimiento Control = edtFechaVemcimiento
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
@ -371,6 +375,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end end
object dxLayoutControl1Group7: TdxLayoutGroup object dxLayoutControl1Group7: TdxLayoutGroup
Caption = 'Cliente final' Caption = 'Cliente final'
Visible = False
object dxLayoutControl1Item7: TdxLayoutItem object dxLayoutControl1Item7: TdxLayoutItem
ShowCaption = False ShowCaption = False
Control = Label1 Control = Label1

2
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Controller\FacturasProveedor_controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Controller\FacturasProveedor_controller.res */
/* E:\temp\dtfD1.tmp */ /* E:\temp\dtf6EF.tmp */

2
Source/Modulos/Facturas de proveedor/Data/FacturasProveedor_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Data\uDataModuleFacturasProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Data\uDataModuleFacturasProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Data\FacturasProveedor_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Data\FacturasProveedor_data.res */
/* E:\temp\dtfCF.tmp */ /* E:\temp\dtf6ED.tmp */

2
Source/Modulos/Facturas de proveedor/Model/FacturasProveedor_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Model\FacturasProveedor_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Model\FacturasProveedor_model.res */
/* E:\temp\dtfCD.tmp */ /* E:\temp\dtf6EB.tmp */

2
Source/Modulos/Facturas de proveedor/Plugin/FacturasProveedor_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Plugin\uPluginFacturasProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Plugin\uPluginFacturasProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Plugin\FacturasProveedor_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Facturas de proveedor\Plugin\FacturasProveedor_plugin.res */
/* E:\temp\dtf10F.tmp */ /* E:\temp\dtf72D.tmp */

2
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
/* E:\temp\dtf63.tmp */ /* E:\temp\dtf681.tmp */

2
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
/* E:\temp\dtf61.tmp */ /* E:\temp\dtf67F.tmp */

2
Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Controller\PedidosProveedor_controller.res */
/* E:\temp\dtfAD.tmp */ /* E:\temp\dtf6CB.tmp */

2
Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Data\uDataModulePedidosProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Data\uDataModulePedidosProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Data\PedidosProveedor_data.res */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Data\PedidosProveedor_data.res */
/* E:\temp\dtfAB.tmp */ /* E:\temp\dtf6C9.tmp */

2
Source/Modulos/Pedidos a proveedor/Model/PedidosProveedor_model.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Model\PedidosProveedor_model.res */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Model\PedidosProveedor_model.res */
/* E:\temp\dtfA9.tmp */ /* E:\temp\dtf6C7.tmp */

2
Source/Modulos/Pedidos a proveedor/Plugin/PedidosProveedor_plugin.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Plugin\uPluginPedidosProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Plugin\uPluginPedidosProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.res */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Plugin\PedidosProveedor_plugin.res */
/* E:\temp\dtf107.tmp */ /* E:\temp\dtf725.tmp */

2
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.drc
View File

@ -30,4 +30,4 @@ END
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\uEditorDireccionEntregaPedidoProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\uEditorDireccionEntregaPedidoProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\uEditorSituacionPedidoProveedor.dfm */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\uEditorSituacionPedidoProveedor.dfm */
/* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\PedidosProveedor_view.res */ /* C:\Codigo Noviseda\Source\Modulos\Pedidos a proveedor\Views\PedidosProveedor_view.res */
/* E:\temp\dtf105.tmp */ /* E:\temp\dtf723.tmp */

2
Source/Modulos/Presupuestos de cliente/Controller/PresupuestosCliente_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */ /* C:\Codigo Noviseda\Source\Modulos\Presupuestos de cliente\Controller\PresupuestosCliente_controller.res */
/* E:\temp\dtf9B.tmp */ /* E:\temp\dtf6B9.tmp */

Some files were not shown because too many files have changed in this diff Show More