Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se arregla el orden de los informes para que cuando salgan agrupados salgan bien

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@776 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-11-18 17:54:49 +00:00
parent 22ae33f7e7
commit 0170a41152
13 changed files with 594 additions and 521 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
Source/Base/Base.dproj
View File

@ -54,58 +54,58 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Obras\adortl.dcp" />
<DCCReference Include="..\Modulos\Obras\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxGridD11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Obras\cxPageControlD11.dcp" />
<DCCReference Include="..\Modulos\Obras\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Obras\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Obras\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Obras\designide.dcp" />
<DCCReference Include="..\Modulos\Obras\dsnap.dcp" />
<DCCReference Include="..\Modulos\Obras\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Obras\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Obras\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Obras\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Obras\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Obras\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Obras\Jcl.dcp" />
<DCCReference Include="..\Modulos\Obras\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Obras\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Obras\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Obras\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Obras\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Obras\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Obras\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Obras\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Obras\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Obras\RemObjects_Indy_D11.dcp" />
<DCCReference Include="..\Modulos\Obras\rtl.dcp" />
<DCCReference Include="..\Modulos\Obras\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Obras\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Obras\vcl.dcp" />
<DCCReference Include="..\Modulos\Obras\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Obras\vcldb.dcp" />
<DCCReference Include="..\Modulos\Obras\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Obras\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Obras\vclx.dcp" />
<DCCReference Include="..\Modulos\Obras\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Indy_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

BIN
Source/Base/Base.res
View File

Binary file not shown.

15
Source/GUIBase/uViewDetallesBase.dfm
View File

@ -1,5 +1,5 @@
inherited frViewDetallesBase: TfrViewDetallesBase inherited frViewDetallesBase: TfrViewDetallesBase
Width = 586 Width = 451
Height = 304 Height = 304
Align = alClient Align = alClient
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
@ -9,7 +9,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
object ToolBar1: TToolBar object ToolBar1: TToolBar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 586 Width = 451
Height = 73 Height = 73
AutoSize = True AutoSize = True
ButtonWidth = 141 ButtonWidth = 141
@ -25,7 +25,6 @@ inherited frViewDetallesBase: TfrViewDetallesBase
TabOrder = 0 TabOrder = 0
Transparent = True Transparent = True
Visible = False Visible = False
ExplicitWidth = 451
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -150,7 +149,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
object cxGrid: TcxGrid object cxGrid: TcxGrid
Left = 0 Left = 0
Top = 99 Top = 99
Width = 586 Width = 451
Height = 205 Height = 205
Align = alClient Align = alClient
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -162,7 +161,6 @@ inherited frViewDetallesBase: TfrViewDetallesBase
TabOrder = 1 TabOrder = 1
LookAndFeel.Kind = lfStandard LookAndFeel.Kind = lfStandard
LookAndFeel.NativeStyle = True LookAndFeel.NativeStyle = True
ExplicitWidth = 451
object cxGridView: TcxGridDBTableView object cxGridView: TcxGridDBTableView
OnKeyDown = cxGridViewKeyDown OnKeyDown = cxGridViewKeyDown
NavigatorButtons.ConfirmDelete = False NavigatorButtons.ConfirmDelete = False
@ -346,11 +344,10 @@ inherited frViewDetallesBase: TfrViewDetallesBase
object TBXDock1: TTBXDock object TBXDock1: TTBXDock
Left = 0 Left = 0
Top = 73 Top = 73
Width = 586 Width = 451
Height = 26 Height = 26
BackgroundOnToolbars = False BackgroundOnToolbars = False
UseParentBackground = True UseParentBackground = True
ExplicitWidth = 451
object TBXToolbar1: TTBXToolbar object TBXToolbar1: TTBXToolbar
Left = 0 Left = 0
Top = 0 Top = 0
@ -973,7 +970,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Color = 552923887 Color = 552923887
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
end end
@ -982,7 +979,7 @@ inherited frViewDetallesBase: TfrViewDetallesBase
Color = clWindow Color = clWindow
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -15 Font.Height = -11
Font.Name = 'Tahoma' Font.Name = 'Tahoma'
Font.Style = [] Font.Style = []
end end

