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

Se repasa que en la automatizacion de documentos (una factura a partir de uno o varios presupuesto, por ejemplo) se pregunte siempre si se desea desglosar el contenido del documento origen o no

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@522 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-08-21 15:19:52 +00:00
parent 1649babde6
commit 5bce128d8a
15 changed files with 273 additions and 199 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj
View File

@ -14,6 +14,7 @@
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
<Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" /> <Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
<Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
<Projects Include="Controller\AlbaranesCliente_controller.dproj" /> <Projects Include="Controller\AlbaranesCliente_controller.dproj" />
<Projects Include="Data\AlbaranesCliente_data.dproj" /> <Projects Include="Data\AlbaranesCliente_data.dproj" />
<Projects Include="Model\AlbaranesCliente_model.dproj" /> <Projects Include="Model\AlbaranesCliente_model.dproj" />
@ -161,14 +162,23 @@
<Target Name="AlbaranesProveedor_view:Make"> <Target Name="AlbaranesProveedor_view:Make">
<MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" /> <MSBuild Projects="..\Albaranes de proveedor\Views\AlbaranesProveedor_view.dproj" Targets="Make" />
</Target> </Target>
<Target Name="AlbProv_FacProv_relation">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="" />
</Target>
<Target Name="AlbProv_FacProv_relation:Clean">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Clean" />
</Target>
<Target Name="AlbProv_FacProv_relation:Make">
<MSBuild Projects="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbCli_FacCli_relation;AlbaranesProveedor_view" /> <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbCli_FacCli_relation;AlbaranesProveedor_view;AlbProv_FacProv_relation" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbCli_FacCli_relation:Clean;AlbaranesProveedor_view:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbCli_FacCli_relation:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbCli_FacCli_relation:Make;AlbaranesProveedor_view:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbCli_FacCli_relation:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

16
Source/Modulos/Albaranes de proveedor/AlbaranesProveedor_Group.groupproj
View File

@ -8,6 +8,7 @@
<Projects Include="..\..\Cliente\FactuGES.dproj" /> <Projects Include="..\..\Cliente\FactuGES.dproj" />
<Projects Include="..\..\GUIBase\GUIBase.dproj" /> <Projects Include="..\..\GUIBase\GUIBase.dproj" />
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" /> <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
<Projects Include="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" />
<Projects Include="..\Articulos\Controller\Articulos_controller.dproj" /> <Projects Include="..\Articulos\Controller\Articulos_controller.dproj" />
<Projects Include="..\Articulos\Views\Articulos_view.dproj" /> <Projects Include="..\Articulos\Views\Articulos_view.dproj" />
<Projects Include="..\Contactos\Views\Contactos_view.dproj" /> <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
@ -161,14 +162,23 @@
<Target Name="PedProv_AlbProv_relation:Make"> <Target Name="PedProv_AlbProv_relation:Make">
<MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Make" /> <MSBuild Projects="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" Targets="Make" />
</Target> </Target>
<Target Name="AlbaranesCliente_view">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="" />
</Target>
<Target Name="AlbaranesCliente_view:Clean">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Clean" />
</Target>
<Target Name="AlbaranesCliente_view:Make">
<MSBuild Projects="..\Albaranes de cliente\Views\AlbaranesCliente_view.dproj" Targets="Make" />
</Target>
<Target Name="Build"> <Target Name="Build">
<CallTarget Targets="Base;GUIBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;FacturasProveedor_controller;PedProv_AlbProv_relation" /> <CallTarget Targets="Base;GUIBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesProveedor_model;AlbaranesProveedor_data;AlbaranesProveedor_controller;AlbaranesProveedor_view;AlbaranesProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;FacturasProveedor_controller;PedProv_AlbProv_relation;AlbaranesCliente_view" />
</Target> </Target>
<Target Name="Clean"> <Target Name="Clean">
<CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_AlbProv_relation:Clean" /> <CallTarget Targets="Base:Clean;GUIBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesProveedor_model:Clean;AlbaranesProveedor_data:Clean;AlbaranesProveedor_controller:Clean;AlbaranesProveedor_view:Clean;AlbaranesProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;FacturasProveedor_controller:Clean;PedProv_AlbProv_relation:Clean;AlbaranesCliente_view:Clean" />
</Target> </Target>
<Target Name="Make"> <Target Name="Make">
<CallTarget Targets="Base:Make;GUIBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;FacturasProveedor_controller:Make;PedProv_AlbProv_relation:Make" /> <CallTarget Targets="Base:Make;GUIBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesProveedor_model:Make;AlbaranesProveedor_data:Make;AlbaranesProveedor_controller:Make;AlbaranesProveedor_view:Make;AlbaranesProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;FacturasProveedor_controller:Make;PedProv_AlbProv_relation:Make;AlbaranesCliente_view:Make" />
</Target> </Target>
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" /> <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
</Project> </Project>

