AcotaCocinas/AlonsoYSal_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Poder ver en lista de presupuestos y facturas forma de pago para poder filtrat, quitar recargo de equivalencia en presupuesto y factura.

Browse Source
This commit is contained in:
roberto 2025-03-14 19:07:53 +01:00
parent 76cdc03b1f
commit 6515053761
18 changed files with 245 additions and 122 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.

2
Source/Cliente/FactuGES.dproj
View File

@ -52,7 +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">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">2</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.3.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.2.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">2</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">3</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.3.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES v2</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.3.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.

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 = 647
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 = 111
Width = 644 Width = 644
Height = 328 Height = 326
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 = 78
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

86
Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm
View File

@ -5,14 +5,15 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ClientHeight = 798 ClientHeight = 798
ClientWidth = 872 ClientWidth = 872
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 880 ExplicitTop = -113
ExplicitHeight = 832 ExplicitWidth = 888
ExplicitHeight = 836
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 872 Width = 872
Caption = 'Nuevo presupuesto de cliente' Caption = 'Nuevo presupuesto de cliente'
ExplicitTop = 49 ExplicitTop = 51
ExplicitWidth = 872 ExplicitWidth = 872
inherited Image1: TImage inherited Image1: TImage
Left = 845 Left = 845
@ -130,7 +131,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 872 Width = 872
ExplicitWidth = 872 ExplicitWidth = 872
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 518
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -174,32 +175,33 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 866 Width = 866
Height = 473 Height = 471
TabOrder = 1 TabOrder = 1
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitTop = 111
ExplicitWidth = 866 ExplicitWidth = 866
ExplicitHeight = 473 ExplicitHeight = 471
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 445 ExplicitHeight = 443
inline frViewContratoCliente1: TfrViewContratoCliente inline frViewContratoCliente1: TfrViewContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 858
Height = 445 Height = 443
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 445 ExplicitHeight = 443
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 858 Width = 858
Height = 445 Height = 443
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 445 ExplicitHeight = 443
inherited edtFechaContrato: TcxDBDateEdit inherited edtFechaContrato: TcxDBDateEdit
Left = 155 Left = 155
Top = 84 Top = 84
@ -271,8 +273,8 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Width = 396 Width = 396
end end
inherited memPlazoEntrega: TcxDBMemo inherited memPlazoEntrega: TcxDBMemo
Top = 378 Top = 377
ExplicitTop = 378 ExplicitTop = 377
ExplicitWidth = 396 ExplicitWidth = 396
ExplicitHeight = 100 ExplicitHeight = 100
Height = 100 Height = 100
@ -454,7 +456,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 858
Height = 445 Height = 443
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -467,7 +469,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 445 ExplicitHeight = 443
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 858 Width = 858
ExplicitWidth = 858 ExplicitWidth = 858
@ -481,19 +483,19 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitLeft = 334 ExplicitLeft = 334
ExplicitTop = 0 ExplicitTop = 0
end end
inherited FontName: TJvFontComboBox inherited FontSize: TEdit [5]
Left = 0 Left = 0
ExplicitLeft = 0
end
inherited FontSize: TEdit
Left = 145
Width = 110 Width = 110
ExplicitLeft = 145 ExplicitLeft = 0
ExplicitWidth = 110 ExplicitWidth = 110
end end
inherited UpDown1: TUpDown inherited UpDown1: TUpDown [6]
Left = 255 Left = 110
ExplicitLeft = 255 ExplicitLeft = 110
end
inherited FontName: TJvFontComboBox [7]
Left = 127
ExplicitLeft = 127
end end
inherited ToolButton13: TToolButton inherited ToolButton13: TToolButton
Left = 272 Left = 272
@ -530,15 +532,15 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Width = 858 Width = 858
Height = 373 Height = 371
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 373 ExplicitHeight = 371
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Width = 858 Width = 858
ExplicitWidth = 858 ExplicitWidth = 858
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 665 ExplicitWidth = 718
end end
end end
inherited cxLookupComboBox1: TcxLookupComboBox inherited cxLookupComboBox1: TcxLookupComboBox
@ -561,7 +563,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 858
Height = 445 Height = 443
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
@ -608,7 +610,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 858
Height = 445 Height = 443
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
@ -653,12 +655,12 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ImageIndex = 2 ImageIndex = 2
DesignSize = ( DesignSize = (
858 858
445) 443)
inline frViewIncidenciasCli: TfrViewIncidencias inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 858
Height = 445 Height = 443
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -669,7 +671,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 445 ExplicitHeight = 443
inherited pnlSup: TPanel inherited pnlSup: TPanel
Width = 858 Width = 858
ExplicitWidth = 858 ExplicitWidth = 858
@ -681,13 +683,13 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
inherited GroupBox1: TGroupBox inherited GroupBox1: TGroupBox
Width = 858 Width = 858
Height = 417 Height = 415
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 417 ExplicitHeight = 415
inherited eIncidencias: TcxDBMemo inherited eIncidencias: TcxDBMemo
ExplicitWidth = 854 ExplicitWidth = 854
ExplicitHeight = 400 ExplicitHeight = 398
Height = 400 Height = 398
Width = 854 Width = 854
end end
end end
@ -726,7 +728,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 858 Width = 858
Height = 445 Height = 443
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -737,14 +739,14 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 445 ExplicitHeight = 443
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock
Width = 858 Width = 858
ExplicitWidth = 858 ExplicitWidth = 858
end end
inherited ListView1: TListView inherited ListView1: TListView
Width = 858 Width = 858
Height = 422 Height = 418
ExplicitWidth = 858 ExplicitWidth = 858
ExplicitHeight = 422 ExplicitHeight = 422
end end
@ -757,6 +759,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
end end
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 872 Width = 872
ExplicitTop = 78
ExplicitWidth = 872 ExplicitWidth = 872
inherited lbComentario: TLabel inherited lbComentario: TLabel
Width = 862 Width = 862
@ -863,6 +866,7 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
ExplicitLeft = 203 ExplicitLeft = 203
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Enabled = False
ExplicitWidth = 219 ExplicitWidth = 219
Width = 219 Width = 219
end end
@ -886,6 +890,10 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
Visible = False Visible = False
end end
end end
inherited dxLayoutControl1Item16: TdxLayoutItem
Enabled = False
Visible = False
end
end end
end end
end end

