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

Version 5.5.5

Browse Source
This commit is contained in:
Roberto 2026-05-12 18:27:43 +02:00
parent 2b006b6809
commit a8baea8bf4
10 changed files with 56 additions and 30 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.

3
Source/Cliente/FactuGES.dproj
View File

@ -52,8 +52,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType> <Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">5</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">4</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">5.5.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">5.5.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">5</VersionInfo><VersionInfo Name="MinorVer">5</VersionInfo><VersionInfo Name="Release">6</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">5.5.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">5.5.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></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.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

BIN
Source/Cliente/FactuGES.res
View File

Binary file not shown.

BIN
Source/GUIBase/GUIBase.res
View File

Binary file not shown.

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

@ -874,7 +874,9 @@ begin
FECHA_FACTURA := DateOf(Now); FECHA_FACTURA := DateOf(Now);
ID_COMISION_LIQUIDADA := 0; ID_COMISION_LIQUIDADA := 0;
FAC_PROV_GRADENIsNull := True; FAC_PROV_GRADENIsNull := True;
VERIFACTU := 0;
{$IFDEF CONTABILIDAD} {$IFDEF CONTABILIDAD}
ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID; ID_EJERCICIO := AppFactuGES.EjercicioActivo.ID;
ESTADO_EJERCICIO := AppFactuGES.EjercicioActivo.ESTADO; ESTADO_EJERCICIO := AppFactuGES.EjercicioActivo.ESTADO;

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