28
Source/Modulos/Albaranes de proveedor/Views/uEditorElegirAlbaranesProveedor.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorElegirAlbaranesProveedor: TfEditorElegirAlbaranesProveedor
Caption = 'Seleccionar albar'#225'n de proveedor' Caption = 'Seleccionar albar'#225'n de proveedor'
ClientWidth = 790 ClientWidth = 790
ExplicitWidth = 798 ExplicitWidth = 798
ExplicitHeight = 538
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0] object JvgWizardHeader1: TJvgWizardHeader [0]
@ -52,7 +53,7 @@ inherited fEditorElegirAlbaranesProveedor: TfEditorElegirAlbaranesProveedor
ExplicitTop = 87 ExplicitTop = 87
ExplicitWidth = 790 ExplicitWidth = 790
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 278 ExplicitWidth = 126
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -88,11 +89,11 @@ inherited fEditorElegirAlbaranesProveedor: TfEditorElegirAlbaranesProveedor
end end
end end
inherited tbxFiltro: TTBXToolbar inherited tbxFiltro: TTBXToolbar
Left = 278 Left = 126
Top = 23 Top = 23
DockPos = 104 DockPos = 104
DockRow = 1 DockRow = 1
ExplicitLeft = 278 ExplicitLeft = 126
ExplicitTop = 23 ExplicitTop = 23
inherited TBXItem34: TTBXItem inherited TBXItem34: TTBXItem
Action = actQuitarFiltro2 Action = actQuitarFiltro2
@ -105,6 +106,7 @@ inherited fEditorElegirAlbaranesProveedor: TfEditorElegirAlbaranesProveedor
Left = 334 Left = 334
Visible = False Visible = False
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitWidth = 36
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
@ -113,7 +115,7 @@ inherited fEditorElegirAlbaranesProveedor: TfEditorElegirAlbaranesProveedor
end end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
Left = 0 Left = 0
Top = 389 Top = 449
Width = 790 Width = 790
Height = 36 Height = 36
Align = alBottom Align = alBottom
@ -125,7 +127,7 @@ inherited fEditorElegirAlbaranesProveedor: TfEditorElegirAlbaranesProveedor
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
ReadOnly = False ReadOnly = False
ExplicitTop = 389 ExplicitTop = 449
ExplicitWidth = 790 ExplicitWidth = 790
ExplicitHeight = 36 ExplicitHeight = 36
inherited JvFooter1: TJvFooter inherited JvFooter1: TJvFooter
@ -157,6 +159,22 @@ inherited fEditorElegirAlbaranesProveedor: TfEditorElegirAlbaranesProveedor
end end
end end
inherited EditorActionList: TActionList [5] inherited EditorActionList: TActionList [5]
inherited actPrevisualizar: TAction
Enabled = False
Visible = False
end
inherited actImprimir: TAction
Enabled = False
Visible = False
end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
inherited actGenerarFactura: TAction
Enabled = False
Visible = False
end
end end
inherited SmallImages: TPngImageList [6] inherited SmallImages: TPngImageList [6]
end end

2
Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm
View File

@ -38,7 +38,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Width = 640 Width = 640
ExplicitWidth = 640 ExplicitWidth = 640
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 632 ExplicitWidth = 640
object TBXSubmenuItem2: TTBXSubmenuItem [0] object TBXSubmenuItem2: TTBXSubmenuItem [0]
Caption = 'Nuevo' Caption = 'Nuevo'
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText

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

@ -279,12 +279,6 @@ end;
procedure TfEditorFacturasCliente.NuevoInterno; procedure TfEditorFacturasCliente.NuevoInterno;
var var
Respuesta : Integer; Respuesta : Integer;
//FPedidosClienteController : IPedidosClienteController;
//APedido : IBizPedidoCliente;
//FAlbaranesClienteController : IAlbaranesClienteController;
//AAlbaranes : IBizAlbaranCliente;
//AFacturasNuevas : IBizFacturaCliente;
//i : integer;
begin begin
inherited; inherited;

BIN
Source/Modulos/Facturas de proveedor/Controller/FacturasProveedor_controller.res
View File

Binary file not shown.

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