4
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm
View File

@ -213,6 +213,10 @@ inherited frViewContratosCliente: TfrViewContratosCliente
Caption = 'Factura/s asociada/s' Caption = 'Factura/s asociada/s'
DataBinding.FieldName = 'FACTURA_ASOCIADA' DataBinding.FieldName = 'FACTURA_ASOCIADA'
end end
object cxGridViewFORMA_PAGO: TcxGridDBColumn
Caption = 'Forma pago'
DataBinding.FieldName = 'FORMA_PAGO'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todos' Caption = 'Todos'

1
Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas
View File

@ -67,6 +67,7 @@ type
cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn; cxGridViewIMPORTE_DESCUENTO: TcxGridDBColumn;
cxGridViewIMPORTE_NETO: TcxGridDBColumn; cxGridViewIMPORTE_NETO: TcxGridDBColumn;
cxGridViewFECHA_ULT_PRESENTACION_CLIENTE: TcxGridDBColumn; cxGridViewFECHA_ULT_PRESENTACION_CLIENTE: TcxGridDBColumn;
cxGridViewFORMA_PAGO: TcxGridDBColumn;
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
TcxGridLevel); TcxGridLevel);
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;

5
Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm
View File

@ -230,6 +230,11 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
DisplayLabel = 'FacturasCliente_ID_FORMA_PAGO' DisplayLabel = 'FacturasCliente_ID_FORMA_PAGO'
DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO' DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO'
end end
item
Name = 'REF_FORMA_PAGO'
DataType = datString
Size = 255
end
item item
Name = 'RECARGO_EQUIVALENCIA' Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt DataType = datSmallInt

89
Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
View File

