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

Repaso a las unidades de generación de informes del servidor.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@617 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-09-24 14:41:41 +00:00
parent cb9669b9a1
commit 7708ce91c8
11 changed files with 69 additions and 1533 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
View File

@ -97,6 +97,9 @@ begin
schReport.ConnectionManager := dmServer.ConnectionManager; schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion; FConnection := dmServer.DarNuevaConexion;
frxReport.EngineOptions.NewSilentMode := simReThrow; frxReport.EngineOptions.NewSilentMode := simReThrow;
frxDBCabecera.DataSource := DADSCabecera;
frxDBDetalles.DataSource := DADSDetalles;
end; end;
function TRptAlbaranesCliente.GenerarAlbaran(const AListaID : TIntegerArray): Binary; function TRptAlbaranesCliente.GenerarAlbaran(const AListaID : TIntegerArray): Binary;
@ -137,42 +140,18 @@ begin
end; end;
procedure TRptAlbaranesCliente._GenerarAlbaran(const AID: Integer); procedure TRptAlbaranesCliente._GenerarAlbaran(const AID: Integer);
var
AStream: TMemoryStream;
dsMaster: IDADataset;
dsDetail: IDADataset;
begin begin
//AStream := TMemoryStream.Create; tbl_Cabecera.Active := False;
tbl_Detalles.Active := False;
try tbl_Cabecera.ParamByName('ID').AsInteger := AID;
{dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [ID]); tbl_Detalles.ParamByName('ID_ALBARAN').AsInteger := AID;
dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID_ALBARAN'], [ID], False);
AStream.Clear; tbl_Cabecera.Active := True;
DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1); tbl_Detalles.Active := True;
DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
AStream.Clear; frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1); frxReport.PrepareReport(False);
DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);}
frxDBCabecera.DataSource := DADSCabecera;
frxDBDetalles.DataSource := DADSDetalles;
tbl_Cabecera.ParamByName('ID').AsInteger := AID;
tbl_Detalles.ParamByName('ID_ALBARAN').AsInteger := AID;
tbl_Cabecera.Active := True;
tbl_Detalles.Active := True;
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
frxReport.PrepareReport(False);
finally
AStream.Free;
dsMaster := Nil;
dsDetail := Nil;
end;
end; end;
function TRptAlbaranesCliente.GenerarEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary; function TRptAlbaranesCliente.GenerarEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;

388
Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.dfm
View File

