Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso de generación de recibos de cliente segun nuevos requisitos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@67 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2013-05-30 09:06:45 +00:00
parent 4c225af7d5
commit 76abceffbf
12 changed files with 500 additions and 406 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

56
Source/GUIBase/GUIBase.dproj
View File

@ -58,34 +58,34 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\ccpackD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxLayoutControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxPScxCommonD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\frx11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\frxe11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\fs11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvAppFrmD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvGlobusD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\tb2k_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

11
Source/GUIBase/uEditorDBItem.dfm
View File

@ -21,7 +21,7 @@ inherited fEditorDBItem: TfEditorDBItem
Width = 650 Width = 650
ExplicitWidth = 650 ExplicitWidth = 650
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 605 ExplicitWidth = 650
inherited TBXItem26: TTBXItem inherited TBXItem26: TTBXItem
Visible = False Visible = False
end end
@ -77,12 +77,14 @@ inherited fEditorDBItem: TfEditorDBItem
object pgPaginas: TPageControl [3] object pgPaginas: TPageControl [3]
AlignWithMargins = True AlignWithMargins = True
Left = 3 Left = 3
Top = 109 Top = 112
Width = 644 Width = 644
Height = 328 Height = 325
ActivePage = pagGeneral ActivePage = pagGeneral
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 109
ExplicitHeight = 328
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0 ExplicitLeft = 0
@ -93,7 +95,7 @@ inherited fEditorDBItem: TfEditorDBItem
end end
object PnlComentario: TPanel [4] object PnlComentario: TPanel [4]
Left = 0 Left = 0
Top = 76 Top = 79
Width = 650 Width = 650
Height = 30 Height = 30
Align = alTop Align = alTop
@ -103,6 +105,7 @@ inherited fEditorDBItem: TfEditorDBItem
ParentBackground = False ParentBackground = False
TabOrder = 4 TabOrder = 4
VerticalAlignment = taAlignTop VerticalAlignment = taAlignTop
ExplicitTop = 76
object lbComentario: TLabel object lbComentario: TLabel
AlignWithMargins = True AlignWithMargins = True
Left = 6 Left = 6

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

