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

26
Source/GUIBase/uViewDetallesBase.pas
View File

@ -542,8 +542,7 @@ begin
_FocusedView.BeginUpdate;
end;
function TfrViewDetallesBase.DarTipoConcepto(
ARecord: TcxCustomGridRecord): string;
function TfrViewDetallesBase.DarTipoConcepto(ARecord: TcxCustomGridRecord): string;
var
IndiceCol : Integer;
begin
@ -738,6 +737,9 @@ var
ATipo : String;
begin
inherited;
AStyle := NIL;
if Assigned(AItem) then
begin
if Odd(ARecord.Index) then
@ -746,9 +748,25 @@ begin
AStyle := cxStyle_NORMAL_IMPAR;
end;
AStyle := NIL;
if Assigned(ARecord) then
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);
if ATipo = TIPO_DETALLE_TITULO then
@ -762,7 +780,9 @@ begin
if ATipo = TIPO_DETALLE_DESCUENTO then
AStyle := cxStyle_DESCUENTO;
}
end;
end;
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'
TargetTable = 'V_FACTURAS_CLIENTE'
SQL =
'select ID_EMPRESA,'#10'extract (month from fecha_factura) as MES,'#10'ca' +
'se'#10'when extract (month from fecha_factura) = 1 then '#39'ENERO - '#39' |' +
'| extract (year from fecha_factura)'#10'when extract (month from fec' +
'ha_factura) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_fa' +
'ctura)'#10'when extract (month from fecha_factura) = 3 then '#39'MARZO -' +
' '#39' || extract (year from fecha_factura)'#10'when extract (month from' +
' fecha_factura) = 4 then '#39'ABRIL - '#39' || extract (year from fecha_' +
'factura)'#10'when extract (month from fecha_factura) = 5 then '#39'MAYO ' +
'- '#39' || extract (year from fecha_factura)'#10'when extract (month fro' +
'm fecha_factura) = 6 then '#39'JUNIO - '#39' || extract (year from fecha' +
'_factura)'#10'when extract (month from fecha_factura) = 7 then '#39'JULI' +
'O - '#39' || extract (year from fecha_factura)'#10'when extract (month f' +
'rom fecha_factura) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' +
'cha_factura)'#10'when extract (month from fecha_factura) = 9 then '#39'S' +
'EPTIEMBRE - '#39' || extract (year from fecha_factura)'#10'when extract ' +
'(month from fecha_factura) = 10 then '#39'OCTUBRE - '#39' || extract (ye' +
'ar from fecha_factura)'#10'when extract (month from fecha_factura) =' +
' 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_factura)'#10'whe' +
'n extract (month from fecha_factura) = 12 then '#39'DICIEMBRE - '#39' ||' +
' extract (year from fecha_factura)'#10'end as TITULO,'#10'REFERENCIA, I' +
'D_CLIENTE, NOMBRE, SITUACION, NIF_CIF, FECHA_FACTURA, BASE_IMPON' +
'IBLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where ' +
'{where}'#10'order by FECHA_FACTURA'#10#10
'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' +
'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' +
' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' +
'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 +
'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' +
'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' +
'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' +
'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' +
'(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' +
'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' +
'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' +
' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' +
' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' +
' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' +
'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' +
'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' +
'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' +
#10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' +
#39' || extract (year from fecha_factura)'#10'when extract (month from ' +
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE, SIT' +
'UACION, NIF_CIF, FECHA_FACTURA, BASE_IMPONIBLE, IMPORTE_IVA, IMP' +
'ORTE_TOTAL'#10#10'from V_facturas_cliente'#10'where {where}'#10'order by ANO, ' +
'MES, NOMBRE'#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -540,6 +541,11 @@ object RptFacturasCliente: TRptFacturasCliente
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ANO'
TableField = '<unknown>'
SQLOrigin = 'ANO'
end>
end>
Name = 'InformeListadoFacturas'
@ -548,6 +554,10 @@ object RptFacturasCliente: TRptFacturasCliente
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ANO'
DataType = datSmallInt
end
item
Name = 'MES'
DataType = datSmallInt

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