@ -4,11 +4,13 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
Height = 405 Height = 405
Width = 447 Width = 447
object DADataCabecera: TDADataSource object DADataCabecera: TDADataSource
DataSet = tbl_Cabecera.Dataset
DataTable = tbl_Cabecera DataTable = tbl_Cabecera
Left = 264 Left = 264
Top = 72 Top = 72
end end
object DADataDetalles: TDADataSource object DADataDetalles: TDADataSource
DataSet = tbl_Detalles.Dataset
DataTable = tbl_Detalles DataTable = tbl_Detalles
Left = 344 Left = 344
Top = 72 Top = 72
@ -21,11 +23,6 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
@ -40,11 +37,6 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
@ -92,7 +84,6 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -223,293 +214,122 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_ALBARAN' Name = 'FECHA_ALBARAN'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_PEDIDO' Name = 'ID_PEDIDO'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REF_PED_PROVEEDOR' Name = 'REF_PED_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TELEFONO' Name = 'TELEFONO'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NOMBRE_EMPRESA' Name = 'NOMBRE_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'RAZON_SOCIAL_EMPRESA' Name = 'RAZON_SOCIAL_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TELEFONO_1_EMPRESA' Name = 'TELEFONO_1_EMPRESA'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FAX_EMPRESA' Name = 'FAX_EMPRESA'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'MOVIL_1_EMPRESA' Name = 'MOVIL_1_EMPRESA'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'EMAIL_1_EMPRESA' Name = 'EMAIL_1_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PAGINA_WEB_EMPRESA' Name = 'PAGINA_WEB_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end end
item item
Params = < Params = <
item item
Name = 'ID_ALBARAN' Name = 'ID_ALBARAN'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -580,135 +400,59 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_ALBARAN' Name = 'ID_ALBARAN'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'POSICION' Name = 'POSICION'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TIPO_DETALLE' Name = 'TIPO_DETALLE'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CONCEPTO' Name = 'CONCEPTO'
DataType = datString DataType = datString
Size = 2000 Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CANTIDAD' Name = 'CANTIDAD'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_UNIDAD' Name = 'IMPORTE_UNIDAD'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FAMILIA' Name = 'FAMILIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end> end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <> Commands = <>
RelationShips = <> RelationShips = <>
UpdateRules = <> UpdateRules = <>
Version = 0
Left = 48 Left = 48
Top = 16 Top = 16
end end
@ -717,299 +461,204 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
item item
Name = 'FacturasCliente_ID' Name = 'FacturasCliente_ID'
DataType = datAutoInc DataType = datAutoInc
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
DisplayLabel = 'ID' DisplayLabel = 'ID'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_ID_EMPRESA' Name = 'FacturasCliente_ID_EMPRESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_EMPRESA' DisplayLabel = 'ID_EMPRESA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_ID_CONTRATO' Name = 'FacturasCliente_ID_CONTRATO'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_CONTRATO' DisplayLabel = 'ID_CONTRATO'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_FECHA_FACTURA' Name = 'FacturasCliente_FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha de las factura' DisplayLabel = 'Fecha de las factura'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_VENCIMIENTO' Name = 'FacturasCliente_VENCIMIENTO'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Vencimiento' DisplayLabel = 'Vencimiento'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_SITUACION' Name = 'FacturasCliente_SITUACION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Situaci'#243'n' DisplayLabel = 'Situaci'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_BASE_IMPONIBLE' Name = 'FacturasCliente_BASE_IMPONIBLE'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Base imponible' DisplayLabel = 'Base imponible'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_IMPORTE_DESCUENTO' Name = 'FacturasCliente_IMPORTE_DESCUENTO'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe dto.' DisplayLabel = 'Importe dto.'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_IMPORTE_IVA' Name = 'FacturasCliente_IMPORTE_IVA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe IVA' DisplayLabel = 'Importe IVA'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_IMPORTE_TOTAL' Name = 'FacturasCliente_IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe total' DisplayLabel = 'Importe total'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_FORMA_PAGO' Name = 'FacturasCliente_FORMA_PAGO'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Forma de pago' DisplayLabel = 'Forma de pago'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_ID_CLIENTE' Name = 'FacturasCliente_ID_CLIENTE'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_CLIENTE' DisplayLabel = 'ID_CLIENTE'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_NIF_CIF' Name = 'FacturasCliente_NIF_CIF'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'NIF/CIF' DisplayLabel = 'NIF/CIF'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_CODIGO_POSTAL' Name = 'FacturasCliente_CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'C'#243'd. postal' DisplayLabel = 'C'#243'd. postal'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_FECHA_ALTA' Name = 'FacturasCliente_FECHA_ALTA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'FECHA_ALTA' DisplayLabel = 'FECHA_ALTA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_FECHA_MODIFICACION' Name = 'FacturasCliente_FECHA_MODIFICACION'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'FECHA_MODIFICACION' DisplayLabel = 'FECHA_MODIFICACION'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_OBSERVACIONES' Name = 'FacturasCliente_OBSERVACIONES'
DataType = datMemo DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Observaciones' DisplayLabel = 'Observaciones'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_NOMBRE' Name = 'FacturasCliente_NOMBRE'
DataType = datString DataType = datString
Size = 100 Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cliente' DisplayLabel = 'Cliente'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_CALLE' Name = 'FacturasCliente_CALLE'
DataType = datString DataType = datString
Size = 150 Size = 150
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Direcci'#243'n' DisplayLabel = 'Direcci'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_PROVINCIA' Name = 'FacturasCliente_PROVINCIA'
DataType = datString DataType = datString
Size = 30 Size = 30
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Provincia' DisplayLabel = 'Provincia'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_POBLACION' Name = 'FacturasCliente_POBLACION'
DataType = datString DataType = datString
Size = 150 Size = 150
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Poblaci'#243'n' DisplayLabel = 'Poblaci'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_IVA' Name = 'FacturasCliente_IVA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'IVA' DisplayLabel = 'IVA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_USUARIO' Name = 'FacturasCliente_USUARIO'
DataType = datString DataType = datString
Size = 100 Size = 100
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'USUARIO' DisplayLabel = 'USUARIO'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_REFERENCIA' Name = 'FacturasCliente_REFERENCIA'
DataType = datString DataType = datString
Size = 20 Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Referencia' DisplayLabel = 'Referencia'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_DESCUENTO' Name = 'FacturasCliente_DESCUENTO'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Dto.' DisplayLabel = 'Dto.'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_ID' Name = 'FacturasCliente_Detalles_ID'
DataType = datAutoInc DataType = datAutoInc
BlobType = dabtUnknown
Required = True Required = True
DisplayWidth = 0
DisplayLabel = 'ID' DisplayLabel = 'ID'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_ID_FACTURA' Name = 'FacturasCliente_Detalles_ID_FACTURA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_FACTURA' DisplayLabel = 'ID_FACTURA'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_TIPO_DETALLE' Name = 'FacturasCliente_Detalles_TIPO_DETALLE'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Tipo detalle' DisplayLabel = 'Tipo detalle'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_CONCEPTO' Name = 'FacturasCliente_Detalles_CONCEPTO'
DataType = datString DataType = datString
Size = 2000 Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Concepto' DisplayLabel = 'Concepto'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' Name = 'FacturasCliente_Detalles_IMPORTE_UNIDAD'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe unidad' DisplayLabel = 'Importe unidad'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL' Name = 'FacturasCliente_Detalles_IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe total' DisplayLabel = 'Importe total'
Alignment = taRightJustify Alignment = taRightJustify
end end
item item
Name = 'FacturasCliente_Detalles_VISIBLE' Name = 'FacturasCliente_Detalles_VISIBLE'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = #191'Visible?' DisplayLabel = #191'Visible?'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_POSICION' Name = 'FacturasCliente_Detalles_POSICION'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Posici'#243'n' DisplayLabel = 'Posici'#243'n'
Alignment = taLeftJustify
end end
item item
Name = 'FacturasCliente_Detalles_CANTIDAD' Name = 'FacturasCliente_Detalles_CANTIDAD'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Cantidad' DisplayLabel = 'Cantidad'
Alignment = taLeftJustify
end> end>
Left = 46 Left = 46
Top = 158 Top = 158
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '3.23.7' Version = '4.3'
DotMatrixReport = False DotMatrixReport = False
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Por defecto' PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000 ReportOptions.CreateDate = 39065.872423495400000000
ReportOptions.LastChange = 39290.783958333330000000 ReportOptions.LastChange = 39290.783958333330000000
ScriptLanguage = 'PascalScript' ScriptLanguage = 'PascalScript'
@ -1117,29 +766,6 @@ object RptAlbaranesProveedor: TRptAlbaranesProveedor
OnStartReport = 'frxReportOnStartReport' OnStartReport = 'frxReportOnStartReport'
Left = 169 Left = 169
Top = 16 Top = 16
Datasets = <
item
DataSet = frxDBCabecera
DataSetName = 'frxDBCabecera'
end
item
DataSet = frxDBDetalles
DataSetName = 'frxDBDetalles'
end>
Variables = <
item
Name = ' Paginacion'
Value = Null
end
item
Name = 'TotalPaginas'
Value = Null
end
item
Name = 'Pagina'
Value = Null
end>
Style = <>
end end
object frxDBCabecera: TfrxDBDataset object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'

