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

repaso final de todos lo datos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@29 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2010-08-19 19:08:32 +00:00
parent 9026a99c1c
commit 10410961ab
57 changed files with 2421 additions and 428 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,6 +8,18 @@ uses
type
IEditorAlbaranesClientePreview = interface(IEditorPreview)
['{F58BF987-28EB-485A-B953-55BDEEBE2C91}']
function GetVerPrecios: Boolean;
function GetVerRefProveedor: Boolean;
function GetVerIncidencias: Boolean;
function GetVerObservaciones: Boolean;
procedure SetVerPrecios(const Value: Boolean);
procedure SetVerRefProveedor(const Value: Boolean);
procedure SetObservaciones(const Value: Boolean);
procedure SetVerIncidencias(const Value: Boolean);
property VerPrecios : Boolean read GetVerPrecios write SetVerPrecios;
property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor;
property VerObservaciones : Boolean read GetVerObservaciones write SetObservaciones;
property VerIncidencias : Boolean read GetVerIncidencias write SetVerIncidencias;
end;

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

@ -47,8 +47,12 @@ type
function ExtraerSeleccionados(AAlbaran: IBizAlbaranCliente) : IBizAlbaranCliente;
function ElegirAlbaranes(AAlbaran: IBizAlbaranCliente; AMensaje: String; AMultiSelect: Boolean): IBizAlbaranCliente;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -147,8 +151,12 @@ type
AFechaRecibido : TDateTime = 0;
DoPost: Boolean = True) : Boolean;
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false);
procedure Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
procedure EtiquetasPrint(AAlbaran : IBizAlbaranCliente; Const withRefCliente: Boolean);
@ -1054,7 +1062,10 @@ begin
end;
end;
procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false);
procedure TAlbaranesClienteController.Preview(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TIntegerList;
@ -1082,7 +1093,7 @@ begin
else
ID_Albaranes.Add(AAlbaran.ID);
AReportController.Preview(ID_Albaranes);
AReportController.Preview(ID_Albaranes, VerImprimirPrecios, VerImprimirRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
finally
AReportController := NIL;
@ -1090,7 +1101,9 @@ begin
end;
end;
procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false);
procedure TAlbaranesClienteController.Print(AAlbaran : IBizAlbaranCliente; AllItems: Boolean = false;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AReportController : IAlbaranesClienteReportController;
ID_Albaranes: TIntegerList;
@ -1116,7 +1129,7 @@ begin
else
ID_Albaranes.Add(AAlbaran.ID);
AReportController.Print(ID_Albaranes);
AReportController.Print(ID_Albaranes, VerImprimirPrecios, VerImprimirRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
finally
AReportController := NIL;

32
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
View File

@ -10,8 +10,12 @@ uses
type
IAlbaranesClienteReportController = interface(IControllerBase)
['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
procedure Preview(const AListaID : TIntegerList);
procedure Print(const AListaID : TIntegerList);
procedure Preview(const AListaID : TIntegerList;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(const AListaID : TIntegerList;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
@ -27,8 +31,12 @@ type
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList);
procedure Print(const AListaID : TIntegerList);
procedure Preview(const AListaID : TIntegerList;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
procedure Print(const AListaID : TIntegerList;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean);
@ -168,7 +176,10 @@ begin
end;
end;
procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList);
procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AStream: Binary;
AEditor : IEditorAlbaranesClientePreview;
@ -177,7 +188,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptAlbaranes(AListaID);
AStream := FDataModule.GetRptAlbaranes(AListaID, VerImprimirPrecios, VerImprimirRefProveedor, VerImprimirObservaciones, VerImprimirIncidencias);
try
CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
if Assigned(AEditor) then
@ -185,6 +196,10 @@ begin
try
AEditor.Controller := Self;
AEditor.ListaID := AListaID;
AEditor.VerPrecios := VerImprimirPrecios;
AEditor.VerRefProveedor := VerImprimirRefProveedor;
AEditor.VerPrecios := VerImprimirObservaciones;
AEditor.VerRefProveedor := VerImprimirIncidencias;
AEditor.Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE;
AEditor.LoadFromStream(AStream);
AEditor.Preview;
@ -201,7 +216,10 @@ begin
end;
end;
procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList);
procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList;
const VerImprimirPrecios: Boolean = False; const VerImprimirRefProveedor: Boolean = False;
const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
var
AStream: Binary;
AEditor : IEditorAlbaranesClientePreview;

23
Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
View File

@ -36,12 +36,16 @@ type
function NewItem : IBizAlbaranCliente;
// Report
function GetRptAlbaranes(const ListaID: TIntegerList): Binary;
function GetRptAlbaranes(const ListaID: TIntegerList;
const VerPrecios: Boolean = False; const VerRefProveedor: Boolean = False;
const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
function GetRptWordAlbaran(const AID: Integer): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
function GetRptPDFAlbaran(const AID: Integer): Binary;
function GetRptPDFAlbaran(const AID: Integer;
const VerPrecios: Boolean = False; const VerRefProveedor: Boolean = False;
const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
function GetAnosItems : TStringList;
function GetAnosItems : TStringList;
end;
implementation
@ -65,27 +69,30 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList): Binary;
function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList;
const VerPrecios: Boolean = False; const VerRefProveedor: Boolean = False;
const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
var
AParam : TIntegerArray;
begin
AParam := ListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam);
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios, VerRefProveedor, VerObservaciones, VerIncidencias);
finally
FreeAndNil(AParam);
end;
end;
function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(
const AID: Integer): Binary;
function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(const AID: Integer;
const VerPrecios: Boolean = False; const VerRefProveedor: Boolean = False;
const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
var
AParam : TIntegerArray;
begin
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam);
Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam, VerPrecios, VerRefProveedor, VerObservaciones, VerIncidencias);
finally
FreeAndNil(AParam);
end;

8
Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
View File

@ -8,9 +8,13 @@ uses
type
IDataModuleAlbaranesClienteReport = interface
['{42C55204-5AB9-403E-8385-1A62B02D8234}']
function GetRptAlbaranes(const AListaID: TIntegerList): Binary;
function GetRptAlbaranes(const ListaID: TIntegerList;
const VerPrecios: Boolean = False; const VerRefProveedor: Boolean = False;
const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
function GetRptWordAlbaran(const AID: Integer): Binary;
function GetRptPDFAlbaran(const AID: Integer): Binary;
function GetRptPDFAlbaran(const AID: Integer;
const VerPrecios: Boolean = False; const VerRefProveedor: Boolean = False;
const VerObservaciones: Boolean = False; const VerIncidencias: Boolean = False): Binary;
function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
end;

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

@ -59,18 +59,29 @@ type
tbl_Cabecera: TDAMemDataTable;
tbl_Detalles: TDAMemDataTable;
frxPDFExport1: TfrxPDFExport;
schReport: TDASchema;
DABin2DataStreamer1: TDABin2DataStreamer;
schReport: TDASchema;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
procedure frxReportGetValue(const VarName: string; var Value: Variant);
private
FConnection: IDAConnection;
FVerLogotipo : Boolean;
FVerPrecios : Boolean;
FVerRefProveedor : Boolean;
FVerObservaciones : Boolean;
FVerIncidencias : Boolean;
//Genera cada uno de los albaranes a imprimir
procedure _GenerarAlbaran(const AID: Integer);
public
function GenerarAlbaran(const AListaID : TIntegerArray): Binary;
function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
function GenerarAlbaranEnPDF(const ListaID : TIntegerArray): Binary;
function GenerarAlbaran(const AListaID : TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
function GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
end;
implementation
@ -87,7 +98,6 @@ const
{ Dataset names for schReport }
ds_InformeCabecera = 'Informe_Cabecera';
ds_InformeDetalles = 'Informe_Detalles';
ds_InformeDetallesEtiquetas = 'Informe_Detalles_Etiquetas';
{ TRptAlbaranesCliente }
@ -112,11 +122,33 @@ begin
tbl_Detalles.Active := False;
end;
function TRptAlbaranesCliente.GenerarAlbaran(const AListaID : TIntegerArray): Binary;
procedure TRptAlbaranesCliente.frxReportGetValue(const VarName: string;
var Value: Variant);
begin
if VarName = 'ShowLogotipo' then
Value := FVerLogotipo;
if VarName = 'VerPrecios' then
Value := FVerPrecios;
if VarName = 'VerRefProveedor' then
Value := FVerREfProveedor;
if VarName = 'VerObservaciones' then
Value := FVerObservaciones;
if VarName = 'VerIncidencias' then
Value := FVerIncidencias;
end;
function TRptAlbaranesCliente.GenerarAlbaran(const AListaID : TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
var
i: Integer;
begin
Result := Binary.Create;
FVerLogotipo := True;
FVerPrecios := VerPrecios;
FVerRefProveedor := VerRefProveedor;
FVerObservaciones := VerObservaciones;
FVerIncidencias := VerIncidencias;
try
//Vamos generando todos y cada uno de los albaranes recibidos
for i := 0 to AListaID.Count - 1 do
@ -126,12 +158,18 @@ begin
end;
end;
function TRptAlbaranesCliente.GenerarAlbaranEnPDF(
const ListaID: TIntegerArray): Binary;
function TRptAlbaranesCliente.GenerarAlbaranEnPDF(const ListaID : TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
var
i: Integer;
begin
Result := Binary.Create;
FVerLogotipo := True;
FVerPrecios := VerPrecios;
FVerRefProveedor := VerRefProveedor;
FVerObservaciones := VerObservaciones;
FVerIncidencias := VerIncidencias;
try
//Vamos generando todos y cada uno de los presupuestos recibidos
for i := 0 to ListaID.Count - 1 do
@ -171,40 +209,38 @@ begin
end;
function TRptAlbaranesCliente.GenerarEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
{var
dsMaster: IDADataset;
dsDetail: IDADataset;
AStream: TMemoryStream;}
var
AInforme: Variant;
begin
Result := NIL;
{
AStream := TMemoryStream.Create;
Result := Binary.Create;
FConnection.BeginTransaction;
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
try
dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [AID]);
dsDetail := schReport.NewDataset(FConnection, ds_InformeDetallesEtiquetas, ['ID_ALBARAN'], [AID], False);
tbl_Cabecera.Active := False;
tbl_Detalles.Active := False;
AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
tbl_Cabecera.ParamByName('ID').AsInteger := AID;
tbl_Detalles.ParamByName('ID_ALBARAN').AsInteger := AID;
AStream.Clear;
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
tbl_Cabecera.Active := True;
tbl_Detalles.Active := True;
frxReport.LoadFromFile(DarRutaInformes + rptInfEtiquetas, True);
AInforme := DarRutaFichero(DarRutaInformes, rptInfEtiquetas, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: GenerarEtiquetas, no encuentra informe ' + rptInforme));
frxReport.LoadFromFile(AInforme, True);
if withRefCliente then
frxReport.Variables.Variables['withRefCliente'] := 1
else
frxReport.Variables.Variables['withRefCliente'] := 0;
frxReport.PrepareReport(False);
frxReport.PreviewPages.SaveToStream(Result);
finally
AStream.Free;
FConnection.RollbackTransaction;
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
end;
}
end;
end.

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

@ -32,10 +32,13 @@ type
procedure DARemoteServiceCreate(Sender: TObject);
protected
{ IsrvAlbaranesCliente methods }
function GenerarInforme(const ListaID: TIntegerArray): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
function GenerarInformeEnWord(const ID: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
end;
implementation
@ -78,41 +81,41 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
function TsrvAlbaranesCliente.GenerarInformeEnPDF(
const ListaID: TIntegerArray): Binary;
function TsrvAlbaranesCliente.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
var
AReportGenerator : TRptAlbaranesCliente;
begin
AReportGenerator := TRptAlbaranesCliente.Create(nil);
try
Result := AReportGenerator.GenerarAlbaranEnPDF(ListaID);
Result := AReportGenerator.GenerarAlbaranEnPDF(ListaID, VerPrecios, VerRefProveedor, VerObservaciones, VerIncidencias);
finally
FreeAndNIL(AReportGenerator);
end;
end;
function TsrvAlbaranesCliente.GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
//var
// AReportGenerator : TRptAlbaranesCliente;
var
AReportGenerator : TRptAlbaranesCliente;
begin
Result := NIL;
{
AReportGenerator := TRptAlbaranesCliente.Create(nil);
try
Result := AReportGenerator.GenerarEtiquetas(ID, withRefCliente);
finally
FreeAndNIL(AReportGenerator);
end;
}
end;
function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray): Binary;
function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
var
AReportGenerator : TRptAlbaranesCliente;
begin
AReportGenerator := TRptAlbaranesCliente.Create(nil);
try
Result := AReportGenerator.GenerarAlbaran(ListaID);
Result := AReportGenerator.GenerarAlbaran(ListaID, VerPrecios, VerRefProveedor, VerObservaciones, VerIncidencias);
finally
FreeAndNIL(AReportGenerator);
end;

62
Source/Modulos/Albaranes de cliente/Views/uDialogOpcionesImpresionAlbaranesCliente.pas Normal file
View File

@ -0,0 +1,62 @@
unit uDialogOpcionesImpresionAlbaranesCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls;
type
TfDialogOpcionesImpresionAlbaranesCliente = class(TfDialogBase)
cbVerPrecios: TCheckBox;
cbVerRefProveedor: TCheckBox;
cbVerIncidencias: TCheckBox;
cbVerObservaciones: TCheckBox;
procedure actAceptarExecute(Sender: TObject);
procedure actCancelarExecute(Sender: TObject);
end;
function ElegirOpcionesImpresionAlbaranCliente(var AVerPrecios : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
implementation
{$R *.dfm}
function ElegirOpcionesImpresionAlbaranCliente(var AVerPrecios : Boolean; var AVerRefProveedor : Boolean; var AVerObservaciones : Boolean; var AVerIncidencias : Boolean): Boolean;
var
AEditor : TfDialogOpcionesImpresionAlbaranesCliente;
begin
AEditor := TfDialogOpcionesImpresionAlbaranesCliente.Create(NIL);
try
AEditor.cbVerPrecios.Checked := AVerPrecios;
AEditor.cbVerRefProveedor.Checked := AVerRefProveedor;
AEditor.cbVerObservaciones.Checked := AVerObservaciones;
AEditor.cbVerIncidencias.Checked := AVerIncidencias;
Result := (AEditor.ShowModal = mrOk);
if Result then
begin
AVerPrecios := AEditor.cbVerPrecios.Checked;
AVerRefProveedor := AEditor.cbVerRefProveedor.Checked;
AVerObservaciones := AEditor.cbVerObservaciones.Checked;
AVerIncidencias := AEditor.cbVerIncidencias.Checked;
end;
finally
AEditor.Release;
end;
end;
procedure TfDialogOpcionesImpresionAlbaranesCliente.actAceptarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrOk
end;
procedure TfDialogOpcionesImpresionAlbaranesCliente.actCancelarExecute(Sender: TObject);
begin
inherited;
ModalResult := mrCancel;
end;
end.

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

@ -86,7 +86,7 @@ implementation
uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, schAlbaranesClienteClient_Intf, uDialogUtils,
uEditorDBBase, uDataTableUtils, uFactuGES_App;
uEditorDBBase, uDataTableUtils, uFactuGES_App, uDialogOpcionesImpresionAlbaranesCliente;
{$R *.dfm}
@ -241,9 +241,21 @@ begin
end;
procedure TfEditorAlbaranCliente.ImprimirInterno;
var
FImprimirPrecios : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin
inherited;
FController.Print(FAlbaran);
FImprimirPrecios := True;
FImprimirRefProveedor := True;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if ElegirOpcionesImpresionAlbaranCliente(FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Print(Albaran, False, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
procedure TfEditorAlbaranCliente.OnClienteChanged(Sender: TObject);
@ -323,9 +335,21 @@ begin
end;
procedure TfEditorAlbaranCliente.PrevisualizarInterno;
var
FImprimirPrecios : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin
inherited;
FController.Preview(FAlbaran);
FImprimirPrecios := True;
FImprimirRefProveedor := True;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if ElegirOpcionesImpresionAlbaranCliente(FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Preview(Albaran, False, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
procedure TfEditorAlbaranCliente.RecalcularPortePorUnidad;

31
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -96,7 +96,7 @@ uses
uDialogUtils, schAlbaranesClienteClient_Intf,
// uFacturasClienteController, uBizFacturasCliente,
// uInventarioController, uGenerarAlbaranesCliUtils,
uEditorBase,
uEditorBase, uDialogOpcionesImpresionAlbaranesCliente,
cxCustomData, uGridStatusUtils, uDBSelectionListUtils;
{$R *.dfm}
@ -166,7 +166,7 @@ end;
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasExecute(Sender: TObject);
begin
{
inherited;
//Miramos si viene de un pedido previo, si no es asi le preguntamos si desea imprimir la referencia del cliente
if (FAlbaranes.ID_PEDIDO > 0) then
@ -178,7 +178,6 @@ begin
else
FController.EtiquetasPreview(FAlbaranes, False);
end;
}
end;
procedure TfEditorAlbaranesCliente.actGenerarEtiquetasUpdate(Sender: TObject);
@ -406,11 +405,18 @@ var
Respuesta : Integer;
AAlbaranes: IBizAlbaranCliente;
AllItems: Boolean;
FImprimirPrecios : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin
AAlbaranes := Nil;
AllItems := False;
FImprimirPrecios := True;
FImprimirRefProveedor := True;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
@ -437,7 +443,8 @@ begin
AAlbaranes := Albaranes;
if Assigned(AAlbaranes) then
FController.Print(AAlbaranes, AllItems);
if ElegirOpcionesImpresionAlbaranCliente(FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Print(AAlbaranes, AllItems, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
end;
end;
@ -495,9 +502,18 @@ var
Respuesta : Integer;
AAlbaranes: IBizAlbaranCliente;
AllItems: Boolean;
FImprimirPrecios : Boolean;
FImprimirRefProveedor : Boolean;
FImprimirObservaciones: Boolean;
FImprimirIncidencias: Boolean;
begin
AAlbaranes := Nil;
AllItems := False;
FImprimirPrecios := True;
FImprimirRefProveedor := True;
FImprimirObservaciones := False;
FImprimirIncidencias := False;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
@ -514,7 +530,7 @@ begin
200 : begin // Lista de elementos visibles
inherited;
end;
100 : begin // Elemento Seleccionado
100, 101 : begin // Elemento Seleccionado
if AllItems then
begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Albaranes as ISeleccionable).SelectedRecords);
@ -524,7 +540,8 @@ begin
AAlbaranes := Albaranes;
if Assigned(AAlbaranes) then
FController.Preview(AAlbaranes, AllItems);
if ElegirOpcionesImpresionAlbaranCliente(FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias) then
FController.Preview(AAlbaranes, AllItems, FImprimirPrecios, FImprimirRefProveedor, FImprimirObservaciones, FImprimirIncidencias);
end;
end;
end;

62
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas
View File

@ -18,6 +18,25 @@ type
TfEditorAlbaranesClientePreview = class(TfEditorPreview, IEditorAlbaranesClientePreview)
TBXItem58: TTBXItem;
procedure actExportarRTFExecute(Sender: TObject);
private
FVerPrecios : Boolean;
FVerRefProveedor : Boolean;
FVerObservaciones : Boolean;
FVerIncidencias : Boolean;
function GetVerPrecios: Boolean;
function GetVerRefProveedor: Boolean;
function GetVerIncidencias: Boolean;
function GetVerObservaciones: Boolean;
procedure SetVerPrecios(const Value: Boolean);
procedure SetVerRefProveedor(const Value: Boolean);
procedure SetObservaciones(const Value: Boolean);
procedure SetVerIncidencias(const Value: Boolean);
{ Private declarations }
public
property VerPrecios : Boolean read GetVerPrecios write SetVerPrecios;
property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor;
property VerObservaciones : Boolean read GetVerObservaciones write SetObservaciones;
property VerIncidencias : Boolean read GetVerIncidencias write SetVerIncidencias;
end;
@ -42,4 +61,47 @@ begin
ShowInfoMessage('El albarán se ha exportado correctamente.');
end;
function TfEditorAlbaranesClientePreview.GetVerIncidencias: Boolean;
begin
Result := FVerIncidencias;
end;
function TfEditorAlbaranesClientePreview.GetVerObservaciones: Boolean;
begin
Result := FVerObservaciones;
end;
function TfEditorAlbaranesClientePreview.GetVerPrecios: Boolean;
begin
Result := FVerPrecios;
end;
function TfEditorAlbaranesClientePreview.GetVerRefProveedor: Boolean;
begin
Result := FVerRefProveedor;
end;
procedure TfEditorAlbaranesClientePreview.SetObservaciones(
const Value: Boolean);
begin
FVerObservaciones := Value;
end;
procedure TfEditorAlbaranesClientePreview.SetVerIncidencias(
const Value: Boolean);
begin
FVerIncidencias := Value;
end;
procedure TfEditorAlbaranesClientePreview.SetVerPrecios(const Value: Boolean);
begin
FVerPrecios := Value;
end;
procedure TfEditorAlbaranesClientePreview.SetVerRefProveedor(
const Value: Boolean);
begin
FVerRefProveedor := Value;
end;
end.

4
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -614,8 +614,8 @@ begin
REFERENCIA := '';
ID_PEDIDO := 0;
ID_FACTURA := 0;
ID_ALBARAN := 0;
REFERENCIA_ALBARAN := '';
// ID_ALBARAN := 0;
// REFERENCIA_ALBARAN := '';
end;
Result.Post;
finally

306
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorClient_Intf.pas
View File

@ -3,15 +3,15 @@ unit schAlbaranesProveedorClient_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_ListaAnosAlbaranes = '{E3A2ED3A-F249-4ABE-8A74-10FE9BD3248E}';
RID_AlbaranesProveedor = '{70F52AD0-4120-42C8-B8C9-002C650CD667}';
RID_AlbaranesProveedor_Detalles = '{858DC56E-F6E9-4CBD-A42B-4D4C1B386F17}';
RID_ListaAnosAlbaranes = '{67FE3121-0CE7-44D8-ACA8-DD41FC61C261}';
RID_AlbaranesProveedor = '{35158E6A-D01B-419D-A2EA-50F406DE673F}';
RID_AlbaranesProveedor_Detalles = '{058C3E31-7243-4BF5-82E7-4DAE76DDB637}';
{ Data table names }
nme_ListaAnosAlbaranes = 'ListaAnosAlbaranes';
@ -35,6 +35,10 @@ const
fld_AlbaranesProveedorREFERENCIA = 'REFERENCIA';
fld_AlbaranesProveedorREFERENCIA_PROVEEDOR = 'REFERENCIA_PROVEEDOR';
fld_AlbaranesProveedorTIPO = 'TIPO';
fld_AlbaranesProveedorID_ALBARAN_DEV = 'ID_ALBARAN_DEV';
fld_AlbaranesProveedorREFERENCIA_ALB_DEV = 'REFERENCIA_ALB_DEV';
fld_AlbaranesProveedorID_FAC_ALB_DEV = 'ID_FAC_ALB_DEV';
fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV = 'REFERENCIA_FAC_ALB_DEV';
fld_AlbaranesProveedorID_ALMACEN = 'ID_ALMACEN';
fld_AlbaranesProveedorTIPO_ALMACEN = 'TIPO_ALMACEN';
fld_AlbaranesProveedorNOMBRE_ALMACEN = 'NOMBRE_ALMACEN';
@ -64,8 +68,8 @@ const
fld_AlbaranesProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_AlbaranesProveedorUSUARIO = 'USUARIO';
fld_AlbaranesProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_AlbaranesProveedorID_ALBARAN = 'ID_ALBARAN';
fld_AlbaranesProveedorREFERENCIA_ALBARAN = 'REFERENCIA_ALBARAN';
fld_AlbaranesProveedorNUM_COPIAS = 'NUM_COPIAS';
fld_AlbaranesProveedorNUM_CORREOS = 'NUM_CORREOS';
{ AlbaranesProveedor field indexes }
idx_AlbaranesProveedorID = 0;
@ -78,37 +82,41 @@ const
idx_AlbaranesProveedorREFERENCIA = 7;
idx_AlbaranesProveedorREFERENCIA_PROVEEDOR = 8;
idx_AlbaranesProveedorTIPO = 9;
idx_AlbaranesProveedorID_ALMACEN = 10;
idx_AlbaranesProveedorTIPO_ALMACEN = 11;
idx_AlbaranesProveedorNOMBRE_ALMACEN = 12;
idx_AlbaranesProveedorID_PEDIDO = 13;
idx_AlbaranesProveedorREF_PED_PROVEEDOR = 14;
idx_AlbaranesProveedorID_FACTURA = 15;
idx_AlbaranesProveedorREF_FACTURA = 16;
idx_AlbaranesProveedorREF_FACTURA_PROV = 17;
idx_AlbaranesProveedorCALLE = 18;
idx_AlbaranesProveedorCODIGO_POSTAL = 19;
idx_AlbaranesProveedorPOBLACION = 20;
idx_AlbaranesProveedorPROVINCIA = 21;
idx_AlbaranesProveedorPERSONA_CONTACTO = 22;
idx_AlbaranesProveedorTELEFONO = 23;
idx_AlbaranesProveedorIMPORTE_NETO = 24;
idx_AlbaranesProveedorIMPORTE_PORTE = 25;
idx_AlbaranesProveedorDESCUENTO = 26;
idx_AlbaranesProveedorIMPORTE_DESCUENTO = 27;
idx_AlbaranesProveedorBASE_IMPONIBLE = 28;
idx_AlbaranesProveedorIVA = 29;
idx_AlbaranesProveedorIMPORTE_IVA = 30;
idx_AlbaranesProveedorIMPORTE_TOTAL = 31;
idx_AlbaranesProveedorOBSERVACIONES = 32;
idx_AlbaranesProveedorINCIDENCIAS = 33;
idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 34;
idx_AlbaranesProveedorFECHA_ALTA = 35;
idx_AlbaranesProveedorFECHA_MODIFICACION = 36;
idx_AlbaranesProveedorUSUARIO = 37;
idx_AlbaranesProveedorID_FORMA_PAGO = 38;
idx_AlbaranesProveedorID_ALBARAN = 39;
idx_AlbaranesProveedorREFERENCIA_ALBARAN = 40;
idx_AlbaranesProveedorID_ALBARAN_DEV = 10;
idx_AlbaranesProveedorREFERENCIA_ALB_DEV = 11;
idx_AlbaranesProveedorID_FAC_ALB_DEV = 12;
idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV = 13;
idx_AlbaranesProveedorID_ALMACEN = 14;
idx_AlbaranesProveedorTIPO_ALMACEN = 15;
idx_AlbaranesProveedorNOMBRE_ALMACEN = 16;
idx_AlbaranesProveedorID_PEDIDO = 17;
idx_AlbaranesProveedorREF_PED_PROVEEDOR = 18;
idx_AlbaranesProveedorID_FACTURA = 19;
idx_AlbaranesProveedorREF_FACTURA = 20;
idx_AlbaranesProveedorREF_FACTURA_PROV = 21;
idx_AlbaranesProveedorCALLE = 22;
idx_AlbaranesProveedorCODIGO_POSTAL = 23;
idx_AlbaranesProveedorPOBLACION = 24;
idx_AlbaranesProveedorPROVINCIA = 25;
idx_AlbaranesProveedorPERSONA_CONTACTO = 26;
idx_AlbaranesProveedorTELEFONO = 27;
idx_AlbaranesProveedorIMPORTE_NETO = 28;
idx_AlbaranesProveedorIMPORTE_PORTE = 29;
idx_AlbaranesProveedorDESCUENTO = 30;
idx_AlbaranesProveedorIMPORTE_DESCUENTO = 31;
idx_AlbaranesProveedorBASE_IMPONIBLE = 32;
idx_AlbaranesProveedorIVA = 33;
idx_AlbaranesProveedorIMPORTE_IVA = 34;
idx_AlbaranesProveedorIMPORTE_TOTAL = 35;
idx_AlbaranesProveedorOBSERVACIONES = 36;
idx_AlbaranesProveedorINCIDENCIAS = 37;
idx_AlbaranesProveedorINCIDENCIAS_ACTIVAS = 38;
idx_AlbaranesProveedorFECHA_ALTA = 39;
idx_AlbaranesProveedorFECHA_MODIFICACION = 40;
idx_AlbaranesProveedorUSUARIO = 41;
idx_AlbaranesProveedorID_FORMA_PAGO = 42;
idx_AlbaranesProveedorNUM_COPIAS = 43;
idx_AlbaranesProveedorNUM_CORREOS = 44;
{ AlbaranesProveedor_Detalles fields }
fld_AlbaranesProveedor_DetallesID = 'ID';
@ -151,7 +159,7 @@ const
type
{ IListaAnosAlbaranes }
IListaAnosAlbaranes = interface(IDAStronglyTypedDataTable)
['{F465A675-EFE9-4F84-B5D4-B4960D19B0AC}']
['{1ACBFBC1-8E84-4ED5-B38E-C9A682A139A7}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -165,7 +173,7 @@ type
end;
{ TListaAnosAlbaranesDataTableRules }
TListaAnosAlbaranesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosAlbaranes)
TListaAnosAlbaranesDataTableRules = class(TDADataTableRules, IListaAnosAlbaranes)
private
protected
{ Property getters and setters }
@ -186,7 +194,7 @@ type
{ IAlbaranesProveedor }
IAlbaranesProveedor = interface(IDAStronglyTypedDataTable)
['{AA1B6979-13F8-4B5C-9618-E53CC259BC39}']
['{F880F855-AF71-44A7-9893-AE9DDB0C73D9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -228,6 +236,22 @@ type
procedure SetTIPOValue(const aValue: String);
function GetTIPOIsNull: Boolean;
procedure SetTIPOIsNull(const aValue: Boolean);
function GetID_ALBARAN_DEVValue: Integer;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer);
function GetID_ALBARAN_DEVIsNull: Boolean;
procedure SetID_ALBARAN_DEVIsNull(const aValue: Boolean);
function GetREFERENCIA_ALB_DEVValue: String;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String);
function GetREFERENCIA_ALB_DEVIsNull: Boolean;
procedure SetREFERENCIA_ALB_DEVIsNull(const aValue: Boolean);
function GetID_FAC_ALB_DEVValue: Integer;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer);
function GetID_FAC_ALB_DEVIsNull: Boolean;
procedure SetID_FAC_ALB_DEVIsNull(const aValue: Boolean);
function GetREFERENCIA_FAC_ALB_DEVValue: String;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
function GetREFERENCIA_FAC_ALB_DEVIsNull: Boolean;
procedure SetREFERENCIA_FAC_ALB_DEVIsNull(const aValue: Boolean);
function GetID_ALMACENValue: Integer;
procedure SetID_ALMACENValue(const aValue: Integer);
function GetID_ALMACENIsNull: Boolean;
@ -342,14 +366,14 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetID_FORMA_PAGOIsNull: Boolean;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
function GetID_ALBARANValue: Integer;
procedure SetID_ALBARANValue(const aValue: Integer);
function GetID_ALBARANIsNull: Boolean;
procedure SetID_ALBARANIsNull(const aValue: Boolean);
function GetREFERENCIA_ALBARANValue: String;
procedure SetREFERENCIA_ALBARANValue(const aValue: String);
function GetREFERENCIA_ALBARANIsNull: Boolean;
procedure SetREFERENCIA_ALBARANIsNull(const aValue: Boolean);
function GetNUM_COPIASValue: SmallInt;
procedure SetNUM_COPIASValue(const aValue: SmallInt);
function GetNUM_COPIASIsNull: Boolean;
procedure SetNUM_COPIASIsNull(const aValue: Boolean);
function GetNUM_CORREOSValue: SmallInt;
procedure SetNUM_CORREOSValue(const aValue: SmallInt);
function GetNUM_CORREOSIsNull: Boolean;
procedure SetNUM_CORREOSIsNull(const aValue: Boolean);
{ Properties }
@ -373,6 +397,14 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property TIPO: String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property ID_ALBARAN_DEVIsNull: Boolean read GetID_ALBARAN_DEVIsNull write SetID_ALBARAN_DEVIsNull;
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property REFERENCIA_ALB_DEVIsNull: Boolean read GetREFERENCIA_ALB_DEVIsNull write SetREFERENCIA_ALB_DEVIsNull;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property ID_FAC_ALB_DEVIsNull: Boolean read GetID_FAC_ALB_DEVIsNull write SetID_FAC_ALB_DEVIsNull;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEVIsNull: Boolean read GetREFERENCIA_FAC_ALB_DEVIsNull write SetREFERENCIA_FAC_ALB_DEVIsNull;
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
property TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
@ -431,14 +463,14 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
property REFERENCIA_ALBARAN: String read GetREFERENCIA_ALBARANValue write SetREFERENCIA_ALBARANValue;
property REFERENCIA_ALBARANIsNull: Boolean read GetREFERENCIA_ALBARANIsNull write SetREFERENCIA_ALBARANIsNull;
property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
end;
{ TAlbaranesProveedorDataTableRules }
TAlbaranesProveedorDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor)
TAlbaranesProveedorDataTableRules = class(TDADataTableRules, IAlbaranesProveedor)
private
f_OBSERVACIONES: IROStrings;
f_INCIDENCIAS: IROStrings;
@ -486,6 +518,22 @@ type
procedure SetTIPOValue(const aValue: String); virtual;
function GetTIPOIsNull: Boolean; virtual;
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
function GetID_ALBARAN_DEVIsNull: Boolean; virtual;
procedure SetID_ALBARAN_DEVIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
function GetREFERENCIA_ALB_DEVIsNull: Boolean; virtual;
procedure SetREFERENCIA_ALB_DEVIsNull(const aValue: Boolean); virtual;
function GetID_FAC_ALB_DEVValue: Integer; virtual;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
function GetID_FAC_ALB_DEVIsNull: Boolean; virtual;
procedure SetID_FAC_ALB_DEVIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
function GetREFERENCIA_FAC_ALB_DEVIsNull: Boolean; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVIsNull(const aValue: Boolean); virtual;
function GetID_ALMACENValue: Integer; virtual;
procedure SetID_ALMACENValue(const aValue: Integer); virtual;
function GetID_ALMACENIsNull: Boolean; virtual;
@ -600,14 +648,14 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetID_ALBARANValue: Integer; virtual;
procedure SetID_ALBARANValue(const aValue: Integer); virtual;
function GetID_ALBARANIsNull: Boolean; virtual;
procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_ALBARANValue: String; virtual;
procedure SetREFERENCIA_ALBARANValue(const aValue: String); virtual;
function GetREFERENCIA_ALBARANIsNull: Boolean; virtual;
procedure SetREFERENCIA_ALBARANIsNull(const aValue: Boolean); virtual;
function GetNUM_COPIASValue: SmallInt; virtual;
procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual;
function GetNUM_COPIASIsNull: Boolean; virtual;
procedure SetNUM_COPIASIsNull(const aValue: Boolean); virtual;
function GetNUM_CORREOSValue: SmallInt; virtual;
procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
function GetNUM_CORREOSIsNull: Boolean; virtual;
procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -630,6 +678,14 @@ type
property REFERENCIA_PROVEEDORIsNull: Boolean read GetREFERENCIA_PROVEEDORIsNull write SetREFERENCIA_PROVEEDORIsNull;
property TIPO: String read GetTIPOValue write SetTIPOValue;
property TIPOIsNull: Boolean read GetTIPOIsNull write SetTIPOIsNull;
property ID_ALBARAN_DEV: Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property ID_ALBARAN_DEVIsNull: Boolean read GetID_ALBARAN_DEVIsNull write SetID_ALBARAN_DEVIsNull;
property REFERENCIA_ALB_DEV: String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property REFERENCIA_ALB_DEVIsNull: Boolean read GetREFERENCIA_ALB_DEVIsNull write SetREFERENCIA_ALB_DEVIsNull;
property ID_FAC_ALB_DEV: Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property ID_FAC_ALB_DEVIsNull: Boolean read GetID_FAC_ALB_DEVIsNull write SetID_FAC_ALB_DEVIsNull;
property REFERENCIA_FAC_ALB_DEV: String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEVIsNull: Boolean read GetREFERENCIA_FAC_ALB_DEVIsNull write SetREFERENCIA_FAC_ALB_DEVIsNull;
property ID_ALMACEN: Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property ID_ALMACENIsNull: Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
property TIPO_ALMACEN: String read GetTIPO_ALMACENValue write SetTIPO_ALMACENValue;
@ -688,10 +744,10 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property ID_ALBARAN: Integer read GetID_ALBARANValue write SetID_ALBARANValue;
property ID_ALBARANIsNull: Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
property REFERENCIA_ALBARAN: String read GetREFERENCIA_ALBARANValue write SetREFERENCIA_ALBARANValue;
property REFERENCIA_ALBARANIsNull: Boolean read GetREFERENCIA_ALBARANIsNull write SetREFERENCIA_ALBARANIsNull;
property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -701,7 +757,7 @@ type
{ IAlbaranesProveedor_Detalles }
IAlbaranesProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{C89909AC-C87D-409B-A9F4-6FA0037F0E34}']
['{016EE213-5C1E-47B9-AF6B-80B093BA8C57}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -811,7 +867,7 @@ type
end;
{ TAlbaranesProveedor_DetallesDataTableRules }
TAlbaranesProveedor_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IAlbaranesProveedor_Detalles)
TAlbaranesProveedor_DetallesDataTableRules = class(TDADataTableRules, IAlbaranesProveedor_Detalles)
private
protected
{ Property getters and setters }
@ -1204,6 +1260,90 @@ begin
DataTable.Fields[idx_AlbaranesProveedorTIPO].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN_DEV].AsInteger;
end;
procedure TAlbaranesProveedorDataTableRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN_DEV].AsInteger := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetID_ALBARAN_DEVIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN_DEV].IsNull;
end;
procedure TAlbaranesProveedorDataTableRules.SetID_ALBARAN_DEVIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN_DEV].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetREFERENCIA_ALB_DEVValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALB_DEV].AsString;
end;
procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALB_DEV].AsString := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetREFERENCIA_ALB_DEVIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALB_DEV].IsNull;
end;
procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_ALB_DEVIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALB_DEV].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetID_FAC_ALB_DEVValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedorID_FAC_ALB_DEV].AsInteger;
end;
procedure TAlbaranesProveedorDataTableRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
begin
DataTable.Fields[idx_AlbaranesProveedorID_FAC_ALB_DEV].AsInteger := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetID_FAC_ALB_DEVIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedorID_FAC_ALB_DEV].IsNull;
end;
procedure TAlbaranesProveedorDataTableRules.SetID_FAC_ALB_DEVIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedorID_FAC_ALB_DEV].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV].AsString;
end;
procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
begin
DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV].AsString := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetREFERENCIA_FAC_ALB_DEVIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV].IsNull;
end;
procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_FAC_ALB_DEVIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetID_ALMACENValue: Integer;
begin
result := DataTable.Fields[idx_AlbaranesProveedorID_ALMACEN].AsInteger;
@ -1805,46 +1945,46 @@ begin
DataTable.Fields[idx_AlbaranesProveedorID_FORMA_PAGO].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetID_ALBARANValue: Integer;
function TAlbaranesProveedorDataTableRules.GetNUM_COPIASValue: SmallInt;
begin
result := DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN].AsInteger;
result := DataTable.Fields[idx_AlbaranesProveedorNUM_COPIAS].AsSmallInt;
end;
procedure TAlbaranesProveedorDataTableRules.SetID_ALBARANValue(const aValue: Integer);
procedure TAlbaranesProveedorDataTableRules.SetNUM_COPIASValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN].AsInteger := aValue;
DataTable.Fields[idx_AlbaranesProveedorNUM_COPIAS].AsSmallInt := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetID_ALBARANIsNull: boolean;
function TAlbaranesProveedorDataTableRules.GetNUM_COPIASIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN].IsNull;
result := DataTable.Fields[idx_AlbaranesProveedorNUM_COPIAS].IsNull;
end;
procedure TAlbaranesProveedorDataTableRules.SetID_ALBARANIsNull(const aValue: Boolean);
procedure TAlbaranesProveedorDataTableRules.SetNUM_COPIASIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedorID_ALBARAN].AsVariant := Null;
DataTable.Fields[idx_AlbaranesProveedorNUM_COPIAS].AsVariant := Null;
end;
function TAlbaranesProveedorDataTableRules.GetREFERENCIA_ALBARANValue: String;
function TAlbaranesProveedorDataTableRules.GetNUM_CORREOSValue: SmallInt;
begin
result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALBARAN].AsString;
result := DataTable.Fields[idx_AlbaranesProveedorNUM_CORREOS].AsSmallInt;
end;
procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_ALBARANValue(const aValue: String);
procedure TAlbaranesProveedorDataTableRules.SetNUM_CORREOSValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALBARAN].AsString := aValue;
DataTable.Fields[idx_AlbaranesProveedorNUM_CORREOS].AsSmallInt := aValue;
end;
function TAlbaranesProveedorDataTableRules.GetREFERENCIA_ALBARANIsNull: boolean;
function TAlbaranesProveedorDataTableRules.GetNUM_CORREOSIsNull: boolean;
begin
result := DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALBARAN].IsNull;
result := DataTable.Fields[idx_AlbaranesProveedorNUM_CORREOS].IsNull;
end;
procedure TAlbaranesProveedorDataTableRules.SetREFERENCIA_ALBARANIsNull(const aValue: Boolean);
procedure TAlbaranesProveedorDataTableRules.SetNUM_CORREOSIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_AlbaranesProveedorREFERENCIA_ALBARAN].AsVariant := Null;
DataTable.Fields[idx_AlbaranesProveedorNUM_CORREOS].AsVariant := Null;
end;

