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

Arreglado fallo al generar el informe de pedido a proveedor

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@424 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-06-04 11:40:00 +00:00
parent bdbdc6c74c
commit eacb5df31b
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -354,19 +354,18 @@ object RptPedidosProveedor: TRptPedidosProveedor
object frxDBCabecera: TfrxDBDataset object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
CloseDataSource = False CloseDataSource = False
DataSource = DataSource1 DataSource = DADSCabecera
Left = 360 Left = 360
Top = 24 Top = 24
end end
object frxDBDetalles: TfrxDBDataset object frxDBDetalles: TfrxDBDataset
UserName = 'frxDBDetalles' UserName = 'frxDBDetalles'
CloseDataSource = False CloseDataSource = False
DataSource = DataSource2 DataSource = DADSDetalles
Left = 440 Left = 440
Top = 24 Top = 24
end end
object IBDatabase1: TIBDatabase object IBDatabase1: TIBDatabase
Connected = True
DatabaseName = 'C:\Codigo Tecsitel\Output\Debug\Database\FACTUGES.FDB' DatabaseName = 'C:\Codigo Tecsitel\Output\Debug\Database\FACTUGES.FDB'
Params.Strings = ( Params.Strings = (
'user_name=sysdba' 'user_name=sysdba'
@ -378,7 +377,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
Top = 296 Top = 296
end end
object IBTransaction1: TIBTransaction object IBTransaction1: TIBTransaction
Active = True
Left = 48 Left = 48
Top = 352 Top = 352
end end
@ -395,7 +393,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
object cabecera: TIBQuery object cabecera: TIBQuery
Database = IBDatabase1 Database = IBDatabase1
Transaction = IBTransaction1 Transaction = IBTransaction1
Active = True
SQL.Strings = ( SQL.Strings = (
'SELECT' 'SELECT'
' V_PEDIDOS_PROVEEDOR.ID,' ' V_PEDIDOS_PROVEEDOR.ID,'
@ -493,7 +490,6 @@ object RptPedidosProveedor: TRptPedidosProveedor
object detalles: TIBQuery object detalles: TIBQuery
Database = IBDatabase1 Database = IBDatabase1
Transaction = IBTransaction1 Transaction = IBTransaction1
Active = True
SQL.Strings = ( SQL.Strings = (
'SELECT DET.ID, DET.ID_PEDIDO,' 'SELECT DET.ID, DET.ID_PEDIDO,'
' DET.POSICION, DET.TIPO_DETALLE,' ' DET.POSICION, DET.TIPO_DETALLE,'