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

4
Source/Cliente/FactuGES.drc
View File

@ -12,10 +12,10 @@ STRINGTABLE
BEGIN
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\Source\Cliente\uSplash.dfm */
/* C:\Codigo Noviseda\Source\Cliente\uAcercaDe.dfm */
/* C:\Codigo Noviseda\Source\Cliente\uPantallaPrincipal.dfm */
/* 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_ALBARANES_CLIENTE);
// LoadModule('RecibosCliente_plugin.bpl');
// LoadModule(MODULENAME_FACTURAS_CLIENTE);
LoadModule('RecibosCliente_plugin.bpl');
LoadModule(MODULENAME_FACTURAS_CLIENTE);
// LoadModule(MODULENAME_PEDIDOS_PROVEEDOR);
// LoadModule(MODULENAME_ALBARANES_PROVEEDOR);
@ -48,8 +48,8 @@ begin
// LoadModule('RemesasCliente_plugin.bpl');
// LoadModule('RemesasProveedor_plugin.bpl');
LoadModule('Inventario_plugin.bpl');
LoadModule('HistoricoMovimientos_plugin.bpl');
// LoadModule('Inventario_plugin.bpl');
// LoadModule('HistoricoMovimientos_plugin.bpl');
// LoadModule('GestorInformes_plugin.bpl');
end;

26
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -232,6 +232,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Top = 88
end
object GeneralActionList: TActionList
Images = ModulesSmallImageList
Left = 288
Top = 85
object actSalir: TAction
@ -311,6 +312,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
object actInformacionEmpresa: TAction
Category = 'Empresa'
Caption = 'Informaci'#243'n de empresa'
ImageIndex = 2
OnExecute = actInformacionEmpresaExecute
OnUpdate = actMenuComprasUpdate
end
@ -357,6 +359,26 @@ object fPantallaPrincipal: TfPantallaPrincipal
00000049454E44AE426082}
Name = 'PngImage0'
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>
Left = 51
Top = 181
@ -659,10 +681,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
Caption = '-'
end
end
object Informes1: TMenuItem
Tag = 6000
Action = actMenuInformes
end
end
object JvXPMenuItemPainter1: TJvXPMenuItemPainter
SelectionFrameBrush.Color = 13811126

1
Source/Cliente/uPantallaPrincipal.pas
View File

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

48
Source/GUIBase/GUIBase.dproj
View File

@ -59,30 +59,30 @@
<DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Views\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\Base.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\frx11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\frxe11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\fs11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vclx.dcp" />
<DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form>
</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\uEditorColores.dfm */
/* 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
Width = 451
Height = 252
Width = 829
Height = 278
Align = alBottom
ExplicitWidth = 451
ExplicitHeight = 252
ExplicitWidth = 800
ExplicitHeight = 278
object Bevel5: TBevel
Left = 666
Top = 109
@ -15,8 +15,8 @@ inherited frViewTotales: TfrViewTotales
AlignWithMargins = True
Left = 0
Top = 0
Width = 451
Height = 252
Width = 829
Height = 278
Margins.Left = 0
Margins.Top = 0
Margins.Right = 0
@ -26,22 +26,24 @@ inherited frViewTotales: TfrViewTotales
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451
ExplicitHeight = 252
object Bevel3: TBevel
Left = 305
Left = 422
Top = 28
Width = 3
Height = 100
Shape = bsRightLine
end
object Bevel4: TBevel
Left = 417
Left = 534
Top = 70
Width = 342
Height = 9
Shape = bsBottomLine
end
object Bevel1: TBevel
Left = 417
Left = 534
Top = 186
Width = 368
Height = 9
@ -90,7 +92,7 @@ inherited frViewTotales: TfrViewTotales
Width = 87
end
object ImporteIVA: TcxDBCurrencyEdit
Left = 488
Left = 605
Top = 105
AutoSize = False
DataBinding.DataField = 'IMPORTE_IVA'
@ -125,7 +127,7 @@ inherited frViewTotales: TfrViewTotales
Width = 20
end
object ImporteTotal: TcxDBCurrencyEdit
Left = 418
Left = 535
Top = 159
AutoSize = False
DataBinding.DataField = 'IMPORTE_TOTAL'
@ -195,7 +197,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65
end
object edtIVA: TcxDBSpinEdit
Left = 417
Left = 534
Top = 105
AutoSize = False
DataBinding.DataField = 'IVA'
@ -236,7 +238,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65
end
object ImporteBase: TcxDBCurrencyEdit
Left = 417
Left = 534
Top = 28
AutoSize = False
DataBinding.DataField = 'BASE_IMPONIBLE'
@ -271,7 +273,7 @@ inherited frViewTotales: TfrViewTotales
Width = 91
end
object edtRE: TcxDBSpinEdit
Left = 417
Left = 534
Top = 132
AutoSize = False
DataBinding.DataField = 'RE'
@ -312,7 +314,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65
end
object ImporteRE: TcxDBCurrencyEdit
Left = 488
Left = 605
Top = 132
AutoSize = False
DataBinding.DataField = 'IMPORTE_RE'
@ -450,7 +452,7 @@ inherited frViewTotales: TfrViewTotales
Width = 20
end
object bTiposIVA: TButton
Left = 157
Left = 274
Top = 109
Width = 132
Height = 21
@ -488,7 +490,7 @@ inherited frViewTotales: TfrViewTotales
Width = 221
end
object edtRetencion: TcxDBSpinEdit
Left = 417
Left = 534
Top = 206
AutoSize = False
DataBinding.DataSource = DADataSource
@ -527,7 +529,7 @@ inherited frViewTotales: TfrViewTotales
Width = 65
end
object edtImporteRetencion: TcxDBCurrencyEdit
Left = 488
Left = 605
Top = 206
AutoSize = False
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
/* 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 */

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

@ -203,7 +203,7 @@ end;
function TAlbaranesClienteController.Buscar(const ID: Integer): IBizAlbaranCliente;
begin
Result := FDataModule.GetItem(ID);
FiltrarEmpresa(Result);
// FiltrarEmpresa(Result);
end;
function TAlbaranesClienteController.BuscarAlbaranesDevolucion: IBizAlbaranCliente;
@ -257,7 +257,7 @@ end;
function TAlbaranesClienteController.BuscarTodos: IBizAlbaranCliente;
begin
Result := FDataModule.GetItems;
FiltrarEmpresa(Result);
// FiltrarEmpresa(Result);
end;
function TAlbaranesClienteController.BuscarPendientes: IBizAlbaranCliente;
@ -534,13 +534,17 @@ begin
if AAlbaran.FECHA_RECEPCION < AAlbaran.FECHA_ENVIO then
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
en MODIFICACIÓN como en INSERCIÓN. }
AAlbaran.Edit;
try
AAlbaran.USUARIO := AppFactuGES.UsuarioActivo.UserName;
// Lo quitamos temporalmente si no hay mas fallos de cambio de cliente se quita en todos los sitios
// Lo quitamos temporalmente si no hay mas fallos de cambio de cliente se quita en todos los sitios
// if Assigned(AAlbaran.Cliente)
// and (AAlbaran.ID_CLIENTE <> AAlbaran.Cliente.ID) then
// AAlbaran.ID_CLIENTE := AAlbaran.Cliente.ID;
@ -1016,7 +1020,7 @@ var
AAlbaran : IBizAlbaranCliente;
begin
AAlbaran := FDataModule.NewItem;
FiltrarEmpresa(AAlbaran);
// FiltrarEmpresa(AAlbaran);
AAlbaran.DataTable.Active := True;
if WithInsert then
AAlbaran.Insert;

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

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

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

