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

Errores #511: Error al crear una liquidaciones de comisiones desde cero

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@109 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
roberto 2011-01-13 18:44:59 +00:00
parent 86b6addf99
commit 9adc4f2356
6 changed files with 79 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Source/Modulos/Comisiones/Controller/uComisionesController.pas
View File

@ -94,7 +94,7 @@ end;
procedure TComisionesController.AsignarID(AComision: IBizComisiones; const IDNuevo: Integer); procedure TComisionesController.AsignarID(AComision: IBizComisiones; const IDNuevo: Integer);
begin begin
if not Assigned(AComision) then { if not Assigned(AComision) then
raise Exception.Create ('Comision no asignado'); raise Exception.Create ('Comision no asignado');
AsignarIDDetalles(AComision.Facturas, IDNuevo, AComision.EsNuevo); AsignarIDDetalles(AComision.Facturas, IDNuevo, AComision.EsNuevo);
@ -105,11 +105,12 @@ begin
AComision.ID := IDNuevo; AComision.ID := IDNuevo;
AComision.Post; AComision.Post;
end; end;
}
end; end;
procedure TComisionesController.AsignarIDDetalles(AFacturasComision: IBizFacturasComision; IDComision: Integer; AEsNuevo: Boolean); procedure TComisionesController.AsignarIDDetalles(AFacturasComision: IBizFacturasComision; IDComision: Integer; AEsNuevo: Boolean);
begin begin
with AFacturasComision do { with AFacturasComision do
begin begin
DataTable.DisableControls; DataTable.DisableControls;
try try
@ -141,7 +142,7 @@ begin
total de las tuplas de detalle. total de las tuplas de detalle.
} }
if AEsNuevo then { if AEsNuevo then
begin begin
while RecordCount > 0 do while RecordCount > 0 do
begin begin
@ -170,6 +171,7 @@ begin
DataTable.EnableControls; DataTable.EnableControls;
end; end;
end; end;
}
end; end;
procedure TComisionesController.AsignarImporteTotal(AComision: IBizComisiones; const ImporteTotal: Variant); procedure TComisionesController.AsignarImporteTotal(AComision: IBizComisiones; const ImporteTotal: Variant);
@ -504,6 +506,8 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
AComision.DataTable.ApplyUpdates; AComision.DataTable.ApplyUpdates;
AComision.Facturas.DataTable.ApplyUpdates;
AComision.Facturas.DataTable.Refresh;
//Si todo ha ido bien, asignamos la comision a las facturas asociadas //Si todo ha ido bien, asignamos la comision a las facturas asociadas
//Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros //Como no están declarados como maestro-detalles debemos hacer el applyupdates nosotros
// RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, NuevoID); // RecibosClienteController.AsignarRemesa(ARemesaCliente.Recibos, NuevoID);

2
Source/Modulos/Comisiones/Model/uBizComisiones.pas
View File

@ -90,7 +90,7 @@ end;
procedure TBizComisiones.OnNewRecord(Sender: TDADataTable); procedure TBizComisiones.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
ID := GetRecNo; // -1, -2, -3... // ID := GetRecNo; // -1, -2, -3...
IniciarValoresComisionLiquidacionNuevo; IniciarValoresComisionLiquidacionNuevo;
end; end;

106
Source/Modulos/Comisiones/Views/Comisiones_view.dproj
View File

@ -38,52 +38,58 @@
<DelphiCompile Include="Comisiones_view.dpk"> <DelphiCompile Include="Comisiones_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="adortl.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\ApplicationBase.dcp" />
<DCCReference Include="bdertl.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\bdertl.dcp" />
<DCCReference Include="Comisiones_controller.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\Comisiones_controller.dcp" />
<DCCReference Include="Contactos_controller.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\Contactos_model.dcp" />
<DCCReference Include="cxDataD11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\dbrtl.dcp" />
<DCCReference Include="designide.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\designide.dcp" />
<DCCReference Include="dsnap.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\dxLayoutControlD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\dxThemeD11.dcp" />
<DCCReference Include="fqb110.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\fqb110.dcp" />
<DCCReference Include="frx11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\frx11.dcp" />
<DCCReference Include="frxe11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\frxe11.dcp" />
<DCCReference Include="frxTee11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\frxTee11.dcp" />
<DCCReference Include="fs11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\fs11.dcp" />
<DCCReference Include="fsTee11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\fsTee11.dcp" />
<DCCReference Include="GUIBase.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\GUISDK_D11R.dcp" />
<DCCReference Include="Jcl.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\JclVcl.dcp" />
<DCCReference Include="JvAppFrmD11R.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\JvAppFrmD11R.dcp" />
<DCCReference Include="JvCoreD11R.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\JvCtrlsD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\JvSystemD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\tbx_d10.dcp" />
<DCCReference Include="tee.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\tee.dcp" />
<DCCReference Include="teeUI.dcp" /> <DCCReference Include="..\..\Remesas de cliente\Controller\teeUI.dcp" />
<DCCReference Include="..\..\Remesas de cliente\Controller\vcl.dcp" />
<DCCReference Include="..\..\Remesas de cliente\Controller\vclactnband.dcp" />
<DCCReference Include="..\..\Remesas de cliente\Controller\vcldb.dcp" />
<DCCReference Include="..\..\Remesas de cliente\Controller\vcljpg.dcp" />
<DCCReference Include="..\..\Remesas de cliente\Controller\vclx.dcp" />
<DCCReference Include="..\..\Remesas de cliente\Controller\xmlrtl.dcp" />
<DCCReference Include="uComisionesViewRegister.pas" /> <DCCReference Include="uComisionesViewRegister.pas" />
<DCCReference Include="uEditorComision.pas"> <DCCReference Include="uEditorComision.pas">
<Form>fEditorComision</Form> <Form>fEditorComision</Form>
@ -94,7 +100,7 @@
<DesignClass>TfEditorComisiones</DesignClass> <DesignClass>TfEditorComisiones</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorComisionesReport.pas"> <DCCReference Include="uEditorComisionesReport.pas">
<Form>fEditorComisionesRepor</Form> <Form>fEditorComisionesReport</Form>
<DesignClass>TfEditorComisiones</DesignClass> <DesignClass>TfEditorComisiones</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewComision.pas"> <DCCReference Include="uViewComision.pas">
@ -109,12 +115,6 @@
<Form>frViewFacturasComision</Form> <Form>frViewFacturasComision</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

