diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 91f13e4e..af58df49 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -53,58 +53,58 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
TForm
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339f..8b251f31 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Informes/FacturaCliente.rdx b/Source/Informes/FacturaCliente.rdx
index e5d602fd..fa596a63 100644
Binary files a/Source/Informes/FacturaCliente.rdx and b/Source/Informes/FacturaCliente.rdx differ
diff --git a/Source/Informes/InfFacturaCliente.fr3 b/Source/Informes/InfFacturaCliente.fr3
index 9350b276..17150461 100644
--- a/Source/Informes/InfFacturaCliente.fr3
+++ b/Source/Informes/InfFacturaCliente.fr3
@@ -1,5 +1,5 @@
-
+
@@ -7,8 +7,8 @@
-
-
+
+
@@ -16,14 +16,15 @@
-
+
-
+
+
@@ -61,4 +62,9 @@
+
+
+
+
+
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
index 0cda13b0..20372a5c 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
@@ -37,18 +37,74 @@ object RptFacturasCliente: TRptFacturasCliente
'TE.ID = :ID'#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 = 'TIPO'
+ TableField = 'TIPO'
+ end
+ item
+ DatasetField = 'FECHA_FACTURA'
+ TableField = 'FECHA_FACTURA'
+ end
+ item
+ DatasetField = 'BASE_IMPONIBLE'
+ TableField = 'BASE_IMPONIBLE'
+ end
+ item
+ DatasetField = 'SITUACION'
+ TableField = 'SITUACION'
+ end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
+ item
+ DatasetField = 'IMPORTE_DESCUENTO'
+ TableField = 'IMPORTE_DESCUENTO'
+ end
item
DatasetField = 'IVA'
TableField = 'IVA'
end
+ item
+ DatasetField = 'IMPORTE_IVA'
+ TableField = 'IMPORTE_IVA'
+ end
+ item
+ DatasetField = 'RE'
+ TableField = 'RE'
+ end
+ item
+ DatasetField = 'IMPORTE_RE'
+ TableField = 'IMPORTE_RE'
+ end
+ item
+ DatasetField = 'IMPORTE_TOTAL'
+ TableField = 'IMPORTE_TOTAL'
+ end
item
DatasetField = 'OBSERVACIONES'
TableField = 'OBSERVACIONES'
end
+ item
+ DatasetField = 'NIF_CIF'
+ TableField = 'NIF_CIF'
+ end
+ item
+ DatasetField = 'ID_CLIENTE'
+ TableField = 'ID_CLIENTE'
+ end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
@@ -65,66 +121,10 @@ object RptFacturasCliente: TRptFacturasCliente
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
- item
- DatasetField = 'REFERENCIA'
- TableField = 'REFERENCIA'
- end
- item
- DatasetField = 'ID'
- TableField = 'ID'
- end
- item
- DatasetField = 'ID_EMPRESA'
- TableField = 'ID_EMPRESA'
- end
- item
- DatasetField = 'FECHA_FACTURA'
- TableField = 'FECHA_FACTURA'
- end
- item
- DatasetField = 'BASE_IMPONIBLE'
- TableField = 'BASE_IMPONIBLE'
- end
- item
- DatasetField = 'IMPORTE_DESCUENTO'
- TableField = 'IMPORTE_DESCUENTO'
- end
- item
- DatasetField = 'IMPORTE_IVA'
- TableField = 'IMPORTE_IVA'
- end
- item
- DatasetField = 'IMPORTE_TOTAL'
- TableField = 'IMPORTE_TOTAL'
- end
- item
- DatasetField = 'ID_CLIENTE'
- TableField = 'ID_CLIENTE'
- end
- item
- DatasetField = 'NIF_CIF'
- TableField = 'NIF_CIF'
- end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
- item
- DatasetField = 'RE'
- TableField = 'RE'
- end
- item
- DatasetField = 'IMPORTE_RE'
- TableField = 'IMPORTE_RE'
- end
- item
- DatasetField = 'TIPO'
- TableField = 'TIPO'
- end
- item
- DatasetField = 'SITUACION'
- TableField = 'SITUACION'
- end
item
DatasetField = 'RECARGO_EQUIVALENCIA'
TableField = 'RECARGO_EQUIVALENCIA'
@@ -309,14 +309,6 @@ object RptFacturasCliente: TRptFacturasCliente
'ET.POSICION;'#10
StatementType = stSQL
ColumnMappings = <
- item
- DatasetField = 'CANTIDAD'
- TableField = 'CANTIDAD'
- end
- item
- DatasetField = 'POSICION'
- TableField = 'POSICION'
- end
item
DatasetField = 'ID'
TableField = 'ID'
@@ -325,18 +317,34 @@ object RptFacturasCliente: TRptFacturasCliente
DatasetField = 'ID_FACTURA'
TableField = 'ID_FACTURA'
end
+ item
+ DatasetField = 'POSICION'
+ TableField = 'POSICION'
+ end
item
DatasetField = 'TIPO_DETALLE'
TableField = 'TIPO_DETALLE'
end
+ item
+ DatasetField = 'REFERENCIA'
+ TableField = 'REFERENCIA'
+ end
item
DatasetField = 'CONCEPTO'
TableField = 'CONCEPTO'
end
+ item
+ DatasetField = 'CANTIDAD'
+ TableField = 'CANTIDAD'
+ end
item
DatasetField = 'IMPORTE_UNIDAD'
TableField = 'IMPORTE_UNIDAD'
end
+ item
+ DatasetField = 'DESCUENTO'
+ TableField = 'DESCUENTO'
+ end
item
DatasetField = 'IMPORTE_TOTAL'
TableField = 'IMPORTE_TOTAL'
@@ -344,14 +352,6 @@ object RptFacturasCliente: TRptFacturasCliente
item
DatasetField = 'VISIBLE'
TableField = 'VISIBLE'
- end
- item
- DatasetField = 'DESCUENTO'
- TableField = 'DESCUENTO'
- end
- item
- DatasetField = 'REFERENCIA'
- TableField = 'REFERENCIA'
end>
end>
Name = 'InformeFacturasCliente_Detalles'
@@ -424,28 +424,39 @@ object RptFacturasCliente: TRptFacturasCliente
Statements = <
item
Connection = 'IBX'
- TargetTable = 'V_RECIBOS_CLIENTE'
SQL =
- 'SELECT'#10' V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO, V_RECIBOS_CLIENT' +
- 'E.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLIENTE'#10'WHERE V_RECIBOS_CLIENTE.I' +
- 'D_FACTURA = :ID_FACTURA'#10'ORDER BY V_RECIBOS_CLIENTE.FECHA_VENCIMI' +
- 'ENTO'
+ 'SELECT'#10' V_RECIBOS_CLIENTE.ID_FACTURA, V_RECIBOS_CLIENTE.FECHA' +
+ '_VENCIMIENTO, V_RECIBOS_CLIENTE.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLI' +
+ 'ENTE'#10'WHERE V_RECIBOS_CLIENTE.ID_FACTURA = :ID_FACTURA'#10'ORDER BY V' +
+ '_RECIBOS_CLIENTE.FECHA_VENCIMIENTO'#10
StatementType = stSQL
ColumnMappings = <
+ item
+ DatasetField = 'ID_FACTURA'
+ TableField = 'ID_FACTURA'
+ end
item
DatasetField = 'FECHA_VENCIMIENTO'
TableField = 'FECHA_VENCIMIENTO'
+ end
+ item
+ DatasetField = 'IMPORTE_TOTAL'
+ TableField = 'IMPORTE_TOTAL'
end>
end>
Name = 'InformeFacturasCliente_Vencimientos'
Fields = <
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ end
item
Name = 'FECHA_VENCIMIENTO'
DataType = datDateTime
end
item
Name = 'IMPORTE_TOTAL'
- DataType = datFloat
+ DataType = datCurrency
end>
end>
JoinDataTables = <>
@@ -660,7 +671,7 @@ object RptFacturasCliente: TRptFacturasCliente
end
object frxDBDetalles: TfrxDBDataset
UserName = 'frxDBDetalles'
- CloseDataSource = False
+ CloseDataSource = True
DataSource = DADSDetalles
Left = 344
Top = 16
@@ -717,7 +728,8 @@ object RptFacturasCliente: TRptFacturasCliente
'mporte_neto,'
' v_facturas_cliente.importe_porte, formas_pago.descripcion as ' +
- 'FORMA_PAGO'
+ 'FORMA_PAGO,'
+ ' v_facturas_cliente.DATOS_BANCARIOS'
'from v_facturas_cliente'
' left outer join formas_pago on (formas_pago.id = v_facturas_c' +
@@ -864,6 +876,11 @@ object RptFacturasCliente: TRptFacturasCliente
Origin = '"FORMAS_PAGO"."DESCRIPCION"'
Size = 255
end
+ object cabeceraDATOS_BANCARIOS: TIBStringField
+ FieldName = 'DATOS_BANCARIOS'
+ Origin = '"V_FACTURAS_CLIENTE"."DATOS_BANCARIOS"'
+ Size = 255
+ end
end
object detalles: TIBQuery
Database = IBDatabase1
@@ -1173,6 +1190,11 @@ object RptFacturasCliente: TRptFacturasCliente
Name = 'FORMA_PAGO'
DataType = datString
Size = 255
+ end
+ item
+ Name = 'DATOS_BANCARIOS'
+ DataType = datString
+ Size = 255
end>
Params = <
item
@@ -1231,7 +1253,7 @@ object RptFacturasCliente: TRptFacturasCliente
PrintOptions.Printer = 'Por defecto'
PrintOptions.PrintOnSheet = 0
ReportOptions.CreateDate = 39065.872423495400000000
- ReportOptions.LastChange = 39604.801510335640000000
+ ReportOptions.LastChange = 39610.732841435190000000
ScriptLanguage = 'PascalScript'
ScriptText.Strings = (
''
@@ -1340,6 +1362,17 @@ object RptFacturasCliente: TRptFacturasCliente
' end; '
'end;'
''
+ 'procedure Memo39OnBeforePrint(Sender: TfrxComponent);'
+ 'begin'
+ ' Memo39.Clear; '
+ ' if ( = '#39'F'#39') then'
+
+ ' Memo39.Text := '#39'FACTURA'#39' ' +
+ ' '
+ ' else'
+ ' Memo39.Text := '#39'ABONO'#39'; '
+ 'end;'
+ ''
'begin'
''
'end.')
@@ -1349,4 +1382,87 @@ object RptFacturasCliente: TRptFacturasCliente
Left = 145
Top = 16
end
+ object frxDBVencimientos: TfrxDBDataset
+ UserName = 'frxDBVencimientos'
+ CloseDataSource = True
+ DataSource = DADSVencimientos
+ Left = 440
+ Top = 16
+ end
+ object DADSVencimientos: TDADataSource
+ DataSet = tbl_Vencimientos.Dataset
+ DataTable = tbl_Vencimientos
+ Left = 440
+ Top = 72
+ end
+ object tbl_Vencimientos: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ end>
+ Params = <
+ item
+ Name = 'ID_FACTURA'
+ Value = ''
+ ParamType = daptInput
+ end>
+ MasterParamsMappings.Strings = (
+ 'ID_FACTURA=ID')
+ LogChanges = False
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteFetchEnabled = False
+ LocalSchema = schReport
+ LocalDataStreamer = DABINAdapter
+ MasterSource = DADSCabecera
+ MasterFields = 'ID'
+ DetailFields = 'ID_FACTURA'
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'InformeFacturasCliente_Vencimientos'
+ IndexDefs = <>
+ Left = 440
+ Top = 128
+ end
+ object vencimientos: TIBQuery
+ Database = IBDatabase1
+ Transaction = IBTransaction1
+ SQL.Strings = (
+ 'SELECT'
+
+ ' V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO, V_RECIBOS_CLIENTE.IMPOR' +
+ 'TE_TOTAL'
+ 'FROM V_RECIBOS_CLIENTE'
+ 'WHERE V_RECIBOS_CLIENTE.ID_FACTURA = 2'
+ 'ORDER BY V_RECIBOS_CLIENTE.FECHA_VENCIMIENTO')
+ Left = 136
+ Top = 408
+ object vencimientosFECHA_VENCIMIENTO: TDateField
+ FieldName = 'FECHA_VENCIMIENTO'
+ Origin = '"V_RECIBOS_CLIENTE"."FECHA_VENCIMIENTO"'
+ end
+ object vencimientosIMPORTE_TOTAL: TIBBCDField
+ FieldKind = fkInternalCalc
+ FieldName = 'IMPORTE_TOTAL'
+ Origin = '"V_RECIBOS_CLIENTE"."IMPORTE_TOTAL"'
+ ProviderFlags = []
+ ReadOnly = True
+ Precision = 18
+ Size = 2
+ end
+ end
+ object DataSource3: TDataSource
+ DataSet = vencimientos
+ Left = 216
+ Top = 408
+ end
end
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
index a9839574..428f62f0 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
@@ -71,6 +71,14 @@ type
detallesIMPORTE_TOTAL: TIBBCDField;
detallesVISIBLE: TSmallintField;
detallesREFERENCIA: TIBStringField;
+ frxDBVencimientos: TfrxDBDataset;
+ DADSVencimientos: TDADataSource;
+ tbl_Vencimientos: TDAMemDataTable;
+ vencimientos: TIBQuery;
+ DataSource3: TDataSource;
+ cabeceraDATOS_BANCARIOS: TIBStringField;
+ vencimientosFECHA_VENCIMIENTO: TDateField;
+ vencimientosIMPORTE_TOTAL: TIBBCDField;
schReport: TDASchema;
procedure DataModuleCreate(Sender: TObject);
private
@@ -132,31 +140,34 @@ begin
end;
procedure TRptFacturasCliente.GenerarFactura(const ID: integer);
-var
- AStream: TMemoryStream;
- dsMaster: IDADataset;
- dsDetail: IDADataset;
- dsVencimientos : IDADataset;
+//var
+// AStream: TMemoryStream;
+// dsMaster: IDADataset;
+// dsDetail: IDADataset;
+// dsVencimientos : IDADataset;
begin
- AStream := TMemoryStream.Create;
+// AStream := TMemoryStream.Create;
try
frxDBCabecera.DataSource := DADSCabecera;
frxDBDetalles.DataSource := DADSDetalles;
+ frxDBVencimientos.DataSource := DADSVencimientos;
tbl_Cabecera.ParamByName('ID').AsInteger := ID;
tbl_Detalles.ParamByName('ID_FACTURA').AsInteger := ID;
+ tbl_Vencimientos.ParamByName('ID_FACTURA').AsInteger := ID;
tbl_Cabecera.Active := True;
tbl_Detalles.Active := True;
+ tbl_Vencimientos.Active := True;
frxReport.LoadFromFile(DarRutaInformes + rptFacturaCliente, True);
frxReport.PrepareReport(False);
finally
- AStream.Free;
- dsMaster := Nil;
- dsDetail := Nil;
+// AStream.Free;
+// dsMaster := Nil;
+// dsDetail := Nil;
end;
end;
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm
index 8e5d17a7..84e0e674 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.dfm
@@ -398,6 +398,51 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
DataType = datSmallInt
end>
ReadOnly = True
+ end
+ item
+ Params = <
+ item
+ Name = 'ID_FACTURA'
+ Value = '2'
+ ParamType = daptInput
+ end>
+ Statements = <
+ item
+ Connection = 'IBX'
+ SQL =
+ 'SELECT'#10' V_RECIBOS_CLIENTE.ID_FACTURA, V_RECIBOS_CLIENTE.FECHA' +
+ '_VENCIMIENTO, V_RECIBOS_CLIENTE.IMPORTE_TOTAL'#10'FROM V_RECIBOS_CLI' +
+ 'ENTE'#10'WHERE V_RECIBOS_CLIENTE.ID_FACTURA = :ID_FACTURA'#10'ORDER BY V' +
+ '_RECIBOS_CLIENTE.FECHA_VENCIMIENTO'#10
+ StatementType = stSQL
+ ColumnMappings = <
+ item
+ DatasetField = 'ID_FACTURA'
+ TableField = 'ID_FACTURA'
+ end
+ item
+ DatasetField = 'FECHA_VENCIMIENTO'
+ TableField = 'FECHA_VENCIMIENTO'
+ end
+ item
+ DatasetField = 'IMPORTE_TOTAL'
+ TableField = 'IMPORTE_TOTAL'
+ end>
+ end>
+ Name = 'Informe_Vencimientos'
+ Fields = <
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ end>
end>
JoinDataTables = <>
UnionDataTables = <>
@@ -644,4 +689,39 @@ object RptWordFacturaCliente: TRptWordFacturaCliente
Left = 168
Top = 80
end
+ object tbl_Vencimientos: TDAMemDataTable
+ RemoteUpdatesOptions = []
+ Fields = <
+ item
+ Name = 'ID_FACTURA'
+ DataType = datInteger
+ end
+ item
+ Name = 'FECHA_VENCIMIENTO'
+ DataType = datDateTime
+ end
+ item
+ Name = 'IMPORTE_TOTAL'
+ DataType = datCurrency
+ end>
+ Params = <
+ item
+ Name = 'ID_FACTURA'
+ Value = '2'
+ ParamType = daptInput
+ end>
+ MasterParamsMappings.Strings = (
+ 'ID_PRESUPUESTO=ID_PRESUPUESTO')
+ LogChanges = False
+ StreamingOptions = [soDisableEventsWhileStreaming]
+ RemoteFetchEnabled = False
+ LocalSchema = schReport
+ LocalDataStreamer = DABin2DataStreamer
+ DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
+ MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
+ LogicalName = 'Informe_Vencimientos'
+ IndexDefs = <>
+ Left = 352
+ Top = 16
+ end
end
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas
index 0d45ff87..1f762daf 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas
@@ -16,6 +16,7 @@ type
tbl_Empresa: TDAMemDataTable;
schReport: TDASchema;
DataDictionary: TDADataDictionary;
+ tbl_Vencimientos: TDAMemDataTable;
procedure DataModuleCreate(Sender: TObject);
private
FConnection: IDAConnection;
@@ -30,7 +31,7 @@ type
function Generar : Boolean;
function RellenarCabecera : boolean; virtual;
function RellenarInforme : boolean; virtual;
- procedure _GenerarFactura(const AID: String);
+ procedure _GenerarFactura(const AID: String);
public
function Exportar(Codigo, Fichero : String): Boolean;
constructor Create (AOwner : TComponent); override;
@@ -175,6 +176,7 @@ var
Imagen : InlineShape;
_ShiftCells : OleVariant;
ImporteAux : Double;
+ Cadena : String;
begin
//PARA DIBUJAR EL LOGOTIPO MULTIEMPRESA
@@ -198,7 +200,7 @@ begin
end;
end;
---------------------------- }
-
+
with FDocumento, tbl_Cabecera do
begin
//Activamos cabecera
@@ -209,7 +211,16 @@ begin
else
ReplaceBookmark('CodigoFacturaCab', 'ABONO ' + FieldByName('REFERENCIA').AsString);
ReplaceBookmark('FechaFacturaCab', FieldByName('FECHA_FACTURA').AsString);
- ReplaceBookmark('VencimientoCab', ''{FieldByName('FECHAVENCIMIENTO').AsString});
+
+ tbl_Vencimientos.First;
+ Cadena := '';
+ while not tbl_Vencimientos.eof do
+ begin
+ Cadena := Cadena + tbl_Vencimientos.FieldByName('FECHA_VENCIMIENTO').AsString + ' ';
+ tbl_Vencimientos.Next;
+ end;
+
+ ReplaceBookmark('VencimientoCab', Cadena);
ReplaceBookmark('FormaPagoCab', FieldByName('FORMA_PAGO').AsString);
ReplaceBookmark('BancoCab', FieldByName('DATOS_BANCARIOS').AsString);
@@ -344,9 +355,11 @@ var
begin
tbl_Cabecera.ParamByName('ID').AsString := AID;
tbl_Detalles.ParamByName('ID_FACTURA').AsString := AID;
+ tbl_Vencimientos.ParamByName('ID_FACTURA').AsString := AID;
tbl_Cabecera.Active := True;
tbl_Detalles.Active := True;
+ tbl_Vencimientos.Active := True;
FCodigoFactura := AID;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 01e1f98b..677710a4 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index c04561bf..b67b4065 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,280 +1,280 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
- vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
- True
- True
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
-
-
- Delphi.Personality
-
-
-FalseTrueFalse/standaloneTrueFalse1070FalseFalseFalseFalseFalse308212521.0.7.01.0.7.0jueves, 05 de junio de 2008 20:23FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+ vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+ True
+ True
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+
+
+ Delphi.Personality
+
+
+ FalseTrueFalse/standaloneTrueFalse1070FalseFalseFalseFalseFalse308212521.0.7.01.0.7.0jueves, 05 de junio de 2008 20:23FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+