280
Source/Modulos/Albaranes de proveedor/Model/schAlbaranesProveedorServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosAlbaranesDelta = '{B991C998-8031-4B76-A869-AAD2C16ED2AF}';
RID_AlbaranesProveedorDelta = '{0FC3D2BC-B9A2-4FBA-A4DA-65522DD5B4D3}';
RID_AlbaranesProveedor_DetallesDelta = '{A6A5E64F-495A-4C33-B6BF-EE78BEF1ECAD}';
RID_ListaAnosAlbaranesDelta = '{C12625D9-F141-4F3A-B2C5-98F00CB2B3F8}';
RID_AlbaranesProveedorDelta = '{E1D5D564-4E1B-40E7-836F-99DEF018E818}';
RID_AlbaranesProveedor_DetallesDelta = '{F56457BE-97AC-46CB-A5B8-A4334B643925}';
type
{ IListaAnosAlbaranesDelta }
IListaAnosAlbaranesDelta = interface(IListaAnosAlbaranes)
['{B991C998-8031-4B76-A869-AAD2C16ED2AF}']
['{C12625D9-F141-4F3A-B2C5-98F00CB2B3F8}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IAlbaranesProveedorDelta }
IAlbaranesProveedorDelta = interface(IAlbaranesProveedor)
['{0FC3D2BC-B9A2-4FBA-A4DA-65522DD5B4D3}']
['{E1D5D564-4E1B-40E7-836F-99DEF018E818}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -62,6 +62,10 @@ type
function GetOldREFERENCIAValue : String;
function GetOldREFERENCIA_PROVEEDORValue : String;
function GetOldTIPOValue : String;
function GetOldID_ALBARAN_DEVValue : Integer;
function GetOldREFERENCIA_ALB_DEVValue : String;
function GetOldID_FAC_ALB_DEVValue : Integer;
function GetOldREFERENCIA_FAC_ALB_DEVValue : String;
function GetOldID_ALMACENValue : Integer;
function GetOldTIPO_ALMACENValue : String;
function GetOldNOMBRE_ALMACENValue : String;
@ -91,8 +95,8 @@ type
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldID_ALBARANValue : Integer;
function GetOldREFERENCIA_ALBARANValue : String;
function GetOldNUM_COPIASValue : SmallInt;
function GetOldNUM_CORREOSValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -105,6 +109,10 @@ type
property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIA_PROVEEDOR : String read GetOldREFERENCIA_PROVEEDORValue;
property OldTIPO : String read GetOldTIPOValue;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
property OldTIPO_ALMACEN : String read GetOldTIPO_ALMACENValue;
property OldNOMBRE_ALMACEN : String read GetOldNOMBRE_ALMACENValue;
@ -134,8 +142,8 @@ type
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
property OldREFERENCIA_ALBARAN : String read GetOldREFERENCIA_ALBARANValue;
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
end;
{ TAlbaranesProveedorBusinessProcessorRules }
@ -207,6 +215,30 @@ type
function GetOldTIPOIsNull: Boolean; virtual;
procedure SetTIPOValue(const aValue: String); virtual;
procedure SetTIPOIsNull(const aValue: Boolean); virtual;
function GetID_ALBARAN_DEVValue: Integer; virtual;
function GetID_ALBARAN_DEVIsNull: Boolean; virtual;
function GetOldID_ALBARAN_DEVValue: Integer; virtual;
function GetOldID_ALBARAN_DEVIsNull: Boolean; virtual;
procedure SetID_ALBARAN_DEVValue(const aValue: Integer); virtual;
procedure SetID_ALBARAN_DEVIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_ALB_DEVValue: String; virtual;
function GetREFERENCIA_ALB_DEVIsNull: Boolean; virtual;
function GetOldREFERENCIA_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_ALB_DEVIsNull: Boolean; virtual;
procedure SetREFERENCIA_ALB_DEVValue(const aValue: String); virtual;
procedure SetREFERENCIA_ALB_DEVIsNull(const aValue: Boolean); virtual;
function GetID_FAC_ALB_DEVValue: Integer; virtual;
function GetID_FAC_ALB_DEVIsNull: Boolean; virtual;
function GetOldID_FAC_ALB_DEVValue: Integer; virtual;
function GetOldID_FAC_ALB_DEVIsNull: Boolean; virtual;
procedure SetID_FAC_ALB_DEVValue(const aValue: Integer); virtual;
procedure SetID_FAC_ALB_DEVIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_FAC_ALB_DEVValue: String; virtual;
function GetREFERENCIA_FAC_ALB_DEVIsNull: Boolean; virtual;
function GetOldREFERENCIA_FAC_ALB_DEVValue: String; virtual;
function GetOldREFERENCIA_FAC_ALB_DEVIsNull: Boolean; virtual;
procedure SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String); virtual;
procedure SetREFERENCIA_FAC_ALB_DEVIsNull(const aValue: Boolean); virtual;
function GetID_ALMACENValue: Integer; virtual;
function GetID_ALMACENIsNull: Boolean; virtual;
function GetOldID_ALMACENValue: Integer; virtual;
@ -379,18 +411,18 @@ type
function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetID_ALBARANValue: Integer; virtual;
function GetID_ALBARANIsNull: Boolean; virtual;
function GetOldID_ALBARANValue: Integer; virtual;
function GetOldID_ALBARANIsNull: Boolean; virtual;
procedure SetID_ALBARANValue(const aValue: Integer); virtual;
procedure SetID_ALBARANIsNull(const aValue: Boolean); virtual;
function GetREFERENCIA_ALBARANValue: String; virtual;
function GetREFERENCIA_ALBARANIsNull: Boolean; virtual;
function GetOldREFERENCIA_ALBARANValue: String; virtual;
function GetOldREFERENCIA_ALBARANIsNull: Boolean; virtual;
procedure SetREFERENCIA_ALBARANValue(const aValue: String); virtual;
procedure SetREFERENCIA_ALBARANIsNull(const aValue: Boolean); virtual;
function GetNUM_COPIASValue: SmallInt; virtual;
function GetNUM_COPIASIsNull: Boolean; virtual;
function GetOldNUM_COPIASValue: SmallInt; virtual;
function GetOldNUM_COPIASIsNull: Boolean; virtual;
procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual;
procedure SetNUM_COPIASIsNull(const aValue: Boolean); virtual;
function GetNUM_CORREOSValue: SmallInt; virtual;
function GetNUM_CORREOSIsNull: Boolean; virtual;
function GetOldNUM_CORREOSValue: SmallInt; virtual;
function GetOldNUM_CORREOSIsNull: Boolean; virtual;
procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -433,6 +465,22 @@ type
property TIPOIsNull : Boolean read GetTIPOIsNull write SetTIPOIsNull;
property OldTIPO : String read GetOldTIPOValue;
property OldTIPOIsNull : Boolean read GetOldTIPOIsNull;
property ID_ALBARAN_DEV : Integer read GetID_ALBARAN_DEVValue write SetID_ALBARAN_DEVValue;
property ID_ALBARAN_DEVIsNull : Boolean read GetID_ALBARAN_DEVIsNull write SetID_ALBARAN_DEVIsNull;
property OldID_ALBARAN_DEV : Integer read GetOldID_ALBARAN_DEVValue;
property OldID_ALBARAN_DEVIsNull : Boolean read GetOldID_ALBARAN_DEVIsNull;
property REFERENCIA_ALB_DEV : String read GetREFERENCIA_ALB_DEVValue write SetREFERENCIA_ALB_DEVValue;
property REFERENCIA_ALB_DEVIsNull : Boolean read GetREFERENCIA_ALB_DEVIsNull write SetREFERENCIA_ALB_DEVIsNull;
property OldREFERENCIA_ALB_DEV : String read GetOldREFERENCIA_ALB_DEVValue;
property OldREFERENCIA_ALB_DEVIsNull : Boolean read GetOldREFERENCIA_ALB_DEVIsNull;
property ID_FAC_ALB_DEV : Integer read GetID_FAC_ALB_DEVValue write SetID_FAC_ALB_DEVValue;
property ID_FAC_ALB_DEVIsNull : Boolean read GetID_FAC_ALB_DEVIsNull write SetID_FAC_ALB_DEVIsNull;
property OldID_FAC_ALB_DEV : Integer read GetOldID_FAC_ALB_DEVValue;
property OldID_FAC_ALB_DEVIsNull : Boolean read GetOldID_FAC_ALB_DEVIsNull;
property REFERENCIA_FAC_ALB_DEV : String read GetREFERENCIA_FAC_ALB_DEVValue write SetREFERENCIA_FAC_ALB_DEVValue;
property REFERENCIA_FAC_ALB_DEVIsNull : Boolean read GetREFERENCIA_FAC_ALB_DEVIsNull write SetREFERENCIA_FAC_ALB_DEVIsNull;
property OldREFERENCIA_FAC_ALB_DEV : String read GetOldREFERENCIA_FAC_ALB_DEVValue;
property OldREFERENCIA_FAC_ALB_DEVIsNull : Boolean read GetOldREFERENCIA_FAC_ALB_DEVIsNull;
property ID_ALMACEN : Integer read GetID_ALMACENValue write SetID_ALMACENValue;
property ID_ALMACENIsNull : Boolean read GetID_ALMACENIsNull write SetID_ALMACENIsNull;
property OldID_ALMACEN : Integer read GetOldID_ALMACENValue;
@ -549,14 +597,14 @@ type
property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
property ID_ALBARAN : Integer read GetID_ALBARANValue write SetID_ALBARANValue;
property ID_ALBARANIsNull : Boolean read GetID_ALBARANIsNull write SetID_ALBARANIsNull;
property OldID_ALBARAN : Integer read GetOldID_ALBARANValue;
property OldID_ALBARANIsNull : Boolean read GetOldID_ALBARANIsNull;
property REFERENCIA_ALBARAN : String read GetREFERENCIA_ALBARANValue write SetREFERENCIA_ALBARANValue;
property REFERENCIA_ALBARANIsNull : Boolean read GetREFERENCIA_ALBARANIsNull write SetREFERENCIA_ALBARANIsNull;
property OldREFERENCIA_ALBARAN : String read GetOldREFERENCIA_ALBARANValue;
property OldREFERENCIA_ALBARANIsNull : Boolean read GetOldREFERENCIA_ALBARANIsNull;
property NUM_COPIAS : SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
property NUM_COPIASIsNull : Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
property OldNUM_COPIASIsNull : Boolean read GetOldNUM_COPIASIsNull;
property NUM_CORREOS : SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property NUM_CORREOSIsNull : Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
property OldNUM_CORREOSIsNull : Boolean read GetOldNUM_CORREOSIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -566,7 +614,7 @@ type
{ IAlbaranesProveedor_DetallesDelta }
IAlbaranesProveedor_DetallesDelta = interface(IAlbaranesProveedor_Detalles)
['{A6A5E64F-495A-4C33-B6BF-EE78BEF1ECAD}']
['{F56457BE-97AC-46CB-A5B8-A4334B643925}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_ALBARANValue : Integer;
@ -1179,6 +1227,130 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorTIPO] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetID_ALBARAN_DEVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV]);
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldID_ALBARAN_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldID_ALBARAN_DEVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV]);
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetID_ALBARAN_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV] := aValue;
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetID_ALBARAN_DEVIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN_DEV] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_ALB_DEVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV]);
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_ALB_DEVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV]);
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV] := aValue;
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_ALB_DEVIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALB_DEV] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetID_FAC_ALB_DEVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV]);
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldID_FAC_ALB_DEVValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldID_FAC_ALB_DEVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV]);
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetID_FAC_ALB_DEVValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV] := aValue;
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetID_FAC_ALB_DEVIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FAC_ALB_DEV] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_FAC_ALB_DEVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV]);
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_FAC_ALB_DEVValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_FAC_ALB_DEVIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV]);
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_FAC_ALB_DEVValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV] := aValue;
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_FAC_ALB_DEVIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_FAC_ALB_DEV] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetID_ALMACENValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALMACEN];
@ -2072,66 +2244,66 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_FORMA_PAGO] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetID_ALBARANValue: Integer;
function TAlbaranesProveedorBusinessProcessorRules.GetNUM_COPIASValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN];
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_COPIAS];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetID_ALBARANIsNull: Boolean;
function TAlbaranesProveedorBusinessProcessorRules.GetNUM_COPIASIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN]);
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_COPIAS]);
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldID_ALBARANValue: Integer;
function TAlbaranesProveedorBusinessProcessorRules.GetOldNUM_COPIASValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_ALBARAN];
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorNUM_COPIAS];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldID_ALBARANIsNull: Boolean;
function TAlbaranesProveedorBusinessProcessorRules.GetOldNUM_COPIASIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorID_ALBARAN]);
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorNUM_COPIAS]);
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetID_ALBARANValue(const aValue: Integer);
procedure TAlbaranesProveedorBusinessProcessorRules.SetNUM_COPIASValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN] := aValue;
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_COPIAS] := aValue;
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetID_ALBARANIsNull(const aValue: Boolean);
procedure TAlbaranesProveedorBusinessProcessorRules.SetNUM_COPIASIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorID_ALBARAN] := Null;
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_COPIAS] := Null;
end;
function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_ALBARANValue: String;
function TAlbaranesProveedorBusinessProcessorRules.GetNUM_CORREOSValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALBARAN];
result := BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_CORREOS];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetREFERENCIA_ALBARANIsNull: Boolean;
function TAlbaranesProveedorBusinessProcessorRules.GetNUM_CORREOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALBARAN]);
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_CORREOS]);
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_ALBARANValue: String;
function TAlbaranesProveedorBusinessProcessorRules.GetOldNUM_CORREOSValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_ALBARAN];
result := BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorNUM_CORREOS];
end;
function TAlbaranesProveedorBusinessProcessorRules.GetOldREFERENCIA_ALBARANIsNull: Boolean;
function TAlbaranesProveedorBusinessProcessorRules.GetOldNUM_CORREOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorREFERENCIA_ALBARAN]);
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_AlbaranesProveedorNUM_CORREOS]);
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_ALBARANValue(const aValue: String);
procedure TAlbaranesProveedorBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALBARAN] := aValue;
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_CORREOS] := aValue;
end;
procedure TAlbaranesProveedorBusinessProcessorRules.SetREFERENCIA_ALBARANIsNull(const aValue: Boolean);
procedure TAlbaranesProveedorBusinessProcessorRules.SetNUM_CORREOSIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorREFERENCIA_ALBARAN] := Null;
BusinessProcessor.CurrentChange.NewValueByName[fld_AlbaranesProveedorNUM_CORREOS] := Null;
end;

