diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 2c18a2ea..55ce321c 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -1312,7 +1312,8 @@ CREATE TABLE PEDIDOS_PROVEEDOR (
IMPORTE_TOTAL TIPO_IMPORTE,
ID_FORMA_PAGO TIPO_ID,
FECHA_ENVIO DATE,
- ID_TIENDA TIPO_ID
+ ID_TIENDA TIPO_ID,
+ DESCRIPCION_GENERAL VARCHAR(255) COLLATE ES_ES
);
@@ -3771,7 +3772,8 @@ CREATE VIEW V_PEDIDOS_PROVEEDOR(
IMPORTE_IVA,
ID_FORMA_PAGO,
ID_TIENDA,
- TIENDA)
+ TIENDA,
+ DESCRIPCION_GENERAL)
AS
SELECT
PEDIDOS_PROVEEDOR.ID,
@@ -3779,7 +3781,10 @@ SELECT
PEDIDOS_PROVEEDOR.ID_PROVEEDOR,
CONTACTOS.NOMBRE,
PEDIDOS_PROVEEDOR.REFERENCIA,
- TRIM(V_PED_PROV_SITUACION.SITUACION),
+ TRIM(case when (PEDIDOS_PROVEEDOR.FECHA_ENTREGA is null) then 'PENDIENTE'
+ when (PEDIDOS_PROVEEDOR.FECHA_ENTREGA is not null) then 'RECIBIDO'
+ else 'N/A'
+ end) as SITUACION,
PEDIDOS_PROVEEDOR.FECHA_ENVIO,
PEDIDOS_PROVEEDOR.FECHA_PEDIDO,
PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION,
@@ -3810,7 +3815,8 @@ SELECT
PEDIDOS_PROVEEDOR.IMPORTE_IVA,
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO,
PEDIDOS_PROVEEDOR.ID_TIENDA,
- COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA
+ COALESCE(TIENDAS.NOMBRE, 'Todas') AS TIENDA,
+ PEDIDOS_PROVEEDOR.DESCRIPCION_GENERAL
FROM
PEDIDOS_PROVEEDOR
INNER JOIN CONTACTOS ON (CONTACTOS.ID = PEDIDOS_PROVEEDOR.ID_PROVEEDOR)
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index e6af759e..1ba78450 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,6 +44,34 @@
Package
FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -58,55 +86,55 @@
MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
TForm
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f31..1641339f 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index 21c4e575..f44e3be7 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -58,34 +58,34 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/Modulos/Albaranes de proveedor/Plugin/uPluginAlbaranesProveedor.dfm b/Source/Modulos/Albaranes de proveedor/Plugin/uPluginAlbaranesProveedor.dfm
index e90fa209..ed41243f 100644
--- a/Source/Modulos/Albaranes de proveedor/Plugin/uPluginAlbaranesProveedor.dfm
+++ b/Source/Modulos/Albaranes de proveedor/Plugin/uPluginAlbaranesProveedor.dfm
@@ -254,7 +254,9 @@ object PluginAlbaranesProveedor: TPluginAlbaranesProveedor
object actAlbaranesProveedor: TAction
Category = 'Compras'
Caption = 'Albaranes de proveedor'
+ Enabled = False
ImageIndex = 0
+ Visible = False
OnExecute = actAlbaranesProveedorExecute
end
object actDevolucionesProveedor: TAction
diff --git a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
index e327d88a..e76258a4 100644
--- a/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
+++ b/Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas
@@ -146,7 +146,7 @@ uses
uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente,
uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente,
- schContactosClient_Intf, uContratosClienteReportController,
+ schContactosClient_Intf, uContratosClienteReportController, FactuGES_Intf,
uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils,
uIEditorContratosClienteBeneficios, uPresupuestosClienteController,
uConfiguracionController, uBizDetallesPresupuestoCliente;
@@ -300,6 +300,7 @@ begin
//GESTION_DOCUMENTOS
FGestorDocumentosController := TGestorDocumentosController.Create;
+ FGestorDocumentosController.Almacen := TRdxAlmacenes_Presupuestos;
FDetallesController.addObservador(Self);
end;
diff --git a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
index 0f253e64..c5fd8ea3 100644
--- a/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
+++ b/Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
@@ -174,7 +174,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
inherited pgPaginas: TPageControl
Width = 866
Height = 308
- ActivePage = pagCalidades
+ ActivePage = pagDocumentos
TabOrder = 1
OnChanging = pgPaginasChanging
ExplicitWidth = 866
@@ -235,57 +235,57 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 90
end
inherited UpDown1: TUpDown
- Left = 619
+ Left = 603
Top = 0
- ExplicitLeft = 619
+ ExplicitLeft = 603
ExplicitTop = 0
end
inherited ToolButton13: TToolButton
- Left = 636
+ Left = 620
Top = 0
- ExplicitLeft = 636
+ ExplicitLeft = 620
ExplicitTop = 0
end
inherited ToolButton6: TToolButton
- Left = 644
+ Left = 628
Top = 0
- ExplicitLeft = 644
+ ExplicitLeft = 628
ExplicitTop = 0
end
inherited ToolButton7: TToolButton
- Left = 678
+ Left = 662
Top = 0
- ExplicitLeft = 678
+ ExplicitLeft = 662
ExplicitTop = 0
end
inherited ToolButton8: TToolButton
- Left = 712
+ Left = 696
Top = 0
- ExplicitLeft = 712
+ ExplicitLeft = 696
ExplicitTop = 0
end
inherited ToolButton12: TToolButton
- Left = 746
+ Left = 730
Top = 0
- ExplicitLeft = 746
+ ExplicitLeft = 730
ExplicitTop = 0
end
inherited ToolButton9: TToolButton
- Left = 754
+ Left = 738
Top = 0
- ExplicitLeft = 754
+ ExplicitLeft = 738
ExplicitTop = 0
end
inherited ToolButton10: TToolButton
- Left = 788
+ Left = 772
Top = 0
- ExplicitLeft = 788
+ ExplicitLeft = 772
ExplicitTop = 0
end
inherited ToolButton11: TToolButton
- Left = 822
+ Left = 806
Top = 0
- ExplicitLeft = 822
+ ExplicitLeft = 806
ExplicitTop = 0
end
end
@@ -303,7 +303,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitTop = 24
ExplicitWidth = 858
inherited TBXToolbar1: TTBXToolbar
- ExplicitWidth = 663
+ ExplicitWidth = 665
end
end
inherited cxLookupComboBox1: TcxLookupComboBox
@@ -513,34 +513,26 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitWidth = 872
inherited Bevel3: TBevel
Left = 429
- Height = 122
+ Height = 152
ExplicitLeft = 429
- ExplicitHeight = 122
+ ExplicitHeight = 152
end
inherited Bevel4: TBevel
Left = 541
- Width = 210
ExplicitLeft = 541
- ExplicitWidth = 210
end
inherited ImporteDto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
- ExplicitWidth = 93
- Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
Left = 612
Style.IsFontAssigned = True
ExplicitLeft = 612
- ExplicitWidth = 137
- Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
Left = 542
Style.IsFontAssigned = True
ExplicitLeft = 542
- ExplicitWidth = 137
- Width = 137
end
inherited edtDescuento: TcxDBSpinEdit
Style.IsFontAssigned = True
@@ -554,8 +546,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 541
Style.IsFontAssigned = True
ExplicitLeft = 541
- ExplicitWidth = 92
- Width = 92
end
inherited edtRE: TcxDBSpinEdit
Left = 541
@@ -566,34 +556,22 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 612
Style.IsFontAssigned = True
ExplicitLeft = 612
- ExplicitWidth = 56
- Width = 56
end
inherited eImporteNeto: TcxDBCurrencyEdit
Style.IsFontAssigned = True
- ExplicitWidth = 147
- Width = 147
end
inherited ePorte: TcxDBCurrencyEdit
Style.IsFontAssigned = True
- ExplicitWidth = 147
- Width = 147
end
inherited eIVA: TcxDBLookupComboBox
Properties.OnValidate = frViewTotales1eIVAPropertiesValidate
Style.Color = clInfoBk
- ExplicitWidth = 81
- Width = 81
end
inherited bTiposIVA: TButton
Left = 281
OnClick = frViewTotales1bTiposIVAClick
ExplicitLeft = 281
end
- inherited cbRecargoEquivalencia: TcxDBCheckBox
- ExplicitWidth = 219
- Width = 219
- end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Group1: TdxLayoutGroup
inherited dxLayoutControl1Group2: TdxLayoutGroup
diff --git a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dpk b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dpk
index 1b86b19e..2848a053 100644
Binary files a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dpk and b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dpk differ
diff --git a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dproj b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dproj
index 38d8dbc4..322555bb 100644
--- a/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dproj
+++ b/Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.dproj
@@ -49,9 +49,10 @@
MainSource
-
-
-
+
+
+
+
diff --git a/Source/Modulos/Gestion de documentos/Controller/uGestorDocumentosController.pas b/Source/Modulos/Gestion de documentos/Controller/uGestorDocumentosController.pas
index 5b46d02f..d1024710 100644
--- a/Source/Modulos/Gestion de documentos/Controller/uGestorDocumentosController.pas
+++ b/Source/Modulos/Gestion de documentos/Controller/uGestorDocumentosController.pas
@@ -3,7 +3,7 @@ unit uGestorDocumentosController;
interface
uses
- Classes, uROTypes, uControllerBase, uDataModuleGestorDocumentos;
+ Classes, uROTypes, FactuGES_Intf, uControllerBase, uDataModuleGestorDocumentos;
type
IGestorDocumentosController = interface(IControllerBase)
@@ -12,21 +12,31 @@ type
function DescargarFichero(const ID:Integer; const NombreFichero: String; const DestinoFichero: String): Boolean;
function SubirFichero(const ID:Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
procedure SincronizarDocumentos(const ID: Integer; FListaDocumentos: TStringList; Directorio: String);
- function EliminarDirectorio(const ID: Integer): Boolean;
+ function EliminarDirectorio(const ID: Integer): Boolean;
+
+ function GetAlmacen: TRdxAlmacenes;
+ procedure SetAlmacen(const Value: TRdxAlmacenes);
+ property Almacen: TRdxAlmacenes read GetAlmacen write SetAlmacen;
end;
TGestorDocumentosController = class(TControllerBase, IGestorDocumentosController)
+
protected
FDataModule : IDataModuleGestorDocumentos;
+ FAlmacen : TRdxAlmacenes;
//Estos son los tres métodos a sobre escribir si se desea heredar toda la logica de
//este controller
procedure AsignarDataModule; virtual;
+ procedure SetAlmacen(const Value: TRdxAlmacenes);
+ function GetAlmacen: TRdxAlmacenes;
public
constructor Create; override;
destructor Destroy; override;
+ property Almacen: TRdxAlmacenes read GetAlmacen write SetAlmacen;
+
function DarListaDocumentos(const ID: Integer): TStringList;
function DescargarFichero(const ID:Integer; const NombreFichero: String; const DestinoFichero: String): Boolean;
function SubirFichero(const ID:Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
@@ -48,18 +58,19 @@ constructor TGestorDocumentosController.Create;
begin
inherited;
AsignarDataModule;
+ FAlmacen := TRdxAlmacenes_Presupuestos;
end;
function TGestorDocumentosController.DarListaDocumentos(
const ID: Integer): TStringList;
begin
- Result := FDataModule.DarListaDocumentos(ID);
+ Result := FDataModule.DarListaDocumentos(ID, Almacen);
end;
function TGestorDocumentosController.DescargarFichero(const ID: Integer;
const NombreFichero, DestinoFichero: String): Boolean;
begin
- Result := FDataModule.DescargarFichero(ID, NombreFichero, DestinoFichero);
+ Result := FDataModule.DescargarFichero(ID, Almacen, NombreFichero, DestinoFichero);
end;
destructor TGestorDocumentosController.Destroy;
@@ -70,7 +81,17 @@ end;
function TGestorDocumentosController.EliminarDirectorio(const ID: Integer): Boolean;
begin
- Result := FDataModule.EliminarID(ID);
+ Result := FDataModule.EliminarID(ID, Almacen);
+end;
+
+function TGestorDocumentosController.GetAlmacen: TRdxAlmacenes;
+begin
+ Result := FAlmacen;
+end;
+
+procedure TGestorDocumentosController.SetAlmacen(const Value: TRdxAlmacenes);
+begin
+ FAlmacen := Value;
end;
procedure TGestorDocumentosController.SincronizarDocumentos(const ID: Integer;
@@ -85,7 +106,7 @@ begin
ListaDocumentosServidor := DarListaDocumentos(ID);
for i:= 0 to ListaDocumentosServidor.Count - 1 do
if not FListaDocumentos.Find(ListaDocumentosServidor.Strings[i], j) then
- if not FDataModule.EliminarFichero(ID, ListaDocumentosServidor.Strings[i]) then
+ if not FDataModule.EliminarFichero(ID, Almacen, ListaDocumentosServidor.Strings[i]) then
showmessage('Error al borrar fichero' + ListaDocumentosServidor.Strings[i]);
//Subimos todos los ficheros que halla al servidor (de momento no se miran fechas)
@@ -101,10 +122,10 @@ begin
end;
end;
-function TGestorDocumentosController.SubirFichero(const ID: Integer;
+function TGestorDocumentosController.SubirFichero(const ID: Integer;
const NombreFichero: String; const Fichero: Binary): Boolean;
begin
- Result := FDataModule.SubirFichero(ID, NombreFichero, Fichero);
+ Result := FDataModule.SubirFichero(ID, Almacen, NombreFichero, Fichero);
end;
end.
diff --git a/Source/Modulos/Gestion de documentos/Data/uDataModuleGestorDocumentos.pas b/Source/Modulos/Gestion de documentos/Data/uDataModuleGestorDocumentos.pas
index 0a58a60a..30303c4f 100644
--- a/Source/Modulos/Gestion de documentos/Data/uDataModuleGestorDocumentos.pas
+++ b/Source/Modulos/Gestion de documentos/Data/uDataModuleGestorDocumentos.pas
@@ -4,16 +4,16 @@ interface
uses
DB, uDataModuleBase, uROClient, uRORemoteService, Classes, uDADataStreamer,
- uDABin2DataStreamer, uROTypes, uDADataTable;
+ uDABin2DataStreamer, uROTypes, uDADataTable, FactuGES_Intf;
type
IDataModuleGestorDocumentos = interface
['{03537996-181D-428C-9B1D-56B499F0048E}']
- function DarListaDocumentos(const ID : Integer): TStringList;
- function DescargarFichero(const ID : Integer; const NombreFichero: String; const DestinoFichero: String): Boolean;
- function SubirFichero(const ID : Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
- function EliminarFichero(const ID : Integer; const NombreFichero: String): Boolean;
- function EliminarID(const ID : Integer): Boolean;
+ function DarListaDocumentos(const ID : Integer; const Almacen: TRdxAlmacenes): TStringList;
+ function DescargarFichero(const ID : Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String; const DestinoFichero: String): Boolean;
+ function SubirFichero(const ID : Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String; const Fichero: Binary): Boolean;
+ function EliminarFichero(const ID : Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String): Boolean;
+ function EliminarID(const ID : Integer; const Almacen: TRdxAlmacenes): Boolean;
end;
TDataModuleGestorDocumentos = class(TDataModuleBase, IDataModuleGestorDocumentos)
@@ -25,18 +25,18 @@ type
procedure AsignarClaseNegocio(APresupuesto: TDADataTable); virtual;
public
- function DarListaDocumentos(const ID : Integer): TStringList;
- function DescargarFichero(const ID : Integer; const NombreFichero: String; const DestinoFichero: String): Boolean;
- function SubirFichero(const ID : Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
- function EliminarFichero(const ID : Integer; const NombreFichero: String): Boolean;
- function EliminarID(const ID : Integer): Boolean;
+ function DarListaDocumentos(const ID : Integer; const Almacen: TRdxAlmacenes): TStringList;
+ function DescargarFichero(const ID : Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String; const DestinoFichero: String): Boolean;
+ function SubirFichero(const ID : Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String; const Fichero: Binary): Boolean;
+ function EliminarFichero(const ID : Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String): Boolean;
+ function EliminarID(const ID : Integer; const Almacen: TRdxAlmacenes): Boolean;
end;
implementation
{$R *.DFM}
uses
- SysUtils, FactuGES_Intf, uDataModuleConexion, DataAbstract4_Intf;
+ SysUtils, uDataModuleConexion, DataAbstract4_Intf;
{ TdmGestorDocumentos }
@@ -51,13 +51,13 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
-function TDataModuleGestorDocumentos.DarListaDocumentos(const ID: Integer): TStringList;
+function TDataModuleGestorDocumentos.DarListaDocumentos(const ID: Integer; const Almacen: TRdxAlmacenes): TStringList;
var
AResultado : StringArray;
i: Integer;
begin
try
- AResultado := (RORemoteService as IsrvGestorDocumentos).DarListaFicheros(TRdxAlmacenes_Presupuestos, ID);
+ AResultado := (RORemoteService as IsrvGestorDocumentos).DarListaFicheros(Almacen, ID);
Result := TStringList.Create;
for i:= 0 to AResultado.Count - 1 do
Result.Add(AResultado.Items[i]);
@@ -66,7 +66,7 @@ begin
end;
end;
-function TDataModuleGestorDocumentos.DescargarFichero(const ID: Integer; const NombreFichero: String;
+function TDataModuleGestorDocumentos.DescargarFichero(const ID: Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String;
const DestinoFichero: String): Boolean;
var
AFichero: Binary;
@@ -74,7 +74,7 @@ var
begin
Result := False;
try
- AFichero := (RORemoteService as IsrvGestorDocumentos).DescargarFichero(TRdxAlmacenes_Presupuestos, ID, NombreFichero);
+ AFichero := (RORemoteService as IsrvGestorDocumentos).DescargarFichero(Almacen, ID, NombreFichero);
AFichero.SaveToFile((DestinoFichero + NombreFichero));
Result := True;
finally
@@ -82,31 +82,31 @@ begin
end;
end;
-function TDataModuleGestorDocumentos.EliminarFichero(const ID: Integer; const NombreFichero: String): Boolean;
+function TDataModuleGestorDocumentos.EliminarFichero(const ID: Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String): Boolean;
begin
Result := False;
try
- Result := (RORemoteService as IsrvGestorDocumentos).EliminarFichero(TRdxAlmacenes_Presupuestos, ID, NombreFichero);
+ Result := (RORemoteService as IsrvGestorDocumentos).EliminarFichero(Almacen, ID, NombreFichero);
finally
//
end;
end;
-function TDataModuleGestorDocumentos.EliminarID(const ID: Integer): Boolean;
+function TDataModuleGestorDocumentos.EliminarID(const ID: Integer; const Almacen: TRdxAlmacenes): Boolean;
begin
Result := False;
try
- Result := (RORemoteService as IsrvGestorDocumentos).EliminarID(TRdxAlmacenes_Presupuestos, ID);
+ Result := (RORemoteService as IsrvGestorDocumentos).EliminarID(Almacen, ID);
finally
//
end;
end;
-function TDataModuleGestorDocumentos.SubirFichero(const ID: Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
+function TDataModuleGestorDocumentos.SubirFichero(const ID: Integer; const Almacen: TRdxAlmacenes; const NombreFichero: String; const Fichero: Binary): Boolean;
begin
Result := False;
try
- Result := (RORemoteService as IsrvGestorDocumentos).SubirFichero(TRdxAlmacenes_Presupuestos, ID, NombreFichero, Fichero);
+ Result := (RORemoteService as IsrvGestorDocumentos).SubirFichero(Almacen, ID, NombreFichero, Fichero);
finally
//
end;
diff --git a/Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas b/Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas
index 7089e747..300cb5db 100644
--- a/Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas
+++ b/Source/Modulos/Gestion de documentos/Servidor/srvGestorDocumentos_Impl.pas
@@ -44,6 +44,7 @@ const
CTE_VALOR = 'RUTA_DOCUMENTOS';
CTE_DOCUMENTOS = 'DOCUMENTOS';
CTE_ALMACEN_PRESUPUESTOS = '\Presupuestos\';
+ CTE_ALMACEN_PEDIDOS_PROVEEDOR = '\PedidosProveedor\';
procedure Create_srvGestorDocumentos(out anInstance : IUnknown);
@@ -87,6 +88,14 @@ begin
for i := 0 to ListaFicheros.Count - 1 do
Result.Add(ExtractFileName(ListaFicheros.Strings[i]));
end;
+ TRdxAlmacenes_PedidosProveedor:
+ begin
+ Ruta := Ruta + CTE_ALMACEN_PEDIDOS_PROVEEDOR + IntToStr(ID) + '\*.*';
+ ListaFicheros := FindFile(Ruta);
+ Result := StringArray.Create();
+ for i := 0 to ListaFicheros.Count - 1 do
+ Result.Add(ExtractFileName(ListaFicheros.Strings[i]));
+ end;
end;
finally
@@ -126,6 +135,11 @@ begin
Ruta := Ruta + CTE_ALMACEN_PRESUPUESTOS + IntToStr(ID) + '\' + NombreFichero;
Result.LoadFromFile(Ruta);
end;
+ TRdxAlmacenes_PedidosProveedor:
+ begin
+ Ruta := Ruta + CTE_ALMACEN_PEDIDOS_PROVEEDOR + IntToStr(ID) + '\' + NombreFichero;
+ Result.LoadFromFile(Ruta);
+ end;
end;
finally
//
@@ -151,6 +165,14 @@ begin
else
Result := True; //Ya ha sido borrado
end;
+ TRdxAlmacenes_PedidosProveedor:
+ begin
+ Ruta := Ruta + CTE_ALMACEN_PEDIDOS_PROVEEDOR + IntToStr(ID) + '\' + NombreFichero;
+ if FileExists(Ruta) then
+ Result := SysUtils.DeleteFile(Ruta)
+ else
+ Result := True; //Ya ha sido borrado
+ end;
end;
finally
//
@@ -174,6 +196,13 @@ begin
Deltree(Ruta, True);
Result := True;
end;
+ TRdxAlmacenes_PedidosProveedor:
+ begin
+ Ruta := Ruta + CTE_ALMACEN_PEDIDOS_PROVEEDOR + IntToStr(ID);
+ if DirectoryExists(Ruta) then
+ Deltree(Ruta, True);
+ Result := True;
+ end;
end;
finally
//
@@ -207,6 +236,21 @@ begin
Fichero.SaveToFile(Ruta);
Result := True;
end;
+ TRdxAlmacenes_PedidosProveedor:
+ begin
+ Ruta := Ruta + CTE_ALMACEN_PEDIDOS_PROVEEDOR;
+ if not DirectoryExists(Ruta) then
+ CreateDir(Ruta);
+
+ Ruta := Ruta + IntToStr(ID);
+ if not DirectoryExists(Ruta) then
+ CreateDir(Ruta);
+
+ Ruta := Ruta + '\' + NombreFichero;
+ Fichero.SaveToFile(Ruta);
+ Result := True;
+ end;
+
end;
finally
//
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dpk b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dpk
index 2e37c052..b9747f8b 100644
Binary files a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dpk and b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dpk differ
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dproj b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dproj
index 2dc30f4f..a65d873e 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dproj
+++ b/Source/Modulos/Pedidos a proveedor/Controller/PedidosProveedor_controller.dproj
@@ -1,4 +1,5 @@
-
+
+
{7ed85635-c723-4c0b-bf1d-f719e0ea33ad}
PedidosProveedor_controller.dpk
@@ -41,17 +42,18 @@
Delphi.Personality
Package
-FalseTrueFalseTrueFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0PedidosProveedor_controller.dpk
+FalseTrueFalseFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0PedidosProveedor_controller.dpk
MainSource
-
-
-
-
+
+
+
+
+
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas
index f8757375..a6451e0b 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uDetallesPedidoProveedorController.pas
@@ -11,7 +11,7 @@ type
['{942428EC-BCB8-4C56-BFA6-EB9F05D5E0DB}']
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
- function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend;
+// function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend;
procedure DesglosarPorteDetalles(ImportePorte: Currency; ADetalles: IDAStronglyTypedDataTable);
function DarTotalPorteTotal(ADetalles: IDAStronglyTypedDataTable): Double;
end;
@@ -34,7 +34,7 @@ type
public
procedure AnadirArticulos(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor; const ANuevaFila :Boolean = True); overload;
procedure ActualizarDetalles(ADetalles: IDAStronglyTypedDataTable; AProveedor: IBizProveedor); overload;
- function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend;
+// function ArticulosPendientes(const ID : Integer): IBizDetallesPedidoProveedorPend;
constructor Create; override;
destructor Destroy; override;
end;
@@ -89,10 +89,12 @@ begin
end;
end;
+{
function TDetallesPedidoProveedorController.ArticulosPendientes(const ID: Integer): IBizDetallesPedidoProveedorPend;
begin
Result := FDataModule.GetArticulosPendientes(ID);
end;
+}
procedure TDetallesPedidoProveedorController.AsignarController;
begin
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
index 38c2842f..efac411d 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
@@ -6,7 +6,7 @@ interface
uses
SysUtils, uDADataTable,
uControllerBase, uIDataModulePedidosProveedor, uProveedoresController,
- uDetallesPedidoProveedorController, uBizPedidosProveedor;
+ uDetallesPedidoProveedorController, uBizPedidosProveedor, uGestorDocumentosController;
type
IPedidosProveedorController = interface(IControllerBase)
@@ -19,6 +19,11 @@ type
procedure SetDetallesController(const Value: IDetallesPedidoProveedorController);
property DetallesController: IDetallesPedidoProveedorController read GetDetallesController write SetDetallesController;
+ //GESTION_DOCUMENTOS
+ function GetGestorDocumentosController: IGestorDocumentosController;
+ procedure SetGestorDocumentosController(const Value: IGestorDocumentosController);
+ property GestorDocumentosController: IGestorDocumentosController read GetGestorDocumentosController write SetGestorDocumentosController;
+
function Buscar(const ID: Integer): IBizPedidoProveedor;
function BuscarTodos: IBizPedidoProveedor;
function BuscarPendientesRecepcion: IBizPedidoProveedor;
@@ -54,6 +59,11 @@ type
FDataModule : IDataModulePedidosProveedor;
FProveedorController : IProveedoresController;
FDetallesController : IDetallesPedidoProveedorController;
+ FGestorDocumentosController : IGestorDocumentosController;
+
+ //GESTION_DOCUMENTOS
+ function GetGestorDocumentosController: IGestorDocumentosController;
+ procedure SetGestorDocumentosController(const Value: IGestorDocumentosController);
function GetProveedorController: IProveedoresController;
procedure SetProveedorController(const Value: IProveedoresController);
@@ -76,6 +86,8 @@ type
public
property ProveedorController: IProveedoresController read GetProveedorController write SetProveedorController;
property DetallesController: IDetallesPedidoProveedorController read GetDetallesController write SetDetallesController;
+ property GestorDocumentosController: IGestorDocumentosController read GetGestorDocumentosController write SetGestorDocumentosController;
+
procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
constructor Create; override;
@@ -110,6 +122,8 @@ type
function ElegirPedidos(APedido: IBizPedidoProveedor; AMensaje: String; AMultiSelect: Boolean): IBizPedidoProveedor;
end;
+
+
implementation
uses
@@ -118,7 +132,7 @@ uses
uBizDetallesPedidoProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios,
schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController,
uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor,
- Dialogs, uIEditorDireccionEntregaPedidoProveedor, Classes,
+ Dialogs, uIEditorDireccionEntregaPedidoProveedor, Classes, FactuGES_Intf,
uIEditorSituacionPedidoProveedor, Variants;
{ TPedidosProveedorController }
@@ -177,7 +191,10 @@ begin
FDetallesController := TDetallesPedidoProveedorController.Create;
FDetallesController.addObservador(Self);
-// Self.addSujeto(FDetallesController);
+
+ //GESTION_DOCUMENTOS
+ FGestorDocumentosController := TGestorDocumentosController.Create;
+ FGestorDocumentosController.Almacen := TRdxAlmacenes_PedidosProveedor;
end;
function TPedidosProveedorController.CreateEditor(const AName: String;
@@ -257,11 +274,13 @@ end;
destructor TPedidosProveedorController.Destroy;
begin
- inherited;
-
FDataModule := Nil;
FProveedorController := Nil;
FDetallesController := Nil;
+
+ //GESTION_DOCUMENTOS
+ FGestorDocumentosController := Nil;
+ inherited;
end;
function TPedidosProveedorController.Duplicar(
@@ -311,9 +330,10 @@ begin
if (APedido.Detalles.DataTable.State in dsEditModes) then
APedido.Detalles.DataTable.Post;
- if (APedido.ID_PROVEEDOR < 0) or
- (not Assigned(APedido.Proveedor)) or
- (APedido.Proveedor.IsEmpty) then
+ if (APedido.ID_PROVEEDOR < 0) then
+ // Si hay altas automáticas no hay objeto Proveedor pero sí hay ID_PROVEEDOR
+ {(not Assigned(APedido.Proveedor)) or
+ (APedido.Proveedor.IsEmpty) then}
raise Exception.Create('Debe indicar el proveedor de esta pedido');
if (EsFechaVacia(APedido.FECHA_PEDIDO)) then
@@ -488,6 +508,9 @@ begin
//Siempre eliminaremos el seleccionado
if EsEliminable(APedido) then
begin
+ //GESTION_DOCUMENTOS
+ FGestorDocumentosController.EliminarDirectorio(APedido.ID);
+
APedido.Delete;
bEliminado := True;
end;
@@ -502,6 +525,9 @@ begin
begin
if EsEliminable(APedido) then
begin
+ //GESTION_DOCUMENTOS
+ FGestorDocumentosController.EliminarDirectorio(APedido.ID);
+
APedido.Delete;
bEliminado := True
end
@@ -651,6 +677,11 @@ begin
FDetallesController := Value;
end;
+procedure TPedidosProveedorController.SetGestorDocumentosController(const Value: IGestorDocumentosController);
+begin
+ FGestorDocumentosController := Value;
+end;
+
function TPedidosProveedorController.Guardar(APedido: IBizPedidoProveedor): Boolean;
var
IDNuevo : Integer;
@@ -771,5 +802,9 @@ begin
Result := FDetallesController;
end;
+function TPedidosProveedorController.GetGestorDocumentosController: IGestorDocumentosController;
+begin
+ Result := FGestorDocumentosController;
+end;
+
end.
-
\ No newline at end of file
diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.RES b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.RES
index 8b251f31..1641339f 100644
Binary files a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.RES and b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.RES differ
diff --git a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj
index 529b739e..79aae8f3 100644
--- a/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj
+++ b/Source/Modulos/Pedidos a proveedor/Data/PedidosProveedor_data.dproj
@@ -48,8 +48,8 @@
MainSource
-
-
+
+
diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
index ff8e6d94..37c58089 100644
--- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.dfm
@@ -51,6 +51,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
DataType = datString
Size = 255
DisplayLabel = 'Nombre del proveedor'
+ ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_NOMBRE'
end
item
@@ -62,195 +63,132 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
item
Name = 'SITUACION'
DataType = datString
- Size = 255
- DisplayLabel = 'Situaci'#243'n'
- DictionaryEntry = 'PedidosProveedor_SITUACION'
+ Size = 9
end
item
Name = 'FECHA_ENVIO'
DataType = datDateTime
- DisplayLabel = #191'Enviado?'
- DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO'
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
- DisplayLabel = 'Fecha pedido'
- DictionaryEntry = 'PedidosProveedor_FECHA_PEDIDO'
end
item
Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
- DisplayLabel = #191'Confirmado?'
- DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION'
end
item
Name = 'FECHA_ENTREGA'
DataType = datDateTime
- DisplayLabel = 'Entrega prevista'
- DictionaryEntry = 'PedidosProveedor_FECHA_ENTREGA'
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
- DisplayLabel = 'PedidosProveedor_ID_ALMACEN'
- DictionaryEntry = 'PedidosProveedor_ID_ALMACEN'
end
item
Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
- DisplayLabel = 'Almac'#233'n'
- DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN'
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
- DisplayLabel = 'Observaciones'
- DictionaryEntry = 'PedidosProveedor_OBSERVACIONES'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
- DisplayLabel = 'Importe total'
- Alignment = taRightJustify
- DictionaryEntry = 'PedidosProveedor_IMPORTE_TOTAL'
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
- DictionaryEntry = 'PedidosProveedor_INCIDENCIAS'
end
item
Name = 'INCIDENCIAS_ACTIVAS'
- DataType = datInteger
- DictionaryEntry = 'PedidosProveedor_INCIDENCIAS_ACTIVAS'
+ DataType = datSmallInt
end
item
Name = 'CALLE'
DataType = datString
Size = 255
- DisplayLabel = 'Calle'
- DictionaryEntry = 'PedidosProveedor_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
- DisplayLabel = 'Poblaci'#243'n'
- DictionaryEntry = 'PedidosProveedor_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
- DisplayLabel = 'Provincia'
- DictionaryEntry = 'PedidosProveedor_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
- DisplayLabel = 'C'#243'd. postal'
- DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
- DisplayLabel = 'Persona de contacto'
- DictionaryEntry = 'PedidosProveedor_PERSONA_CONTACTO'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
- DisplayLabel = 'Tel'#233'fono'
- DictionaryEntry = 'PedidosProveedor_TELEFONO'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
- DictionaryEntry = 'PedidosProveedor_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
- DictionaryEntry = 'PedidosProveedor_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
- Size = 20
- DictionaryEntry = 'PedidosProveedor_USUARIO'
+ Size = 30
end
item
Name = 'ID_PEDIDO_CLIENTE'
DataType = datInteger
- DisplayLabel = 'PedidosProveedor_ID_PEDIDO_CLIENTE'
- DictionaryEntry = 'PedidosProveedor_ID_PEDIDO_CLIENTE'
end
item
Name = 'REF_PED_CLIENTE'
DataType = datString
Size = 255
- DisplayLabel = 'PedidosProveedor_REF_PED_CLIENTE'
- DictionaryEntry = 'PedidosProveedor_REF_PED_CLIENTE'
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
- DisplayLabel = 'Importe neto'
- Alignment = taRightJustify
- DictionaryEntry = 'PedidosProveedor_IMPORTE_NETO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
- DisplayLabel = 'Importe del porte'
- Alignment = taRightJustify
- DictionaryEntry = 'PedidosProveedor_IMPORTE_PORTE'
end
item
Name = 'DESCUENTO'
DataType = datFloat
- DisplayLabel = 'Descuento'
- DisplayFormat = ',0.00 %;-,0.00 %'
- Alignment = taRightJustify
- DictionaryEntry = 'PedidosProveedor_DESCUENTO'
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
- DisplayLabel = 'Importe dto.'
- Alignment = taRightJustify
- DictionaryEntry = 'PedidosProveedor_IMPORTE_DESCUENTO'
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
- DisplayLabel = 'Base imponible'
- Alignment = taRightJustify
- DictionaryEntry = 'PedidosProveedor_BASE_IMPONIBLE'
end
item
Name = 'IVA'
DataType = datFloat
- DisplayFormat = ',0.00 %;-,0.00 %'
- Alignment = taRightJustify
- DictionaryEntry = 'PedidosProveedor_IVA'
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
- DisplayLabel = 'Importe IVA'
- Alignment = taRightJustify
- DictionaryEntry = 'PedidosProveedor_IMPORTE_IVA'
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
- DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO'
end
item
Name = 'ID_TIENDA'
@@ -260,6 +198,11 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'TIENDA'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'DESCRIPCION_GENERAL'
+ DataType = datString
+ Size = 255
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]
@@ -275,59 +218,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Left = 160
Top = 32
end
- object tbl_PedidosProveedor_Articulos_Pendientes: TDAMemDataTable
- RemoteUpdatesOptions = []
- Fields = <
- item
- Name = 'ID_PEDIDO'
- DataType = datInteger
- DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO'
- end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- DisplayLabel = 'Referencia'
- DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA'
- end
- item
- Name = 'ID_ARTICULO'
- DataType = datInteger
- DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO'
- end
- item
- Name = 'CONCEPTO'
- DataType = datString
- Size = 2000
- DictionaryEntry = 'PedidosProveedor_Detalles_CONCEPTO'
- end
- item
- Name = 'CANTIDAD'
- DataType = datFloat
- Alignment = taRightJustify
- DictionaryEntry = 'CANTIDAD'
- end
- item
- Name = 'REFERENCIA_PROVEEDOR'
- DataType = datString
- Size = 255
- DisplayLabel = 'Ref. proveedor'
- DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR'
- end>
- Params = <>
- StreamingOptions = [soDisableEventsWhileStreaming]
- RemoteDataAdapter = rda_PedidosProveedor
- LogicalName = 'PedidosProveedor_Articulos_Pendientes'
- IndexDefs = <>
- Left = 480
- Top = 88
- end
- object ds_PedidosProveedor_Articulos_Pendientes: TDADataSource
- DataSet = tbl_PedidosProveedor_Articulos_Pendientes.Dataset
- DataTable = tbl_PedidosProveedor_Articulos_Pendientes
- Left = 472
- Top = 32
- end
object tbl_PedidosProveedor_Detalles: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
@@ -335,9 +225,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
- Required = True
ServerAutoRefresh = True
- DictionaryEntry = 'PedidosProveedor_Detalles_ID'
InPrimaryKey = True
end
item
@@ -347,7 +235,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
item
Name = 'POSICION'
DataType = datInteger
- DictionaryEntry = 'POSICIONCONCEPTO'
end
item
Name = 'TIPO_DETALLE'
@@ -361,9 +248,7 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
end
item
Name = 'CANTIDAD'
- DataType = datFloat
- Alignment = taRightJustify
- DictionaryEntry = 'CANTIDAD'
+ DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
@@ -388,16 +273,6 @@ inherited DataModulePedidosProveedor: TDataModulePedidosProveedor
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
- end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- end
- item
- Name = 'REFERENCIA_PROVEEDOR'
- DataType = datString
- Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas
index a4d66787..e598f1e6 100644
--- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas
@@ -20,8 +20,6 @@ type
rda_PedidosProveedor: TDARemoteDataAdapter;
tbl_PedidosProveedor: TDAMemDataTable;
ds_PedidosProveedor: TDADataSource;
- tbl_PedidosProveedor_Articulos_Pendientes: TDAMemDataTable;
- ds_PedidosProveedor_Articulos_Pendientes: TDADataSource;
tbl_PedidosProveedor_Detalles: TDAMemDataTable;
ds_PedidosProveedor_Detalles: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject);
@@ -36,7 +34,7 @@ type
function GetItems : IBizPedidoProveedor; virtual;
function GetItem(const ID : Integer) : IBizPedidoProveedor;
function NewItem : IBizPedidoProveedor;
- function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
+// function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
// Report
function GetReport(const AID: String): Binary;
@@ -91,6 +89,7 @@ begin
end;
end;
+{
function TDataModulePedidosProveedor.GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
var
AArticulos : TDAMemDataTable;
@@ -105,6 +104,7 @@ begin
HideHourglassCursor;
end;
end;
+}
function TDataModulePedidosProveedor.GetItem(const ID: Integer): IBizPedidoProveedor;
var
diff --git a/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedor.pas
index 8b1cd535..1de6a02c 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedor.pas
@@ -11,7 +11,7 @@ type
function GetItems: IBizPedidoProveedor;
function GetItem(const ID : Integer) : IBizPedidoProveedor;
function NewItem : IBizPedidoProveedor;
- function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
+// function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
end;
implementation
diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
index 7fd1e36c..86ad9c62 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
@@ -3,20 +3,18 @@ unit schPedidosProveedorClient_Intf;
interface
uses
- Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+ Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
- RID_PedidosProveedor = '{E91640D3-98FE-4E09-A47E-DDB8DEF91010}';
- RID_PedidosProveedor_Detalles = '{8E5080FE-7C58-4F98-A7F4-9D7FCF9E21F9}';
- RID_PedidosProveedor_Articulos_Pendientes = '{A37CB497-DB53-43F6-8A3B-8D511DA79A43}';
+ RID_PedidosProveedor = '{7EF42C92-22B3-49CB-9631-6269AEBC7331}';
+ RID_PedidosProveedor_Detalles = '{3B03134F-60AA-426F-BFF5-15D252E44C4C}';
{ Data table names }
nme_PedidosProveedor = 'PedidosProveedor';
nme_PedidosProveedor_Detalles = 'PedidosProveedor_Detalles';
- nme_PedidosProveedor_Articulos_Pendientes = 'PedidosProveedor_Articulos_Pendientes';
{ PedidosProveedor fields }
fld_PedidosProveedorID = 'ID';
@@ -56,6 +54,7 @@ const
fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_PedidosProveedorID_TIENDA = 'ID_TIENDA';
fld_PedidosProveedorTIENDA = 'TIENDA';
+ fld_PedidosProveedorDESCRIPCION_GENERAL = 'DESCRIPCION_GENERAL';
{ PedidosProveedor field indexes }
idx_PedidosProveedorID = 0;
@@ -95,6 +94,7 @@ const
idx_PedidosProveedorID_FORMA_PAGO = 34;
idx_PedidosProveedorID_TIENDA = 35;
idx_PedidosProveedorTIENDA = 36;
+ idx_PedidosProveedorDESCRIPCION_GENERAL = 37;
{ PedidosProveedor_Detalles fields }
fld_PedidosProveedor_DetallesID = 'ID';
@@ -109,8 +109,6 @@ const
fld_PedidosProveedor_DetallesID_ARTICULO = 'ID_ARTICULO';
fld_PedidosProveedor_DetallesDESCUENTO = 'DESCUENTO';
fld_PedidosProveedor_DetallesIMPORTE_PORTE = 'IMPORTE_PORTE';
- fld_PedidosProveedor_DetallesREFERENCIA = 'REFERENCIA';
- fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
{ PedidosProveedor_Detalles field indexes }
idx_PedidosProveedor_DetallesID = 0;
@@ -125,29 +123,11 @@ const
idx_PedidosProveedor_DetallesID_ARTICULO = 9;
idx_PedidosProveedor_DetallesDESCUENTO = 10;
idx_PedidosProveedor_DetallesIMPORTE_PORTE = 11;
- idx_PedidosProveedor_DetallesREFERENCIA = 12;
- idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR = 13;
-
- { PedidosProveedor_Articulos_Pendientes fields }
- fld_PedidosProveedor_Articulos_PendientesID_PEDIDO = 'ID_PEDIDO';
- fld_PedidosProveedor_Articulos_PendientesREFERENCIA = 'REFERENCIA';
- fld_PedidosProveedor_Articulos_PendientesID_ARTICULO = 'ID_ARTICULO';
- fld_PedidosProveedor_Articulos_PendientesCONCEPTO = 'CONCEPTO';
- fld_PedidosProveedor_Articulos_PendientesCANTIDAD = 'CANTIDAD';
- fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
-
- { PedidosProveedor_Articulos_Pendientes field indexes }
- idx_PedidosProveedor_Articulos_PendientesID_PEDIDO = 0;
- idx_PedidosProveedor_Articulos_PendientesREFERENCIA = 1;
- idx_PedidosProveedor_Articulos_PendientesID_ARTICULO = 2;
- idx_PedidosProveedor_Articulos_PendientesCONCEPTO = 3;
- idx_PedidosProveedor_Articulos_PendientesCANTIDAD = 4;
- idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR = 5;
type
{ IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
- ['{72630E6B-BABA-47E8-AECF-364D3A9E8F7C}']
+ ['{3FFE7F5F-75DA-4568-A26D-D3DF98DF31D4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -207,8 +187,8 @@ type
function GetINCIDENCIASValue: IROStrings;
function GetINCIDENCIASIsNull: Boolean;
procedure SetINCIDENCIASIsNull(const aValue: Boolean);
- function GetINCIDENCIAS_ACTIVASValue: Integer;
- procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
+ function GetINCIDENCIAS_ACTIVASValue: SmallInt;
+ procedure SetINCIDENCIAS_ACTIVASValue(const aValue: SmallInt);
function GetINCIDENCIAS_ACTIVASIsNull: Boolean;
procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean);
function GetCALLEValue: String;
@@ -295,6 +275,10 @@ type
procedure SetTIENDAValue(const aValue: String);
function GetTIENDAIsNull: Boolean;
procedure SetTIENDAIsNull(const aValue: Boolean);
+ function GetDESCRIPCION_GENERALValue: String;
+ procedure SetDESCRIPCION_GENERALValue(const aValue: String);
+ function GetDESCRIPCION_GENERALIsNull: Boolean;
+ procedure SetDESCRIPCION_GENERALIsNull(const aValue: Boolean);
{ Properties }
@@ -328,7 +312,7 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property INCIDENCIAS: IROStrings read GetINCIDENCIASValue;
property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull;
- property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
+ property INCIDENCIAS_ACTIVAS: SmallInt read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
@@ -372,10 +356,12 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+ property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue;
+ property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull;
end;
{ TPedidosProveedorDataTableRules }
- TPedidosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor)
+ TPedidosProveedorDataTableRules = class(TDADataTableRules, IPedidosProveedor)
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
@@ -441,8 +427,8 @@ type
function GetINCIDENCIASValue: IROStrings; virtual;
function GetINCIDENCIASIsNull: Boolean; virtual;
procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual;
- function GetINCIDENCIAS_ACTIVASValue: Integer; virtual;
- procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual;
+ function GetINCIDENCIAS_ACTIVASValue: SmallInt; virtual;
+ procedure SetINCIDENCIAS_ACTIVASValue(const aValue: SmallInt); virtual;
function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual;
@@ -529,6 +515,10 @@ type
procedure SetTIENDAValue(const aValue: String); virtual;
function GetTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+ function GetDESCRIPCION_GENERALValue: String; virtual;
+ procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual;
+ function GetDESCRIPCION_GENERALIsNull: Boolean; virtual;
+ procedure SetDESCRIPCION_GENERALIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -561,7 +551,7 @@ type
property IMPORTE_TOTALIsNull: Boolean read GetIMPORTE_TOTALIsNull write SetIMPORTE_TOTALIsNull;
property INCIDENCIAS: IROStrings read GetINCIDENCIASValue;
property INCIDENCIASIsNull: Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull;
- property INCIDENCIAS_ACTIVAS: Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
+ property INCIDENCIAS_ACTIVAS: SmallInt read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
property INCIDENCIAS_ACTIVASIsNull: Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull;
property CALLE: String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull: Boolean read GetCALLEIsNull write SetCALLEIsNull;
@@ -605,6 +595,8 @@ type
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property TIENDA: String read GetTIENDAValue write SetTIENDAValue;
property TIENDAIsNull: Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
+ property DESCRIPCION_GENERAL: String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue;
+ property DESCRIPCION_GENERALIsNull: Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -614,7 +606,7 @@ type
{ IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
- ['{75167B38-5DCF-48A0-A0DB-D9B20EEB227A}']
+ ['{C4F4AD90-C1D7-4CD9-852D-5DB340996FD4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -636,8 +628,8 @@ type
procedure SetCONCEPTOValue(const aValue: String);
function GetCONCEPTOIsNull: Boolean;
procedure SetCONCEPTOIsNull(const aValue: Boolean);
- function GetCANTIDADValue: Float;
- procedure SetCANTIDADValue(const aValue: Float);
+ function GetCANTIDADValue: Currency;
+ procedure SetCANTIDADValue(const aValue: Currency);
function GetCANTIDADIsNull: Boolean;
procedure SetCANTIDADIsNull(const aValue: Boolean);
function GetIMPORTE_UNIDADValue: Currency;
@@ -664,14 +656,6 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency);
function GetIMPORTE_PORTEIsNull: Boolean;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
- function GetREFERENCIAValue: String;
- procedure SetREFERENCIAValue(const aValue: String);
- function GetREFERENCIAIsNull: Boolean;
- procedure SetREFERENCIAIsNull(const aValue: Boolean);
- function GetREFERENCIA_PROVEEDORValue: String;
- procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
- function GetREFERENCIA_PROVEEDORIsNull: Boolean;
- procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
{ Properties }
@@ -685,7 +669,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
- property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@@ -699,14 +683,10 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
- property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
end;
{ TPedidosProveedor_DetallesDataTableRules }
- TPedidosProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Detalles)
+ TPedidosProveedor_DetallesDataTableRules = class(TDADataTableRules, IPedidosProveedor_Detalles)
private
protected
{ Property getters and setters }
@@ -730,8 +710,8 @@ type
procedure SetCONCEPTOValue(const aValue: String); virtual;
function GetCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
- function GetCANTIDADValue: Float; virtual;
- procedure SetCANTIDADValue(const aValue: Float); virtual;
+ function GetCANTIDADValue: Currency; virtual;
+ procedure SetCANTIDADValue(const aValue: Currency); virtual;
function GetCANTIDADIsNull: Boolean; virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
@@ -758,14 +738,6 @@ type
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
function GetIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIAValue: String; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetREFERENCIAIsNull: Boolean; virtual;
- procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_PROVEEDORValue: String; virtual;
- procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
- function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
- procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -778,7 +750,7 @@ type
property TIPO_DETALLEIsNull: Boolean read GetTIPO_DETALLEIsNull write SetTIPO_DETALLEIsNull;
property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
- property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDAD: Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
property IMPORTE_UNIDAD: Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull: Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@@ -792,105 +764,6 @@ type
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
- property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
-
- public
- constructor Create(aDataTable: TDADataTable); override;
- destructor Destroy; override;
-
- end;
-
- { IPedidosProveedor_Articulos_Pendientes }
- IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
- ['{9D55B3FD-88B7-44FA-9380-CAE6DAD5B7CA}']
- { Property getters and setters }
- function GetID_PEDIDOValue: Integer;
- procedure SetID_PEDIDOValue(const aValue: Integer);
- function GetID_PEDIDOIsNull: Boolean;
- procedure SetID_PEDIDOIsNull(const aValue: Boolean);
- function GetREFERENCIAValue: String;
- procedure SetREFERENCIAValue(const aValue: String);
- function GetREFERENCIAIsNull: Boolean;
- procedure SetREFERENCIAIsNull(const aValue: Boolean);
- function GetID_ARTICULOValue: Integer;
- procedure SetID_ARTICULOValue(const aValue: Integer);
- function GetID_ARTICULOIsNull: Boolean;
- procedure SetID_ARTICULOIsNull(const aValue: Boolean);
- function GetCONCEPTOValue: String;
- procedure SetCONCEPTOValue(const aValue: String);
- function GetCONCEPTOIsNull: Boolean;
- procedure SetCONCEPTOIsNull(const aValue: Boolean);
- function GetCANTIDADValue: Float;
- procedure SetCANTIDADValue(const aValue: Float);
- function GetCANTIDADIsNull: Boolean;
- procedure SetCANTIDADIsNull(const aValue: Boolean);
- function GetREFERENCIA_PROVEEDORValue: String;
- procedure SetREFERENCIA_PROVEEDORValue(const aValue: String);
- function GetREFERENCIA_PROVEEDORIsNull: Boolean;
- procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
-
-
- { Properties }
- property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
- property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
- property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
- property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
- property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
- property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
- property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
- property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
- end;
-
- { TPedidosProveedor_Articulos_PendientesDataTableRules }
- TPedidosProveedor_Articulos_PendientesDataTableRules = class(TIntfObjectDADataTableRules, IPedidosProveedor_Articulos_Pendientes)
- private
- protected
- { Property getters and setters }
- function GetID_PEDIDOValue: Integer; virtual;
- procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
- function GetID_PEDIDOIsNull: Boolean; virtual;
- procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIAValue: String; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- function GetREFERENCIAIsNull: Boolean; virtual;
- procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
- function GetID_ARTICULOValue: Integer; virtual;
- procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
- function GetID_ARTICULOIsNull: Boolean; virtual;
- procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
- function GetCONCEPTOValue: String; virtual;
- procedure SetCONCEPTOValue(const aValue: String); virtual;
- function GetCONCEPTOIsNull: Boolean; virtual;
- procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
- function GetCANTIDADValue: Float; virtual;
- procedure SetCANTIDADValue(const aValue: Float); virtual;
- function GetCANTIDADIsNull: Boolean; virtual;
- procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_PROVEEDORValue: String; virtual;
- procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
- function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
- procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
-
- { Properties }
- property ID_PEDIDO: Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
- property ID_PEDIDOIsNull: Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
- property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property ID_ARTICULO: Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
- property ID_ARTICULOIsNull: Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property CONCEPTO: String read GetCONCEPTOValue write SetCONCEPTOValue;
- property CONCEPTOIsNull: Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
- property CANTIDAD: Float read GetCANTIDADValue write SetCANTIDADValue;
- property CANTIDADIsNull: Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
- property REFERENCIA_PROVEEDOR: String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
- property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -1240,14 +1113,14 @@ begin
DataTable.Fields[idx_PedidosProveedorINCIDENCIAS].AsVariant := Null;
end;
-function TPedidosProveedorDataTableRules.GetINCIDENCIAS_ACTIVASValue: Integer;
+function TPedidosProveedorDataTableRules.GetINCIDENCIAS_ACTIVASValue: SmallInt;
begin
- result := DataTable.Fields[idx_PedidosProveedorINCIDENCIAS_ACTIVAS].AsInteger;
+ result := DataTable.Fields[idx_PedidosProveedorINCIDENCIAS_ACTIVAS].AsSmallInt;
end;
-procedure TPedidosProveedorDataTableRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
+procedure TPedidosProveedorDataTableRules.SetINCIDENCIAS_ACTIVASValue(const aValue: SmallInt);
begin
- DataTable.Fields[idx_PedidosProveedorINCIDENCIAS_ACTIVAS].AsInteger := aValue;
+ DataTable.Fields[idx_PedidosProveedorINCIDENCIAS_ACTIVAS].AsSmallInt := aValue;
end;
function TPedidosProveedorDataTableRules.GetINCIDENCIAS_ACTIVASIsNull: boolean;
@@ -1702,6 +1575,27 @@ begin
DataTable.Fields[idx_PedidosProveedorTIENDA].AsVariant := Null;
end;
+function TPedidosProveedorDataTableRules.GetDESCRIPCION_GENERALValue: String;
+begin
+ result := DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].AsString;
+end;
+
+procedure TPedidosProveedorDataTableRules.SetDESCRIPCION_GENERALValue(const aValue: String);
+begin
+ DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].AsString := aValue;
+end;
+
+function TPedidosProveedorDataTableRules.GetDESCRIPCION_GENERALIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].IsNull;
+end;
+
+procedure TPedidosProveedorDataTableRules.SetDESCRIPCION_GENERALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_PedidosProveedorDESCRIPCION_GENERAL].AsVariant := Null;
+end;
+
{ TPedidosProveedor_DetallesDataTableRules }
constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);
@@ -1819,14 +1713,14 @@ begin
DataTable.Fields[idx_PedidosProveedor_DetallesCONCEPTO].AsVariant := Null;
end;
-function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADValue: Float;
+function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADValue: Currency;
begin
- result := DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsFloat;
+ result := DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsCurrency;
end;
-procedure TPedidosProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Float);
+procedure TPedidosProveedor_DetallesDataTableRules.SetCANTIDADValue(const aValue: Currency);
begin
- DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsFloat := aValue;
+ DataTable.Fields[idx_PedidosProveedor_DetallesCANTIDAD].AsCurrency := aValue;
end;
function TPedidosProveedor_DetallesDataTableRules.GetCANTIDADIsNull: boolean;
@@ -1966,190 +1860,9 @@ begin
DataTable.Fields[idx_PedidosProveedor_DetallesIMPORTE_PORTE].AsVariant := Null;
end;
-function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIAValue: String;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA].AsString;
-end;
-
-procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIAValue(const aValue: String);
-begin
- DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA].AsString := aValue;
-end;
-
-function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA].IsNull;
-end;
-
-procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA].AsVariant := Null;
-end;
-
-function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].AsString;
-end;
-
-procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
-begin
- DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].AsString := aValue;
-end;
-
-function TPedidosProveedor_DetallesDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].IsNull;
-end;
-
-procedure TPedidosProveedor_DetallesDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR].AsVariant := Null;
-end;
-
-
-{ TPedidosProveedor_Articulos_PendientesDataTableRules }
-constructor TPedidosProveedor_Articulos_PendientesDataTableRules.Create(aDataTable: TDADataTable);
-begin
- inherited;
-end;
-
-destructor TPedidosProveedor_Articulos_PendientesDataTableRules.Destroy;
-begin
- inherited;
-end;
-
-function TPedidosProveedor_Articulos_PendientesDataTableRules.GetID_PEDIDOValue: Integer;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_PEDIDO].AsInteger;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetID_PEDIDOValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_PEDIDO].AsInteger := aValue;
-end;
-
-function TPedidosProveedor_Articulos_PendientesDataTableRules.GetID_PEDIDOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_PEDIDO].IsNull;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetID_PEDIDOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_PEDIDO].AsVariant := Null;
-end;
-
-function TPedidosProveedor_Articulos_PendientesDataTableRules.GetREFERENCIAValue: String;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA].AsString;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetREFERENCIAValue(const aValue: String);
-begin
- DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA].AsString := aValue;
-end;
-
-function TPedidosProveedor_Articulos_PendientesDataTableRules.GetREFERENCIAIsNull: boolean;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA].IsNull;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetREFERENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA].AsVariant := Null;
-end;
-
-function TPedidosProveedor_Articulos_PendientesDataTableRules.GetID_ARTICULOValue: Integer;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_ARTICULO].AsInteger;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetID_ARTICULOValue(const aValue: Integer);
-begin
- DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_ARTICULO].AsInteger := aValue;
-end;
-
-function TPedidosProveedor_Articulos_PendientesDataTableRules.GetID_ARTICULOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_ARTICULO].IsNull;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetID_ARTICULOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesID_ARTICULO].AsVariant := Null;
-end;
-
-function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCONCEPTOValue: String;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].AsString;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCONCEPTOValue(const aValue: String);
-begin
- DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].AsString := aValue;
-end;
-
-function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCONCEPTOIsNull: boolean;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].IsNull;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCONCEPTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCONCEPTO].AsVariant := Null;
-end;
-
-function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADValue: Float;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsFloat;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCANTIDADValue(const aValue: Float);
-begin
- DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsFloat := aValue;
-end;
-
-function TPedidosProveedor_Articulos_PendientesDataTableRules.GetCANTIDADIsNull: boolean;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].IsNull;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetCANTIDADIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesCANTIDAD].AsVariant := Null;
-end;
-
-function TPedidosProveedor_Articulos_PendientesDataTableRules.GetREFERENCIA_PROVEEDORValue: String;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR].AsString;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
-begin
- DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR].AsString := aValue;
-end;
-
-function TPedidosProveedor_Articulos_PendientesDataTableRules.GetREFERENCIA_PROVEEDORIsNull: boolean;
-begin
- result := DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR].IsNull;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesDataTableRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
-begin
- if aValue then
- DataTable.Fields[idx_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR].AsVariant := Null;
-end;
-
initialization
RegisterDataTableRules(RID_PedidosProveedor, TPedidosProveedorDataTableRules);
RegisterDataTableRules(RID_PedidosProveedor_Detalles, TPedidosProveedor_DetallesDataTableRules);
- RegisterDataTableRules(RID_PedidosProveedor_Articulos_Pendientes, TPedidosProveedor_Articulos_PendientesDataTableRules);
end.
diff --git a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
index c0e05e90..f89d49ed 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
@@ -9,14 +9,13 @@ 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_PedidosProveedorDelta = '{EA735EC9-0277-4D0F-8843-4A6F66360099}';
- RID_PedidosProveedor_DetallesDelta = '{8799A75C-3602-4CCD-A0C5-5F065E20EC1D}';
- RID_PedidosProveedor_Articulos_PendientesDelta = '{C60973BB-B8E7-483F-A7C6-FF5122FEC81D}';
+ RID_PedidosProveedorDelta = '{89C09828-8924-4EEB-AB87-13EF828A7921}';
+ RID_PedidosProveedor_DetallesDelta = '{AC634C35-D723-4602-A06A-9E814C4D889C}';
type
{ IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor)
- ['{EA735EC9-0277-4D0F-8843-4A6F66360099}']
+ ['{89C09828-8924-4EEB-AB87-13EF828A7921}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -33,7 +32,7 @@ type
function GetOldOBSERVACIONESValue : IROStrings;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldINCIDENCIASValue : IROStrings;
- function GetOldINCIDENCIAS_ACTIVASValue : Integer;
+ function GetOldINCIDENCIAS_ACTIVASValue : SmallInt;
function GetOldCALLEValue : String;
function GetOldPOBLACIONValue : String;
function GetOldPROVINCIAValue : String;
@@ -55,6 +54,7 @@ type
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldID_TIENDAValue : Integer;
function GetOldTIENDAValue : String;
+ function GetOldDESCRIPCION_GENERALValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -72,7 +72,7 @@ type
property OldOBSERVACIONES : IROStrings read GetOldOBSERVACIONESValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
- property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue;
+ property OldINCIDENCIAS_ACTIVAS : SmallInt read GetOldINCIDENCIAS_ACTIVASValue;
property OldCALLE : String read GetOldCALLEValue;
property OldPOBLACION : String read GetOldPOBLACIONValue;
property OldPROVINCIA : String read GetOldPROVINCIAValue;
@@ -94,6 +94,7 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldTIENDA : String read GetOldTIENDAValue;
+ property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue;
end;
{ TPedidosProveedorBusinessProcessorRules }
@@ -193,11 +194,11 @@ type
function GetOldINCIDENCIASValue: IROStrings; virtual;
function GetOldINCIDENCIASIsNull: Boolean; virtual;
procedure SetINCIDENCIASIsNull(const aValue: Boolean); virtual;
- function GetINCIDENCIAS_ACTIVASValue: Integer; virtual;
+ function GetINCIDENCIAS_ACTIVASValue: SmallInt; virtual;
function GetINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
- function GetOldINCIDENCIAS_ACTIVASValue: Integer; virtual;
+ function GetOldINCIDENCIAS_ACTIVASValue: SmallInt; virtual;
function GetOldINCIDENCIAS_ACTIVASIsNull: Boolean; virtual;
- procedure SetINCIDENCIAS_ACTIVASValue(const aValue: Integer); virtual;
+ procedure SetINCIDENCIAS_ACTIVASValue(const aValue: SmallInt); virtual;
procedure SetINCIDENCIAS_ACTIVASIsNull(const aValue: Boolean); virtual;
function GetCALLEValue: String; virtual;
function GetCALLEIsNull: Boolean; virtual;
@@ -325,6 +326,12 @@ type
function GetOldTIENDAIsNull: Boolean; virtual;
procedure SetTIENDAValue(const aValue: String); virtual;
procedure SetTIENDAIsNull(const aValue: Boolean); virtual;
+ function GetDESCRIPCION_GENERALValue: String; virtual;
+ function GetDESCRIPCION_GENERALIsNull: Boolean; virtual;
+ function GetOldDESCRIPCION_GENERALValue: String; virtual;
+ function GetOldDESCRIPCION_GENERALIsNull: Boolean; virtual;
+ procedure SetDESCRIPCION_GENERALValue(const aValue: String); virtual;
+ procedure SetDESCRIPCION_GENERALIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -387,9 +394,9 @@ type
property INCIDENCIASIsNull : Boolean read GetINCIDENCIASIsNull write SetINCIDENCIASIsNull;
property OldINCIDENCIAS : IROStrings read GetOldINCIDENCIASValue;
property OldINCIDENCIASIsNull : Boolean read GetOldINCIDENCIASIsNull;
- property INCIDENCIAS_ACTIVAS : Integer read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
+ property INCIDENCIAS_ACTIVAS : SmallInt read GetINCIDENCIAS_ACTIVASValue write SetINCIDENCIAS_ACTIVASValue;
property INCIDENCIAS_ACTIVASIsNull : Boolean read GetINCIDENCIAS_ACTIVASIsNull write SetINCIDENCIAS_ACTIVASIsNull;
- property OldINCIDENCIAS_ACTIVAS : Integer read GetOldINCIDENCIAS_ACTIVASValue;
+ property OldINCIDENCIAS_ACTIVAS : SmallInt read GetOldINCIDENCIAS_ACTIVASValue;
property OldINCIDENCIAS_ACTIVASIsNull : Boolean read GetOldINCIDENCIAS_ACTIVASIsNull;
property CALLE : String read GetCALLEValue write SetCALLEValue;
property CALLEIsNull : Boolean read GetCALLEIsNull write SetCALLEIsNull;
@@ -475,6 +482,10 @@ type
property TIENDAIsNull : Boolean read GetTIENDAIsNull write SetTIENDAIsNull;
property OldTIENDA : String read GetOldTIENDAValue;
property OldTIENDAIsNull : Boolean read GetOldTIENDAIsNull;
+ property DESCRIPCION_GENERAL : String read GetDESCRIPCION_GENERALValue write SetDESCRIPCION_GENERALValue;
+ property DESCRIPCION_GENERALIsNull : Boolean read GetDESCRIPCION_GENERALIsNull write SetDESCRIPCION_GENERALIsNull;
+ property OldDESCRIPCION_GENERAL : String read GetOldDESCRIPCION_GENERALValue;
+ property OldDESCRIPCION_GENERALIsNull : Boolean read GetOldDESCRIPCION_GENERALIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -484,22 +495,20 @@ type
{ IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
- ['{8799A75C-3602-4CCD-A0C5-5F065E20EC1D}']
+ ['{AC634C35-D723-4602-A06A-9E814C4D889C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
function GetOldPOSICIONValue : Integer;
function GetOldTIPO_DETALLEValue : String;
function GetOldCONCEPTOValue : String;
- function GetOldCANTIDADValue : Float;
+ function GetOldCANTIDADValue : Currency;
function GetOldIMPORTE_UNIDADValue : Currency;
function GetOldIMPORTE_TOTALValue : Currency;
function GetOldVISIBLEValue : SmallInt;
function GetOldID_ARTICULOValue : Integer;
function GetOldDESCUENTOValue : Float;
function GetOldIMPORTE_PORTEValue : Currency;
- function GetOldREFERENCIAValue : String;
- function GetOldREFERENCIA_PROVEEDORValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -507,15 +516,13 @@ type
property OldPOSICION : Integer read GetOldPOSICIONValue;
property OldTIPO_DETALLE : String read GetOldTIPO_DETALLEValue;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
- property OldCANTIDAD : Float read GetOldCANTIDADValue;
+ property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldIMPORTE_UNIDAD : Currency read GetOldIMPORTE_UNIDADValue;
property OldIMPORTE_TOTAL : Currency read GetOldIMPORTE_TOTALValue;
property OldVISIBLE : SmallInt read GetOldVISIBLEValue;
property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
end;
{ TPedidosProveedor_DetallesBusinessProcessorRules }
@@ -553,11 +560,11 @@ type
function GetOldCONCEPTOIsNull: Boolean; virtual;
procedure SetCONCEPTOValue(const aValue: String); virtual;
procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
- function GetCANTIDADValue: Float; virtual;
+ function GetCANTIDADValue: Currency; virtual;
function GetCANTIDADIsNull: Boolean; virtual;
- function GetOldCANTIDADValue: Float; virtual;
+ function GetOldCANTIDADValue: Currency; virtual;
function GetOldCANTIDADIsNull: Boolean; virtual;
- procedure SetCANTIDADValue(const aValue: Float); virtual;
+ procedure SetCANTIDADValue(const aValue: Currency); virtual;
procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
function GetIMPORTE_UNIDADValue: Currency; virtual;
function GetIMPORTE_UNIDADIsNull: Boolean; virtual;
@@ -595,18 +602,6 @@ type
function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIAValue: String; virtual;
- function GetREFERENCIAIsNull: Boolean; virtual;
- function GetOldREFERENCIAValue: String; virtual;
- function GetOldREFERENCIAIsNull: Boolean; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_PROVEEDORValue: String; virtual;
- function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
- function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
- function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
- procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
- procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -629,9 +624,9 @@ type
property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
property OldCONCEPTO : String read GetOldCONCEPTOValue;
property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
- property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
+ property CANTIDAD : Currency read GetCANTIDADValue write SetCANTIDADValue;
property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
- property OldCANTIDAD : Float read GetOldCANTIDADValue;
+ property OldCANTIDAD : Currency read GetOldCANTIDADValue;
property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
property IMPORTE_UNIDAD : Currency read GetIMPORTE_UNIDADValue write SetIMPORTE_UNIDADValue;
property IMPORTE_UNIDADIsNull : Boolean read GetIMPORTE_UNIDADIsNull write SetIMPORTE_UNIDADIsNull;
@@ -657,108 +652,6 @@ type
property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
- property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
- property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
- property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
- property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
- property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
-
- public
- constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
- destructor Destroy; override;
-
- end;
-
- { IPedidosProveedor_Articulos_PendientesDelta }
- IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
- ['{C60973BB-B8E7-483F-A7C6-FF5122FEC81D}']
- { Property getters and setters }
- function GetOldID_PEDIDOValue : Integer;
- function GetOldREFERENCIAValue : String;
- function GetOldID_ARTICULOValue : Integer;
- function GetOldCONCEPTOValue : String;
- function GetOldCANTIDADValue : Float;
- function GetOldREFERENCIA_PROVEEDORValue : String;
-
- { Properties }
- property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
- property OldCONCEPTO : String read GetOldCONCEPTOValue;
- property OldCANTIDAD : Float read GetOldCANTIDADValue;
- property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
- end;
-
- { TPedidosProveedor_Articulos_PendientesBusinessProcessorRules }
- TPedidosProveedor_Articulos_PendientesBusinessProcessorRules = class(TDABusinessProcessorRules, IPedidosProveedor_Articulos_Pendientes, IPedidosProveedor_Articulos_PendientesDelta)
- private
- protected
- { Property getters and setters }
- function GetID_PEDIDOValue: Integer; virtual;
- function GetID_PEDIDOIsNull: Boolean; virtual;
- function GetOldID_PEDIDOValue: Integer; virtual;
- function GetOldID_PEDIDOIsNull: Boolean; virtual;
- procedure SetID_PEDIDOValue(const aValue: Integer); virtual;
- procedure SetID_PEDIDOIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIAValue: String; virtual;
- function GetREFERENCIAIsNull: Boolean; virtual;
- function GetOldREFERENCIAValue: String; virtual;
- function GetOldREFERENCIAIsNull: Boolean; virtual;
- procedure SetREFERENCIAValue(const aValue: String); virtual;
- procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual;
- function GetID_ARTICULOValue: Integer; virtual;
- function GetID_ARTICULOIsNull: Boolean; virtual;
- function GetOldID_ARTICULOValue: Integer; virtual;
- function GetOldID_ARTICULOIsNull: Boolean; virtual;
- procedure SetID_ARTICULOValue(const aValue: Integer); virtual;
- procedure SetID_ARTICULOIsNull(const aValue: Boolean); virtual;
- function GetCONCEPTOValue: String; virtual;
- function GetCONCEPTOIsNull: Boolean; virtual;
- function GetOldCONCEPTOValue: String; virtual;
- function GetOldCONCEPTOIsNull: Boolean; virtual;
- procedure SetCONCEPTOValue(const aValue: String); virtual;
- procedure SetCONCEPTOIsNull(const aValue: Boolean); virtual;
- function GetCANTIDADValue: Float; virtual;
- function GetCANTIDADIsNull: Boolean; virtual;
- function GetOldCANTIDADValue: Float; virtual;
- function GetOldCANTIDADIsNull: Boolean; virtual;
- procedure SetCANTIDADValue(const aValue: Float); virtual;
- procedure SetCANTIDADIsNull(const aValue: Boolean); virtual;
- function GetREFERENCIA_PROVEEDORValue: String; virtual;
- function GetREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
- function GetOldREFERENCIA_PROVEEDORValue: String; virtual;
- function GetOldREFERENCIA_PROVEEDORIsNull: Boolean; virtual;
- procedure SetREFERENCIA_PROVEEDORValue(const aValue: String); virtual;
- procedure SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean); virtual;
-
- { Properties }
- property ID_PEDIDO : Integer read GetID_PEDIDOValue write SetID_PEDIDOValue;
- property ID_PEDIDOIsNull : Boolean read GetID_PEDIDOIsNull write SetID_PEDIDOIsNull;
- property OldID_PEDIDO : Integer read GetOldID_PEDIDOValue;
- property OldID_PEDIDOIsNull : Boolean read GetOldID_PEDIDOIsNull;
- property REFERENCIA : String read GetREFERENCIAValue write SetREFERENCIAValue;
- property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
- property OldREFERENCIA : String read GetOldREFERENCIAValue;
- property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull;
- property ID_ARTICULO : Integer read GetID_ARTICULOValue write SetID_ARTICULOValue;
- property ID_ARTICULOIsNull : Boolean read GetID_ARTICULOIsNull write SetID_ARTICULOIsNull;
- property OldID_ARTICULO : Integer read GetOldID_ARTICULOValue;
- property OldID_ARTICULOIsNull : Boolean read GetOldID_ARTICULOIsNull;
- property CONCEPTO : String read GetCONCEPTOValue write SetCONCEPTOValue;
- property CONCEPTOIsNull : Boolean read GetCONCEPTOIsNull write SetCONCEPTOIsNull;
- property OldCONCEPTO : String read GetOldCONCEPTOValue;
- property OldCONCEPTOIsNull : Boolean read GetOldCONCEPTOIsNull;
- property CANTIDAD : Float read GetCANTIDADValue write SetCANTIDADValue;
- property CANTIDADIsNull : Boolean read GetCANTIDADIsNull write SetCANTIDADIsNull;
- property OldCANTIDAD : Float read GetOldCANTIDADValue;
- property OldCANTIDADIsNull : Boolean read GetOldCANTIDADIsNull;
- property REFERENCIA_PROVEEDOR : String read GetREFERENCIA_PROVEEDORValue write SetREFERENCIA_PROVEEDORValue;
- property REFERENCIA_PROVEEDORIsNull : Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
- property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
- property OldREFERENCIA_PROVEEDORIsNull : Boolean read GetOldREFERENCIA_PROVEEDORIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1261,7 +1154,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS] := Null;
end;
-function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: Integer;
+function TPedidosProveedorBusinessProcessorRules.GetINCIDENCIAS_ACTIVASValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS];
end;
@@ -1271,7 +1164,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]);
end;
-function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: Integer;
+function TPedidosProveedorBusinessProcessorRules.GetOldINCIDENCIAS_ACTIVASValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS];
end;
@@ -1281,7 +1174,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS]);
end;
-procedure TPedidosProveedorBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: Integer);
+procedure TPedidosProveedorBusinessProcessorRules.SetINCIDENCIAS_ACTIVASValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorINCIDENCIAS_ACTIVAS] := aValue;
end;
@@ -1943,6 +1836,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorTIENDA] := Null;
end;
+function TPedidosProveedorBusinessProcessorRules.GetDESCRIPCION_GENERALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetDESCRIPCION_GENERALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL]);
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldDESCRIPCION_GENERALValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL];
+end;
+
+function TPedidosProveedorBusinessProcessorRules.GetOldDESCRIPCION_GENERALIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL]);
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetDESCRIPCION_GENERALValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL] := aValue;
+end;
+
+procedure TPedidosProveedorBusinessProcessorRules.SetDESCRIPCION_GENERALIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorDESCRIPCION_GENERAL] := Null;
+end;
+
{ TPedidosProveedor_DetallesBusinessProcessorRules }
constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -2110,7 +2034,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCONCEPTO] := Null;
end;
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Float;
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetCANTIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD];
end;
@@ -2120,7 +2044,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD]);
end;
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Float;
+function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldCANTIDADValue: Currency;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD];
end;
@@ -2130,7 +2054,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesCANTIDAD]);
end;
-procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
+procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetCANTIDADValue(const aValue: Currency);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesCANTIDAD] := aValue;
end;
@@ -2327,270 +2251,9 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesIMPORTE_PORTE] := Null;
end;
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA];
-end;
-
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA]);
-end;
-
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA];
-end;
-
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA]);
-end;
-
-procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA] := aValue;
-end;
-
-procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA] := Null;
-end;
-
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR];
-end;
-
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR]);
-end;
-
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR];
-end;
-
-function TPedidosProveedor_DetallesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR]);
-end;
-
-procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR] := aValue;
-end;
-
-procedure TPedidosProveedor_DetallesBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_DetallesREFERENCIA_PROVEEDOR] := Null;
-end;
-
-
-{ TPedidosProveedor_Articulos_PendientesBusinessProcessorRules }
-constructor TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
-begin
- inherited;
-end;
-
-destructor TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.Destroy;
-begin
- inherited;
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_PEDIDOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO];
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_PEDIDOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO]);
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_PEDIDOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO];
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_PEDIDOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO]);
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_PEDIDOValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO] := aValue;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_PEDIDOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_PEDIDO] := Null;
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA];
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA]);
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIAValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA];
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIAIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA]);
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIAValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA] := aValue;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIAIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA] := Null;
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_ARTICULOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO];
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetID_ARTICULOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO]);
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_ARTICULOValue: Integer;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO];
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldID_ARTICULOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO]);
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_ARTICULOValue(const aValue: Integer);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO] := aValue;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetID_ARTICULOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesID_ARTICULO] := Null;
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCONCEPTOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO];
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCONCEPTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO]);
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCONCEPTOValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO];
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCONCEPTOIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO]);
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCONCEPTOValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO] := aValue;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCONCEPTOIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCONCEPTO] := Null;
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD];
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetCANTIDADIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]);
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADValue: Float;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD];
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldCANTIDADIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD]);
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADValue(const aValue: Float);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD] := aValue;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetCANTIDADIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesCANTIDAD] := Null;
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIA_PROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR];
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetREFERENCIA_PROVEEDORIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR]);
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORValue: String;
-begin
- result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR];
-end;
-
-function TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.GetOldREFERENCIA_PROVEEDORIsNull: Boolean;
-begin
- result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR]);
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIA_PROVEEDORValue(const aValue: String);
-begin
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR] := aValue;
-end;
-
-procedure TPedidosProveedor_Articulos_PendientesBusinessProcessorRules.SetREFERENCIA_PROVEEDORIsNull(const aValue: Boolean);
-begin
- if aValue then
- BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedor_Articulos_PendientesREFERENCIA_PROVEEDOR] := Null;
-end;
-
initialization
RegisterBusinessProcessorRules(RID_PedidosProveedorDelta, TPedidosProveedorBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_PedidosProveedor_DetallesDelta, TPedidosProveedor_DetallesBusinessProcessorRules);
- RegisterBusinessProcessorRules(RID_PedidosProveedor_Articulos_PendientesDelta, TPedidosProveedor_Articulos_PendientesBusinessProcessorRules);
end.
diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas
index 36d3441d..81b64689 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas
@@ -7,25 +7,18 @@ uses
const
BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR = 'Client.DetallesPedido.Proveedor';
- BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR_PEND = 'Client.DetallesPedido.Pendientes';
type
IBizDetallesPedidoProveedor = interface(IPedidosProveedor_Detalles)
['{F868D8B0-18F9-469A-8461-3B1DADCC3B33}']
end;
- IBizDetallesPedidoProveedorPend = interface(IPedidosProveedor_Articulos_Pendientes)
- ['{0BE0236B-D58B-41CA-B939-8338875D4CF4}']
- end;
-
TBizDetallesPedidoProveedor = class(TPedidosProveedor_DetallesDataTableRules, IBizDetallesPedidoProveedor)
protected
procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
end;
- TBizDetallesPedidoProveedorPend = class(TPedidosProveedor_Articulos_PendientesDataTableRules, IBizDetallesPedidoProveedorPend)
- end;
implementation
@@ -55,5 +48,4 @@ end;
initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR, TBizDetallesPedidoProveedor);
- RegisterDataTableRules(BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR_PEND, TBizDetallesPedidoProveedorPend);
end.
diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
index cc16aba1..fb82a8f2 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Model/uBizPedidosProveedor.pas
@@ -202,13 +202,12 @@ begin
INCIDENCIAS_ACTIVAS := 0;
// ID_PEDIDO_CLIENTE := 0;
REF_PED_CLIENTE := '';
+ ID_TIENDA := AppFactuGES.TiendaActiva.ID;
+ TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
// OJOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
// ALMACÉN PUESTO A CAPÓN Y PROVISIONAL
ID_ALMACEN := 1;
-
- ID_TIENDA := AppFactuGES.TiendaActiva.ID;
- TIENDA := AppFactuGES.TiendaActiva.NOMBRE;
end;
procedure TBizPedidoProveedor.IVAOnChange(Sender: TDACustomField);
diff --git a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj
index 8e27cca0..f27ad35c 100644
--- a/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj
+++ b/Source/Modulos/Pedidos a proveedor/PedidosProveedor_Group.groupproj
@@ -9,9 +9,16 @@
+
+
+
+
+
+
+
@@ -141,14 +148,77 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+
-
+
-
+
\ No newline at end of file
diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
index 4a57d40b..b3b8083e 100644
--- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.dfm
@@ -167,6 +167,10 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item
DatasetField = 'TIENDA'
TableField = 'TIENDA'
+ end
+ item
+ DatasetField = 'DESCRIPCION_GENERAL'
+ TableField = 'DESCRIPCION_GENERAL'
end>
end>
Name = 'PedidosProveedor'
@@ -193,6 +197,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'NOMBRE'
DataType = datString
Size = 255
+ ServerAutoRefresh = True
DictionaryEntry = 'PedidosProveedor_NOMBRE'
end
item
@@ -204,162 +209,132 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item
Name = 'SITUACION'
DataType = datString
- Size = 255
- DictionaryEntry = 'PedidosProveedor_SITUACION'
+ Size = 9
end
item
Name = 'FECHA_ENVIO'
DataType = datDateTime
- DictionaryEntry = 'PedidosProveedor_FECHA_ENVIO'
end
item
Name = 'FECHA_PEDIDO'
DataType = datDateTime
- DictionaryEntry = 'PedidosProveedor_FECHA_PEDIDO'
end
item
Name = 'FECHA_CONFIRMACION'
DataType = datDateTime
- DictionaryEntry = 'PedidosProveedor_FECHA_CONFIRMACION'
end
item
Name = 'FECHA_ENTREGA'
DataType = datDateTime
- DictionaryEntry = 'PedidosProveedor_FECHA_ENTREGA'
end
item
Name = 'ID_ALMACEN'
DataType = datInteger
- DictionaryEntry = 'PedidosProveedor_ID_ALMACEN'
end
item
Name = 'NOMBRE_ALMACEN'
DataType = datString
Size = 255
- DictionaryEntry = 'PedidosProveedor_NOMBRE_ALMACEN'
end
item
Name = 'OBSERVACIONES'
DataType = datMemo
- DictionaryEntry = 'PedidosProveedor_OBSERVACIONES'
end
item
Name = 'IMPORTE_TOTAL'
DataType = datCurrency
- DictionaryEntry = 'PedidosProveedor_IMPORTE_TOTAL'
end
item
Name = 'INCIDENCIAS'
DataType = datMemo
- DictionaryEntry = 'PedidosProveedor_INCIDENCIAS'
end
item
Name = 'INCIDENCIAS_ACTIVAS'
- DataType = datInteger
- DictionaryEntry = 'PedidosProveedor_INCIDENCIAS_ACTIVAS'
+ DataType = datSmallInt
end
item
Name = 'CALLE'
DataType = datString
Size = 255
- DictionaryEntry = 'PedidosProveedor_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
- DictionaryEntry = 'PedidosProveedor_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
- DictionaryEntry = 'PedidosProveedor_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
- DictionaryEntry = 'PedidosProveedor_CODIGO_POSTAL'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
- DictionaryEntry = 'PedidosProveedor_PERSONA_CONTACTO'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
- DictionaryEntry = 'PedidosProveedor_TELEFONO'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
- DictionaryEntry = 'PedidosProveedor_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
- DictionaryEntry = 'PedidosProveedor_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
- Size = 20
- DictionaryEntry = 'PedidosProveedor_USUARIO'
+ Size = 30
end
item
Name = 'ID_PEDIDO_CLIENTE'
DataType = datInteger
- DictionaryEntry = 'PedidosProveedor_ID_PEDIDO_CLIENTE'
end
item
Name = 'REF_PED_CLIENTE'
DataType = datString
Size = 255
- DictionaryEntry = 'PedidosProveedor_REF_PED_CLIENTE'
end
item
Name = 'IMPORTE_NETO'
DataType = datCurrency
- DictionaryEntry = 'PedidosProveedor_IMPORTE_NETO'
end
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
- DictionaryEntry = 'PedidosProveedor_IMPORTE_PORTE'
end
item
Name = 'DESCUENTO'
DataType = datFloat
- DictionaryEntry = 'PedidosProveedor_DESCUENTO'
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datCurrency
- DictionaryEntry = 'PedidosProveedor_IMPORTE_DESCUENTO'
end
item
Name = 'BASE_IMPONIBLE'
DataType = datCurrency
- DictionaryEntry = 'PedidosProveedor_BASE_IMPONIBLE'
end
item
Name = 'IVA'
DataType = datFloat
- DictionaryEntry = 'PedidosProveedor_IVA'
end
item
Name = 'IMPORTE_IVA'
DataType = datCurrency
- DictionaryEntry = 'PedidosProveedor_IMPORTE_IVA'
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
- DictionaryEntry = 'PedidosProveedor_ID_FORMA_PAGO'
end
item
Name = 'ID_TIENDA'
@@ -369,6 +344,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Name = 'TIENDA'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'DESCRIPCION_GENERAL'
+ DataType = datString
+ Size = 255
end>
end
item
@@ -385,11 +365,11 @@ object srvPedidosProveedor: TsrvPedidosProveedor
'EEDOR_DETALLES.IMPORTE_UNIDAD, PEDIDOS_PROVEEDOR_DETALLES.IMPORT' +
'E_TOTAL,'#10' PEDIDOS_PROVEEDOR_DETALLES.VISIBLE,'#10#10' PEDIDOS_PR' +
'OVEEDOR_DETALLES.ID_ARTICULO, PEDIDOS_PROVEEDOR_DETALLES.DESCUEN' +
- 'TO,'#10' PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_PORTE,'#10' ARTICULOS.' +
- 'REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10#10'F' +
- 'ROM PEDIDOS_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON PEDIDOS_PR' +
- 'OVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'ORDER ' +
- 'BY POSICION;'#10
+ 'TO,'#10' PEDIDOS_PROVEEDOR_DETALLES.IMPORTE_PORTE'#10'/*'#10' ARTICULO' +
+ 'S.REFERENCIA, ARTICULOS.REFERENCIA_PROV as REFERENCIA_PROVEEDOR'#10 +
+ '*/'#10'FROM PEDIDOS_PROVEEDOR_DETALLES'#10'LEFT JOIN ARTICULOS ON PEDIDO' +
+ 'S_PROVEEDOR_DETALLES.ID_ARTICULO = ARTICULOS.ID'#10'WHERE {where}'#10'OR' +
+ 'DER BY POSICION;'#10
StatementType = stSQL
ColumnMappings = <
item
@@ -439,16 +419,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item
DatasetField = 'IMPORTE_PORTE'
TableField = 'IMPORTE_PORTE'
- end
- item
- DatasetField = 'REFERENCIA'
- TableField = ''
- SQLOrigin = 'REFERENCIA'
- end
- item
- DatasetField = 'REFERENCIA_PROVEEDOR'
- TableField = ''
- SQLOrigin = 'REFERENCIA_PROVEEDOR'
end>
end>
Name = 'PedidosProveedor_Detalles'
@@ -458,7 +428,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datAutoInc
GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
ServerAutoRefresh = True
- DictionaryEntry = 'PedidosProveedor_Detalles_ID'
InPrimaryKey = True
end
item
@@ -468,7 +437,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item
Name = 'POSICION'
DataType = datInteger
- DictionaryEntry = 'POSICIONCONCEPTO'
end
item
Name = 'TIPO_DETALLE'
@@ -482,8 +450,7 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Name = 'CANTIDAD'
- DataType = datFloat
- DictionaryEntry = 'CANTIDAD'
+ DataType = datCurrency
end
item
Name = 'IMPORTE_UNIDAD'
@@ -508,93 +475,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
item
Name = 'IMPORTE_PORTE'
DataType = datCurrency
- end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- end
- item
- Name = 'REFERENCIA_PROVEEDOR'
- DataType = datString
- Size = 255
- end>
- end
- item
- Params = <>
- Statements = <
- item
- Connection = 'IBX'
- TargetTable = 'V_PED_PROV_ARTICULOS'
- SQL =
- 'select V_PED_PROV_ARTICULOS.ID_PEDIDO,'#10' ARTICULOS.REFERENC' +
- 'IA,'#10' V_PED_PROV_ARTICULOS.ID_ARTICULO,'#10' ARTICULOS.DE' +
- 'SCRIPCION as CONCEPTO,'#10' V_PED_PROV_ARTICULOS.CANTIDAD_PEND' +
- 'IENTE as CANTIDAD,'#10' ARTICULOS.REFERENCIA_PROV as REFERENCI' +
- 'A_PROVEEDOR'#10#10'FROM V_PED_PROV_ARTICULOS'#10'LEFT JOIN ARTICULOS ON (A' +
- 'RTICULOS.ID = V_PED_PROV_ARTICULOS.ID_ARTICULO)'#10'WHERE (V_PED_PRO' +
- 'V_ARTICULOS.CANTIDAD_PENDIENTE <> 0)'#10#10
- StatementType = stSQL
- ColumnMappings = <
- item
- DatasetField = 'ID_PEDIDO'
- TableField = 'ID_PEDIDO'
- end
- item
- DatasetField = 'REFERENCIA'
- TableField = 'REFERENCIA'
- end
- item
- DatasetField = 'ID_ARTICULO'
- TableField = 'ID_ARTICULO'
- end
- item
- DatasetField = 'CONCEPTO'
- TableField = 'CONCEPTO'
- end
- item
- DatasetField = 'CANTIDAD'
- TableField = 'CANTIDAD'
- end
- item
- DatasetField = 'REFERENCIA_PROVEEDOR'
- TableField = 'REFERENCIA_PROVEEDOR'
- end>
- end>
- Name = 'PedidosProveedor_Articulos_Pendientes'
- Fields = <
- item
- Name = 'ID_PEDIDO'
- DataType = datInteger
- DictionaryEntry = 'PedidosProveedor_Detalles_ID_PEDIDO'
- end
- item
- Name = 'REFERENCIA'
- DataType = datString
- Size = 255
- DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA'
- end
- item
- Name = 'ID_ARTICULO'
- DataType = datInteger
- DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO'
- end
- item
- Name = 'CONCEPTO'
- DataType = datString
- Size = 2000
- DictionaryEntry = 'PedidosProveedor_Detalles_CONCEPTO'
- end
- item
- Name = 'CANTIDAD'
- DataType = datFloat
- DictionaryEntry = 'CANTIDAD'
- end
- item
- Name = 'REFERENCIA_PROVEEDOR'
- DataType = datString
- Size = 255
- DictionaryEntry = 'PedidosProveedor_Detalles_REFERENCIA_PROVEEDOR'
end>
end>
JoinDataTables = <>
@@ -618,6 +498,17 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Params = <
+ item
+ Name = 'ID'
+ DataType = datAutoInc
+ GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
+ Value = ''
+ end
+ item
+ Name = 'ID_PEDIDO'
+ DataType = datInteger
+ Value = ''
+ end
item
Name = 'CANTIDAD'
DataType = datCurrency
@@ -628,12 +519,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datInteger
Value = ''
end
- item
- Name = 'ID'
- DataType = datAutoInc
- GeneratorName = 'GEN_PEDIDOS_PROV_DETALLES_ID'
- Value = ''
- end
item
Name = 'TIPO_DETALLE'
DataType = datString
@@ -661,11 +546,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datSmallInt
Value = ''
end
- item
- Name = 'ID_PEDIDO'
- DataType = datInteger
- Value = ''
- end
item
Name = 'ID_ARTICULO'
DataType = datInteger
@@ -686,12 +566,12 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
SQL =
- 'INSERT'#10' INTO PEDIDOS_PROVEEDOR_DETALLES'#10' (CANTIDAD, POSICION' +
- ', ID, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD, '#10' IMPORTE_TOTA' +
- 'L, VISIBLE, ID_PEDIDO,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORT' +
- 'E)'#10' VALUES'#10' (:CANTIDAD, :POSICION, :ID, :TIPO_DETALLE, :CONC' +
- 'EPTO, '#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE, :ID_PEDID' +
- 'O, '#10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'
+ 'INSERT'#10' INTO PEDIDOS_PROVEEDOR_DETALLES'#10' (ID, ID_PEDIDO, CAN' +
+ 'TIDAD, POSICION, TIPO_DETALLE, CONCEPTO, IMPORTE_UNIDAD,'#10' IM' +
+ 'PORTE_TOTAL, VISIBLE,'#10' ID_ARTICULO, DESCUENTO, IMPORTE_PORTE' +
+ ')'#10' VALUES'#10' (:ID, :ID_PEDIDO, :CANTIDAD, :POSICION, :TIPO_DET' +
+ 'ALLE, :CONCEPTO,'#10' :IMPORTE_UNIDAD, :IMPORTE_TOTAL, :VISIBLE,' +
+ #10' :ID_ARTICULO, :DESCUENTO, :IMPORTE_PORTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -727,11 +607,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
DataType = datInteger
Value = ''
end
- item
- Name = 'ID'
- DataType = datInteger
- Value = ''
- end
item
Name = 'TIPO_DETALLE'
DataType = datString
@@ -789,12 +664,12 @@ object srvPedidosProveedor: TsrvPedidosProveedor
TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES'
SQL =
'UPDATE PEDIDOS_PROVEEDOR_DETALLES'#10' SET '#10' CANTIDAD = :CANTIDA' +
- 'D, '#10' POSICION = :POSICION, '#10' ID = :ID, '#10' TIPO_DETALLE =' +
- ' :TIPO_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD =' +
- ' :IMPORTE_UNIDAD, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISI' +
- 'BLE = :VISIBLE, '#10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ARTICULO = ' +
- ':ID_ARTICULO,'#10' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :I' +
- 'MPORTE_PORTE'#10' WHERE'#10' (ID = :OLD_ID)'
+ 'D, '#10' POSICION = :POSICION, '#10' TIPO_DETALLE = :TIPO_DETALLE,' +
+ #10' CONCEPTO = :CONCEPTO, '#10' IMPORTE_UNIDAD = :IMPORTE_UNIDAD' +
+ ', '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE, ' +
+ #10' ID_PEDIDO = :ID_PEDIDO, '#10' ID_ARTICULO = :ID_ARTICULO,'#10' ' +
+ ' DESCUENTO = :DESCUENTO,'#10' IMPORTE_PORTE = :IMPORTE_PORTE'#10' W' +
+ 'HERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -802,18 +677,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Params = <
- item
- Name = 'USUARIO'
- Value = ''
- end
- item
- Name = 'OBSERVACIONES'
- Value = ''
- end
- item
- Name = 'REFERENCIA'
- Value = ''
- end
item
Name = 'ID'
DataType = datAutoInc
@@ -822,114 +685,171 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Name = 'ID_EMPRESA'
+ DataType = datInteger
Value = ''
end
item
Name = 'FECHA_ALTA'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'ID_PROVEEDOR'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'USUARIO'
+ DataType = datString
+ Size = 30
+ Value = ''
+ end
+ item
+ Name = 'OBSERVACIONES'
+ DataType = datMemo
+ Value = ''
+ end
+ item
+ Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'FECHA_ENVIO'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_PEDIDO'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_CONFIRMACION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_ENTREGA'
+ DataType = datDateTime
Value = ''
end
item
Name = 'INCIDENCIAS'
+ DataType = datMemo
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
+ DataType = datSmallInt
Value = ''
end
item
Name = 'ID_ALMACEN'
+ 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 = 'PERSONA_CONTACTO'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'TELEFONO'
+ DataType = datString
+ Size = 25
Value = ''
end
item
Name = 'ID_PEDIDO_CLIENTE'
+ DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
+ DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
+ DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_IVA'
+ DataType = datCurrency
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_TIENDA'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'DESCRIPCION_GENERAL'
+ DataType = datString
+ Size = 255
Value = ''
end>
Statements = <
@@ -937,22 +857,23 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR'
SQL =
- 'INSERT'#10' INTO PEDIDOS_PROVEEDOR'#10' (USUARIO, OBSERVACIONES, REF' +
- 'ERENCIA, ID, ID_EMPRESA,'#10' FECHA_ALTA, FECHA_MODIFICACION, ID' +
- '_PROVEEDOR, FECHA_ENVIO,'#10' FECHA_PEDIDO, FECHA_CONFIRMACION, ' +
+ 'INSERT'#10' INTO PEDIDOS_PROVEEDOR'#10' (ID, ID_EMPRESA, FECHA_ALTA,' +
+ ' FECHA_MODIFICACION, ID_PROVEEDOR,'#10' USUARIO, OBSERVACIONES, ' +
+ 'REFERENCIA, FECHA_ENVIO,'#10' FECHA_PEDIDO, FECHA_CONFIRMACION, ' +
'FECHA_ENTREGA, INCIDENCIAS, '#10' IMPORTE_TOTAL, INCIDENCIAS_ACT' +
'IVAS, ID_ALMACEN, CALLE, '#10' POBLACION, PROVINCIA, CODIGO_POST' +
'AL, PERSONA_CONTACTO, '#10' TELEFONO, ID_PEDIDO_CLIENTE, IMPORTE' +
'_NETO, IMPORTE_PORTE, '#10' DESCUENTO, IMPORTE_DESCUENTO, BASE_I' +
- 'MPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO, ID_TIENDA)'#10' VA' +
- 'LUES'#10' (:USUARIO, :OBSERVACIONES, :REFERENCIA, :ID,'#10' :ID_E' +
- 'MPRESA, :FECHA_ALTA, :FECHA_MODIFICACION,'#10' :ID_PROVEEDOR, :F' +
- 'ECHA_ENVIO, :FECHA_PEDIDO, :FECHA_CONFIRMACION,'#10' :FECHA_ENTR' +
- 'EGA, :INCIDENCIAS, :IMPORTE_TOTAL, :INCIDENCIAS_ACTIVAS, '#10' :' +
- 'ID_ALMACEN, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10' ' +
- ' :PERSONA_CONTACTO, :TELEFONO, :ID_PEDIDO_CLIENTE, :IMPORTE_NET' +
- 'O, '#10' :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO, :BASE_I' +
- 'MPONIBLE, '#10' :IVA, :IMPORTE_IVA, :ID_FORMA_PAGO, :ID_TIENDA)'#10
+ 'MPONIBLE, IVA, '#10' IMPORTE_IVA, ID_FORMA_PAGO, ID_TIENDA, DESC' +
+ 'RIPCION_GENERAL)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :FECHA_ALTA, :F' +
+ 'ECHA_MODIFICACION, :ID_PROVEEDOR,'#10' :USUARIO, :OBSERVACIONES,' +
+ ' :REFERENCIA, :FECHA_ENVIO,'#10' :FECHA_PEDIDO, :FECHA_CONFIRMAC' +
+ 'ION, :FECHA_ENTREGA, :INCIDENCIAS,'#10' :IMPORTE_TOTAL, :INCIDEN' +
+ 'CIAS_ACTIVAS, :ID_ALMACEN, :CALLE,'#10' :POBLACION, :PROVINCIA, ' +
+ ':CODIGO_POSTAL, :PERSONA_CONTACTO,'#10' :TELEFONO, :ID_PEDIDO_CL' +
+ 'IENTE, :IMPORTE_NETO, :IMPORTE_PORTE,'#10' :DESCUENTO, :IMPORTE_' +
+ 'DESCUENTO, :BASE_IMPONIBLE, :IVA,'#10' :IMPORTE_IVA, :ID_FORMA_P' +
+ 'AGO, :ID_TIENDA, :DESCRIPCION_GENERAL)'#10' '#10' '#10' '#10' '#10#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -960,132 +881,173 @@ object srvPedidosProveedor: TsrvPedidosProveedor
end
item
Params = <
- item
- Name = 'ID'
- Value = ''
- end
item
Name = 'USUARIO'
+ DataType = datString
+ Size = 30
Value = ''
end
item
Name = 'OBSERVACIONES'
+ DataType = datMemo
Value = ''
end
item
Name = 'REFERENCIA'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'ID_EMPRESA'
+ DataType = datInteger
Value = ''
end
item
Name = 'FECHA_ALTA'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'ID_PROVEEDOR'
+ DataType = datInteger
Value = ''
end
item
Name = 'FECHA_ENVIO'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_PEDIDO'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_CONFIRMACION'
+ DataType = datDateTime
Value = ''
end
item
Name = 'FECHA_ENTREGA'
+ DataType = datDateTime
Value = ''
end
item
Name = 'INCIDENCIAS'
+ DataType = datMemo
Value = ''
end
item
Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
Value = ''
end
item
Name = 'INCIDENCIAS_ACTIVAS'
+ DataType = datSmallInt
Value = ''
end
item
Name = 'ID_ALMACEN'
+ 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 = 'PERSONA_CONTACTO'
+ DataType = datString
+ Size = 255
Value = ''
end
item
Name = 'TELEFONO'
+ DataType = datString
+ Size = 25
Value = ''
end
item
Name = 'ID_PEDIDO_CLIENTE'
+ DataType = datInteger
Value = ''
end
item
Name = 'IMPORTE_NETO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IMPORTE_PORTE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'DESCUENTO'
+ DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_DESCUENTO'
+ DataType = datCurrency
Value = ''
end
item
Name = 'BASE_IMPONIBLE'
+ DataType = datCurrency
Value = ''
end
item
Name = 'IVA'
+ DataType = datFloat
Value = ''
end
item
Name = 'IMPORTE_IVA'
+ DataType = datCurrency
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
+ DataType = datInteger
Value = ''
end
item
Name = 'ID_TIENDA'
+ DataType = datInteger
+ Value = ''
+ end
+ item
+ Name = 'DESCRIPCION_GENERAL'
+ DataType = datString
+ Size = 255
Value = ''
end
item
@@ -1097,24 +1059,25 @@ object srvPedidosProveedor: TsrvPedidosProveedor
Connection = 'IBX'
TargetTable = 'PEDIDOS_PROVEEDOR'
SQL =
- 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' ID = :ID,'#10' USUARIO = :USU' +
- 'ARIO, '#10' OBSERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :RE' +
- 'FERENCIA,'#10' ID_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_' +
- 'ALTA,'#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROV' +
- 'EEDOR = :ID_PROVEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECH' +
- 'A_PEDIDO = :FECHA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFI' +
- 'RMACION, '#10' FECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS =' +
- ' :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDEN' +
- 'CIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMAC' +
- 'EN, '#10' CALLE = :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVI' +
- 'NCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PER' +
- 'SONA_CONTACTO = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ' +
- ' ID_PEDIDO_CLIENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :' +
- 'IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENT' +
- 'O = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' ' +
- ' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORT' +
- 'E_IVA = :IMPORTE_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' I' +
- 'D_TIENDA = :ID_TIENDA'#10' WHERE'#10' (ID = :OLD_ID)'#10
+ 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' USUARIO = :USUARIO,'#10' OBSE' +
+ 'RVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :REFERENCIA,'#10' I' +
+ 'D_EMPRESA = :ID_EMPRESA,'#10' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA' +
+ '_MODIFICACION = :FECHA_MODIFICACION, '#10' ID_PROVEEDOR = :ID_PRO' +
+ 'VEEDOR, '#10' FECHA_ENVIO = :FECHA_ENVIO,'#10' FECHA_PEDIDO = :FEC' +
+ 'HA_PEDIDO, '#10' FECHA_CONFIRMACION = :FECHA_CONFIRMACION, '#10' F' +
+ 'ECHA_ENTREGA = :FECHA_ENTREGA, '#10' INCIDENCIAS = :INCIDENCIAS, ' +
+ #10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' INCIDENCIAS_ACTIVAS = ' +
+ ':INCIDENCIAS_ACTIVAS, '#10' ID_ALMACEN = :ID_ALMACEN, '#10' CALLE ' +
+ '= :CALLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINC' +
+ 'IA, '#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' PERSONA_CONTACTO =' +
+ ' :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' ID_PEDIDO_CL' +
+ 'IENTE = :ID_PEDIDO_CLIENTE, '#10' IMPORTE_NETO = :IMPORTE_NETO, '#10 +
+ ' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCUENTO = :DESCUENTO,' +
+ ' '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, '#10' BASE_IMPONIBL' +
+ 'E = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMPORTE_IVA = :IMPORT' +
+ 'E_IVA, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' ID_TIENDA = :ID_' +
+ 'TIENDA,'#10' DESCRIPCION_GENERAL = :DESCRIPCION_GENERAL'#10' WHERE'#10' ' +
+ ' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@@ -1181,7 +1144,6 @@ object srvPedidosProveedor: TsrvPedidosProveedor
InsertCommandName = 'Insert_PedidosProveedor'
DeleteCommandName = 'Delete_PedidosProveedor'
UpdateCommandName = 'Update_PedidosProveedor'
- RefreshDatasetName = 'PedidosProveedor_Refresh'
ReferencedDataset = 'PedidosProveedor'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
@@ -1193,9 +1155,8 @@ object srvPedidosProveedor: TsrvPedidosProveedor
InsertCommandName = 'Insert_PedidosProveedor_Detalles'
DeleteCommandName = 'Delete_PedidosProveedor_Detalles'
UpdateCommandName = 'Update_PedidosProveedor_Detalles'
- RefreshDatasetName = 'PedidosProveedor_Detalles_Refresh'
ReferencedDataset = 'PedidosProveedor_Detalles'
- ProcessorOptions = [poPrepareCommands]
+ ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 240
Top = 88
diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas
index ab281c8e..10fb6536 100644
--- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas
+++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas
@@ -26,11 +26,9 @@ type
Bin2DataStreamer: TDABin2DataStreamer;
schPedidosProveedor: TDASchema;
DADataDictionary: TDADataDictionary;
- procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
- const IncludeSchema: Boolean; const MaxRecords: Integer);
+ procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DARemoteServiceCreate(Sender: TObject);
- procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
- var aConnectionName: string);
+ procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
protected
{ IsrvPedidosProveedor methods }
function GenerateReport(const ID: String): Binary;
@@ -47,8 +45,9 @@ uses
// uRptPedidosProveedor_Server, ;
{ uRORemoteDataModule,
- fServerForm, Variants, IB, schPedidosProveedorClient_Intf;
+ fServerForm;
}
+
procedure Create_srvPedidosProveedor(out anInstance : IUnknown);
begin
anInstance := TsrvPedidosProveedor.Create(NIL);
@@ -60,14 +59,13 @@ procedure TsrvPedidosProveedor.DARemoteServiceBeforeGetDatasetData(
const Dataset: IDADataset; const IncludeSchema: Boolean;
const MaxRecords: Integer);
begin
-{ if DataSet.Name = nme_PedidosProveedor then
+ if DataSet.Name = nme_PedidosProveedor then
begin
{ Aquí se asegura que el usuario sólo accede a pedidos
de las empresas a las que tiene permiso para acceder
filtrando DataSet por ID_EMPRESA. }
-{ FiltrarAccesoUsuario(Session, Connection, schPedidosProveedor, DataSet, fld_PedidosProveedorID_EMPRESA);
+ FiltrarAccesoUsuario(Session, Connection, schPedidosProveedor, DataSet, fld_PedidosProveedorID_EMPRESA);
end;
-}
end;
procedure TsrvPedidosProveedor.DARemoteServiceCreate(Sender: TObject);
diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk
index 806c6d20..42f1b9ed 100644
Binary files a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk and b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dpk differ
diff --git a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj
index cb3db07a..ed2467e3 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj
+++ b/Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj
@@ -1,4 +1,5 @@
-
+
+
{9e558626-cf49-4cff-a178-e12c186758ac}
PedidosProveedor_view.dpk
@@ -48,13 +49,25 @@
MainSource
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TfEditorDireccionEntregaPedidoProveedor
@@ -92,6 +105,10 @@
TFrame
+
+
+ TFrame
+
TFrame
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
index 2ae38f71..0a3d5cea 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.dfm
@@ -2,19 +2,19 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Left = 332
Top = 147
Caption = 'Nuevo pedido a proveedor'
- ClientHeight = 617
- ClientWidth = 765
+ ClientHeight = 431
+ ClientWidth = 717
OnClose = CustomEditorClose
- ExplicitWidth = 773
- ExplicitHeight = 651
+ ExplicitWidth = 725
+ ExplicitHeight = 465
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
- Width = 765
+ Width = 717
Caption = 'Nuevo pedido a proveedor'
- ExplicitWidth = 765
+ ExplicitWidth = 717
inherited Image1: TImage
- Left = 738
+ Left = 690
Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -43,10 +43,10 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
end
inherited TBXDock: TTBXDock
- Width = 765
- ExplicitWidth = 765
+ Width = 717
+ ExplicitWidth = 717
inherited tbxMain: TTBXToolbar
- ExplicitWidth = 488
+ ExplicitWidth = 330
inherited TBXItem2: TTBXItem
Visible = False
end
@@ -58,32 +58,32 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
end
inherited tbxMenu: TTBXToolbar
- ExplicitWidth = 765
+ ExplicitWidth = 717
end
end
inherited StatusBar: TJvStatusBar
- Top = 598
- Width = 765
+ Top = 412
+ Width = 717
Panels = <
item
Width = 200
end>
- ExplicitTop = 598
- ExplicitWidth = 765
+ ExplicitTop = 412
+ ExplicitWidth = 717
end
inherited pgPaginas: TPageControl
- Width = 759
- Height = 440
- ActivePage = pagContenido
+ Width = 711
+ Height = 254
+ ActivePage = pagDocumentos
TabOrder = 1
OnChanging = pgPaginasChanging
- ExplicitWidth = 759
- ExplicitHeight = 440
+ ExplicitWidth = 711
+ ExplicitHeight = 254
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
- ExplicitWidth = 751
- ExplicitHeight = 412
+ ExplicitWidth = 703
+ ExplicitHeight = 226
end
object pagContenido: TTabSheet
Caption = 'Contenido'
@@ -91,8 +91,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inline frViewDetallesPedidoProveedor1: TfrViewDetallesPedidoProveedor
Left = 0
Top = 0
- Width = 751
- Height = 412
+ Width = 703
+ Height = 226
Align = alClient
BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET
@@ -104,17 +104,53 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 751
- ExplicitHeight = 412
+ ExplicitWidth = 703
+ ExplicitHeight = 226
inherited ToolBar1: TToolBar
- Width = 751
- ExplicitWidth = 751
+ Width = 703
+ ExplicitWidth = 703
+ inherited UpDown1: TUpDown
+ Left = 237
+ ExplicitLeft = 237
+ end
+ inherited ToolButton13: TToolButton
+ Left = 254
+ ExplicitLeft = 254
+ end
+ inherited ToolButton6: TToolButton
+ Left = 262
+ ExplicitLeft = 262
+ end
+ inherited ToolButton7: TToolButton
+ Left = 296
+ ExplicitLeft = 296
+ end
+ inherited ToolButton8: TToolButton
+ Left = 330
+ ExplicitLeft = 330
+ end
+ inherited ToolButton12: TToolButton
+ Left = 364
+ ExplicitLeft = 364
+ end
+ inherited ToolButton9: TToolButton
+ Left = 372
+ ExplicitLeft = 372
+ end
+ inherited ToolButton10: TToolButton
+ Left = 406
+ ExplicitLeft = 406
+ end
+ inherited ToolButton11: TToolButton
+ Left = 440
+ ExplicitLeft = 440
+ end
end
inherited cxGrid: TcxGrid
- Width = 751
- Height = 340
- ExplicitWidth = 751
- ExplicitHeight = 340
+ Width = 703
+ Height = 154
+ ExplicitWidth = 703
+ ExplicitHeight = 154
inherited cxGridView: TcxGridDBTableView
inherited cxGridViewIMPORTENETO: TcxGridDBColumn
Options.Editing = True
@@ -122,8 +158,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
end
inherited TBXDock1: TTBXDock
- Width = 751
- ExplicitWidth = 751
+ Width = 703
+ ExplicitWidth = 703
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548
end
@@ -136,8 +172,8 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
inline frViewIncidenciasProv: TfrViewIncidencias
Left = 0
Top = 0
- Width = 751
- Height = 412
+ Width = 703
+ Height = 226
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -147,34 +183,65 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 751
- ExplicitHeight = 412
+ ExplicitWidth = 703
+ ExplicitHeight = 226
inherited pnlSup: TPanel
- Width = 751
- ExplicitWidth = 757
+ Width = 703
+ ExplicitWidth = 703
inherited eIncidenciaActiva: TcxDBCheckBox
ExplicitHeight = 21
end
end
inherited GroupBox1: TGroupBox
- Width = 751
- Height = 384
- ExplicitWidth = 751
- ExplicitHeight = 384
+ Width = 703
+ Height = 198
+ ExplicitWidth = 703
+ ExplicitHeight = 198
inherited eIncidencias: TcxDBMemo
- ExplicitWidth = 747
- ExplicitHeight = 367
- Height = 367
- Width = 747
+ ExplicitWidth = 699
+ ExplicitHeight = 181
+ Height = 181
+ Width = 699
end
end
end
end
+ object pagDocumentos: TTabSheet
+ Caption = 'Documentos'
+ ImageIndex = 3
+ inline frViewDocumentosPedidoProveedor1: TfrViewDocumentosPedidoProveedor
+ Left = 0
+ Top = 0
+ Width = 703
+ Height = 226
+ Align = alClient
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ ParentFont = False
+ TabOrder = 0
+ ReadOnly = False
+ ExplicitWidth = 703
+ ExplicitHeight = 226
+ inherited TBXDock: TTBXDock
+ Width = 703
+ ExplicitWidth = 703
+ end
+ inherited ListView1: TListView
+ Width = 703
+ Height = 203
+ ExplicitWidth = 703
+ ExplicitHeight = 203
+ end
+ end
+ end
end
inline frViewTotales1: TfrViewTotales [4]
Left = 0
- Top = 552
- Width = 765
+ Top = 366
+ Width = 717
Height = 46
Align = alBottom
Font.Charset = DEFAULT_CHARSET
@@ -185,26 +252,26 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ParentFont = False
TabOrder = 5
ReadOnly = False
- ExplicitTop = 552
- ExplicitWidth = 765
+ ExplicitTop = 366
+ ExplicitWidth = 717
ExplicitHeight = 46
inherited dxLayoutControl1: TdxLayoutControl
- Width = 765
+ Width = 717
LookAndFeel = dxLayoutOfficeLookAndFeel1
- ExplicitWidth = 765
+ ExplicitWidth = 717
inherited Bevel3: TBevel
- Left = 379
+ Left = 356
Top = 11
Height = 30
- ExplicitLeft = 379
+ ExplicitLeft = 356
ExplicitTop = 11
ExplicitHeight = 30
end
inherited Bevel4: TBevel
- Left = 491
+ Left = 468
Top = 53
Width = 21
- ExplicitLeft = 491
+ ExplicitLeft = 468
ExplicitTop = 53
ExplicitWidth = 21
end
@@ -222,27 +289,27 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Width = 93
end
inherited ImporteIVA: TcxDBCurrencyEdit
- Left = 562
+ Left = 539
Top = 88
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 562
+ ExplicitLeft = 539
ExplicitTop = 88
ExplicitWidth = 137
Width = 137
end
inherited ImporteTotal: TcxDBCurrencyEdit
- Left = 492
+ Left = 469
Top = 142
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 492
+ ExplicitLeft = 469
ExplicitTop = 142
ExplicitWidth = 137
Width = 137
@@ -259,31 +326,31 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
ExplicitTop = 38
end
inherited edtIVA: TcxDBSpinEdit
- Left = 491
+ Left = 468
Top = 88
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 491
+ ExplicitLeft = 468
ExplicitTop = 88
end
inherited ImporteBase: TcxDBCurrencyEdit
- Left = 491
+ Left = 468
Top = 11
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 491
+ ExplicitLeft = 468
ExplicitTop = 11
ExplicitWidth = 92
Width = 92
end
inherited edtRE: TcxDBSpinEdit
- Left = 491
+ Left = 468
Top = 115
DataBinding.DataField = ''
DataBinding.DataSource = nil
@@ -292,11 +359,11 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 491
+ ExplicitLeft = 468
ExplicitTop = 115
end
inherited ImporteRE: TcxDBCurrencyEdit
- Left = 562
+ Left = 539
Top = 115
DataBinding.DataField = ''
DataBinding.DataSource = nil
@@ -305,7 +372,7 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 562
+ ExplicitLeft = 539
ExplicitTop = 115
ExplicitWidth = 56
Width = 56
@@ -352,9 +419,9 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
Width = 81
end
inherited bTiposIVA: TButton
- Left = 231
+ Left = 208
Top = 92
- ExplicitLeft = 231
+ ExplicitLeft = 208
ExplicitTop = 92
end
inherited cbRecargoEquivalencia: TcxDBCheckBox
@@ -414,14 +481,26 @@ inherited fEditorPedidoProveedor: TfEditorPedidoProveedor
end
end
inherited PnlComentario: TPanel [5]
- Width = 765
- ExplicitWidth = 765
+ Width = 717
+ ExplicitWidth = 717
inherited lbComentario: TLabel
- Width = 755
+ Width = 707
Height = 25
end
end
inherited EditorActionList: TActionList [9]
+ inherited actPrevisualizar: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actImprimir: TAction
+ Enabled = False
+ Visible = False
+ end
+ inherited actDuplicar: TAction
+ Enabled = False
+ Visible = False
+ end
end
inherited dsDataTable: TDADataSource [10]
end
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
index 0f0b899d..836720c2 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
@@ -14,7 +14,8 @@ uses
uBizPedidosProveedor, uIEditorPedidoProveedor, uPedidosProveedorController,
uViewDetallesBase, uViewDetallesPedidoProveedor,
dxLayoutLookAndFeels, JvExComCtrls, JvStatusBar, uViewTotales,
- uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces;
+ uViewDetallesDTO, uViewDetallesArticulos, uDAInterfaces, uViewDocumentos,
+ uViewDocumentosPedidoProveedor;
type
TfEditorPedidoProveedor = class(TfEditorDBItem, IEditorPedidoProveedor)
@@ -25,8 +26,10 @@ type
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
frViewTotales1: TfrViewTotales;
+ pagDocumentos: TTabSheet;
+ frViewDocumentosPedidoProveedor1: TfrViewDocumentosPedidoProveedor;
- procedure FormShow(Sender: TObject);
+ procedure FormShow(Sender: TObject);
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
procedure pgPaginasChanging(Sender: TObject; var AllowChange: Boolean);
procedure frViewTotales1ePortePropertiesValidate(Sender: TObject;
@@ -110,6 +113,10 @@ procedure TfEditorPedidoProveedor.CustomEditorClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
+ //GESTION_DOCUMENTOS
+ //Este método eliminará el directorio temporal si se ha creado
+ frViewDocumentosPedidoProveedor1.actEliminarTodo.Execute;
+
FViewPedido := NIL;
FPedido := NIL;
end;
@@ -179,14 +186,16 @@ begin
bEsNuevo := False;
ShowHourglassCursor;
-// frViewDetallesPedidoProveedor1.SaveGridStatus; // Para guardar estado del grid
+ frViewDetallesPedidoProveedor1.SaveGridStatus; // Para guardar estado del grid
frViewDetallesPedidoProveedor1.BeginUpdate; // Para que no se mueva el foco
try
bEsNuevo := FPedido.EsNuevo;
- FController.Guardar(FPedido);
+ //GESTION_DOCUMENTOS
+ if FController.Guardar(FPedido) then
+ frViewDocumentosPedidoProveedor1.actActualizarServidor.Execute;
finally
frViewDetallesPedidoProveedor1.EndUpdate;
-// frViewDetallesPedidoProveedor1.RestoreGridStatus;
+ frViewDetallesPedidoProveedor1.RestoreGridStatus;
HideHourglassCursor;
end;
@@ -268,6 +277,9 @@ begin
begin
ViewPedido.Controller := FController;
frViewDetallesPedidoProveedor1.Controller := Controller.DetallesController;
+
+ //GESTION_DOCUMENTOS
+ frViewDocumentosPedidoProveedor1.Controller := Controller;
end;
end;
@@ -289,6 +301,9 @@ begin
ViewPedido.ViewProveedorPedido.OnProveedorChanged := OnProveedorChanged;
frViewDetallesPedidoProveedor1.Detalles := FPedido.Detalles;
frViewDetallesPedidoProveedor1.Pedido := FPedido; //Para poder sacar los articulos del proveedor seleccionado
+
+ //GESTION_DOCUMENTOS
+ frViewDocumentosPedidoProveedor1.Pedido := FPedido;
end;
end;
end;
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm
index 94d2ca99..c12db2f4 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.dfm
@@ -2,10 +2,11 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Left = 411
Top = 346
Caption = 'Lista de pedidos a proveedor'
+ ClientHeight = 599
ClientWidth = 700
Position = poDesigned
ExplicitWidth = 708
- ExplicitHeight = 471
+ ExplicitHeight = 633
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -45,13 +46,16 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Width = 700
ExplicitWidth = 700
inherited tbxMain: TTBXToolbar
- ExplicitWidth = 632
+ ExplicitWidth = 546
end
inherited tbxMenu: TTBXToolbar
ExplicitWidth = 700
end
inherited TBXTMain2: TTBXToolbar
+ Left = 343
+ DockPos = 343
Visible = True
+ ExplicitLeft = 343
ExplicitWidth = 119
object TBXItem39: TTBXItem
Action = actRecibirPedido
@@ -60,14 +64,16 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
end
end
inherited StatusBar: TJvStatusBar
+ Top = 580
Width = 700
+ ExplicitTop = 580
ExplicitWidth = 700
end
inline frViewPedidosProveedor1: TfrViewPedidosProveedor [3]
Left = 0
Top = 102
Width = 700
- Height = 323
+ Height = 478
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -79,12 +85,12 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
ReadOnly = False
ExplicitTop = 102
ExplicitWidth = 700
- ExplicitHeight = 323
+ ExplicitHeight = 478
inherited cxGrid: TcxGrid
Width = 700
- Height = 195
+ Height = 350
ExplicitWidth = 700
- ExplicitHeight = 195
+ ExplicitHeight = 350
inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = <
item
@@ -118,15 +124,27 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
Width = 700
ExplicitWidth = 700
inherited txtFiltroTodo: TcxTextEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 457
Width = 457
end
inherited edtFechaIniFiltro: TcxDateEdit
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 240
Width = 240
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 371
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 371
ExplicitWidth = 294
Width = 294
@@ -146,8 +164,8 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
end
end
inherited pnlAgrupaciones: TTBXDockablePanel
- Top = 297
- ExplicitTop = 297
+ Top = 452
+ ExplicitTop = 452
ExplicitWidth = 700
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 700
@@ -179,10 +197,14 @@ inherited fEditorPedidosProveedor: TfEditorPedidosProveedor
ImageIndex = 21
end
inherited actPrevisualizar: TAction
- Visible = True
+ Enabled = False
end
inherited actImprimir: TAction
- Visible = True
+ Enabled = False
+ end
+ inherited actDuplicar: TAction
+ Enabled = False
+ Visible = False
end
inherited actAnchoAuto: TAction
ImageIndex = 22
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
index 99b8df54..7e868ac7 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
@@ -86,11 +86,17 @@ end;
procedure TfEditorPedidosProveedor.actRecibirPedidoExecute(Sender: TObject);
begin
-{
+
inherited;
// RecibirPedidoProv(FPedidos);
+
+ try
+ FController.CambiarSituacion(FPedidos, SITUACION_PEDIDO_RECIBIDO, Now);
+ except
+ on E : Exception do
+ ShowErrorMessage('Error al cambiar la situación del pedido', E.Message, E);
+ end;
actRefrescar.Execute;
-}
end;
procedure TfEditorPedidosProveedor.actRecibirPedidoUpdate(Sender: TObject);
@@ -99,7 +105,7 @@ begin
(Sender as TAction).Enabled := HayDatos and
not (ViewGrid.NumSeleccionados > 1) and
ViewGrid.esSeleccionCeldaDatos and
- (FPedidos.SITUACION <> SITUACION_PEDIDO_RECIBIDO);
+ (FPedidos.SITUACION = SITUACION_PEDIDO_PENDIENTE);
end;
constructor TfEditorPedidosProveedor.Create(AOwner: TComponent);
@@ -260,23 +266,8 @@ var
begin
inherited;
-
- Respuesta := JsNuevoPedidoProveedorDialog.Execute;
-
- if Respuesta <> IDCANCEL then
- begin
- case JsNuevoPedidoProveedorDialog.CustomButtonResult of
- 200 : begin // Utilizar un pedido
-// GenerarPedidosProv;
- actRefrescar.Execute;
- end;
- 100 : begin // Pedido nuevo vacio
- FController.Anadir(Pedidos);
- FController.Ver(Pedidos);
- end;
- end;
- end;
-
+ FController.Anadir(Pedidos);
+ FController.Ver(Pedidos);
end;
procedure TfEditorPedidosProveedor.PonerTitulos(const ATitulo: string);
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDocumentosPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewDocumentosPedidoProveedor.dfm
new file mode 100644
index 00000000..7ca67b48
--- /dev/null
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDocumentosPedidoProveedor.dfm
@@ -0,0 +1,2 @@
+inherited frViewDocumentosPedidoProveedor: TfrViewDocumentosPedidoProveedor
+end
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewDocumentosPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewDocumentosPedidoProveedor.pas
new file mode 100644
index 00000000..4d82b4af
--- /dev/null
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewDocumentosPedidoProveedor.pas
@@ -0,0 +1,100 @@
+unit uViewDocumentosPedidoProveedor;
+
+interface
+
+uses
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+ Dialogs, uViewDocumentos, ActnList,
+ TB2Item, TBX, TB2Dock, TB2Toolbar, cxControls, cxContainer,
+ uBizPedidosProveedor, uPedidosProveedorController, ImgList,
+ PngImageList, ComCtrls, Menus;
+
+type
+ IViewDocumentosPedidoProveedor = interface
+ ['{83AFBD29-750D-4564-ADAE-468BDBE4C424}']
+ function GetController : IPedidosProveedorController;
+ procedure SetController (const Value : IPedidosProveedorController);
+ property Controller : IPedidosProveedorController read GetController write SetController;
+
+ function GetPedido: IBizPedidoProveedor;
+ procedure SetPedido(const Value: IBizPedidoProveedor);
+ property Pedido: IBizPedidoProveedor read GetPedido write SetPedido;
+ end;
+
+ TfrViewDocumentosPedidoProveedor = class(TfrViewDocumentos, IViewDocumentosPedidoProveedor)
+ private
+ FController : IPedidosProveedorController;
+ FPedido: IBizPedidoProveedor;
+ function GetController : IPedidosProveedorController;
+ procedure SetController (const Value : IPedidosProveedorController);
+ function GetPedido: IBizPedidoProveedor;
+ procedure SetPedido(const Value: IBizPedidoProveedor);
+
+ protected
+ procedure Sincronizar; override;
+ function RecuperarFicheroServidor(const NombreFichero: String; const DirectorioDestino: String): Boolean; override;
+
+ public
+ property Controller : IPedidosProveedorController read GetController write SetController;
+ property Pedido: IBizPedidoProveedor read GetPedido write SetPedido;
+
+ end;
+
+var
+ frViewDocumentosPedidoProveedor: TfrViewDocumentosPedidoProveedor;
+
+implementation
+{$R *.dfm}
+
+{ TfrViewDocumentosContrato }
+
+function TfrViewDocumentosPedidoProveedor.GetController: IPedidosProveedorController;
+begin
+ Result := FController;
+end;
+
+function TfrViewDocumentosPedidoProveedor.GetPedido: IBizPedidoProveedor;
+begin
+ Result := FPedido;
+end;
+
+function TfrViewDocumentosPedidoProveedor.RecuperarFicheroServidor(const NombreFichero: String; const DirectorioDestino: String): Boolean;
+begin
+ inherited;
+ Result := Controller.GestorDocumentosController.DescargarFichero(Pedido.ID, NombreFichero, DirectorioDestino);
+end;
+
+procedure TfrViewDocumentosPedidoProveedor.SetController(const Value: IPedidosProveedorController);
+begin
+ FController := Value;
+end;
+
+procedure TfrViewDocumentosPedidoProveedor.SetPedido(const Value: IBizPedidoProveedor);
+begin
+ FPedido := Value;
+ //Inicializamos la lista de documentos local con los ficheros del servidor
+ if Assigned(FPedido) and Assigned(FController) then
+ ListaFicheros := Controller.GestorDocumentosController.DarListaDocumentos(Pedido.ID);
+
+ RefrescarVisualizador;
+end;
+
+procedure TfrViewDocumentosPedidoProveedor.Sincronizar;
+begin
+ inherited;
+
+//De momento el action actSincronizar con el servidor estará oculto y se activa, hay que tener en cuenta lo comentado
+{
+ if Contrato.EsNuevo then
+ begin
+ if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede sincronizar hasta que no se guarden.' + #10#13 +
+ '¿Desea guardarlos ahora?') = IDYES) then
+ actGuardar.Execute
+ else
+ ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
+ end;
+}
+ Controller.GestorDocumentosController.SincronizarDocumentos(Pedido.ID, ListaFicheros, Directorio);
+end;
+
+end.
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
index 8bfcc8ed..cc62fbd1 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.dfm
@@ -1,23 +1,25 @@
inherited frViewPedidoProveedor: TfrViewPedidoProveedor
- Width = 704
- Height = 467
+ Width = 693
+ Height = 293
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
- ExplicitWidth = 704
- ExplicitHeight = 467
+ ExplicitWidth = 693
+ ExplicitHeight = 293
object dxLayoutControl1: TdxLayoutControl
Left = 0
Top = 0
- Width = 704
- Height = 467
+ Width = 693
+ Height = 293
Align = alClient
ParentBackground = True
TabOrder = 0
TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
+ ExplicitWidth = 701
+ ExplicitHeight = 337
DesignSize = (
- 704
- 467)
+ 693
+ 293)
inline frViewProveedorPedido: TfrViewDatosYSeleccionProveedor
Left = 325
Top = 28
@@ -29,7 +31,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 10
+ TabOrder = 11
ReadOnly = False
ExplicitLeft = 325
ExplicitTop = 28
@@ -82,18 +84,18 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 283
end
inherited edtCodigoPostal: TcxDBTextEdit
- Left = 276
+ Left = 248
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
- ExplicitLeft = 276
+ ExplicitLeft = 248
ExplicitWidth = 71
Width = 71
end
inherited Button3: TBitBtn
- Left = 149
- ExplicitLeft = 149
+ Left = 121
+ ExplicitLeft = 121
end
end
end
@@ -125,10 +127,11 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
object edtFechaConfirmacion: TcxDBDateEdit
Left = 137
- Top = 195
+ Top = 249
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_CONFIRMACION'
DataBinding.DataSource = DADataSource
+ Enabled = False
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@@ -145,12 +148,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 7
+ TabOrder = 9
Width = 158
end
object edtFechaEntrega: TcxDBDateEdit
Left = 137
- Top = 222
+ Top = 82
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENTREGA'
DataBinding.DataSource = DADataSource
@@ -168,7 +171,7 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 8
+ TabOrder = 2
Width = 158
end
object eReferencia: TcxDBTextEdit
@@ -199,19 +202,20 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
inline frViewDireccionEntregaPedidoProv1: TfrViewDireccionEntregaPedidoProv
Left = 22
- Top = 279
+ Top = 306
Width = 273
Height = 166
+ Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 9
+ TabOrder = 10
ReadOnly = False
ExplicitLeft = 22
- ExplicitTop = 279
+ ExplicitTop = 306
ExplicitWidth = 273
ExplicitHeight = 166
inherited dxLayoutControl1: TdxLayoutControl
@@ -236,10 +240,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 238
end
inherited bModificar: TBitBtn
- Left = 135
- Top = 131
- ExplicitLeft = 135
- ExplicitTop = 131
+ Left = 118
+ Top = 109
+ ExplicitLeft = 118
+ ExplicitTop = 109
end
inherited txtDireccion: TStaticText
Width = 238
@@ -259,9 +263,10 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
object cbFormaPago: TcxDBLookupComboBox
Left = 137
- Top = 82
+ Top = 136
DataBinding.DataField = 'ID_FORMA_PAGO'
DataBinding.DataSource = DADataSource
+ Enabled = False
Properties.KeyFieldNames = 'ID'
Properties.ListColumns = <
item
@@ -288,24 +293,26 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 2
+ TabOrder = 4
Width = 20
end
object bFormasPago: TButton
Left = 163
- Top = 82
+ Top = 136
Width = 132
Height = 21
Caption = 'Ver las formas de pago...'
- TabOrder = 3
+ Enabled = False
+ TabOrder = 5
OnClick = bFormasPagoClick
end
object edtFechaEnvio: TcxDBDateEdit
Left = 137
- Top = 168
+ Top = 222
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_ENVIO'
DataBinding.DataSource = DADataSource
+ Enabled = False
Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
@@ -322,12 +329,12 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 6
+ TabOrder = 8
Width = 158
end
object eReferenciaPedidoCli: TcxTextEdit
Left = 137
- Top = 109
+ Top = 163
Anchors = [akLeft, akTop, akRight]
Enabled = False
Properties.ReadOnly = False
@@ -349,16 +356,17 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
- TabOrder = 4
+ TabOrder = 6
Width = 20
end
object Button1: TButton
Left = 163
- Top = 109
+ Top = 163
Width = 132
Height = 23
Action = actVerPedidoCli
- TabOrder = 5
+ Enabled = False
+ TabOrder = 7
end
inline frViewTienda1: TfrViewTienda
Left = 325
@@ -366,13 +374,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Width = 357
Height = 46
Align = alBottom
+ Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 11
+ TabOrder = 12
ReadOnly = False
ExplicitLeft = 325
ExplicitTop = 279
@@ -394,13 +403,14 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Top = 361
Width = 521
Height = 150
+ Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
- TabOrder = 12
+ TabOrder = 13
ReadOnly = False
ExplicitLeft = 325
ExplicitTop = 361
@@ -409,6 +419,32 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
DataBinding.DataSource = DADataSource
end
end
+ object edtlDescripcion: TcxDBTextEdit
+ Left = 137
+ Top = 109
+ Anchors = [akLeft, akTop, akRight]
+ AutoSize = False
+ DataBinding.DataField = 'DESCRIPCION_GENERAL'
+ DataBinding.DataSource = DADataSource
+ ParentFont = False
+ Properties.ReadOnly = False
+ Properties.UseLeftAlignmentOnEditing = False
+ Style.BorderColor = clWindowFrame
+ Style.BorderStyle = ebs3D
+ Style.HotTrack = False
+ Style.LookAndFeel.NativeStyle = True
+ Style.LookAndFeel.SkinName = ''
+ StyleDisabled.LookAndFeel.NativeStyle = True
+ StyleDisabled.LookAndFeel.SkinName = ''
+ StyleDisabled.TextColor = clWindowText
+ StyleFocused.LookAndFeel.NativeStyle = True
+ StyleFocused.LookAndFeel.SkinName = ''
+ StyleHot.LookAndFeel.NativeStyle = True
+ StyleHot.LookAndFeel.SkinName = ''
+ TabOrder = 3
+ Height = 21
+ Width = 283
+ end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
Hidden = True
@@ -434,11 +470,22 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
Control = edtFechaPedido
ControlOptions.ShowBorder = False
end
+ object dxLayoutControl1Item5: TdxLayoutItem
+ Caption = 'Entrega recepci'#243'n:'
+ Control = edtFechaEntrega
+ ControlOptions.ShowBorder = False
+ end
+ object dxLayoutControl1Item14: TdxLayoutItem
+ Caption = 'Descripci'#243'n:'
+ Control = edtlDescripcion
+ ControlOptions.ShowBorder = False
+ end
object dxLayoutControl1Group4: TdxLayoutGroup
ShowCaption = False
Hidden = True
ShowBorder = False
object dxLayoutControl1Group9: TdxLayoutGroup
+ Enabled = False
ShowCaption = False
Visible = False
Hidden = True
@@ -460,7 +507,9 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
end
object dxLayoutControl1Group10: TdxLayoutGroup
+ Enabled = False
ShowCaption = False
+ Visible = False
Hidden = True
LayoutDirection = ldHorizontal
ShowBorder = False
@@ -485,27 +534,26 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Situaci'#243'n del pedido'
+ Enabled = False
+ Visible = False
object dxLayoutControl1Item7: TdxLayoutItem
Caption = 'Enviado al prov. el d'#237'a:'
Control = edtFechaEnvio
ControlOptions.ShowBorder = False
end
object dxLayoutControl1Item4: TdxLayoutItem
- Caption = 'Confirmado el d'#237'a:'
+ Caption = 'Fecha recepci'#243'n:'
Control = edtFechaConfirmacion
ControlOptions.ShowBorder = False
end
- object dxLayoutControl1Item5: TdxLayoutItem
- Caption = 'Entrega prevista:'
- Control = edtFechaEntrega
- ControlOptions.ShowBorder = False
- end
end
object dxLayoutControl1Group8: TdxLayoutGroup
AutoAligns = []
AlignHorz = ahClient
AlignVert = avClient
Caption = 'Direcci'#243'n de entrega'
+ Enabled = False
+ Visible = False
object dxLayoutControl1Item8: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
@@ -537,6 +585,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
end
object dxLayoutControl1Group11: TdxLayoutGroup
Caption = 'El pedido pertenece a la tienda'
+ Enabled = False
+ Visible = False
object dxLayoutControl1Item13: TdxLayoutItem
Control = frViewTienda1
ControlOptions.AutoColor = True
@@ -547,6 +597,8 @@ inherited frViewPedidoProveedor: TfrViewPedidoProveedor
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Observaciones'
+ Enabled = False
+ Visible = False
object dxLayoutControl1Item6: TdxLayoutItem
AutoAligns = []
AlignHorz = ahClient
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas
index e2888fe7..d48db692 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidoProveedor.pas
@@ -75,6 +75,8 @@ type
dxLayoutControl1Group11: TdxLayoutGroup;
frViewObservaciones1: TfrViewObservaciones;
dxLayoutControl1Item6: TdxLayoutItem;
+ dxLayoutControl1Item14: TdxLayoutItem;
+ edtlDescripcion: TcxDBTextEdit;
procedure CustomViewCreate(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject);
procedure bFormasPagoClick(Sender: TObject);
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
index 9365c85f..689335c7 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.dfm
@@ -64,6 +64,8 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
object cxGridViewTIENDA: TcxGridDBColumn
Caption = 'Tienda'
DataBinding.FieldName = 'TIENDA'
+ Visible = False
+ VisibleForCustomization = False
end
object cxGridViewREFERENCIA: TcxGridDBColumn
Caption = 'Referencia'
@@ -74,60 +76,26 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
DataBinding.FieldName = 'SITUACION'
Width = 56
end
+ object cxGridViewDESCRIPCION_GENERAL: TcxGridDBColumn
+ Caption = 'Descripci'#243'n'
+ DataBinding.FieldName = 'DESCRIPCION_GENERAL'
+ PropertiesClassName = 'TcxTextEditProperties'
+ end
object cxGridViewFECHA_PEDIDO: TcxGridDBColumn
+ Caption = 'Fecha pedido'
DataBinding.FieldName = 'FECHA_PEDIDO'
Width = 46
end
- object cxGridViewFECHA_ENVIO: TcxGridDBColumn
- DataBinding.FieldName = 'FECHA_ENVIO'
- Width = 57
+ object cxGridViewFECHA_ENTREGA: TcxGridDBColumn
+ Caption = 'Fecha recepci'#243'n'
+ DataBinding.FieldName = 'FECHA_ENTREGA'
+ Width = 47
end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Proveedor'
DataBinding.FieldName = 'NOMBRE'
Width = 58
end
- object cxGridViewFECHA_CONFIRMACION: TcxGridDBColumn
- DataBinding.FieldName = 'FECHA_CONFIRMACION'
- Width = 57
- end
- object cxGridViewFECHA_ENTREGA: TcxGridDBColumn
- DataBinding.FieldName = 'FECHA_ENTREGA'
- Width = 47
- end
- object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
- DataBinding.FieldName = 'NOMBRE_ALMACEN'
- Width = 48
- end
- object cxGridViewCALLE: TcxGridDBColumn
- DataBinding.FieldName = 'CALLE'
- Visible = False
- end
- object cxGridViewPOBLACION: TcxGridDBColumn
- DataBinding.FieldName = 'POBLACION'
- Visible = False
- end
- object cxGridViewPROVINCIA: TcxGridDBColumn
- DataBinding.FieldName = 'PROVINCIA'
- Visible = False
- end
- object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
- DataBinding.FieldName = 'CODIGO_POSTAL'
- Visible = False
- end
- object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
- DataBinding.FieldName = 'PERSONA_CONTACTO'
- Visible = False
- end
- object cxGridViewTELEFONO: TcxGridDBColumn
- DataBinding.FieldName = 'TELEFONO'
- Visible = False
- end
- object cxGridViewREF_PED_CLIENTE: TcxGridDBColumn
- Caption = 'Ref. pedido cli.'
- DataBinding.FieldName = 'REF_PED_CLIENTE'
- Width = 41
- end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL'
@@ -137,6 +105,61 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
HeaderAlignmentHorz = taRightJustify
Width = 94
end
+ object cxGridViewNOMBRE_ALMACEN: TcxGridDBColumn
+ DataBinding.FieldName = 'NOMBRE_ALMACEN'
+ Visible = False
+ VisibleForCustomization = False
+ Width = 48
+ end
+ object cxGridViewCALLE: TcxGridDBColumn
+ DataBinding.FieldName = 'CALLE'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewPOBLACION: TcxGridDBColumn
+ DataBinding.FieldName = 'POBLACION'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewPROVINCIA: TcxGridDBColumn
+ DataBinding.FieldName = 'PROVINCIA'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewCODIGO_POSTAL: TcxGridDBColumn
+ DataBinding.FieldName = 'CODIGO_POSTAL'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewPERSONA_CONTACTO: TcxGridDBColumn
+ DataBinding.FieldName = 'PERSONA_CONTACTO'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewTELEFONO: TcxGridDBColumn
+ DataBinding.FieldName = 'TELEFONO'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewREF_PED_CLIENTE: TcxGridDBColumn
+ Caption = 'Ref. pedido cli.'
+ DataBinding.FieldName = 'REF_PED_CLIENTE'
+ Visible = False
+ VisibleForCustomization = False
+ Width = 41
+ end
+ object cxGridViewFECHA_ENVIO: TcxGridDBColumn
+ DataBinding.FieldName = 'FECHA_ENVIO'
+ Visible = False
+ VisibleForCustomization = False
+ Width = 57
+ end
+ object cxGridViewFECHA_CONFIRMACION: TcxGridDBColumn
+ DataBinding.FieldName = 'FECHA_CONFIRMACION'
+ Visible = False
+ VisibleForCustomization = False
+ Width = 57
+ end
end
object cxGridDBTableView1: TcxGridDBTableView [1]
NavigatorButtons.ConfirmDelete = False
@@ -152,6 +175,7 @@ inherited frViewPedidosProveedor: TfrViewPedidosProveedor
end
object cxGridLevel2: TcxGridLevel
Caption = 'Parcialmente recibidos'
+ Visible = False
end
object cxGridLevel3: TcxGridLevel
Caption = 'Recibidos'
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
index fc4e0d61..35c445e6 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
+++ b/Source/Modulos/Pedidos a proveedor/Views/uViewPedidosProveedor.pas
@@ -13,7 +13,7 @@ uses
cxGrid,
uBizPedidosProveedor, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList,
TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces,
- uCustomView, uViewBase;
+ uCustomView, uViewBase, cxTextEdit;
type
IViewPedidosProveedor = interface(IViewGrid)
@@ -57,6 +57,7 @@ type
TBXItem3: TTBXItem;
TBXSeparatorItem2: TTBXSeparatorItem;
cxGridViewTIENDA: TcxGridDBColumn;
+ cxGridViewDESCRIPCION_GENERAL: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel);
procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
index 488a1d68..49daff2d 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
@@ -197,7 +197,7 @@ uses
uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App, uConfiguracionController,
schPresupuestosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPresupuestoCliente,
uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente,
- schContactosClient_Intf, uPresupuestosClienteReportController,
+ schContactosClient_Intf, uPresupuestosClienteReportController, FactuGES_Intf,
uSistemaFunc, uEMailUtils, uDialogElegirEMail, Dialogs, uStringsUtils;
{ TPresupuestosClienteController }
@@ -399,6 +399,7 @@ begin
//GESTION_DOCUMENTOS
FGestorDocumentosController := TGestorDocumentosController.Create;
+ FGestorDocumentosController.Almacen := TRdxAlmacenes_Presupuestos;
FDetallesController.addObservador(Self);
end;
diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index 4f58ee60..fe759335 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -927,6 +927,8 @@
+
+
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index ac7789e1..289faec7 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -99,7 +99,7 @@ type
{ Enumerateds }
- TRdxAlmacenes = (TRdxAlmacenes_Presupuestos);
+ TRdxAlmacenes = (TRdxAlmacenes_Presupuestos,TRdxAlmacenes_PedidosProveedor);
{ TRdxLoginInfo }
TRdxLoginInfo = class(TROComplexType)
diff --git a/Source/Servicios/RODLFile.res b/Source/Servicios/RODLFile.res
index c54c5103..e6b058e2 100644
Binary files a/Source/Servicios/RODLFile.res and b/Source/Servicios/RODLFile.res differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 7491af2b..ea106b20 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -118,8 +118,6 @@ uses
schAlbaranesProveedorServer_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas',
schInventarioClient_Intf in '..\Modulos\Inventario\Model\schInventarioClient_Intf.pas',
schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
- schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
- schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
@@ -137,7 +135,9 @@ uses
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
- schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas';
+ schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
+ schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
+ schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index bf30d232..f8851980 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,294 +1,307 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
-
-
- Delphi.Personality
-
-
- FalseTrueFalseTrueFalse2600FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.0.0FactuGES (Servidor)2.6.0.0lunes, 24 de noviembre de 2014 12:51
- File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
- FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
- TRORemoteDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+
+
+ Delphi.Personality
+
+
+FalseTrueFalseTrueFalse2600FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.6.0.0FactuGES (Servidor)2.6.0.0lunes, 24 de noviembre de 2014 12:51
+
+
+
+
+
+
+
+
+
+
+
+
+
+ File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found
+ FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+ TRORemoteDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+