Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@582 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Browse Source
This commit is contained in:
roberto 2008-09-08 17:16:53 +00:00
parent 76fdc13308
commit 6c4d3b03e0
1 changed files with 0 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
View File

@ -41,12 +41,6 @@ type
function GetRptWordPresupuesto(const AID: Integer): Binary;
function GetRptWordCertificadoTrabajos(const AID: Integer): Binary;
function GetRptPDFPresupuesto(const AID: Integer): Binary;
{ function DarListaDocumentos(const ID : Integer): TStringList;
function DescargarFichero(const ID : Integer; const NombreFichero: String; const DestinoFichero: String): Boolean;
function SubirFichero(const ID : Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
function EliminarFichero(const ID : Integer; const NombreFichero: String): Boolean;
}
end;
implementation
@ -70,50 +64,6 @@ begin
RORemoteService.Message := dmConexion.Message;
end;
{
function TDataModulePresupuestosCliente.DarListaDocumentos(const ID: Integer): TStringList;
var
AResultado : StringArray;
i: Integer;
begin
try
AResultado := (RORemoteService1 as IsrvGestorDocumentos).DarListaFicheros(TRdxAlmacenes_Presupuestos, ID);
Result := TStringList.Create;
for i:= 0 to AResultado.Count - 1 do
Result.Add(AResultado.Items[i]);
finally
FreeANDNIL(AResultado)
end;
end;
function TDataModulePresupuestosCliente.DescargarFichero(const ID: Integer; const NombreFichero: String;
const DestinoFichero: String): Boolean;
var
AFichero: Binary;
begin
Result := False;
try
AFichero := (RORemoteService1 as IsrvGestorDocumentos).DescargarFichero(TRdxAlmacenes_Presupuestos, ID, NombreFichero);
AFichero.SaveToFile((DestinoFichero + NombreFichero));
Result := True;
finally
FreeAndNil(AFichero);
end;
end;
function TDataModulePresupuestosCliente.EliminarFichero(const ID: Integer; const NombreFichero: String): Boolean;
begin
Result := False;
try
Result := (RORemoteService1 as IsrvGestorDocumentos).EliminarFichero(TRdxAlmacenes_Presupuestos, ID, NombreFichero);
finally
//
end;
end;
}
function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(
const AID: Integer): Binary;
var