4
Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranesProveedor.pas
View File

@ -58,7 +58,7 @@ type
procedure SetID_ALMACENValue(const aValue: Integer); override;
procedure SetID_FACTURAValue(const aValue: Integer); override;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); override;
procedure SetID_ALBARANValue(const aValue: Integer); override;
// procedure SetID_ALBARANValue(const aValue: Integer); override;
procedure IMPORTE_NETOOnChange(Sender: TDACustomField);
procedure IMPORTE_PORTEOnChange(Sender: TDACustomField);
@ -255,6 +255,7 @@ begin
inherited;
end;
{
procedure TBizAlbaranProveedor.SetID_ALBARANValue(const aValue: Integer);
begin
if (aValue = 0) then
@ -262,6 +263,7 @@ begin
else
inherited;
end;
}
procedure TBizAlbaranProveedor.SetID_ALMACENValue(const aValue: Integer);
begin

4
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas
View File

@ -232,7 +232,7 @@ var
begin
inherited;
AllItems := False;
FImprimirPrecios := True;
FImprimirPrecios := False;
FImprimirRefProveedor := True;
if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor) then
@ -291,7 +291,7 @@ var
begin
inherited;
AllItems := False;
FImprimirPrecios := True;
FImprimirPrecios := False;
FImprimirRefProveedor := True;
if ElegirOpcionesImpresionAlbaranProveedor(FImprimirPrecios, FImprimirRefProveedor) then

4
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas
View File

@ -241,7 +241,7 @@ var
begin
AAlbaranes := Nil;
AllItems := False;
FImprimirPrecios := True;
FImprimirPrecios := False;
FImprimirRefProveedor := True;
if MultiSelect and Assigned(ViewGrid) then
@ -340,7 +340,7 @@ var
begin
AAlbaranes := Nil;
AllItems := False;
FImprimirPrecios := True;
FImprimirPrecios := False;
FImprimirRefProveedor := True;

22
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -85,13 +85,14 @@ type
frxDBInformeListadoFacturasPendientes: TfrxDBDataset;
DADSInformeListadoFacturasPendientes: TDADataSource;
tbl_InformeListadoFacturasPendientes: TDAMemDataTable;
schReport: TDASchema;
frxDBInformeListadoFacturasResumen: TfrxDBDataset;
DADSInformeListadoFacturasResumen: TDADataSource;
tbl_InformeListadoFacturasResumen: TDAMemDataTable;
Bin2DataStreamer: TDABin2DataStreamer;
schReport: TDASchema;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
procedure frxReportGetValue(const VarName: string; var Value: Variant);
private
FConnection: IDAConnection;
FIdEmpresa: Integer;
@ -103,6 +104,7 @@ type
FListaNombresClientes : TStringList;
FImporteMinimo: Currency;
FDesglosado : Boolean;
FShowLogotipo: Boolean;
//Genera cada una de las facturas a imprimir
procedure _GenerarFactura(const ID: Integer; const VerSello: Boolean = True; const VerCopia: Boolean = True);
@ -146,6 +148,8 @@ const
procedure TRptFacturasCliente.DataModuleCreate(Sender: TObject);
begin
FShowLogotipo := False;
schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion;
frxReport.EngineOptions.NewSilentMode := simReThrow;
@ -171,6 +175,12 @@ begin
FreeANDNIL(FListaNombresClientes);
end;
procedure TRptFacturasCliente.frxReportGetValue(const VarName: string; var Value: Variant);
begin
if VarName = 'ShowLogotipo' then
Value := FShowLogotipo;
end;
function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray; const VerSello: Boolean = True; const VerCopia: Boolean = True): Binary;
var
i: Integer;
@ -675,21 +685,23 @@ begin
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaCliente));
frxReport.LoadFromFile(AInforme, True);
{
if VerSello then
frxReport.Variables.Variables['VerSello'] := 1
else
frxReport.Variables.Variables['VerSello'] := 0;
//La primera impresion siempre es sin la etiqueta copia
//La primera impresion siempre es sin la etiqueta copia
frxReport.Variables.Variables['VerCopia'] := 0;
}
frxReport.PrepareReport(False);
{
if VerCopia then
begin
frxReport.Variables.Variables['VerCopia'] := 1;
frxReport.Variables.Variables['VerSello'] := 0; //El sello nunca saldrá en la copia
frxReport.Variables.Variables['VerSello'] := 0; //El sello nunca saldrá en la copia
frxReport.PrepareReport(False);
end;
}
finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
end;

