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

Cambios para arrglo en informe de comisiones, poder facturar y establecer fehca de recepción en albaranes de cliente y meter ref. de cliente de los albaranes en las facturas de cliente

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@169 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2007-10-25 15:41:16 +00:00
parent 253826a910
commit f349717bf4
14 changed files with 73 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Cliente/FactuGES.bdsproj
View File

@ -149,7 +149,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">2</VersionInfo>
<VersionInfo Name="Release">3</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -162,7 +162,7 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.3.2.0</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.3.3.0</VersionInfoKeys>
<VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys>
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

17
Source/FactuGES_Group.bdsgroup
View File

@ -8,7 +8,9 @@
<Option Name="GUID">{897CD5E4-3D47-418F-BD7A-AD0C0C4FDE6A}</Option>
</Option>
</PersonalityInfo>
<Default.Personality> <Projects>
<Default.Personality>
<Projects>
<Projects Name="DataAbstract_D10.bpl">DataAbstract_D10\DataAbstract_D10.bdsproj</Projects>
<Projects Name="Base.bpl">Base\Base.bdsproj</Projects>
<Projects Name="ControllerBase.bpl">Base\ControllerBase\ControllerBase.bdsproj</Projects>
@ -85,14 +87,13 @@
<Projects Name="AlbaranesProveedor_plugin.bpl">Modulos\Albaranes de proveedor\Plugin\AlbaranesProveedor_plugin.bdsproj</Projects>
<Projects Name="FactuGES.exe">Cliente\FactuGES.bdsproj</Projects>
<Projects Name="FactuGES_Server.exe">Servidor\FactuGES_Server.bdsproj</Projects>
<Projects Name="PedProv_AlbProv_relation.bpl">Modulos\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.bdsproj</Projects>
<Projects Name="Comisiones_model.bpl">Modulos\Comisiones\Model\Comisiones_model.bdsproj</Projects>
<Projects Name="Comisiones_data.bpl">Modulos\Comisiones\Data\Comisiones_data.bdsproj</Projects>
<Projects Name="Comisiones_controller.bpl">Modulos\Comisiones\Controller\Comisiones_controller.bdsproj</Projects>
<Projects Name="Comisiones_view.bpl">Modulos\Comisiones\Views\Comisiones_view.bdsproj</Projects>
<Projects Name="Comisiones_plugin.bpl">Modulos\Comisiones\Plugin\Comisiones_plugin.bdsproj</Projects>
<Projects Name="AlbCli_FacCli_relation.bpl">Modulos\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.bdsproj</Projects>
<Projects Name="FacturasProveedor_model.bpl">Modulos\Facturas de proveedor\Model\FacturasProveedor_model.bdsproj</Projects>
<Projects Name="FacturasProveedor_data.bpl">Modulos\Facturas de proveedor\Data\FacturasProveedor_data.bdsproj</Projects>
<Projects Name="AlbProv_FacProv_relation.bpl">Modulos\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.bdsproj</Projects>
<Projects Name="FacturasProveedor_controller.bpl">Modulos\Facturas de proveedor\Controller\FacturasProveedor_controller.bdsproj</Projects>
<Projects Name="FacturasProveedor_view.bpl">Modulos\Facturas de proveedor\Views\FacturasProveedor_view.bdsproj</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Empresas_model.bpl Empresas_data.bpl Empresas_controller.bpl Usuarios.bpl Empresas_view.bpl Empresas_plugin.bpl TiposIVA_model.bpl TiposIVA_data.bpl TiposIVA_controller.bpl TiposIVA_view.bpl TiposIVA_plugin.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Contactos_view.bpl Contactos_plugin.bpl Almacenes_model.bpl Almacenes_data.bpl Almacenes_controller.bpl Almacenes_view.bpl Almacenes_plugin.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl RemesasCliente_model.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl BancaElectronica_controller.bpl BancaElectronica_view.bpl RemesasCliente_view.bpl RemesasCliente_plugin.bpl PedidosCliente_model.bpl PedidosCliente_data.bpl PedidosCliente_controller.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl PedCli_PedProv_relation.bpl PedCli_AlbCli_relation.bpl PedidosCliente_view.bpl PedidosCliente_plugin.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FacturasCliente_plugin.bpl Inventario_view.bpl Inventario_plugin.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe PedProv_AlbProv_relation.bpl AlbCli_FacCli_relation.bpl FacturasProveedor_model.bpl FacturasProveedor_data.bpl AlbProv_FacProv_relation.bpl FacturasProveedor_controller.bpl FacturasProveedor_view.bpl</Projects>
<Projects Name="Targets">DataAbstract_D10.bpl Base.bpl ControllerBase.bpl GUIBase.bpl Empresas_model.bpl Empresas_data.bpl Empresas_controller.bpl Usuarios.bpl Empresas_view.bpl Empresas_plugin.bpl TiposIVA_model.bpl TiposIVA_data.bpl TiposIVA_controller.bpl TiposIVA_view.bpl TiposIVA_plugin.bpl Contactos_model.bpl Contactos_data.bpl Contactos_controller.bpl Contactos_view.bpl Contactos_plugin.bpl Almacenes_model.bpl Almacenes_data.bpl Almacenes_controller.bpl Almacenes_view.bpl Almacenes_plugin.bpl Articulos_model.bpl Articulos_data.bpl Articulos_controller.bpl Articulos_view.bpl Articulos_plugin.bpl RecibosCliente_model.bpl RecibosCliente_data.bpl RecibosCliente_controller.bpl RecibosCliente_view.bpl RecibosCliente_plugin.bpl RemesasCliente_model.bpl RemesasCliente_data.bpl RemesasCliente_controller.bpl BancaElectronica_controller.bpl BancaElectronica_view.bpl RemesasCliente_view.bpl RemesasCliente_plugin.bpl PedidosCliente_model.bpl PedidosCliente_data.bpl PedidosCliente_controller.bpl AlbaranesCliente_model.bpl AlbaranesCliente_data.bpl AlbaranesCliente_controller.bpl FacturasCliente_model.bpl FacturasCliente_data.bpl FacturasCliente_controller.bpl PedidosProveedor_model.bpl PedidosProveedor_data.bpl PedidosProveedor_controller.bpl Inventario_model.bpl Inventario_data.bpl Inventario_controller.bpl AlbaranesProveedor_model.bpl AlbaranesProveedor_data.bpl AlbaranesProveedor_controller.bpl PedCli_PedProv_relation.bpl PedCli_AlbCli_relation.bpl PedidosCliente_view.bpl PedidosCliente_plugin.bpl AlbaranesCliente_view.bpl AlbaranesCliente_plugin.bpl FacturasCliente_view.bpl FacturasCliente_plugin.bpl Inventario_view.bpl Inventario_plugin.bpl PedidosProveedor_view.bpl PedidosProveedor_plugin.bpl AlbaranesProveedor_view.bpl AlbaranesProveedor_plugin.bpl FactuGES.exe FactuGES_Server.exe Comisiones_model.bpl Comisiones_data.bpl Comisiones_controller.bpl Comisiones_view.bpl Comisiones_plugin.bpl AlbCli_FacCli_relation.bpl</Projects>
</Projects>
<Dependencies/>
</Default.Personality>