26
Source/GUIBase/uViewDetallesBase.pas
View File

@ -542,8 +542,7 @@ begin
_FocusedView.BeginUpdate; _FocusedView.BeginUpdate;
end; end;
function TfrViewDetallesBase.DarTipoConcepto( function TfrViewDetallesBase.DarTipoConcepto(ARecord: TcxCustomGridRecord): string;
ARecord: TcxCustomGridRecord): string;
var var
IndiceCol : Integer; IndiceCol : Integer;
begin begin
@ -738,6 +737,9 @@ var
ATipo : String; ATipo : String;
begin begin
inherited; inherited;
AStyle := NIL;
if Assigned(AItem) then if Assigned(AItem) then
begin begin
if Odd(ARecord.Index) then if Odd(ARecord.Index) then
@ -746,9 +748,25 @@ begin
AStyle := cxStyle_NORMAL_IMPAR; AStyle := cxStyle_NORMAL_IMPAR;
end; end;
AStyle := NIL;
if Assigned(ARecord) then if Assigned(ARecord) then
begin begin
if ARecord.Values[3] = TIPO_DETALLE_TITULO then
AStyle := cxStyle_TITULO;
if ARecord.Values[3] = TIPO_DETALLE_TITULO_OPCIONAL then
AStyle := cxStyle_TITULO_OPCIONAL;
if ARecord.Values[3] = TIPO_DETALLE_SUBTOTAL then
AStyle := cxStyle_SUBTOTAL;
if ARecord.Values[3] = TIPO_DETALLE_DESCUENTO then
AStyle := cxStyle_DESCUENTO;
{
ATipo := DarTipoConcepto(ARecord); ATipo := DarTipoConcepto(ARecord);
if ATipo = TIPO_DETALLE_TITULO then if ATipo = TIPO_DETALLE_TITULO then
@ -762,7 +780,9 @@ begin
if ATipo = TIPO_DETALLE_DESCUENTO then if ATipo = TIPO_DETALLE_DESCUENTO then
AStyle := cxStyle_DESCUENTO; AStyle := cxStyle_DESCUENTO;
}
end; end;
end; end;
function TfrViewDetallesBase.DarFuentePorDefecto(const ATipo: String): TFont; function TfrViewDetallesBase.DarFuentePorDefecto(const ATipo: String): TFont;

56
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
View File