@ -9,9 +9,9 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturas = '{01C99D6F-78B2-4E5F-B7F8-D9956D0AE8D4}'; RID_ListaAnosFacturas = '{C20CF57F-5920-416F-9249-367A4691A064}';
RID_FacturasCliente = '{78230E46-9D32-4F95-BED8-F15B9AE4D5F8}'; RID_FacturasCliente = '{C27622E4-449D-4D51-A938-F95AFFB07A9F}';
RID_FacturasCliente_Detalles = '{01FA3B03-4B5B-4FB4-8724-A89BF09A75EF}'; RID_FacturasCliente_Detalles = '{0DB3EB96-08FF-4251-A5E1-82746147F81E}';
{ Data table names } { Data table names }
nme_ListaAnosFacturas = 'ListaAnosFacturas'; nme_ListaAnosFacturas = 'ListaAnosFacturas';
@ -58,6 +58,7 @@ const
fld_FacturasClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION'; fld_FacturasClienteFECHA_MODIFICACION = 'FECHA_MODIFICACION';
fld_FacturasClienteUSUARIO = 'USUARIO'; fld_FacturasClienteUSUARIO = 'USUARIO';
fld_FacturasClienteID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_FacturasClienteID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_FacturasClienteREF_FORMA_PAGO = 'REF_FORMA_PAGO';
fld_FacturasClienteRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA'; fld_FacturasClienteRECARGO_EQUIVALENCIA = 'RECARGO_EQUIVALENCIA';
fld_FacturasClienteID_TIPO_IVA = 'ID_TIPO_IVA'; fld_FacturasClienteID_TIPO_IVA = 'ID_TIPO_IVA';
fld_FacturasClienteIMPORTE_NETO = 'IMPORTE_NETO'; fld_FacturasClienteIMPORTE_NETO = 'IMPORTE_NETO';
@ -114,27 +115,28 @@ const
idx_FacturasClienteFECHA_MODIFICACION = 30; idx_FacturasClienteFECHA_MODIFICACION = 30;
idx_FacturasClienteUSUARIO = 31; idx_FacturasClienteUSUARIO = 31;
idx_FacturasClienteID_FORMA_PAGO = 32; idx_FacturasClienteID_FORMA_PAGO = 32;
idx_FacturasClienteRECARGO_EQUIVALENCIA = 33; idx_FacturasClienteREF_FORMA_PAGO = 33;
idx_FacturasClienteID_TIPO_IVA = 34; idx_FacturasClienteRECARGO_EQUIVALENCIA = 34;
idx_FacturasClienteIMPORTE_NETO = 35; idx_FacturasClienteID_TIPO_IVA = 35;
idx_FacturasClienteIMPORTE_PORTE = 36; idx_FacturasClienteIMPORTE_NETO = 36;
idx_FacturasClienteID_AGENTE = 37; idx_FacturasClienteIMPORTE_PORTE = 37;
idx_FacturasClienteREFERENCIA_COMISION = 38; idx_FacturasClienteID_AGENTE = 38;
idx_FacturasClienteIGNORAR_CONTABILIDAD = 39; idx_FacturasClienteREFERENCIA_COMISION = 39;
idx_FacturasClienteID_TIENDA = 40; idx_FacturasClienteIGNORAR_CONTABILIDAD = 40;
idx_FacturasClienteTIENDA = 41; idx_FacturasClienteID_TIENDA = 41;
idx_FacturasClienteID_SUBCUENTA = 42; idx_FacturasClienteTIENDA = 42;
idx_FacturasClienteSUBCUENTA = 43; idx_FacturasClienteID_SUBCUENTA = 43;
idx_FacturasClienteID_EJERCICIO = 44; idx_FacturasClienteSUBCUENTA = 44;
idx_FacturasClienteESTADO_EJERCICIO = 45; idx_FacturasClienteID_EJERCICIO = 45;
idx_FacturasClienteASIENTO_PUNTEADO = 46; idx_FacturasClienteESTADO_EJERCICIO = 46;
idx_FacturasClienteID_CONTRATO = 47; idx_FacturasClienteASIENTO_PUNTEADO = 47;
idx_FacturasClienteREF_CONTRATO = 48; idx_FacturasClienteID_CONTRATO = 48;
idx_FacturasClienteVENDEDOR = 49; idx_FacturasClienteREF_CONTRATO = 49;
idx_FacturasClienteSIN_COMISION = 50; idx_FacturasClienteVENDEDOR = 50;
idx_FacturasClienteTIPO_FACTURA = 51; idx_FacturasClienteSIN_COMISION = 51;
idx_FacturasClienteLISTA_NOMBRES = 52; idx_FacturasClienteTIPO_FACTURA = 52;
idx_FacturasClientePROCEDENCIA_CLIENTE = 53; idx_FacturasClienteLISTA_NOMBRES = 53;
idx_FacturasClientePROCEDENCIA_CLIENTE = 54;
{ FacturasCliente_Detalles fields } { FacturasCliente_Detalles fields }
fld_FacturasCliente_DetallesID = 'ID'; fld_FacturasCliente_DetallesID = 'ID';
@ -171,7 +173,7 @@ const
type type
{ IListaAnosFacturas } { IListaAnosFacturas }
IListaAnosFacturas = interface(IDAStronglyTypedDataTable) IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
['{80613B96-203D-4FEF-9621-DA0D5B02C3CD}'] ['{0DFD9CF9-9ACC-4CAB-AAA5-EA74D23016DE}']
{ Property getters and setters } { Property getters and setters }
function GetANOValue: String; function GetANOValue: String;
procedure SetANOValue(const aValue: String); procedure SetANOValue(const aValue: String);
@ -206,7 +208,7 @@ type
{ IFacturasCliente } { IFacturasCliente }
IFacturasCliente = interface(IDAStronglyTypedDataTable) IFacturasCliente = interface(IDAStronglyTypedDataTable)
['{E065EEAD-79C9-48AA-8A3E-A7DD626FC162}'] ['{08554CA8-CD1B-493A-BEC1-5945282D8408}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -339,6 +341,10 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); procedure SetID_FORMA_PAGOValue(const aValue: Integer);
function GetID_FORMA_PAGOIsNull: Boolean; function GetID_FORMA_PAGOIsNull: Boolean;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean);
function GetREF_FORMA_PAGOValue: String;
procedure SetREF_FORMA_PAGOValue(const aValue: String);
function GetREF_FORMA_PAGOIsNull: Boolean;
procedure SetREF_FORMA_PAGOIsNull(const aValue: Boolean);
function GetRECARGO_EQUIVALENCIAValue: SmallInt; function GetRECARGO_EQUIVALENCIAValue: SmallInt;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt);
function GetRECARGO_EQUIVALENCIAIsNull: Boolean; function GetRECARGO_EQUIVALENCIAIsNull: Boolean;
@ -492,6 +498,8 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property REF_FORMA_PAGO: String read GetREF_FORMA_PAGOValue write SetREF_FORMA_PAGOValue;
property REF_FORMA_PAGOIsNull: Boolean read GetREF_FORMA_PAGOIsNull write SetREF_FORMA_PAGOIsNull;
property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
@ -674,6 +682,10 @@ type
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
function GetID_FORMA_PAGOIsNull: Boolean; virtual; function GetID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetREF_FORMA_PAGOValue: String; virtual;
procedure SetREF_FORMA_PAGOValue(const aValue: String); virtual;
function GetREF_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetREF_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual; function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual; procedure SetRECARGO_EQUIVALENCIAValue(const aValue: SmallInt); virtual;
function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
@ -826,6 +838,8 @@ type
property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull; property USUARIOIsNull: Boolean read GetUSUARIOIsNull write SetUSUARIOIsNull;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property REF_FORMA_PAGO: String read GetREF_FORMA_PAGOValue write SetREF_FORMA_PAGOValue;
property REF_FORMA_PAGOIsNull: Boolean read GetREF_FORMA_PAGOIsNull write SetREF_FORMA_PAGOIsNull;
property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIA: SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; property RECARGO_EQUIVALENCIAIsNull: Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
@ -877,7 +891,7 @@ type
{ IFacturasCliente_Detalles } { IFacturasCliente_Detalles }
IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable) IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
['{22259244-690D-4493-A734-5B3D8C2ECB2D}'] ['{14D5D2ED-02F4-44DC-899A-29119D36FD90}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1814,6 +1828,27 @@ begin
DataTable.Fields[idx_FacturasClienteID_FORMA_PAGO].AsVariant := Null; DataTable.Fields[idx_FacturasClienteID_FORMA_PAGO].AsVariant := Null;
end; end;
function TFacturasClienteDataTableRules.GetREF_FORMA_PAGOValue: String;
begin
result := DataTable.Fields[idx_FacturasClienteREF_FORMA_PAGO].AsString;
end;
procedure TFacturasClienteDataTableRules.SetREF_FORMA_PAGOValue(const aValue: String);
begin
DataTable.Fields[idx_FacturasClienteREF_FORMA_PAGO].AsString := aValue;
end;
function TFacturasClienteDataTableRules.GetREF_FORMA_PAGOIsNull: boolean;
begin
result := DataTable.Fields[idx_FacturasClienteREF_FORMA_PAGO].IsNull;
end;
procedure TFacturasClienteDataTableRules.SetREF_FORMA_PAGOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_FacturasClienteREF_FORMA_PAGO].AsVariant := Null;
end;
function TFacturasClienteDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt; function TFacturasClienteDataTableRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
begin begin
result := DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsSmallInt; result := DataTable.Fields[idx_FacturasClienteRECARGO_EQUIVALENCIA].AsSmallInt;

