diff --git a/Resources/Firmas Tecsitel/sello_azacan.jpg b/Resources/Firmas Tecsitel/sello_azacan.jpg new file mode 100644 index 00000000..15e872ed Binary files /dev/null and b/Resources/Firmas Tecsitel/sello_azacan.jpg differ diff --git a/Source/Informes/3/AlbaranCliente.rdx b/Source/Informes/3/AlbaranCliente.rdx index 4e846e1f..e9a06c36 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 bc4d710a..de9c9137 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 b79e74ca..79e2c3dc 100644 --- a/Source/Informes/3/InfAlbaranCliente.fr3 +++ b/Source/Informes/3/InfAlbaranCliente.fr3 @@ -1,37 +1,39 @@ - + - - - + + + - + - - + - + - + + + + diff --git a/Source/Informes/3/InfFacturaCliente.fr3 b/Source/Informes/3/InfFacturaCliente.fr3 index 2dbcbd63..f961fd83 100644 --- a/Source/Informes/3/InfFacturaCliente.fr3 +++ b/Source/Informes/3/InfFacturaCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -12,21 +12,20 @@ - + - - - - - - + + + + + @@ -47,14 +46,15 @@ - - - - - + + + + + - + + diff --git a/Source/Informes/3/InfPedidoProveedor.fr3 b/Source/Informes/3/InfPedidoProveedor.fr3 index 572fc6a5..915d1a4b 100644 --- a/Source/Informes/3/InfPedidoProveedor.fr3 +++ b/Source/Informes/3/InfPedidoProveedor.fr3 @@ -1,24 +1,21 @@ - + - + - - - - - - - + + + + + - + - - + @@ -26,11 +23,11 @@ - + - + @@ -38,11 +35,13 @@ - - + + + + diff --git a/Source/Informes/3/InfPresupuestoCliente.fr3 b/Source/Informes/3/InfPresupuestoCliente.fr3 index 0b7058a4..1ddf0cdc 100644 --- a/Source/Informes/3/InfPresupuestoCliente.fr3 +++ b/Source/Informes/3/InfPresupuestoCliente.fr3 @@ -1,26 +1,25 @@ - + - + - + - - + - + - + @@ -37,7 +36,7 @@ - + @@ -55,7 +54,7 @@ - + diff --git a/Source/Informes/3/InfReciboCliente.fr3 b/Source/Informes/3/InfReciboCliente.fr3 index 59744923..9f51b80e 100644 --- a/Source/Informes/3/InfReciboCliente.fr3 +++ b/Source/Informes/3/InfReciboCliente.fr3 @@ -1,5 +1,5 @@ - + @@ -15,7 +15,7 @@ - + @@ -25,8 +25,8 @@ - - + + @@ -35,10 +35,9 @@ - - + - + @@ -51,18 +50,19 @@ - - + + + - + diff --git a/Source/Informes/3/PedidoProveedor.rdx b/Source/Informes/3/PedidoProveedor.rdx index 4169cc30..1b62de22 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 b3b93e43..7398d9a3 100644 Binary files a/Source/Informes/3/Presupuesto.rdx and b/Source/Informes/3/Presupuesto.rdx differ diff --git a/Source/Modulos/Contactos/Model/uBizContactosServer.pas b/Source/Modulos/Contactos/Model/uBizContactosServer.pas index abc366e7..3fa612a7 100644 --- a/Source/Modulos/Contactos/Model/uBizContactosServer.pas +++ b/Source/Modulos/Contactos/Model/uBizContactosServer.pas @@ -14,8 +14,8 @@ type private FReferenciaAutomatica : Boolean; protected - function _DarReferenciaInterna(const ATipo: String) : String; - function _IncrementarReferenciaInterna(const ATipo: String) : Boolean; + function _DarReferenciaInterna(const ATipo: String; const AIDEmpresa: Integer = -1) : String; + function _IncrementarReferenciaInterna(const ATipo: String; const AIDEmpresa: Integer = -1) : Boolean; function DarReferenciaContacto : String; virtual; abstract; function IncrementarReferenciaContacto : Boolean; virtual; abstract; @@ -269,7 +269,7 @@ begin end; function TBizContactosServer._DarReferenciaInterna( - const ATipo: String): String; + const ATipo: String; const AIDEmpresa: Integer = -1): String; var AReferenciasService : IsrvReferencias; Intf : IInterface; @@ -279,11 +279,11 @@ begin GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); AReferenciasService := Intf as IsrvReferencias; - Result := AReferenciasService.DarNuevaReferencia(ATipo, -1) + Result := AReferenciasService.DarNuevaReferencia(ATipo, AIDEmpresa) end; function TBizContactosServer._IncrementarReferenciaInterna( - const ATipo: String): Boolean; + const ATipo: String; const AIDEmpresa: Integer = -1): Boolean; var AReferenciasService : IsrvReferencias; Intf : IInterface; @@ -293,7 +293,7 @@ begin GetClassFactory('srvReferencias').CreateInstance(AClientID, Intf); AReferenciasService := Intf as IsrvReferencias; - Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, -1) + Result := AReferenciasService.IncrementarValorReferencia(ATipo, Self.REFERENCIA, AIDEmpresa) end; initialization diff --git a/Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas b/Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas index 720447df..86bc8952 100644 --- a/Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas +++ b/Source/Modulos/Contactos/Model/uBizEmpleadosServer.pas @@ -33,7 +33,7 @@ const function TBizEmpleadoServer.DarReferenciaContacto: String; begin - Result := _DarReferenciaInterna(REF_EMPLEADOS) + Result := _DarReferenciaInterna(REF_EMPLEADOS, ID_EMPRESA) end; procedure TBizEmpleadoServer.Delete_Datos_Contacto(aChange: TDADeltaChange); @@ -61,7 +61,7 @@ end; function TBizEmpleadoServer.IncrementarReferenciaContacto: Boolean; begin - Result := _IncrementarReferenciaInterna(REF_EMPLEADOS) + Result := _IncrementarReferenciaInterna(REF_EMPLEADOS, ID_EMPRESA) end; procedure TBizEmpleadoServer.Insert_Datos_Contacto(aChange: TDADeltaChange); diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm index 62e0c9bc..d5d108a5 100644 --- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm +++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm @@ -23,7 +23,7 @@ object RptRecibosCliente: TRptRecibosCliente item Name = 'REFERENCIA_REC_COMPENSADO' DataType = datString - Size = 255 + Size = 1 end item Name = 'ID_EMPRESA' @@ -100,6 +100,10 @@ object RptRecibosCliente: TRptRecibosCliente Name = 'IMPORTE_FACTURA' DataType = datCurrency end + item + Name = 'ID_CLIENTE' + DataType = datInteger + end item Name = 'NOMBRE_CLIENTE' DataType = datString @@ -198,7 +202,7 @@ object RptRecibosCliente: TRptRecibosCliente item Name = 'ID' DataType = datInteger - Value = '' + Value = '40' ParamType = daptInput end> MasterMappingMode = mmDataRequest @@ -449,13 +453,13 @@ object RptRecibosCliente: TRptRecibosCliente item Name = 'ID' DataType = datInteger - Value = '' + Value = '40' ParamType = daptInput end> Statements = < item Connection = 'IBX' - TargetTable = 'REMESAS_CLIENTE' + TargetTable = 'RECIBOS_CLIENTE' SQL = 'SELECT'#10' V_RECIBOS_CLIENTE.ID,'#10' V_RECIBOS_CLIENTE.ID_RECIBO' + '_COMPENSADO,'#10' V_RECIBOS_CLIENTE.REFERENCIA_REC_COMPENSADO,'#10' ' + @@ -469,18 +473,19 @@ object RptRecibosCliente: TRptRecibosCliente '.OTROS_GASTOS,'#10' V_RECIBOS_CLIENTE.IMPORTE_TOTAL,'#10' V_RECIBO' + 'S_CLIENTE.FECHA_FACTURA,'#10' V_RECIBOS_CLIENTE.FORMA_PAGO_FACTUR' + 'A,'#10' V_RECIBOS_CLIENTE.IMPORTE_FACTURA,'#10' V_RECIBOS_CLIENTE.' + - 'NOMBRE_CLIENTE,'#10' V_RECIBOS_CLIENTE.NIF_CIF_CLIENTE,'#10' V_REC' + - 'IBOS_CLIENTE.CALLE_CLIENTE,'#10' V_RECIBOS_CLIENTE.CODIGO_POSTAL_' + - 'CLIENTE,'#10' V_RECIBOS_CLIENTE.PROVINCIA_CLIENTE,'#10' V_RECIBOS_' + - 'CLIENTE.POBLACION_CLIENTE,'#10#10' EMPRESAS.NIF_CIF as NIF_CIF_EMPR' + - 'ESA, EMPRESAS.RAZON_SOCIAL,'#10' EMPRESAS.CALLE as CALLE_EMPRESA,' + - ' EMPRESAS.POBLACION as POBLACION_EMPRESA,'#10' EMPRESAS.PROVINCIA' + - ' as PROVINCIA_EMPRESA, EMPRESAS.CODIGO_POSTAL as CODIGO_POSTAL_E' + - 'MPRESA,'#10' EMPRESAS.TELEFONO_1, EMPRESAS.FAX, EMPRESAS.MOVIL_1,' + - ' EMPRESAS.EMAIL_1,'#10' EMPRESAS.PAGINA_WEB, EMPRESAS.REGISTRO_ME' + - 'RCANTIL, EMPRESAS.LOGOTIPO'#10#10'FROM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTE' + - 'R JOIN EMPRESAS ON (EMPRESAS.ID = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10 + - 'WHERE'#10' V_RECIBOS_CLIENTE.ID = :ID'#10 + 'ID_CLIENTE,'#10' V_RECIBOS_CLIENTE.NOMBRE_CLIENTE,'#10' V_RECIBOS_' + + 'CLIENTE.NIF_CIF_CLIENTE,'#10' V_RECIBOS_CLIENTE.CALLE_CLIENTE,'#10' ' + + ' V_RECIBOS_CLIENTE.CODIGO_POSTAL_CLIENTE,'#10' V_RECIBOS_CLIENTE' + + '.PROVINCIA_CLIENTE,'#10' V_RECIBOS_CLIENTE.POBLACION_CLIENTE,'#10#10' ' + + ' EMPRESAS.NIF_CIF as NIF_CIF_EMPRESA, EMPRESAS.RAZON_SOCIAL,'#10' ' + + ' EMPRESAS.CALLE as CALLE_EMPRESA, EMPRESAS.POBLACION as POBLACI' + + 'ON_EMPRESA,'#10' EMPRESAS.PROVINCIA as PROVINCIA_EMPRESA, EMPRESA' + + 'S.CODIGO_POSTAL as CODIGO_POSTAL_EMPRESA,'#10' EMPRESAS.TELEFONO_' + + '1, EMPRESAS.FAX, EMPRESAS.MOVIL_1, EMPRESAS.EMAIL_1,'#10' EMPRESA' + + 'S.PAGINA_WEB, EMPRESAS.REGISTRO_MERCANTIL, EMPRESAS.LOGOTIPO'#10#10'FR' + + 'OM'#10' V_RECIBOS_CLIENTE'#10' LEFT OUTER JOIN EMPRESAS ON (EMPRESAS.I' + + 'D = V_RECIBOS_CLIENTE.ID_EMPRESA)'#10'WHERE'#10' V_RECIBOS_CLIENTE.ID =' + + ' :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -489,8 +494,7 @@ object RptRecibosCliente: TRptRecibosCliente end item DatasetField = 'ID_RECIBO_COMPENSADO' - TableField = '' - SQLOrigin = 'ID_RECIBO_COMPENSADO' + TableField = 'ID_RECIBO_COMPENSADO' end item DatasetField = 'REFERENCIA_REC_COMPENSADO' @@ -499,7 +503,8 @@ object RptRecibosCliente: TRptRecibosCliente end item DatasetField = 'ID_EMPRESA' - TableField = 'ID_EMPRESA' + TableField = '' + SQLOrigin = 'ID_EMPRESA' end item DatasetField = 'REFERENCIA' @@ -512,8 +517,7 @@ object RptRecibosCliente: TRptRecibosCliente end item DatasetField = 'ID_FACTURA' - TableField = '' - SQLOrigin = 'ID_FACTURA' + TableField = 'ID_FACTURA' end item DatasetField = 'DATOS_BANCARIOS' @@ -522,8 +526,7 @@ object RptRecibosCliente: TRptRecibosCliente end item DatasetField = 'ID_REMESA' - TableField = '' - SQLOrigin = 'ID_REMESA' + TableField = 'ID_REMESA' end item DatasetField = 'REFERENCIA_REMESA' @@ -532,13 +535,11 @@ object RptRecibosCliente: TRptRecibosCliente end item DatasetField = 'FECHA_EMISION' - TableField = '' - SQLOrigin = 'FECHA_EMISION' + TableField = 'FECHA_EMISION' end item DatasetField = 'FECHA_VENCIMIENTO' - TableField = '' - SQLOrigin = 'FECHA_VENCIMIENTO' + TableField = 'FECHA_VENCIMIENTO' end item DatasetField = 'DESCRIPCION' @@ -546,22 +547,20 @@ object RptRecibosCliente: TRptRecibosCliente end item DatasetField = 'OBSERVACIONES' - TableField = '' - SQLOrigin = 'OBSERVACIONES' + TableField = 'OBSERVACIONES' end item DatasetField = 'IMPORTE' - TableField = '' - SQLOrigin = 'IMPORTE' + TableField = 'IMPORTE' end item DatasetField = 'OTROS_GASTOS' - TableField = '' - SQLOrigin = 'OTROS_GASTOS' + TableField = 'OTROS_GASTOS' end item DatasetField = 'IMPORTE_TOTAL' - TableField = 'IMPORTE_TOTAL' + TableField = '' + SQLOrigin = 'IMPORTE_TOTAL' end item DatasetField = 'FECHA_FACTURA' @@ -672,6 +671,11 @@ object RptRecibosCliente: TRptRecibosCliente DatasetField = 'LOGOTIPO' TableField = '' SQLOrigin = 'LOGOTIPO' + end + item + DatasetField = 'ID_CLIENTE' + TableField = '' + SQLOrigin = 'ID_CLIENTE' end> end> Name = 'Informe_Cabecera' @@ -687,7 +691,7 @@ object RptRecibosCliente: TRptRecibosCliente item Name = 'REFERENCIA_REC_COMPENSADO' DataType = datString - Size = 255 + Size = 1 end item Name = 'ID_EMPRESA' @@ -764,6 +768,10 @@ object RptRecibosCliente: TRptRecibosCliente Name = 'IMPORTE_FACTURA' DataType = datCurrency end + item + Name = 'ID_CLIENTE' + DataType = datInteger + end item Name = 'NOMBRE_CLIENTE' DataType = datString @@ -1161,6 +1169,69 @@ object RptRecibosCliente: TRptRecibosCliente Name = 'IMPORTE_TOTAL' DataType = datCurrency end> + end + item + Params = < + item + Name = 'ID_CONTACTO' + Value = '' + end> + Statements = < + item + Connection = 'IBX' + SQL = + 'SELECT'#10' TITULAR, ENTIDAD, SUCURSAL, DC, CUENTA'#10'FROM contactos' + + '_datos_banco'#10'WHERE ID_CONTACTO = :ID_CONTACTO'#10 + StatementType = stSQL + ColumnMappings = < + item + DatasetField = 'TITULAR' + TableField = 'TITULAR' + end + item + DatasetField = 'ENTIDAD' + TableField = 'ENTIDAD' + end + item + DatasetField = 'SUCURSAL' + TableField = 'SUCURSAL' + end + item + DatasetField = 'DC' + TableField = 'DC' + end + item + DatasetField = 'CUENTA' + TableField = 'CUENTA' + end> + end> + Name = 'Informe_Bancos_Cliente' + Fields = < + item + Name = 'TITULAR' + DataType = datString + Size = 255 + end + item + Name = 'ENTIDAD' + DataType = datString + Size = 15 + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + end + item + Name = 'DC' + DataType = datString + Size = 15 + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + end> end> JoinDataTables = <> UnionDataTables = <> @@ -1671,4 +1742,62 @@ object RptRecibosCliente: TRptRecibosCliente Left = 704 Top = 304 end + object tbl_BancosCliente: TDAMemDataTable + RemoteUpdatesOptions = [] + Fields = < + item + Name = 'TITULAR' + DataType = datString + Size = 255 + end + item + Name = 'ENTIDAD' + DataType = datString + Size = 15 + end + item + Name = 'SUCURSAL' + DataType = datString + Size = 15 + end + item + Name = 'DC' + DataType = datString + Size = 15 + end + item + Name = 'CUENTA' + DataType = datString + Size = 15 + end> + Params = < + item + Name = 'ID_CONTACTO' + Value = '' + end> + MasterMappingMode = mmDataRequest + LogChanges = False + StreamingOptions = [soDisableEventsWhileStreaming] + RemoteFetchEnabled = False + LocalSchema = schReport + LocalDataStreamer = Bin2DataStreamer + LogicalName = 'Informe_Bancos_Cliente' + IndexDefs = <> + Left = 168 + Top = 200 + end + object DADataBancosCliente: TDADataSource + DataSet = tbl_BancosCliente.Dataset + DataTable = tbl_BancosCliente + Left = 168 + Top = 144 + end + object frxDBBancosCliente: TfrxDBDataset + UserName = 'frxDBBancosCliente' + CloseDataSource = False + DataSource = DADataBancosCliente + BCDToCurrency = False + Left = 168 + Top = 88 + end end diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas index e4455689..456ed583 100644 --- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas +++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas @@ -40,6 +40,9 @@ type tbl_InformeListadoRecibosPendResumen: TDAMemDataTable; schReport: TDASchema; DataDictionary: TDADataDictionary; + tbl_BancosCliente: TDAMemDataTable; + DADataBancosCliente: TDADataSource; + frxDBBancosCliente: TfrxDBDataset; procedure DataModuleCreate(Sender: TObject); procedure DataModuleDestroy(Sender: TObject); @@ -88,6 +91,7 @@ const { Dataset names for schReport } ds_InformeCabecera = 'Informe_Cabecera'; ds_InformeCompensados = 'Informe_Compensados'; + ds_InformeBancosCliente = 'Informe_Bancos_Cliente'; ds_InformeListadoRecibosResumen = 'InformeListadoRecibosResumen'; ds_InformeListadoRecibosPendientesResumen = 'InformeListadoRecibosPendientesResumen'; @@ -108,6 +112,9 @@ begin frxDBCompensados.DataSource := DADataCompensados; frxDBCompensados.CloseDataSource := False; + + frxDBBancosCliente.DataSource := DADataBancosCliente; + frxDBBancosCliente.CloseDataSource := False; end; function TRptRecibosCliente.GenerarRecibo(const ListaID: TIntegerArray): Binary; @@ -399,6 +406,7 @@ procedure TRptRecibosCliente.DataModuleDestroy(Sender: TObject); begin tbl_Cabecera.Active := False; tbl_Compensados.Active := False; + tbl_BancosCliente.Active := False; FreeANDNIL(FListaNombresClientes); end; @@ -564,6 +572,7 @@ begin try tbl_Cabecera.Active := False; tbl_Compensados.Active := False; + tbl_BancosCliente.Active := False; tbl_Cabecera.ParamByName('ID').AsInteger := ID; tbl_Compensados.ParamByName('ID_RECIBO').AsInteger := ID; @@ -571,6 +580,11 @@ begin tbl_Cabecera.Active := True; tbl_Compensados.Active := True; +//Ojo orden importante + tbl_BancosCliente.ParamByName('ID_CONTACTO').AsInteger := tbl_Cabecera.FieldByName('ID_CLIENTE').AsInteger; + tbl_BancosCliente.Active := True; + + AInforme := DarRutaFichero(DarRutaInformes, rptInforme, tbl_Cabecera.FieldByName('ID_EMPRESA').AsString); if VarIsNull(AInforme) then raise Exception.Create (('Error Servidor: _GenerarRecibo, no encuentra informe ' + rptInforme)); diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj index b8f65222..96f39348 100644 --- a/Source/Servidor/FactuGES_Server.dproj +++ b/Source/Servidor/FactuGES_Server.dproj @@ -41,6 +41,7 @@ + ExpressPrinting System by Developer Express Inc. FactuGES_Server.dpr