4
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas
View File

@ -340,7 +340,7 @@ begin
AVerCopia := True;
//Preguntamos si desea que en las facturas se vea el Sello
if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
FController.Print(FFactura, AllItems, AVerSello, AVerCopia);
end;
@ -430,7 +430,7 @@ begin
AVerCopia := True;
//Preguntamos si desea que en las facturas se vea el Sello
if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
FController.Preview(FFactura, AllItems, AVerSello, AVerCopia);
end;

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

@ -338,7 +338,7 @@ begin
AFacturas := Facturas;
//Preguntamos si desea que en las facturas se vea el Sello
if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
if Assigned(AFacturas) then
FController.Print(AFacturas, AllItems, AVerSello, AVerCopia);
end;
@ -433,7 +433,7 @@ begin
AFacturas := Facturas;
//Preguntamos si desea que en las facturas se vea el Sello
if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
if Assigned(AFacturas) then
FController.Preview(AFacturas, AllItems, AVerSello, AVerCopia);
end;

22
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -137,7 +137,7 @@ uses
uBizPedidosProveedor, uPedidosProveedorController, uBizDetallesPedidoProveedor,
uRecibosProveedorController, uBizRecibosProveedor, uNumUtils,
uFacturasProveedorReportController, DateUtils, Forms, Dialogs,
uFormasPagoController, uBizFormasPago, uStringsUtils,
uFormasPagoController, uBizFormasPago, uStringsUtils, uIntegerListUtils,
uIEditorElegirDomiciliacion,
cxEdit;
@ -900,12 +900,12 @@ end;
procedure TFacturasProveedorController.Preview(AFactura: IBizFacturaProveedor; AllItems: Boolean = false);
var
AReportController : IFacturasProveedorReportController;
ID_Facturas: TStringList;
ID_Facturas: TIntegerList;
begin
AReportController := TFacturasProveedorReportController.Create;
try
ID_Facturas := TStringList.Create;
ID_Facturas := TIntegerList.Create;
//Si deseamos previsualizar todos los items del objeto albaran
if AllItems then
@ -915,16 +915,16 @@ begin
First;
while not EOF do
begin
ID_Facturas.Add(IntToStr(AFactura.ID));
ID_Facturas.Add(AFactura.ID);
Next;
end;
end;
end
//Solo previsualizamos el item seleccionado
else
ID_Facturas.Add(IntToStr(AFactura.ID));
ID_Facturas.Add(AFactura.ID);
AReportController.Preview(ID_Facturas.CommaText);
AReportController.Preview(ID_Facturas);
finally
AReportController := NIL;
@ -935,12 +935,12 @@ end;
procedure TFacturasProveedorController.Print(AFactura: IBizFacturaProveedor; AllItems: Boolean = false);
var
AReportController : IFacturasProveedorReportController;
ID_Facturas: TStringList;
ID_Facturas: TIntegerList;
begin
AReportController := TFacturasProveedorReportController.Create;
try
ID_Facturas := TStringList.Create;
ID_Facturas := TIntegerList.Create;
//Si deseamos previsualizar todos los items del objeto albaran
if AllItems then
@ -950,16 +950,16 @@ begin
First;
while not EOF do
begin
ID_Facturas.Add(IntToStr(AFactura.ID));
ID_Facturas.Add(AFactura.ID);
Next;
end;
end;
end
//Solo previsualizamos el item seleccionado
else
ID_Facturas.Add(IntToStr(AFactura.ID));
ID_Facturas.Add(AFactura.ID);
AReportController.Print(ID_Facturas.CommaText);
AReportController.Print(ID_Facturas);
finally
AReportController := NIL;

47
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorReportController.pas
View File

@ -4,13 +4,15 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasProveedorReport,
uClientesController, uDetallesFacturaProveedorController, uBizFacturasProveedor;
uClientesController, uDetallesFacturaProveedorController, uBizFacturasProveedor,
uIntegerListUtils;
type
IFacturasProveedorReportController = interface(IControllerBase)
['{551F82DC-B8DC-482E-A20D-15003E845078}']
procedure Preview(const AFacturaID : String);
procedure Print(const AFacturaID : String);
procedure Preview(const AListaID : TIntegerList);
procedure Print(const AListaID : TIntegerList);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end;
TFacturasProveedorReportController = class(TControllerBase, IFacturasProveedorReportController)
@ -21,8 +23,9 @@ type
constructor Create; override;
destructor Destroy; override;
procedure Preview(const AFacturaID : String);
procedure Print(const AFacturaID : String);
procedure Preview(const AListaID : TIntegerList);
procedure Print(const AListaID : TIntegerList);
function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
end;
@ -30,7 +33,8 @@ implementation
uses
uROTypes, uEditorRegistryUtils, uIEditorFacturasProveedorPreview,
uEditorPreview, uDataModuleFacturasProveedor, uEditorBase, cxControls;
uEditorPreview, uDataModuleFacturasProveedor, uEditorBase, cxControls,
uStringsUtils;
{ TFacturasProveedorReportController }
@ -53,7 +57,30 @@ begin
inherited;
end;
procedure TFacturasProveedorReportController.Preview(const AFacturaID : String);
function TFacturasProveedorReportController.ExportToPDF(const AID: Integer;
const AFileName: String): Boolean;
var
AStream: Binary;
begin
Result := False;
if EsCadenaVacia(AFileName) then
Exit;
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPDFFactura(AID);
try
AStream.SaveToFile(AFileName);
Result := True;
finally
FreeAndNil(AStream);
end;
finally
HideHourglassCursor;
end;
end;
procedure TFacturasProveedorReportController.Preview(const AListaID : TIntegerList);
var
AStream: Binary;
AEditor : IEditorFacturasProveedorPreview;
@ -62,7 +89,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(AFacturaID);
AStream := FDataModule.GetRptFacturas(AListaID);
try
CreateEditor('EditorFacturasProveedorPreview', IEditorFacturasProveedorPreview, AEditor);
if Assigned(AEditor) then
@ -81,7 +108,7 @@ begin
end;
end;
procedure TFacturasProveedorReportController.Print(const AFacturaID : String);
procedure TFacturasProveedorReportController.Print(const AListaID : TIntegerList);
var
AStream: Binary;
AEditor : IEditorFacturasProveedorPreview;
@ -90,7 +117,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(AFacturaID);
AStream := FDataModule.GetRptFacturas(AListaID);
try
CreateEditor('EditorFacturasProveedorPreview', IEditorFacturasProveedorPreview, AEditor);
if Assigned(AEditor) then

32
Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.pas
View File

@ -8,7 +8,7 @@ uses
uRORemoteService, uROClient, uROBinMessage,
uDataModuleBase,
uIDataModuleFacturasProveedor, uBizFacturasProveedor, uBizDetallesFacturaProveedor,
uBizPedidosFacturaProveedor,
uBizPedidosFacturaProveedor, uIntegerListUtils,
uDADesigntimeCall, uIDataModuleFacturasProveedorReport, uDARemoteDataAdapter,
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable;
@ -29,15 +29,17 @@ type
private
function _GetDetalles : IBizDetallesFacturaProveedor;
function _GetPedidos : IBizPedidosFacturaProveedor;
public
function GetItems : IBizFacturaProveedor;
function GetItem(const ID : Integer) : IBizFacturaProveedor;
function NewItem : IBizFacturaProveedor;
// Report
function GetReport(const AFacturaID: String): Binary;
function GetRptFacturas(const AListaID: TIntegerList): Binary;
function GetRptPDFFactura(const AID: Integer): Binary;
function GetAnosItems : TStringList;
function GetAnosItems : TStringList;
end;
implementation
@ -56,9 +58,29 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
function TDataModuleFacturasProveedor.GetReport(const AFacturaID: String): Binary;
function TDataModuleFacturasProveedor.GetRptFacturas(const AListaID: TIntegerList): Binary;
var
AParam : TIntegerArray;
begin
// Result := (RORemoteService as IsrvFacturasProveedor).GenerateReport(AFacturaID)
AParam := AListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvFacturasProveedor).GenerarInforme(AParam);
finally
FreeANDNIL(AParam);
end;
end;
function TDataModuleFacturasProveedor.GetRptPDFFactura(const AID: Integer): Binary;
var
AParam : TIntegerArray;
begin
AParam := TIntegerArray.Create;
try
AParam.Add(AID);
Result := (RORemoteService as IsrvFacturasProveedor).GenerarInformeEnPDF(AParam);
finally
FreeANDNIL(AParam);
end;
end;
function TDataModuleFacturasProveedor.NewItem: IBizFacturaProveedor;

5
Source/Modulos/Facturas de proveedor/Model/Data/uIDataModuleFacturasProveedorReport.pas
View File

@ -3,12 +3,13 @@ unit uIDataModuleFacturasProveedorReport;
interface
uses
SysUtils, Classes, uROTypes;
SysUtils, Classes, uROTypes, uIntegerListUtils;
type
IDataModuleFacturasProveedorReport = interface
['{4979ACC5-069C-45C8-9D0B-49FC471F1A92}']
function GetReport(const AFacturaID: String): Binary;
function GetRptFacturas(const AListaID: TIntegerList): Binary;
function GetRptPDFFactura(const AID: Integer): Binary;
end;
implementation

94
Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.pas
View File

@ -37,7 +37,16 @@ type
tbl_InformeListadoFacturasPendResumen: TDAMemDataTable;
Bin2DataStreamer: TDABin2DataStreamer;
DARemoteDataAdapter: TDARemoteDataAdapter;
tbl_Cabecera: TDAMemDataTable;
tbl_Detalles: TDAMemDataTable;
DADSDetalles: TDADataSource;
DADSCabecera: TDADataSource;
frxDBCabecera: TfrxDBDataset;
frxDBDetalles: TfrxDBDataset;
schReport: TDASchema;
frxDBVencimientos: TfrxDBDataset;
DADSVencimientos: TDADataSource;
tbl_Vencimientos: TDAMemDataTable;
procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject);
private
@ -51,12 +60,18 @@ type
FListaNombresProveedores: TStringList;
FImporteMinimo: Currency;
FDesglosado : Boolean;
//Genera cada una de las facturas a imprimir
procedure _GenerarFactura(const ID: Integer);
procedure RecuperarNombresProveedores;
procedure PrepararTablaInforme(ATabla: TDAMemDataTable);
procedure PrepararTablaResumenInforme(ATabla: IDADataset);
procedure IniciarParametrosInforme;
function _GenerarInforme(const TipoInforme: String): Binary;
public
function GenerarFactura(const ListaID : TIntegerArray): Binary;
function GenerarFacturaEnPDF(const ListaID : TIntegerArray): Binary;
function GenerarInformeIVA(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturas(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
function GenerarInformeListadoFacturasPendientes(const IdEmpresa: Integer; const FechaInicio: Variant; const FechaFin: Variant; const FechaVenInicio: Variant; const FechaVenFin: Variant; const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean; const ImporteMinimo: Currency): Binary;
@ -71,6 +86,8 @@ uses
uROServer, DataAbstract4_Intf;
const
rptFacturaProveedor = 'InfFacturaProveedor.fr3';
rptInformeIVA = 'InformeIVAProveedores.fr3';
rptInformeIVADesglosado = 'InformeIVAProveedoresDesglosado.fr3';
rptInformeListadoFacturasProveedor = 'InformeListadoFacturasProveedor.fr3';
@ -99,6 +116,37 @@ begin
FreeANDNIL(FListaNombresProveedores);
end;
function TRptFacturasProveedor.GenerarFactura(const ListaID: TIntegerArray): Binary;
var
i: Integer;
begin
Result := Binary.Create;
try
//Vamos generando todos y cada una de las facturas recibidas
for i := 0 to ListaID.Count - 1 do
_GenerarFactura(ListaID.Items[i]);
frxReport.PreviewPages.SaveToStream(Result);
finally
end;
end;
function TRptFacturasProveedor.GenerarFacturaEnPDF(const ListaID: TIntegerArray): Binary;
var
i: Integer;
begin
Result := Binary.Create;
try
//Vamos generando todos y cada una de las facturas recibidas
for i := 0 to ListaID.Count - 1 do
_GenerarFactura(ListaID.Items[i]);
frxPDFExport1.Stream := Result;
frxReport.Export(frxPDFExport1)
finally
end;
end;
function TRptFacturasProveedor.GenerarInformeIVA(const IdEmpresa: Integer;
const FechaInicio, FechaFin: Variant;
const ListaIDProveedores: TIntegerArray; const Desglosado: Boolean;
@ -585,6 +633,52 @@ begin
end;
procedure TRptFacturasProveedor._GenerarFactura(const ID: Integer);
var
AInforme: Variant;
begin
FConnection.BeginTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
try
tbl_Cabecera.Active := False;
tbl_Detalles.Active := False;
// tbl_Vencimientos.Active := False;
tbl_Cabecera.ParamByName('ID').AsInteger := ID;
tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := ID;
// tbl_Vencimientos.ParamByName('ID_FACTURA').AsInteger := ID;
tbl_Cabecera.Active := True;
tbl_Detalles.Active := True;
// tbl_Vencimientos.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptFacturaProveedor, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
if VarIsNull(AInforme) then
raise Exception.Create (('Error Servidor: _GenerarFactura, no encuentra informe ' + rptFacturaProveedor));
frxReport.LoadFromFile(AInforme, True);
{
if VerSello then
frxReport.Variables.Variables['VerSello'] := 1
else
frxReport.Variables.Variables['VerSello'] := 0;
//La primera impresion siempre es sin la etiqueta copia
frxReport.Variables.Variables['VerCopia'] := 0;
}
frxReport.PrepareReport(False);
{
if VerCopia then
begin
frxReport.Variables.Variables['VerCopia'] := 1;
frxReport.Variables.Variables['VerSello'] := 0; //El sello nunca saldrá en la copia
frxReport.PrepareReport(False);
end;
}
finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"
end;
end;
function TRptFacturasProveedor._GenerarInforme(const TipoInforme: String): Binary;
var
AInforme: Variant;

33
Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas
View File

@ -33,6 +33,11 @@ type
procedure DARemoteServiceCreate(Sender: TObject);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string);
protected
function GenerarInforme(const ListaID: TIntegerArray): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
end;
implementation
@ -41,8 +46,8 @@ implementation
uses
{Generated:} FactuGES_Invk, Dialogs,
uDataModuleServer, uDatabaseUtils, uUsersManager, schFacturasProveedorClient_Intf,
uRestriccionesUsuarioUtils, uBizFacturasProveedorServer;
// uRptFacturasProveedor_Server;
uRestriccionesUsuarioUtils, uBizFacturasProveedorServer,
uRptFacturasProveedor_Server;
procedure Create_srvFacturasProveedor(out anInstance : IUnknown);
begin
@ -77,6 +82,30 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
function TsrvFacturasProveedor.GenerarInforme(const ListaID: TIntegerArray): Binary;
var
AReportGenerator : TRptFacturasProveedor;
begin
AReportGenerator := TRptFacturasProveedor.Create(nil);
try
Result := AReportGenerator.GenerarFactura(ListaID);
finally
FreeAndNIL(AReportGenerator);
end;
end;
function TsrvFacturasProveedor.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
var
AReportGenerator : TRptFacturasProveedor;
begin
AReportGenerator := TRptFacturasProveedor.Create(nil);
try
Result := AReportGenerator.GenerarFacturaEnPDF(ListaID);
finally
FreeAndNIL(AReportGenerator);
end;
end;
initialization
TROClassFactory.Create('srvFacturasProveedor', Create_srvFacturasProveedor, TsrvFacturasProveedor_Invoker);

4
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.pas
View File

@ -275,10 +275,8 @@ end;
procedure TfEditorFacturaProveedor.ImprimirInterno;
begin
{
inherited;
FController.Print(FFactura);
}
end;
procedure TfEditorFacturaProveedor.OnProveedorChanged(Sender: TObject);
@ -352,10 +350,8 @@ end;
procedure TfEditorFacturaProveedor.PrevisualizarInterno;
begin
{
inherited;
FController.Preview(FFactura);
}
end;
procedure TfEditorFacturaProveedor.RecalcularPortePorUnidad;

88
Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas
View File

@ -62,6 +62,8 @@ type
procedure ModificarInterno; override;
procedure DuplicarInterno; override;
procedure RefrescarInterno; override;
procedure ImprimirInterno; override;
procedure PrevisualizarInterno; override;
public
procedure PonerTitulos(const ATitulo: string = ''); override;
@ -322,6 +324,49 @@ begin
Result := FFacturas;
end;
procedure TfEditorFacturasProveedor.ImprimirInterno;
var
Respuesta : Integer;
AFacturas: IBizFacturaProveedor;
AllItems: Boolean;
begin
AFacturas := Nil;
AllItems := False;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
//Si esta agrupado solo podré imprimir la lista de elementos visibles
if not ViewGrid.esSeleccionCeldaDatos then
inherited
else
begin
Respuesta := JsImprimirDialog.Execute;
if Respuesta <> IDCANCEL then
begin
case JsImprimirDialog.CustomButtonResult of
200 : begin // Lista de elementos visibles
inherited;
end;
100 : begin // Elemento Seleccionado
if AllItems then
begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
end
else
AFacturas := Facturas;
//Preguntamos si desea que en las facturas se vea el Sello
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
if Assigned(AFacturas) then
FController.Print(AFacturas, AllItems);
end;
end;
end;
end;
end;
procedure TfEditorFacturasProveedor.ModificarInterno;
begin
inherited;
@ -370,6 +415,49 @@ begin
inherited PonerTitulos(FTitulo);
end;
procedure TfEditorFacturasProveedor.PrevisualizarInterno;
var
Respuesta : Integer;
AFacturas: IBizFacturaProveedor;
AllItems: Boolean;
begin
AFacturas := Nil;
AllItems := False;
if MultiSelect and Assigned(ViewGrid) then
AllItems := (ViewGrid.NumSeleccionados > 1);
//Si esta agrupado solo podré imprimir la lista de elementos visibles
if not ViewGrid.esSeleccionCeldaDatos then
inherited
else
begin
Respuesta := JsPrevisualizarDialog.Execute;
if Respuesta <> IDCANCEL then
begin
case JsPrevisualizarDialog.CustomButtonResult of
200 : begin // Lista de elementos visibles
inherited;
end;
100 : begin // Elemento Seleccionado
if AllItems then
begin
SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
AFacturas := (Controller as IFacturasProveedorController).ExtraerSeleccionados(Facturas) as IBizFacturaProveedor;
end
else
AFacturas := Facturas;
//Preguntamos si desea que en las facturas se vea el Sello
// if ElegirOpcionesImpresionFacturaCliente(AVerSello, AVerCopia) then
if Assigned(AFacturas) then
FController.Preview(AFacturas, AllItems);
end;
end;
end;
end;
end;
procedure TfEditorFacturasProveedor.RefrescarInterno;
begin
//Volvemos a cargar los años de los albaranes

88
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorClient_Intf.pas
View File

@ -3,16 +3,16 @@ unit schPedidosProveedorClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosPedidos = '{BB4ACD7F-346E-4B72-9B4C-4765E709D911}';
RID_PedidosProveedor = '{FB6CB8F5-5944-469C-848F-C2B228E6115F}';
RID_PedidosProveedor_Detalles = '{BB197BA1-5EB9-416C-A7DD-1B8C3097AE72}';
RID_PedidosProveedor_Articulos_Pendientes = '{D8031329-D44D-436D-90CC-28FFBF9B3485}';
RID_ListaAnosPedidos = '{F7F27923-FB30-40B2-8F05-6B9563D17395}';
RID_PedidosProveedor = '{8C858277-77F8-4D71-A60F-8003348A72AA}';
RID_PedidosProveedor_Detalles = '{5C63501F-5ADE-45AD-B72C-52E7EA7EE819}';
RID_PedidosProveedor_Articulos_Pendientes = '{1928FD1A-A663-4568-B2AF-E6E1EA2DF22F}';
{ Data table names }
nme_ListaAnosPedidos = 'ListaAnosPedidos';
@ -69,6 +69,8 @@ const
fld_PedidosProveedorID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_PedidosProveedorID_FACTURA = 'ID_FACTURA';
fld_PedidosProveedorREF_FACTURA_PROV = 'REF_FACTURA_PROV';
fld_PedidosProveedorNUM_COPIAS = 'NUM_COPIAS';
fld_PedidosProveedorNUM_CORREOS = 'NUM_CORREOS';
{ PedidosProveedor field indexes }
idx_PedidosProveedorID = 0;
@ -113,6 +115,8 @@ const
idx_PedidosProveedorID_FORMA_PAGO = 39;
idx_PedidosProveedorID_FACTURA = 40;
idx_PedidosProveedorREF_FACTURA_PROV = 41;
idx_PedidosProveedorNUM_COPIAS = 42;
idx_PedidosProveedorNUM_CORREOS = 43;
{ PedidosProveedor_Detalles fields }
fld_PedidosProveedor_DetallesID = 'ID';
@ -169,7 +173,7 @@ const
type
{ IListaAnosPedidos }
IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
['{F50ECDED-B2E2-4A7E-A160-91F65194D336}']
['{D3E6D035-02AB-4F73-A14A-EF9351F42E0F}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -204,7 +208,7 @@ type
{ IPedidosProveedor }
IPedidosProveedor = interface(IDAStronglyTypedDataTable)
['{52592A3B-FB1A-438A-8B4D-56335E373D8C}']
['{5EF1B3BD-4774-46DF-B868-897B3A0F2818}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -372,6 +376,14 @@ type
procedure SetREF_FACTURA_PROVValue(const aValue: String);
function GetREF_FACTURA_PROVIsNull: Boolean;
procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean);
function GetNUM_COPIASValue: SmallInt;
procedure SetNUM_COPIASValue(const aValue: SmallInt);
function GetNUM_COPIASIsNull: Boolean;
procedure SetNUM_COPIASIsNull(const aValue: Boolean);
function GetNUM_CORREOSValue: SmallInt;
procedure SetNUM_CORREOSValue(const aValue: SmallInt);
function GetNUM_CORREOSIsNull: Boolean;
procedure SetNUM_CORREOSIsNull(const aValue: Boolean);
{ Properties }
@ -459,6 +471,10 @@ type
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
end;
{ TPedidosProveedorDataTableRules }
@ -636,6 +652,14 @@ type
procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
function GetREF_FACTURA_PROVIsNull: Boolean; virtual;
procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual;
function GetNUM_COPIASValue: SmallInt; virtual;
procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual;
function GetNUM_COPIASIsNull: Boolean; virtual;
procedure SetNUM_COPIASIsNull(const aValue: Boolean); virtual;
function GetNUM_CORREOSValue: SmallInt; virtual;
procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
function GetNUM_CORREOSIsNull: Boolean; virtual;
procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -722,6 +746,10 @@ type
property ID_FACTURAIsNull: Boolean read GetID_FACTURAIsNull write SetID_FACTURAIsNull;
property REF_FACTURA_PROV: String read GetREF_FACTURA_PROVValue write SetREF_FACTURA_PROVValue;
property REF_FACTURA_PROVIsNull: Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
property NUM_COPIAS: SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
property NUM_COPIASIsNull: Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
property NUM_CORREOS: SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property NUM_CORREOSIsNull: Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -731,7 +759,7 @@ type
{ IPedidosProveedor_Detalles }
IPedidosProveedor_Detalles = interface(IDAStronglyTypedDataTable)
['{5D182AFF-F1C8-4C0C-A82B-E8F74B11F199}']
['{AE5543A6-B0AC-4168-857F-C66C80AFDABC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -946,7 +974,7 @@ type
{ IPedidosProveedor_Articulos_Pendientes }
IPedidosProveedor_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
['{4EDB8973-E2C1-4B31-BAB1-1724233A993F}']
['{9F527A92-29EF-42D2-8704-594EA3926CCD}']
{ Property getters and setters }
function GetID_PEDIDOValue: Integer;
procedure SetID_PEDIDOValue(const aValue: Integer);
@ -1981,6 +2009,48 @@ begin
DataTable.Fields[idx_PedidosProveedorREF_FACTURA_PROV].AsVariant := Null;
end;
function TPedidosProveedorDataTableRules.GetNUM_COPIASValue: SmallInt;
begin
result := DataTable.Fields[idx_PedidosProveedorNUM_COPIAS].AsSmallInt;
end;
procedure TPedidosProveedorDataTableRules.SetNUM_COPIASValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_PedidosProveedorNUM_COPIAS].AsSmallInt := aValue;
end;
function TPedidosProveedorDataTableRules.GetNUM_COPIASIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedorNUM_COPIAS].IsNull;
end;
procedure TPedidosProveedorDataTableRules.SetNUM_COPIASIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedorNUM_COPIAS].AsVariant := Null;
end;
function TPedidosProveedorDataTableRules.GetNUM_CORREOSValue: SmallInt;
begin
result := DataTable.Fields[idx_PedidosProveedorNUM_CORREOS].AsSmallInt;
end;
procedure TPedidosProveedorDataTableRules.SetNUM_CORREOSValue(const aValue: SmallInt);
begin
DataTable.Fields[idx_PedidosProveedorNUM_CORREOS].AsSmallInt := aValue;
end;
function TPedidosProveedorDataTableRules.GetNUM_CORREOSIsNull: boolean;
begin
result := DataTable.Fields[idx_PedidosProveedorNUM_CORREOS].IsNull;
end;
procedure TPedidosProveedorDataTableRules.SetNUM_CORREOSIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PedidosProveedorNUM_CORREOS].AsVariant := Null;
end;
{ TPedidosProveedor_DetallesDataTableRules }
constructor TPedidosProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);