@ -88,12 +88,6 @@ procedure TfEditorFacturasProveedor.actNuevoAbonoExecute(Sender: TObject);
var var
Respuesta : Integer; Respuesta : Integer;
Opcion : Integer; Opcion : Integer;
// FPedidosClienteController : IPedidosClienteController;
// APedido : IBizPedidoCliente;
// FAlbaranesClienteController : IAlbaranesClienteController;
// AAlbaranes : IBizAlbaranCliente;
// AFacturasNuevas : IBizFacturaCliente;
/// i : integer;
begin begin
inherited; inherited;
//ABONOS //ABONOS
@ -278,12 +272,6 @@ end;
procedure TfEditorFacturasProveedor.NuevoInterno; procedure TfEditorFacturasProveedor.NuevoInterno;
var var
Respuesta : Integer; Respuesta : Integer;
// FPedidosProveedorController : IPedidosProveedorController;
// APedido : IBizPedidoProveedor;
//FAlbaranesProveedorController : IAlbaranesProveedorController;
//AAlbaranes : IBizAlbaranProveedor;
//AFacturasNuevas : IBizFacturaProveedor;
//i : integer;
begin begin
inherited; inherited;

116
Source/Modulos/Pedidos a proveedor/Views/PedidosProveedor_view.dproj
View File

@ -49,64 +49,64 @@
<DelphiCompile Include="PedidosProveedor_view.dpk"> <DelphiCompile Include="PedidosProveedor_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\adortl.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\adortl.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_controller.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Almacenes_controller.dcp" />
<DCCReference Include="..\..\Lib\Almacenes_model.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Almacenes_model.dcp" />
<DCCReference Include="..\..\Lib\Articulos_view.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Articulos_view.dcp" />
<DCCReference Include="..\..\Lib\ccpackD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\ccpackD11.dcp" />
<DCCReference Include="..\..\Lib\cfpack_d11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\cfpack_d11.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\Contactos_model.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Contactos_model.dcp" />
<DCCReference Include="..\..\Lib\Contactos_view.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Contactos_view.dcp" />
<DCCReference Include="..\..\Lib\cxDataD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\cxDataD11.dcp" />
<DCCReference Include="..\..\Lib\cxEditorsD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\cxEditorsD11.dcp" />
<DCCReference Include="..\..\Lib\cxLibraryD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\cxLibraryD11.dcp" />
<DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\dbrtl.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dbrtl.dcp" />
<DCCReference Include="..\..\Lib\designide.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\designide.dcp" />
<DCCReference Include="..\..\Lib\dsnap.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dsnap.dcp" />
<DCCReference Include="..\..\Lib\dxComnD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxComnD11.dcp" />
<DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxLayoutControlD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinBlackD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinBlackD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinBlueD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinBlueD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinCaramelD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinCaramelD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinCoffeeD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinCoffeeD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinGlassOceansD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinGlassOceansD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkiniMaginaryD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkiniMaginaryD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinLilianD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinLilianD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinLiquidSkyD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinLiquidSkyD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinLondonLiquidSkyD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinLondonLiquidSkyD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinMcSkinD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinMcSkinD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinMoneyTwinsD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinMoneyTwinsD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinOffice2007BlackD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinOffice2007BlackD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinOffice2007BlueD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinOffice2007BlueD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinOffice2007GreenD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinOffice2007GreenD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinOffice2007PinkD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinOffice2007PinkD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinOffice2007SilverD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinOffice2007SilverD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinsCoreD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinsCoreD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinsdxLCPainterD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinsdxLCPainterD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinSilverD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinSilverD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinStardustD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinStardustD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinValentineD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinValentineD11.dcp" />
<DCCReference Include="..\..\Lib\dxSkinXmas2008BlueD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxSkinXmas2008BlueD11.dcp" />
<DCCReference Include="..\..\Lib\dxThemeD11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\dxThemeD11.dcp" />
<DCCReference Include="..\..\Lib\GUIBase.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\GUIBase.dcp" />
<DCCReference Include="..\..\Lib\GUISDK_D11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Lib\Obras_controller.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Obras_controller.dcp" />
<DCCReference Include="..\..\Lib\Obras_model.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\Obras_model.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_controller.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\PedidosProveedor_controller.dcp" />
<DCCReference Include="..\..\Lib\PedidosProveedor_model.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\PedidosProveedor_model.dcp" />
<DCCReference Include="..\..\Lib\PedProv_AlbProv_relation.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\PedProv_AlbProv_relation.dcp" />
<DCCReference Include="..\..\Lib\PedProv_FacProv_relation.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\PedProv_FacProv_relation.dcp" />
<DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Lib\rtl.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\rtl.dcp" />
<DCCReference Include="..\..\Lib\vcl.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\vcl.dcp" />
<DCCReference Include="..\..\Lib\vclactnband.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\vclactnband.dcp" />
<DCCReference Include="..\..\Lib\vcldb.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\vcldb.dcp" />
<DCCReference Include="..\..\Lib\vcljpg.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\vcljpg.dcp" />
<DCCReference Include="..\..\Lib\vclx.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\vclx.dcp" />
<DCCReference Include="..\..\Lib\xmlrtl.dcp" /> <DCCReference Include="..\..\Facturas de proveedor\xmlrtl.dcp" />
<DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas"> <DCCReference Include="uEditorDireccionEntregaPedidoProveedor.pas">
<Form>fEditorDireccionEntregaPedidoProveedor </Form> <Form>fEditorDireccionEntregaPedidoProveedor </Form>
<DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass> <DesignClass>TfEditorDireccionEntregaPedidoProveedor</DesignClass>

