diff --git a/Resources/Firmas Tecsitel/sello_azacan-nueva-direccion-firmado.jpg b/Resources/Firmas Tecsitel/sello_azacan-nueva-direccion-firmado.jpg new file mode 100644 index 00000000..f9c561ba Binary files /dev/null and b/Resources/Firmas Tecsitel/sello_azacan-nueva-direccion-firmado.jpg differ diff --git a/Resources/Firmas Tecsitel/sello_azacan-nueva-direccion.jpg b/Resources/Firmas Tecsitel/sello_azacan-nueva-direccion.jpg new file mode 100644 index 00000000..2d46af10 Binary files /dev/null and b/Resources/Firmas Tecsitel/sello_azacan-nueva-direccion.jpg differ diff --git a/Source/Informes/3/AlbaranCliente.rdx b/Source/Informes/3/AlbaranCliente.rdx index 17782f8d..9cb35d86 100644 Binary files a/Source/Informes/3/AlbaranCliente.rdx and b/Source/Informes/3/AlbaranCliente.rdx differ diff --git a/Source/Informes/3/FacturaCliente.rdx b/Source/Informes/3/FacturaCliente.rdx index 96d493ef..267ed7e5 100644 Binary files a/Source/Informes/3/FacturaCliente.rdx and b/Source/Informes/3/FacturaCliente.rdx differ diff --git a/Source/Informes/3/InfAlbaranCliente.fr3 b/Source/Informes/3/InfAlbaranCliente.fr3 index 61580a75..c0e16447 100644 --- a/Source/Informes/3/InfAlbaranCliente.fr3 +++ b/Source/Informes/3/InfAlbaranCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -33,7 +33,7 @@ - + diff --git a/Source/Informes/3/InfFacturaCliente.fr3 b/Source/Informes/3/InfFacturaCliente.fr3 index b5bd027e..edc2731a 100644 --- a/Source/Informes/3/InfFacturaCliente.fr3 +++ b/Source/Informes/3/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -20,14 +20,14 @@ - + - + @@ -42,17 +42,17 @@ - + - + - - + + diff --git a/Source/Informes/3/InfPedidoProveedor.fr3 b/Source/Informes/3/InfPedidoProveedor.fr3 index a1465b72..0f5c29b0 100644 --- a/Source/Informes/3/InfPedidoProveedor.fr3 +++ b/Source/Informes/3/InfPedidoProveedor.fr3 @@ -1,5 +1,5 @@ - + @@ -40,8 +40,8 @@ - - + + diff --git a/Source/Informes/3/InfPresupuestoCliente.fr3 b/Source/Informes/3/InfPresupuestoCliente.fr3 index 72082319..4b6dec47 100644 --- a/Source/Informes/3/InfPresupuestoCliente.fr3 +++ b/Source/Informes/3/InfPresupuestoCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -15,7 +15,7 @@ - + @@ -23,12 +23,12 @@ - + - + @@ -39,18 +39,18 @@ - + - + - + - + @@ -65,13 +65,13 @@ - + - + @@ -89,7 +89,7 @@ - + @@ -105,15 +105,15 @@ - + - + - + diff --git a/Source/Informes/3/InfReciboCliente.fr3 b/Source/Informes/3/InfReciboCliente.fr3 index 6d28c007..87cc4005 100644 --- a/Source/Informes/3/InfReciboCliente.fr3 +++ b/Source/Informes/3/InfReciboCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -15,7 +15,7 @@ - + @@ -37,7 +37,7 @@ - + diff --git a/Source/Informes/3/InformeIVAClientes.fr3 b/Source/Informes/3/InformeIVAClientes.fr3 index f0a093c1..0b316731 100644 --- a/Source/Informes/3/InformeIVAClientes.fr3 +++ b/Source/Informes/3/InformeIVAClientes.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeIVAClientesDesglosado.fr3 b/Source/Informes/3/InformeIVAClientesDesglosado.fr3 index baa57b71..4386d9ff 100644 --- a/Source/Informes/3/InformeIVAClientesDesglosado.fr3 +++ b/Source/Informes/3/InformeIVAClientesDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeIVAComparativo.fr3 b/Source/Informes/3/InformeIVAComparativo.fr3 index 19baab65..d66ee353 100644 --- a/Source/Informes/3/InformeIVAComparativo.fr3 +++ b/Source/Informes/3/InformeIVAComparativo.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeIVAProveedores.fr3 b/Source/Informes/3/InformeIVAProveedores.fr3 index d5068efa..b0bca8fe 100644 --- a/Source/Informes/3/InformeIVAProveedores.fr3 +++ b/Source/Informes/3/InformeIVAProveedores.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeIVAProveedoresDesglosado.fr3 b/Source/Informes/3/InformeIVAProveedoresDesglosado.fr3 index 3a73d294..35cbed35 100644 --- a/Source/Informes/3/InformeIVAProveedoresDesglosado.fr3 +++ b/Source/Informes/3/InformeIVAProveedoresDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeListadoBeneficiosGrafComp.fr3 b/Source/Informes/3/InformeListadoBeneficiosGrafComp.fr3 index 6cd70efc..2d22d816 100644 --- a/Source/Informes/3/InformeListadoBeneficiosGrafComp.fr3 +++ b/Source/Informes/3/InformeListadoBeneficiosGrafComp.fr3 @@ -1,5 +1,5 @@ - + @@ -27,7 +27,7 @@ - + diff --git a/Source/Informes/3/InformeListadoFacturasCliente.fr3 b/Source/Informes/3/InformeListadoFacturasCliente.fr3 index bf23d11a..15e5aa3a 100644 --- a/Source/Informes/3/InformeListadoFacturasCliente.fr3 +++ b/Source/Informes/3/InformeListadoFacturasCliente.fr3 @@ -1,10 +1,10 @@ - + - + diff --git a/Source/Informes/3/InformeListadoFacturasClienteDesglosado.fr3 b/Source/Informes/3/InformeListadoFacturasClienteDesglosado.fr3 index 693bb55c..bf635e79 100644 --- a/Source/Informes/3/InformeListadoFacturasClienteDesglosado.fr3 +++ b/Source/Informes/3/InformeListadoFacturasClienteDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeListadoFacturasClienteGrafComp.fr3 b/Source/Informes/3/InformeListadoFacturasClienteGrafComp.fr3 index be455884..2c29b852 100644 --- a/Source/Informes/3/InformeListadoFacturasClienteGrafComp.fr3 +++ b/Source/Informes/3/InformeListadoFacturasClienteGrafComp.fr3 @@ -1,5 +1,5 @@ - + @@ -17,7 +17,7 @@ - + diff --git a/Source/Informes/3/InformeListadoFacturasClientePendientes.fr3 b/Source/Informes/3/InformeListadoFacturasClientePendientes.fr3 index 2dfe865f..ca6c129d 100644 --- a/Source/Informes/3/InformeListadoFacturasClientePendientes.fr3 +++ b/Source/Informes/3/InformeListadoFacturasClientePendientes.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeListadoFacturasClientePendientesDesglosado.fr3 b/Source/Informes/3/InformeListadoFacturasClientePendientesDesglosado.fr3 index bad86a03..91bf2dc4 100644 --- a/Source/Informes/3/InformeListadoFacturasClientePendientesDesglosado.fr3 +++ b/Source/Informes/3/InformeListadoFacturasClientePendientesDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeListadoFacturasProveedor.fr3 b/Source/Informes/3/InformeListadoFacturasProveedor.fr3 index f7dded39..0b68c5b3 100644 --- a/Source/Informes/3/InformeListadoFacturasProveedor.fr3 +++ b/Source/Informes/3/InformeListadoFacturasProveedor.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeListadoFacturasProveedorDesglosado.fr3 b/Source/Informes/3/InformeListadoFacturasProveedorDesglosado.fr3 index f2fae04a..9ec7b04d 100644 --- a/Source/Informes/3/InformeListadoFacturasProveedorDesglosado.fr3 +++ b/Source/Informes/3/InformeListadoFacturasProveedorDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeListadoFacturasProveedorGrafComp.fr3 b/Source/Informes/3/InformeListadoFacturasProveedorGrafComp.fr3 index 686081f3..5a3a51bc 100644 --- a/Source/Informes/3/InformeListadoFacturasProveedorGrafComp.fr3 +++ b/Source/Informes/3/InformeListadoFacturasProveedorGrafComp.fr3 @@ -1,13 +1,13 @@ - + - - - - - + + + + + @@ -17,48 +17,48 @@ - + - + - - + + - - - - + + + + - - - - - + + + + + - - - - - - + + + + + + - + - + diff --git a/Source/Informes/3/InformeListadoFacturasProveedorPendientes.fr3 b/Source/Informes/3/InformeListadoFacturasProveedorPendientes.fr3 index 003610f6..dff48d5f 100644 --- a/Source/Informes/3/InformeListadoFacturasProveedorPendientes.fr3 +++ b/Source/Informes/3/InformeListadoFacturasProveedorPendientes.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + @@ -41,7 +41,7 @@ - + diff --git a/Source/Informes/3/InformeListadoFacturasProveedorPendientesDesglosado.fr3 b/Source/Informes/3/InformeListadoFacturasProveedorPendientesDesglosado.fr3 index 79349d6b..1c820f5d 100644 --- a/Source/Informes/3/InformeListadoFacturasProveedorPendientesDesglosado.fr3 +++ b/Source/Informes/3/InformeListadoFacturasProveedorPendientesDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + @@ -41,7 +41,7 @@ - + diff --git a/Source/Informes/3/InformeListadoPresupuestosClienteGrafComp.fr3 b/Source/Informes/3/InformeListadoPresupuestosClienteGrafComp.fr3 index d5d89940..67ec5f0b 100644 --- a/Source/Informes/3/InformeListadoPresupuestosClienteGrafComp.fr3 +++ b/Source/Informes/3/InformeListadoPresupuestosClienteGrafComp.fr3 @@ -1,5 +1,5 @@ - + @@ -22,7 +22,7 @@ - + diff --git a/Source/Informes/3/InformeListadoRecibosCliPendientes.fr3 b/Source/Informes/3/InformeListadoRecibosCliPendientes.fr3 index 5f0c4bcc..e8ef23d3 100644 --- a/Source/Informes/3/InformeListadoRecibosCliPendientes.fr3 +++ b/Source/Informes/3/InformeListadoRecibosCliPendientes.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeListadoRecibosCliPendientesDesglosado.fr3 b/Source/Informes/3/InformeListadoRecibosCliPendientesDesglosado.fr3 index 77d6517f..4a27d417 100644 --- a/Source/Informes/3/InformeListadoRecibosCliPendientesDesglosado.fr3 +++ b/Source/Informes/3/InformeListadoRecibosCliPendientesDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeListadoRecibosCliente.fr3 b/Source/Informes/3/InformeListadoRecibosCliente.fr3 index 85b2bc41..0558baf7 100644 --- a/Source/Informes/3/InformeListadoRecibosCliente.fr3 +++ b/Source/Informes/3/InformeListadoRecibosCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeListadoRecibosClienteDesglosado.fr3 b/Source/Informes/3/InformeListadoRecibosClienteDesglosado.fr3 index 2410c5da..e5d394b9 100644 --- a/Source/Informes/3/InformeListadoRecibosClienteDesglosado.fr3 +++ b/Source/Informes/3/InformeListadoRecibosClienteDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeListadoRecibosProvPendientes.fr3 b/Source/Informes/3/InformeListadoRecibosProvPendientes.fr3 index d1591b0a..c1bd4993 100644 --- a/Source/Informes/3/InformeListadoRecibosProvPendientes.fr3 +++ b/Source/Informes/3/InformeListadoRecibosProvPendientes.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + @@ -22,7 +22,7 @@ - + @@ -42,7 +42,7 @@ - + diff --git a/Source/Informes/3/InformeListadoRecibosProvPendientesDesglosado.fr3 b/Source/Informes/3/InformeListadoRecibosProvPendientesDesglosado.fr3 index c9b656e8..7158e547 100644 --- a/Source/Informes/3/InformeListadoRecibosProvPendientesDesglosado.fr3 +++ b/Source/Informes/3/InformeListadoRecibosProvPendientesDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + @@ -22,7 +22,7 @@ - + @@ -41,7 +41,7 @@ - + diff --git a/Source/Informes/3/InformeListadoRecibosProveedor.fr3 b/Source/Informes/3/InformeListadoRecibosProveedor.fr3 index 08165e6a..f23ae01c 100644 --- a/Source/Informes/3/InformeListadoRecibosProveedor.fr3 +++ b/Source/Informes/3/InformeListadoRecibosProveedor.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + diff --git a/Source/Informes/3/InformeListadoRecibosProveedorDesglosado.fr3 b/Source/Informes/3/InformeListadoRecibosProveedorDesglosado.fr3 index 74dfb4c3..4304ad81 100644 --- a/Source/Informes/3/InformeListadoRecibosProveedorDesglosado.fr3 +++ b/Source/Informes/3/InformeListadoRecibosProveedorDesglosado.fr3 @@ -1,5 +1,5 @@ - + @@ -7,7 +7,7 @@ - + @@ -21,7 +21,7 @@ - + @@ -42,7 +42,7 @@ - + diff --git a/Source/Informes/3/PedidoProveedor.rdx b/Source/Informes/3/PedidoProveedor.rdx index d4abd5bd..47e2d99b 100644 Binary files a/Source/Informes/3/PedidoProveedor.rdx and b/Source/Informes/3/PedidoProveedor.rdx differ diff --git a/Source/Informes/3/Presupuesto.rdx b/Source/Informes/3/Presupuesto.rdx index 7d41d49e..7bc28921 100644 Binary files a/Source/Informes/3/Presupuesto.rdx and b/Source/Informes/3/Presupuesto.rdx differ diff --git a/Source/Informes/4/AlbaranProveedor.rdx b/Source/Informes/4/AlbaranProveedor.rdx new file mode 100644 index 00000000..b2ec9ef3 Binary files /dev/null and b/Source/Informes/4/AlbaranProveedor.rdx differ diff --git a/Source/Informes/4/FacturaCliente.rdx b/Source/Informes/4/FacturaCliente.rdx index 8b412349..f33b41f0 100644 Binary files a/Source/Informes/4/FacturaCliente.rdx and b/Source/Informes/4/FacturaCliente.rdx differ diff --git a/Source/Informes/4/InfFacturaCliente.fr3 b/Source/Informes/4/InfFacturaCliente.fr3 index bfcf129d..f3b1c20a 100644 --- a/Source/Informes/4/InfFacturaCliente.fr3 +++ b/Source/Informes/4/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -22,11 +22,11 @@ - + - + @@ -66,7 +66,7 @@ - + diff --git a/Source/Informes/4/InfPedidoProveedor.fr3 b/Source/Informes/4/InfPedidoProveedor.fr3 index 7359f1fc..0a84934d 100644 --- a/Source/Informes/4/InfPedidoProveedor.fr3 +++ b/Source/Informes/4/InfPedidoProveedor.fr3 @@ -1,8 +1,8 @@ - + - - + + @@ -18,7 +18,7 @@ - + @@ -30,7 +30,7 @@ - + @@ -38,11 +38,11 @@ - + - + @@ -50,10 +50,10 @@ - + - + @@ -61,7 +61,7 @@ - + diff --git a/Source/Informes/4/InfReciboCliente.fr3 b/Source/Informes/4/InfReciboCliente.fr3 index fd70a8cd..2522fae1 100644 --- a/Source/Informes/4/InfReciboCliente.fr3 +++ b/Source/Informes/4/InfReciboCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -24,11 +24,11 @@ - + - + @@ -39,11 +39,11 @@ - + - + diff --git a/Source/Informes/4/PedidoProveedor.rdx b/Source/Informes/4/PedidoProveedor.rdx new file mode 100644 index 00000000..5831032d Binary files /dev/null and b/Source/Informes/4/PedidoProveedor.rdx differ diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas index 3a90fc71..4b875d19 100644 --- a/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Reports/uRptWordFacturaCliente.pas @@ -230,7 +230,9 @@ begin ReplaceBookmark('CodigoFacturaCab', FieldByName('REFERENCIA').AsString) else ReplaceBookmark('CodigoFacturaCab', FieldByName('REFERENCIA').AsString); - ReplaceBookmark('FechaFacturaCab', FieldByName('FECHA_FACTURA').AsString); + + if BookmarkExists('FechaFacturaCab') then + ReplaceBookmark('FechaFacturaCab', FieldByName('FECHA_FACTURA').AsString); //Se cambia se omiten los vencimientos de los recibos solo tendremos en cuenta el de la factura Cadena := FieldByName('FECHA_VENCIMIENTO').AsString; @@ -243,39 +245,63 @@ begin end; } - ReplaceBookmark('VencimientoCab', Cadena); - ReplaceBookmark('FormaPagoCab', FieldByName('FORMA_PAGO').AsString); - ReplaceBookmark('BancoCab', FieldByName('DATOS_BANCARIOS').AsString); + if BookmarkExists('VencimientoCab') then + ReplaceBookmark('VencimientoCab', Cadena); - ReplaceBookmark('NombreClienteCab', FieldByName('NOMBRE').AsString); - ReplaceBookmark('CIFClienteCab', FieldByName('NIF_CIF').AsString); + if BookmarkExists('FormaPagoCab') then + ReplaceBookmark('FormaPagoCab', FieldByName('FORMA_PAGO').AsString); - ReplaceBookmark('DireccionClienteCab', FieldByName('CALLE').AsString); - ReplaceBookmark('PoblacionClienteCab', + if BookmarkExists('BancoCab') then + ReplaceBookmark('BancoCab', FieldByName('DATOS_BANCARIOS').AsString); + + if BookmarkExists('NombreClienteCab') then + ReplaceBookmark('NombreClienteCab', FieldByName('NOMBRE').AsString); + + if BookmarkExists('CIFClienteCab') then + ReplaceBookmark('CIFClienteCab', FieldByName('NIF_CIF').AsString); + + if BookmarkExists('DireccionClienteCab') then + ReplaceBookmark('DireccionClienteCab', FieldByName('CALLE').AsString); + + if BookmarkExists('PoblacionClienteCab') then + ReplaceBookmark('PoblacionClienteCab', FieldByName('CODIGO_POSTAL').AsString + ' ' + FieldByName('POBLACION').AsString + ' ' + FieldByName('PROVINCIA').AsString); - ReplaceBookmark('BaseImponible', FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_NETO').AsFloat)); + if BookmarkExists('BaseImponible') then + ReplaceBookmark('BaseImponible', FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_NETO').AsFloat)); + ImporteAux := FieldByName('BASE_IMPONIBLE').AsFloat; // - FieldByName('IMPORTE_DESCUENTO').AsFloat; - ReplaceBookmark('BaseImponible2', FormatFloat(DISPLAY_EUROS2, ImporteAux)); + if BookmarkExists('BaseImponible2') then + ReplaceBookmark('BaseImponible2', FormatFloat(DISPLAY_EUROS2, ImporteAux)); if (FieldByName('DESCUENTO').AsInteger = 0) then begin - ReplaceBookmark('BaseImponibleTexto', 'Base imponible'); + if BookmarkExists('BaseImponibleTexto') then + ReplaceBookmark('BaseImponibleTexto', 'Base imponible'); FWordApp.GotoBookmark('CeldasDescuento'); _ShiftCells := wdDeleteCellsShiftLeft; FWordApp.Application.Selection.Cells.Delete(_ShiftCells); end else begin + if BookmarkExists('Descuento') then ReplaceBookmark('Descuento', FieldByName('DESCUENTO').AsString); + + if BookmarkExists('ImporteDto') then ReplaceBookmark('ImporteDto', FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_DESCUENTO').AsFloat)); end; - if EsCadenaVacia(FieldByName('IVA').AsString) then - ReplaceBookmark('IVA', '0') - else - ReplaceBookmark('IVA', FieldByName('IVA').AsString); - ReplaceBookmark('ImporteIVA', FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_IVA').AsFloat)); - ReplaceBookmark('ImporteTotal', FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat)); + + if BookmarkExists('IVA') then + if EsCadenaVacia(FieldByName('IVA').AsString) then + ReplaceBookmark('IVA', '0') + else + ReplaceBookmark('IVA', FieldByName('IVA').AsString); + + if BookmarkExists('ImporteIVA') then + ReplaceBookmark('ImporteIVA', FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_IVA').AsFloat)); + + if BookmarkExists('ImporteTotal') then + ReplaceBookmark('ImporteTotal', FormatFloat(DISPLAY_EUROS2, FieldByName('IMPORTE_TOTAL').AsFloat)); if (FieldByName('RETENCION').AsInteger = 0) then begin @@ -309,16 +335,19 @@ begin ReplaceBookmark('TelefonoEmpresa', tbl_Empresa.FieldByName('TELEFONO_1').AsString); ReplaceBookmark('FaxEmpresa', tbl_Empresa.FieldByName('FAX').AsString); ReplaceBookmark('CorreoEmpresa', tbl_Empresa.FieldByName('EMAIL_1').AsString); - ReplaceBookmark('DatosRegistroMercantil', tbl_Empresa.FieldByName('REGISTRO_MERCANTIL').AsString); + if BookmarkExists('DatosRegistroMercantil') then + ReplaceBookmark('DatosRegistroMercantil', tbl_Empresa.FieldByName('REGISTRO_MERCANTIL').AsString); end; - if not FVerSello then - ReplaceBookmark('Sello', ''); + if BookmarkExists('Sello') then + if not FVerSello then + ReplaceBookmark('Sello', ''); - if (tbl_Cabecera.FieldByName('CERTIFICADO_ISO').AsInteger <> 1) then - begin + if (tbl_Cabecera.FieldByName('CERTIFICADO_ISO').AsInteger <> 1) then + begin + if BookmarkExists('ISO') then ReplaceBookmark('ISO', ''); - end; + end; Close; end; diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index 4d1cf919..dc0669f6 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -39,22 +39,6 @@ - - - - - - - - - - - - - - - -