@ -421,29 +421,30 @@ object RptFacturasProveedor: TRptFacturasProveedor
Connection = 'IBX'
TargetTable = 'V_FACTURAS_PROVEEDOR'
SQL =
'select ID_EMPRESA,'#10'extract (month from fecha_factura) as MES,'#10'ca' +
'se'#10'when extract (month from fecha_factura) = 1 then '#39'ENERO - '#39' |' +
'| extract (year from fecha_factura)'#10'when extract (month from fec' +
'ha_factura) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_fa' +
'ctura)'#10'when extract (month from fecha_factura) = 3 then '#39'MARZO -' +
' '#39' || extract (year from fecha_factura)'#10'when extract (month from' +
' fecha_factura) = 4 then '#39'ABRIL - '#39' || extract (year from fecha_' +
'factura)'#10'when extract (month from fecha_factura) = 5 then '#39'MAYO ' +
'- '#39' || extract (year from fecha_factura)'#10'when extract (month fro' +
'm fecha_factura) = 6 then '#39'JUNIO - '#39' || extract (year from fecha' +
'_factura)'#10'when extract (month from fecha_factura) = 7 then '#39'JULI' +
'O - '#39' || extract (year from fecha_factura)'#10'when extract (month f' +
'rom fecha_factura) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' +
'cha_factura)'#10'when extract (month from fecha_factura) = 9 then '#39'S' +
'EPTIEMBRE - '#39' || extract (year from fecha_factura)'#10'when extract ' +
'(month from fecha_factura) = 10 then '#39'OCTUBRE - '#39' || extract (ye' +
'ar from fecha_factura)'#10'when extract (month from fecha_factura) =' +
' 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_factura)'#10'whe' +
'n extract (month from fecha_factura) = 12 then '#39'DICIEMBRE - '#39' ||' +
' extract (year from fecha_factura)'#10'end as TITULO,'#10'REFERENCIA, I' +
'D_PROVEEDOR, NOMBRE, SITUACION, NIF_CIF, FECHA_FACTURA, BASE_IMP' +
'ONIBLE, IMPORTE_IVA, IMPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'wh' +
'ere {where}'#10'order by FECHA_FACTURA'#10#10
'select ID_EMPRESA,'#10'extract (year from fecha_factura) as ANO,'#10'ext' +
'ract (month from fecha_factura) as MES,'#10'case'#10'when extract (month' +
' from fecha_factura) = 1 then '#39'ENERO - '#39' || extract (year from f' +
'echa_factura)'#10'when extract (month from fecha_factura) = 2 then '#39 +
'FEBRERO - '#39' || extract (year from fecha_factura)'#10'when extract (m' +
'onth from fecha_factura) = 3 then '#39'MARZO - '#39' || extract (year fr' +
'om fecha_factura)'#10'when extract (month from fecha_factura) = 4 th' +
'en '#39'ABRIL - '#39' || extract (year from fecha_factura)'#10'when extract ' +
'(month from fecha_factura) = 5 then '#39'MAYO - '#39' || extract (year f' +
'rom fecha_factura)'#10'when extract (month from fecha_factura) = 6 t' +
'hen '#39'JUNIO - '#39' || extract (year from fecha_factura)'#10'when extract' +
' (month from fecha_factura) = 7 then '#39'JULIO - '#39' || extract (year' +
' from fecha_factura)'#10'when extract (month from fecha_factura) = 8' +
' then '#39'AGOSTO - '#39' || extract (year from fecha_factura)'#10'when extr' +
'act (month from fecha_factura) = 9 then '#39'SEPTIEMBRE - '#39' || extra' +
'ct (year from fecha_factura)'#10'when extract (month from fecha_fact' +
'ura) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_factura)' +
#10'when extract (month from fecha_factura) = 11 then '#39'NOVIEMBRE - ' +
#39' || extract (year from fecha_factura)'#10'when extract (month from ' +
'fecha_factura) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fe' +
'cha_factura)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, S' +
'ITUACION, NIF_CIF, FECHA_FACTURA, BASE_IMPONIBLE, IMPORTE_IVA, I' +
'MPORTE_TOTAL'#10#10'from V_facturas_proveedor'#10'where {where}'#10'order by A' +
'NO, MES, NOMBRE'#10#10
StatementType = stSQL
ColumnMappings = <
item
@ -495,6 +496,11 @@ object RptFacturasProveedor: TRptFacturasProveedor
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ANO'
TableField = '<unknown>'
SQLOrigin = 'ANO'
end>
end>
Name = 'InformeListadoFacturas'
@ -503,6 +509,10 @@ object RptFacturasProveedor: TRptFacturasProveedor
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ANO'
DataType = datSmallInt
end
item
Name = 'MES'
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'
Name = 'IBX'
SQL =
#10' '#10'select ID_EMPRESA,'#10'extract (month from fecha_pedido) as MES,' +
#10'case'#10'when extract (month from fecha_pedido) = 1 then '#39'ENERO - '#39 +
' || extract (year from fecha_pedido)'#10'when extract (month from fe' +
'cha_pedido) = 2 then '#39'FEBRERO - '#39' || extract (year from fecha_pe' +
'dido)'#10'when extract (month from fecha_pedido) = 3 then '#39'MARZO - '#39 +
' || extract (year from fecha_pedido)'#10'when extract (month from fe' +
'cha_pedido) = 4 then '#39'ABRIL - '#39' || extract (year from fecha_pedi' +
'do)'#10'when extract (month from fecha_pedido) = 5 then '#39'MAYO - '#39' ||' +
' extract (year from fecha_pedido)'#10'when extract (month from fecha' +
'_pedido) = 6 then '#39'JUNIO - '#39' || extract (year from fecha_pedido)' +
#10'when extract (month from fecha_pedido) = 7 then '#39'JULIO - '#39' || e' +
'xtract (year from fecha_pedido)'#10'when extract (month from fecha_p' +
'edido) = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_pedido)'#10 +
'when extract (month from fecha_pedido) = 9 then '#39'SEPTIEMBRE - '#39' ' +
'|| extract (year from fecha_pedido)'#10'when extract (month from fec' +
'ha_pedido) = 10 then '#39'OCTUBRE - '#39' || extract (year from fecha_pe' +
'dido)'#10'when extract (month from fecha_pedido) = 11 then '#39'NOVIEMBR' +
'E - '#39' || extract (year from fecha_pedido)'#10'when extract (month fr' +
'om fecha_pedido) = 12 then '#39'DICIEMBRE - '#39' || extract (year from ' +
'fecha_pedido)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, ' +
'SITUACION, fecha_pedido, FECHA_CONFIRMACION, FECHA_ENTREGA, IMPO' +
'RTE_TOTAL'#10#10'from V_PEDIDOS_PROVEEDOR'#10'where {where}'#10'order by FECHA' +
'_PEDIDO'#10
#10' '#10'select ID_EMPRESA,'#10'extract (year from fecha_pedido) as ANO,'#10 +
'extract (month from fecha_pedido) as MES,'#10'case'#10'when extract (mon' +
'th from fecha_pedido) = 1 then '#39'ENERO - '#39' || extract (year from ' +
'fecha_pedido)'#10'when extract (month from fecha_pedido) = 2 then '#39'F' +
'EBRERO - '#39' || extract (year from fecha_pedido)'#10'when extract (mon' +
'th from fecha_pedido) = 3 then '#39'MARZO - '#39' || extract (year from ' +
'fecha_pedido)'#10'when extract (month from fecha_pedido) = 4 then '#39'A' +
'BRIL - '#39' || extract (year from fecha_pedido)'#10'when extract (month' +
' from fecha_pedido) = 5 then '#39'MAYO - '#39' || extract (year from fec' +
'ha_pedido)'#10'when extract (month from fecha_pedido) = 6 then '#39'JUNI' +
'O - '#39' || extract (year from fecha_pedido)'#10'when extract (month fr' +
'om fecha_pedido) = 7 then '#39'JULIO - '#39' || extract (year from fecha' +
'_pedido)'#10'when extract (month from fecha_pedido) = 8 then '#39'AGOSTO' +
' - '#39' || extract (year from fecha_pedido)'#10'when extract (month fro' +
'm fecha_pedido) = 9 then '#39'SEPTIEMBRE - '#39' || extract (year from f' +
'echa_pedido)'#10'when extract (month from fecha_pedido) = 10 then '#39'O' +
'CTUBRE - '#39' || extract (year from fecha_pedido)'#10'when extract (mon' +
'th from fecha_pedido) = 11 then '#39'NOVIEMBRE - '#39' || extract (year ' +
'from fecha_pedido)'#10'when extract (month from fecha_pedido) = 12 t' +
'hen '#39'DICIEMBRE - '#39' || extract (year from fecha_pedido)'#10'end as TI' +
'TULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE, SITUACION, fecha_pedido' +
', FECHA_CONFIRMACION, FECHA_ENTREGA, IMPORTE_TOTAL'#10#10'from V_PEDID' +
'OS_PROVEEDOR'#10'where {where}'#10'order by ANO, MES, NOMBRE'#10
StatementType = stSQL
ColumnMappings = <
item
@ -91,6 +91,11 @@ object RptPedidosProveedor: TRptPedidosProveedor
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ANO'
TableField = '<unknown>'
SQLOrigin = 'ANO'
end>
end>
Name = 'InformeListadoPedidos'
@ -99,6 +104,10 @@ object RptPedidosProveedor: TRptPedidosProveedor
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ANO'
DataType = datSmallInt
end
item
Name = 'MES'
DataType = datSmallInt

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

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

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

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

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