48
Source/Modulos/Pedidos a proveedor/Views/uEditorElegirPedidosProveedor.dfm
View File

@ -2,6 +2,7 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
Caption = 'Seleccionar pedido de cliente' Caption = 'Seleccionar pedido de cliente'
ClientWidth = 656 ClientWidth = 656
ExplicitWidth = 664 ExplicitWidth = 664
ExplicitHeight = 538
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0] object JvgWizardHeader1: TJvgWizardHeader [0]
@ -97,7 +98,7 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
end end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4] inline frViewBarraSeleccion1: TfrViewBarraSeleccion [4]
Left = 0 Left = 0
Top = 376 Top = 436
Width = 656 Width = 656
Height = 49 Height = 49
Align = alBottom Align = alBottom
@ -109,7 +110,7 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ReadOnly = False ReadOnly = False
ExplicitTop = 376 ExplicitTop = 436
ExplicitWidth = 656 ExplicitWidth = 656
inherited JvFooter1: TJvFooter inherited JvFooter1: TJvFooter
Width = 656 Width = 656
@ -136,16 +137,16 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
inherited frViewPedidosProveedor1: TfrViewPedidosProveedor [5] inherited frViewPedidosProveedor1: TfrViewPedidosProveedor [5]
Top = 162 Top = 162
Width = 656 Width = 656
Height = 214 Height = 274
ExplicitTop = 159 ExplicitTop = 162
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 217 ExplicitHeight = 274
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 656 Width = 656
Height = 86 Height = 146
RootLevelOptions.DetailTabsPosition = dtpNone RootLevelOptions.DetailTabsPosition = dtpNone
ExplicitWidth = 656 ExplicitWidth = 656
ExplicitHeight = 89 ExplicitHeight = 146
inherited cxGridView: TcxGridDBTableView inherited cxGridView: TcxGridDBTableView
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -171,25 +172,17 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
Width = 656 Width = 656
ExplicitWidth = 656 ExplicitWidth = 656
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' ExplicitWidth = 618
StyleDisabled.LookAndFeel.SkinName = '' Width = 618
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited edtFechaIniFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 277 ExplicitWidth = 277
Width = 277 Width = 277
end end
inherited eLista: TcxComboBox
Left = 685
ExplicitLeft = 685
end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 656 Width = 656
@ -202,8 +195,8 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
end end
end end
inherited pnlAgrupaciones: TTBXDockablePanel inherited pnlAgrupaciones: TTBXDockablePanel
Top = 188 Top = 248
ExplicitTop = 191 ExplicitTop = 248
ExplicitWidth = 656 ExplicitWidth = 656
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 656 Width = 656
@ -240,7 +233,16 @@ inherited fEditorElegirPedidosProveedor: TfEditorElegirPedidosProveedor
inherited actDuplicar: TAction inherited actDuplicar: TAction
Visible = False Visible = False
end end
inherited actExportarExcel: TAction
Enabled = False
Visible = False
end
inherited actRecibirPedido: TAction inherited actRecibirPedido: TAction
Enabled = False
Visible = False
end
inherited actFacturarPedido: TAction
Enabled = False
Visible = False Visible = False
end end
end end

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