40
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -55,10 +55,14 @@ type
AAlbaran: IBizAlbaranCliente);
procedure QuitarDireccionEnvio(AAlbaran: IBizAlbaranCliente);
procedure RecuperarCliente(AAlbaran: IBizAlbaranCliente);
function CambiarSituacion(AAlbaran : IBizAlbaranCliente;
ANuevaSituacion: String; AFechaEnvio : TDateTime = 0;
AFechaRecibido : TDateTime = 0;
DoPost: Boolean = True) : Boolean;
function ValidarSituacion(ASituacion: String;
AFechaEnvio : TDateTime = 0;
AFechaRecibido : TDateTime = 0) : Boolean;
end;
TAlbaranesClienteController = class(TObservador, IAlbaranesClienteController)
@ -83,10 +87,6 @@ type
procedure FiltrarEmpresa(AAlbaran: IBizAlbaranCliente);
function _Vacio : IBizAlbaranCliente;
function ValidarAlbaran(AAlbaran: IBizAlbaranCliente): Boolean;
function ValidarSituacion(ASituacion: String;
AFechaAlbaran : TDateTime;
var AFechaEnvio : TDateTime;
var AFechaRecibido : TDateTime) : Boolean;
public
property ClienteController: IClientesController read GetClienteController write SetClienteController;
@ -128,6 +128,9 @@ type
function EsModificable(AAlbaran: IBizAlbaranCliente): Boolean;
function EsEliminable(AAlbaran: IBizAlbaranCliente): Boolean;
function ValidarSituacion(ASituacion: String;
AFechaEnvio : TDateTime = 0;
AFechaRecibido : TDateTime = 0) : Boolean;
function CambiarSituacion(AAlbaran : IBizAlbaranCliente;
ANuevaSituacion: String; AFechaEnvio : TDateTime = 0;
AFechaRecibido : TDateTime = 0;
@ -279,6 +282,10 @@ begin
OpenBraket;
AddText(fld_AlbaranesClienteID_FACTURA + ' is null');
CloseBraket;
AddOperator(opAND);
OpenBraket;
AddText(fld_AlbaranesClienteFECHA_ENVIO + ' is not null');
CloseBraket;
end;
finally
HideHourglassCursor;
@ -298,8 +305,8 @@ begin
AAlbaran.DataTable.Active := True;
// Validar la situación del albarán
if ValidarSituacion(ANuevaSituacion, AAlbaran.FECHA_ALBARAN, AFechaEnvio, AFechaRecibido) then
begin
// if ValidarSituacion(ANuevaSituacion, AAlbaran.FECHA_ALBARAN, AFechaEnvio, AFechaRecibido) then
// begin
ShowHourglassCursor;
AAlbaran.DataTable.DisableControls;
try
@ -315,7 +322,7 @@ begin
AAlbaran.DataTable.EnableControls;
HideHourglassCursor;
end;
end;
// end;
end;
procedure TAlbaranesClienteController.CopiarDireccionEnvio(
@ -501,24 +508,16 @@ begin
end;
function TAlbaranesClienteController.ValidarSituacion(ASituacion: String;
AFechaAlbaran: TDateTime; var AFechaEnvio,
AFechaRecibido: TDateTime): Boolean;
AFechaEnvio, AFechaRecibido: TDateTime): Boolean;
begin
Result := False;
if ASituacion = SITUACION_ALBARAN_PENDIENTE then
if (ASituacion = SITUACION_ALBARAN_ENVIADO) then
begin
AFechaEnvio := 0;
AFechaRecibido := 0
end
else begin
if (ASituacion = SITUACION_ALBARAN_ENVIADO) then
begin
AFechaRecibido := 0;
if (EsFechaVacia(AFechaEnvio)) then
raise Exception.Create('Hay que indicar la fecha de envío del albarán')
end;
if (ASituacion = SITUACION_ALBARAN_SERVIDO) then
begin
end
else if (ASituacion = SITUACION_ALBARAN_SERVIDO) then
begin
if (EsFechaVacia(AFechaEnvio)) then
raise Exception.Create('Hay que indicar la fecha de envío del albarán');
if (EsFechaVacia(AFechaRecibido)) then
@ -526,7 +525,6 @@ begin
if (AFechaRecibido < AFechaEnvio) then
raise Exception.Create('La fecha de recepción y firma del albarán por parte '
+ 'del cliente no puede ser anterior a la fecha de envio del material del albarán');
end;
end;
Result := True;
end;

7
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -122,7 +122,8 @@ begin
inherited;
try
FController.CambiarSituacion(FAlbaranes, SITUACION_ALBARAN_SERVIDO, FAlbaranes.FECHA_ENVIO, Now);
if FController.ValidarSituacion(SITUACION_ALBARAN_SERVIDO, FAlbaranes.FECHA_ENVIO, Now) then
FController.CambiarSituacion(FAlbaranes, SITUACION_ALBARAN_SERVIDO, FAlbaranes.FECHA_ENVIO, Now);
except
on E : Exception do
ShowErrorMessage('Error al cambiar la situación del albarán', E.Message, E);
@ -182,6 +183,7 @@ begin
(Sender as TAction).Enabled := HayDatos
and not (ViewGrid.NumSeleccionados > 1)
and (FAlbaranes.REF_FACTURA = '')
and (FAlbaranes.SITUACION <> SITUACION_ALBARAN_PENDIENTE)
and ViewGrid.esSeleccionCeldaDatos;
end;
@ -215,7 +217,8 @@ begin
if bCambiarEstado then
begin
try
FController.CambiarSituacion(FAlbaranes, SITUACION_ALBARAN_ENVIADO, Now);
if FController.ValidarSituacion(SITUACION_ALBARAN_ENVIADO, Now) then
FController.CambiarSituacion(FAlbaranes, SITUACION_ALBARAN_ENVIADO, Now);
{
if (ShowConfirmMessage('', 'Se ha realizado correctamente la salida del albarán de cliente. ¿Desea generar la factura de cliente correspondiente?') = IDYES) then
begin

6
Source/Modulos/Comisiones/Views/uEditorComisionesReport.dfm
View File

@ -1,7 +1,13 @@
inherited fEditorComisionesPreview: TfEditorComisionesPreview
Caption = 'Previsualizar la factura'
ExplicitWidth = 803
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
inherited Image1: TImage
Left = 768
end
end
object pnlFiltrar: TTBXDockablePanel [3]
Left = 0
Top = 102

6
Source/Modulos/Comisiones/Views/uEditorComisionesReport.pas
View File

@ -76,9 +76,15 @@ begin
try
AStream := FDataModule.GetReport(Null, False, edtFechaFiltro1.Text, edtFechaFiltro2.Text, cbAgentes.EditValue);
try
//Para que refresque el editor que presenta el informe y no falle al aplicar un filtro y cambiar el numero de hojas del informe
actPrimeraPagina.Execute;
Report.PreviewPages.Clear;
LoadFromStream(AStream);
Report.Preview.Refresh;
//Para que refresque el editor que presenta el informe y no falle al aplicar un filtro y cambiar el numero de hojas del informe
actAnchoPagina.Execute;
finally
AStream.Free;
end;

5
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -305,7 +305,7 @@ begin
with AFacturaActual.Detalles do
begin
Edit;
CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
CONCEPTO := 'Albarán ' + AListaAlbaranes.REFERENCIA + ' (Ref.Cliente: ' + AListaAlbaranes.REFERENCIA_CLIENTE + ') del ' + DateToStr(AListaAlbaranes.FECHA_ALBARAN);
Post;
end;
// Añado el contenido del albarán
@ -342,9 +342,10 @@ begin
// Guardo la factura que acabo de generar o editar
AFacturaActual.CalcularImporteTotal;
Self.Guardar(AFacturaActual);
// Asocio la factura con el albarán
// Asocio la factura con el albarán, y la fecha de la misma a la recepción del mismo
AListaAlbaranes.Edit;
AListaAlbaranes.ID_FACTURA := AFacturaActual.ID;
AListaAlbaranes.FECHA_RECEPCION := AFacturaActual.FECHA_FACTURA;
AListaAlbaranes.Post;
AAlbaranesController.Guardar(AListaAlbaranes);

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

@ -2,7 +2,6 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Caption = 'Lista de facturas de cliente'
ClientHeight = 666
ClientWidth = 640
ExplicitTop = -78
ExplicitWidth = 648
ExplicitHeight = 700
PixelsPerInch = 96
@ -122,9 +121,19 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
inherited dxLayoutControl1: TdxLayoutControl
Width = 640
ExplicitWidth = 640
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit
Left = 296
ExplicitLeft = 296
Left = 295
ExplicitLeft = 295
ExplicitWidth = 244
Width = 244
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel

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

@ -302,7 +302,7 @@ begin
GenerarFacturaCli;
actRefrescar.Execute;
end;
100 : begin // Albaran nuevo vacio
100 : begin // Factura nueva vacia
if FController.Anadir(Facturas) then
FController.Ver(Facturas);
end;

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

@ -211,8 +211,8 @@ begin
end;
end;
dmGenerarFacturasCli.JsListaFacturasGeneradas.Execute;
end;
end;
end;
end;
if Assigned(AAlbaranesClienteController) then
Finalizar;

17
Source/Servidor/FactuGES_Server.bdsproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<PersonalityInfo>
<Option>
@ -154,7 +154,7 @@
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">2</VersionInfo>
<VersionInfo Name="MinorVer">3</VersionInfo>
<VersionInfo Name="Release">2</VersionInfo>
<VersionInfo Name="Release">3</VersionInfo>
<VersionInfo Name="Build">0</VersionInfo>
<VersionInfo Name="Debug">False</VersionInfo>
<VersionInfo Name="PreRelease">False</VersionInfo>
@ -167,21 +167,18 @@
<VersionInfoKeys>
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.3.2.0</VersionInfoKeys>
<VersionInfoKeys Name="FileVersion">2.3.3.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">2.3.1.0</VersionInfoKeys>
<VersionInfoKeys Name="ProductVersion">2.3.2.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
<VersionInfoKeys Name="CompileDate">lunes, 08 de octubre de 2007 20:25</VersionInfoKeys></VersionInfoKeys>
<Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<VersionInfoKeys Name="CompileDate">miércoles, 17 de octubre de 2007 14:01</VersionInfoKeys></VersionInfoKeys>
<Excluded_Packages><Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages></Excluded_Packages></Delphi.Personality>
<ModelSupport>False</ModelSupport>
<!-- EurekaLog First Line
<!-- EurekaLog First Line
[Exception Log]
EurekaLog Version=519
Activate=0

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "2.3.2.0\0"
VALUE "ProductVersion", "2.3.2.0\0"
VALUE "CompileDate", "miércoles, 17 de octubre de 2007 14:01\0"
VALUE "CompileDate", "jueves, 25 de octubre de 2007 17:21\0"
END
END
BLOCK "VarFileInfo"

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.