55
Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_Intf.pas
View File

@ -9,14 +9,14 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ListaAnosFacturasDelta = '{3852FAEA-64F2-4C8F-9FDF-E08A357F1861}'; RID_ListaAnosFacturasDelta = '{BC4B775B-C16B-48D3-B40F-B9684CDD9839}';
RID_FacturasClienteDelta = '{07651992-560F-432E-8583-EEEAAAA10E52}'; RID_FacturasClienteDelta = '{AAE0C12B-EEB0-41BD-9374-D2492F491485}';
RID_FacturasCliente_DetallesDelta = '{9385E500-5ECA-4B3A-8906-5660B5DB9309}'; RID_FacturasCliente_DetallesDelta = '{DEF2FAAB-FA4A-4478-B582-9F32D15AE44E}';
type type
{ IListaAnosFacturasDelta } { IListaAnosFacturasDelta }
IListaAnosFacturasDelta = interface(IListaAnosFacturas) IListaAnosFacturasDelta = interface(IListaAnosFacturas)
['{3852FAEA-64F2-4C8F-9FDF-E08A357F1861}'] ['{BC4B775B-C16B-48D3-B40F-B9684CDD9839}']
{ Property getters and setters } { Property getters and setters }
function GetOldANOValue : String; function GetOldANOValue : String;
@ -50,7 +50,7 @@ type
{ IFacturasClienteDelta } { IFacturasClienteDelta }
IFacturasClienteDelta = interface(IFacturasCliente) IFacturasClienteDelta = interface(IFacturasCliente)
['{07651992-560F-432E-8583-EEEAAAA10E52}'] ['{AAE0C12B-EEB0-41BD-9374-D2492F491485}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
@ -85,6 +85,7 @@ type
function GetOldFECHA_MODIFICACIONValue : DateTime; function GetOldFECHA_MODIFICACIONValue : DateTime;
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldREF_FORMA_PAGOValue : String;
function GetOldRECARGO_EQUIVALENCIAValue : SmallInt; function GetOldRECARGO_EQUIVALENCIAValue : SmallInt;
function GetOldID_TIPO_IVAValue : Integer; function GetOldID_TIPO_IVAValue : Integer;
function GetOldIMPORTE_NETOValue : Currency; function GetOldIMPORTE_NETOValue : Currency;
@ -141,6 +142,7 @@ type
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue; property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldREF_FORMA_PAGO : String read GetOldREF_FORMA_PAGOValue;
property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue; property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue; property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
@ -368,6 +370,12 @@ type
function GetOldID_FORMA_PAGOIsNull: Boolean; virtual; function GetOldID_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual; procedure SetID_FORMA_PAGOValue(const aValue: Integer); virtual;
procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual; procedure SetID_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetREF_FORMA_PAGOValue: String; virtual;
function GetREF_FORMA_PAGOIsNull: Boolean; virtual;
function GetOldREF_FORMA_PAGOValue: String; virtual;
function GetOldREF_FORMA_PAGOIsNull: Boolean; virtual;
procedure SetREF_FORMA_PAGOValue(const aValue: String); virtual;
procedure SetREF_FORMA_PAGOIsNull(const aValue: Boolean); virtual;
function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual; function GetRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual; function GetRECARGO_EQUIVALENCIAIsNull: Boolean; virtual;
function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual; function GetOldRECARGO_EQUIVALENCIAValue: SmallInt; virtual;
@ -628,6 +636,10 @@ type
property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property ID_FORMA_PAGOIsNull : Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull; property OldID_FORMA_PAGOIsNull : Boolean read GetOldID_FORMA_PAGOIsNull;
property REF_FORMA_PAGO : String read GetREF_FORMA_PAGOValue write SetREF_FORMA_PAGOValue;
property REF_FORMA_PAGOIsNull : Boolean read GetREF_FORMA_PAGOIsNull write SetREF_FORMA_PAGOIsNull;
property OldREF_FORMA_PAGO : String read GetOldREF_FORMA_PAGOValue;
property OldREF_FORMA_PAGOIsNull : Boolean read GetOldREF_FORMA_PAGOIsNull;
property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; property RECARGO_EQUIVALENCIA : SmallInt read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue;
property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull; property RECARGO_EQUIVALENCIAIsNull : Boolean read GetRECARGO_EQUIVALENCIAIsNull write SetRECARGO_EQUIVALENCIAIsNull;
property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue; property OldRECARGO_EQUIVALENCIA : SmallInt read GetOldRECARGO_EQUIVALENCIAValue;
@ -721,7 +733,7 @@ type
{ IFacturasCliente_DetallesDelta } { IFacturasCliente_DetallesDelta }
IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles) IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
['{9385E500-5ECA-4B3A-8906-5660B5DB9309}'] ['{DEF2FAAB-FA4A-4478-B582-9F32D15AE44E}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_FACTURAValue : Integer; function GetOldID_FACTURAValue : Integer;
@ -1999,6 +2011,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_FORMA_PAGO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_FORMA_PAGO] := Null;
end; end;
function TFacturasClienteBusinessProcessorRules.GetREF_FORMA_PAGOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREF_FORMA_PAGO];
end;
function TFacturasClienteBusinessProcessorRules.GetREF_FORMA_PAGOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREF_FORMA_PAGO]);
end;
function TFacturasClienteBusinessProcessorRules.GetOldREF_FORMA_PAGOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREF_FORMA_PAGO];
end;
function TFacturasClienteBusinessProcessorRules.GetOldREF_FORMA_PAGOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteREF_FORMA_PAGO]);
end;
procedure TFacturasClienteBusinessProcessorRules.SetREF_FORMA_PAGOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREF_FORMA_PAGO] := aValue;
end;
procedure TFacturasClienteBusinessProcessorRules.SetREF_FORMA_PAGOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREF_FORMA_PAGO] := Null;
end;
function TFacturasClienteBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt; function TFacturasClienteBusinessProcessorRules.GetRECARGO_EQUIVALENCIAValue: SmallInt;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteRECARGO_EQUIVALENCIA];