@ -10,11 +10,11 @@ type
JsListaFacturasGeneradas: TJSDialog; JsListaFacturasGeneradas: TJSDialog;
end; end;
function GenerarFacturaCliAlb(const IDAlbaran : Integer) : Boolean; overload; function GenerarFacturaCliAlb(const IDAlbaran : Integer; const CopiarDetalles: Boolean = True) : Boolean; overload;
function GenerarFacturaCliAlb(AAlbaran : IBizAlbaranCliente) : Boolean; overload; function GenerarFacturaCliAlb(AAlbaran : IBizAlbaranCliente; const CopiarDetalles: Boolean = True) : Boolean; overload;
function GenerarFacturaCliAlb : Boolean; overload; function GenerarFacturaCliAlb : Boolean; overload;
function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente; const CopiarDetalles: Boolean = True): Boolean;
implementation implementation
@ -205,21 +205,23 @@ begin
end; end;
function GenerarFacturaCliAlb(const IDAlbaran : Integer) : Boolean; overload; function GenerarFacturaCliAlb(const IDAlbaran : Integer; const CopiarDetalles: Boolean = True) : Boolean; overload;
var var
AAlbaran : IBizAlbaranCliente; AAlbaran : IBizAlbaranCliente;
begin begin
Result := False; Result := False;
try try
if not Assigned(AAlbaranesClienteController) then if not Assigned(AAlbaranesClienteController) then
Inicializar; Inicializar;
AAlbaran := AAlbaranesClienteController.Buscar(IDAlbaran); AAlbaran := AAlbaranesClienteController.Buscar(IDAlbaran);
if Assigned(AAlbaran) then if Assigned(AAlbaran) then
Result := GenerarFacturaCliAlb(AAlbaran); begin
if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos del albaran seleccionados a su factura correspondiente?', [])) = IDYES) then
Result := GenerarFacturaCliAlb(AAlbaran)
else
Result := GenerarFacturaCliAlb(AAlbaran, False);
end;
if Assigned(AAlbaranesClienteController) then if Assigned(AAlbaranesClienteController) then
Finalizar; Finalizar;
@ -229,7 +231,7 @@ begin
end; end;
end; end;
function GenerarFacturaCliAlb(AAlbaran : IBizAlbaranCliente) : Boolean; overload; function GenerarFacturaCliAlb(AAlbaran : IBizAlbaranCliente; const CopiarDetalles: Boolean = True) : Boolean; overload;
var var
AFacturasNuevas : IBizFacturaCliente; AFacturasNuevas : IBizFacturaCliente;
i: Integer; i: Integer;
@ -247,7 +249,7 @@ begin
try try
AFacturasNuevas := AFacturasClienteController.Nuevo(False); AFacturasNuevas := AFacturasClienteController.Nuevo(False);
if GenerarFacturas(AFacturasNuevas, AAlbaran) then if GenerarFacturas(AFacturasNuevas, AAlbaran, CopiarDetalles) then
begin begin
if AFacturasNuevas.DataTable.RecordCount = 1 then if AFacturasNuevas.DataTable.RecordCount = 1 then
begin begin
@ -295,7 +297,12 @@ begin
+ #10#13 + 'Si elige albaranes de clientes diferentes se dará de alta una factura por cada uno de ellos.' , True); + #10#13 + 'Si elige albaranes de clientes diferentes se dará de alta una factura por cada uno de ellos.' , True);
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
Result := GenerarFacturaCliAlb(AAlbaranes); begin
if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los albaran/es seleccionados a sus facturas correspondientes?', [])) = IDYES) then
Result := GenerarFacturaCliAlb(AAlbaranes)
else
Result := GenerarFacturaCliAlb(AAlbaranes, False);
end;
if Assigned(AAlbaranesClienteController) then if Assigned(AAlbaranesClienteController) then
Finalizar; Finalizar;
@ -304,7 +311,7 @@ begin
end; end;
end; end;
function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente): Boolean; function GenerarFacturas(AFacturas : IBizFacturaCliente; AListaAlbaranes : IBizAlbaranCliente; const CopiarDetalles: Boolean = True): Boolean;
var var
AFacturaActual : IBizFacturaCliente; AFacturaActual : IBizFacturaCliente;
AAlbaranesController : IAlbaranesClienteController; AAlbaranesController : IAlbaranesClienteController;
@ -325,9 +332,6 @@ begin
if not AListaAlbaranes.DataTable.Active then if not AListaAlbaranes.DataTable.Active then
AListaAlbaranes.DataTable.Active := True; AListaAlbaranes.DataTable.Active := True;
// ShowHourglassCursor;
// Application.ProcessMessages;
AAlbaranesController := TAlbaranesClienteController.Create; AAlbaranesController := TAlbaranesClienteController.Create;
try try
// Ordenar por fecha de albaran // Ordenar por fecha de albaran
@ -370,34 +374,52 @@ begin
// Ya tengo la factura. Le añado los conceptos del albarán // Ya tengo la factura. Le añado los conceptos del albarán
AFacturaActual.Detalles.DataTable.Last; AFacturaActual.Detalles.DataTable.Last;
// Añado el título //Se pone la referencia del pedido y el total y nos olvidamos de los detalles
AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO); if not CopiarDetalles then
with AFacturaActual.Detalles do
begin begin
Edit; AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN); with AFacturaActual.Detalles do
Post; begin
end; Edit;
// Añado el contenido del albarán CONCEPTO := 'Albaran ' + AListaAlbaranes.REFERENCIA;
CopiarArticulosAlbaran(AListaAlbaranes.Detalles, AFacturaActual.Detalles); CANTIDAD := 1;
IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los pedidos por lo tanto el
//importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE)
Post;
end;
end
//Se copian los detalles del pedido a la factura
else
begin
// Añado el título
AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO);
with AFacturaActual.Detalles do
begin
Edit;
CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
Post;
end;
// Añado el contenido del albarán
CopiarArticulosAlbaran(AListaAlbaranes.Detalles, AFacturaActual.Detalles);
AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO); AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
with AFacturaActual.Detalles do with AFacturaActual.Detalles do
begin begin
Edit; Edit;
CONCEPTO := 'Porte del albarán'; CONCEPTO := 'Porte del albarán';
CANTIDAD := 1; CANTIDAD := 1;
IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_PORTE; IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_PORTE;
Post; Post;
end; end;
// Añado el resumen // Añado el resumen
AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL); AFacturasClienteController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL);
with AFacturaActual.Detalles do with AFacturaActual.Detalles do
begin begin
Edit; Edit;
CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA; CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA;
Post; Post;
end;
end; end;
// Añado una línea en blanco // Añado una línea en blanco