@ -466,29 +466,30 @@ object RptFacturasCliente: TRptFacturasCliente
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'V_FACTURAS_CLIENTE' TargetTable = 'V_FACTURAS_CLIENTE'
SQL = SQL =
'select ID_EMPRESA,'#10'extract (month from fecha_factura) as MES,'#10'ca' + 'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' +
'se'#10'when extract (month from fecha_factura) = 1 then '#39'ENERO - '#39' |' + 'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' +
'| extract (year from fecha_factura)'#10'when extract (month from fec' + ' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' +
'ha_factura) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_fa' + 'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 +
'ctura)'#10'when extract (month from fecha_factura) = 3 then '#39'MARZO -' + 'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' +
' '#39' || extract (year from fecha_factura)'#10'when extract (month from' + 'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' +
' fecha_factura) = 4 then '#39'ABRIL - '#39' || extract (year from fecha_' + 'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' +
'factura)'#10'when extract (month from fecha_factura) = 5 then '#39'MAYO ' + 'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' +
'- '#39' || extract (year from fecha_factura)'#10'when extract (month fro' + '(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' +
'm fecha_factura) = 6 then '#39'JUNIO - '#39' || extract (year from fecha' + 'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' +
'_factura)'#10'when extract (month from fecha_factura) = 7 then '#39'JULI' + 'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' +
'O - '#39' || extract (year from fecha_factura)'#10'when extract (month f' + ' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' +
'rom fecha_factura) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' + ' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' +
'cha_factura)'#10'when extract (month from fecha_factura) = 9 then '#39'S' + ' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' +
'EPTIEMBRE - '#39' || extract (year from fecha_factura)'#10'when extract ' + 'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' +
'(month from fecha_factura) = 10 then '#39'OCTUBRE - '#39' || extract (ye' + 'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' +
'ar from fecha_factura)'#10'when extract (month from fecha_factura) =' + 'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' +
' 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_factura)'#10'whe' + #10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' +
'n extract (month from fecha_factura) = 12 then '#39'DICIEMBRE - '#39' ||' + #39' || extract (year from fecha_factura)'#10'when extract (month from ' +
' extract (year from fecha_factura)'#10'end as TITULO,'#10'REFERENCIA, I' + 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
'D_CLIENTE, NOMBRE, SITUACION, NIF_CIF, FECHA_FACTURA, BASE_IMPON' + 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' +
'IBLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where ' + 'UACION, NIF_CIF, FECHA_FACTURA, BASE_IMPONIBLE, IMPORTE_IVA, IMP' +
'{where}'#10'order by FECHA_FACTURA'#10#10 'ORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, ' +
'MES, NOMBRE'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -540,6 +541,11 @@ object RptFacturasCliente: TRptFacturasCliente
item item
DatasetField = 'IMPORTE_TOTAL' DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ANO'
TableField = '<unknown>'
SQLOrigin = 'ANO'
end> end>
end> end>
Name = 'InformeListadoFacturas' Name = 'InformeListadoFacturas'
@ -548,6 +554,10 @@ object RptFacturasCliente: TRptFacturasCliente
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
end end
item
Name = 'ANO'
DataType = datSmallInt
end
item item
Name = 'MES' Name = 'MES'
DataType = datSmallInt DataType = datSmallInt

56
Source/Modulos/Facturas de proveedor/Reports/uRptFacturasProveedor_Server.dfm
View File

@ -421,29 +421,30 @@ object RptFacturasProveedor: TRptFacturasProveedor
Connection = 'IBX' Connection = 'IBX'
TargetTable = 'V_FACTURAS_PROVEEDOR' TargetTable = 'V_FACTURAS_PROVEEDOR'
SQL = SQL =
'select ID_EMPRESA,'#10'extract (month from fecha_factura) as MES,'#10'ca' + 'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' +
'se'#10'when extract (month from fecha_factura) = 1 then '#39'ENERO - '#39' |' + 'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' +
'| extract (year from fecha_factura)'#10'when extract (month from fec' + ' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' +
'ha_factura) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_fa' + 'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 +
'ctura)'#10'when extract (month from fecha_factura) = 3 then '#39'MARZO -' + 'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' +
' '#39' || extract (year from fecha_factura)'#10'when extract (month from' + 'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' +
' fecha_factura) = 4 then '#39'ABRIL - '#39' || extract (year from fecha_' + 'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' +
'factura)'#10'when extract (month from fecha_factura) = 5 then '#39'MAYO ' + 'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' +
'- '#39' || extract (year from fecha_factura)'#10'when extract (month fro' + '(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' +
'm fecha_factura) = 6 then '#39'JUNIO - '#39' || extract (year from fecha' + 'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' +
'_factura)'#10'when extract (month from fecha_factura) = 7 then '#39'JULI' + 'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' +
'O - '#39' || extract (year from fecha_factura)'#10'when extract (month f' + ' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' +
'rom fecha_factura) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' + ' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' +
'cha_factura)'#10'when extract (month from fecha_factura) = 9 then '#39'S' + ' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' +
'EPTIEMBRE - '#39' || extract (year from fecha_factura)'#10'when extract ' + 'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' +
'(month from fecha_factura) = 10 then '#39'OCTUBRE - '#39' || extract (ye' + 'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' +
'ar from fecha_factura)'#10'when extract (month from fecha_factura) =' + 'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' +
' 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_factura)'#10'whe' + #10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' +
'n extract (month from fecha_factura) = 12 then '#39'DICIEMBRE - '#39' ||' + #39' || extract (year from fecha_factura)'#10'when extract (month from ' +
' extract (year from fecha_factura)'#10'end as TITULO,'#10'REFERENCIA, I' + 'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
'D_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF, FECHA_FACTURA, BASE_IMP' + 'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, S' +
'ONIBLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'wh' + 'ITUACION, NIF_CIF, FECHA_FACTURA, BASE_IMPONIBLE, IMPORTE_IVA, I' +
'ere {where}'#10'order by FECHA_FACTURA'#10#10 'MPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by A' +
'NO, MES, NOMBRE'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -495,6 +496,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
item item
DatasetField = 'IMPORTE_TOTAL' DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ANO'
TableField = '<unknown>'
SQLOrigin = 'ANO'
end> end>
end> end>
Name = 'InformeListadoFacturas' Name = 'InformeListadoFacturas'
@ -503,6 +509,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
end end
item
Name = 'ANO'
DataType = datSmallInt
end
item item
Name = 'MES' Name = 'MES'
DataType = datSmallInt DataType = datSmallInt