2
Source/Modulos/Albaranes de proveedor/Reports/uRptAlbaranesProveedor_Server.pas
View File

@ -7,7 +7,7 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider, Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces; uDAInterfaces, uDADataStreamer;
type type
TRptAlbaranesProveedor = class(TDataModule) TRptAlbaranesProveedor = class(TDataModule)

42
Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
View File

@ -114,7 +114,11 @@ procedure TRptFacturasCliente.DataModuleCreate(Sender: TObject);
begin begin
schReport.ConnectionManager := dmServer.ConnectionManager; schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion; FConnection := dmServer.DarNuevaConexion;
frxReport.EngineOptions.NewSilentMode := simReThrow; frxReport.EngineOptions.NewSilentMode := simReThrow;
frxDBCabecera.DataSource := DADSCabecera;
frxDBDetalles.DataSource := DADSDetalles;
frxDBVencimientos.DataSource := DADSVencimientos;
end; end;
function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray): Binary; function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray): Binary;
@ -156,35 +160,21 @@ begin
end; end;
procedure TRptFacturasCliente._GenerarFactura(const ID: Integer); procedure TRptFacturasCliente._GenerarFactura(const ID: Integer);
//var
// AStream: TMemoryStream;
// dsMaster: IDADataset;
// dsDetail: IDADataset;
// dsVencimientos : IDADataset;
begin begin
// AStream := TMemoryStream.Create; tbl_Cabecera.Active := False;
tbl_Detalles.Active := False;
tbl_Vencimientos.Active := False;
try tbl_Cabecera.ParamByName('ID').AsInteger := ID;
frxDBCabecera.DataSource := DADSCabecera; tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := ID;
frxDBDetalles.DataSource := DADSDetalles; tbl_Vencimientos.ParamByName('ID_FACTURA').AsInteger := ID;
frxDBVencimientos.DataSource := DADSVencimientos;
tbl_Cabecera.ParamByName('ID').AsInteger := ID; tbl_Cabecera.Active := True;
tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := ID; tbl_Detalles.Active := True;
tbl_Vencimientos.ParamByName('ID_FACTURA').AsInteger := ID; tbl_Vencimientos.Active := True;
tbl_Cabecera.Active := True; frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
tbl_Detalles.Active := True; frxReport.PrepareReport(False);
tbl_Vencimientos.Active := True;
frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
frxReport.PrepareReport(False);
finally
// AStream.Free;
// dsMaster := Nil;
// dsDetail := Nil;
end;
end; end;
end. end.