86
Source/Modulos/Relaciones/Albaranes de proveedor - Facturas de proveedor/uGenerarFacturasProvAlbProvUtils.pas
View File

@ -13,11 +13,11 @@ type
JsListaFacturasGeneradas: TJSDialog; JsListaFacturasGeneradas: TJSDialog;
end; end;
function GenerarFacturaProvAlbProv(const IDAlbaran : Integer) : Boolean; overload; function GenerarFacturaProvAlbProv(const IDAlbaran : Integer; const CopiarDetalles: Boolean = True) : Boolean; overload;
function GenerarFacturaProvAlbProv(AAlbaran : IBizAlbaranProveedor) : Boolean; overload; function GenerarFacturaProvAlbProv(AAlbaran : IBizAlbaranProveedor; const CopiarDetalles: Boolean = True) : Boolean; overload;
function GenerarFacturaProvAlbProv : Boolean; overload; function GenerarFacturaProvAlbProv : Boolean; overload;
function GenerarFacturas(AFacturas : IBizFacturaProveedor; AListaAlbaranes : IBizAlbaranProveedor): Boolean; function GenerarFacturas(AFacturas : IBizFacturaProveedor; AListaAlbaranes : IBizAlbaranProveedor; const CopiarDetalles: Boolean = True): Boolean;
implementation implementation
@ -215,21 +215,23 @@ begin
end; end;
function GenerarFacturaProvAlbProv(const IDAlbaran : Integer) : Boolean; overload; function GenerarFacturaProvAlbProv(const IDAlbaran : Integer; const CopiarDetalles: Boolean = True) : Boolean; overload;
var var
AAlbaran : IBizAlbaranProveedor; AAlbaran : IBizAlbaranProveedor;
begin begin
Result := False; Result := False;
try try
if not Assigned(AAlbaranesProveedorController) then if not Assigned(AAlbaranesProveedorController) then
Inicializar; Inicializar;
AAlbaran := AAlbaranesProveedorController.Buscar(IDAlbaran); AAlbaran := AAlbaranesProveedorController.Buscar(IDAlbaran);
if Assigned(AAlbaran) then if Assigned(AAlbaran) then
Result := GenerarFacturaProvAlbProv(AAlbaran); begin
if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos del albaran seleccionados a su factura correspondiente?', [])) = IDYES) then
Result := GenerarFacturaProvAlbProv(AAlbaran)
else
Result := GenerarFacturaProvAlbProv(AAlbaran, False);
end;
if Assigned(AAlbaranesProveedorController) then if Assigned(AAlbaranesProveedorController) then
Finalizar; Finalizar;
@ -239,7 +241,7 @@ begin
end; end;
end; end;
function GenerarFacturaProvAlbProv(AAlbaran : IBizAlbaranProveedor) : Boolean; overload; function GenerarFacturaProvAlbProv(AAlbaran : IBizAlbaranProveedor; const CopiarDetalles: Boolean = True) : Boolean; overload;
var var
AFacturasNuevas : IBizFacturaProveedor; AFacturasNuevas : IBizFacturaProveedor;
i: Integer; i: Integer;
@ -257,7 +259,7 @@ begin
try try
AFacturasNuevas := AFacturasProveedorController.Nuevo(False); AFacturasNuevas := AFacturasProveedorController.Nuevo(False);
if GenerarFacturas(AFacturasNuevas, AAlbaran) then if GenerarFacturas(AFacturasNuevas, AAlbaran, CopiarDetalles) then
begin begin
if AFacturasNuevas.DataTable.RecordCount = 1 then if AFacturasNuevas.DataTable.RecordCount = 1 then
begin begin
@ -303,7 +305,12 @@ begin
+ #10#13 + 'Si elige albaranes de proveedores diferentes se dará de alta una factura por cada uno de ellos.' , True); + #10#13 + 'Si elige albaranes de proveedores diferentes se dará de alta una factura por cada uno de ellos.' , True);
if Assigned(AAlbaranes) then if Assigned(AAlbaranes) then
Result := GenerarFacturaProvAlbProv(AAlbaranes); begin
if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos del/los albaran/es seleccionados a sus facturas correspondientes?', [])) = IDYES) then
Result := GenerarFacturaProvAlbProv(AAlbaranes)
else
Result := GenerarFacturaProvAlbProv(AAlbaranes, False);
end;
if Assigned(AAlbaranesProveedorController) then if Assigned(AAlbaranesProveedorController) then
Finalizar; Finalizar;
@ -313,7 +320,7 @@ begin
end; end;
function GenerarFacturas(AFacturas: IBizFacturaProveedor; AListaAlbaranes: IBizAlbaranProveedor): Boolean; function GenerarFacturas(AFacturas: IBizFacturaProveedor; AListaAlbaranes: IBizAlbaranProveedor; const CopiarDetalles: Boolean = True): Boolean;
var var
AFacturaActual : IBizFacturaProveedor; AFacturaActual : IBizFacturaProveedor;
AAlbaranesController : IAlbaranesProveedorController; AAlbaranesController : IAlbaranesProveedorController;
@ -334,9 +341,6 @@ begin
if not AListaAlbaranes.DataTable.Active then if not AListaAlbaranes.DataTable.Active then
AListaAlbaranes.DataTable.Active := True; AListaAlbaranes.DataTable.Active := True;
// ShowHourglassCursor;
// Application.ProcessMessages;
AAlbaranesController := TAlbaranesProveedorController.Create; AAlbaranesController := TAlbaranesProveedorController.Create;
try try
// Ordenar por fecha de albaran // Ordenar por fecha de albaran
@ -388,16 +392,34 @@ begin
// Ya tengo la factura. Le añado los conceptos del albarán // Ya tengo la factura. Le añado los conceptos del albarán
AFacturaActual.Detalles.DataTable.Last; AFacturaActual.Detalles.DataTable.Last;
// Añado el título
AFacturasProveedorController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO); //Se pone la referencia del pedido y el total y nos olvidamos de los detalles
with AFacturaActual.Detalles do if not CopiarDetalles then
begin begin
Edit; AFacturasProveedorController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN); with AFacturaActual.Detalles do
Post; begin
end; Edit;
// Añado el contenido del albarán CONCEPTO := 'Albaran ' + AListaAlbaranes.REFERENCIA;
CopiarArticulosAlbaran(AListaAlbaranes.Detalles, AFacturaActual.Detalles); CANTIDAD := 1;
IMPORTE_UNIDAD := AListaAlbaranes.IMPORTE_TOTAL; //Tecsitel no utiliza el IVA en los pedidos por lo tanto el
//importe total es lo que queremos (IMPORTE_NETO+IMPORTE_PORTE)
Post;
end;
end
//Se copian los detalles del pedido a la factura
else
begin
// Añado el título
AFacturasProveedorController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_TITULO);
with AFacturaActual.Detalles do
begin
Edit;
CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
Post;
end;
// Añado el contenido del albarán
CopiarArticulosAlbaran(AListaAlbaranes.Detalles, AFacturaActual.Detalles);
{En los albaranes a proveedor el porte es a nivel del artículo {En los albaranes a proveedor el porte es a nivel del artículo
Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO); Self.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_CONCEPTO);
@ -411,13 +433,14 @@ begin
end; end;
} }
// Añado el resumen // Añado el resumen
AFacturasProveedorController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL); AFacturasProveedorController.DetallesController.Add(AFacturaActual.Detalles, TIPO_DETALLE_SUBTOTAL);
with AFacturaActual.Detalles do with AFacturaActual.Detalles do
begin begin
Edit; Edit;
CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA; CONCEPTO := 'Total del albarán ' + AListaAlbaranes.REFERENCIA;
Post; Post;
end;
end; end;
// Añado una línea en blanco // Añado una línea en blanco
@ -443,7 +466,6 @@ begin
Result := True; Result := True;
finally finally
AAlbaranesController := NIL; AAlbaranesController := NIL;
// HideHourglassCursor
end; end;
end; end;

