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

Se adapta presupuestos y facturas de cliente para multiempresa

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@725 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-11-03 18:58:28 +00:00
parent bd9d9f0811
commit 46a1adec33
14 changed files with 487 additions and 306 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Source/Base/Base.res
View File

Binary file not shown.

0
Source/Informes/FacturaCliente.rdx → Source/Informes/1/FacturaCliente.rdx
View File

0
Source/Informes/InfFacturaCliente.fr3 → Source/Informes/1/InfFacturaCliente.fr3
View File

0
Source/Informes/InfPresupuestoCliente.fr3 → Source/Informes/1/InfPresupuestoCliente.fr3
View File

BIN
Source/Informes/1/Presupuesto.rdx Normal file
View File

Binary file not shown.

BIN
Source/Informes/2/FacturaCliente.rdx Normal file
View File

Binary file not shown.

63
Source/Informes/2/InfFacturaCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

117
Source/Informes/2/InfPresupuestoCliente.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

BIN
Source/Informes/2/Presupuesto.rdx Normal file
View File

Binary file not shown.

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

@ -247,7 +247,7 @@ begin
tbl_Detalles.Active := True; tbl_Detalles.Active := True;
tbl_Vencimientos.Active := True; tbl_Vencimientos.Active := True;
frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True); frxReport.LoadFromFile(DarRutaInformes + tbl_Cabecera.FieldByName('ID_EMPRESA').AsString + '\' + rptFacturaCliente, True);
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"

3
Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas
View File

@ -55,7 +55,6 @@ constructor TRptWordFacturaCliente.Create(AOwner: TComponent);
begin begin
inherited; inherited;
FDocumento := NIL; FDocumento := NIL;
FPlantilla := DarRutaInformes + rptInforme;
end; end;
function TRptWordFacturaCliente.DarNumCapitulos: Integer; function TRptWordFacturaCliente.DarNumCapitulos: Integer;
@ -362,6 +361,8 @@ begin
tbl_Detalles.Active := True; tbl_Detalles.Active := True;
tbl_Vencimientos.Active := True; tbl_Vencimientos.Active := True;
FPlantilla := DarRutaInformes + tbl_Cabecera.FieldByName('ID_EMPRESA').AsString + '\' + rptInforme;
FCodigoFactura := AID; FCodigoFactura := AID;
if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then

2
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
View File

@ -278,7 +278,7 @@ begin
tbl_Detalles.Active := True; tbl_Detalles.Active := True;
tbl_Resumen.Active := True; tbl_Resumen.Active := True;
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True); frxReport.LoadFromFile(DarRutaInformes + tbl_Cabecera.FieldByName('ID_EMPRESA').AsString + '\' + rptInforme, True);
frxReport.PrepareReport(False); frxReport.PrepareReport(False);
finally finally
FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO" FConnection.RollbackTransaction; //<--- Creo que no va a hacer falta. "PUES SI ES NECESARIO"

4
Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
View File

@ -69,8 +69,6 @@ begin
FDocumento := NIL; FDocumento := NIL;
FImportes := True; FImportes := True;
FNumCapitulos := 0; FNumCapitulos := 0;
FPlantilla := DarRutaInformes + rptInforme;
end; end;
procedure TRptWordPresupuestoCliente.DataModuleCreate(Sender: TObject); procedure TRptWordPresupuestoCliente.DataModuleCreate(Sender: TObject);
@ -506,6 +504,8 @@ begin
tbl_Cabecera.Active := True; tbl_Cabecera.Active := True;
tbl_Detalles.Active := True; tbl_Detalles.Active := True;
FPlantilla := DarRutaInformes + tbl_Cabecera.FieldByName('ID_EMPRESA').AsString + '\' + rptInforme;
FCodigoPresupuesto := AID; FCodigoPresupuesto := AID;
if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then if RecuperarEmpresa(tbl_Cabecera.FieldByName('ID_EMPRESA').AsInteger, tbl_Empresa) then

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>