33
Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas
View File

@ -58,6 +58,9 @@ begin
schReport.ConnectionManager := dmServer.ConnectionManager; schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion; FConnection := dmServer.DarNuevaConexion;
frxReport.EngineOptions.NewSilentMode := simReThrow; frxReport.EngineOptions.NewSilentMode := simReThrow;
frxDBCabecera.DataSource := DADataCabecera;
frxDBCompensados.DataSource := DADataCompensados;
end; end;
function TRptRecibosCliente.GenerarRecibo(const ListaID: TIntegerArray): Binary; function TRptRecibosCliente.GenerarRecibo(const ListaID: TIntegerArray): Binary;
@ -78,32 +81,18 @@ begin
end; end;
procedure TRptRecibosCliente._GenerarRecibo(const ID: Integer); procedure TRptRecibosCliente._GenerarRecibo(const ID: Integer);
var
dsMaster: IDADataset;
dsCompensados : IDADataset;
AStream: TMemoryStream;
begin begin
AStream := TMemoryStream.Create; tbl_Cabecera.Active := False;
tbl_Compensados.Active := False;
try tbl_Cabecera.ParamByName('ID').AsInteger := ID;
frxDBCabecera.DataSource := DADataCabecera; tbl_Compensados.ParamByName('ID_RECIBO').AsInteger := ID;
frxDBCompensados.DataSource := DADataCompensados;
tbl_Cabecera.ParamByName('ID').AsInteger := ID; tbl_Cabecera.Active := True;
tbl_Compensados.ParamByName('ID_RECIBO').AsInteger := ID; tbl_Compensados.Active := True;
tbl_Cabecera.Active := True; frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
tbl_Compensados.Active := True; frxReport.PrepareReport(False);
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
frxReport.PrepareReport(False);
finally
AStream.Free;
dsMaster := Nil;
dsCompensados := Nil;
end;
end; end;
end. end.

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