9
Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm
View File

@ -263,6 +263,10 @@ object srvFacturasCliente: TsrvFacturasCliente
item item
DatasetField = 'PROCEDENCIA_CLIENTE' DatasetField = 'PROCEDENCIA_CLIENTE'
TableField = 'PROCEDENCIA_CLIENTE' TableField = 'PROCEDENCIA_CLIENTE'
end
item
DatasetField = 'REF_FORMA_PAGO'
TableField = 'REF_FORMA_PAGO'
end> end>
end> end>
Name = 'FacturasCliente' Name = 'FacturasCliente'
@ -444,6 +448,11 @@ object srvFacturasCliente: TsrvFacturasCliente
DataType = datInteger DataType = datInteger
DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO' DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO'
end end
item
Name = 'REF_FORMA_PAGO'
DataType = datString
Size = 255
end
item item
Name = 'RECARGO_EQUIVALENCIA' Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt DataType = datSmallInt

63
Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm
View File

@ -2,18 +2,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Left = 454 Left = 454
Top = 208 Top = 208
Caption = 'Nueva factura de cliente' Caption = 'Nueva factura de cliente'
ClientHeight = 662 ClientHeight = 864
ClientWidth = 860 ClientWidth = 860
Position = poScreenCenter Position = poScreenCenter
OnClose = CustomEditorClose OnClose = CustomEditorClose
ExplicitWidth = 868 ExplicitWidth = 876
ExplicitHeight = 696 ExplicitHeight = 902
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 860 Width = 860
Caption = 'Nueva factura de cliente' Caption = 'Nueva factura de cliente'
ExplicitTop = 49 ExplicitTop = 51
ExplicitWidth = 860 ExplicitWidth = 860
inherited Image1: TImage inherited Image1: TImage
Left = 833 Left = 833
@ -43,7 +43,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 860 Width = 860
ExplicitWidth = 860 ExplicitWidth = 860
inherited tbxMain: TTBXToolbar inherited tbxMain: TTBXToolbar
ExplicitWidth = 488 ExplicitWidth = 518
inherited TBXItem2: TTBXItem inherited TBXItem2: TTBXItem
Visible = False Visible = False
end end
@ -70,7 +70,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 643 Top = 845
Width = 860 Width = 860
Panels = < Panels = <
item item
@ -81,20 +81,21 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 854 Width = 854
Height = 368 Height = 568
OnChanging = pgPaginasChanging OnChanging = pgPaginasChanging
ExplicitTop = 111
ExplicitWidth = 854 ExplicitWidth = 854
ExplicitHeight = 368 ExplicitHeight = 366
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
ExplicitLeft = 4 ExplicitLeft = 4
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 340 ExplicitHeight = 338
inline frViewFacturaCliente1: TfrViewFacturaCliente inline frViewFacturaCliente1: TfrViewFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 846 Width = 846
Height = 340 Height = 540
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -105,12 +106,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 340 ExplicitHeight = 338
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 846 Width = 846
Height = 340 Height = 540
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 340 ExplicitHeight = 338
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
ExplicitWidth = 159 ExplicitWidth = 159
Width = 159 Width = 159
@ -172,15 +173,15 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Width = 276 Width = 276
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 244 Left = 261
DataBinding.DataSource = dsDataTable DataBinding.DataSource = dsDataTable
Enabled = True Enabled = True
Properties.ReadOnly = False Properties.ReadOnly = False
ExplicitLeft = 244 ExplicitLeft = 261
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 134 Left = 151
ExplicitLeft = 134 ExplicitLeft = 151
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283 ExplicitWidth = 283
@ -228,15 +229,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
object pagContenido: TTabSheet object pagContenido: TTabSheet
Caption = 'Contenido' Caption = 'Contenido'
ImageIndex = 1 ImageIndex = 1
ExplicitLeft = 0 ExplicitHeight = 338
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente inline frViewDetallesFacturaCliente1: TfrViewDetallesFacturaCliente
Left = 0 Left = 0
Top = 0 Top = 0
Width = 846 Width = 846
Height = 340 Height = 540
Align = alClient Align = alClient
BiDiMode = bdLeftToRight BiDiMode = bdLeftToRight
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -249,7 +247,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
TabOrder = 0 TabOrder = 0
ReadOnly = False ReadOnly = False
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 340 ExplicitHeight = 338
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 846 Width = 846
Height = 24 Height = 24
@ -336,10 +334,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited cxGrid: TcxGrid inherited cxGrid: TcxGrid
Top = 50 Top = 50
Width = 846 Width = 846
Height = 290 Height = 490
ExplicitTop = 50 ExplicitTop = 50
ExplicitWidth = 846 ExplicitWidth = 846
ExplicitHeight = 290 ExplicitHeight = 288
end end
inherited TBXDock1: TTBXDock inherited TBXDock1: TTBXDock
Top = 24 Top = 24
@ -347,7 +345,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
ExplicitTop = 24 ExplicitTop = 24
ExplicitWidth = 846 ExplicitWidth = 846
inherited TBXToolbar1: TTBXToolbar inherited TBXToolbar1: TTBXToolbar
ExplicitWidth = 548 ExplicitWidth = 597
end end
end end
end end
@ -357,6 +355,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Enabled = False Enabled = False
ImageIndex = 2 ImageIndex = 2
TabVisible = False TabVisible = False
ExplicitHeight = 338
inline frViewListaSubcuentas1: TfrViewListaSubcuentas inline frViewListaSubcuentas1: TfrViewListaSubcuentas
Left = 0 Left = 0
Top = 0 Top = 0
@ -400,11 +399,16 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
inherited PnlComentario: TPanel inherited PnlComentario: TPanel
Width = 860 Width = 860
TabOrder = 5 TabOrder = 5
ExplicitTop = 78
ExplicitWidth = 860 ExplicitWidth = 860
inherited lbComentario: TLabel
Width = 850
Height = 25
end
end end
inline frViewTotales1: TfrViewTotales [5] inline frViewTotales1: TfrViewTotales [5]
Left = 0 Left = 0
Top = 480 Top = 682
Width = 860 Width = 860
Height = 163 Height = 163
Align = alBottom Align = alBottom
@ -537,6 +541,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
end end
inherited cbRecargoEquivalencia: TcxDBCheckBox inherited cbRecargoEquivalencia: TcxDBCheckBox
Top = 138 Top = 138
Enabled = False
ExplicitTop = 138 ExplicitTop = 138
ExplicitWidth = 291 ExplicitWidth = 291
Width = 291 Width = 291
@ -565,6 +570,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
Visible = False Visible = False
end end
end end
inherited dxLayoutControl1Item16: TdxLayoutItem
Enabled = False
Visible = False
end
end end
inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Group5: TdxLayoutGroup
inherited dxLayoutControl1Group3: TdxLayoutGroup inherited dxLayoutControl1Group3: TdxLayoutGroup

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

