Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Se añade el incorporar una imagen en los articulos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@552 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2012-04-13 11:55:51 +00:00
parent 2b38fa1aa6
commit 2e593cbaf9
2 changed files with 303 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

294
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.dfm
View File

@ -481,6 +481,185 @@ object RptContratosCliente: TRptContratosCliente
end> end>
ReadOnly = True ReadOnly = True
end end
item
Params = <
item
Name = 'id_contrato'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
Name = 'IBX'
SQL =
'select *'#10'from articulos'#10'where id'#10'in (select id_articulo'#10' from' +
' contratos_cliente_detalles'#10' where id_contrato = :id_contrato' +
#10' and id_articulo > 0)'#10'and imagen is not null'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'FAMILIA'
TableField = 'FAMILIA'
end
item
DatasetField = 'IMAGEN'
TableField = 'IMAGEN'
end
item
DatasetField = 'COMISIONABLE'
TableField = 'COMISIONABLE'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'REFERENCIA_PROV'
TableField = 'REFERENCIA_PROV'
end
item
DatasetField = 'PRECIO_COSTE'
TableField = 'PRECIO_COSTE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'PRECIO_NETO'
TableField = 'PRECIO_NETO'
end
item
DatasetField = 'PRECIO_PORTE'
TableField = 'PRECIO_PORTE'
end
item
DatasetField = 'PRECIO_PVP'
TableField = 'PRECIO_PVP'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'INVENTARIABLE'
TableField = 'INVENTARIABLE'
end
item
DatasetField = 'ELIMINADO'
TableField = 'ELIMINADO'
end>
end>
Name = 'DetallesArticulos'
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end
item
Name = 'IMAGEN'
DataType = datBlob
end
item
Name = 'COMISIONABLE'
DataType = datSmallInt
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
end>
end
item item
Params = < Params = <
item item
@ -837,7 +1016,7 @@ object RptContratosCliente: TRptContratosCliente
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0 PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 40420.450887569440000000 ReportOptions.LastChange = 41012.566414745370000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
ShowProgress = False ShowProgress = False
StoreInDFM = False StoreInDFM = False
@ -1555,4 +1734,117 @@ object RptContratosCliente: TRptContratosCliente
Left = 352 Left = 352
Top = 304 Top = 304
end end
object tbl_DetallesArticulos: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datInteger
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
end
item
Name = 'FAMILIA'
DataType = datString
Size = 255
end
item
Name = 'IMAGEN'
DataType = datBlob
end
item
Name = 'COMISIONABLE'
DataType = datSmallInt
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'REFERENCIA_PROV'
DataType = datString
Size = 255
end
item
Name = 'PRECIO_COSTE'
DataType = datCurrency
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'PRECIO_NETO'
DataType = datCurrency
end
item
Name = 'PRECIO_PORTE'
DataType = datCurrency
end
item
Name = 'PRECIO_PVP'
DataType = datCurrency
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end
item
Name = 'INVENTARIABLE'
DataType = datSmallInt
end
item
Name = 'ELIMINADO'
DataType = datSmallInt
end>
Params = <
item
Name = 'id_contrato'
Value = ''
end>
LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False
LocalSchema = schReport
LocalDataStreamer = DABin2DataStreamer1
LogicalName = 'DetallesArticulos'
IndexDefs = <>
Left = 528
Top = 128
end
object DADSDetallesArticulos: TDADataSource
DataSet = tbl_DetallesArticulos.Dataset
DataTable = tbl_DetallesArticulos
Left = 528
Top = 72
end
object frxDBDetallesArticulos: TfrxDBDataset
UserName = 'frxDBDetallesArticulos'
CloseDataSource = False
DataSource = DADSDetallesArticulos
BCDToCurrency = False
Left = 528
Top = 16
end
end end

10
Source/Modulos/Contratos de cliente/Reports/uRptContratosCliente_Server.pas
View File

@ -64,11 +64,14 @@ type
cabeceraPOBLACION: TIBStringField; cabeceraPOBLACION: TIBStringField;
cabeceraPROVINCIA: TIBStringField; cabeceraPROVINCIA: TIBStringField;
cabeceraCODIGO_POSTAL: TIBStringField; cabeceraCODIGO_POSTAL: TIBStringField;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
frxDBCondiciones: TfrxDBDataset; frxDBCondiciones: TfrxDBDataset;
DADSCondiciones: TDADataSource; DADSCondiciones: TDADataSource;
tbl_Condiciones: TDAMemDataTable; tbl_Condiciones: TDAMemDataTable;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
tbl_DetallesArticulos: TDAMemDataTable;
DADSDetallesArticulos: TDADataSource;
frxDBDetallesArticulos: TfrxDBDataset;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
function frxReportUserFunction(const MethodName: string; function frxReportUserFunction(const MethodName: string;
@ -520,10 +523,12 @@ begin
tbl_Capitulos.Active := False; tbl_Capitulos.Active := False;
tbl_Detalles.Active := False; tbl_Detalles.Active := False;
tbl_Condiciones.Active := False; tbl_Condiciones.Active := False;
tbl_DetallesArticulos.Active := False;
tbl_Cabecera.ParamByName('ID').AsInteger := AID; tbl_Cabecera.ParamByName('ID').AsInteger := AID;
tbl_Capitulos.ParamByName('ID_PRE_CON').AsInteger := AID; tbl_Capitulos.ParamByName('ID_PRE_CON').AsInteger := AID;
tbl_Detalles.ParamByName('ID_PRE_CON').AsInteger := AID; tbl_Detalles.ParamByName('ID_PRE_CON').AsInteger := AID;
tbl_DetallesArticulos.ParamByName('ID_CONTRATO').AsInteger := AID;
// Se asignan los parametros en este orden para que funcionen // Se asignan los parametros en este orden para que funcionen
// dentro de las relaciones maestro-detalle (capítulos y conceptos). // dentro de las relaciones maestro-detalle (capítulos y conceptos).
@ -532,6 +537,7 @@ begin
tbl_Capitulos.Active := True; tbl_Capitulos.Active := True;
tbl_Detalles.Active := True; tbl_Detalles.Active := True;
tbl_Condiciones.Active := True; tbl_Condiciones.Active := True;
tbl_DetallesArticulos.Active := True;
AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString); AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString);
if VarIsNull(AInforme) then if VarIsNull(AInforme) then