@ -4,6 +4,7 @@ object RptRecibosCliente: TRptRecibosCliente
Height = 405 Height = 405
Width = 447 Width = 447
object DADataCabecera: TDADataSource object DADataCabecera: TDADataSource
DataSet = tbl_Cabecera.Dataset
DataTable = tbl_Cabecera DataTable = tbl_Cabecera
Left = 264 Left = 264
Top = 72 Top = 72
@ -16,11 +17,6 @@ object RptRecibosCliente: TRptRecibosCliente
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
@ -68,7 +64,6 @@ object RptRecibosCliente: TRptRecibosCliente
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -251,429 +246,178 @@ object RptRecibosCliente: TRptRecibosCliente
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 9 Size = 9
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_REMESA' Name = 'ID_REMESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA_REMESA' Name = 'REFERENCIA_REMESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_EMISION' Name = 'FECHA_EMISION'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE' Name = 'IMPORTE'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'OTROS_GASTOS' Name = 'OTROS_GASTOS'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FORMA_PAGO_FACTURA' Name = 'FORMA_PAGO_FACTURA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_FACTURA' Name = 'IMPORTE_FACTURA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NOMBRE_CLIENTE' Name = 'NOMBRE_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NIF_CIF_CLIENTE' Name = 'NIF_CIF_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ENTIDAD_CLIENTE' Name = 'ENTIDAD_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'SUCURSAL_CLIENTE' Name = 'SUCURSAL_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DC_CLIENTE' Name = 'DC_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CUENTA_CLIENTE' Name = 'CUENTA_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'RAZON_SOCIAL' Name = 'RAZON_SOCIAL'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CALLE_EMPRESA' Name = 'CALLE_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'POBLACION_EMPRESA' Name = 'POBLACION_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PROVINCIA_EMPRESA' Name = 'PROVINCIA_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CODIGO_POSTAL_EMPRESA' Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'MOVIL_1' Name = 'MOVIL_1'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'EMAIL_1' Name = 'EMAIL_1'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PAGINA_WEB' Name = 'PAGINA_WEB'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REGISTRO_MERCANTIL' Name = 'REGISTRO_MERCANTIL'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'LOGOTIPO' Name = 'LOGOTIPO'
DataType = datBlob DataType = datBlob
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end> end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <> Commands = <>
RelationShips = <> RelationShips = <>
UpdateRules = <> UpdateRules = <>
Version = 0
Left = 48 Left = 48
Top = 16 Top = 16
end end
@ -683,7 +427,7 @@ object RptRecibosCliente: TRptRecibosCliente
Top = 158 Top = 158
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '3.23.7' Version = '4.3'
DotMatrixReport = False DotMatrixReport = False
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
@ -691,6 +435,7 @@ object RptRecibosCliente: TRptRecibosCliente
PreviewOptions.OutlineWidth = 180 PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.Description.Strings = ( ReportOptions.Description.Strings = (
'Demonstrates how to create simple list report.') 'Demonstrates how to create simple list report.')
@ -737,13 +482,6 @@ object RptRecibosCliente: TRptRecibosCliente
StoreInDFM = False StoreInDFM = False
Left = 169 Left = 169
Top = 16 Top = 16
Datasets = <
item
DataSet = frxDBCabecera
DataSetName = 'frxDBCabecera'
end>
Variables = <>
Style = <>
end end
object frxDBCabecera: TfrxDBDataset object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'

2
Source/Modulos/Recibos de proveedor/Reports/uRptRecibosProveedor_Server.pas
View File

@ -7,7 +7,7 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider, Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces; uDAInterfaces, uDADataStreamer;
type type
TRptRecibosCliente = class(TDataModule) TRptRecibosCliente = class(TDataModule)

394
Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.dfm
View File