102
Source/Modulos/Pedidos a proveedor/Model/schPedidosProveedorServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosPedidosDelta = '{7413239D-F923-4D2D-885F-4083C7008226}';
RID_PedidosProveedorDelta = '{D1505641-F1C6-4565-823C-F14DC964DDC6}';
RID_PedidosProveedor_DetallesDelta = '{E1572661-F1D9-4902-A018-60E27BF71613}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{C1F7A9E2-4E27-4594-90D6-A830EBA65AF2}';
RID_ListaAnosPedidosDelta = '{ED73D976-2DA8-409E-9A56-827BAB200193}';
RID_PedidosProveedorDelta = '{1A2AA90B-29E8-4944-9082-7CFEDEC9E9A0}';
RID_PedidosProveedor_DetallesDelta = '{EE10E854-7C9C-4EFB-9C85-BFFF777218EA}';
RID_PedidosProveedor_Articulos_PendientesDelta = '{7839E7D3-A150-4648-8FF5-AA4F543D5622}';
type
{ IListaAnosPedidosDelta }
IListaAnosPedidosDelta = interface(IListaAnosPedidos)
['{7413239D-F923-4D2D-885F-4083C7008226}']
['{ED73D976-2DA8-409E-9A56-827BAB200193}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IPedidosProveedorDelta }
IPedidosProveedorDelta = interface(IPedidosProveedor)
['{D1505641-F1C6-4565-823C-F14DC964DDC6}']
['{1A2AA90B-29E8-4944-9082-7CFEDEC9E9A0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@ -95,6 +95,8 @@ type
function GetOldID_FORMA_PAGOValue : Integer;
function GetOldID_FACTURAValue : Integer;
function GetOldREF_FACTURA_PROVValue : String;
function GetOldNUM_COPIASValue : SmallInt;
function GetOldNUM_CORREOSValue : SmallInt;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -139,6 +141,8 @@ type
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_FACTURA : Integer read GetOldID_FACTURAValue;
property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
end;
{ TPedidosProveedorBusinessProcessorRules }
@ -400,6 +404,18 @@ type
function GetOldREF_FACTURA_PROVIsNull: Boolean; virtual;
procedure SetREF_FACTURA_PROVValue(const aValue: String); virtual;
procedure SetREF_FACTURA_PROVIsNull(const aValue: Boolean); virtual;
function GetNUM_COPIASValue: SmallInt; virtual;
function GetNUM_COPIASIsNull: Boolean; virtual;
function GetOldNUM_COPIASValue: SmallInt; virtual;
function GetOldNUM_COPIASIsNull: Boolean; virtual;
procedure SetNUM_COPIASValue(const aValue: SmallInt); virtual;
procedure SetNUM_COPIASIsNull(const aValue: Boolean); virtual;
function GetNUM_CORREOSValue: SmallInt; virtual;
function GetNUM_CORREOSIsNull: Boolean; virtual;
function GetOldNUM_CORREOSValue: SmallInt; virtual;
function GetOldNUM_CORREOSIsNull: Boolean; virtual;
procedure SetNUM_CORREOSValue(const aValue: SmallInt); virtual;
procedure SetNUM_CORREOSIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -570,6 +586,14 @@ type
property REF_FACTURA_PROVIsNull : Boolean read GetREF_FACTURA_PROVIsNull write SetREF_FACTURA_PROVIsNull;
property OldREF_FACTURA_PROV : String read GetOldREF_FACTURA_PROVValue;
property OldREF_FACTURA_PROVIsNull : Boolean read GetOldREF_FACTURA_PROVIsNull;
property NUM_COPIAS : SmallInt read GetNUM_COPIASValue write SetNUM_COPIASValue;
property NUM_COPIASIsNull : Boolean read GetNUM_COPIASIsNull write SetNUM_COPIASIsNull;
property OldNUM_COPIAS : SmallInt read GetOldNUM_COPIASValue;
property OldNUM_COPIASIsNull : Boolean read GetOldNUM_COPIASIsNull;
property NUM_CORREOS : SmallInt read GetNUM_CORREOSValue write SetNUM_CORREOSValue;
property NUM_CORREOSIsNull : Boolean read GetNUM_CORREOSIsNull write SetNUM_CORREOSIsNull;
property OldNUM_CORREOS : SmallInt read GetOldNUM_CORREOSValue;
property OldNUM_CORREOSIsNull : Boolean read GetOldNUM_CORREOSIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -579,7 +603,7 @@ type
{ IPedidosProveedor_DetallesDelta }
IPedidosProveedor_DetallesDelta = interface(IPedidosProveedor_Detalles)
['{E1572661-F1D9-4902-A018-60E27BF71613}']
['{EE10E854-7C9C-4EFB-9C85-BFFF777218EA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_PEDIDOValue : Integer;
@ -793,7 +817,7 @@ type
{ IPedidosProveedor_Articulos_PendientesDelta }
IPedidosProveedor_Articulos_PendientesDelta = interface(IPedidosProveedor_Articulos_Pendientes)
['{C1F7A9E2-4E27-4594-90D6-A830EBA65AF2}']
['{7839E7D3-A150-4648-8FF5-AA4F543D5622}']
{ Property getters and setters }
function GetOldID_PEDIDOValue : Integer;
function GetOldREFERENCIAValue : String;
@ -2260,6 +2284,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorREF_FACTURA_PROV] := Null;
end;
function TPedidosProveedorBusinessProcessorRules.GetNUM_COPIASValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_COPIAS];
end;
function TPedidosProveedorBusinessProcessorRules.GetNUM_COPIASIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_COPIAS]);
end;
function TPedidosProveedorBusinessProcessorRules.GetOldNUM_COPIASValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNUM_COPIAS];
end;
function TPedidosProveedorBusinessProcessorRules.GetOldNUM_COPIASIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNUM_COPIAS]);
end;
procedure TPedidosProveedorBusinessProcessorRules.SetNUM_COPIASValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_COPIAS] := aValue;
end;
procedure TPedidosProveedorBusinessProcessorRules.SetNUM_COPIASIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_COPIAS] := Null;
end;
function TPedidosProveedorBusinessProcessorRules.GetNUM_CORREOSValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_CORREOS];
end;
function TPedidosProveedorBusinessProcessorRules.GetNUM_CORREOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_CORREOS]);
end;
function TPedidosProveedorBusinessProcessorRules.GetOldNUM_CORREOSValue: SmallInt;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNUM_CORREOS];
end;
function TPedidosProveedorBusinessProcessorRules.GetOldNUM_CORREOSIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PedidosProveedorNUM_CORREOS]);
end;
procedure TPedidosProveedorBusinessProcessorRules.SetNUM_CORREOSValue(const aValue: SmallInt);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_CORREOS] := aValue;
end;
procedure TPedidosProveedorBusinessProcessorRules.SetNUM_CORREOSIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PedidosProveedorNUM_CORREOS] := Null;
end;
{ TPedidosProveedor_DetallesBusinessProcessorRules }
constructor TPedidosProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -79,6 +79,7 @@ type
FListaIDProveedores: TIntegerArray;
FListaNombresProveedores: TStringList;
FImporteMinimo: Currency;
FShowLogotipo: Boolean;
FImprimirPrecio : Boolean;
FImprimirRefProveedor : Boolean;
FDesglosado : Boolean;
@ -150,6 +151,8 @@ end;
procedure TRptPedidosProveedor.frxReportGetValue(const VarName: string;
var Value: Variant);
begin
if VarName = 'ShowLogotipo' then
Value := FShowLogotipo;
if VarName = 'ImprimirPrecio' then
Value := FImprimirPrecio;
if VarName = 'ImprimirRefProveedor' then
@ -220,6 +223,7 @@ var
i: Integer;
begin
Result := Binary.Create;
FShowLogotipo:= False;
FImprimirPrecio := ImprimirPrecio;
FImprimirRefProveedor := ImprimirRefProveedor;
try
@ -282,6 +286,7 @@ var
i: Integer;
begin
Result := Binary.Create;
FShowLogotipo:= False;
FImprimirPrecio := ImprimirPrecio;
FImprimirRefProveedor := ImprimirRefProveedor;
try

4
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas
View File

@ -238,7 +238,7 @@ var
begin
inherited;
AllItems := False;
FImprimirPrecios := True;
FImprimirPrecios := False;
FImprimirRefProveedor := True;
if ElegirOpcionesImpresionPedidoProveedor(FImprimirPrecios, FImprimirRefProveedor) then
@ -305,7 +305,7 @@ var
begin
inherited;
AllItems := False;
FImprimirPrecios := True;
FImprimirPrecios := False;
FImprimirRefProveedor := True;
if ElegirOpcionesImpresionPedidoProveedor(FImprimirPrecios, FImprimirRefProveedor) then

4
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedor.pas
View File

@ -296,7 +296,7 @@ var
begin
APedidos := Nil;
AllItems := False;
FImprimirPrecios := True;
FImprimirPrecios := False;
FImprimirRefProveedor := True;
if MultiSelect and Assigned(ViewGrid) then
@ -393,7 +393,7 @@ var
begin
APedidos := Nil;
AllItems := False;
FImprimirPrecios := True;
FImprimirPrecios := False;
FImprimirRefProveedor := True;
if MultiSelect and Assigned(ViewGrid) then

7
Source/Modulos/Pedidos de cliente/Controller/View/uIEditorPedidosClientePreview.pas
View File

@ -8,6 +8,13 @@ uses
type
IEditorPedidosClientePreview = interface(IEditorPreview)
['{B60B6013-32C0-4694-9676-F582A759CB48}']
procedure SetVerPrecios(const Value: Boolean);
function GetVerPrecios: Boolean;
property VerPrecios : Boolean read GetVerPrecios write SetVerPrecios;
function GetVerRefProveedor: Boolean;
procedure SetVerRefProveedor(const Value: Boolean);
property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor;
end;

16
Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas
View File

@ -41,9 +41,9 @@ type
function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente;
procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = False;
const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
procedure Print(APedido : IBizPedidoCliente; AllItems: Boolean = False;
const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
procedure RecalcularImportes(APedido: IBizPedidoCliente);
function EsModificable(APedido : IBizPedidoCliente): Boolean;
@ -117,9 +117,9 @@ type
function Duplicar(APedido: IBizPedidoCliente): IBizPedidoCliente;
procedure Preview(APedido : IBizPedidoCliente; AllItems: Boolean = False;
const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
procedure Print(APedido : IBizPedidoCliente; AllItems: Boolean = False;
const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
procedure RecalcularImportes(APedido: IBizPedidoCliente);
function EsModificable(APedido : IBizPedidoCliente): Boolean;
@ -876,7 +876,7 @@ begin
end;
procedure TPedidosClienteController.Preview(APedido: IBizPedidoCliente; AllItems: Boolean = false;
const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
var
AReportController : IPedidosClienteReportController;
ID_Pedidos: TIntegerList;
@ -903,7 +903,7 @@ begin
else
ID_Pedidos.Add(APedido.ID);
AReportController.Preview(ID_Pedidos, VerPrecios, VerRefCliente);
AReportController.Preview(ID_Pedidos, VerPrecios, VerRefProveedor);
finally
AReportController := NIL;
FreeANDNIL(ID_Pedidos)
@ -911,7 +911,7 @@ begin
end;
procedure TPedidosClienteController.Print(APedido: IBizPedidoCliente; AllItems: Boolean = false;
const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
var
AReportController : IPedidosClienteReportController;
ID_Pedidos: TIntegerList;
@ -937,7 +937,7 @@ begin
else
ID_Pedidos.Add(APedido.ID);
AReportController.Print(ID_Pedidos, VerPrecios, VerRefCliente);
AReportController.Print(ID_Pedidos, VerPrecios, VerRefProveedor);
finally
AReportController := NIL;
FreeANDNIL(ID_Pedidos)

28
Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteReportController.pas
View File

@ -11,11 +11,11 @@ type
IPedidosClienteReportController = interface(IControllerBase)
['{D68620B5-2EB6-47DE-89D9-560943990895}']
procedure Preview(const AListaID : TIntegerList;
const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
procedure Print(const AListaID : TIntegerList;
const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
function ExportToPDF(const AID: Integer; const AFileName : String = '';
const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True): Boolean;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean;
end;
TPedidosClienteReportController = class(TControllerBase, IPedidosClienteReportController)
@ -27,11 +27,11 @@ type
destructor Destroy; override;
procedure Preview(const AListaID : TIntegerList;
const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
procedure Print(const AListaID : TIntegerList;
const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True);
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True);
function ExportToPDF(const AID: Integer; const AFileName : String = '';
const VerPrecios: Boolean = True; const VerRefCliente: Boolean = True): Boolean;
const VerPrecios: Boolean = True; const VerRefProveedor: Boolean = True): Boolean;
end;
@ -65,7 +65,7 @@ end;
function TPedidosClienteReportController.ExportToPDF(const AID: Integer;
const AFileName: String; const VerPrecios: Boolean;
const VerRefCliente: Boolean): Boolean;
const VerRefProveedor: Boolean): Boolean;
var
AStream: Binary;
begin
@ -75,7 +75,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetRptPDFPedido(AID, VerPrecios, VerRefCliente);
AStream := FDataModule.GetRptPDFPedido(AID, VerPrecios, VerRefProveedor);
try
AStream.SaveToFile(AFileName);
Result := True;
@ -88,7 +88,7 @@ begin
end;
procedure TPedidosClienteReportController.Preview(const AListaID : TIntegerList;
const VerPrecios: Boolean; const VerRefCliente: Boolean);
const VerPrecios: Boolean; const VerRefProveedor: Boolean);
var
AStream: Binary;
AEditor : IEditorPedidosClientePreview;
@ -97,7 +97,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefCliente);
AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefProveedor);
try
CreateEditor('EditorPedidosClientePreview', IEditorPedidosClientePreview, AEditor);
if Assigned(AEditor) then
@ -105,8 +105,8 @@ begin
try
AEditor.Controller := Self;
AEditor.ListaID := AListaID;
// AEditor.VerPrecios := VerPrecios;
// AEditor.VerRefProveedor := VerRefProveedor;
AEditor.VerPrecios := VerPrecios;
AEditor.VerRefProveedor := VerRefProveedor;
AEditor.Title := 'Pedido de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
AEditor.LoadFromStream(AStream);
AEditor.Preview;
@ -124,7 +124,7 @@ begin
end;
procedure TPedidosClienteReportController.Print(const AListaID : TIntegerList;
const VerPrecios: Boolean; const VerRefCliente: Boolean);
const VerPrecios: Boolean; const VerRefProveedor: Boolean);
var
AStream: Binary;
AEditor : IEditorPedidosClientePreview;
@ -133,7 +133,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefCliente);
AStream := FDataModule.GetReport(AListaID, VerPrecios, VerRefProveedor);
try
CreateEditor('EditorPedidosClientePreview', IEditorPedidosClientePreview, AEditor);
if Assigned(AEditor) then

