Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se habilita la generación de facturas a partir de los albaranes, se tiene que modificar AlbCli_facCli_relation porque el comportamiento de los dataabstract al hacer dos insert seguidos inplica un post (Despues de hacer el seguimiento se observa que el autoinc de los campos claves, provoca un cambio en la variable modified que provoca el post en el dataset de delphi.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@98 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-01-11 10:54:29 +00:00
parent 08730c5f71
commit abac284ad0
7 changed files with 19 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dpk
View File

@ -29,7 +29,8 @@ requires
FacturasCliente_model, FacturasCliente_model,
FacturasCliente_controller, FacturasCliente_controller,
Contactos_view, Contactos_view,
Articulos_view; Articulos_view,
AlbCli_FacCli_relation;
contains contains
uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas', uFacturasClienteViewRegister in 'uFacturasClienteViewRegister.pas',

52
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
View File

@ -41,53 +41,14 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">FacturasCliente_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</VersionInfo>
<VersionInfo Name="Release">0</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
<VersionInfo Name="Special">False</VersionInfo>
<VersionInfo Name="Private">False</VersionInfo>
<VersionInfo Name="DLL">False</VersionInfo>
<VersionInfo Name="Locale">3082</VersionInfo>
<VersionInfo Name="CodePage">1252</VersionInfo>
</VersionInfo>
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">FacturasCliente_view.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="FacturasCliente_view.dpk"> <DelphiCompile Include="FacturasCliente_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" /> <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" /> <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" /> <DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
@ -95,15 +56,19 @@
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="..\..\Lib\GUIBase.dcp" />
<DCCReference Include="uEditorElegirArticulosFacturaCliente.pas"> <DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
<Form>fEditorElegirArticulosFacturaCliente</Form> <Form>fEditorElegirArticulosFacturaCliente</Form>
<DesignClass>TForm</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorElegirFacturasCliente.pas"> <DCCReference Include="uEditorElegirFacturasCliente.pas">
<Form>fEditorElegirFacturasCliente</Form> <Form>fEditorElegirFacturasCliente</Form>
<DesignClass>TfEditorElegirFacturasCliente</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorFacturaCliente.pas"> <DCCReference Include="uEditorFacturaCliente.pas">
<Form>fEditorFacturaCliente</Form> <Form>fEditorFacturaCliente</Form>
<DesignClass>TfEditorFacturaCliente</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorFacturasCliente.pas"> <DCCReference Include="uEditorFacturasCliente.pas">
<Form>fEditorFacturasCliente</Form> <Form>fEditorFacturasCliente</Form>
<DesignClass>TfEditorFacturasCliente</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorFacturasClienteReport.pas"> <DCCReference Include="uEditorFacturasClienteReport.pas">
<Form>fEditorFacturasClientePreview</Form> <Form>fEditorFacturasClientePreview</Form>
@ -111,19 +76,22 @@
<DCCReference Include="uFacturasClienteViewRegister.pas" /> <DCCReference Include="uFacturasClienteViewRegister.pas" />
<DCCReference Include="uViewDetallesFacturaCliente.pas"> <DCCReference Include="uViewDetallesFacturaCliente.pas">
<Form>frViewDetallesFacturaCliente</Form> <Form>frViewDetallesFacturaCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewElegirArticulosFacturasCliente.pas"> <DCCReference Include="uViewElegirArticulosFacturasCliente.pas">
<Form>frViewElegirArticulosFacturasCliente</Form> <Form>frViewElegirArticulosFacturasCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewFacturaCliente.pas"> <DCCReference Include="uViewFacturaCliente.pas">
<Form>frViewFacturaCliente</Form> <Form>frViewFacturaCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewFacturasCliente.pas"> <DCCReference Include="uViewFacturasCliente.pas">
<Form>frViewFacturasCliente</Form> <Form>frViewFacturasCliente</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

BIN
Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.res
View File

Binary file not shown.

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

@ -64,7 +64,7 @@ implementation
uses uses
uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App, uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
// uPedidosClienteController, uBizPedidosCliente, // uPedidosClienteController, uBizPedidosCliente,
// uGenerarFacturasCliAlbCliUtils, uGenerarFacturasCliAlbCliUtils,
uBizAlbaranesCliente, uBizAlbaranesCliente,
uEditorBase, uGridUtils, uDBSelectionListUtils; uEditorBase, uGridUtils, uDBSelectionListUtils;
@ -304,7 +304,7 @@ begin
end;} end;}
end; end;
200 : begin // Utilizar albaranes 200 : begin // Utilizar albaranes
// GenerarFacturaCli; GenerarFacturaCli;
actRefrescar.Execute; actRefrescar.Execute;
end; end;
100 : begin // Albaran nuevo vacio 100 : begin // Albaran nuevo vacio

20
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.dpk
View File

@ -22,25 +22,13 @@ package AlbCli_FacCli_relation;
{$WRITEABLECONST OFF} {$WRITEABLECONST OFF}
{$MINENUMSIZE 1} {$MINENUMSIZE 1}
{$IMAGEBASE $400000} {$IMAGEBASE $400000}
{$IMPLICITBUILD OFF} {$IMPLICITBUILD ON}
requires requires
rtl,
Base,
ControllerBase,
Contactos_model,
Contactos_controller,
PNG_D10,
vcl,
JSDialog100,
vclx,
vclactnband,
xmlrtl,
designide,
AlbaranesCliente_controller,
AlbaranesCliente_model, AlbaranesCliente_model,
FacturasCliente_controller, FacturasCliente_model,
FacturasCliente_model; AlbaranesCliente_controller,
FacturasCliente_controller;
contains contains
uGenerarFacturasCliAlbCliUtils in 'uGenerarFacturasCliAlbCliUtils.pas' {dmGenerarFacturasCli}, uGenerarFacturasCliAlbCliUtils in 'uGenerarFacturasCliAlbCliUtils.pas' {dmGenerarFacturasCli},

BIN
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.res
View File

Binary file not shown.

2
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/uGenerarFacturasCliAlbCliUtils.pas
View File

@ -188,7 +188,7 @@ begin
AAlbaran.DataTable.Active := True; AAlbaran.DataTable.Active := True;
try try
AFacturasNuevas := AFacturasClienteController.Nuevo; AFacturasNuevas := AFacturasClienteController.Buscar(-100); //Nuevo; OJO pendiente de arreglar
if AFacturasClienteController.Anadir(AFacturasNuevas, AAlbaran) then if AFacturasClienteController.Anadir(AFacturasNuevas, AAlbaran) then
begin begin
if AFacturasNuevas.DataTable.RecordCount = 1 then if AFacturasNuevas.DataTable.RecordCount = 1 then