@ -4,11 +4,13 @@ object RptRemesasCliente: TRptRemesasCliente
Height = 405 Height = 405
Width = 447 Width = 447
object DADataCabecera: TDADataSource object DADataCabecera: TDADataSource
DataSet = tbl_Cabecera.Dataset
DataTable = tbl_Cabecera DataTable = tbl_Cabecera
Left = 264 Left = 264
Top = 72 Top = 72
end end
object DADataDetalles: TDADataSource object DADataDetalles: TDADataSource
DataSet = tbl_Detalles.Dataset
DataTable = tbl_Detalles DataTable = tbl_Detalles
Left = 344 Left = 344
Top = 72 Top = 72
@ -21,11 +23,6 @@ object RptRemesasCliente: TRptRemesasCliente
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
@ -40,11 +37,6 @@ object RptRemesasCliente: TRptRemesasCliente
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
@ -92,7 +84,6 @@ object RptRemesasCliente: TRptRemesasCliente
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -221,295 +212,124 @@ object RptRemesasCliente: TRptRemesasCliente
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_REMESA' Name = 'FECHA_REMESA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TITULAR' Name = 'TITULAR'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ENTIDAD' Name = 'ENTIDAD'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'SUCURSAL' Name = 'SUCURSAL'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DC' Name = 'DC'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CUENTA' Name = 'CUENTA'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'RAZON_SOCIAL' Name = 'RAZON_SOCIAL'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CALLE_EMPRESA' Name = 'CALLE_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'POBLACION_EMPRESA' Name = 'POBLACION_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PROVINCIA_EMPRESA' Name = 'PROVINCIA_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CODIGO_POSTAL_EMPRESA' Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'MOVIL_1' Name = 'MOVIL_1'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'EMAIL_1' Name = 'EMAIL_1'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PAGINA_WEB' Name = 'PAGINA_WEB'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REGISTRO_MERCANTIL' Name = 'REGISTRO_MERCANTIL'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'LOGOTIPO' Name = 'LOGOTIPO'
DataType = datBlob DataType = datBlob
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end end
item item
Params = < Params = <
item item
Name = 'ID_REMESA' Name = 'ID_REMESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -628,263 +448,110 @@ object RptRemesasCliente: TRptRemesasCliente
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 9 Size = 9
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_REMESA' Name = 'ID_REMESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA_REMESA' Name = 'REFERENCIA_REMESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE' Name = 'IMPORTE'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'OTROS_GASTOS' Name = 'OTROS_GASTOS'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FORMA_PAGO_FACTURA' Name = 'FORMA_PAGO_FACTURA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_FACTURA' Name = 'IMPORTE_FACTURA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NOMBRE_CLIENTE' Name = 'NOMBRE_CLIENTE'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NIF_CIF_CLIENTE' Name = 'NIF_CIF_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ENTIDAD_CLIENTE' Name = 'ENTIDAD_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'SUCURSAL_CLIENTE' Name = 'SUCURSAL_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DC_CLIENTE' Name = 'DC_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CUENTA_CLIENTE' Name = 'CUENTA_CLIENTE'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end> end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <> Commands = <>
RelationShips = <> RelationShips = <>
UpdateRules = <> UpdateRules = <>
Version = 0
Left = 48 Left = 48
Top = 16 Top = 16
end end
@ -894,7 +561,7 @@ object RptRemesasCliente: TRptRemesasCliente
Top = 158 Top = 158
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '3.23.7' Version = '4.3'
DotMatrixReport = False DotMatrixReport = False
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
@ -902,6 +569,7 @@ object RptRemesasCliente: TRptRemesasCliente
PreviewOptions.OutlineWidth = 180 PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 39258.760263842600000000 ReportOptions.LastChange = 39258.760263842600000000
ReportOptions.VersionBuild = '1' ReportOptions.VersionBuild = '1'
@ -953,54 +621,6 @@ object RptRemesasCliente: TRptRemesasCliente
StoreInDFM = False StoreInDFM = False
Left = 169 Left = 169
Top = 16 Top = 16
Datasets = <
item
DataSet = frxDBCabecera
DataSetName = 'frxDBCabecera'
end
item
DataSet = frxDBDetalles
DataSetName = 'frxDBDetalles'
end>
Variables = <>
Style = <
item
Name = 'Concepto normal'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
end
item
Name = 'Concepto subtotal'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end
item
Name = 'Cabecera de columna'
Color = 15790320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
item
Name = 'Concepto titulo'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end>
end end
object frxDBCabecera: TfrxDBDataset object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'