17
Source/Modulos/Comisiones/Views/uEditorComision.dfm
View File

@ -225,23 +225,11 @@ inherited fEditorComision: TfEditorComision
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 607 Width = 607
ExplicitWidth = 607 ExplicitWidth = 607
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
inherited ToolButton3: TToolButton inherited ToolButton3: TToolButton
ExplicitWidth = 113 ExplicitWidth = 98
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
ExplicitWidth = 113 ExplicitWidth = 99
end end
end end
end end
@ -290,6 +278,7 @@ inherited fEditorComision: TfEditorComision
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
Visible = False
ReadOnly = False ReadOnly = False
ExplicitTop = 479 ExplicitTop = 479
ExplicitWidth = 611 ExplicitWidth = 611

24
Source/Modulos/Comisiones/Views/uEditorComision.pas
View File

@ -54,7 +54,6 @@ type
procedure EliminarInterno; override; procedure EliminarInterno; override;
procedure PrevisualizarInterno; override; procedure PrevisualizarInterno; override;
procedure ImprimirInterno; override; procedure ImprimirInterno; override;
// procedure CerrarInterno; override;
procedure PonerTitulos(const ATitulo: string = ''); override; procedure PonerTitulos(const ATitulo: string = ''); override;
// function GetModified: Boolean; override; // function GetModified: Boolean; override;
@ -110,11 +109,19 @@ begin
bEsNuevo := False; bEsNuevo := False;
ShowHourglassCursor; ShowHourglassCursor;
frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := Nil;
// frViewRecibosComision1.OnViewModified := Nil; // frViewRecibosComision1.OnViewModified := Nil;
//frViewDetallesFacturaCliente1.SaveGridStatus; // Para guardar estado del grid //frViewDetallesFacturaCliente1.SaveGridStatus; // Para guardar estado del grid
// frViewDetallesFacturaCliente1.BeginUpdate; // Para que no se mueva el foco // frViewDetallesFacturaCliente1.BeginUpdate; // Para que no se mueva el foco
try try
bEsNuevo := FComision.EsNuevo; bEsNuevo := FComision.EsNuevo;
// AImporteTotal := ASender.FooterSummaryValues[1];
// if Assigned(FController) then
FController.AsignarImporteTotal(Comision, frViewFacturasComision1.cxGridView.DataController.Summary.FooterSummaryValues[1]);
FController.Guardar(FComision); FController.Guardar(FComision);
finally finally
@ -125,7 +132,10 @@ begin
if bEsNuevo then if bEsNuevo then
ShowInfoMessage('La liquidación de comisiones se ha dado de alta con el código ' + FComision.REFERENCIA); ShowInfoMessage('La liquidación de comisiones se ha dado de alta con el código ' + FComision.REFERENCIA);
Modified := False; Modified := False;
// frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := OnFacturasComisionSummaryAfterSummary;
// frViewRecibosComision1.Modified := False; // frViewRecibosComision1.Modified := False;
// frViewRecibosComision1.OnViewModified := OnRecibosChanged; // frViewRecibosComision1.OnViewModified := OnRecibosChanged;
end; end;
@ -232,7 +242,7 @@ begin
Comision.DataTable.Active := True; Comision.DataTable.Active := True;
frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := OnFacturasComisionSummaryAfterSummary; // frViewFacturasComision1.cxGridView.DataController.Summary.OnAfterSummary := OnFacturasComisionSummaryAfterSummary;
end; end;
procedure TfEditorComision.OnFacturasComisionSummaryAfterSummary(ASender: TcxDataSummary); procedure TfEditorComision.OnFacturasComisionSummaryAfterSummary(ASender: TcxDataSummary);
@ -271,13 +281,7 @@ begin
// FController.EliminarReciboCliente(Comision); // FController.EliminarReciboCliente(Comision);
// HayCambios := True; // HayCambios := True;
end; end;
{
procedure TfEditorComision.CerrarInterno;
begin
frViewRecibosComision1.OnViewModified := Nil;
inherited;
end;
}
constructor TfEditorComision.Create(AOwner: TComponent); constructor TfEditorComision.Create(AOwner: TComponent);
begin begin
inherited; inherited;

1
Source/Modulos/Comisiones/Views/uEditorComisiones.pas
View File

@ -106,6 +106,7 @@ begin
inherited; inherited;
FController.Anadir(Comisiones); FController.Anadir(Comisiones);
FController.Ver(Comisiones); FController.Ver(Comisiones);
// Comisiones.DataTable.Refresh;
end; end;
procedure TfEditorComisiones.PonerTitulos(const ATitulo: string); procedure TfEditorComisiones.PonerTitulos(const ATitulo: string);