7
Source/Modulos/Pedidos de cliente/Reports/uRptPedidosCliente_Server.pas
View File

@ -79,6 +79,7 @@ type
FListaIDProveedores: TIntegerArray;
FListaNombresProveedores: TStringList;
FImporteMinimo: Currency;
FShowLogotipo: Boolean;
FImprimirPrecio : Boolean;
FImprimirRefProveedor : Boolean;
FDesglosado : Boolean;
@ -111,7 +112,7 @@ uses
uROServer, DataAbstract4_Intf;
const
rptInforme = 'InfPedidoProveedor.fr3';
rptInforme = 'InfPedidoCliente.fr3';
rptInformeListadoPedidosDesglosado = 'InformeListadoPedidosDesglosado.fr3';
rptInformeListadoPedidos = 'InformeListadoPedidos.fr3';
@ -150,6 +151,8 @@ end;
procedure TRptPedidosCliente.frxReportGetValue(const VarName: string;
var Value: Variant);
begin
if VarName = 'ShowLogotipo' then
Value := FShowLogotipo;
if VarName = 'ImprimirPrecio' then
Value := FImprimirPrecio;
if VarName = 'ImprimirRefProveedor' then
@ -220,6 +223,7 @@ var
i: Integer;
begin
Result := Binary.Create;
FShowLogotipo:= True;
FImprimirPrecio := ImprimirPrecio;
FImprimirRefProveedor := ImprimirRefProveedor;
try
@ -282,6 +286,7 @@ var
i: Integer;
begin
Result := Binary.Create;
FShowLogotipo:= True;
FImprimirPrecio := ImprimirPrecio;
FImprimirRefProveedor := ImprimirRefProveedor;
try

18
Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.pas
View File

@ -46,9 +46,7 @@ uses
Dialogs, uSistemaFunc,
{Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils,
schPedidosClienteClient_Intf, uRestriccionesUsuarioUtils,
uBizPedidosClienteServer;
//, uRptPedidosCliente_Server;
uBizPedidosClienteServer, uRptPedidosCliente_Server;
{ uRORemoteDataModule,
fServerForm, Variants, IB,
@ -87,33 +85,31 @@ end;
function TsrvPedidosCliente.GenerarInforme(const ListaID: TIntegerArray;
const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary;
//var
// AReportGenerator : TRptPedidosCliente;
var
AReportGenerator : TRptPedidosCliente;
begin
{ AReportGenerator := TRptPedidosCliente.Create(nil);
AReportGenerator := TRptPedidosCliente.Create(nil);
try
Result := AReportGenerator.GenerarPedido(ListaID,
ImprimirPrecio, ImprimirRefProveedor);
finally
FreeAndNIL(AReportGenerator);
end;
}
end;
function TsrvPedidosCliente.GenerarInformeEnPDF(
const ListaID: TIntegerArray;
const ImprimirPrecio: Boolean; const ImprimirRefProveedor: Boolean): Binary;
//var
// AReportGenerator : TRptPedidosCliente;
var
AReportGenerator : TRptPedidosCliente;
begin
{ AReportGenerator := TRptPedidosCliente.Create(nil);
AReportGenerator := TRptPedidosCliente.Create(nil);
try
Result := AReportGenerator.GenerarPedidoEnPDF(ListaID,
ImprimirPrecio, ImprimirRefProveedor);
finally
FreeAndNIL(AReportGenerator);
end;
}
end;
initialization

8
Source/Modulos/Pedidos de cliente/Views/uEditorPedidoCliente.pas
View File

@ -303,15 +303,15 @@ procedure TfEditorPedidoCliente.PrevisualizarInterno;
var
AllItems: Boolean;
FImprimirPrecios : Boolean;
FImprimirRefCliente : Boolean;
FImprimirRefProveedor : Boolean;
begin
inherited;
AllItems := False;
FImprimirPrecios := True;
FImprimirRefCliente := True;
FImprimirRefProveedor := True;
if ElegirOpcionesImpresionPedidoCliente(FImprimirPrecios, FImprimirRefCliente) then
FController.Preview(FPedido, AllItems, FImprimirPrecios, FImprimirRefCliente);
if ElegirOpcionesImpresionPedidoCliente(FImprimirPrecios, FImprimirRefProveedor) then
FController.Preview(FPedido, AllItems, FImprimirPrecios, FImprimirRefProveedor);
end;
procedure TfEditorPedidoCliente.RecalcularPortePorUnidad;

77
Source/Modulos/Pedidos de cliente/Views/uEditorPedidosClienteReport.pas Normal file
View File

@ -0,0 +1,77 @@
unit uEditorPedidosClienteReport;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorPreview, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorPedidosClientePreview,
JvExComCtrls, JvStatusBar, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode,
frxExportText, frxExportRTF, frxExportMail, frxExportXLS;
type
TfEditorPedidosClientePreview = class(TfEditorPreview, IEditorPedidosClientePreview)
TBXItem58: TTBXItem;
procedure actExportarRTFExecute(Sender: TObject);
private
FVerPrecios : Boolean;
FVerRefProveedor : Boolean;
function GetVerPrecios: Boolean;
function GetVerRefProveedor: Boolean;
procedure SetVerPrecios(const Value: Boolean);
procedure SetVerRefProveedor(const Value: Boolean);
{ Private declarations }
public
property VerPrecios : Boolean read GetVerPrecios write SetVerPrecios;
property VerRefProveedor : Boolean read GetVerRefProveedor write SetVerRefProveedor;
end;
implementation
{$R *.dfm}
uses
uPedidosClienteReportController, uDialogUtils;
procedure TfEditorPedidosClientePreview.actExportarRTFExecute(
Sender: TObject);
var
I: Integer;
begin
// inherited; <- No llamar al padre
{ if not Assigned(Controller) then
raise Exception.Create('No se ha asignado el controlador necesario');
for I := 0 to ListaID.Count - 1 do
if (Controller as IPedidosClienteReportController).ExportToWord(ListaID[I], '',
FVerPrecios, FVerRefProveedor) then
ShowInfoMessage('El pedido se ha exportado correctamente.');
}
end;
function TfEditorPedidosClientePreview.GetVerPrecios: Boolean;
begin
Result := FVerPrecios;
end;
function TfEditorPedidosClientePreview.GetVerRefProveedor: Boolean;
begin
Result := FVerRefProveedor;
end;
procedure TfEditorPedidosClientePreview.SetVerPrecios(const Value: Boolean);
begin
FVerPrecios := Value;
end;
procedure TfEditorPedidosClientePreview.SetVerRefProveedor(
const Value: Boolean);
begin
FVerRefProveedor := Value;
end;
end.

6
Source/Modulos/Pedidos de cliente/Views/uPedidosClienteViewRegister.pas
View File

@ -11,7 +11,7 @@ uses
uEditorRegistryUtils,
uEditorPedidosCliente,
uEditorPedidoCliente,
// uEditorPedidosClienteReport,
uEditorPedidosClienteReport,
// uEditorElegirPedidosCliente,
uEditorElegirArticulosPedidoCliente,
uEditorDireccionEntregaPedidoCliente;
@ -24,7 +24,7 @@ begin
EditorRegistry.RegisterClass(TfEditorPedidoCliente, 'EditorPedidoCliente');
// EditorRegistry.RegisterClass(TfEditorElegirPedidosCliente, 'EditorElegirPedidosCliente');
EditorRegistry.RegisterClass(TfEditorElegirArticulosPedidoCliente, 'EditorElegirArticulosPedidoCliente');
// EditorRegistry.RegisterClass(TfEditorPedidosClientePreview, 'EditorPedidosClientePreview');
EditorRegistry.RegisterClass(TfEditorPedidosClientePreview, 'EditorPedidosClientePreview');
// EditorRegistry.RegisterClass(TfEditorSituacionPedidoCliente, 'EditorSituacionPedidoCliente');
end;
@ -35,7 +35,7 @@ begin
EditorRegistry.UnRegisterClass(TfEditorPedidoCliente);
// EditorRegistry.UnRegisterClass(TfEditorElegirPedidosCliente);
EditorRegistry.UnRegisterClass(TfEditorElegirArticulosPedidoCliente);
// EditorRegistry.UnRegisterClass(TfEditorPedidosClientePreview);
EditorRegistry.UnRegisterClass(TfEditorPedidosClientePreview);
// EditorRegistry.UnRegisterClass(TfEditorSituacionPedidoCliente);
end;

10
Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
View File

@ -3,7 +3,7 @@ unit schRecibosClienteClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -223,7 +223,7 @@ type
end;
{ TListaAnosRecibosDataTableRules }
TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos)
TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos)
private
protected
{ Property getters and setters }
@ -468,7 +468,7 @@ type
end;
{ TRecibosClienteDataTableRules }
TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
private
protected
{ Property getters and setters }
@ -779,7 +779,7 @@ type
end;
{ TPagosClienteDataTableRules }
TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
private
protected
{ Property getters and setters }
@ -1090,7 +1090,7 @@ type
end;
{ TRecibosCompensadosCliDataTableRules }
TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
private
protected
{ Property getters and setters }

318
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
View File

@ -3,16 +3,16 @@ unit schRecibosProveedorClient_Intf;
interface
uses
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosRecibos = '{E517AD0B-3117-47E6-BDE0-C6F56CA71A1D}';
RID_RecibosCompensadosProv = '{9EAB41F6-5853-4683-A0E3-F66C12232C03}';
RID_RecibosProveedor = '{2344F4F7-8139-44E1-B225-3E581F4B9FB2}';
RID_PagosProveedor = '{873FD5ED-817D-4AF3-81CF-5D3290B15090}';
RID_ListaAnosRecibos = '{86E71826-275E-4A5A-863D-B21956A3AED2}';
RID_RecibosCompensadosProv = '{80E7A05A-0220-4E61-8D3F-A98F1141A621}';
RID_RecibosProveedor = '{520C0FD8-98B8-40E4-9BED-4E40C9D0ADF4}';
RID_PagosProveedor = '{B5FDAB8C-A57F-41AD-995D-651BEAD70D75}';
{ Data table names }
nme_ListaAnosRecibos = 'ListaAnosRecibos';
@ -52,6 +52,10 @@ const
fld_RecibosCompensadosProvID_PROVEEDOR = 'ID_PROVEEDOR';
fld_RecibosCompensadosProvNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 'NIF_CIF_PROVEEDOR';
fld_RecibosCompensadosProvENTIDAD_PROVEEDOR = 'ENTIDAD_PROVEEDOR';
fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR = 'SUCURSAL_PROVEEDOR';
fld_RecibosCompensadosProvDC_PROVEEDOR = 'DC_PROVEEDOR';
fld_RecibosCompensadosProvCUENTA_PROVEEDOR = 'CUENTA_PROVEEDOR';
fld_RecibosCompensadosProvFECHA_ALTA = 'FECHA_ALTA';
fld_RecibosCompensadosProvFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosCompensadosProvUSUARIO = 'USUARIO';
@ -82,9 +86,13 @@ const
idx_RecibosCompensadosProvID_PROVEEDOR = 22;
idx_RecibosCompensadosProvNOMBRE_PROVEEDOR = 23;
idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR = 24;
idx_RecibosCompensadosProvFECHA_ALTA = 25;
idx_RecibosCompensadosProvFECHA_MODIFICACION = 26;
idx_RecibosCompensadosProvUSUARIO = 27;
idx_RecibosCompensadosProvENTIDAD_PROVEEDOR = 25;
idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR = 26;
idx_RecibosCompensadosProvDC_PROVEEDOR = 27;
idx_RecibosCompensadosProvCUENTA_PROVEEDOR = 28;
idx_RecibosCompensadosProvFECHA_ALTA = 29;
idx_RecibosCompensadosProvFECHA_MODIFICACION = 30;
idx_RecibosCompensadosProvUSUARIO = 31;
{ RecibosProveedor fields }
fld_RecibosProveedorID = 'ID';
@ -112,6 +120,10 @@ const
fld_RecibosProveedorID_PROVEEDOR = 'ID_PROVEEDOR';
fld_RecibosProveedorNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
fld_RecibosProveedorNIF_CIF_PROVEEDOR = 'NIF_CIF_PROVEEDOR';
fld_RecibosProveedorENTIDAD_PROVEEDOR = 'ENTIDAD_PROVEEDOR';
fld_RecibosProveedorSUCURSAL_PROVEEDOR = 'SUCURSAL_PROVEEDOR';
fld_RecibosProveedorDC_PROVEEDOR = 'DC_PROVEEDOR';
fld_RecibosProveedorCUENTA_PROVEEDOR = 'CUENTA_PROVEEDOR';
fld_RecibosProveedorFECHA_ALTA = 'FECHA_ALTA';
fld_RecibosProveedorFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_RecibosProveedorUSUARIO = 'USUARIO';
@ -142,9 +154,13 @@ const
idx_RecibosProveedorID_PROVEEDOR = 22;
idx_RecibosProveedorNOMBRE_PROVEEDOR = 23;
idx_RecibosProveedorNIF_CIF_PROVEEDOR = 24;
idx_RecibosProveedorFECHA_ALTA = 25;
idx_RecibosProveedorFECHA_MODIFICACION = 26;
idx_RecibosProveedorUSUARIO = 27;
idx_RecibosProveedorENTIDAD_PROVEEDOR = 25;
idx_RecibosProveedorSUCURSAL_PROVEEDOR = 26;
idx_RecibosProveedorDC_PROVEEDOR = 27;
idx_RecibosProveedorCUENTA_PROVEEDOR = 28;
idx_RecibosProveedorFECHA_ALTA = 29;
idx_RecibosProveedorFECHA_MODIFICACION = 30;
idx_RecibosProveedorUSUARIO = 31;
{ PagosProveedor fields }
fld_PagosProveedorID = 'ID';
@ -177,7 +193,7 @@ const
type
{ IListaAnosRecibos }
IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
['{738763D4-26C6-4F0D-BB6E-D638C380B114}']
['{3A7340AE-117A-4B22-8B3C-74EF250CF441}']
{ Property getters and setters }
function GetANOValue: String;
procedure SetANOValue(const aValue: String);
@ -191,7 +207,7 @@ type
end;
{ TListaAnosRecibosDataTableRules }
TListaAnosRecibosDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRecibos)
TListaAnosRecibosDataTableRules = class(TDADataTableRules, IListaAnosRecibos)
private
protected
{ Property getters and setters }
@ -212,7 +228,7 @@ type
{ IRecibosCompensadosProv }
IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
['{43B7C892-1530-424B-B6B0-380E0A018456}']
['{0A3240FC-E9D9-41DF-99B9-768AECEC817C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -314,6 +330,22 @@ type
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String);
function GetNIF_CIF_PROVEEDORIsNull: Boolean;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean);
function GetENTIDAD_PROVEEDORValue: String;
procedure SetENTIDAD_PROVEEDORValue(const aValue: String);
function GetENTIDAD_PROVEEDORIsNull: Boolean;
procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
function GetSUCURSAL_PROVEEDORValue: String;
procedure SetSUCURSAL_PROVEEDORValue(const aValue: String);
function GetSUCURSAL_PROVEEDORIsNull: Boolean;
procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
function GetDC_PROVEEDORValue: String;
procedure SetDC_PROVEEDORValue(const aValue: String);
function GetDC_PROVEEDORIsNull: Boolean;
procedure SetDC_PROVEEDORIsNull(const aValue: Boolean);
function GetCUENTA_PROVEEDORValue: String;
procedure SetCUENTA_PROVEEDORValue(const aValue: String);
function GetCUENTA_PROVEEDORIsNull: Boolean;
procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean;
@ -379,6 +411,14 @@ type
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -388,7 +428,7 @@ type
end;
{ TRecibosCompensadosProvDataTableRules }
TRecibosCompensadosProvDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosProv)
TRecibosCompensadosProvDataTableRules = class(TDADataTableRules, IRecibosCompensadosProv)
private
protected
{ Property getters and setters }
@ -492,6 +532,22 @@ type
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_PROVEEDORValue: String; virtual;
procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual;
procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_PROVEEDORValue: String; virtual;
procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetDC_PROVEEDORValue: String; virtual;
procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
function GetDC_PROVEEDORIsNull: Boolean; virtual;
procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCUENTA_PROVEEDORValue: String; virtual;
procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
function GetCUENTA_PROVEEDORIsNull: Boolean; virtual;
procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
@ -556,6 +612,14 @@ type
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -571,7 +635,7 @@ type
{ IRecibosProveedor }
IRecibosProveedor = interface(IDAStronglyTypedDataTable)
['{A7B468FD-DB65-4615-A6C5-1E2807D62ABE}']
['{57CA1618-75D7-4E37-830C-F7F6C6329C3C}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -673,6 +737,22 @@ type
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String);
function GetNIF_CIF_PROVEEDORIsNull: Boolean;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean);
function GetENTIDAD_PROVEEDORValue: String;
procedure SetENTIDAD_PROVEEDORValue(const aValue: String);
function GetENTIDAD_PROVEEDORIsNull: Boolean;
procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
function GetSUCURSAL_PROVEEDORValue: String;
procedure SetSUCURSAL_PROVEEDORValue(const aValue: String);
function GetSUCURSAL_PROVEEDORIsNull: Boolean;
procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
function GetDC_PROVEEDORValue: String;
procedure SetDC_PROVEEDORValue(const aValue: String);
function GetDC_PROVEEDORIsNull: Boolean;
procedure SetDC_PROVEEDORIsNull(const aValue: Boolean);
function GetCUENTA_PROVEEDORValue: String;
procedure SetCUENTA_PROVEEDORValue(const aValue: String);
function GetCUENTA_PROVEEDORIsNull: Boolean;
procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean;
@ -738,6 +818,14 @@ type
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -747,7 +835,7 @@ type
end;
{ TRecibosProveedorDataTableRules }
TRecibosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IRecibosProveedor)
TRecibosProveedorDataTableRules = class(TDADataTableRules, IRecibosProveedor)
private
protected
{ Property getters and setters }
@ -851,6 +939,22 @@ type
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
function GetNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_PROVEEDORValue: String; virtual;
procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual;
procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_PROVEEDORValue: String; virtual;
procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetDC_PROVEEDORValue: String; virtual;
procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
function GetDC_PROVEEDORIsNull: Boolean; virtual;
procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCUENTA_PROVEEDORValue: String; virtual;
procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
function GetCUENTA_PROVEEDORIsNull: Boolean; virtual;
procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
@ -915,6 +1019,14 @@ type
property NOMBRE_PROVEEDORIsNull: Boolean read GetNOMBRE_PROVEEDORIsNull write SetNOMBRE_PROVEEDORIsNull;
property NIF_CIF_PROVEEDOR: String read GetNIF_CIF_PROVEEDORValue write SetNIF_CIF_PROVEEDORValue;
property NIF_CIF_PROVEEDORIsNull: Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
property ENTIDAD_PROVEEDOR: String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
property ENTIDAD_PROVEEDORIsNull: Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
property SUCURSAL_PROVEEDOR: String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
property SUCURSAL_PROVEEDORIsNull: Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
property DC_PROVEEDOR: String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
property DC_PROVEEDORIsNull: Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
property CUENTA_PROVEEDOR: String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
property CUENTA_PROVEEDORIsNull: Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
@ -930,7 +1042,7 @@ type
{ IPagosProveedor }
IPagosProveedor = interface(IDAStronglyTypedDataTable)
['{6A3FB0F1-D6B5-49C4-A298-F046CF5DA655}']
['{E6FD7505-9514-4D2D-AB44-C2FC080E63AE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1010,7 +1122,7 @@ type
end;
{ TPagosProveedorDataTableRules }
TPagosProveedorDataTableRules = class(TIntfObjectDADataTableRules, IPagosProveedor)
TPagosProveedorDataTableRules = class(TDADataTableRules, IPagosProveedor)
private
protected
{ Property getters and setters }
@ -1668,6 +1780,90 @@ begin
DataTable.Fields[idx_RecibosCompensadosProvNIF_CIF_PROVEEDOR].AsVariant := Null;
end;
function TRecibosCompensadosProvDataTableRules.GetENTIDAD_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].AsString;
end;
procedure TRecibosCompensadosProvDataTableRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].AsString := aValue;
end;
function TRecibosCompensadosProvDataTableRules.GetENTIDAD_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].IsNull;
end;
procedure TRecibosCompensadosProvDataTableRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosProvENTIDAD_PROVEEDOR].AsVariant := Null;
end;
function TRecibosCompensadosProvDataTableRules.GetSUCURSAL_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].AsString;
end;
procedure TRecibosCompensadosProvDataTableRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].AsString := aValue;
end;
function TRecibosCompensadosProvDataTableRules.GetSUCURSAL_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].IsNull;
end;
procedure TRecibosCompensadosProvDataTableRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosProvSUCURSAL_PROVEEDOR].AsVariant := Null;
end;
function TRecibosCompensadosProvDataTableRules.GetDC_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].AsString;
end;
procedure TRecibosCompensadosProvDataTableRules.SetDC_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].AsString := aValue;
end;
function TRecibosCompensadosProvDataTableRules.GetDC_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].IsNull;
end;
procedure TRecibosCompensadosProvDataTableRules.SetDC_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosProvDC_PROVEEDOR].AsVariant := Null;
end;
function TRecibosCompensadosProvDataTableRules.GetCUENTA_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].AsString;
end;
procedure TRecibosCompensadosProvDataTableRules.SetCUENTA_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].AsString := aValue;
end;
function TRecibosCompensadosProvDataTableRules.GetCUENTA_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].IsNull;
end;
procedure TRecibosCompensadosProvDataTableRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosCompensadosProvCUENTA_PROVEEDOR].AsVariant := Null;
end;
function TRecibosCompensadosProvDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_RecibosCompensadosProvFECHA_ALTA].AsDateTime;
@ -2268,6 +2464,90 @@ begin
DataTable.Fields[idx_RecibosProveedorNIF_CIF_PROVEEDOR].AsVariant := Null;
end;
function TRecibosProveedorDataTableRules.GetENTIDAD_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].AsString;
end;
procedure TRecibosProveedorDataTableRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].AsString := aValue;
end;
function TRecibosProveedorDataTableRules.GetENTIDAD_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].IsNull;
end;
procedure TRecibosProveedorDataTableRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosProveedorENTIDAD_PROVEEDOR].AsVariant := Null;
end;
function TRecibosProveedorDataTableRules.GetSUCURSAL_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].AsString;
end;
procedure TRecibosProveedorDataTableRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].AsString := aValue;
end;
function TRecibosProveedorDataTableRules.GetSUCURSAL_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].IsNull;
end;
procedure TRecibosProveedorDataTableRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosProveedorSUCURSAL_PROVEEDOR].AsVariant := Null;
end;
function TRecibosProveedorDataTableRules.GetDC_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].AsString;
end;
procedure TRecibosProveedorDataTableRules.SetDC_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].AsString := aValue;
end;
function TRecibosProveedorDataTableRules.GetDC_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].IsNull;
end;
procedure TRecibosProveedorDataTableRules.SetDC_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosProveedorDC_PROVEEDOR].AsVariant := Null;
end;
function TRecibosProveedorDataTableRules.GetCUENTA_PROVEEDORValue: String;
begin
result := DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].AsString;
end;
procedure TRecibosProveedorDataTableRules.SetCUENTA_PROVEEDORValue(const aValue: String);
begin
DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].AsString := aValue;
end;
function TRecibosProveedorDataTableRules.GetCUENTA_PROVEEDORIsNull: boolean;
begin
result := DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].IsNull;
end;
procedure TRecibosProveedorDataTableRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_RecibosProveedorCUENTA_PROVEEDOR].AsVariant := Null;
end;
function TRecibosProveedorDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_RecibosProveedorFECHA_ALTA].AsDateTime;