55
Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
View File

@ -21,29 +21,29 @@ object RptPedidosProveedor: TRptPedidosProveedor
TargetTable = 'V_PEDIDOS_PROVEEDOR' TargetTable = 'V_PEDIDOS_PROVEEDOR'
Name = 'IBX' Name = 'IBX'
SQL = SQL =
#10' '#10'select ID_EMPRESA,'#10'extract (month from fecha_pedido) as MES,' + #10' '#10'select ID_EMPRESA,'#10'extract (year from fecha_pedido) as ANO,'#10 +
#10'case'#10'when extract (month from fecha_pedido) = 1 then '#39'ENERO - '#39 + 'extract (month from fecha_pedido) as MES,'#10'case'#10'when extract (mon' +
' || extract (year from fecha_pedido)'#10'when extract (month from fe' + 'th from fecha_pedido) = 1 then '#39'ENERO - '#39' || extract (year from ' +
'cha_pedido) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_pe' + 'fecha_pedido)'#10'when extract (month from fecha_pedido) = 2 then '#39'F' +
'dido)'#10'when extract (month from fecha_pedido) = 3 then '#39'MARZO - '#39 + 'EBRERO - '#39' || extract (year from fecha_pedido)'#10'when extract (mon' +
' || extract (year from fecha_pedido)'#10'when extract (month from fe' + 'th from fecha_pedido) = 3 then '#39'MARZO - '#39' || extract (year from ' +
'cha_pedido) = 4 then '#39'ABRIL - '#39' || extract (year from fecha_pedi' + 'fecha_pedido)'#10'when extract (month from fecha_pedido) = 4 then '#39'A' +
'do)'#10'when extract (month from fecha_pedido) = 5 then '#39'MAYO - '#39' ||' + 'BRIL - '#39' || extract (year from fecha_pedido)'#10'when extract (month' +
' extract (year from fecha_pedido)'#10'when extract (month from fecha' + ' from fecha_pedido) = 5 then '#39'MAYO - '#39' || extract (year from fec' +
'_pedido) = 6 then '#39'JUNIO - '#39' || extract (year from fecha_pedido)' + 'ha_pedido)'#10'when extract (month from fecha_pedido) = 6 then '#39'JUNI' +
#10'when extract (month from fecha_pedido) = 7 then '#39'JULIO - '#39' || e' + 'O - '#39' || extract (year from fecha_pedido)'#10'when extract (month fr' +
'xtract (year from fecha_pedido)'#10'when extract (month from fecha_p' + 'om fecha_pedido) = 7 then '#39'JULIO - '#39' || extract (year from fecha' +
'edido) = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_pedido)'#10 + '_pedido)'#10'when extract (month from fecha_pedido) = 8 then '#39'AGOSTO' +
'when extract (month from fecha_pedido) = 9 then '#39'SEPTIEMBRE - '#39' ' + ' - '#39' || extract (year from fecha_pedido)'#10'when extract (month fro' +
'|| extract (year from fecha_pedido)'#10'when extract (month from fec' + 'm fecha_pedido) = 9 then '#39'SEPTIEMBRE - '#39' || extract (year from f' +
'ha_pedido) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_pe' + 'echa_pedido)'#10'when extract (month from fecha_pedido) = 10 then '#39'O' +
'dido)'#10'when extract (month from fecha_pedido) = 11 then '#39'NOVIEMBR' + 'CTUBRE - '#39' || extract (year from fecha_pedido)'#10'when extract (mon' +
'E - '#39' || extract (year from fecha_pedido)'#10'when extract (month fr' + 'th from fecha_pedido) = 11 then '#39'NOVIEMBRE - '#39' || extract (year ' +
'om fecha_pedido) = 12 then '#39'DICIEMBRE - '#39' || extract (year from ' + 'from fecha_pedido)'#10'when extract (month from fecha_pedido) = 12 t' +
'fecha_pedido)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, ' + 'hen '#39'DICIEMBRE - '#39' || extract (year from fecha_pedido)'#10'end as TI' +
'SITUACION, fecha_pedido, FECHA_CONFIRMACION, FECHA_ENTREGA, IMPO' + 'TULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, SITUACION, fecha_pedido' +
'RTE_TOTAL'#10#10'from V_PEDIDOS_PROVEEDOR'#10'where {where}'#10'order by FECHA' + ', FECHA_CONFIRMACION, FECHA_ENTREGA, IMPORTE_TOTAL'#10#10'from V_PEDID' +
'_PEDIDO'#10 'OS_PROVEEDOR'#10'where {where}'#10'order by ANO, MES, NOMBRE'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -91,6 +91,11 @@ object RptPedidosProveedor: TRptPedidosProveedor
item item
DatasetField = 'IMPORTE_TOTAL' DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ANO'
TableField = '<unknown>'
SQLOrigin = 'ANO'
end> end>
end> end>
Name = 'InformeListadoPedidos' Name = 'InformeListadoPedidos'
@ -99,6 +104,10 @@ object RptPedidosProveedor: TRptPedidosProveedor
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
end end
item
Name = 'ANO'
DataType = datSmallInt
end
item item
Name = 'MES' Name = 'MES'
DataType = datSmallInt DataType = datSmallInt