6
Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.dfm
View File

@ -32,7 +32,7 @@ object dmGenerarFacturasProvPed: TdmGenerarFacturasProvPed
FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312 FD84C20B8417C3AA789405239826E0CBCE4F98979E10344C33B0BE630473D312
82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA 82866906D6993E62F6F1C3F45D160A5305BE68FF8095CF5B4302134CFE1185EA
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
Instruction.Text = 'Se ha generado el albar'#195#161'n...' Instruction.Text = 'Se han generado las facturas...'
Instruction.Glyph.Data = { Instruction.Glyph.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001C00
00001C0806000000720DDF940000000970485973000017120000171201679FD2 00001C0806000000720DDF940000000970485973000017120000171201679FD2
@ -64,10 +64,6 @@ object dmGenerarFacturasProvPed: TdmGenerarFacturasProvPed
1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082} 1FB8A1B4FF4FE32FF6FADB8B5E0000000049454E44AE426082}
Instruction.Icon = tdiCustom Instruction.Icon = tdiCustom
CustomButtons = < CustomButtons = <
item
Caption = 'Ver el albar'#225'n'
Value = 100
end
item item
Caption = 'Continuar' Caption = 'Continuar'
Value = 200 Value = 200

28
Source/Modulos/Relaciones/Pedidos de proveedor - Facturas de proveedor/uGenerarFacturasProvPedUtils.pas
View File