@ -76,11 +76,11 @@ type
DAMemDataTable1: TDAMemDataTable;
DAMemDataTable2: TDAMemDataTable;
frxPDFExport1: TfrxPDFExport;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
DADSInformeListadoPresupuestos: TDADataSource;
tbl_InformeListadoPresupuestos: TDAMemDataTable;
frxDBInformeListadoPresupuestos: TfrxDBDataset;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
procedure DataModuleCreate(Sender: TObject);
private
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'
Name = 'IBX'
SQL =
'select ID_EMPRESA,'#10'extract (month from fecha_vencimiento) as MES' +
','#10'case'#10'when extract (month from fecha_vencimiento) = 1 then '#39'ENE' +
'RO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (mo' +
'nth from fecha_vencimiento) = 2 then '#39'FEBRERO - '#39' || extract (ye' +
'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
#10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
'(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' +
'iento) = 3 then '#39'MARZO - '#39' || extract (year from fecha_vencimien' +
'to)'#10'when extract (month from fecha_vencimiento) = 4 then '#39'ABRIL ' +
'- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
' from fecha_vencimiento) = 5 then '#39'MAYO - '#39' || extract (year fro' +
'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
' = 6 then '#39'JUNIO - '#39' || extract (year from fecha_vencimiento)'#10'wh' +
'en extract (month from fecha_vencimiento) = 7 then '#39'JULIO - '#39' ||' +
' extract (year from fecha_vencimiento)'#10'when extract (month from ' +
'fecha_vencimiento) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' +
'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' +
' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
'- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
'nto) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fecha_vencim' +
'iento)'#10'end as TITULO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, S' +
'ITUACION, NIF_CIF_CLIENTE, fecha_vencimiento, FECHA_EMISION,'#10'IMP' +
'ORTE_TOTAL'#10#10'from V_recibos_cliente'#10'where {where}'#10'order by FECHA_' +
'VENCIMIENTO'#10#10
'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
'LO,'#10'REFERENCIA, ID_CLIENTE, NOMBRE_CLIENTE, SITUACION, NIF_CIF_' +
'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
ColumnMappings = <
item
@ -330,6 +331,10 @@ object RptRecibosCliente: TRptRecibosCliente
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ANO'
TableField = 'ANO'
end>
end>
Name = 'InformeListadoRecibos'
@ -338,6 +343,10 @@ object RptRecibosCliente: TRptRecibosCliente
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ANO'
DataType = datSmallInt
end
item
Name = 'MES'
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'
Name = 'IBX'
SQL =
'select ID_EMPRESA,'#10'extract (month from fecha_vencimiento) as MES' +
','#10'case'#10'when extract (month from fecha_vencimiento) = 1 then '#39'ENE' +
'RO - '#39' || extract (year from fecha_vencimiento)'#10'when extract (mo' +
'nth from fecha_vencimiento) = 2 then '#39'FEBRERO - '#39' || extract (ye' +
'select ID_EMPRESA,'#10'extract (year from fecha_vencimiento) as ANO,' +
#10'extract (month from fecha_vencimiento) as MES,'#10'case'#10'when extrac' +
't (month from fecha_vencimiento) = 1 then '#39'ENERO - '#39' || extract ' +
'(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' +
'iento) = 3 then '#39'MARZO - '#39' || extract (year from fecha_vencimien' +
'to)'#10'when extract (month from fecha_vencimiento) = 4 then '#39'ABRIL ' +
'- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
' from fecha_vencimiento) = 5 then '#39'MAYO - '#39' || extract (year fro' +
'iento) = 5 then '#39'MAYO - '#39' || extract (year from fecha_vencimient' +
'o)'#10'when extract (month from fecha_vencimiento) = 6 then '#39'JUNIO -' +
' '#39' || extract (year from fecha_vencimiento)'#10'when extract (month ' +
'from fecha_vencimiento) = 7 then '#39'JULIO - '#39' || extract (year fro' +
'm fecha_vencimiento)'#10'when extract (month from fecha_vencimiento)' +
' = 6 then '#39'JUNIO - '#39' || extract (year from fecha_vencimiento)'#10'wh' +
'en extract (month from fecha_vencimiento) = 7 then '#39'JULIO - '#39' ||' +
' extract (year from fecha_vencimiento)'#10'when extract (month from ' +
'fecha_vencimiento) = 8 then '#39'AGOSTO - '#39' || extract (year from fe' +
'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' +
' = 8 then '#39'AGOSTO - '#39' || extract (year from fecha_vencimiento)'#10'w' +
'hen extract (month from fecha_vencimiento) = 9 then '#39'SEPTIEMBRE ' +
'- '#39' || extract (year from fecha_vencimiento)'#10'when extract (month' +
' from fecha_vencimiento) = 10 then '#39'OCTUBRE - '#39' || extract (year' +
' from fecha_vencimiento)'#10'when extract (month from fecha_vencimie' +
'nto) = 12 then '#39'DICIEMBRE - '#39' || extract (year from fecha_vencim' +
'iento)'#10'end as TITULO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE_PROVEEDO' +
'R, SITUACION, NIF_CIF_PROVEEDOR, fecha_vencimiento, FECHA_EMISIO' +
'N,'#10'IMPORTE_TOTAL'#10#10'from V_recibos_proveedor'#10'where {where}'#10'order b' +
'y FECHA_VENCIMIENTO'#10#10
'nto) = 11 then '#39'NOVIEMBRE - '#39' || extract (year from fecha_vencim' +
'iento)'#10'when extract (month from fecha_vencimiento) = 12 then '#39'DI' +
'CIEMBRE - '#39' || extract (year from fecha_vencimiento)'#10'end as TITU' +
'LO,'#10'REFERENCIA, ID_PROVEEDOR, NOMBRE_PROVEEDOR, SITUACION, NIF_' +
'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
ColumnMappings = <
item
@ -330,6 +331,10 @@ object RptRecibosProveedor: TRptRecibosProveedor
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
end
item
DatasetField = 'ANO'
TableField = 'ANO'
end>
end>
Name = 'InformeListadoRecibos'
@ -338,6 +343,10 @@ object RptRecibosProveedor: TRptRecibosProveedor
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'ANO'
DataType = datSmallInt
end
item
Name = 'MES'
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">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>