4
Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas
View File

@ -60,11 +60,11 @@ type
cabeceraCODIGO_POSTAL: TIBStringField; cabeceraCODIGO_POSTAL: TIBStringField;
cabeceraENTREGAR_A: TIBStringField; cabeceraENTREGAR_A: TIBStringField;
frxPDFExport1: TfrxPDFExport; frxPDFExport1: TfrxPDFExport;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
frxDBInformeListadoPedidos: TfrxDBDataset; frxDBInformeListadoPedidos: TfrxDBDataset;
DADSInformeListadoPedidos: TDADataSource; DADSInformeListadoPedidos: TDADataSource;
tbl_InformeListadoPedidos: TDAMemDataTable; tbl_InformeListadoPedidos: TDAMemDataTable;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
procedure frxReportGetValue(const VarName: string; var Value: Variant); procedure frxReportGetValue(const VarName: string; var Value: Variant);
private private

53
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.dfm
View File

@ -49,31 +49,31 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
TargetTable = 'V_PRESUPUESTOS_CLIENTE' TargetTable = 'V_PRESUPUESTOS_CLIENTE'
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'select ID_EMPRESA,'#10'extract (month from fecha_presupuesto) as MES' + 'select ID_EMPRESA,'#10'extract (year from fecha_presupuesto) as ANO,' +
','#10'case'#10'when extract (month from fecha_presupuesto) = 1 then '#39'ENE' + #10'extract (month from fecha_presupuesto) as MES,'#10'case'#10'when extrac' +
'RO - '#39' || extract (year from fecha_presupuesto)'#10'when extract (mo' + 't (month from fecha_presupuesto) = 1 then '#39'ENERO - '#39' || extract ' +
'nth from fecha_presupuesto) = 2 then '#39'FEBRERO - '#39' || extract (ye' + '(year from fecha_presupuesto)'#10'when extract (month from fecha_pre' +
'supuesto) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_pres' +
'upuesto)'#10'when extract (month from fecha_presupuesto) = 3 then '#39'M' +
'ARZO - '#39' || extract (year from fecha_presupuesto)'#10'when extract (' +
'month from fecha_presupuesto) = 4 then '#39'ABRIL - '#39' || extract (ye' +
'ar from fecha_presupuesto)'#10'when extract (month from fecha_presup' + 'ar from fecha_presupuesto)'#10'when extract (month from fecha_presup' +
'uesto) = 3 then '#39'MARZO - '#39' || extract (year from fecha_presupues' + 'uesto) = 5 then '#39'MAYO - '#39' || extract (year from fecha_presupuest' +
'to)'#10'when extract (month from fecha_presupuesto) = 4 then '#39'ABRIL ' + 'o)'#10'when extract (month from fecha_presupuesto) = 6 then '#39'JUNIO -' +
'- '#39' || extract (year from fecha_presupuesto)'#10'when extract (month' + ' '#39' || extract (year from fecha_presupuesto)'#10'when extract (month ' +
' from fecha_presupuesto) = 5 then '#39'MAYO - '#39' || extract (year fro' + 'from fecha_presupuesto) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm fecha_presupuesto)'#10'when extract (month from fecha_presupuesto)' + 'm fecha_presupuesto)'#10'when extract (month from fecha_presupuesto)' +
' = 6 then '#39'JUNIO - '#39' || extract (year from fecha_presupuesto)'#10'wh' + ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_presupuesto)'#10'w' +
'en extract (month from fecha_presupuesto) = 7 then '#39'JULIO - '#39' ||' + 'hen extract (month from fecha_presupuesto) = 9 then '#39'SEPTIEMBRE ' +
' extract (year from fecha_presupuesto)'#10'when extract (month from ' + '- '#39' || extract (year from fecha_presupuesto)'#10'when extract (month' +
'fecha_presupuesto) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' + ' from fecha_presupuesto) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
'cha_presupuesto)'#10'when extract (month from fecha_presupuesto) = 9' +
' then '#39'SEPTIEMBRE - '#39' || extract (year from fecha_presupuesto)'#10'w' +
'hen extract (month from fecha_presupuesto) = 10 then '#39'OCTUBRE - ' +
#39' || extract (year from fecha_presupuesto)'#10'when extract (month f' +
'rom fecha_presupuesto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year' +
' from fecha_presupuesto)'#10'when extract (month from fecha_presupue' + ' from fecha_presupuesto)'#10'when extract (month from fecha_presupue' +
'sto) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fecha_presup' + 'sto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_presup' +
'uesto)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SITUACION' + 'uesto)'#10'when extract (month from fecha_presupuesto) = 12 then '#39'DI' +
', NIF_CIF, FECHA_PRESUPUESTO, FECHA_DECISION, FACTURA, IMPORTE_T' + 'CIEMBRE - '#39' || extract (year from fecha_presupuesto)'#10'end as TITU' +
'OTAL'#10#10'from V_presupuestos_cliente'#10'where {where}'#10'order by FECHA_P' + 'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SITUACION, NIF_CIF, FECHA_P' +
'RESUPUESTO'#10 'RESUPUESTO, FECHA_DECISION, FACTURA, IMPORTE_TOTAL'#10#10'from V_presu' +
'puestos_cliente'#10'where {where}'#10'order by ANO, MES, NOMBRE'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -125,6 +125,11 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
item item
DatasetField = 'IMPORTE_TOTAL' DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ANO'
TableField = '<unknown>'
SQLOrigin = 'ANO'
end> end>
end> end>
Name = 'InformeListadoPresupuestos' Name = 'InformeListadoPresupuestos'
@ -133,6 +138,10 @@ object RptPresupuestosCliente: TRptPresupuestosCliente
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
end end
item
Name = 'ANO'
DataType = datSmallInt
end
item item
Name = 'MES' Name = 'MES'
DataType = datSmallInt DataType = datSmallInt