@ -13,4 +13,4 @@ BEGIN
END
/* 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
uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranes = '{18C62587-896C-41BC-9E0A-B1BB4BA1536F}';
RID_AlbaranesCliente = '{4A620EF8-3CC2-4C5C-B01B-23D8EFE9F1CD}';
RID_AlbaranesCliente_Detalle_Color = '{3958DA4C-F53F-46EE-9C7A-4ED04455B567}';
RID_AlbaranesCliente_Detalles = '{44C711B3-BB9D-467E-856C-D4B1C506ACDC}';
RID_ListaAnosAlbaranes = '{B4206C62-06EB-4344-BEB1-1A30ED907220}';
RID_AlbaranesCliente = '{E1B3AF30-F3E6-4BC4-B9E5-6457F9E83272}';
RID_AlbaranesCliente_Detalle_Color = '{7C8EFD2E-60FC-4742-B01A-F56A7C0637A7}';
RID_AlbaranesCliente_Detalles = '{1DEA680B-4B62-4552-99D4-91A10AB81A52}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -30,7 +30,6 @@ const
fld_AlbaranesClienteID = 'ID';
fld_AlbaranesClienteID_EMPRESA = 'ID_EMPRESA';
fld_AlbaranesClienteID_CLIENTE = 'ID_CLIENTE';
fld_AlbaranesClienteID_DIRECCION = 'ID_DIRECCION';
fld_AlbaranesClienteNOMBRE = 'NOMBRE';
fld_AlbaranesClienteFECHA_ALBARAN = 'FECHA_ALBARAN';
fld_AlbaranesClienteREFERENCIA = 'REFERENCIA';
@ -43,6 +42,7 @@ const
fld_AlbaranesClienteREF_PEDIDO = 'REF_PEDIDO';
fld_AlbaranesClienteID_FACTURA = 'ID_FACTURA';
fld_AlbaranesClienteREF_FACTURA = 'REF_FACTURA';
fld_AlbaranesClienteID_DIRECCION = 'ID_DIRECCION';
fld_AlbaranesClienteCALLE = 'CALLE';
fld_AlbaranesClienteCODIGO_POSTAL = 'CODIGO_POSTAL';
fld_AlbaranesClientePOBLACION = 'POBLACION';
@ -67,24 +67,26 @@ const
fld_AlbaranesClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
fld_AlbaranesClienteFECHA_ENVIO = 'FECHA_ENVIO';
fld_AlbaranesClienteFECHA_RECEPCION = 'FECHA_RECEPCION';
fld_AlbaranesClienteDESCUENTO2 = 'DESCUENTO2';
fld_AlbaranesClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2';
{ AlbaranesCliente field indexes }
idx_AlbaranesClienteID = 0;
idx_AlbaranesClienteID_EMPRESA = 1;
idx_AlbaranesClienteID_CLIENTE = 2;
idx_AlbaranesClienteID_DIRECCION = 3;
idx_AlbaranesClienteNOMBRE = 4;
idx_AlbaranesClienteFECHA_ALBARAN = 5;
idx_AlbaranesClienteREFERENCIA = 6;
idx_AlbaranesClienteREFERENCIA_CLIENTE = 7;
idx_AlbaranesClienteTIPO = 8;
idx_AlbaranesClienteSITUACION = 9;
idx_AlbaranesClienteID_ALMACEN = 10;
idx_AlbaranesClienteNOMBRE_ALMACEN = 11;
idx_AlbaranesClienteID_PEDIDO = 12;
idx_AlbaranesClienteREF_PEDIDO = 13;
idx_AlbaranesClienteID_FACTURA = 14;
idx_AlbaranesClienteREF_FACTURA = 15;
idx_AlbaranesClienteNOMBRE = 3;
idx_AlbaranesClienteFECHA_ALBARAN = 4;
idx_AlbaranesClienteREFERENCIA = 5;
idx_AlbaranesClienteREFERENCIA_CLIENTE = 6;
idx_AlbaranesClienteTIPO = 7;
idx_AlbaranesClienteSITUACION = 8;
idx_AlbaranesClienteID_ALMACEN = 9;
idx_AlbaranesClienteNOMBRE_ALMACEN = 10;
idx_AlbaranesClienteID_PEDIDO = 11;
idx_AlbaranesClienteREF_PEDIDO = 12;
idx_AlbaranesClienteID_FACTURA = 13;
idx_AlbaranesClienteREF_FACTURA = 14;
idx_AlbaranesClienteID_DIRECCION = 15;
idx_AlbaranesClienteCALLE = 16;
idx_AlbaranesClienteCODIGO_POSTAL = 17;
idx_AlbaranesClientePOBLACION = 18;
@ -109,6 +111,8 @@ const
idx_AlbaranesClienteFECHA_PREVISTA_ENVIO = 37;
idx_AlbaranesClienteFECHA_ENVIO = 38;
idx_AlbaranesClienteFECHA_RECEPCION = 39;
idx_AlbaranesClienteDESCUENTO2 = 40;
idx_AlbaranesClienteIMPORTE_DESCUENTO2 = 41;
{ AlbaranesCliente_Detalle_Color fields }
fld_AlbaranesCliente_Detalle_ColorID = 'ID';
@ -181,7 +185,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{DB347C0B-48F1-4CB6-8C0E-8791F39A6D79}']
['{9198BD80-46AC-41F3-80C0-EBD4A7055DBD}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -195,7 +199,7 @@ type
end;
{ TListaAnosAlbaranesDataTableRules }
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
private
protected
{ Property getters and setters }
@ -216,7 +220,7 @@ type
{ IAlbaranesCliente }
IAlbaranesCliente = interface(IDAStronglyTypedDataTable)
['{49752BC5-C457-46FE-8892-31C4E16591C2}']
['{373AD37D-234D-47B9-9133-4B56CAFFB722}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -230,10 +234,6 @@ type
procedure SetID_CLIENTEValue(const aValue: Integer);
function GetID_CLIENTEIsNull: 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;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
@ -282,6 +282,10 @@ type
procedure SetREF_FACTURAValue(const aValue: String);
function GetREF_FACTURAIsNull: 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;
procedure SetCALLEValue(const aValue: String);
function GetCALLEIsNull: Boolean;
@ -376,6 +380,14 @@ type
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime);
function GetFECHA_RECEPCIONIsNull: 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 }
@ -385,8 +397,6 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
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 NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
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 REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
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 CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
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_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
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;
{ TAlbaranesClienteDataTableRules }
TAlbaranesClienteDataTableRules = class(TDADataTableRules, IAlbaranesCliente)
TAlbaranesClienteDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente)
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
@ -482,10 +498,6 @@ type
procedure SetID_CLIENTEValue(const aValue: Integer); virtual;
function GetID_CLIENTEIsNull: 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;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual;
@ -534,6 +546,10 @@ type
procedure SetREF_FACTURAValue(const aValue: String); virtual;
function GetREF_FACTURAIsNull: 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;
procedure SetCALLEValue(const aValue: String); virtual;
function GetCALLEIsNull: Boolean; virtual;
@ -628,6 +644,14 @@ type
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); virtual;
function GetFECHA_RECEPCIONIsNull: 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 }
property ID: Integer read GetIDValue write SetIDValue;
@ -636,8 +660,6 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property ID_CLIENTE: Integer read GetID_CLIENTEValue write SetID_CLIENTEValue;
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 NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
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 REF_FACTURA: String read GetREF_FACTURAValue write SetREF_FACTURAValue;
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 CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
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_RECEPCION: DateTime read GetFECHA_RECEPCIONValue write SetFECHA_RECEPCIONValue;
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
constructor Create(aDataTable: TDADataTable); override;
@ -719,7 +747,7 @@ type
{ IAlbaranesCliente_Detalle_Color }
IAlbaranesCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
['{F6432EB6-CC41-40E8-B0AF-FAC070CF9F7F}']
['{10257B11-C523-426D-B5F3-C83A653FC86F}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -811,7 +839,7 @@ type
end;
{ TAlbaranesCliente_Detalle_ColorDataTableRules }
TAlbaranesCliente_Detalle_ColorDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalle_Color)
TAlbaranesCliente_Detalle_ColorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalle_Color)
private
protected
{ Property getters and setters }
@ -910,7 +938,7 @@ type
{ IAlbaranesCliente_Detalles }
IAlbaranesCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{3A0076AC-86DC-4A8E-B575-EBB6C2DAC5E9}']
['{0B31E831-E5AF-41C8-8043-2E16FC21CDE8}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1014,7 +1042,7 @@ type
end;
{ TAlbaranesCliente_DetallesDataTableRules }
TAlbaranesCliente_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesCliente_Detalles)
TAlbaranesCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesCliente_Detalles)
private
protected
{ Property getters and setters }
@ -1254,27 +1282,6 @@ begin
DataTable.Fields[idx_AlbaranesClienteID_CLIENTE].AsVariant := Null;
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;
begin
result := DataTable.Fields[idx_AlbaranesClienteNOMBRE].AsString;
@ -1527,6 +1534,27 @@ begin
DataTable.Fields[idx_AlbaranesClienteREF_FACTURA].AsVariant := Null;
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;
begin
result := DataTable.Fields[idx_AlbaranesClienteCALLE].AsString;
@ -2023,6 +2051,48 @@ begin
DataTable.Fields[idx_AlbaranesClienteFECHA_RECEPCION].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{80722770-25D1-4E97-AAEA-419BB719A5D6}';
RID_AlbaranesClienteDelta = '{3B43A4E8-B21B-4978-A8D1-91FEFBD05A31}';
RID_AlbaranesCliente_Detalle_ColorDelta = '{EC828BE2-9AA9-459F-8814-FC87BFF79A9C}';
RID_AlbaranesCliente_DetallesDelta = '{3FA86ECC-B57D-4E8D-A7EA-66A2C066A9B5}';
RID_ListaAnosAlbaranesDelta = '{1E1DC3F8-2ECA-40D0-B18D-9AD1F0294B1C}';
RID_AlbaranesClienteDelta = '{8B265689-7E0C-412D-B7AE-56B2AF1573FD}';
RID_AlbaranesCliente_Detalle_ColorDelta = '{6FF87351-F32C-49FE-A68B-4BC03FEEE1DB}';
RID_AlbaranesCliente_DetallesDelta = '{034AE7D6-C246-4EF8-AE5A-1773B4D37A26}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{80722770-25D1-4E97-AAEA-419BB719A5D6}']
['{1E1DC3F8-2ECA-40D0-B18D-9AD1F0294B1C}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,12 +51,11 @@ type
{ IAlbaranesClienteDelta }
IAlbaranesClienteDelta = interface(IAlbaranesCliente)
['{3B43A4E8-B21B-4978-A8D1-91FEFBD05A31}']
['{8B265689-7E0C-412D-B7AE-56B2AF1573FD}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
function GetOldID_CLIENTEValue : Integer;
function GetOldID_DIRECCIONValue : Integer;
function GetOldNOMBREValue : String;
function GetOldFECHA_ALBARANValue : DateTime;
function GetOldREFERENCIAValue : String;
@ -69,6 +68,7 @@ type
function GetOldREF_PEDIDOValue : String;
function GetOldID_FACTURAValue : Integer;
function GetOldREF_FACTURAValue : String;
function GetOldID_DIRECCIONValue : Integer;
function GetOldCALLEValue : String;
function GetOldCODIGO_POSTALValue : String;
function GetOldPOBLACIONValue : String;
@ -93,12 +93,13 @@ type
function GetOldFECHA_PREVISTA_ENVIOValue : DateTime;
function GetOldFECHA_ENVIOValue : DateTime;
function GetOldFECHA_RECEPCIONValue : DateTime;
function GetOldDESCUENTO2Value : Currency;
function GetOldIMPORTE_DESCUENTO2Value : Currency;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldFECHA_ALBARAN : DateTime read GetOldFECHA_ALBARANValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
@ -111,6 +112,7 @@ type
property OldREF_PEDIDO : String read GetOldREF_PEDIDOValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
property OldID_DIRECCION : Integer read GetOldID_DIRECCIONValue;
property OldCALLE : String read GetOldCALLEValue;
property OldCODIGO_POSTAL : String read GetOldCODIGO_POSTALValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
@ -135,6 +137,8 @@ type
property OldFECHA_PREVISTA_ENVIO : DateTime read GetOldFECHA_PREVISTA_ENVIOValue;
property OldFECHA_ENVIO : DateTime read GetOldFECHA_ENVIOValue;
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value;
property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value;
end;
{ TAlbaranesClienteBusinessProcessorRules }
@ -164,12 +168,6 @@ type
function GetOldID_CLIENTEIsNull: Boolean; virtual;
procedure SetID_CLIENTEValue(const aValue: Integer); 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 GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
@ -242,6 +240,12 @@ type
function GetOldREF_FACTURAIsNull: Boolean; virtual;
procedure SetREF_FACTURAValue(const aValue: String); 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 GetCALLEIsNull: Boolean; virtual;
function GetOldCALLEValue: String; virtual;
@ -384,6 +388,18 @@ type
function GetOldFECHA_RECEPCIONIsNull: Boolean; virtual;
procedure SetFECHA_RECEPCIONValue(const aValue: DateTime); 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 }
property ID : Integer read GetIDValue write SetIDValue;
@ -398,10 +414,6 @@ type
property ID_CLIENTEIsNull : Boolean read GetID_CLIENTEIsNull write SetID_CLIENTEIsNull;
property OldID_CLIENTE : Integer read GetOldID_CLIENTEValue;
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 NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
@ -450,6 +462,10 @@ type
property REF_FACTURAIsNull : Boolean read GetREF_FACTURAIsNull write SetREF_FACTURAIsNull;
property OldREF_FACTURA : String read GetOldREF_FACTURAValue;
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 CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
property OldCALLE : String read GetOldCALLEValue;
@ -546,6 +562,14 @@ type
property FECHA_RECEPCIONIsNull : Boolean read GetFECHA_RECEPCIONIsNull write SetFECHA_RECEPCIONIsNull;
property OldFECHA_RECEPCION : DateTime read GetOldFECHA_RECEPCIONValue;
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
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -555,7 +579,7 @@ type
{ IAlbaranesCliente_Detalle_ColorDelta }
IAlbaranesCliente_Detalle_ColorDelta = interface(IAlbaranesCliente_Detalle_Color)
['{EC828BE2-9AA9-459F-8814-FC87BFF79A9C}']
['{6FF87351-F32C-49FE-A68B-4BC03FEEE1DB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_DETALLEValue : Integer;
@ -745,7 +769,7 @@ type
{ IAlbaranesCliente_DetallesDelta }
IAlbaranesCliente_DetallesDelta = interface(IAlbaranesCliente_Detalles)
['{3FA86ECC-B57D-4E8D-A7EA-66A2C066A9B5}']
['{034AE7D6-C246-4EF8-AE5A-1773B4D37A26}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -1129,37 +1153,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteID_CLIENTE] := Null;
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;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteNOMBRE];
@ -1532,6 +1525,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteREF_FACTURA] := Null;
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;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteCALLE];
@ -2270,6 +2294,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesClienteFECHA_RECEPCION] := Null;
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 }
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);
AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, ID_EMPRESA)
Result := AReferenciasService.DarNuevaReferencia(ACodigoReferencia, -1)
end;
function TBizAlbaranClienteServer.IncrementarReferencia: Boolean;
@ -110,7 +110,7 @@ begin
GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf);
AReferenciasService := Intf as IsrvReferencias;
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, ID_EMPRESA)
Result := AReferenciasService.IncrementarValorReferencia(ACodigoReferencia, Self.REFERENCIA, -1)
end;

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

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

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

@ -40,7 +40,6 @@ end;
procedure TBizDetalleColoresAlbaranCliente.OnNewRecord(Sender: TDADataTable);
begin
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;
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\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.' +
'REFERENCIA_CLIENTE,'#10' V_ALBARANES_CLIENTE.ID_PEDIDO,'#10' V_ALBARAN' +
'ES_CLIENTE.REF_PEDIDO,'#10' V_ALBARANES_CLIENTE.OBSERVACIONES,'#10' V_' +
'ALBARANES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.NIF_CIF, CONTACTOS.' +
'NOMBRE,'#10' V_ALBARANES_CLIENTE.PERSONA_CONTACTO,'#10' COALESCE(CONTA' +
'CTOS_DIRECCIONES.CALLE, CONTACTOS.CALLE) AS CALLE,'#10' COALESCE(CO' +
'NTACTOS_DIRECCIONES.POBLACION, CONTACTOS.POBLACION) AS POBLACION' +
','#10' COALESCE(CONTACTOS_DIRECCIONES.PROVINCIA, CONTACTOS.PROVINCI' +
'A) AS PROVINCIA,'#10' COALESCE(CONTACTOS_DIRECCIONES.CODIGO_POSTAL,' +
' CONTACTOS.CODIGO_POSTAL) AS CODIGO_POSTAL'#10'FROM'#10' V_ALBARANES_CL' +
'IENTE'#10' INNER JOIN CONTACTOS ON (CONTACTOS.ID = V_ALBARANES_CLIE' +
'NTE.ID_CLIENTE)'#10' LEFT OUTER JOIN CONTACTOS_DIRECCIONES ON (CONT' +
'ACTOS_DIRECCIONES.ID = V_ALBARANES_CLIENTE.ID_DIRECCION)'#10'WHERE V' +
'_ALBARANES_CLIENTE.ID = :ID'#10#10
'ALBARANES_CLIENTE.IMPORTE_NETO,'#10' V_ALBARANES_CLIENTE.DESCUENTO,' +
#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO,'#10' V_ALBARANES_CLIENTE.' +
'DESCUENTO2,'#10' V_ALBARANES_CLIENTE.IMPORTE_DESCUENTO2,'#10' V_ALBARA' +
'NES_CLIENTE.IMPORTE_TOTAL,'#10' CONTACTOS.REFERENCIA as REF_CLIENTE' +
', CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE,'#10' V_ALBARANES_CLIENTE.PER' +
'SONA_CONTACTO,'#10' COALESCE(CONTACTOS_DIRECCIONES.CALLE, CONTACTOS' +
'.CALLE) AS CALLE,'#10' COALESCE(CONTACTOS_DIRECCIONES.POBLACION, CO' +
'NTACTOS.POBLACION) AS POBLACION,'#10' COALESCE(CONTACTOS_DIRECCIONE' +
'S.PROVINCIA, CONTACTOS.PROVINCIA) AS PROVINCIA,'#10' COALESCE(CONTA' +
'CTOS_DIRECCIONES.CODIGO_POSTAL, CONTACTOS.CODIGO_POSTAL) AS CODI' +
'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
ColumnMappings = <
item
@ -144,6 +147,30 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
item
DatasetField = '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>
Name = 'Informe_Cabecera'
@ -187,10 +214,35 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'OBSERVACIONES'
DataType = datMemo
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
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'REF_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF'
DataType = datString
@ -476,7 +528,7 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39460.761954919000000000
ReportOptions.LastChange = 40190.500735312500000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''
@ -537,11 +589,11 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
''
'procedure PageHeader1OnBeforePrint(Sender: TfrxComponent);'
'begin'
'{ if not Engine.FinalPass then'
' if not Engine.FinalPass then'
' Set('#39'TotalPaginas'#39', (<TotalPaginas> + 1));'
''
' if Engine.FinalPass then'
' Set('#39'Pagina'#39', (<Pagina> + 1));} '
' Set('#39'Pagina'#39', (<Pagina> + 1)); '
'end;'
''
'procedure frxReportOnStartReport(Sender: TfrxComponent);'
@ -550,6 +602,35 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
' Set('#39'TotalPaginas'#39', 0);'
'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'
''
@ -827,10 +908,35 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
Name = 'OBSERVACIONES'
DataType = datMemo
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
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
end
item
Name = 'REF_CLIENTE'
DataType = datString
Size = 255
end
item
Name = 'NIF_CIF'
DataType = datString

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

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

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

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

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

@ -25,9 +25,9 @@ type
bpAlbaranesCliente: TDABusinessProcessor;
bpAlbaranesCliente_Detalles: TDABusinessProcessor;
Bin2DataStreamer: TDABin2DataStreamer;
bpAlbaranesCliente_DetalleColor: TDABusinessProcessor;
schAlbaranesCliente: TDASchema;
DADataDictionary: TDADataDictionary;
bpAlbaranesCliente_DetalleColor: TDABusinessProcessor;
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
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},
uEditorAlbaranDevCliente in 'uEditorAlbaranDevCliente.pas' {fEditorAlbaranDevCliente: TCustomEditor},
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.

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

@ -43,14 +43,6 @@
<Borland.ProjectType>Package</Borland.ProjectType>
<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>
<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\dclsoap100.bpl">File c:\archivos de programa\borland\delphi10\Bin\dclsoap100.bpl not found</Excluded_Packages>
@ -145,6 +137,10 @@
<Form>frViewElegirArticulosAlbaranesCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewTotalesAlbaran.pas">
<Form>frViewTotalesAlbaran</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vcldb.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\uViewDatosYSeleccionClienteAlbaran.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\uViewElegirArticulosAlbaranesCliente.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\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.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
Top = 147
Caption = 'Nuevo albaran de cliente'
ClientHeight = 585
ClientWidth = 765
ClientHeight = 626
ClientWidth = 855
OnClose = CustomEditorClose
ExplicitWidth = 773
ExplicitHeight = 619
ExplicitWidth = 863
ExplicitHeight = 660
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 765
Width = 855
Caption = 'Nuevo albaran de cliente'
ExplicitWidth = 765
ExplicitWidth = 855
inherited Image1: TImage
Left = 632
Left = 722
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -125,15 +125,15 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ExplicitLeft = 735
end
inherited lblDesbloquear: TcxLabel
Left = 667
ExplicitLeft = 667
AnchorX = 712
Left = 757
ExplicitLeft = 757
AnchorX = 802
AnchorY = 14
end
end
inherited TBXDock: TTBXDock
Width = 765
ExplicitWidth = 765
Width = 855
ExplicitWidth = 855
inherited tbxMain: TTBXToolbar
ExplicitWidth = 488
inherited TBXItem2: TTBXItem
@ -153,7 +153,7 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 765
ExplicitWidth = 855
object TBXSubmenuItem2: TTBXSubmenuItem [4]
Caption = 'A&cciones'
object TBXItem7: TTBXItem
@ -163,27 +163,28 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
end
inherited pgPaginas: TPageControl
Width = 759
Height = 439
Width = 849
Height = 382
ActivePage = pagContenido
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 759
ExplicitHeight = 439
ExplicitWidth = 849
ExplicitHeight = 366
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
ExplicitWidth = 751
ExplicitHeight = 411
ExplicitWidth = 841
ExplicitHeight = 338
end
object pagContenido: TTabSheet
Caption = 'Contenido'
ImageIndex = 1
ExplicitHeight = 338
inline frViewDetallesAlbaranCliente1: TfrViewDetallesAlbaranCliente
Left = 0
Top = 0
Width = 751
Height = 411
Width = 841
Height = 354
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@ -195,117 +196,62 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 751
ExplicitHeight = 411
ExplicitWidth = 841
ExplicitHeight = 338
inherited ToolBar1: TToolBar
Width = 751
Height = 51
ExplicitWidth = 751
ExplicitHeight = 51
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
Width = 841
Height = 73
ExplicitWidth = 841
ExplicitHeight = 73
inherited FontSize: TEdit
Left = 544
Top = 0
Width = 106
ExplicitLeft = 544
ExplicitTop = 0
ExplicitWidth = 106
Width = 202
ExplicitWidth = 202
end
inherited ToolButton13: TToolButton [7]
Left = 0
Top = 0
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
inherited UpDown1: TUpDown
Left = 202
ExplicitLeft = 202
end
inherited ToolButton10: TToolButton
Left = 311
Top = 27
ExplicitLeft = 311
ExplicitTop = 27
Left = 219
ExplicitLeft = 219
end
inherited ToolButton6: TToolButton
Left = 436
Top = 27
ExplicitLeft = 436
ExplicitTop = 27
inherited FontName: TJvFontComboBox
Left = 344
ExplicitLeft = 344
end
inherited ToolButton7: TToolButton
Left = 502
Top = 27
Left = 489
Wrap = False
ExplicitLeft = 502
ExplicitTop = 27
ExplicitLeft = 489
end
inherited ToolButton11: TToolButton
Left = 556
Top = 49
ExplicitLeft = 556
ExplicitTop = 49
end
inherited ToolButton8: TToolButton
Left = 569
Top = 27
ExplicitLeft = 569
ExplicitTop = 27
Left = 697
Top = 49
ExplicitLeft = 697
ExplicitTop = 49
end
end
inherited cxGrid: TcxGrid
Top = 77
Width = 751
Height = 334
ExplicitTop = 77
ExplicitWidth = 751
ExplicitHeight = 334
Top = 99
Width = 841
Height = 255
ExplicitTop = 99
ExplicitWidth = 841
ExplicitHeight = 239
end
inherited TBXDock1: TTBXDock
Top = 51
Width = 751
ExplicitTop = 51
ExplicitWidth = 751
Top = 73
Width = 841
ExplicitTop = 73
ExplicitWidth = 841
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 751
ExplicitWidth = 841
end
end
inherited cxGridPopupMenu: TcxGridPopupMenu
@ -322,11 +268,12 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitHeight = 338
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0
Width = 751
Height = 411
Width = 841
Height = 354
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -336,45 +283,45 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitWidth = 751
ExplicitHeight = 411
ExplicitWidth = 841
ExplicitHeight = 338
inherited pnlSup: TPanel
Width = 751
ExplicitWidth = 751
Width = 841
ExplicitWidth = 841
inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21
end
end
inherited GroupBox1: TGroupBox
Width = 751
Height = 383
ExplicitWidth = 751
ExplicitHeight = 383
Width = 841
Height = 326
ExplicitWidth = 841
ExplicitHeight = 310
inherited eIncidencias: TcxDBMemo
ExplicitWidth = 734
ExplicitHeight = 356
Height = 356
Width = 734
ExplicitWidth = 824
ExplicitHeight = 283
Height = 299
Width = 824
end
end
end
end
end
inherited StatusBar: TJvStatusBar
Top = 566
Width = 765
Top = 607
Width = 855
Panels = <
item
Width = 200
end>
ExplicitTop = 566
ExplicitWidth = 765
ExplicitTop = 607
ExplicitWidth = 855
end
inline frViewTotales1: TfrViewTotales [4]
inline frViewTotalesAlbaran1: TfrViewTotalesAlbaran [4]
Left = 0
Top = 521
Width = 765
Height = 45
Top = 464
Width = 855
Height = 143
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -384,283 +331,150 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
ParentFont = False
TabOrder = 4
ReadOnly = False
ExplicitTop = 521
ExplicitWidth = 765
ExplicitHeight = 45
ExplicitTop = 464
ExplicitWidth = 855
ExplicitHeight = 143
inherited dxLayoutControl1: TdxLayoutControl
Width = 765
Height = 45
LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 765
ExplicitHeight = 45
Width = 855
Height = 143
ExplicitWidth = 855
ExplicitHeight = 159
inherited Bevel3: TBevel
Left = 428
Top = 11
Width = 7
Height = 54
ExplicitLeft = 428
ExplicitTop = 11
ExplicitWidth = 7
ExplicitHeight = 54
Left = 418
Height = 201
ExplicitLeft = 418
ExplicitHeight = 201
end
inherited Bevel4: TBevel
Left = 544
Top = 53
Width = 192
ExplicitLeft = 544
ExplicitTop = 53
ExplicitWidth = 192
Left = 551
ExplicitLeft = 551
end
inherited Bevel1: TBevel
Left = 544
Top = 169
Width = 73
ExplicitLeft = 544
ExplicitTop = 169
ExplicitWidth = 73
end
inherited Bevel2: TBevel
Left = 120
Top = 171
Width = 368
ExplicitLeft = 120
ExplicitTop = 171
ExplicitWidth = 368
Left = 551
ExplicitLeft = 551
end
inherited ImporteDto: TcxDBCurrencyEdit
Left = 191
Top = 38
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 191
ExplicitTop = 38
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 615
Top = 88
DataBinding.DataField = ''
Left = 622
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 615
ExplicitTop = 88
ExplicitWidth = 182
Width = 182
ExplicitLeft = 622
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 545
Top = 142
Left = 552
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 545
ExplicitTop = 142
ExplicitWidth = 252
Width = 252
ExplicitLeft = 552
end
inherited edtDescuento: TcxDBSpinEdit
Left = 120
Top = 38
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 38
end
inherited edtIVA: TcxDBSpinEdit
Left = 544
Top = 88
DataBinding.DataField = ''
Left = 551
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544
ExplicitTop = 88
ExplicitLeft = 551
end
inherited ImporteBase: TcxDBCurrencyEdit
Left = 544
Top = 11
Left = 551
DataBinding.DataField = 'IMPORTE_NETO'
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544
ExplicitTop = 11
ExplicitWidth = 253
Width = 253
ExplicitLeft = 551
end
inherited edtRE: TcxDBSpinEdit
Left = 544
Top = 115
DataBinding.DataField = ''
Left = 551
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544
ExplicitTop = 115
ExplicitLeft = 551
end
inherited ImporteRE: TcxDBCurrencyEdit
Left = 615
Top = 115
DataBinding.DataField = ''
Left = 622
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 615
ExplicitTop = 115
ExplicitWidth = 182
Width = 182
ExplicitLeft = 622
end
inherited eImporteNeto: TcxDBCurrencyEdit
Left = 120
Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 11
end
inherited ePorte: TcxDBCurrencyEdit
Left = 120
Top = 65
Properties.OnValidate = frViewTotales1ePortePropertiesValidate
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 65
end
inherited eIVA: TcxDBLookupComboBox
Left = 120
Top = 92
DataBinding.DataField = ''
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 92
end
inherited bTiposIVA: TButton
Left = 280
Top = 92
ExplicitLeft = 280
ExplicitTop = 92
Left = 270
ExplicitLeft = 270
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
Left = 120
Top = 119
DataBinding.DataField = ''
DataBinding.DataSource = nil
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 120
ExplicitTop = 119
ExplicitWidth = 221
Width = 221
end
inherited edtRetencion: TcxDBSpinEdit
Left = 544
Top = 189
Left = 551
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 544
ExplicitTop = 189
ExplicitLeft = 551
end
inherited edtImporteRetencion: TcxDBCurrencyEdit
Left = 615
Top = 189
Left = 622
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 615
ExplicitTop = 189
ExplicitWidth = 180
Width = 180
ExplicitLeft = 622
end
inherited edtFechaRetencion: TcxDBDateEdit
Left = 120
Top = 191
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.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

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

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

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

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

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

@ -1,5 +1,51 @@
inherited fEditorElegirArticulosAlbaranCliente: TfEditorElegirArticulosAlbaranCliente
Caption = 'fEditorElegirArticulosAlbaranCliente'
ExplicitHeight = 538
PixelsPerInch = 96
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

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

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

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

@ -1,60 +1,87 @@
inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
inherited ToolBar1: TToolBar
inherited ToolButton9: TToolButton [3]
Left = 278
Top = 0
ExplicitLeft = 278
ExplicitTop = 0
end
inherited ToolButton4: TToolButton [4]
Left = 423
Height = 100
ExplicitHeight = 100
inherited ToolButton14: TToolButton
Wrap = False
ExplicitLeft = 423
end
inherited ToolButton12: TToolButton [5]
Top = 0
ExplicitTop = 0
inherited ToolButton9: TToolButton [5]
Left = 121
Top = 22
ExplicitLeft = 121
ExplicitTop = 22
end
inherited ToolButton14: TToolButton [6]
inherited FontName: TJvFontComboBox [6]
Left = 266
Top = 22
ExplicitLeft = 266
ExplicitTop = 22
end
inherited ToolButton13: TToolButton [7]
Left = 0
Top = 27
Top = 22
Wrap = True
ExplicitLeft = 0
ExplicitTop = 22
end
inherited FontName: TJvFontComboBox [7]
end
inherited ToolButton13: TToolButton [8]
Left = 145
inherited ToolButton6: TToolButton [8]
Left = 0
Top = 49
ExplicitLeft = 145
ExplicitLeft = 0
ExplicitTop = 49
end
inherited ToolButton10: TToolButton
Left = 153
ExplicitLeft = 153
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
inherited FontSize: TEdit [9]
Left = 66
Top = 49
Width = 58
ExplicitLeft = 66
ExplicitTop = 49
ExplicitWidth = 58
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
inherited cxGrid: TcxGrid
ExplicitTop = 121
Top = 126
Height = 178
ExplicitTop = 126
ExplicitHeight = 178
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewTIPO: TcxGridDBColumn
Visible = False
@ -62,6 +89,8 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
end
inherited cxGridViewCANTIDAD: TcxGridDBColumn
Properties.ReadOnly = True
Visible = False
VisibleForCustomization = False
end
object cxGridViewCANTIDAD2: TcxGridDBColumn [10]
Caption = 'Cantidad'
@ -75,9 +104,14 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente
Properties.ReadOnly = True
Properties.OnButtonClick = cxGridViewCANTIDAD2PropertiesButtonClick
end
inherited cxGridViewUNIDAD_MEDIDA: TcxGridDBColumn
Visible = False
VisibleForCustomization = False
end
end
end
inherited TBXDock1: TTBXDock
Top = 100
ExplicitTop = 100
inherited TBXToolbar1: TTBXToolbar
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
Result := (Controller as IDetallesAlbaranClienteController).AnadirArticulo(Detalles, pReferencia, TipoReferencia, Albaran.Cliente.ID, -1)
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);
end;
@ -87,7 +87,9 @@ begin
if (Albaran.TIPO = CTE_TIPO_ALBARAN_DEV) then
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False, -1)
else
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False);
(Controller as IDetallesAlbaranClienteController).AnadirArticulos(Detalles, Albaran.Cliente, False, 0);
(Controller as IDetallesAlbaranClienteController).ModificarCantidadColores(Detalles);
end;
procedure TfrViewDetallesAlbaranCliente.SetAlbaran(const Value: IBizAlbaranCliente);

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

@ -13,4 +13,4 @@ BEGIN
END
/* 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\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
/* 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\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\uEditorAlbaranesProveedorReport.dfm */
/* 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
Category = 'Log'#237'stica'
Caption = 'Almacenes'
Enabled = False
ImageIndex = 0
Visible = False
OnExecute = actAlmacenesExecute
end
end

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

@ -28,6 +28,22 @@ inherited frViewDetallesArticulos: TfrViewDetallesArticulos
Left = 345
ExplicitLeft = 345
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
inherited cxGrid: TcxGrid
inherited cxGridView: TcxGridDBTableView

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

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

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

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

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

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

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

@ -13,4 +13,4 @@ BEGIN
END
/* 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\uDataModuleVendedores.dfm */
/* 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'
DataType = datCurrency
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
end
item
Name = 'FELICITACION'
DataType = datSmallInt

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

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

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

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

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

@ -9,26 +9,26 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ContactosDelta = '{D6952F1E-C7D5-4FD8-86A2-9086CF96322C}';
RID_GruposClienteDelta = '{27585B84-7756-4555-A6C8-FEB6918E681C}';
RID_DatosBancariosDelta = '{0E0F05AE-194D-46D2-8E16-B68300F69D4B}';
RID_VendedoresDelta = '{9760F5D1-81E3-4BCF-8E2E-F34D024CC9E1}';
RID_ClientesDelta = '{C269BFF3-0DF8-4830-A609-980977CB69E7}';
RID_ProveedoresDelta = '{013010DB-7E71-47A7-A53E-467CF4C830E4}';
RID_EmpleadosDelta = '{F762DAD3-8D36-4ED7-9F25-9F0DC2FAAA33}';
RID_DireccionesContactoDelta = '{98B972CF-1202-4B4B-954B-44C2854A60CA}';
RID_ClientesDescuentosDelta = '{F5BE7170-6DD7-4D2F-9798-761D099BDD61}';
RID_GruposProveedorDelta = '{CE166657-6C53-480E-81F6-E05E1E94240D}';
RID_GruposEmpleadoDelta = '{2AF2DC5D-9184-4BEE-9BD0-C51A6645AD63}';
RID_Contactos_RefreshDelta = '{F398F2D8-2192-450A-AA1B-5D0D9E179CC8}';
RID_ContratosEmpleadosDelta = '{76026549-3C22-4EF1-8452-F8B09E430989}';
RID_DescripcionesProveedoresDelta = '{724AB8D8-F8BB-4C45-8A20-0AA19291160D}';
RID_PersonalContactoDelta = '{1A784A0F-7ACC-4FA2-8EB9-40E1E3FCCE57}';
RID_ContactosDelta = '{D6DB0142-BEA4-4DC0-B44D-42008D833687}';
RID_GruposClienteDelta = '{E6162081-3DD9-48ED-91A1-8BD0F798707B}';
RID_DatosBancariosDelta = '{C18FF453-BFAF-4639-A681-AB04B74D6517}';
RID_VendedoresDelta = '{5D018AE5-CDFF-48F1-A1DE-7767FC7DB308}';
RID_ClientesDelta = '{FADEA8D9-97E9-4309-A11D-07D6E35D08B8}';
RID_ProveedoresDelta = '{E7B3535A-B1BA-4926-AE46-BDD885A62B44}';
RID_EmpleadosDelta = '{3768A3D0-2DBE-4A8A-A120-64D68A76B527}';
RID_DireccionesContactoDelta = '{8210370B-075D-42EC-B0FE-C500A85C1E49}';
RID_ClientesDescuentosDelta = '{20831A5F-CC5C-4301-BC5E-9D2DD8A77A60}';
RID_GruposProveedorDelta = '{7F668480-9D2B-48D4-8DDE-506796230F77}';
RID_GruposEmpleadoDelta = '{7AB05FA7-9124-4A83-89B4-79B348BA09CA}';
RID_Contactos_RefreshDelta = '{4184B8C3-2380-46D4-AA92-8128EE40E17B}';
RID_ContratosEmpleadosDelta = '{6A832332-537B-4FD9-A618-5D40690AEDB5}';
RID_DescripcionesProveedoresDelta = '{366EAA53-20C7-4B8C-846C-480DF1C4A4FF}';
RID_PersonalContactoDelta = '{E71E7008-5A1D-43BE-98E9-50AB8CB8418B}';
type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{D6952F1E-C7D5-4FD8-86A2-9086CF96322C}']
['{D6DB0142-BEA4-4DC0-B44D-42008D833687}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -339,7 +339,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{27585B84-7756-4555-A6C8-FEB6918E681C}']
['{E6162081-3DD9-48ED-91A1-8BD0F798707B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -385,7 +385,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{0E0F05AE-194D-46D2-8E16-B68300F69D4B}']
['{C18FF453-BFAF-4639-A681-AB04B74D6517}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -515,7 +515,7 @@ type
{ IVendedoresDelta }
IVendedoresDelta = interface(IVendedores)
['{9760F5D1-81E3-4BCF-8E2E-F34D024CC9E1}']
['{5D018AE5-CDFF-48F1-A1DE-7767FC7DB308}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -540,6 +540,7 @@ type
function GetOldUSUARIOValue : String;
function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String;
function GetOldPAISValue : String;
function GetOldCOMISIONValue : Currency;
{ Properties }
@ -566,6 +567,7 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldPAIS : String read GetOldPAISValue;
property OldCOMISION : Currency read GetOldCOMISIONValue;
end;
@ -713,6 +715,12 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); 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 GetCOMISIONIsNull: Boolean; virtual;
function GetOldCOMISIONValue: Currency; virtual;
@ -813,6 +821,10 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue;
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 COMISIONIsNull : Boolean read GetCOMISIONIsNull write SetCOMISIONIsNull;
property OldCOMISION : Currency read GetOldCOMISIONValue;
@ -826,7 +838,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{C269BFF3-0DF8-4830-A609-980977CB69E7}']
['{FADEA8D9-97E9-4309-A11D-07D6E35D08B8}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -865,6 +877,7 @@ type
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldTIENDA_WEBValue : SmallInt;
function GetOldDESCUENTOValue : Currency;
function GetOldDESCUENTO2Value : Currency;
function GetOldFELICITACIONValue : SmallInt;
{ Properties }
@ -905,6 +918,7 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldDESCUENTO : Currency read GetOldDESCUENTOValue;
property OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value;
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
end;
@ -1136,6 +1150,12 @@ type
function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Currency); 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 GetFELICITACIONIsNull: Boolean; virtual;
function GetOldFELICITACIONValue: SmallInt; virtual;
@ -1292,6 +1312,10 @@ type
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Currency read GetOldDESCUENTOValue;
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 FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
@ -1305,7 +1329,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{013010DB-7E71-47A7-A53E-467CF4C830E4}']
['{E7B3535A-B1BA-4926-AE46-BDD885A62B44}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1772,7 +1796,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
['{F762DAD3-8D36-4ED7-9F25-9F0DC2FAAA33}']
['{3768A3D0-2DBE-4A8A-A120-64D68A76B527}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -2207,7 +2231,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{98B972CF-1202-4B4B-954B-44C2854A60CA}']
['{8210370B-075D-42EC-B0FE-C500A85C1E49}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -2422,7 +2446,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{F5BE7170-6DD7-4D2F-9798-761D099BDD61}']
['{20831A5F-CC5C-4301-BC5E-9D2DD8A77A60}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2504,7 +2528,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{CE166657-6C53-480E-81F6-E05E1E94240D}']
['{7F668480-9D2B-48D4-8DDE-506796230F77}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2550,7 +2574,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{2AF2DC5D-9184-4BEE-9BD0-C51A6645AD63}']
['{7AB05FA7-9124-4A83-89B4-79B348BA09CA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
@ -2596,7 +2620,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{F398F2D8-2192-450A-AA1B-5D0D9E179CC8}']
['{4184B8C3-2380-46D4-AA92-8128EE40E17B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -2883,7 +2907,7 @@ type
{ IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{76026549-3C22-4EF1-8452-F8B09E430989}']
['{6A832332-537B-4FD9-A618-5D40690AEDB5}']
{ Property getters and setters }
function GetOldCONTRATOValue : String;
@ -2917,7 +2941,7 @@ type
{ IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{724AB8D8-F8BB-4C45-8A20-0AA19291160D}']
['{366EAA53-20C7-4B8C-846C-480DF1C4A4FF}']
{ Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -2951,7 +2975,7 @@ type
{ IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto)
['{1A784A0F-7ACC-4FA2-8EB9-40E1E3FCCE57}']
['{E71E7008-5A1D-43BE-98E9-50AB8CB8418B}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -4957,6 +4981,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresREFERENCIA] := Null;
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;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_VendedoresCOMISION];
@ -6155,6 +6210,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO] := Null;
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;
begin
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('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
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_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
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('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
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_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2];
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;
procedure SetDESCUENTOValue(const aValue: Double);
function GetDESCUENTO2Value: Double;
procedure SetDESCUENTO2Value(const aValue: Double);
function GetDescuentos: IBizClienteDescuentos;
procedure SetDescuentos(Value: IBizClienteDescuentos);
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 TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTO2: Double read GetDESCUENTO2Value write SetDESCUENTO2Value;
property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
end;
@ -312,6 +316,9 @@ type
function GetDESCUENTOValue: Double;
procedure SetDESCUENTOValue(const aValue: Double);
function GetDESCUENTO2Value: Double;
procedure SetDESCUENTO2Value(const aValue: Double);
function GetDescuentos: IBizClienteDescuentos;
procedure SetDescuentos(Value: IBizClienteDescuentos);
@ -335,6 +342,7 @@ type
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property DESCUENTO: Double read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTO2: Double read GetDESCUENTO2Value write SetDESCUENTO2Value;
property FELICITACION: Integer read GetFELICITACIONValue write SetFELICITACIONValue;
end;
@ -573,6 +581,11 @@ begin
result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger;
end;
function TBizCliente.GetDESCUENTO2Value: Double;
begin
result := DataTable.Fields[idx_ClientesDESCUENTO2].AsFloat;
end;
function TBizCliente.GetDescuentos: IBizClienteDescuentos;
begin
Result := FDescuentos;
@ -618,6 +631,11 @@ begin
DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger := aValue;
end;
procedure TBizCliente.SetDESCUENTO2Value(const aValue: Double);
begin
DataTable.Fields[idx_ClientesDESCUENTO2].AsFloat := aValue;
end;
procedure TBizCliente.SetDescuentos(Value: IBizClienteDescuentos);
begin
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\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
Category = 'Ventas'
Caption = 'Vendedores'
ImageIndex = 3
OnExecute = actVendedoresExecute
OnUpdate = actVendedoresUpdate
end

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

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

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

@ -49,56 +49,63 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="bdertl.dcp" />
<DCCReference Include="ccpackD11.dcp" />
<DCCReference Include="cfpack_d11.dcp" />
<DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dclcxLibraryD11.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxPSCoreD11.dcp" />
<DCCReference Include="dxPScxCommonD11.dcp" />
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="dxPSLnksD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="FormasPago_controller.dcp" />
<DCCReference Include="FormasPago_model.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JSDialog100.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="TiposIVA_controller.dcp" />
<DCCReference Include="TiposIVA_model.dcp" />
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\bdertl.dcp" />
<DCCReference Include="..\ccpackD11.dcp" />
<DCCReference Include="..\cfpack_d11.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxGridD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dclcxLibraryD11.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxComnD11.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxPSCoreD11.dcp" />
<DCCReference Include="..\dxPScxCommonD11.dcp" />
<DCCReference Include="..\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\dxPSLnksD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\JSDialog100.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\tb2k_d10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\TiposIVA_controller.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="uEditorCliente.pas">
<Form>fEditorCliente</Form>
@ -184,7 +191,7 @@
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorVendedor.pas">
<Form>fEditorElegirVendedor</Form>
<Form>fEditorVendedor</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorVendedores.pas">
@ -271,13 +278,6 @@
<Form>frViewVendedores</Form>
<DesignClass>TCustomView</DesignClass>
</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>
</Project>
<!-- 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\uViewDatosYSeleccionClienteBase.dfm */
/* 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
Width = 786
Height = 530
ActivePage = pagGeneral
ActivePage = pagDatosComerciales
ExplicitWidth = 786
ExplicitHeight = 530
inherited pagGeneral: TTabSheet
@ -287,6 +287,12 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 177
Width = 177
end
inherited cbFelicitacion: TcxDBCheckBox
Top = 270
ExplicitTop = 270
ExplicitWidth = 370
Width = 370
end
inherited eTlfMovil: TcxDBTextEdit
Top = 84
Style.LookAndFeel.SkinName = ''
@ -319,12 +325,6 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 246
Width = 246
end
inherited cbFelicitacion: TcxDBCheckBox
Top = 270
ExplicitTop = 270
ExplicitWidth = 370
Width = 370
end
inherited eNIFCIF: TcxDBTextEdit
Left = 219
Top = 30
@ -470,7 +470,7 @@ inherited fEditorCliente: TfEditorCliente
Left = 0
Top = 0
Width = 778
Height = 193
Height = 209
Align = alTop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -481,16 +481,16 @@ inherited fEditorCliente: TfEditorCliente
TabOrder = 0
ReadOnly = False
ExplicitWidth = 778
ExplicitHeight = 193
ExplicitHeight = 209
inherited dxLayoutControl1: TdxLayoutControl
Width = 778
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 778
inherited Label1: TLabel
Left = 523
Left = 524
Top = 30
Width = 193
ExplicitLeft = 523
ExplicitLeft = 524
ExplicitTop = 30
ExplicitWidth = 193
end
@ -501,13 +501,13 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 263
end
inherited eDiasVencimiento1: TcxDBSpinEdit
Left = 595
Left = 596
Top = 62
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 595
ExplicitLeft = 596
ExplicitTop = 62
end
inherited cbRegimenIVA: TcxDBComboBox
@ -541,9 +541,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 169
end
inherited bFormasPago: TButton
Left = 363
Left = 364
Top = 57
ExplicitLeft = 363
ExplicitLeft = 364
ExplicitTop = 57
end
inherited eIVA: TcxDBLookupComboBox
@ -557,9 +557,9 @@ inherited fEditorCliente: TfEditorCliente
Width = 169
end
inherited bTiposIVA: TButton
Left = 363
Left = 364
Top = 84
ExplicitLeft = 363
ExplicitLeft = 364
ExplicitTop = 84
end
inherited eDescuento: TcxDBSpinEdit
@ -571,31 +571,32 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 149
end
inherited eDiasVencimiento2: TcxDBSpinEdit
Left = 595
Left = 596
Top = 89
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 595
ExplicitLeft = 596
ExplicitTop = 89
end
inherited eDiasVencimiento3: TcxDBSpinEdit
Left = 595
Left = 596
Top = 116
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 595
ExplicitLeft = 596
ExplicitTop = 116
end
inherited dxLayoutGroup1: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup
inherited dxLayoutControl1Item1: TdxLayoutItem
Visible = False
end
end
inherited eDescuento2: TcxDBSpinEdit
Top = 176
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 176
end
end
end
@ -636,18 +637,6 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 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

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

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

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

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

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

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

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

@ -43,10 +43,12 @@ inherited frViewClientes: TfrViewClientes
Value = 0
end>
Properties.ReadOnly = True
Visible = False
OnGetCellHint = cxGridViewFELICITACIONGetCellHint
BestFitMaxWidth = 22
MinWidth = 22
Options.HorzSizing = False
VisibleForCustomization = False
Width = 22
end
object cxGridViewTiendaWeb: TcxGridDBColumn [3]
@ -101,22 +103,24 @@ inherited frViewClientes: TfrViewClientes
Width = 154
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 223
Left = 214
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 223
ExplicitLeft = 214
ExplicitWidth = 525
Width = 525
end
inherited eLista: TcxComboBox
Left = 705
Left = 675
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 705
ExplicitLeft = 675
ExplicitWidth = 140
Width = 140
end
end
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\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
/* 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
/* 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
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 */
/* 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
item
Name = 'RETENCION'
DataType = datFloat
DataType = datCurrency
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -13,4 +13,4 @@ BEGIN
END
/* 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
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{FD7D4D74-BB5E-4F18-9F1A-AAF12EB25DC9}';
RID_FacturasCliente = '{C2CB3D1C-C182-4CE2-AA95-14AE2D5FFC12}';
RID_FacturasCliente_Detalles = '{CAE1BB94-5B84-483D-8C3A-1300951E64F2}';
RID_ListaAnosFacturas = '{E39059AE-B71C-4FC8-8DD3-81EBB5116E6B}';
RID_FacturasCliente = '{287DAE4D-3DFA-4253-B9B5-0462FEAC4ED5}';
RID_FacturasCliente_Detalles = '{FA5F5870-5B02-450A-A71C-EB3E455AFA75}';
{ Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -65,6 +65,8 @@ const
fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION';
fld_FacturasClienteRETENCION = 'RETENCION';
fld_FacturasClienteIMPORTE_RETENCION = 'IMPORTE_RETENCION';
fld_FacturasClienteDESCUENTO2 = 'DESCUENTO2';
fld_FacturasClienteIMPORTE_DESCUENTO2 = 'IMPORTE_DESCUENTO2';
{ FacturasCliente field indexes }
idx_FacturasClienteID = 0;
@ -107,6 +109,8 @@ const
idx_FacturasClienteREFERENCIA_COMISION = 37;
idx_FacturasClienteRETENCION = 38;
idx_FacturasClienteIMPORTE_RETENCION = 39;
idx_FacturasClienteDESCUENTO2 = 40;
idx_FacturasClienteIMPORTE_DESCUENTO2 = 41;
{ FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID';
@ -145,7 +149,7 @@ const
type
{ IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{CD6D3B14-759E-4A7A-A148-CB8DDBFA0D92}']
['{02245449-B366-4C52-BD24-21593AF9429F}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -159,7 +163,7 @@ type
end;
{ TListaAnosFacturasDataTableRules }
TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
private
protected
{ Property getters and setters }
@ -180,7 +184,7 @@ type
{ IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{6E9731DA-0B33-43DF-9128-37F89A8D1645}']
['{F26DF140-07D6-46AE-9851-1882FD1CA63E}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -333,14 +337,22 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String);
function GetREFERENCIA_COMISIONIsNull: Boolean;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean);
function GetRETENCIONValue: Float;
procedure SetRETENCIONValue(const aValue: Float);
function GetRETENCIONValue: Currency;
procedure SetRETENCIONValue(const aValue: Currency);
function GetRETENCIONIsNull: Boolean;
procedure SetRETENCIONIsNull(const aValue: Boolean);
function GetIMPORTE_RETENCIONValue: Currency;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency);
function GetIMPORTE_RETENCIONIsNull: Boolean;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean);
function 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 }
@ -420,14 +432,18 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
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 IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
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;
{ TFacturasClienteDataTableRules }
TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
private
f_OBSERVACIONES: IROStrings;
procedure OBSERVACIONES_OnChange(Sender: TObject);
@ -584,14 +600,22 @@ type
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
function GetRETENCIONValue: Float; virtual;
procedure SetRETENCIONValue(const aValue: Float); virtual;
function GetRETENCIONValue: Currency; virtual;
procedure SetRETENCIONValue(const aValue: Currency); virtual;
function GetRETENCIONIsNull: Boolean; virtual;
procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_RETENCIONValue: Currency; virtual;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); virtual;
function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONIsNull(const aValue: Boolean); virtual;
function 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 }
property ID: Integer read GetIDValue write SetIDValue;
@ -670,10 +694,14 @@ type
property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
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 IMPORTE_RETENCION: Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
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
constructor Create(aDataTable: TDADataTable); override;
@ -683,7 +711,7 @@ type
{ IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{7562C65C-C3D3-4104-BAAE-5F11D0C87BF4}']
['{CBAB45E2-2610-41A2-BC17-402FDAE56E26}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -781,7 +809,7 @@ type
end;
{ TFacturasCliente_DetallesDataTableRules }
TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
private
protected
{ Property getters and setters }
@ -1737,14 +1765,14 @@ begin
DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetRETENCIONValue: Float;
function TFacturasClienteDataTableRules.GetRETENCIONValue: Currency;
begin
result := DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat;
result := DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency;
end;
procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Float);
procedure TFacturasClienteDataTableRules.SetRETENCIONValue(const aValue: Currency);
begin
DataTable.Fields[idx_FacturasClienteRETENCION].AsFloat := aValue;
DataTable.Fields[idx_FacturasClienteRETENCION].AsCurrency := aValue;
end;
function TFacturasClienteDataTableRules.GetRETENCIONIsNull: boolean;
@ -1779,6 +1807,48 @@ begin
DataTable.Fields[idx_FacturasClienteIMPORTE_RETENCION].AsVariant := Null;
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 }
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
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{918AF647-D101-44B9-AC18-3D64BE3A714A}';
RID_FacturasClienteDelta = '{566BE766-12BF-4272-8214-8550BD00F7E3}';
RID_FacturasCliente_DetallesDelta = '{B1AB58CB-D6F2-4108-AB5F-B352E9C27B9F}';
RID_ListaAnosFacturasDelta = '{2F79221D-DBAF-40B5-AE82-8CA4E267AFE3}';
RID_FacturasClienteDelta = '{22F82387-32E0-42FB-9BCF-6AA6C11881F4}';
RID_FacturasCliente_DetallesDelta = '{04D705AA-0C8D-42E5-98A4-3EA9BBB35577}';
type
{ IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{918AF647-D101-44B9-AC18-3D64BE3A714A}']
['{2F79221D-DBAF-40B5-AE82-8CA4E267AFE3}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente)
['{566BE766-12BF-4272-8214-8550BD00F7E3}']
['{22F82387-32E0-42FB-9BCF-6AA6C11881F4}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -90,8 +90,10 @@ type
function GetOldIMPORTE_PORTEValue : Currency;
function GetOldID_AGENTEValue : Integer;
function GetOldREFERENCIA_COMISIONValue : String;
function GetOldRETENCIONValue : Float;
function GetOldRETENCIONValue : Currency;
function GetOldIMPORTE_RETENCIONValue : Currency;
function GetOldDESCUENTO2Value : Currency;
function GetOldIMPORTE_DESCUENTO2Value : Currency;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -132,8 +134,10 @@ type
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
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 OldDESCUENTO2 : Currency read GetOldDESCUENTO2Value;
property OldIMPORTE_DESCUENTO2 : Currency read GetOldIMPORTE_DESCUENTO2Value;
end;
{ TFacturasClienteBusinessProcessorRules }
@ -370,11 +374,11 @@ type
function GetOldREFERENCIA_COMISIONIsNull: Boolean; virtual;
procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
procedure SetREFERENCIA_COMISIONIsNull(const aValue: Boolean); virtual;
function GetRETENCIONValue: Float; virtual;
function GetRETENCIONValue: Currency; virtual;
function GetRETENCIONIsNull: Boolean; virtual;
function GetOldRETENCIONValue: Float; virtual;
function GetOldRETENCIONValue: Currency; virtual;
function GetOldRETENCIONIsNull: Boolean; virtual;
procedure SetRETENCIONValue(const aValue: Float); virtual;
procedure SetRETENCIONValue(const aValue: Currency); virtual;
procedure SetRETENCIONIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_RETENCIONValue: Currency; virtual;
function GetIMPORTE_RETENCIONIsNull: Boolean; virtual;
@ -382,6 +386,18 @@ type
function GetOldIMPORTE_RETENCIONIsNull: Boolean; virtual;
procedure SetIMPORTE_RETENCIONValue(const aValue: Currency); 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 }
property ID : Integer read GetIDValue write SetIDValue;
@ -536,14 +552,22 @@ type
property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
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 OldRETENCION : Float read GetOldRETENCIONValue;
property OldRETENCION : Currency read GetOldRETENCIONValue;
property OldRETENCIONIsNull : Boolean read GetOldRETENCIONIsNull;
property IMPORTE_RETENCION : Currency read GetIMPORTE_RETENCIONValue write SetIMPORTE_RETENCIONValue;
property IMPORTE_RETENCIONIsNull : Boolean read GetIMPORTE_RETENCIONIsNull write SetIMPORTE_RETENCIONIsNull;
property OldIMPORTE_RETENCION : Currency read GetOldIMPORTE_RETENCIONValue;
property OldIMPORTE_RETENCIONIsNull : Boolean read GetOldIMPORTE_RETENCIONIsNull;
property 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
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -553,7 +577,7 @@ type
{ IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{B1AB58CB-D6F2-4108-AB5F-B352E9C27B9F}']
['{04D705AA-0C8D-42E5-98A4-3EA9BBB35577}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer;
@ -1998,7 +2022,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetRETENCIONValue: Float;
function TFacturasClienteBusinessProcessorRules.GetRETENCIONValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION];
end;
@ -2008,7 +2032,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldRETENCIONValue: Float;
function TFacturasClienteBusinessProcessorRules.GetOldRETENCIONValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRETENCION];
end;
@ -2018,7 +2042,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteRETENCION]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetRETENCIONValue(const aValue: Float);
procedure TFacturasClienteBusinessProcessorRules.SetRETENCIONValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRETENCION] := aValue;
end;
@ -2060,6 +2084,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_RETENCION] := Null;
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 }
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\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
DatasetField = 'FECHA_RETENCION'
TableField = 'FECHA_RETENCION'
end
item
DatasetField = 'DESCUENTO2'
TableField = 'DESCUENTO2'
end
item
DatasetField = 'IMPORTE_DESCUENTO2'
TableField = 'IMPORTE_DESCUENTO2'
end>
end>
Name = 'FacturasCliente'
@ -416,11 +424,19 @@ object srvFacturasCliente: TsrvFacturasCliente
end
item
Name = 'RETENCION'
DataType = datFloat
DataType = datCurrency
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
end>
end
item
@ -806,138 +822,192 @@ object srvFacturasCliente: TsrvFacturasCliente
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_RETENCION'
DataType = datDateTime
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'RE'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CLIENTE_FINAL'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'RETENCION'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
Value = ''
end>
Statements = <
@ -955,17 +1025,19 @@ object srvFacturasCliente: TsrvFacturasCliente
'CODIGO_POSTAL,'#10' FECHA_ALTA,'#10' FECHA_MODIFICACION,'#10' USUAR' +
'IO,'#10' ID_FORMA_PAGO,'#10' RECARGO_EQUIVALENCIA,'#10' ID_TIPO_IVA' +
','#10' IMPORTE_NETO,'#10' IMPORTE_PORTE,'#10' DATOS_BANCARIOS,'#10' ' +
'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION)'#10' VALUES ('#10 +
' :ID,'#10' :ID_EMPRESA,'#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' ' +
' :FECHA_VENCIMIENTO,'#10' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE' +
','#10' :DESCUENTO,'#10' :IMPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE' +
'_IVA,'#10' :RE,'#10' :IMPORTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVA' +
'CIONES,'#10' :ID_CLIENTE,'#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRE' +
'CCION,'#10' :CALLE,'#10' :POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_P' +
'OSTAL,'#10' :FECHA_ALTA,'#10' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' ' +
' :ID_FORMA_PAGO,'#10' :RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10 +
' :IMPORTE_NETO,'#10' :IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' ' +
' :CLIENTE_FINAL,'#10' :RETENCION,'#10' :IMPORTE_RETENCION);'#10
'CLIENTE_FINAL,'#10' RETENCION,'#10' IMPORTE_RETENCION,'#10' DESCUEN' +
'TO2,'#10' IMPORTE_DESCUENTO2)'#10' VALUES ('#10' :ID,'#10' :ID_EMPRESA' +
','#10' :REFERENCIA,'#10' :FECHA_FACTURA,'#10' :FECHA_VENCIMIENTO,'#10' ' +
' :FECHA_RETENCION,'#10' :BASE_IMPONIBLE,'#10' :DESCUENTO,'#10' :I' +
'MPORTE_DESCUENTO,'#10' :IVA,'#10' :IMPORTE_IVA,'#10' :RE,'#10' :IMPO' +
'RTE_RE,'#10' :IMPORTE_TOTAL,'#10' :OBSERVACIONES,'#10' :ID_CLIENTE,' +
#10' :NIF_CIF,'#10' :NOMBRE,'#10' :ID_DIRECCION,'#10' :CALLE,'#10' :' +
'POBLACION,'#10' :PROVINCIA,'#10' :CODIGO_POSTAL,'#10' :FECHA_ALTA,'#10 +
' :FECHA_MODIFICACION,'#10' :USUARIO,'#10' :ID_FORMA_PAGO,'#10' :' +
'RECARGO_EQUIVALENCIA,'#10' :ID_TIPO_IVA,'#10' :IMPORTE_NETO,'#10' :' +
'IMPORTE_PORTE,'#10' :DATOS_BANCARIOS,'#10' :CLIENTE_FINAL,'#10' :RE' +
'TENCION,'#10' :IMPORTE_RETENCION,'#10' :DESCUENTO2,'#10' :IMPORTE_D' +
'ESCUENTO2);'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -975,138 +1047,192 @@ object srvFacturasCliente: TsrvFacturasCliente
Params = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'FECHA_FACTURA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_RETENCION'
DataType = datDateTime
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
Value = ''
end
item
Name = 'RE'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_RE'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
Value = ''
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
Value = ''
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = ''
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID_DIRECCION'
DataType = datInteger
Value = ''
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
Value = ''
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
Value = ''
end
item
Name = 'DATOS_BANCARIOS'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'CLIENTE_FINAL'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'RETENCION'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_RETENCION'
DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO2'
DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO2'
DataType = datCurrency
Value = ''
end
item
@ -1135,8 +1261,9 @@ object srvFacturasCliente: TsrvFacturasCliente
'ID_TIPO_IVA = :ID_TIPO_IVA,'#10' IMPORTE_NETO = :IMPORTE_NETO,'#10' ' +
' IMPORTE_PORTE = :IMPORTE_PORTE,'#10' DATOS_BANCARIOS = :DATOS_B' +
'ANCARIOS,'#10' CLIENTE_FINAL = :CLIENTE_FINAL,'#10' RETENCION = :R' +
'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION'#10' WHERE'#10' (' +
'ID = :OLD_ID);'#10
'ETENCION,'#10' IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10' DESCUE' +
'NTO2 = :DESCUENTO2,'#10' IMPORTE_DESCUENTO2 = :IMPORTE_DESCUENTO2' +
#10' WHERE'#10' (ID = :OLD_ID);'#10
StatementType = stSQL
ColumnMappings = <>
end>

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

@ -36,7 +36,23 @@ requires
PreCli_FacCli_relation,
GestorInformes_controller,
rtl,
vcl;
vcl,
dbrtl,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
dxCoreD11,
vclx,
cxEditorsD11,
cxDataD11,
vcljpg,
vcldb,
DataAbstract_Core_D11,
dsnap,
adortl,
RemObjects_Core_D11,
dxLayoutControlD11,
dxComnD11;
contains
uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas',
@ -50,6 +66,7 @@ contains
uViewElegirArticulosFacturasCliente in 'uViewElegirArticulosFacturasCliente.pas' {frViewElegirArticulosFacturasCliente: TFrame},
uEditorElegirFacturasCliente in 'uEditorElegirFacturasCliente.pas' {fEditorElegirFacturasCliente: TfEditorElegirFacturasCliente},
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.

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

@ -49,18 +49,30 @@
<DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Articulos_view.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\Contactos_view.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="..\rtl.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="AlbCli_FacCli_relation.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Articulos_view.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="Contactos_view.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.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">
<Form>fDialogOpcionesImpresionFacturasCliente</Form>
<DesignClass>TfEditorElegirFacturasCliente</DesignClass>
@ -105,6 +117,14 @@
<Form>frViewFacturasCliente</Form>
<DesignClass>TFrame</DesignClass>
</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>
</Project>
<!-- 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\uEditorElegirArticulosFacturaCliente.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 */
/* 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
Width = 1146
Height = 511
Width = 893
Height = 516
Align = alClient
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
@ -9,8 +9,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
Width = 1146
Height = 511
Width = 893
Height = 516
Align = alClient
ParentBackground = True
TabOrder = 0
@ -20,10 +20,10 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = (
1146
511)
893
516)
object Label1: TLabel
Left = 617
Left = 486
Top = 193
Width = 311
Height = 26
@ -142,7 +142,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 269
end
object bFormasPago: TButton
Left = 435
Left = 304
Top = 103
Width = 132
Height = 23
@ -173,7 +173,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 165
end
object cbClienteFinal: TcxDBTextEdit
Left = 617
Left = 486
Top = 227
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'CLIENTE_FINAL'
@ -201,7 +201,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 339
end
object bElegirClienteFinal: TButton
Left = 1090
Left = 837
Top = 225
Width = 23
Height = 25
@ -209,7 +209,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
TabOrder = 8
end
inline frViewDatosYSeleccionClienteFacturaCliente1: TfrViewDatosYSeleccionClienteFacturaCliente
Left = 606
Left = 475
Top = 30
Width = 505
Height = 138
@ -221,37 +221,40 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False
TabOrder = 6
ReadOnly = False
ExplicitLeft = 606
ExplicitLeft = 475
ExplicitTop = 30
inherited dxLayoutControl1: TdxLayoutControl
ExplicitWidth = 101
inherited edtlNombre: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 224
Width = 224
end
inherited edtNIFCIF: TcxDBTextEdit
Left = 405
Left = 283
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 405
ExplicitLeft = 283
end
inherited Button3: TBitBtn
Left = 316
ExplicitLeft = 316
Left = 194
ExplicitLeft = 194
end
inherited edtDireccion: TcxTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 121
Width = 121
end
inherited Button4: TButton
Left = 485
ExplicitLeft = 485
Left = 363
ExplicitLeft = 363
end
end
inherited ActionList1: TActionList
@ -346,6 +349,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
object ledtFechaVencimiento: TdxLayoutItem
Caption = 'Fecha de vencimiento:'
Visible = False
Control = edtFechaVemcimiento
ControlOptions.ShowBorder = False
end
@ -371,6 +375,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end
object dxLayoutControl1Group7: TdxLayoutGroup
Caption = 'Cliente final'
Visible = False
object dxLayoutControl1Item7: TdxLayoutItem
ShowCaption = False
Control = Label1

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

@ -13,4 +13,4 @@ BEGIN
END
/* 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\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
/* 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\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
/* 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\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
/* 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\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
/* 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\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\uEditorSituacionPedidoProveedor.dfm */
/* 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
/* 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