@ -842,12 +842,13 @@ begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignado: EsEliminable'); raise Exception.Create ('Factura no asignado: EsEliminable');
{
if (AFactura.SITUACION <> CTE_PENDIENTE) then if (AFactura.SITUACION <> CTE_PENDIENTE) then
begin begin
Result := False; Result := False;
AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser eliminada'; AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser eliminada';
end end;
{
else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then
begin begin
Result := False; Result := False;
@ -862,17 +863,37 @@ begin
end; end;
function TFacturasClienteController.EsModificable(AFactura: IBizFacturaCliente; var AComentario: Variant): Boolean; function TFacturasClienteController.EsModificable(AFactura: IBizFacturaCliente; var AComentario: Variant): Boolean;
var
AFormaPago: IBizFormaPago;
bFacturaConRecibos: Boolean;
begin begin
Result := True;
AComentario := Null; AComentario := Null;
if not Assigned(AFactura) then if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignado: EsModificable'); raise Exception.Create ('Factura no asignado: EsModificable');
{
if (AFactura.SITUACION <> CTE_PENDIENTE) then bFacturaConRecibos := not AFactura.FECHA_VENCIMIENTOIsNull;
if not bFacturaConRecibos then
with TFormasPagoController.Create do
begin
try
AFormaPago := Buscar(AFactura.ID_FORMA_PAGO);
AFormaPago.DataTable.Active := True;
bFacturaConRecibos := (AFormaPago.Plazos.RecordCount > 0) ;
finally
AFormaPago := NIL;
Free;
end;
end;
if (bFacturaConRecibos and (AFactura.SITUACION <> CTE_PENDIENTE)) then
begin begin
Result := False; Result := False;
AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser modificada'; AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser modificada';
end end;
{
else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then
begin begin
Result := False; Result := False;
@ -1202,9 +1223,6 @@ begin
ARecibos := ARecibosClienteController.BuscarRecibosFactura(AFactura.ID); ARecibos := ARecibosClienteController.BuscarRecibosFactura(AFactura.ID);
ARecibosClienteController.EliminarTodo(ARecibos); ARecibosClienteController.EliminarTodo(ARecibos);
if AFormaPago.Plazos.RecordCount = 0 then
Exit; //No hay plazos en la forma de pago en la factura y por lo tanto no se generan recibos
//Se cambia la lógica a peticion de acana, en el caso de meter una fecha de vencimiento, //Se cambia la lógica a peticion de acana, en el caso de meter una fecha de vencimiento,
//los plazos de la forma de pago no tendrán efecto, se generará un recibo con el 100% y fecha de vencimiento //los plazos de la forma de pago no tendrán efecto, se generará un recibo con el 100% y fecha de vencimiento
//de la factura. (Se permitirá para acana poder dar de alta facturas sin recibos asociados) //de la factura. (Se permitirá para acana poder dar de alta facturas sin recibos asociados)

1
Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas
View File

@ -254,6 +254,7 @@ begin
ID_EMPRESA := AppFactuGES.EmpresaActiva.ID; ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
// FECHA_VENCIMIENTO := DateOf(Now);
TIPO := CTE_TIPO_FACTURA; TIPO := CTE_TIPO_FACTURA;
SITUACION := 'PENDIENTE'; SITUACION := 'PENDIENTE';
ID_CLIENTE := ID_NULO; ID_CLIENTE := ID_NULO;

6
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
View File

@ -78,7 +78,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Properties.ListOptions.ShowHeader = False Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True Properties.ListOptions.SyncMode = True
Properties.ListSource = dsFormaPago Properties.ListSource = dsFormaPago
Properties.OnEditValueChanged = edtFechaVencimientoPropertiesEditValueChanged
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False
@ -195,7 +194,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'FECHA_VENCIMIENTO' DataBinding.DataField = 'FECHA_VENCIMIENTO'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.OnEditValueChanged = edtFechaVencimientoPropertiesEditValueChanged Properties.ImmediatePost = True
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.Color = clInfoBk Style.Color = clInfoBk
@ -274,6 +273,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.Items.Strings = ( Properties.Items.Strings = (
'PENDIENTE' 'PENDIENTE'
'PARCIALMENTE PAGADA'
'PAGADA') 'PAGADA')
TabOrder = 2 TabOrder = 2
Width = 121 Width = 121
@ -307,7 +307,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Control = edtFecha Control = edtFecha
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item8: TdxLayoutItem object ledtSituacion: TdxLayoutItem
Caption = 'Situaci'#243'n:' Caption = 'Situaci'#243'n:'
Control = edtSituacion Control = edtSituacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False

67
Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
View File

@ -59,10 +59,11 @@ type
cbRecargoEquivalencia: TcxDBCheckBox; cbRecargoEquivalencia: TcxDBCheckBox;
dxLayoutControl1Group9: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup;
edtSituacion: TcxDBComboBox; edtSituacion: TcxDBComboBox;
dxLayoutControl1Item8: TdxLayoutItem; ledtSituacion: TdxLayoutItem;
procedure bFormasPagoClick(Sender: TObject); procedure bFormasPagoClick(Sender: TObject);
procedure CustomViewDestroy(Sender: TObject); procedure CustomViewDestroy(Sender: TObject);
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);
procedure cbFormaPagoPropertiesEditValueChanged(Sender: TObject);
procedure edtFechaVencimientoPropertiesEditValueChanged(Sender: TObject); procedure edtFechaVencimientoPropertiesEditValueChanged(Sender: TObject);
protected protected
FFactura : IBizFacturaCliente; FFactura : IBizFacturaCliente;
@ -82,7 +83,7 @@ type
implementation implementation
uses uses
uDataModuleContactos, schFacturasClienteClient_Intf; DateUtils, uDataModuleContactos, schFacturasClienteClient_Intf;
{$R *.dfm} {$R *.dfm}
@ -100,22 +101,61 @@ begin
inherited; inherited;
FFormasPago := Nil; FFormasPago := Nil;
FFormasPagoController := TFormasPagoController.Create; FFormasPagoController := TFormasPagoController.Create;
cbFormaPago.Properties.OnEditValueChanged := cbFormaPagoPropertiesEditValueChanged;
edtFechaVencimiento.Properties.OnEditValueChanged := edtFechaVencimientoPropertiesEditValueChanged;
end; end;
procedure TfrViewFacturaCliente.CustomViewDestroy(Sender: TObject); procedure TfrViewFacturaCliente.CustomViewDestroy(Sender: TObject);
begin begin
inherited;
FFormasPago := Nil; FFormasPago := Nil;
FFormasPagoController := NIL; FFormasPagoController := NIL;
cbFormaPago.Properties.OnEditValueChanged := Nil;
edtFechaVencimiento.Properties.OnEditValueChanged := Nil;
inherited;
end; end;
procedure TfrViewFacturaCliente.edtFechaVencimientoPropertiesEditValueChanged(Sender: TObject); procedure TfrViewFacturaCliente.edtFechaVencimientoPropertiesEditValueChanged(
Sender: TObject);
begin
inherited;
if Assigned(Factura) and (Factura.DataTable.State in dsEditModes) then
begin
if (edtFechaVencimiento.EditingValue <> null) then
begin
Application.MessageBox('Ha elegido una fecha de vencimiento, la situación de la factura vendrá dada por la situación del recibo generado con el vencimiento dado', 'Atención', MB_OK);
edtSituacion.EditValue := CTE_PENDIENTE;
ledtSituacion.Enabled := False;
end
else
begin
// edtSituacion.EditValue := CTE_PENDIENTE;
ledtSituacion.Enabled := True;
end;
end;
end;
procedure TfrViewFacturaCliente.cbFormaPagoPropertiesEditValueChanged(Sender: TObject);
begin
if Assigned(Factura) and (Factura.DataTable.State in dsEditModes) then
begin begin
if Assigned(FFormasPago) then if Assigned(FFormasPago) then
if (FFormasPago.Plazos.RecordCount = 0) then if (FFormasPago.Plazos.RecordCount = 0) then
ledtFechaVencimiento.Enabled := True begin
// edtFechaVencimiento.EditValue := DateOf(Now);
ledtFechaVencimiento.Enabled := True;
edtSituacion.EditValue := CTE_PENDIENTE;
ledtSituacion.Enabled := True;
end
else else
begin
Application.MessageBox('Ha elegido una forma de pago con plazos asignados, la situación de la factura vendrá dada por la situación de los recibos generados según los plazos', 'Atención', MB_OK);
edtFechaVencimiento.EditValue := Null;
ledtFechaVencimiento.Enabled := False; ledtFechaVencimiento.Enabled := False;
edtSituacion.EditValue := CTE_PENDIENTE;
ledtSituacion.Enabled := False;
end;
end;
end; end;
function TfrViewFacturaCliente.GetController: IFacturasClienteController; function TfrViewFacturaCliente.GetController: IFacturasClienteController;
@ -152,10 +192,21 @@ begin
//Posicionamos la tabla en la forma de pago que tiene la factura ya que no lo hace el componente por si solo //Posicionamos la tabla en la forma de pago que tiene la factura ya que no lo hace el componente por si solo
FFormasPago.DataTable.Locate(fld_FacturasClienteID, FFactura.ID_FORMA_PAGO, []); FFormasPago.DataTable.Locate(fld_FacturasClienteID, FFactura.ID_FORMA_PAGO, []);
if (FFormasPago.Plazos.RecordCount = 0) then if ((not FFactura.FECHA_VENCIMIENTOIsNull) or (FFormasPago.Plazos.RecordCount > 0)) then
ledtFechaVencimiento.Enabled := True begin
if (edtFechaVencimiento.EditingValue <> null) then
ledtSituacion.Enabled := False;
if (FFormasPago.Plazos.RecordCount > 0) then
ledtFechaVencimiento.Enabled := False
else else
ledtFechaVencimiento.Enabled := False; ledtFechaVencimiento.Enabled := true;
end
else
begin
ledtFechaVencimiento.Enabled := True;
ledtSituacion.Enabled := True;
end;
//Solo se deshabilita al insertar, luego la referencia será modificable //Solo se deshabilita al insertar, luego la referencia será modificable
//eReferencia.Enabled := (FFactura.DataTable.State = dsInsert); //eReferencia.Enabled := (FFactura.DataTable.State = dsInsert);

10
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -905,12 +905,13 @@ begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignado: EsEliminable'); raise Exception.Create ('Factura no asignado: EsEliminable');
{
if (AFactura.SITUACION <> CTE_PENDIENTE) then if (AFactura.SITUACION <> CTE_PENDIENTE) then
begin begin
Result := False; Result := False;
AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser eliminada'; AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser eliminada';
end end;
{
else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then
begin begin
Result := False; Result := False;
@ -931,12 +932,13 @@ begin
if not Assigned(AFactura) then if not Assigned(AFactura) then
raise Exception.Create ('Factura no asignado: EsModificable'); raise Exception.Create ('Factura no asignado: EsModificable');
{
if (AFactura.SITUACION <> CTE_PENDIENTE) then if (AFactura.SITUACION <> CTE_PENDIENTE) then
begin begin
Result := False; Result := False;
AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser modificada'; AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser modificada';
end end;
{
else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then
begin begin
Result := False; Result := False;

93
Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm
View File

@ -7,12 +7,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Position = poScreenCenter Position = poScreenCenter
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 754 ExplicitWidth = 754
ExplicitHeight = 640 ExplicitHeight = 644
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 746 Width = 746
Caption = 'Nueva factura de proveedor' Caption = 'Nueva factura de proveedor'
ExplicitTop = 52
ExplicitWidth = 746 ExplicitWidth = 746
inherited Image1: TImage inherited Image1: TImage
Left = 719 Left = 719
@ -42,7 +43,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 746 Width = 746
ExplicitWidth = 746 ExplicitWidth = 746
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 330 ExplicitWidth = 370
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -80,21 +81,21 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 740 Width = 740
Height = 312 Height = 309
ActivePage = PagContratos
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitTop = 112
ExplicitWidth = 740 ExplicitWidth = 740
ExplicitHeight = 312 ExplicitHeight = 309
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 732 ExplicitWidth = 732
ExplicitHeight = 284 ExplicitHeight = 281
inline frViewFacturaProveedor1: TfrViewFacturaProveedor inline frViewFacturaProveedor1: TfrViewFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 732 Width = 732
Height = 284 Height = 281
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -105,15 +106,15 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 732 ExplicitWidth = 732
ExplicitHeight = 284 ExplicitHeight = 281
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 732 Width = 732
Height = 284 Height = 281
ExplicitWidth = 732 ExplicitWidth = 732
ExplicitHeight = 284 ExplicitHeight = 281
DesignSize = ( DesignSize = (
732 732
284) 281)
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 191 ExplicitWidth = 191
Width = 191 Width = 191
@ -127,8 +128,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 53 Width = 53
end end
inherited bFormasPago: TButton inherited bFormasPago: TButton
Left = 183 Left = 181
ExplicitLeft = 183 ExplicitLeft = 181
end end
inherited eReferenciaProveedor: TcxDBTextEdit inherited eReferenciaProveedor: TcxDBTextEdit
ExplicitWidth = 191 ExplicitWidth = 191
@ -151,9 +152,9 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Width = 191 Width = 191
end end
inherited frViewProveedorFactura1: TfrViewProveedorFactura inherited frViewProveedorFactura1: TfrViewProveedorFactura
Left = 343 Left = 341
Width = 350 Width = 350
ExplicitLeft = 343 ExplicitLeft = 341
ExplicitWidth = 350 ExplicitWidth = 350
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 350 Width = 350
@ -202,7 +203,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 671 ExplicitWidth = 671
inherited memObservaciones: TcxDBMemo inherited memObservaciones: TcxDBMemo
DataBinding.DataSource = frViewFacturaProveedor1.DADataSource DataBinding.DataSource = frViewFacturaProveedor1.DADataSource
ExplicitWidth = 671 ExplicitWidth = 669
ExplicitHeight = 20 ExplicitHeight = 20
Width = 671 Width = 671
end end
@ -217,7 +218,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 732 Width = 732
Height = 284 Height = 281
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -230,7 +231,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 732 ExplicitWidth = 732
ExplicitHeight = 284 ExplicitHeight = 281
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 732 Width = 732
ExplicitWidth = 732 ExplicitWidth = 732
@ -255,51 +256,54 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
ExplicitWidth = 57 ExplicitWidth = 57
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown
Left = 202 Left = 220
ExplicitLeft = 202 ExplicitLeft = 220
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 219 Left = 237
ExplicitLeft = 219 ExplicitLeft = 237
end end
inherited ToolButton6: TToolButton inherited ToolButton6: TToolButton
Left = 227 Left = 245
ExplicitLeft = 227 ExplicitLeft = 245
end end
inherited ToolButton7: TToolButton inherited ToolButton7: TToolButton
Left = 261 Left = 279
ExplicitLeft = 261 ExplicitLeft = 279
end end
inherited ToolButton8: TToolButton inherited ToolButton8: TToolButton
Left = 295 Left = 313
ExplicitLeft = 295 ExplicitLeft = 313
end end
inherited ToolButton12: TToolButton inherited ToolButton12: TToolButton
Left = 329 Left = 347
ExplicitLeft = 329 ExplicitLeft = 347
end end
inherited ToolButton9: TToolButton inherited ToolButton9: TToolButton
Left = 337 Left = 355
ExplicitLeft = 337 ExplicitLeft = 355
end end
inherited ToolButton10: TToolButton inherited ToolButton10: TToolButton
Left = 371 Left = 389
ExplicitLeft = 371 ExplicitLeft = 389
end end
inherited ToolButton11: TToolButton inherited ToolButton11: TToolButton
Left = 405 Left = 423
ExplicitLeft = 405 ExplicitLeft = 423
end end
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 732 Width = 732
Height = 212 Height = 209
ExplicitWidth = 732 ExplicitWidth = 732
ExplicitHeight = 212 ExplicitHeight = 209
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 732 Width = 732
ExplicitWidth = 732 ExplicitWidth = 732
inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 622
end
end end
end end
end end
@ -310,7 +314,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Left = 0 Left = 0
Top = 0 Top = 0
Width = 732 Width = 732
Height = 284 Height = 281
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -321,12 +325,12 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 732 ExplicitWidth = 732
ExplicitHeight = 284 ExplicitHeight = 281
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 732 Width = 732
Height = 259 Height = 256
ExplicitWidth = 732 ExplicitWidth = 732
ExplicitHeight = 259 ExplicitHeight = 256
end end
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 732 Width = 732
@ -408,8 +412,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
inherited Bevel3: TBevel inherited Bevel3: TBevel
Left = 398 Left = 398
Top = 30 Top = 30
Height = 122
ExplicitLeft = 398 ExplicitLeft = 398
ExplicitTop = 30 ExplicitTop = 30
ExplicitHeight = 122
end end
inherited Bevel4: TBevel inherited Bevel4: TBevel
Left = 510 Left = 510
@ -531,6 +537,8 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
Style.IsFontAssigned = True Style.IsFontAssigned = True
ExplicitLeft = 581 ExplicitLeft = 581
ExplicitTop = 104 ExplicitTop = 104
ExplicitWidth = 56
Width = 56
end end
inherited eImporteNeto: TcxDBCurrencyEdit inherited eImporteNeto: TcxDBCurrencyEdit
Top = 30 Top = 30
@ -622,6 +630,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
end end
inherited PnlComentario: TPanel [5] inherited PnlComentario: TPanel [5]
Width = 746 Width = 746
ExplicitTop = 79
ExplicitWidth = 746 ExplicitWidth = 746
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 736 Width = 736

1
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.dfm
View File

@ -77,7 +77,6 @@ inherited frViewFacturaProveedor: TfrViewFacturaProveedor
Properties.ListOptions.ShowHeader = False Properties.ListOptions.ShowHeader = False
Properties.ListOptions.SyncMode = True Properties.ListOptions.SyncMode = True
Properties.ListSource = dsFormaPago Properties.ListSource = dsFormaPago
Properties.OnEditValueChanged = cbFormaPagoPropertiesEditValueChanged
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.HotTrack = False Style.HotTrack = False

16
Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
View File

@ -91,7 +91,7 @@ type
implementation implementation
uses uses
uDataModuleContactos, schFacturasProveedorClient_Intf, uBizDireccionesContacto, DateUtils, uDataModuleContactos, schFacturasProveedorClient_Intf, uBizDireccionesContacto,
uProveedoresController; uProveedoresController;
{$R *.dfm} {$R *.dfm}
@ -139,13 +139,23 @@ begin
end; end;
procedure TfrViewFacturaProveedor.cbFormaPagoPropertiesEditValueChanged(Sender: TObject); procedure TfrViewFacturaProveedor.cbFormaPagoPropertiesEditValueChanged(Sender: TObject);
begin
if Assigned(Factura) and (Factura.DataTable.State in dsEditModes) then
begin begin
if Assigned(FFormasPago) then if Assigned(FFormasPago) then
if (FFormasPago.Plazos.RecordCount = 0) then if (FFormasPago.Plazos.RecordCount = 0) then
begin
edtFechaVencimiento.EditValue := DateOf(Now);
ledtFechaVencimiento.Enabled := True ledtFechaVencimiento.Enabled := True
end
else else
begin
Application.MessageBox('Ha elegido una forma de pago con plazos asignados, los vencimientos se regiran por dichos plazos', 'Atención', MB_OK);
edtFechaVencimiento.EditValue := Null;
ledtFechaVencimiento.Enabled := False; ledtFechaVencimiento.Enabled := False;
end; end;
end;
end;
procedure TfrViewFacturaProveedor.CustomViewCreate(Sender: TObject); procedure TfrViewFacturaProveedor.CustomViewCreate(Sender: TObject);
begin begin
@ -154,14 +164,16 @@ begin
FTiposFacturaProveedor := Nil; FTiposFacturaProveedor := Nil;
FFormasPagoController := TFormasPagoController.Create; FFormasPagoController := TFormasPagoController.Create;
frViewProveedorFactura1.MsgElegirProveedor := 'Elija el proveedor al que se le realizará la factura.'; frViewProveedorFactura1.MsgElegirProveedor := 'Elija el proveedor al que se le realizará la factura.';
cbFormaPago.Properties.OnEditValueChanged := cbFormaPagoPropertiesEditValueChanged;
end; end;
procedure TfrViewFacturaProveedor.CustomViewDestroy(Sender: TObject); procedure TfrViewFacturaProveedor.CustomViewDestroy(Sender: TObject);
begin begin
inherited; cbFormaPago.Properties.OnEditValueChanged := Nil;
FFormasPago := Nil; FFormasPago := Nil;
FTiposFacturaProveedor := Nil; FTiposFacturaProveedor := Nil;
FFormasPagoController := NIL; FFormasPagoController := NIL;
inherited;
end; end;
procedure TfrViewFacturaProveedor.frViewProveedorFacturaButton1Click(Sender: TObject); procedure TfrViewFacturaProveedor.frViewProveedorFacturaButton1Click(Sender: TObject);

3
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>
@ -29,7 +29,6 @@
<Borland.ProjectType/> <Borland.ProjectType/>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">8</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 20 de mayo de 2013 10:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">8</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.5.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 20 de mayo de 2013 10:48</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>