4
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
View File

@ -76,11 +76,11 @@ type
DAMemDataTable1: TDAMemDataTable; DAMemDataTable1: TDAMemDataTable;
DAMemDataTable2: TDAMemDataTable; DAMemDataTable2: TDAMemDataTable;
frxPDFExport1: TfrxPDFExport; frxPDFExport1: TfrxPDFExport;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
DADSInformeListadoPresupuestos: TDADataSource; DADSInformeListadoPresupuestos: TDADataSource;
tbl_InformeListadoPresupuestos: TDAMemDataTable; tbl_InformeListadoPresupuestos: TDAMemDataTable;
frxDBInformeListadoPresupuestos: TfrxDBDataset; frxDBInformeListadoPresupuestos: TfrxDBDataset;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
private private
FConnection: IDAConnection; FConnection: IDAConnection;

53
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm
View File

@ -260,31 +260,32 @@ object RptRecibosCliente: TRptRecibosCliente
TargetTable = 'V_recibos_cliente' TargetTable = 'V_recibos_cliente'
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'select ID_EMPRESA,'#10'extract (month from fecha_vencimiento) as MES' + 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
','#10'case'#10'when extract (month from fecha_vencimiento) = 1 then '#39'ENE' + #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
'RO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (mo' + 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
'nth from fecha_vencimiento) = 2 then '#39'FEBRERO - '#39' || extract (ye' + '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' + 'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
'iento) = 3 then '#39'MARZO - '#39' || extract (year from fecha_vencimien' + 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
'to)'#10'when extract (month from fecha_vencimiento) = 4 then '#39'ABRIL ' + 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
'- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' + ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
' from fecha_vencimiento) = 5 then '#39'MAYO - '#39' || extract (year fro' + 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' + 'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
' = 6 then '#39'JUNIO - '#39' || extract (year from fecha_vencimiento)'#10'wh' + ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
'en extract (month from fecha_vencimiento) = 7 then '#39'JULIO - '#39' ||' + 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
' extract (year from fecha_vencimiento)'#10'when extract (month from ' + '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
'fecha_vencimiento) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' + ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
'cha_vencimiento)'#10'when extract (month from fecha_vencimiento) = 9' +
' then '#39'SEPTIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'w' +
'hen extract (month from fecha_vencimiento) = 10 then '#39'OCTUBRE - ' +
#39' || extract (year from fecha_vencimiento)'#10'when extract (month f' +
'rom fecha_vencimiento) = 11 then '#39'NOVIEMBRE - '#39' || extract (year' +
' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' + ' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
'nto) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fecha_vencim' + 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
'iento)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, S' + 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
'ITUACION, NIF_CIF_CLIENTE, fecha_vencimiento, FECHA_EMISION,'#10'IMP' + 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
'ORTE_TOTAL'#10#10'from V_recibos_cliente'#10'where {where}'#10'order by FECHA_' + 'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, SITUACION, NIF_CIF_' +
'VENCIMIENTO'#10#10 'CLIENTE, fecha_vencimiento, FECHA_EMISION,'#10'IMPORTE_TOTAL'#10#10'from V' +
'_recibos_cliente'#10'where {where}'#10'order by ANO, MES, NOMBRE_CLIENTE' +
#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -330,6 +331,10 @@ object RptRecibosCliente: TRptRecibosCliente
item item
DatasetField = 'IMPORTE_TOTAL' DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ANO'
TableField = 'ANO'
end> end>
end> end>
Name = 'InformeListadoRecibos' Name = 'InformeListadoRecibos'
@ -338,6 +343,10 @@ object RptRecibosCliente: TRptRecibosCliente
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
end end
item
Name = 'ANO'
DataType = datSmallInt
end
item item
Name = 'MES' Name = 'MES'
DataType = datSmallInt DataType = datSmallInt