@ -1,17 +1,17 @@
inherited fEditorFacturasCliente: TfEditorFacturasCliente inherited fEditorFacturasCliente: TfEditorFacturasCliente
Caption = 'Lista de facturas de cliente' Caption = 'Lista de facturas de cliente'
ClientHeight = 666 ClientHeight = 666
ClientWidth = 919 ClientWidth = 1288
ExplicitWidth = 935 ExplicitWidth = 1304
ExplicitHeight = 704 ExplicitHeight = 704
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 919 Width = 1288
Caption = 'Lista de facturas de cliente' Caption = 'Lista de facturas de cliente'
ExplicitWidth = 919 ExplicitWidth = 919
inherited Image1: TImage inherited Image1: TImage
Left = 892 Left = 1261
Picture.Data = { Picture.Data = {
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
0000180806000000E0773DF80000000970485973000017120000171201679FD2 0000180806000000E0773DF80000000970485973000017120000171201679FD2
@ -35,7 +35,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
end end
end end
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 919 Width = 1288
ExplicitWidth = 919 ExplicitWidth = 919
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 780 ExplicitWidth = 780
@ -77,14 +77,14 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
end end
end end
inherited tbxMenu: TTBXToolbar inherited tbxMenu: TTBXToolbar
ExplicitWidth = 919 ExplicitWidth = 1288
end end
inherited TBXTMain2: TTBXToolbar inherited TBXTMain2: TTBXToolbar
Left = 362 Left = 385
DockPos = 385 DockPos = 385
Visible = True Visible = True
ExplicitLeft = 362 ExplicitLeft = 385
ExplicitWidth = 557 ExplicitWidth = 720
object TBXItem41: TTBXItem object TBXItem41: TTBXItem
Action = actAsignarTipoOperacion Action = actAsignarTipoOperacion
DisplayMode = nbdmImageAndText DisplayMode = nbdmImageAndText
@ -117,14 +117,14 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 647 Top = 647
Width = 919 Width = 1288
ExplicitTop = 647 ExplicitTop = 647
ExplicitWidth = 919 ExplicitWidth = 919
end end
inline frViewFacturasCliente1: TfrViewFacturasCliente [3] inline frViewFacturasCliente1: TfrViewFacturasCliente [3]
Left = 0 Left = 0
Top = 105 Top = 105
Width = 919 Width = 1288
Height = 542 Height = 542
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -139,7 +139,7 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
ExplicitWidth = 919 ExplicitWidth = 919
ExplicitHeight = 542 ExplicitHeight = 542
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 919 Width = 1288
Height = 414 Height = 414
ExplicitWidth = 919 ExplicitWidth = 919
ExplicitHeight = 414 ExplicitHeight = 414
@ -212,12 +212,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
end end
end end
inherited frViewFiltroBase1: TfrViewFiltroBase inherited frViewFiltroBase1: TfrViewFiltroBase
Width = 919 Width = 1288
ExplicitWidth = 919 ExplicitWidth = 919
inherited TBXDockablePanel1: TTBXDockablePanel inherited TBXDockablePanel1: TTBXDockablePanel
ExplicitWidth = 919 ExplicitWidth = 919
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 919 Width = 1288
ExplicitWidth = 919 ExplicitWidth = 919
inherited txtFiltroTodo: TcxTextEdit inherited txtFiltroTodo: TcxTextEdit
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -236,31 +236,31 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
Width = 144 Width = 144
end end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 426 Left = 590
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 426 ExplicitLeft = 590
ExplicitWidth = 263 ExplicitWidth = 263
Width = 263 Width = 263
end end
inherited txtFiltroTodo2: TcxTextEdit inherited txtFiltroTodo2: TcxTextEdit
Left = 675 Left = 943
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 675 ExplicitLeft = 943
ExplicitWidth = 223 ExplicitWidth = 223
Width = 223 Width = 223
end end
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 919 Width = 1288
ExplicitWidth = 919 ExplicitWidth = 919
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 909 Width = 1278
ExplicitWidth = 909 ExplicitWidth = 909
end end
end end
@ -271,10 +271,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
ExplicitTop = 516 ExplicitTop = 516
ExplicitWidth = 919 ExplicitWidth = 919
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 919 Width = 1288
ExplicitWidth = 919 ExplicitWidth = 919
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
Width = 909 Width = 1278
ExplicitWidth = 909 ExplicitWidth = 909
end end
end end
@ -1976,15 +1976,30 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
inherited N2: TMenuItem inherited N2: TMenuItem
Visible = False Visible = False
end end
object N4: TMenuItem [8] object GenerarPDF1: TMenuItem [8]
Action = actGenerarPDF
end
object N4: TMenuItem [9]
Caption = '-' Caption = '-'
end end
object Cambiarlasituacin1: TMenuItem [9] object Cambiarlasituacin1: TMenuItem [10]
Caption = 'Cambiar la situaci'#243'n' Caption = 'Cambiar la situaci'#243'n'
Hint = Hint =
'Cambiar la situaci'#243'n de la factura seleccionada (Pendiente/Pagad' + 'Cambiar la situaci'#243'n de la factura seleccionada (Pendiente/Pagad' +
'a)' 'a)'
end end
object AsignarTipoOperacin1: TMenuItem [11]
Action = actAsignarTipoOperacion
end
object AsignarContrato1: TMenuItem [12]
Action = actAsignarContrato
end
object GenerarfacturaproveedorenGraden1: TMenuItem [13]
Action = ActGenerarFacturaGraden
end
object MandarVerifactu1: TMenuItem [14]
Action = actMandarVerifactu
end
end end
object JsNuevaFacturaDialog: TJSDialog object JsNuevaFacturaDialog: TJSDialog
Content.Strings = ( Content.Strings = (
@ -4165,8 +4180,8 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
0007C0000007C000000700000007000000070000000700000007C000000FC000 0007C0000007C000000700000007000000070000000700000007C000000FC000
001F8000003F800000FFF8FFFFFF} 001F8000003F800000FFF8FFFFFF}
Width = 450 Width = 450
Left = 408 Left = 368
Top = 80 Top = 120
end end
object JsNuevaProformaDialog: TJSDialog object JsNuevaProformaDialog: TJSDialog
Content.Strings = ( Content.Strings = (

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

@ -53,6 +53,11 @@ type
actMandarVerifactu: TAction; actMandarVerifactu: TAction;
TBXItem46: TTBXItem; TBXItem46: TTBXItem;
TBSeparatorItem2: TTBSeparatorItem; TBSeparatorItem2: TTBSeparatorItem;
GenerarPDF1: TMenuItem;
AsignarContrato1: TMenuItem;
AsignarTipoOperacin1: TMenuItem;
GenerarfacturaproveedorenGraden1: TMenuItem;
MandarVerifactu1: TMenuItem;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
procedure actNuevaFacturaExecute(Sender: TObject); procedure actNuevaFacturaExecute(Sender: TObject);

5
Source/Modulos/Relaciones/Contratos de cliente - Albaranes de cliente/uGenerarAlbaranesCliUtils.pas
View File

@ -53,7 +53,10 @@ begin
AAlbaran.CODIGO_POSTAL := AContrato.CODIGO_POSTAL_ENVIO; AAlbaran.CODIGO_POSTAL := AContrato.CODIGO_POSTAL_ENVIO;
AAlbaran.POBLACION := AContrato.POBLACION_ENVIO; AAlbaran.POBLACION := AContrato.POBLACION_ENVIO;
AAlbaran.PROVINCIA := AContrato.PROVINCIA_ENVIO; AAlbaran.PROVINCIA := AContrato.PROVINCIA_ENVIO;
AAlbaran.PAIS := AContrato.PAIS_ENVIO; AAlbaran.PAIS := AContrato.PAIS;
AAlbaran.IDIOMA_ISO := AContrato.IDIOMA_ISO;
AAlbaran.IDIOMA := AContrato.IDIOMA;
AAlbaran.PAIS_ENVIO := AContrato.PAIS_ENVIO;
AAlbaran.PERSONA_CONTACTO := AContrato.PERS_CONTACTO_ENVIO; AAlbaran.PERSONA_CONTACTO := AContrato.PERS_CONTACTO_ENVIO;
AAlbaran.TELEFONO := AContrato.TLFS_ENVIO; AAlbaran.TELEFONO := AContrato.TLFS_ENVIO;
AAlbaran.NOTAS_ENVIO := AContrato.NOTAS_ENVIO; AAlbaran.NOTAS_ENVIO := AContrato.NOTAS_ENVIO;

4
Source/Modulos/Relaciones/Contratos de cliente - Facturas de cliente/uGenerarFacturasCliUtils.pas
View File

@ -63,7 +63,9 @@ begin
AFactura.POBLACION := AContrato.POBLACION; AFactura.POBLACION := AContrato.POBLACION;
AFactura.PROVINCIA := AContrato.PROVINCIA; AFactura.PROVINCIA := AContrato.PROVINCIA;
AFactura.CODIGO_POSTAL := AContrato.CODIGO_POSTAL; AFactura.CODIGO_POSTAL := AContrato.CODIGO_POSTAL;
AFactura.PAIS := AContrato.PAIS;
AFactura.IDIOMA_ISO := AContrato.IDIOMA_ISO;
AFactura.IDIOMA := AContrato.IDIOMA;
// AFactura.PERSONA_CONTACTO := AContrato.PERSONA_CONTACTO; // AFactura.PERSONA_CONTACTO := AContrato.PERSONA_CONTACTO;
// AFactura.DataTable.FieldByName(fld_FacturasClientePLAZO_ENTREGA).AsVariant := AContrato.DataTable.FieldByName(fld_ContratosClientePLAZO_ENTREGA).AsVariant; // AFactura.DataTable.FieldByName(fld_FacturasClientePLAZO_ENTREGA).AsVariant := AContrato.DataTable.FieldByName(fld_ContratosClientePLAZO_ENTREGA).AsVariant;

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.