@ -1,6 +1,6 @@
inherited frViewFacturaCliente: TfrViewFacturaCliente inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 451 Width = 1140
Height = 304 Height = 855
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy OnDestroy = CustomViewDestroy
@ -9,17 +9,19 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
object dxLayoutControl1: TdxLayoutControl object dxLayoutControl1: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 1140
Height = 304 Height = 855
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
TabStop = False TabStop = False
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
LookAndFeel = dxLayoutOfficeLookAndFeel1 LookAndFeel = dxLayoutOfficeLookAndFeel1
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
451 1140
304) 855)
object eReferencia: TcxDBTextEdit object eReferencia: TcxDBTextEdit
Left = 135 Left = 135
Top = 30 Top = 30
@ -96,7 +98,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 78 Width = 78
end end
object bFormasPago: TButton object bFormasPago: TButton
Left = 311 Left = 440
Top = 135 Top = 135
Width = 132 Width = 132
Height = 23 Height = 23
@ -133,7 +135,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
end end
end end
inline frViewClienteFactura1: TfrViewClienteFactura inline frViewClienteFactura1: TfrViewClienteFactura
Left = 471 Left = 600
Top = 30 Top = 30
Width = 398 Width = 398
Height = 265 Height = 265
@ -145,7 +147,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
ParentFont = False ParentFont = False
TabOrder = 9 TabOrder = 9
ReadOnly = False ReadOnly = False
ExplicitLeft = 471 ExplicitLeft = 600
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 398 ExplicitWidth = 398
ExplicitHeight = 265 ExplicitHeight = 265
@ -175,12 +177,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
Width = 276 Width = 276
end end
inherited edtCodigoPostal: TcxDBTextEdit inherited edtCodigoPostal: TcxDBTextEdit
Left = 192 Left = 426
ExplicitLeft = 192 ExplicitLeft = 426
end end
inherited Button3: TBitBtn inherited Button3: TBitBtn
Left = 82 Left = 316
ExplicitLeft = 82 ExplicitLeft = 316
end end
inherited cxDBTextEdit1: TcxDBTextEdit inherited cxDBTextEdit1: TcxDBTextEdit
ExplicitWidth = 283 ExplicitWidth = 283