53
Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.dfm
View File

@ -260,31 +260,32 @@ object RptRecibosProveedor: TRptRecibosProveedor
TargetTable = 'V_recibos_proveedor' TargetTable = 'V_recibos_proveedor'
Name = 'IBX' Name = 'IBX'
SQL = SQL =
'select ID_EMPRESA,'#10'extract (month from fecha_vencimiento) as MES' + 'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
','#10'case'#10'when extract (month from fecha_vencimiento) = 1 then '#39'ENE' + #10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
'RO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (mo' + 't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
'nth from fecha_vencimiento) = 2 then '#39'FEBRERO - '#39' || extract (ye' + '(year from fecha_vencimiento)'#10'when extract (month from fecha_ven' +
'cimiento) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_venc' +
'imiento)'#10'when extract (month from fecha_vencimiento) = 3 then '#39'M' +
'ARZO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (' +
'month from fecha_vencimiento) = 4 then '#39'ABRIL - '#39' || extract (ye' +
'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' + 'ar from fecha_vencimiento)'#10'when extract (month from fecha_vencim' +
'iento) = 3 then '#39'MARZO - '#39' || extract (year from fecha_vencimien' + 'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
'to)'#10'when extract (month from fecha_vencimiento) = 4 then '#39'ABRIL ' + 'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
'- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' + ' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
' from fecha_vencimiento) = 5 then '#39'MAYO - '#39' || extract (year fro' + 'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' + 'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
' = 6 then '#39'JUNIO - '#39' || extract (year from fecha_vencimiento)'#10'wh' + ' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
'en extract (month from fecha_vencimiento) = 7 then '#39'JULIO - '#39' ||' + 'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
' extract (year from fecha_vencimiento)'#10'when extract (month from ' + '- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
'fecha_vencimiento) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' + ' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
'cha_vencimiento)'#10'when extract (month from fecha_vencimiento) = 9' +
' then '#39'SEPTIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'w' +
'hen extract (month from fecha_vencimiento) = 10 then '#39'OCTUBRE - ' +
#39' || extract (year from fecha_vencimiento)'#10'when extract (month f' +
'rom fecha_vencimiento) = 11 then '#39'NOVIEMBRE - '#39' || extract (year' +
' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' + ' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
'nto) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fecha_vencim' + 'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
'iento)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE_PROVEEDO' + 'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
'R, SITUACION, NIF_CIF_PROVEEDOR, fecha_vencimiento, FECHA_EMISIO' + 'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
'N,'#10'IMPORTE_TOTAL'#10#10'from V_recibos_proveedor'#10'where {where}'#10'order b' + 'LO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE_PROVEEDOR, SITUACION, NIF_' +
'y FECHA_VENCIMIENTO'#10#10 'CIF_PROVEEDOR, fecha_vencimiento, FECHA_EMISION,'#10'IMPORTE_TOTAL'#10#10 +
'from V_recibos_proveedor'#10'where {where}'#10'order by ANO, MES, NOMBRE' +
'_PROVEEDOR'#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -330,6 +331,10 @@ object RptRecibosProveedor: TRptRecibosProveedor
item item
DatasetField = 'IMPORTE_TOTAL' DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ANO'
TableField = 'ANO'
end> end>
end> end>
Name = 'InformeListadoRecibos' Name = 'InformeListadoRecibos'
@ -338,6 +343,10 @@ object RptRecibosProveedor: TRptRecibosProveedor
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
end end
item
Name = 'ANO'
DataType = datSmallInt
end
item item
Name = 'MES' Name = 'MES'
DataType = datSmallInt DataType = datSmallInt

2
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>