360
Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
View File

@ -9,15 +9,15 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_ListaAnosRecibosDelta = '{7319675D-5CEC-4118-8CA5-D1D9A3E862B7}';
RID_RecibosCompensadosProvDelta = '{96E9C110-BDAA-4E8E-B142-2F74CCFDBC74}';
RID_RecibosProveedorDelta = '{AB79EADA-4BE6-4E51-BFEA-C4F1C20E8059}';
RID_PagosProveedorDelta = '{E48CD2E0-5DD4-41AF-97DE-F945B013E452}';
RID_ListaAnosRecibosDelta = '{CEF05DC1-6B9E-474B-8A65-DA95A612D89E}';
RID_RecibosCompensadosProvDelta = '{19410887-89F2-4DA4-B652-CC673A904159}';
RID_RecibosProveedorDelta = '{053B97EC-710A-491F-94B5-2A3DC4519D8F}';
RID_PagosProveedorDelta = '{3BC45D98-D47D-4921-BB34-44DE99F785F2}';
type
{ IListaAnosRecibosDelta }
IListaAnosRecibosDelta = interface(IListaAnosRecibos)
['{7319675D-5CEC-4118-8CA5-D1D9A3E862B7}']
['{CEF05DC1-6B9E-474B-8A65-DA95A612D89E}']
{ Property getters and setters }
function GetOldANOValue : String;
@ -51,7 +51,7 @@ type
{ IRecibosCompensadosProvDelta }
IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
['{96E9C110-BDAA-4E8E-B142-2F74CCFDBC74}']
['{19410887-89F2-4DA4-B652-CC673A904159}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -78,6 +78,10 @@ type
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldNIF_CIF_PROVEEDORValue : String;
function GetOldENTIDAD_PROVEEDORValue : String;
function GetOldSUCURSAL_PROVEEDORValue : String;
function GetOldDC_PROVEEDORValue : String;
function GetOldCUENTA_PROVEEDORValue : String;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
@ -108,6 +112,10 @@ type
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
@ -268,6 +276,30 @@ type
function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_PROVEEDORValue: String; virtual;
function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual;
function GetOldENTIDAD_PROVEEDORValue: String; virtual;
function GetOldENTIDAD_PROVEEDORIsNull: Boolean; virtual;
procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_PROVEEDORValue: String; virtual;
function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
function GetOldSUCURSAL_PROVEEDORValue: String; virtual;
function GetOldSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetDC_PROVEEDORValue: String; virtual;
function GetDC_PROVEEDORIsNull: Boolean; virtual;
function GetOldDC_PROVEEDORValue: String; virtual;
function GetOldDC_PROVEEDORIsNull: Boolean; virtual;
procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCUENTA_PROVEEDORValue: String; virtual;
function GetCUENTA_PROVEEDORIsNull: Boolean; virtual;
function GetOldCUENTA_PROVEEDORValue: String; virtual;
function GetOldCUENTA_PROVEEDORIsNull: Boolean; virtual;
procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
@ -388,6 +420,22 @@ type
property NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull;
property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
property ENTIDAD_PROVEEDORIsNull : Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
property OldENTIDAD_PROVEEDORIsNull : Boolean read GetOldENTIDAD_PROVEEDORIsNull;
property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
property SUCURSAL_PROVEEDORIsNull : Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
property OldSUCURSAL_PROVEEDORIsNull : Boolean read GetOldSUCURSAL_PROVEEDORIsNull;
property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
property DC_PROVEEDORIsNull : Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
property OldDC_PROVEEDORIsNull : Boolean read GetOldDC_PROVEEDORIsNull;
property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
property CUENTA_PROVEEDORIsNull : Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
property OldCUENTA_PROVEEDORIsNull : Boolean read GetOldCUENTA_PROVEEDORIsNull;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
@ -409,7 +457,7 @@ type
{ IRecibosProveedorDelta }
IRecibosProveedorDelta = interface(IRecibosProveedor)
['{AB79EADA-4BE6-4E51-BFEA-C4F1C20E8059}']
['{053B97EC-710A-491F-94B5-2A3DC4519D8F}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBO_COMPENSADOValue : Integer;
@ -436,6 +484,10 @@ type
function GetOldID_PROVEEDORValue : Integer;
function GetOldNOMBRE_PROVEEDORValue : String;
function GetOldNIF_CIF_PROVEEDORValue : String;
function GetOldENTIDAD_PROVEEDORValue : String;
function GetOldSUCURSAL_PROVEEDORValue : String;
function GetOldDC_PROVEEDORValue : String;
function GetOldCUENTA_PROVEEDORValue : String;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String;
@ -466,6 +518,10 @@ type
property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue;
@ -626,6 +682,30 @@ type
function GetOldNIF_CIF_PROVEEDORIsNull: Boolean; virtual;
procedure SetNIF_CIF_PROVEEDORValue(const aValue: String); virtual;
procedure SetNIF_CIF_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetENTIDAD_PROVEEDORValue: String; virtual;
function GetENTIDAD_PROVEEDORIsNull: Boolean; virtual;
function GetOldENTIDAD_PROVEEDORValue: String; virtual;
function GetOldENTIDAD_PROVEEDORIsNull: Boolean; virtual;
procedure SetENTIDAD_PROVEEDORValue(const aValue: String); virtual;
procedure SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetSUCURSAL_PROVEEDORValue: String; virtual;
function GetSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
function GetOldSUCURSAL_PROVEEDORValue: String; virtual;
function GetOldSUCURSAL_PROVEEDORIsNull: Boolean; virtual;
procedure SetSUCURSAL_PROVEEDORValue(const aValue: String); virtual;
procedure SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetDC_PROVEEDORValue: String; virtual;
function GetDC_PROVEEDORIsNull: Boolean; virtual;
function GetOldDC_PROVEEDORValue: String; virtual;
function GetOldDC_PROVEEDORIsNull: Boolean; virtual;
procedure SetDC_PROVEEDORValue(const aValue: String); virtual;
procedure SetDC_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetCUENTA_PROVEEDORValue: String; virtual;
function GetCUENTA_PROVEEDORIsNull: Boolean; virtual;
function GetOldCUENTA_PROVEEDORValue: String; virtual;
function GetOldCUENTA_PROVEEDORIsNull: Boolean; virtual;
procedure SetCUENTA_PROVEEDORValue(const aValue: String); virtual;
procedure SetCUENTA_PROVEEDORIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
@ -746,6 +826,22 @@ type
property NIF_CIF_PROVEEDORIsNull : Boolean read GetNIF_CIF_PROVEEDORIsNull write SetNIF_CIF_PROVEEDORIsNull;
property OldNIF_CIF_PROVEEDOR : String read GetOldNIF_CIF_PROVEEDORValue;
property OldNIF_CIF_PROVEEDORIsNull : Boolean read GetOldNIF_CIF_PROVEEDORIsNull;
property ENTIDAD_PROVEEDOR : String read GetENTIDAD_PROVEEDORValue write SetENTIDAD_PROVEEDORValue;
property ENTIDAD_PROVEEDORIsNull : Boolean read GetENTIDAD_PROVEEDORIsNull write SetENTIDAD_PROVEEDORIsNull;
property OldENTIDAD_PROVEEDOR : String read GetOldENTIDAD_PROVEEDORValue;
property OldENTIDAD_PROVEEDORIsNull : Boolean read GetOldENTIDAD_PROVEEDORIsNull;
property SUCURSAL_PROVEEDOR : String read GetSUCURSAL_PROVEEDORValue write SetSUCURSAL_PROVEEDORValue;
property SUCURSAL_PROVEEDORIsNull : Boolean read GetSUCURSAL_PROVEEDORIsNull write SetSUCURSAL_PROVEEDORIsNull;
property OldSUCURSAL_PROVEEDOR : String read GetOldSUCURSAL_PROVEEDORValue;
property OldSUCURSAL_PROVEEDORIsNull : Boolean read GetOldSUCURSAL_PROVEEDORIsNull;
property DC_PROVEEDOR : String read GetDC_PROVEEDORValue write SetDC_PROVEEDORValue;
property DC_PROVEEDORIsNull : Boolean read GetDC_PROVEEDORIsNull write SetDC_PROVEEDORIsNull;
property OldDC_PROVEEDOR : String read GetOldDC_PROVEEDORValue;
property OldDC_PROVEEDORIsNull : Boolean read GetOldDC_PROVEEDORIsNull;
property CUENTA_PROVEEDOR : String read GetCUENTA_PROVEEDORValue write SetCUENTA_PROVEEDORValue;
property CUENTA_PROVEEDORIsNull : Boolean read GetCUENTA_PROVEEDORIsNull write SetCUENTA_PROVEEDORIsNull;
property OldCUENTA_PROVEEDOR : String read GetOldCUENTA_PROVEEDORValue;
property OldCUENTA_PROVEEDORIsNull : Boolean read GetOldCUENTA_PROVEEDORIsNull;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
@ -767,7 +863,7 @@ type
{ IPagosProveedorDelta }
IPagosProveedorDelta = interface(IPagosProveedor)
['{E48CD2E0-5DD4-41AF-97DE-F945B013E452}']
['{3BC45D98-D47D-4921-BB34-44DE99F785F2}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_RECIBOValue : Integer;
@ -1765,6 +1861,130 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvNIF_CIF_PROVEEDOR] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetENTIDAD_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldENTIDAD_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvENTIDAD_PROVEEDOR] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetSUCURSAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvSUCURSAL_PROVEEDOR] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetDC_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetDC_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldDC_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldDC_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetDC_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvDC_PROVEEDOR] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetCUENTA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]);
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR];
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetOldCUENTA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR]);
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR] := aValue;
end;
procedure TRecibosCompensadosProvBusinessProcessorRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvCUENTA_PROVEEDOR] := Null;
end;
function TRecibosCompensadosProvBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosCompensadosProvFECHA_ALTA];
@ -2645,6 +2865,130 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorNIF_CIF_PROVEEDOR] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetENTIDAD_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldENTIDAD_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetENTIDAD_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorENTIDAD_PROVEEDOR] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetSUCURSAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldSUCURSAL_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetSUCURSAL_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorSUCURSAL_PROVEEDOR] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetDC_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldDC_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDC_PROVEEDOR]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetDC_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDC_PROVEEDOR] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetCUENTA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]);
end;
function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR];
end;
function TRecibosProveedorBusinessProcessorRules.GetOldCUENTA_PROVEEDORIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR]);
end;
procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := aValue;
end;
procedure TRecibosProveedorBusinessProcessorRules.SetCUENTA_PROVEEDORIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorCUENTA_PROVEEDOR] := Null;
end;
function TRecibosProveedorBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorFECHA_ALTA];

27
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
View File

@ -96,7 +96,7 @@ uses
schRecibosClienteClient_Intf, uIEditorRemesasCliente, uIEditorRemesaCliente,
Dialogs, uDataModuleRemesasCliente, uDataModuleUsuarios, uDAInterfaces,
uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows,
uBizRecibosCliente, Variants, uRemesasClienteReportController;
uBizRecibosCliente, Variants, uRemesasClienteReportController, uIntegerListUtils;
{ TRemesasClienteController }
@ -585,11 +585,11 @@ end;
procedure TRemesasClienteController.Preview(ARemesaCliente: IBizRemesaCliente; AllItems: Boolean = false);
var
AReportController : IRemesasClienteReportController;
ID_Remesas: TStringList;
ID_Remesas: TIntegerList;
begin
AReportController := TRemesasClienteReportController.Create;
ID_Remesas := TStringList.Create;
ID_Remesas := TIntegerList.Create;
try
//Si deseamos previsualizar todos los items del objeto albaran
@ -600,31 +600,31 @@ begin
First;
while not EOF do
begin
ID_Remesas.Add(IntToStr(ARemesaCliente.ID));
ID_Remesas.Add(ARemesaCliente.ID);
Next;
end;
end;
end
//Solo previsualizamos el item seleccionado
else
ID_Remesas.Add(IntToStr(ARemesaCliente.ID));
ID_Remesas.Add(ARemesaCliente.ID);
AReportController.Preview(ID_Remesas.CommaText);
AReportController.Preview(ID_Remesas);
finally
AReportController := NIL;
ID_Remesas.Free;
FreeANDNil(ID_Remesas);
end;
end;
procedure TRemesasClienteController.Print(ARemesaCliente: IBizRemesaCliente; AllItems: Boolean = false);
var
AReportController : IRemesasClienteReportController;
ID_Remesas: TStringList;
ID_Remesas: TIntegerList;
begin
AReportController := TRemesasClienteReportController.Create;
ID_Remesas := TStringList.Create;
ID_Remesas := TIntegerList.Create;
try
//Si deseamos previsualizar todos los items del objeto albaran
@ -635,22 +635,21 @@ begin
First;
while not EOF do
begin
ID_Remesas.Add(IntToStr(ARemesaCliente.ID));
ID_Remesas.Add(ARemesaCliente.ID);
Next;
end;
end;
end
//Solo previsualizamos el item seleccionado
else
ID_Remesas.Add(IntToStr(ARemesaCliente.ID));
ID_Remesas.Add(ARemesaCliente.ID);
AReportController.Print(ID_Remesas.CommaText);
AReportController.Print(ID_Remesas);
finally
AReportController := NIL;
ID_Remesas.Free;
FreeAndNil(ID_Remesas);
end;
end;
end.

18
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteReportController.pas
View File

@ -4,13 +4,13 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRemesasClienteReport,
uBizRemesasCliente;
uBizRemesasCliente, uIntegerListUtils;
type
IRemesasClienteReportController = interface
['{EA6EAD10-E07B-45A9-9B5E-0D560E2B92DF}']
procedure Preview(const ID : String);
procedure Print(const ID : String);
procedure Preview(const ListaID : TIntegerList);
procedure Print(const ListaID : TIntegerList);
end;
TRemesasClienteReportController = class(TInterfacedObject, IRemesasClienteReportController)
@ -21,8 +21,8 @@ type
constructor Create;
destructor Destroy; override;
procedure Preview(const ID : String);
procedure Print(const ID : String);
procedure Preview(const ListaID : TIntegerList);
procedure Print(const ListaID : TIntegerList);
end;
@ -52,7 +52,7 @@ begin
inherited;
end;
procedure TRemesasClienteReportController.Preview(const ID : String);
procedure TRemesasClienteReportController.Preview(const ListaID : TIntegerList);
var
AStream: Binary;
AEditor : IEditorRemesasClientePreview;
@ -61,7 +61,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ID);
AStream := FDataModule.GetReport(ListaID);
try
CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor);
if Assigned(AEditor) then
@ -80,7 +80,7 @@ begin
end;
end;
procedure TRemesasClienteReportController.Print(const ID : String);
procedure TRemesasClienteReportController.Print(const ListaID : TIntegerList);
var
AStream: Binary;
AEditor : IEditorRemesasClientePreview;
@ -89,7 +89,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ID);
AStream := FDataModule.GetReport(ListaID);
try
CreateEditor('EditorRemesasClientePreview', IEditorRemesasClientePreview, AEditor);
if Assigned(AEditor) then

17
Source/Modulos/Remesas de cliente/Data/uDataModuleRemesasCliente.pas
View File