5
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm
View File

@ -192,6 +192,10 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
Caption = 'Procedencia' Caption = 'Procedencia'
DataBinding.FieldName = 'PROCEDENCIA_CLIENTE' DataBinding.FieldName = 'PROCEDENCIA_CLIENTE'
end end
object cxGridViewREF_FORMA_PAGO: TcxGridDBColumn
Caption = 'Forma pago'
DataBinding.FieldName = 'REF_FORMA_PAGO'
end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel
Caption = 'Todas' Caption = 'Todas'
@ -280,7 +284,6 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
end end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 802 Width = 802
ExplicitTop = 75
ExplicitWidth = 802 ExplicitWidth = 802
inherited tbxBotones: TTBXToolbar inherited tbxBotones: TTBXToolbar
Width = 792 Width = 792

1
Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas
View File

@ -67,6 +67,7 @@ type
cxGridViewLISTA_NOMBRES: TcxGridDBColumn; cxGridViewLISTA_NOMBRES: TcxGridDBColumn;
cxGridViewLOPD: TcxGridDBColumn; cxGridViewLOPD: TcxGridDBColumn;
cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn; cxGridViewPROCEDENCIA_CLIENTE: TcxGridDBColumn;
cxGridViewREF_FORMA_PAGO: TcxGridDBColumn;
procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView; procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
out AStyle: TcxStyle); out AStyle: TcxStyle);

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -135,10 +135,10 @@ uses
schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas', schFormasPagoServer_Intf in '..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas', schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas', schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas', schContratosClienteClient_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteClient_Intf.pas',
schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas'; schContratosClienteServer_Intf in '..\Modulos\Contratos de cliente\Model\schContratosClienteServer_Intf.pas',
schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.dproj
View File

@ -28,7 +28,7 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<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">3</VersionInfo><VersionInfo Name="Release">2</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.3.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES v2(Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 10 de octubre de 2024 18:55</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">3</VersionInfo><VersionInfo Name="Release">3</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.3.3.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES v2(Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.3.3.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 14 de marzo de 2025 16:56</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>

BIN
Source/Servidor/FactuGES_Server.res
View File

Binary file not shown.