@ -209,19 +209,24 @@ var
APedido : IBizPedidoProveedor; APedido : IBizPedidoProveedor;
begin begin
Result := False; Result := False;
if not Assigned(APedidosProveedorController) then try
Inicializar; if not Assigned(APedidosProveedorController) then
Inicializar;
APedido := APedidosProveedorController.Buscar(IDPedido); APedido := APedidosProveedorController.Buscar(IDPedido);
Result := GenerarFacturaProvPed(APedido, CopiarDetalles); if Assigned(APedido) then
Result := GenerarFacturaProvPed(APedido, CopiarDetalles);
if Assigned(APedidosProveedorController) then if Assigned(APedidosProveedorController) then
Finalizar; Finalizar;
finally
APedido := Nil;
end;
end; end;
function GenerarFacturaProvPed(APedidos : IBizPedidoProveedor; const CopiarDetalles: Boolean = True) : Boolean; overload; function GenerarFacturaProvPed(APedidos : IBizPedidoProveedor; const CopiarDetalles: Boolean = True) : Boolean; overload;
var var
ARespuesta : Integer;
AFacturasNuevas : IBizFacturaProveedor; AFacturasNuevas : IBizFacturaProveedor;
i: Integer; i: Integer;
begin begin
@ -283,7 +288,13 @@ begin
'Elija el pedido o pedidos de proveedor que desea utilizar para dar de alta la factura.' 'Elija el pedido o pedidos de proveedor que desea utilizar para dar de alta la factura.'
+ #10#13 + 'Si elige Pedidos de proveedores diferentes se dará de alta una factura por cada uno de ellos.' , True); + #10#13 + 'Si elige Pedidos de proveedores diferentes se dará de alta una factura por cada uno de ellos.' , True);
Result := GenerarFacturaProvPed(APedidos); if Assigned(APedidos) then
begin
if (ShowConfirmMessage('Generar factura', Format('¿Desea copiar todos los conceptos de/los pedido/s seleccionados a sus facturas correspondientes?', [])) = IDYES) then
Result := GenerarFacturaProvPed(APedidos)
else
Result := GenerarFacturaProvPed(APedidos, False);
end;
if Assigned(APedidosProveedorController) then if Assigned(APedidosProveedorController) then
Finalizar; Finalizar;
@ -333,6 +344,7 @@ begin
// No hay factura de ese Proveedor. Creo una nueva // No hay factura de ese Proveedor. Creo una nueva
AFacturasProveedorController.Anadir(AFacturas); AFacturasProveedorController.Anadir(AFacturas);
APedidosController.RecuperarProveedor(AListaPedidos); APedidosController.RecuperarProveedor(AListaPedidos);
AListaPedidos.Proveedor.DataTable.Active := True;
AFacturas.Proveedor := AListaPedidos.Proveedor; AFacturas.Proveedor := AListaPedidos.Proveedor;
AFacturaActual := AFacturas; AFacturaActual := AFacturas;
end; end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.2.3.0\0" VALUE "FileVersion", "1.2.3.0\0"
VALUE "ProductVersion", "1.2.3.0\0" VALUE "ProductVersion", "1.2.3.0\0"
VALUE "CompileDate", "jueves, 21 de agosto de 2008 13:44\0" VALUE "CompileDate", "jueves, 21 de agosto de 2008 17:06\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"