@ -9,7 +9,7 @@ uses
uDADesigntimeCall, uDataModuleBase,
uIDataModuleRemesasCliente, uIDataModuleRemesasClienteReport, uBizRemesasCliente,
uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces,
uDAMemDataTable;
uDAMemDataTable, uIntegerListUtils;
type
TDataModuleRemesasCliente = class(TDataModuleBase, IDataModuleRemesasCliente, IDataModuleRemesasClienteReport)
@ -31,7 +31,7 @@ type
function NewItem : IBizRemesaCliente;
// Report
function GetReport(const ID: String): Binary;
function GetReport(const ListaID: TIntegerList): Binary;
function GetAnosItems : TStringList;
end;
@ -41,7 +41,7 @@ implementation
{$R *.DFM}
uses
FactuGES_Intf, uDataTableUtils, cxControls, uDataModuleConexion,
FactuGES_Intf, uDataTableUtils, cxControls, uDataModuleConexion,
schRemesasClienteClient_Intf, Dialogs;
{ TdmRemesasCliente }
@ -57,9 +57,16 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
function TDataModuleRemesasCliente.GetReport(const ID: String): Binary;
function TDataModuleRemesasCliente.GetReport(const ListaID: TIntegerList): Binary;
var
AParam : TIntegerArray;
begin
// Result := (RORemoteService as IsrvRemesasCliente).GenerateReport(ID);
AParam := ListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvRemesasCliente).GenerateReport(AParam)
finally
FreeANDNIL(AParam);
end;
end;
function TDataModuleRemesasCliente.NewItem: IBizRemesaCliente;

4
Source/Modulos/Remesas de cliente/Model/Data/uIDataModuleRemesasClienteReport.pas
View File

@ -3,12 +3,12 @@ unit uIDataModuleRemesasClienteReport;
interface
uses
SysUtils, Classes, uROTypes;
SysUtils, Classes, uROTypes, uIntegerListUtils;
type
IDataModuleRemesasClienteReport = interface
['{6BFFFC92-D3E0-465C-8259-645B9FE9E446}']
function GetReport(const ID: String): Binary;
function GetReport(const ListaID: TIntegerList): Binary;
end;
implementation

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

@ -3,7 +3,7 @@ unit schRemesasClienteClient_Intf;
interface
uses
Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
const
{ Data table rules ids
@ -81,7 +81,7 @@ type
end;
{ TListaAnosRemesasDataTableRules }
TListaAnosRemesasDataTableRules = class(TDADataTableRules, IListaAnosRemesas)
TListaAnosRemesasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosRemesas)
private
protected
{ Property getters and setters }
@ -224,7 +224,7 @@ type
end;
{ TRemesasClienteDataTableRules }
TRemesasClienteDataTableRules = class(TDADataTableRules, IRemesasCliente)
TRemesasClienteDataTableRules = class(TIntfObjectDADataTableRules, IRemesasCliente)
private
protected
{ Property getters and setters }

19
Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas
View File

@ -31,6 +31,9 @@ type
const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string);
{ IsrvRemesasCliente methods }
function GenerateReport(const ListaID: TIntegerArray): Binary;
end;
implementation
@ -39,8 +42,7 @@ implementation
uses
{Generated:} FactuGES_Invk, uDataModuleServer,
uDatabaseUtils, schRemesasClienteClient_Intf, uRestriccionesUsuarioUtils,
uBizRemesasClienteServer,
// uRptRemesasCliente_Server,
uBizRemesasClienteServer, uRptRemesasCliente_Server,
Dialogs;
procedure Create_srvRemesasCliente(out anInstance : IUnknown);
@ -77,6 +79,19 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
function TsrvRemesasCliente.GenerateReport(
const ListaID: TIntegerArray): Binary;
var
AReportGenerator : TRptRemesasCliente;
begin
AReportGenerator := TRptRemesasCliente.Create(nil);
try
Result := AReportGenerator.GenerarRemesa(ListaID);
finally
FreeAndNIL(AReportGenerator);
end;
end;
initialization
TROClassFactory.Create('srvRemesasCliente', Create_srvRemesasCliente, TsrvRemesasCliente_Invoker);

26
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas
View File

@ -96,7 +96,7 @@ uses
schRecibosProveedorClient_Intf, uIEditorRemesasProveedor, uIEditorRemesaProveedor,
Dialogs, uDataModuleRemesasProveedor, uDataModuleUsuarios, uDAInterfaces,
uDataTableUtils, uDateUtils, uROTypes, DateUtils, Controls, Windows,
uBizRecibosProveedor, Variants, uRemesasProveedorReportController;
uBizRecibosProveedor, Variants, uRemesasProveedorReportController, uIntegerListUtils;
{ TRemesasProveedorController }
@ -588,11 +588,11 @@ end;
procedure TRemesasProveedorController.Preview(ARemesaProveedor: IBizRemesaProveedor; AllItems: Boolean = false);
var
AReportController : IRemesasProveedorReportController;
ID_Remesas: TStringList;
ID_Remesas: TIntegerList;
begin
AReportController := TRemesasProveedorReportController.Create;
ID_Remesas := TStringList.Create;
ID_Remesas := TIntegerList.Create;
try
@ -604,31 +604,31 @@ begin
First;
while not EOF do
begin
ID_Remesas.Add(IntToStr(ARemesaProveedor.ID));
ID_Remesas.Add(ARemesaProveedor.ID);
Next;
end;
end;
end
//Solo previsualizamos el item seleccionado
else
ID_Remesas.Add(IntToStr(ARemesaProveedor.ID));
ID_Remesas.Add(ARemesaProveedor.ID);
AReportController.Preview(ID_Remesas.CommaText);
AReportController.Preview(ID_Remesas);
finally
AReportController := NIL;
ID_Remesas.Free;
FreeAndNil(ID_Remesas);
end;
end;
procedure TRemesasProveedorController.Print(ARemesaProveedor: IBizRemesaProveedor; AllItems: Boolean = false);
var
AReportController : IRemesasProveedorReportController;
ID_Remesas: TStringList;
ID_Remesas: TIntegerList;
begin
AReportController := TRemesasProveedorReportController.Create;
ID_Remesas := TStringList.Create;
ID_Remesas := TIntegerList.Create;
try
@ -640,20 +640,20 @@ begin
First;
while not EOF do
begin
ID_Remesas.Add(IntToStr(ARemesaProveedor.ID));
ID_Remesas.Add(ARemesaProveedor.ID);
Next;
end;
end;
end
//Solo previsualizamos el item seleccionado
else
ID_Remesas.Add(IntToStr(ARemesaProveedor.ID));
ID_Remesas.Add(ARemesaProveedor.ID);
AReportController.Print(ID_Remesas.CommaText);
AReportController.Print(ID_Remesas);
finally
AReportController := NIL;
ID_Remesas.Free;
FreeAndNil(ID_Remesas);
end;
end;

18
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorReportController.pas
View File

@ -4,13 +4,13 @@ interface
uses
Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRemesasProveedorReport,
uBizRemesasProveedor;
uBizRemesasProveedor, uIntegerListUtils;
type
IRemesasProveedorReportController = interface
['{A89AAA05-19AD-4455-BAF6-8A5373D15FE7}']
procedure Preview(const ID : String);
procedure Print(const ID : String);
procedure Preview(const ListaID : TIntegerList);
procedure Print(const ListaID : TIntegerList);
end;
TRemesasProveedorReportController = class(TInterfacedObject, IRemesasProveedorReportController)
@ -21,8 +21,8 @@ type
constructor Create;
destructor Destroy; override;
procedure Preview(const ID : String);
procedure Print(const ID : String);
procedure Preview(const ListaID : TIntegerList);
procedure Print(const ListaID : TIntegerList);
end;
@ -52,7 +52,7 @@ begin
inherited;
end;
procedure TRemesasProveedorReportController.Preview(const ID : String);
procedure TRemesasProveedorReportController.Preview(const ListaID : TIntegerList);
var
AStream: Binary;
AEditor : IEditorRemesasProveedorPreview;
@ -61,7 +61,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ID);
AStream := FDataModule.GetReport(ListaID);
try
CreateEditor('EditorRemesasProveedorPreview', IEditorRemesasProveedorPreview, AEditor);
if Assigned(AEditor) then
@ -80,7 +80,7 @@ begin
end;
end;
procedure TRemesasProveedorReportController.Print(const ID : String);
procedure TRemesasProveedorReportController.Print(const ListaID : TIntegerList);
var
AStream: Binary;
AEditor : IEditorRemesasProveedorPreview;
@ -89,7 +89,7 @@ begin
ShowHourglassCursor;
try
AStream := FDataModule.GetReport(ID);
AStream := FDataModule.GetReport(ListaID);
try
CreateEditor('EditorRemesasProveedorPreview', IEditorRemesasProveedorPreview, AEditor);
if Assigned(AEditor) then

15
Source/Modulos/Remesas de proveedor/Data/uDataModuleRemesasProveedor.pas
View File

@ -9,7 +9,7 @@ uses
uDADesigntimeCall, uDataModuleBase,
uIDataModuleRemesasProveedor, uIDataModuleRemesasProveedorReport, uBizRemesasProveedor,
uDARemoteDataAdapter, uDADataStreamer, uDABin2DataStreamer, uDAInterfaces,
uDAMemDataTable;
uDAMemDataTable, uIntegerListUtils;
type
TDataModuleRemesasProveedor = class(TDataModuleBase, IDataModuleRemesasProveedor, IDataModuleRemesasProveedorReport)
@ -31,7 +31,7 @@ type
function NewItem : IBizRemesaProveedor;
// Report
function GetReport(const ID: String): Binary;
function GetReport(const ListaID: TIntegerList): Binary;
function GetAnosItems : TStringList;
end;
@ -58,9 +58,16 @@ begin
end;
function TDataModuleRemesasProveedor.GetReport(const ID: String): Binary;
function TDataModuleRemesasProveedor.GetReport(const ListaID: TIntegerList): Binary;
var
AParam : TIntegerArray;
begin
// Result := (RORemoteService as IsrvRemesasProveedor).GenerateReport(ID);
AParam := ListaID.ToIntegerArray;
try
Result := (RORemoteService as IsrvRemesasProveedor).GenerateReport(AParam)
finally
FreeANDNIL(AParam);
end;
end;
function TDataModuleRemesasProveedor.NewItem: IBizRemesaProveedor;

4
Source/Modulos/Remesas de proveedor/Model/Data/uIDataModuleRemesasProveedorReport.pas
View File

@ -3,12 +3,12 @@ unit uIDataModuleRemesasProveedorReport;
interface
uses
SysUtils, Classes, uROTypes;
SysUtils, Classes, uROTypes, uIntegerListUtils;
type
IDataModuleRemesasProveedorReport = interface
['{7A2C1A03-51EB-4F7F-937F-660B31EE18B2}']
function GetReport(const ID: String): Binary;
function GetReport(const ListaID: TIntegerList): Binary;
end;
implementation

18
Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas
View File

@ -31,6 +31,9 @@ type
const IncludeSchema: Boolean; const MaxRecords: Integer);
procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
var aConnectionName: string);
{ IsrvRemesasProveedor methods }
function GenerateReport(const ListaID: TIntegerArray): Binary;
end;
implementation
@ -39,7 +42,7 @@ implementation
uses
{Generated:} FactuGES_Invk, uDataModuleServer,
uDatabaseUtils, schRemesasProveedorClient_Intf, uRestriccionesUsuarioUtils,
uBizRemesasProveedorServer, // uRptRemesasProveedor_Server,
uBizRemesasProveedorServer, uRptRemesasProveedor_Server,
Dialogs;
procedure Create_srvRemesasProveedor(out anInstance : IUnknown);
@ -76,6 +79,19 @@ begin
ConnectionName := dmServer.ConnectionName;
end;
function TsrvRemesasProveedor.GenerateReport(
const ListaID: TIntegerArray): Binary;
var
AReportGenerator : TRptRemesasProveedor;
begin
AReportGenerator := TRptRemesasProveedor.Create(nil);
try
Result := AReportGenerator.GenerarRemesa(ListaID);
finally
FreeAndNIL(AReportGenerator);
end;
end;
initialization
TROClassFactory.Create('srvRemesasProveedor', Create_srvRemesasProveedor, TsrvRemesasProveedor_Invoker);

108
Source/Servicios/FactuGES_Intf.pas
View File

@ -470,6 +470,7 @@ type
{ IsrvRemesasCliente }
IsrvRemesasCliente = interface(IDataAbstractService)
['{33F414D0-0D0B-4384-96CB-D94BC97A0C39}']
function GenerateReport(const ListaID: TIntegerArray): Binary;
end;
{ CosrvRemesasCliente }
@ -482,11 +483,13 @@ type
protected
function __GetInterfaceName:string; override;
function GenerateReport(const ListaID: TIntegerArray): Binary;
end;
{ IsrvRemesasProveedor }
IsrvRemesasProveedor = interface(IDataAbstractService)
['{6540A037-9847-4650-89BB-7B349C6004DF}']
function GenerateReport(const ListaID: TIntegerArray): Binary;
end;
{ CosrvRemesasProveedor }
@ -499,6 +502,7 @@ type
protected
function __GetInterfaceName:string; override;
function GenerateReport(const ListaID: TIntegerArray): Binary;
end;
{ IsrvFacturasCliente }
@ -527,6 +531,8 @@ type
{ IsrvFacturasProveedor }
IsrvFacturasProveedor = interface(IDataAbstractService)
['{7655160C-7023-452E-BB0E-C97E29B915E7}']
function GenerarInforme(const ListaID: TIntegerArray): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
end;
{ CosrvFacturasProveedor }
@ -539,6 +545,8 @@ type
protected
function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
end;
{ IsrvPresupuestosCliente }
@ -592,10 +600,12 @@ type
{ IsrvAlbaranesCliente }
IsrvAlbaranesCliente = interface(IDataAbstractService)
['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
function GenerarInforme(const ListaID: TIntegerArray): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
function GenerarInformeEnWord(const ID: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
end;
{ CosrvAlbaranesCliente }
@ -608,10 +618,12 @@ type
protected
function __GetInterfaceName:string; override;
function GenerarInforme(const ListaID: TIntegerArray): Binary;
function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
function GenerarInformeEnWord(const ID: Integer): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
end;
{ IsrvAlbaranesProveedor }
@ -1668,11 +1680,30 @@ begin
result := TsrvRemesasCliente_Proxy.Create(aMessage, aTransportChannel);
end;
{ TsrvRemesasCliente_Proxy }
function TsrvRemesasCliente_Proxy.__GetInterfaceName:string;
begin
result := 'srvRemesasCliente';
end;
function TsrvRemesasCliente_Proxy.GenerateReport(const ListaID: TIntegerArray): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
{ CosrvRemesasProveedor }
class function CosrvRemesasProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasProveedor;
@ -1680,11 +1711,30 @@ begin
result := TsrvRemesasProveedor_Proxy.Create(aMessage, aTransportChannel);
end;
{ TsrvRemesasProveedor_Proxy }
function TsrvRemesasProveedor_Proxy.__GetInterfaceName:string;
begin
result := 'srvRemesasProveedor';
end;
function TsrvRemesasProveedor_Proxy.GenerateReport(const ListaID: TIntegerArray): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
{ CosrvFacturasCliente }
class function CosrvFacturasCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasCliente;
@ -1761,11 +1811,47 @@ begin
result := TsrvFacturasProveedor_Proxy.Create(aMessage, aTransportChannel);
end;
{ TsrvFacturasProveedor_Proxy }
function TsrvFacturasProveedor_Proxy.__GetInterfaceName:string;
begin
result := 'srvFacturasProveedor';
end;
function TsrvFacturasProveedor_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
function TsrvFacturasProveedor_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
{ CosrvPresupuestosCliente }
class function CosrvPresupuestosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPresupuestosCliente;
@ -1936,12 +2022,17 @@ begin
result := 'srvAlbaranesCliente';
end;
function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Write('VerRefProveedor', TypeInfo(Boolean), VerRefProveedor, []);
__Message.Write('VerObservaciones', TypeInfo(Boolean), VerObservaciones, []);
__Message.Write('VerIncidencias', TypeInfo(Boolean), VerIncidencias, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
@ -1988,12 +2079,17 @@ begin
end
end;
function TsrvAlbaranesCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
function TsrvAlbaranesCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
__Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Write('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Write('VerRefProveedor', TypeInfo(Boolean), VerRefProveedor, []);
__Message.Write('VerObservaciones', TypeInfo(Boolean), VerObservaciones, []);
__Message.Write('VerIncidencias', TypeInfo(Boolean), VerIncidencias, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);

150
Source/Servicios/FactuGES_Invk.pas
View File

@ -152,6 +152,7 @@ type
public
constructor Create; override;
published
procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvRemesasProveedor_Invoker = class(TDataAbstractService_Invoker)
@ -160,6 +161,7 @@ type
public
constructor Create; override;
published
procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvFacturasCliente_Invoker = class(TDataAbstractService_Invoker)
@ -179,6 +181,8 @@ type
public
constructor Create; override;
published
procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
TsrvPresupuestosCliente_Invoker = class(TDataAbstractService_Invoker)
@ -784,6 +788,36 @@ begin
FAbstract := False;
end;
procedure TsrvRemesasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const ListaID: TIntegerArray): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
ListaID := nil;
lResult := nil;
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
lResult := (__Instance as IsrvRemesasCliente).GenerateReport(ListaID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRemesasCliente', 'GenerateReportResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(ListaID);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
{ TsrvRemesasProveedor_Invoker }
constructor TsrvRemesasProveedor_Invoker.Create;
@ -792,6 +826,36 @@ begin
FAbstract := False;
end;
procedure TsrvRemesasProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerateReport(const ListaID: TIntegerArray): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
ListaID := nil;
lResult := nil;
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
lResult := (__Instance as IsrvRemesasProveedor).GenerateReport(ListaID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRemesasProveedor', 'GenerateReportResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(ListaID);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
{ TsrvFacturasCliente_Invoker }
constructor TsrvFacturasCliente_Invoker.Create;
@ -904,6 +968,66 @@ begin
FAbstract := False;
end;
procedure TsrvFacturasProveedor_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
ListaID := nil;
lResult := nil;
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
lResult := (__Instance as IsrvFacturasProveedor).GenerarInforme(ListaID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasProveedor', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(ListaID);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TsrvFacturasProveedor_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
ListaID := nil;
lResult := nil;
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
lResult := (__Instance as IsrvFacturasProveedor).GenerarInformeEnPDF(ListaID);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasProveedor', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(ListaID);
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
{ TsrvPresupuestosCliente_Invoker }
constructor TsrvPresupuestosCliente_Invoker.Create;
@ -1151,9 +1275,14 @@ begin
end;
procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
{ function GenerarInforme(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
VerPrecios: Boolean;
VerRefProveedor: Boolean;
VerObservaciones: Boolean;
VerIncidencias: Boolean;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -1161,8 +1290,12 @@ begin
lResult := nil;
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Read('VerRefProveedor', TypeInfo(Boolean), VerRefProveedor, []);
__Message.Read('VerObservaciones', TypeInfo(Boolean), VerObservaciones, []);
__Message.Read('VerIncidencias', TypeInfo(Boolean), VerIncidencias, []);
lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID);
lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID, VerPrecios, VerRefProveedor, VerObservaciones, VerIncidencias);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
@ -1239,9 +1372,14 @@ begin
end;
procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; }
{ function GenerarInformeEnPDF(const ListaID: TIntegerArray; const VerPrecios: Boolean; const VerRefProveedor: Boolean; const VerObservaciones: Boolean;
const VerIncidencias: Boolean): Binary; }
var
ListaID: FactuGES_Intf.TIntegerArray;
VerPrecios: Boolean;
VerRefProveedor: Boolean;
VerObservaciones: Boolean;
VerIncidencias: Boolean;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
@ -1249,8 +1387,12 @@ begin
lResult := nil;
try
__Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
__Message.Read('VerPrecios', TypeInfo(Boolean), VerPrecios, []);
__Message.Read('VerRefProveedor', TypeInfo(Boolean), VerRefProveedor, []);
__Message.Read('VerObservaciones', TypeInfo(Boolean), VerObservaciones, []);
__Message.Read('VerIncidencias', TypeInfo(Boolean), VerIncidencias, []);
lResult := (__Instance as IsrvAlbaranesCliente).GenerarInformeEnPDF(ListaID);
lResult := (__Instance as IsrvAlbaranesCliente).GenerarInformeEnPDF(ListaID, VerPrecios, VerRefProveedor, VerObservaciones, VerIncidencias);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeEnPDFResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);