AcotaCocinas/AlonsoYSal_FactuGES
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios menores de uso en tienda

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@44 9a1d36f3-7752-2d40-8ccb-50eb49674c68
This commit is contained in:
roberto 2019-04-29 08:29:28 +00:00
parent f990142696
commit f36e5794ec
13 changed files with 2447 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
BD/BASEDATOS.FDB
View File

Binary file not shown.

6
Cliente/FactuGES.dof
View File

@ -114,7 +114,7 @@ IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
MinorVer=6
Release=2
Release=3
Build=0
Debug=0
PreRelease=0
@ -126,13 +126,13 @@ CodePage=1252
[Version Info Keys]
CompanyName=Rodax Software S.L.
FileDescription=
FileVersion=1.6.2.0
FileVersion=1.6.3.0
InternalName=FactuGES
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=FactuGES
ProductVersion=1.6.2.0
ProductVersion=1.6.3.0
Comments=
[Excluded Packages]
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.

BIN
Cliente/FactuGES.res
View File

Binary file not shown.

2
FactuGES.inc
View File

@ -1 +1 @@
{DEFINE TIENDA}
{$DEFINE TIENDA}

3
Modulos/Albaranes de cliente/Cliente/uEditorAlbaranCliente.dfm
View File

@ -159,6 +159,9 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
end
end
inherited EditorActionList: TActionList [5]
inherited actEliminar: TAction
Enabled = False
end
end
inherited SmallImages: TPngImageList [6]
end

6
Modulos/Albaranes de cliente/Cliente/uEditorAlbaranCliente.pas
View File

@ -30,6 +30,7 @@ type
procedure FormShow(Sender: TObject); override;
procedure frViewDatosYSeleccionContacto1edtlNombrePropertiesChange(
Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
private
FAlbaranCliente: IBizAlbaranesCliente;
FViewAlbaranCliente: IViewAlbaranCliente;
@ -158,6 +159,11 @@ begin
Caption := JvNavPanelHeader.Caption;
end;
procedure TfEditorAlbaranCliente.actEliminarUpdate(Sender: TObject);
begin
// inherited;
end;
initialization
RegisterEditor(IBizAlbaranesCliente, ShowEditorAlbaranCliente, etItem);

69
Modulos/Albaranes de cliente/Cliente/uEditorAlbaranesCliente.dfm
View File

@ -98,35 +98,78 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
end
end
inherited EditorActionList: TActionList [4]
State = asSuspended
inherited actNuevo: TAction
Enabled = False
ImageIndex = 22
OnExecute = actNuevoExecute
end
inherited actGuardarCerrar: TAction
Enabled = True
inherited actModificar: TAction
Enabled = False
end
inherited actGuardar: TAction
Enabled = True
inherited actEliminar: TAction
Enabled = False
end
inherited actCerrar: TAction
Enabled = True
inherited actConfPagina: TAction
Enabled = False
end
inherited actAnterior: TAction
Enabled = True
inherited actPrevisualizar: TAction
Enabled = False
end
inherited actSiguiente: TAction
Enabled = True
inherited actPrevisualizarDocumento: TAction
Enabled = False
end
inherited actCancelarCambios: TAction
Enabled = True
inherited actImprimir: TAction
Enabled = False
end
inherited actDeshacer: TEditUndo
Enabled = False
end
inherited actCortar: TEditCut
Enabled = False
end
inherited actImprimirDocumento: TAction
Enabled = False
end
inherited actCopiar: TEditCopy
Enabled = False
end
inherited actPegar: TEditPaste
Enabled = False
end
inherited actSeleccionarTodo: TEditSelectAll
Enabled = False
end
inherited actLimpiar: TEditDelete
Enabled = False
end
inherited actRefrescar: TAction
Enabled = False
end
inherited actAcercaDe: TAction
Enabled = False
end
inherited actBuscar: TAction
Enabled = False
end
inherited actQuitarFiltro: TAction
Enabled = False
end
object actPagar: TAction [24]
Category = 'Archivo'
Caption = 'Generar cobro'
Enabled = False
ImageIndex = 23
OnExecute = actPagarExecute
end
inherited actDuplicar: TAction
Enabled = False
end
inherited actAnchoAuto: TAction
Enabled = False
end
inherited actFiltrar: TAction
Enabled = False
end
end
inherited SmallImages: TPngImageList [5]
PngImages = <

6
Modulos/Albaranes de cliente/Cliente/uEditorAlbaranesCliente.pas
View File

@ -36,6 +36,7 @@ type
procedure edtFechaFiltro1PropertiesEditValueChanged(Sender: TObject);
procedure OnListaAnosChange(Sender: TObject; const Text: string);
procedure FormShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
private
FAlbaranesCliente: IBizAlbaranesCliente;
@ -237,6 +238,11 @@ begin
aAux.SelectedRows.Clear;
end;
procedure TfEditorAlbaranesCliente.actEliminarUpdate(Sender: TObject);
begin
// inherited;
end;
initialization
RegisterEditor(IBizAlbaranesCliente, ShowEditorAlbaranesCliente, etItems);
RegisterEditor(IBizAlbaranesCliente, ShowSelectEditorAlbaranesCliente, etSelectItems);

3
Modulos/Albaranes de cliente/Reglas/uBizAlbaranesCliente.pas
View File

@ -134,6 +134,9 @@ var
procedure ValidarAlbaranCliente (const AAlbaranCliente : IBizAlbaranesCliente);
begin
//No se podrán modificar los albaranes ya que van a desaparecer
raise Exception.Create('No puede modificar albaranes, solo podrá consultarlos');
if (FloatToStr(AAlbaranCliente.FECHAALBARAN) = '0') then
raise Exception.Create('Debe indicar la fecha de este albarán');

56
Output/Servidor/Informes/InfIncidencia.fr3 Normal file
View File

File diff suppressed because one or more lines are too long

6
Servidor/FactuGES_Server.dof
View File

@ -114,7 +114,7 @@ IncludeVerInfo=1
AutoIncBuild=0
MajorVer=1
MinorVer=6
Release=2
Release=3
Build=0
Debug=0
PreRelease=0
@ -126,13 +126,13 @@ CodePage=1252
[Version Info Keys]
CompanyName=Rodax Software S.L.
FileDescription=
FileVersion=1.6.2.0
FileVersion=1.6.3.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=FactuGES Server
ProductVersion=1.6.2.0
ProductVersion=1.6.3.0
Comments=
[Excluded Packages]
C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.

2310
Servidor/FactuGES_Server.drc
View File

File diff suppressed because it is too large Load Diff

BIN
Servidor/FactuGES_Server.res
View File

Binary file not shown.