2
Source/Modulos/Remesas de cliente/Reports/uRptRemesasCliente_Server.pas
View File

@ -7,7 +7,7 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider, Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces; uDAInterfaces, uDADataStreamer;
type type
TRptRemesasCliente = class(TDataModule) TRptRemesasCliente = class(TDataModule)

420
Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.dfm
View File

@ -4,11 +4,13 @@ object RptRemesasProveedor: TRptRemesasProveedor
Height = 405 Height = 405
Width = 447 Width = 447
object DADataCabecera: TDADataSource object DADataCabecera: TDADataSource
DataSet = tbl_Cabecera.Dataset
DataTable = tbl_Cabecera DataTable = tbl_Cabecera
Left = 264 Left = 264
Top = 72 Top = 72
end end
object DADataDetalles: TDADataSource object DADataDetalles: TDADataSource
DataSet = tbl_Detalles.Dataset
DataTable = tbl_Detalles DataTable = tbl_Detalles
Left = 344 Left = 344
Top = 72 Top = 72
@ -21,11 +23,6 @@ object RptRemesasProveedor: TRptRemesasProveedor
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
@ -40,11 +37,6 @@ object RptRemesasProveedor: TRptRemesasProveedor
LogChanges = False LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
SchemaCall.Params = <>
DataRequestCall.Params = <>
DataUpdateCall.Params = <>
ScriptCall.Params = <>
ReadOnly = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
@ -92,7 +84,6 @@ object RptRemesasProveedor: TRptRemesasProveedor
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -221,295 +212,124 @@ object RptRemesasProveedor: TRptRemesasProveedor
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_REMESA' Name = 'FECHA_REMESA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TITULAR' Name = 'TITULAR'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ENTIDAD' Name = 'ENTIDAD'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'SUCURSAL' Name = 'SUCURSAL'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DC' Name = 'DC'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CUENTA' Name = 'CUENTA'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NIF_CIF_EMPRESA' Name = 'NIF_CIF_EMPRESA'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'RAZON_SOCIAL' Name = 'RAZON_SOCIAL'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CALLE_EMPRESA' Name = 'CALLE_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'POBLACION_EMPRESA' Name = 'POBLACION_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PROVINCIA_EMPRESA' Name = 'PROVINCIA_EMPRESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CODIGO_POSTAL_EMPRESA' Name = 'CODIGO_POSTAL_EMPRESA'
DataType = datString DataType = datString
Size = 10 Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'MOVIL_1' Name = 'MOVIL_1'
DataType = datString DataType = datString
Size = 25 Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'EMAIL_1' Name = 'EMAIL_1'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'PAGINA_WEB' Name = 'PAGINA_WEB'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REGISTRO_MERCANTIL' Name = 'REGISTRO_MERCANTIL'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'LOGOTIPO' Name = 'LOGOTIPO'
DataType = datBlob DataType = datBlob
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end end
item item
Params = < Params = <
item item
Name = 'ID_REMESA' Name = 'ID_REMESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end> end>
@ -639,287 +459,120 @@ object RptRemesasProveedor: TRptRemesasProveedor
item item
Name = 'ID' Name = 'ID'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA_PROVEEDOR' Name = 'REFERENCIA_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'SITUACION' Name = 'SITUACION'
DataType = datString DataType = datString
Size = 9 Size = 9
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_FACTURA' Name = 'ID_FACTURA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_REMESA' Name = 'ID_REMESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA_REMESA' Name = 'REFERENCIA_REMESA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_VENCIMIENTO' Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DESCRIPCION' Name = 'DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'OBSERVACIONES' Name = 'OBSERVACIONES'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE' Name = 'IMPORTE'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'OTROS_GASTOS' Name = 'OTROS_GASTOS'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_TOTAL' Name = 'IMPORTE_TOTAL'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FECHA_FACTURA' Name = 'FECHA_FACTURA'
DataType = datDateTime DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'REFERENCIA_FACTURA_PROV' Name = 'REFERENCIA_FACTURA_PROV'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'FORMA_PAGO_FACTURA' Name = 'FORMA_PAGO_FACTURA'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'IMPORTE_FACTURA' Name = 'IMPORTE_FACTURA'
DataType = datFloat DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ID_EMPRESA' Name = 'ID_EMPRESA'
DataType = datInteger DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NOMBRE_PROVEEDOR' Name = 'NOMBRE_PROVEEDOR'
DataType = datString DataType = datString
Size = 255 Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'NIF_CIF_PROVEEDOR' Name = 'NIF_CIF_PROVEEDOR'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'ENTIDAD_PROVEEDOR' Name = 'ENTIDAD_PROVEEDOR'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'SUCURSAL_PROVEEDOR' Name = 'SUCURSAL_PROVEEDOR'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'DC_PROVEEDOR' Name = 'DC_PROVEEDOR'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end end
item item
Name = 'CUENTA_PROVEEDOR' Name = 'CUENTA_PROVEEDOR'
DataType = datString DataType = datString
Size = 15 Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end> end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end> end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <> Commands = <>
RelationShips = <> RelationShips = <>
UpdateRules = <> UpdateRules = <>
Version = 0
Left = 48 Left = 48
Top = 16 Top = 16
end end
@ -929,7 +582,7 @@ object RptRemesasProveedor: TRptRemesasProveedor
Top = 158 Top = 158
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '3.23.7' Version = '4.3'
DotMatrixReport = False DotMatrixReport = False
EngineOptions.DoublePass = True EngineOptions.DoublePass = True
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
@ -937,6 +590,7 @@ object RptRemesasProveedor: TRptRemesasProveedor
PreviewOptions.OutlineWidth = 180 PreviewOptions.OutlineWidth = 180
PreviewOptions.Zoom = 1.000000000000000000 PreviewOptions.Zoom = 1.000000000000000000
PrintOptions.Printer = 'Default' PrintOptions.Printer = 'Default'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.CreateDate = 37871.995398692100000000
ReportOptions.LastChange = 39293.788285949070000000 ReportOptions.LastChange = 39293.788285949070000000
ReportOptions.VersionBuild = '1' ReportOptions.VersionBuild = '1'
@ -1004,66 +658,6 @@ object RptRemesasProveedor: TRptRemesasProveedor
OnStartReport = 'frxReportOnStartReport' OnStartReport = 'frxReportOnStartReport'
Left = 169 Left = 169
Top = 16 Top = 16
Datasets = <
item
DataSet = frxDBCabecera
DataSetName = 'frxDBCabecera'
end
item
DataSet = frxDBDetalles
DataSetName = 'frxDBDetalles'
end>
Variables = <
item
Name = ' Paginacion'
Value = Null
end
item
Name = 'Pagina'
Value = Null
end
item
Name = 'TotalPaginas'
Value = Null
end>
Style = <
item
Name = 'Concepto normal'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = []
end
item
Name = 'Concepto subtotal'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end
item
Name = 'Cabecera de columna'
Color = 15790320
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Tahoma'
Font.Style = [fsBold]
Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
end
item
Name = 'Concepto titulo'
Color = clNone
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = [fsBold]
end>
end end
object frxDBCabecera: TfrxDBDataset object frxDBCabecera: TfrxDBDataset
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'

2
Source/Modulos/Remesas de proveedor/Reports/uRptRemesasProveedor_Server.pas
View File

@ -7,7 +7,7 @@ uses
Dialogs, frxClass, frxDBSet, uDAScriptingProvider, Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient, uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
uDAInterfaces; uDAInterfaces, uDADataStreamer;
type type
TRptRemesasProveedor = class(TDataModule) TRptRemesasProveedor = class(TDataModule)