diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 22263859e..03a863762 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -292,12 +292,11 @@ Public Class ClsContabilidad Public Function UpdatePrePolizasDetalle(CvePrePolizaDetalle As Integer, Concepto As String, CveSubProyecto As Integer, IdCtaContable As Integer, TipoMovto As Boolean, ImporteMN As Decimal, Optional CveTipoGasto As Integer = -1, Optional CveConceptoContable As Integer = -1, Optional CveProveedor As Integer = -1, Optional CveCompra As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveCliente As Integer = -1, Optional CveVenta As Integer = -1, - Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1, Optional TipoCambio As Decimal = -1) As Boolean - + Optional Referencia As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional CveCuenta As Integer = -1, Optional PorcentajeImpuesto As Decimal = -1, Optional Importe As Decimal = -1, Optional CveIE As Integer = -1, + Optional TipoCambio As Decimal = -1, Optional CveClasificacion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Conta_PrePolizasDetalleUpdate") - With SqlAdapter.SelectCommand.Parameters .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle .Add("@Concepto", SqlDbType.VarChar).Value = Concepto @@ -318,13 +317,12 @@ Public Class ClsContabilidad .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveIE", SqlDbType.Int).Value = CveIE - + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion End With Try SqlAdapter.Fill(Data) Retorno = True - Catch ex As Exception If ex.Message.Contains("CuentasResultados_SubProyectos") Then OnError("El concepto requiere que se le especifique centro de costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 950871f6f..1bd14b0b8 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -1305,7 +1305,7 @@ Public Class ClsOS Return Retorno End Function - Public Function UpdateVentaOS(CveVenta As Integer, CveOS As Integer) As Boolean + Public Function UpdateVentaOS(CveVenta As Integer, CveOS As Integer, Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_UpdateVentaOS") @@ -1313,6 +1313,8 @@ Public Class ClsOS With SqlAdapter.SelectCommand.Parameters .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveOS", SqlDbType.Int).Value = CveOS + .Add("@Paciente", SqlDbType.VarChar).Value = Paciente + .Add("@Episodio", SqlDbType.VarChar).Value = Episodio End With Try diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index cafaeaf55..d84a4c789 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -59,7 +59,7 @@ Public Class ClsVentas Public Property Neto As Double Public Property PorNeto As Double Public Property CveClasificacionDetalle As Integer - + Public Property CveMedicoNuevo As Integer = -1 #End Region @@ -439,8 +439,7 @@ Public Class ClsVentas Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False, Optional ServicioDomicilio As Boolean = False, Optional RFCReceptor As String = "", Optional Adjunto As String = "-1", Optional DevolucionImportePagado As Decimal = 0, Optional EsGarantia As Boolean = False, Optional CveLineaAdicional As Integer = -1, Optional DescripcionVenta As String = "", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveTipoVenta As Integer = -1, Optional RequiereOS As Boolean = False, - Optional FechaParaSurtir As DateTime = MinFecha - ) As Boolean + Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasAdd") @@ -547,6 +546,9 @@ Public Class ClsVentas .Add("@RequiereOS", SqlDbType.Int).Value = RequiereOS .Add("@FechaParaSurtir", SqlDbType.DateTime).Value = If(FechaParaSurtir = MinFecha, Fecha, FechaParaSurtir) + .Add("@Paciente", SqlDbType.VarChar).Value = Paciente + .Add("@Episodio", SqlDbType.VarChar).Value = Episodio + .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With @@ -576,7 +578,8 @@ Public Class ClsVentas Optional AtencionA As String = "", Optional PedidoContrato As String = "", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Decimal = -1, Optional RetISR As Decimal = -1, Optional Kilometraje As Decimal = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1, - Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional FechaParaSurtir As DateTime = MinFecha) As Boolean + Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional FechaParaSurtir As DateTime = MinFecha, + Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -613,6 +616,8 @@ Public Class ClsVentas .Add("@CveMedico", SqlDbType.Int).Value = CveMedico .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento .Add("@FechaParaSurtir", SqlDbType.DateTime).Value = FechaParaSurtir + .Add("@Paciente", SqlDbType.VarChar).Value = Paciente + .Add("@Episodio", SqlDbType.VarChar).Value = Episodio End With Try @@ -627,7 +632,7 @@ Public Class ClsVentas Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String, Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, - Optional FechaParaSurtir As DateTime = MinFecha) As Boolean + Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasObservacionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -646,6 +651,8 @@ Public Class ClsVentas .Add("@CveMedico", SqlDbType.Int).Value = CveMedico .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento .Add("@FechaParaSurtir", SqlDbType.DateTime).Value = FechaParaSurtir + .Add("@Paciente", SqlDbType.VarChar).Value = Paciente + .Add("@Episodio", SqlDbType.VarChar).Value = Episodio End With Try @@ -6020,7 +6027,24 @@ Public Class ClsVentas End Function + Public Function UpdateVentaCorte(CveVenta As Integer, CveEmpresa As Integer, CveCorte As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentaCorteUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveCorte", SqlDbType.Int).Value = CveCorte + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar los datos de facturación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function #Region "TIPO VENTA" @@ -6072,9 +6096,10 @@ Public Class ClsVentas Public Function AddMedico(Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String, Optional CveMedicoSubEspecialidad As Integer = -1, - Optional Torre As String = "-1") As Boolean + Optional Torre As String = "-1") As Integer Dim Retorno As Boolean = False + CveMedicoNuevo = -1 DataAdapter("PA_Vta_MedicosAdd") With SqlAdapter.SelectCommand.Parameters @@ -6095,16 +6120,20 @@ Public Class ClsVentas .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad .Add("@Torre", SqlDbType.VarChar).Value = Torre + .Add("@CveMedicoNuevo", SqlDbType.Int).Direction = ParameterDirection.Output + End With Try SqlAdapter.Fill(Data) + CveMedicoNuevo = SqlAdapter.SelectCommand.Parameters("@CveMedicoNuevo").Value.ToString.ToEntero Retorno = True Catch ex As Exception OnError("Ocurrió un error al guardar el Medico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try - Return Retorno + + Return CveMedicoNuevo End Function diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 32bb6cb46..b9da573fd 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2156,7 +2156,7 @@ Namespace Modelos CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=factura.OrdenCompra, CveCuentaTerminal:=factura.CveCuentaTerminal, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal, CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)), CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio, RFCReceptor:=RFCReceptor, EsGarantia:=factura.EsGarantia, DescripcionVenta:=factura.DescripcionVenta, - CveMedico:=factura.CveMedico, CveProcedimiento:=factura.CveProcedimiento, CveTipoVenta:=factura.CveTipoVenta, FechaParaSurtir:=factura.FechaParaSurtir) Then + CveMedico:=factura.CveMedico, CveProcedimiento:=factura.CveProcedimiento, CveTipoVenta:=factura.CveTipoVenta, FechaParaSurtir:=factura.FechaParaSurtir, Paciente:=factura.Paciente, Episodio:=factura.Episodio) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") @@ -7647,6 +7647,9 @@ Namespace Modelos Public Property CveProcedimiento As Integer = -1 Public Property Procedimiento As String = "" Public Property CveTipoVenta As Integer = -1 + + Public Property Paciente As String = "" + Public Property Episodio As String = "" #End Region End Class diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 8012321c5..37405a912 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2460,11 +2460,13 @@ Public Class Timbrado #Region "Comercio Exterior" - If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then - If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then + If UsuarioActual.CveEmpresa = 172 Then - 'DATOS GENERALES - cfdi.ComercioExterior20(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado, + If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then + If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then + + 'DATOS GENERALES + cfdi.ComercioExterior20(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado, ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento, ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen, ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen, @@ -2473,9 +2475,9 @@ Public Class Timbrado ObjCFDITimbre.Complementos.ComercioExterior.Observaciones, ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD, ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD) - 'EMISOR - cfdi.ComercioExterior20Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP)) - cfdi.ComercioExterior20Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle, + 'EMISOR + cfdi.ComercioExterior20Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP)) + cfdi.ComercioExterior20Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia, @@ -2485,9 +2487,9 @@ Public Class Timbrado ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais, ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP) - 'RECEPTOR - cfdi.ComercioExterior20Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib) - cfdi.ComercioExterior20DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle, + 'RECEPTOR + cfdi.ComercioExterior20Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib) + cfdi.ComercioExterior20DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle, ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior, ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior, ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia, @@ -2498,8 +2500,8 @@ Public Class Timbrado ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais, ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP) - If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then - cfdi.ComercioExterior20Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib, + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then + cfdi.ComercioExterior20Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior, @@ -2511,27 +2513,104 @@ Public Class Timbrado ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais, ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP) - End If + End If - 'MERCANCIAS - If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then - For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias - cfdi.ComercioExterior20Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares) - If concep.DescripcionesEspecificas.Marca <> "" Then - cfdi.ComercioExterior20MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca, + 'MERCANCIAS + If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then + For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias + cfdi.ComercioExterior20Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares) + If concep.DescripcionesEspecificas.Marca <> "" Then + cfdi.ComercioExterior20MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca, concep.DescripcionesEspecificas.Modelo, concep.DescripcionesEspecificas.SubModelo, concep.DescripcionesEspecificas.NumeroSerie) - End If - Next + End If + Next + + End If + End If - - End If - End If + Else + If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then + If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then + + 'DATOS GENERALES + cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior.MotivoTraslado, + ObjCFDITimbre.Complementos.ComercioExterior.TipoOperacion, + ObjCFDITimbre.Complementos.ComercioExterior.ClavedePedimento, + ObjCFDITimbre.Complementos.ComercioExterior.CertificadoOrigen, + ObjCFDITimbre.Complementos.ComercioExterior.NumCertificadoOrigen, + ObjCFDITimbre.Complementos.ComercioExterior.NumeroExportadorConfiable, + ObjCFDITimbre.Complementos.ComercioExterior.Incoterm, + ObjCFDITimbre.Complementos.ComercioExterior.Subdivision, + ObjCFDITimbre.Complementos.ComercioExterior.Observaciones, + ObjCFDITimbre.Complementos.ComercioExterior.TipoCambioUSD, + ObjCFDITimbre.Complementos.ComercioExterior.TotalUSD) + 'EMISOR + cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CURP)) + cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Emisor.CP) + 'RECEPTOR + cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumRegIdTrib) + cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Receptor.CP) + + If ObjCFDITimbre.Complementos.ComercioExterior.Destinatario IsNot Nothing Then + cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumRegIdTrib, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Nombre, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Calle, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroExterior, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.NumeroInterior, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Colonia, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Localidad, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Referencia, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Municipio, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Estado, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.Pais, + ObjCFDITimbre.Complementos.ComercioExterior.Destinatario.CP) + End If + + + 'MERCANCIAS + If ObjCFDITimbre.Complementos.ComercioExterior.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior.Mercancias.Count > 0 Then + For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior.Mercancias + cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares) + If concep.DescripcionesEspecificas.Marca <> "" Then + cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca, + concep.DescripcionesEspecificas.Modelo, + concep.DescripcionesEspecificas.SubModelo, + concep.DescripcionesEspecificas.NumeroSerie) + End If + Next + + End If + + + End If + End If + + + End if #End Region diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index 36d4258df..cbf1d3adf 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -129,11 +129,12 @@ Public Class E119 : Implements IHttpHandler End If If Metodo = "RegistraRemision" Then + context.Response.ContentType = "application/json" Dim Auth As AuthMessage = ValidarSolicitud(context) - + MsgLog.AppendLine("Validado:" & Auth.IsSuccess) If Auth.IsSuccess Then - retorno = RegistraRemision(context) + retorno = RegistraRemision(context, MsgLog) Else context.Response.StatusCode = Auth.StatusCode retorno = JsonConvert.SerializeObject(Auth.ErrorMessage) @@ -335,15 +336,14 @@ Public Class E119 : Implements IHttpHandler End If End Function - Private Function RegistraRemision(ByVal context As HttpContext) As String + Private Function RegistraRemision(ByVal context As HttpContext, ByRef MsgLog As StringBuilder) As String Dim TieneError As Boolean = False Dim JsonRequest As JObject = Nothing Dim Respuesta As New ResponseMsg Dim RespuestaError As New ResponseMsgError - Dim MsgLog As New StringBuilder - Try + Try MsgLog.AppendLine("1.0 Registra") If context.Request.InputStream IsNot Nothing Then Using reader As New StreamReader(context.Request.InputStream) @@ -355,6 +355,7 @@ Public Class E119 : Implements IHttpHandler TieneError = True End If Else + MsgLog.AppendLine("json:" & json) TieneError = True End If End Using @@ -362,7 +363,7 @@ Public Class E119 : Implements IHttpHandler MsgLog.AppendLine("1.1 accedido") If TieneError Then - RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado" + RespuestaError.message = "No se pudo procesar la solicitud - Formato mal formado (1.1)" context.Response.StatusCode = 200 Return JsonConvert.SerializeObject(RespuestaError) End If @@ -378,6 +379,7 @@ Public Class E119 : Implements IHttpHandler Dim ObjInventario As New ClsInventarios(ObjClientes.IniciaTransacSQL()) Dim CveSubProyecto, CveCliente, CveMoneda, CvePS As Integer Dim Cantidad, PU, Descuento As Decimal + Dim CveDireccionEnvio As Integer = 0 Dim Obs As String = "" CveSubProyecto = 12659 ' fijo Ecommerce CveCliente = 0 @@ -387,8 +389,8 @@ Public Class E119 : Implements IHttpHandler Dim RFC As String = "" Dim NombreCliente As String = "" If JsonRequest("billing") IsNot Nothing Then - RFC = JsonRequest("billing").First("first_name").ToString() - NombreCliente = JsonRequest("billing").First("first_name").ToString() & " " & JsonRequest("billing").First("last_name").ToString() + RFC = JsonRequest("billing")("first_name").ToString() + NombreCliente = JsonRequest("billing")("first_name").ToString() & " " & JsonRequest("billing")("last_name").ToString() End If 'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE @@ -406,16 +408,16 @@ Public Class E119 : Implements IHttpHandler MsgLog.AppendLine("1.5 crear cliente") If JsonRequest("billing") IsNot Nothing Then Dim CveEstado As Integer = -1 - Dim Direccion As String = If(JsonRequest("billing").First("address_1") Is Nothing, "", JsonRequest("billing").First("address_1").ToString()) + Dim Direccion As String = If(JsonRequest("billing")("address_1") Is Nothing, "", JsonRequest("billing")("address_1").ToString()) Dim NumExt As String = "" Dim NumInt As String = "" Dim Colonia As String = "" - Dim Ciudad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString()) - Dim Localidad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString()) - Dim CP As String = If(JsonRequest("billing").First("postcode") Is Nothing, "", JsonRequest("billing").First("postcode").ToString()) - Dim Telefono As String = If(JsonRequest("billing").First("phone") Is Nothing, "", JsonRequest("billing").First("phone").ToString()) - Dim Correo As String = If(JsonRequest("billing").First("email") Is Nothing, "", JsonRequest("billing").First("email").ToString()) - Dim Estado As String = If(JsonRequest("billing").First("state") Is Nothing, "", JsonRequest("billing").First("state").ToString()) + Dim Ciudad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) + Dim Localidad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) + Dim CP As String = If(JsonRequest("billing")("postcode") Is Nothing, "", JsonRequest("billing")("postcode").ToString()) + Dim Telefono As String = If(JsonRequest("billing")("phone") Is Nothing, "", JsonRequest("billing")("phone").ToString()) + Dim Correo As String = If(JsonRequest("billing")("email") Is Nothing, "", JsonRequest("billing")("email").ToString()) + Dim Estado As String = If(JsonRequest("billing")("state") Is Nothing, "", JsonRequest("billing")("state").ToString()) If Not String.IsNullOrEmpty(Estado) Then CveEstado = ClsPaginas.GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero() If CveEstado <= 0 Then 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA @@ -437,13 +439,58 @@ Public Class E119 : Implements IHttpHandler End If End If - ' shiping - 'shiping_lines/ method_id: free_shipping/local_pickup + If JsonRequest("shipping") IsNot Nothing AndAlso Not TieneError Then + Dim CveEstado As Integer = -1 + Dim Direccion As String = If(JsonRequest("shipping")("address_1") Is Nothing, "", JsonRequest("shipping")("address_1").ToString()) + Dim NumExt As String = "" + Dim NumInt As String = "" + Dim Colonia As String = "" + Dim Ciudad As String = If(JsonRequest("shipping")("city") Is Nothing, "", JsonRequest("shipping")("city").ToString()) + Dim Localidad As String = If(JsonRequest("shipping")("city") Is Nothing, "", JsonRequest("shipping")("city").ToString()) + Dim CP As String = If(JsonRequest("shipping")("postcode") Is Nothing, "", JsonRequest("shipping")("postcode").ToString()) + Dim Telefono As String = If(JsonRequest("shipping")("phone") Is Nothing, "", JsonRequest("shipping")("phone").ToString()) + Dim Correo As String = If(JsonRequest("shipping")("email") Is Nothing, "", JsonRequest("shipping")("email").ToString()) + Dim Estado As String = If(JsonRequest("shipping")("state") Is Nothing, "", JsonRequest("shipping")("state").ToString()) + If Not String.IsNullOrEmpty(Estado) Then + CveEstado = ClsPaginas.GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero() + If CveEstado <= 0 Then 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA + CveEstado = 26 + End If + Else + CveEstado = 26 + End If + + If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then + Dim dtt As DataTable = ObjClientes.DtResultados + If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then + dtt = dtt.FiltraParametros($"EnvioDireccion = '{Direccion}' and EnvioCP = '{CP}'") + If dtt.Rows.Count > 0 Then + CveDireccionEnvio = dtt.FiltroPrimeroValor("CveDireccionEnvio").ToEntero + End If + Else + CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, Direccion, NumExt, NumInt, Colonia, Ciudad, Estado, CP, "", 100, 1) + End If + End If + + Else + MsgLog.AppendLine("1.5.9 sin datos cliente") + TieneError = True + Resp.Mensajes.Add("no existen datos del cliente") + End If MsgLog.AppendLine("1.6 inicio generar venta") ObjFactura = Modelos.Factura.CrearVentaNueva(Usuario, CveSubProyecto, CveCliente, CveMoneda, "Rem") MsgLog.AppendFormat("1.6.0 objeto creado {0}", If(ObjFactura IsNot Nothing, "si", "no")) + If JsonRequest("shiping_lines") IsNot Nothing Then + ' shiping + 'shiping_lines/ method_id: free_shipping/local_pickup + Dim Entrega As String = If(JsonRequest("shiping_lines")("method_id") Is Nothing, "", JsonRequest("shiping_lines")("method_id").ToString()) + ObjFactura.Alfa1 = Entrega + End If + + ObjFactura.CveDireccionEnvio = cvedireccionenvio + If JsonRequest("line_items") IsNot Nothing Then Dim ListaPS As JArray = JArray.Parse(JsonRequest("line_items").ToString()) Dim Consec As Integer = 1 @@ -470,6 +517,7 @@ Public Class E119 : Implements IHttpHandler Resp.Mensajes.Add("no existen productos definidos") End If + If ObjFactura IsNot Nothing AndAlso Not TieneError Then MsgLog.AppendLine("1.7 agregar la remision") Resp = ObjFactura.EmitirFactura(False, Transac:=ObjClientes.IniciaTransacSQL()) @@ -528,9 +576,10 @@ Public Class E119 : Implements IHttpHandler Catch ex As Exception TieneError = True + Finally + MsgLog.ToString.GuardaLogAD("LogE119") End Try - MsgLog.ToString.GuardaLogAD("LogE119") If TieneError Then context.Response.StatusCode = 200 Return JsonConvert.SerializeObject(RespuestaError) diff --git a/Compras/RepComplementoPago.aspx.vb b/Compras/RepComplementoPago.aspx.vb index fe617bac8..eb4b41f15 100644 --- a/Compras/RepComplementoPago.aspx.vb +++ b/Compras/RepComplementoPago.aspx.vb @@ -63,10 +63,10 @@ Partial Class Compras_RepComplementoPago Private Sub CargaDatos() Dim CveProveedor As Integer = If(DdlProveedores.SelectedValue.ToEntero = 0, -1, DdlProveedores.SelectedValue.ToEntero) - Dim CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero - Dim FechaInicio = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha) - Dim FechaFin = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha) - Dim TipoConsulta = If(ChkViculadas.Checked, 2, 1) + Dim CveTipoProveedor As Integer = DdlTipoProveedor.SelectedValue.ToEntero + Dim FechaInicio As Date = If(IsDate(TxtFiltrosFechaInicio.Text), TxtFiltrosFechaInicio.Text.ToDate, MinFecha) + Dim FechaFin As Date = If(IsDate(TxtFiltrosFechaFin.Text), TxtFiltrosFechaFin.Text.ToDate, MaxFecha) + Dim TipoConsulta As Integer = If(ChkViculadas.Checked, 2, 1) Dim Count As Integer = 0 Dim ObjCompras As New ClsCompras diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index d00d8b753..4856937c2 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -440,7 +440,7 @@
+ DataKeyNames="CvePrePolizaDetalle,CvePrePoliza,IdMov, CveConceptoContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,EsMonedaExtranjera,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,ImporteMN,Cargo,Abono,CveIE,Modificado" Width="100%" > Movimiento @@ -528,8 +528,7 @@ - + data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" /> diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index bd3f7d941..8bf6adaad 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -558,9 +558,6 @@ Partial Class ContabilidadC_RegPrePolizaS If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen")) If CveConceptoContable.Contiene(30, 204, 66, 92, 202, 10, 21, 48, 56, 338, 339, 340, 345, 346, 347) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE")) - If e.Row.DBCampo("Modificado") = "True" Then - e.Row.FCCheckBox("chkModificado").Checked = True - End If End If If e.Row.RowType = DataControlRowType.Header Then @@ -1145,9 +1142,8 @@ Partial Class ContabilidadC_RegPrePolizaS Dim CveIEAgregado As Integer = -1 For Each row As GridViewRow In GvPrePoliza.Rows If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then - If row.FCCheckBox("chkModificado").Checked Then + If CBool(row.DataKey("Modificado")) Then contador = contador + 1 - Dim ImporteIE As Decimal = If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal) If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then @@ -1166,7 +1162,7 @@ Partial Class ContabilidadC_RegPrePolizaS If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, - CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, + CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, TipoCambio:=row.DataKey("TC").ToDecimal, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then @@ -1176,8 +1172,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If Else contador = contador + 1 - - Dim ImporteIE As Decimal = If(row.DataKey("Cargo").ToDecimal <> 0, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal) If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then @@ -1191,14 +1185,14 @@ Partial Class ContabilidadC_RegPrePolizaS Exit For End If End If - - If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, False, True), - If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal), - If(row.FCLabel("TxtCargo").Text.ToDecimal <> 0, row.FCLabel("TxtCargo").Text.ToDecimal, row.FCLabel("TxtAbono").Text.ToDecimal), + Dim tTipoMovto As Boolean = If(row.DataKey("TipoMovto") = "True", True, False) + If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto, + If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), + If(Not tTipoMovto, row.DataKey("Cargo").ToDecimal, row.DataKey("Abono").ToDecimal), row.DataKey("CveConceptoContable").ToEntero, row.DataKey("Referencia").ToString, row.FCLiteral("TxtConcepto").Text, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero, CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), - CveProveedor:=row.DataKey("CveProveedor").ToEntero, + CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveClasificacion:=row.DataKey("CveClasificacion").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero, CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then OcurrioError = True @@ -1208,6 +1202,13 @@ Partial Class ContabilidadC_RegPrePolizaS Next End If + If Not OcurrioError AndAlso ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then + If ObjContabilidad.ValorPolizaDescuadre > 0 Then + OcurrioError = True + Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) + GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") + End If + End If Else OcurrioError = True End If @@ -1217,31 +1218,22 @@ Partial Class ContabilidadC_RegPrePolizaS OnError("Ocurrío un error al actualizar la PrePoliza", ex) End Try - If ObjContabilidad.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then - If ObjContabilidad.ValorPolizaDescuadre > 0 Then - OcurrioError = True - Alert("Error en validacion de prepoliza cuadre", TipoMensaje.MsgAdvertencia) - GuardaLogAD($"Compras/Compras-Actualizar | Error:{ObjContabilidad.MensajePolizaDescuadre} Diferencia:{ObjContabilidad.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") - End If - End If - If Not OcurrioError Then ObjContabilidad.Commit() + CargaPrePoliza(CvePrePoliza) Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:=$"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={Me.CvePrePoliza}""", ShowCloseButton:=False) Else ObjContabilidad.RollBack() - Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError) End If ObjContabilidad.Dispose() - CargaPrePoliza(CvePrePoliza) - If Not OcurrioError Then - If IdPoliza > 0 AndAlso contador > 0 Then - Contabilizar() - End If + 'If Not OcurrioError Then + ' If IdPoliza > 0 AndAlso contador > 0 Then + ' Contabilizar() + ' End If - End If + 'End If End Sub Protected Sub LnkAddConcepto_Click(sender As Object, e As EventArgs) RegistraScript(String.Format("$('#{0}').modal();", "DivEditConcepto")) @@ -1731,7 +1723,6 @@ Partial Class ContabilidadC_RegPrePolizaS GvPrePoliza.DataBind() UpPrePoliza.Update() GvPrePoliza.Visible = True - If IndiceGrid >= 0 Then GvPrePoliza.Rows(IndiceGrid).FCCheckBox("chkModificado").Checked = True TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero @@ -1998,22 +1989,15 @@ Partial Class ContabilidadC_RegPrePolizaS Protected Sub DdlTipoGasto_SelectedIndexChanged(sender As Object, e As EventArgs) If UpPrePoliza.Visible Then - For Each dRow As DataRow In DtMovimientos.Rows dRow("CveTipoGasto") = DdlTipoGasto.SelectedValue dRow("TipoGasto") = DdlTipoGasto.SelectedItem.Text + dRow("Modificado") = True Next DtMovimientos.AcceptChanges() GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataBind() - - For Each Gvr As GridViewRow In GvPrePoliza.Rows - 'Gvr.FCDropDownList("DdlTipoGasto").SelectedValueExist(DdlTipoGasto.SelectedValue) - Gvr.FCCheckBox("chkModificado").Checked = True - - Next - UpPrePoliza.Update() End If If divMovtos.Visible Then diff --git a/Empresas/13/Formatos/Factura.rdlc b/Empresas/13/Formatos/Factura.rdlc index eb7a1166e..5c6185f6b 100644 --- a/Empresas/13/Formatos/Factura.rdlc +++ b/Empresas/13/Formatos/Factura.rdlc @@ -366,7 +366,17 @@ - Tipo de Comprobante: I - Ingreso + Tipo de Comprobante: + + + + = IIF(Parameters!Tipo.Value = "INGRESO","I - Ingreso","E - Egreso") - true @@ -791,12 +790,24 @@ CIUDAD DE MEXICO + + + + + + + + + + 0cm 0.13678cm 0cm 20.28859cm @@ -2299,6 +2312,7 @@ CIUDAD DE MEXICO + 0cm 0.13678cm 0cm 25.72414cm diff --git a/Empresas/72/Formatos/GestionCobranza2.rdlc b/Empresas/72/Formatos/GestionCobranza2.rdlc index c3669d193..b06e52e56 100644 --- a/Empresas/72/Formatos/GestionCobranza2.rdlc +++ b/Empresas/72/Formatos/GestionCobranza2.rdlc @@ -2,78 +2,102 @@ 0 - + System.Data.DataSet /* Local Connection */ - 74f8a171-24f1-4404-809e-ec2e098f1907 + 457ddefa-843b-4fae-8b02-70764606cb28 - + - DataSet3 + DsInventarios /* Local Query */ - - NombreCliente + + Codigo System.String - - SerieFolio + + PS System.String - - Fecha + + UnidadMedida System.String - - FechaCobranza + + PU + System.Decimal + + + Cantidad + System.Decimal + + + Total + System.Decimal + + + Descuento + System.Decimal + + + CodigoAF System.String - - CobranzaEstatus + + Almacen System.String - - CobranzaObservacion + + SerieLote System.String - - Horario + + Observaciones System.String - - Documentacion + + Lote System.String - - CobranzaEstatusTurno + + FechaCaducidad + System.Date + + + PUVenta + System.Decimal + + + IVAVenta + System.Decimal + + + SubTotalVenta + System.Decimal + + + Marca System.String - - Saldo + + CodigoAlterno System.String - - Telefono - System.String - - - Direccion - System.String - - - NIVEL + + PSAlterno System.String - DataSet3 - C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet3.xsd - DataTable1 + DsInventarios + C:\inetpub\wwwVentas\App_Code\DsInventarios.xsd + DtMovimientos @@ -84,68 +108,42 @@ - - 0.08792cm - 0.06868cm - 0cm - 26.42467cm - - - - - + - 5.33044cm + 1.37635cm - 1.68858cm + 10.38681cm - 1.63298cm + 4.60507cm - 1.58391cm + 4.43146cm - 1.57085cm - - - 4.00057cm - - - 1.91793cm - - - 4.10921cm - - - 1.98437cm - - - 2.60584cm + 4.65792cm - 0.46771cm + 0.43377cm - - true + true - Cliente + Cant. @@ -154,24 +152,67 @@ - Textbox3 + Textbox1 + Black + + 1pt Black + + 1pt - + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Descripción + + + + + + + Textbox3 + - - + + + Black - + 1pt + + + Black + + 1pt + + #9cc3e5 2pt 2pt 2pt @@ -183,16 +224,16 @@ - true true - Factura + Código @@ -204,21 +245,15 @@ Textbox5 + - Black + - Black + - - - - - - + #9cc3e5 2pt 2pt 2pt @@ -229,17 +264,18 @@ - + true true - Saldo + P. Unitario @@ -248,212 +284,22 @@ - Textbox8 + Textbox7 + Black + + 1pt Black + + 1pt - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Estatus - - - - - - - Textbox21 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Turno - - - - - - - Textbox6 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Observación - - - - - - - Textbox19 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Teléfono - - - - - - - Textbox17 - - - - Black - - - Black - - - - - - - + #9cc3e5 2pt 2pt 2pt @@ -471,10 +317,11 @@ - Dirección + Importe @@ -486,115 +333,19 @@ Textbox15 + Black + + 1pt Black + + 1pt - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Horario - - - - - - - Textbox27 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Documentación - - - - - - - Textbox4 - - - - Black - - - Black - - - - - - - + #9cc3e5 2pt 2pt 2pt @@ -606,88 +357,123 @@ - 0.73229cm + 0.4095cm - + true true - = IIF(Fields!NombreCliente.Value = "", IIF(Fields!NIVEL.Value = "1", "Total Saldo",IIF(Fields!NIVEL.Value = "2" AND Fields!CobranzaEstatusTurno.Value = "Sin Turno", "Sin Turno", Fields!CobranzaEstatusTurno.Value) ),Fields!NombreCliente.Value) + =Fields!Cantidad.Value - - NombreCliente + Cantidad - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - =Fields!SerieFolio.Value + =Fields!PSAlterno.Value - - SerieFolio + PSAlterno - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + + true + true + true + + + + + =Fields!CodigoAlterno.Value + + + + + + + CodigoAlterno + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + true true - =Fields!Saldo.Value + =Fields!PUVenta.Value @@ -696,530 +482,49 @@ - Saldo + PUVenta - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - =Fields!CobranzaEstatus.Value + =Fields!SubTotalVenta.Value - CobranzaEstatus + SubTotalVenta - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CobranzaEstatusTurno.Value - - - - - - - CobranzaEstatusTurno - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CobranzaObservacion.Value - - - - - - - CobranzaObservacion - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Telefono.Value - - - - - - - Telefono - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Direccion.Value - - - - - - - Direccion - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Horario.Value - - - - - - - Horario - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Documentacion.Value - - - - - - - Documentacion - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - true - true - true - true - DataSet1 - 0.36336cm - 0.06868cm - 1.2cm - 26.42468cm - 1 - - - - - - - - - 3.69063cm - - - 2.5cm - - - 5.7966cm - - - 3.68307cm - - - 3.69882cm - - - 2.46535cm - - - 4.59021cm - - - - - 0.49417cm - - - - - true - true - - - - - Otras Actividades - - - - - - - Textbox16 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox22 - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - Documentos - - - - - - - Textbox33 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - Textbox39 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox42 - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1227,168 +532,38 @@ - 0.6cm + 0.17667cm - + true true - Cliente/Proveedor + - Textbox26 + Textbox32 + - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Actividad - - - - - - - Textbox28 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - a entregar - - - - - - - Textbox34 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1402,10 +577,9 @@ - a recibir + @@ -1417,32 +591,45 @@ Textbox37 + - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox39 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1456,249 +643,26 @@ - Hora + Textbox40 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dirección - - - - - - - Textbox43 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.62646cm - - - - - true - true - - - - - - - - - - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1714,11 +678,13 @@ - Textbox41 @@ -1726,49 +692,10 @@ - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1776,11 +703,11 @@ - 0.61448cm + 0.25604cm - + true true @@ -1789,34 +716,71 @@ - - Textbox45 + Textbox8 - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + + true + true + + + + + CATALOGO + + + + =Fields!Codigo.Value + + + + + + + Codigo1 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + true true @@ -1825,32 +789,99 @@ - - Textbox46 + Textbox13 - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - 2 - + + + + true + true + + + + + + + + + + + + Textbox16 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox17 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.2825cm + @@ -1862,11 +893,14 @@ - Textbox48 @@ -1874,199 +908,53 @@ - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - + FABRICANTE - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - + =Fields!Marca.Value - - Textbox50 + Marca - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - @@ -2078,11 +966,13 @@ - Textbox55 @@ -2090,20 +980,17 @@ - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true @@ -2112,32 +999,31 @@ - - Textbox56 + Textbox59 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true @@ -2146,59 +1032,24 @@ - - Textbox57 + Textbox60 - - - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -2206,11 +1057,11 @@ - 0.6cm + 0.2825cm - + true true @@ -2219,26 +1070,412 @@ - - Textbox18 + Textbox62 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + LOTE + + + + =Fields!Lote.Value + + + + + + + Lote + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox64 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox65 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox66 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.30896cm + + + + + true + true + + + + + + + + + + + + Textbox67 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + CADUCIDAD + + + + = Format(Fields!FechaCaducidad.Value, "dd/MM/yyyy") + + + + + + + FechaCaducidad1 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox69 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox70 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox71 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + + true + true + + + + + + + + + + + + Textbox19 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + FechaCaducidad + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -2254,11 +1491,13 @@ - Textbox23 @@ -2266,151 +1505,77 @@ - - - + Bottom 2pt 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - + Sub Total - - Textbox29 + Textbox42 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - + =Sum(Fields!SubTotalVenta.Value, "DsInventarios") - - Textbox32 + Textbox43 - - - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -2418,11 +1583,11 @@ - 0.6cm + 0.33542cm - + true true @@ -2431,33 +1596,32 @@ - - Textbox47 + Textbox44 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true @@ -2466,68 +1630,31 @@ - - Textbox54 + Textbox45 - - - + Bottom 2pt 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true @@ -2536,66 +1663,103 @@ - - Textbox61 + Textbox46 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - + I.V.A. - - Textbox62 + Textbox49 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + + true + true + + + + + =Sum(Fields!IVAVenta.Value, "DsInventarios") + + + + + + + Textbox50 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + true true @@ -2604,25 +1768,158 @@ - - Textbox63 + Textbox51 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox52 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox53 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + Importe Total + + + + + + + Textbox56 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + = Sum(Fields!SubTotalVenta.Value, "DsInventarios") + Sum(Fields!IVAVenta.Value, "DsInventarios") + + + + + + + Textbox57 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -2638,27 +1935,40 @@ - - - - - - - - - + + After + + + + + + + + + + + + + + Before + + + Before + + + Before + - DataSet1 - 1.67096cm - 0.06868cm - 4.13511cm - 26.42468cm - 2 + DsInventarios + 0.14111cm + 0.10068cm + 3.1562cm + 25.45761cm @@ -2666,53 +1976,57 @@ - 2.35091in + 1.46482in - + true true - =Parameters!NombreEmpresa.Value + SMS SMART MEDICAL SOLUTIONS - Textbox1 - 0.11854cm - 6.54848cm - 0.6cm - 12.7441cm + Textbox2 + 0.07163cm + 8.55215cm + 0.38833cm + 8.54466cm 1 - + true true - REPORTE DE GESTIÓN DE COBRANZA + SSM1908213A0 +NEBRASKA 157, Col. NAPOLES +BENITO JUAREZ - + - + + + + - + true true - Fecha Inicio: + =Microsoft.VisualBasic.Interaction.iif(Parameters!CveConcepto.Value = 8, "REMISIÓN", "ENTRADA DE TRASLADO") - - - - - - - - =Parameters!FechaInicio.Value - - - - - - - - - Fecha Fin - - - - : - - - - - - - - - =Parameters!FechaFin.Value - @@ -2846,11 +2116,11 @@ - Textbox13 - 0.15382cm - 22.79155cm - 2.18834cm - 3.53188cm + Textbox2 + 0.07163cm + 18.69141cm + 0.38833cm + 6.81397cm 3 - - true - true - - - - - Cobrador: - - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2902,7 +2139,153 @@ - =IIF(Parameters!Cobrador.Value = "Todos", "",Parameters!Cobrador.Value) + Folio + + + + + + + Textbox12 + 0.88084cm + 21.17549cm + 0.44478cm + 4.32987cm + 4 + + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Folio.Value + + + + + + + Textbox12 + 1.32562cm + 21.17549cm + 0.44478cm + 4.32987cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + 1.7704cm + 21.1755cm + 0.44478cm + 4.32987cm + 6 + + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox12 + 2.21518cm + 21.17549cm + 0.44478cm + 4.32987cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Parameters!CveConcepto.Value = 8, "Carga Privada", " ") @@ -2911,12 +2294,74 @@ + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + + + + + =Parameters!Documentacion.Value + + + + @@ -2935,22 +2380,383 @@ - 0.74082cm + 3.8269cm true true - - 0.11437cm - 0.10583cm - 0cm - 26.38752cm + + true + true + + + + + =Parameters!ResponsableCarga.Value + + + + + + + Textbox21 + 1.37766cm + 5.68986cm + 0.50243cm + 5.79375cm + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + 2pt + 2pt + 2pt + 2pt - - + + + true + true + + + + + =Parameters!ResponsableRecibio.Value + + + + + + + Textbox21 + 1.37766cm + 14.40467cm + 0.50243cm + 5.78664cm + 1 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 1.66375cm + 5.69781cm + 1.2cm + 5.78664cm + 2 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 1.6632cm + 14.41177cm + 1.2cm + 5.78664cm + 3 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Envió + + + + + + + Textbox22 + 0.07331cm + 5.69781cm + 0.6cm + 5.78664cm + 4 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 0.07331cm + 14.41177cm + 0.6cm + 5.78664cm + 5 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!NombreAccion.Value = "","",Parameters!NombreAccion.Value) + + + + Textbox21 + 0.45106cm + 10.04017cm + 0.63528cm + 5.78664cm + 6 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 1.6632cm + 10.04727cm + 1.2cm + 5.78664cm + 7 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 0.07331cm + 10.04727cm + 0.6cm + 5.78664cm + 8 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + true true @@ -2959,51 +2765,32 @@ Usuario: + + + + - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - =Parameters!UsuarioImprimio.Value @@ -3014,60 +2801,34 @@ 2pt - + true true - Fecha Impresión: + Fecha Impresión: - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - =Parameters!FechaImpresion.Value @@ -3078,7 +2839,43 @@ 2pt - + + 0cm + 0.13678cm + 0cm + 20.28859cm + 11 + + + + + + 0cm + 0.13678cm + 0cm + 25.72414cm + 12 + + + + + + 3.26597cm + 0.10068cm + 0cm + 25.76024cm + 13 + + + + + true true @@ -3087,7 +2884,6 @@ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages @@ -3097,12 +2893,12 @@ - Textbox3 - 0.22726cm - 22.91855cm - 0.36335cm - 3.40488cm - 5 + Textbox10 + 3.40709cm + 23.00537cm + 0.41981cm + 2.55292cm + 14 @@ -3122,8 +2918,8 @@ 21.59cm 27.94cm - 0.5cm - 0.5cm + 1cm + 1cm 0.5cm 0.5cm 0.13cm @@ -3132,49 +2928,85 @@ - + String true true ReportParameter1 - + String true true ReportParameter1 - + + DateTime + true + true + ReportParameter1 + + String true true ReportParameter1 - + String true true ReportParameter1 - + String true true ReportParameter1 - + String true true ReportParameter1 - + + Integer + true + true + ReportParameter1 + + String true true ReportParameter1 - + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + String true true @@ -3192,13 +3024,71 @@ true ReportParameter1 - + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + String true true ReportParameter1 + + + image/png + iVBORw0KGgoAAAANSUhEUgAAAS4AAAC3CAYAAACsXrN8AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAB0CSURBVHhe7Z3djyXHWcaHG4S4sYU0s0qi4AjHIEXIu5sYLJDWWisXsGtHtjeeGaMIsUKQSNx4d7O7xt4Zz1o2/oDYWWMbGzlCi1AswwUziYlswOvdoAiZD6EVDmCHC+8fkItxUOByqae63jPVdd7qrj5d/XFmnp/0aqarq6urq6ueft/qOucsEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCJlH7rlh48bVxbXjK4trW6tLa1dWFtcvrO47d9jtJoSQcbG8uHHACNW11aX169O2dtFlI4SQcWA9raX17WnB8mxx/bzLTggh/XH0wc0Dd3118zDs6KnN40dObp6H3ferz7+lilVgd3/lr56WY3w7enLzgpZ+5NTmvXI+VwVCCJlmIk4nN09UCcmvPbj5KXfIAuazNKGasobzXb5Q+vVA3cI6EEL2CBj4oSiION3z4OaNLlstqcK1srR+wh3SCtQNdfS9PtSbQkbILkQGvHhTGPjYdrtnpniLqItVyTp8wwjvTIQMf7HtdhFC5hHxqiTEauJNpYAlEKpQlW3bZe8ceF7wwETE6IkRMidgsIoHksOrqsMI09VAqMpmxM1l7ZWwHYo3oDuhLdaauayEkKGwE9rGs+rb0/jCFy/eunLT4++XxAq2b/3HQ4lWCITr/p9/crqOXKpByDCIYCFEyh0K1oHzQSjx1y5EXVo/ATGAYN31u68/3Hd9qpgSLWtrV9xuQkgfTEKhAQRLwLljk+FIx363OTja6v7lTz522e0mhHSNFYyeQ8KQFGGCJzgWr2v5lidPh8J1751/ +siYeo8tGCGmLm1C+iJAGSw+O3f7sUTuPFfFy+kK8PbcZZSxel9T3i59+8u77f/GZ7658fONphLaybwxtSsiuwXgF5Td2+x7932N3vniT2z0I8E6aeClDe10QJF9k8ZbR/VtCvFh6X4S0AB5BSbTEBn5Th8HdJEQd0uvSzh0TLiCeWZPrI4R4xITLhDqPuiy9Y72SGUKqIbyumGBWCRcQj5LiRcgMYAAtf+L8h75orSytfXTXb7/+pcmiyh7FQLwRt9mIvr2uqvPVCZeAa51FpAnZs0CQMPCwuNOfnJcJZQDhspPKPXgH4oW0Ecq+vC60S5VIpgoXQDkoz20SQmKIaKWKkXhC4oW55KzkEMc+vK46obFi37CNZjmGkD1HG5HAAIOANRG+OlBWrpCpS68rpZ6zilDONiBk15FrgKAMCKANJRuUd3n/Q4dhbjO7l5S7PCG13dp4TxQvQhS6GNQSdooXFvN2Lh08c/6dA2e23zl49rrYm7c9/DSEz2XJRm6vq4mgNJnf0sgRMhOya5B5KrfZCRjc1gMz5/EH+qWDZy/4guXb3/zyI3/msmUjp0A3ES3QVrgguGi/rsJdQuaKLud+QiCS4oV99Tf+9AFNsHwzoWN2DyPH9YYCnEJb4QJ9PGQIGT1NvYacvPr5p57WxMq3tz97Nnu42MbrEq9nlpAth3CBnF4jIXPH0E9viJImVr5h/stlz8osXhfyQzBmES2QS7jArOJJyNwzdOe/vP/0AU2sfLu8/0wnnkVTr6WtaOF4iKXbbE3u8giZC8YSbrxz8MxVTbCsHTh7zWXrhFSvq61ogTZLIWIwZCR7jhwT1DnA5LsmXm9+7uEf/sUdjx1y2TohZeCjjXJ4pl0IF2DISPYMY3pSY9BBRP/88OOPXjp45iIMc1+nH3j11j4GZZWAi2jlEPiurgV1Y8hI9gRj8bYgoFXCgPS2IVodr37+qZPfue2RD4vQ9Mw2hPPy/gdvxDlziRbIOTEfgjZC +W7pNQnYfMiDd5iCIIKV4fciL+nYxMC/vP308DFFhf/+53//P3/rKN7+US7RAl8IFui6fkEEZ+ukswtm0DqlCl0oxtzYtWmJ/e9vDL7usWehaWLqaQyNkFAz5ZK4LDesIj/+vlxc+9eHXF2YqK+ZtiV06eDbrbx720e70usiuBAM/p9eSioR7Oc4tHtt/vPCTr/3gpYXrsA9eWmg8YGsXv2ZeitGHqNDrIrsSDPguJ7o1RGhynvft5245JKIl5nYlU7f49dLBM1sua2v6fGDQ6yK7jr47ddvQMMYHLy4caCtcENI3bn/k+5powfzvBWtLn54QBBLt7jYJmW/E83GbnZIzNNTAwHz72U//s4iWEbILblcS0haPH3vxJsxllUTrwNmPnj/ytW/kFNs+hQv15rousmvo60ncRWgo2JDLeI24FgxQeF6YoHe7kxAv0G1aEDbCwxIvC3WXc9gMLel73VxX7U9I7/QRJooo5B6k8FZEsFzSTNhyEssQAXabreg7RM9Zd0IGpcvBA6HCQGkrLCEiWDnCLNStaTnWw8twTX0LF+jhnPDocA4sG8Ecoxjexl40ltLWiABwfGhNQV20cppEGOGxTaYf8JAIj9cM7YI2q6qXdlxT2x0PLQiLNu/x3y8sHP7gpYUtzBHNuh5Knu45Q5OcggUgPrOGyW2OFQYRrgz1rgDX44tVzDCIqvoF7q92XNOHBfq2Vk5q/0E7hcduG0sltT18g8Br9dPyNrXe+1snQABCEcDckP9WzogXOlkj7ODIGBrmFizxBFsLT0sRGEK4Yg+rDMBr0AZLzCAAsbaLCRfO0YSrxrRyUvsRPBTt+NSH8SzCJRZ6R1qeprY7hEsbePC2fOGCuV1RjLgdx2LPf7jw8btzCALAAEP9cgoWkHJzeYJtvMohhGtlae3elU9sbK8urV/Hr5Cv7tvI0Q4xz6bOIF7awy0mXE28HVyXVgYstT/FxDg15GojXDDfw9T2N7VdIlzKwIHH +ZYRoW0SrzuOCYPki981n7jjqds2ECAu8gtwhTRfhq3hv+OuSktC83a5Z3XfuMAQrMHglbcB1Q1C0gZJimhcVEy5YqmhUiWlqu8c8ttR5rrbC5Qu7tr+p7V7hAvC6/uXCz3z70nM3v1E3xwVh84Vrlo/ZgC4FC0CsUH5TgUlhlrIHEa7F9fOKcF1fXtxo095VAoGHHvoDBjrmbrQ8sLDdqoQr9ZMLMdGBpbQ76qQdC0sV+5hwId23qrqKUIfHiGnHSLuH1mt/64y6UCUllAk9LiNkjQZB14IFUO4sXlETxJtzm7Xgmru63hjLNz/xiiZcLcNFDBJt8IRtgbaPDdAwb5VwweruY1WYCEsZwHV1SAHjJ/VYtIGWt06otWNqx+1ck0O4wA9eWDgBAXv/Jf2tD9LNfvuWUhaGQkQw0LsULICyIRJus1OanCu1bdsi3iDO94Xli19e3bf+o7JwrTV++RKgDZzYYEPbaPnDtqgTjboHBDw87TixFOFCnbRjxdqUEUMT9rp5vTA/rJe+NRi1wpXBKzBidbzskf3Ej37zzEu/B8HKOdekgVCsL9ESUtusS+HCQ8FeuzkHHg5+fRAWYlJ++ZPnr97/C09dvOeGjTZeaMyzqWpzLX/YFnXCVeeFVIWlsBTRiXmSYin3D3m0Y2PEwu4qtPyd9a1RUDd4cngr4RwYbOuPDj7gdncG6t33HJKQIl5dCBfOiQeCtZprbxraRogJTNW5tfxhW8TK9S0muGh3Lb9vKf2i7oVDylxbU+Hqqj13B5On7s1PXDOhQuVTt+0A04QLk/9udyeEXsYQoA5VHmUu4fJDQfxtMo+XoQ5dDbRYub7FRLcuTITV9b8U8UtZmoHr0o6N0VV7zj8QqdWldbuOx7PoW5K2nRvzW4Fwpb6RaYzMm3UdgqYgdYkJSZt2rQoFm5BBuGIDvG14niJcsX5UFybC6oRLC9m0cuvancKVi9XFteOBaBW275zaODmEwH2E6Dwm8Wf9 +CFEdGMzwOMYgWoJ4Q6F4IR3t6jaTgVilhoIpoJyYsDZAGzhNPs+nERvAoYX3OsVTgtW1nbbwVPPk6u4hhSsXTYXLDpYMg6RLRAjGJFqCL1L4Pnt8z9d3fumRq9++/dz3sG0zVSDHwzvCfcggNBMy3duYh9OmXByrlRkaPCOflDARVle38JoQFmp1qvsIUlPh4uR8DKzZMUIVhorbXc5zdQkGdtO5nb5BKDf5jcbA8HuNLtsE8R4lFOxKkDMJV+xjMTDsmyWMTRWuMFysm1AXq7pm9KMwvywZCdPrpj2aChfKC/NCRKsI88N2n3ABTM4bsboK0bKT9DUrp8cqXBAEDOwxixYw4nReEy0x8byskLhQsI+XC2g3nMttzkpKeIYBiWtMvU8x4dIGtoi6tkYsJmRVwqWVI/1fO3/VNTURrpi3WOfVacfsTuFqSqa5kKxgYMMrcZujBr8MpAmW2LduP/d+F6FgCpkeSlVel28QEuSt8yBjwqWFUlJ/rQ6xelUJlyY20s+wBCLc17QsGNLF4M1VvVCoKh9ox6BccuTUX99tPYEBBpaGDaPmRLSAJla+vXXbQ++6rL2TSbjQJ7RBXWVV540JFwQvTJNQSvOuNO8JViUG2sJT8X5R53Bf1XVo+ZtYyqcatONy3NP5BgJhwrGPjp7aum7t5NZ2H2FMDFufAc8/C+8cOLOtCZZY7h+ZbULmaQB4RKnzTLDYuWPCBbRwTRMICGmsnCrh0vILWnlV966NcOE6U5wE7VgKlxUqES1nR05u1U0YtgbLJrCMwl8+gfmseRMtgAl4TbDE8CO0LmvvdDB/ifuF66kKf3zTPOcq4Up9c4g5tabCpc3X+cKEawv3Q6hjzCpcOGeKaAHt+L0tXAgNQ9ESy/A2Kgo+32hs8p1g7/3xT73c5du1rrm8/8Eb417XmavY77L2TgfC5QNRqgshtYdglXBp4qIZ2rSpcGlzaOGaNE2QYw/TWYSrSgg1tDIoXJpowY6c +2noFnT5mONa3VNHRvoEV9t3nfva0yzKX4Lca//LQ+e8Z7+p/IFh/99mH/u+1Ox57Y0jRArhX7t8uwb2vErCwb1QJF6jz5nAu0FS4tMn8cK2ddh2x9Xgx4cL5YbE5uCbzt9rxe1u4gBGoq4pw1c7JhMIFjykUt9DwAuDNZz/zuiZc//j1j11DGShr7MsfQmQRaSje9s0orttck0vqHZzf/dsHsbd84UCNCY5QFy6KkMTKibV3ijeliRGuSyMmXD7anF2sPI3wWBiFC4MLQuWLVlvhwPG2zJObJTcc6ZeevfmiJlz4Pi8MfCuERuAmgndquG+BSKFov+q1ZnJNQ8zf9SxcEO6UgVYnXHXhorR1E+HCMbG8vmnhJMRHI0W4NBFuEi6Gx8IoXF2AyX0RwlB0YqEi5r1clhIY7ChjImQjEjPrUSUu24Cw2XobAetzLq9n4QIpAw33TsvnEwsXJUwEsXK0vhEL21JNezClCFdMhFPDRe1YClcX2CUNRrRMGPrDu05sHnLJE/zJefzFB7TdriQ0McN2nx4NrjFVtHwKb3TzuBZadsEcC1csXPQfcE2EKyYyqdakzBBNhFPDxfA4WN/3dO+Agfnrp791K/66pE6xQgYxESFzC2pzi8NEeFqKJOqFclDnqjCzLS2FC/cO852hVZEy0FKEK+ap+G3VRLhQby1vqmntmCpcbcLF8DgYhatrmoRTOYEYWC8M4uDEDP8jrUoo7A/mvrhw0XiCVzDv5n8poohNTjG03iPm9Dpqo5bClTowfbT8YR1ShAuEnoofJoImwqXla2KaYKe2TyxMTbnn2nEUrj7AoOwzjIsBwYFwxSb/sRjWiNW1cP4N4oX6Q7S68o6swENcM7aTCK3bnIXYwKyqo5Z/VuEKPZXwWlKFK+a9NTHNQ0oVLoDjw3wp4WJ4DIzC1Re5PZVcWI/HCBdE45U/uGcrFC3YuxcW/6kvr9EKaaY3kFaknSjPCIRCGzilt8UeqUISyxcS +Ck740Eg9n/amEN5cDPTTMD8svCdNhEtbKpISLobHwChcfWFDNzMg3eYosd/iqgjXv7/w0//qsvQC2koErI3YZxCumKeCQR+KCLa1NUuw8BpShQsgr1hIrJwwryYaYdgZonlIocfXRLhmDRe1YyhcfWLDoZ48l1moWKoR8zA6BQIGT3XWEBXClyG0jS1LwMBGu2AQQQRi+TTPJiY4TUkVLq1udYNfm8wPQ7smwoX7oOWtCxe1YyhcfQPhyjmPkxtMzAfCdbWr79FPxc7NYV7OtF0TIWo5MS/EwsVU07zsPoUrJhihuIVoohQuRG0iXED7OFFduBjmh1G4hmCs812C8bAOYIX/a88cWnNJo8DOxxkBSw3/MgkXmHUpgRZSgj6FKxai1T0AUo5rKlyxh0AYgvpo+SlcQyAhUIYwpjMyzA91BuqV8gYyo3DhPsXmr2IGTyJWvz6FSxMXLXwNiU3Q15UNi4F21PJXzbdp+SlcQ5HhVX2njFm4hKo3kB3UH4NOW0ipGUSuSlRjgtOUWDn+dWveYt3EvKBN0Pui0VS4QOwBEHuIa3kpXEMy5vmueRAuAK/VtqMLv1cW1y/gV53wQynLH9t4t+rXnWYEnggELBQEDEhMNKe8fME9x/GhNSVWjt+ntP2pD0y5Tt/8FzUoJ9wPqyJ2TGwcaHlH+8DfM4x1vmtehEtAG973K89/A4JVtjV0dEJITsY63zVvwgUgUtPCtQ5viBCSmzHOd82jcOE3NClchPQIvv7GiNf37dfhnNy6hnkbt2sQMPc2dB2asrK0dm8oWpjzcrtnpk7Etf14GEm6ZuJh46+2PzZ9YJeEmP0xDx33DG9T6+6d1C92HqnXWOdgyUgwHe2ifPmgtZNbdQvzsoAObs6Hb4A1Vvb6Mi4n6I3lzzz15eWfe+LfbNi4uJ6l/nJPtEGOgS37XZLFLtdw6ZpBFJDPioOy31rwDbrApNtv65XjBdy70rHG7BdaRoTH3Pctm8f0O5dU +wqsX5whJHHQQ11F2Op7pVPL0REcKLfa0TAVlhOfE8gK3ey6FCwO4bbuESNtogxxpst8lWTzhumLvYWBSR7kH1ss26RAr/yfzkGYLdKA8pOM4lyQPH1dH+xsKk76EbZdtArwp2R97QHp9g8JF4thOK50p6FASHoSGQSoDIdkQSjghNIPlrdI5C5t0VOR3/84FEIPQa8zBpG3MPfFDtJIAGHPJFrQd0urasLiP5Xa35ULA7PHl3/hEPqTjOJdkhKv4wRdfWH1PEPfbJVvs2je3T9sPtHoRMgU6KzoeBoftiB3NLfgiuNuEqwtvC/jt43ukoQC4ZEsb4QKFeDnPy+sLyIc0X7jc8VOhrNzrMH0idFJHxZOM1YuQwfE658TmNVTEINU8hxz47eN7QPjf3+eSLb4ooJ1987027x5MCQTSsA95XFKlcLnNSgqvdOc6RBz9OoGqehEyOOigZnBhotYMiGI9mfMkrqBzF/vG+9Ek0FWIKLgBbAe7/evC7eL/nd/ldNktIlya+aJTJRBIC/NH0my5brOSiZfoJv4hrMXx5farqhcho8J6LYEXIQYBc9lGhYhW6DHkZKcdJm/urhSCXkqLhIq2PSE2O+aFfn0L1+T+ujrsCHD5/lK4yNzgew+qKa/nhwSihYHXpWgBuX6cZzLvZNujeIEi2zazY0e4ZpvjAnI/cgkXxEryGrMi6t9zvx0pXGQukCdvnXUtEqkUA6ufj0rJteN/00476+2ckPv7hbbCJXNRYbnIh7SScDkxxT10SRZXV3iHNl3eVMas9OKBwkXGAgaD7ZBeqCLIQKszf8AMAc6PuvZZD7l2/O8LCv4P9wuzCheE2B6749mVhAPbSPevfyKm5hiIlA35PYGVekqYCIHC8WKTuhrvyxZoCOtFyCD4czFFJy2/ApfOW2f+gOmLYhAVa9aGOL9cu9ss6uOJf7gf1LWnXEdxbXoeCEnoUZr0KeGyYhcL88UrlDDRhbc+OF7yi8hV1Qvm +n5+QzvCe4J7tvEkKhS1mXYZm4hFi0PuGNBlQQyDX7jan0Pa3ES7zUNmCV6S1tdk/JVwAeXGMCFjxd+f+igcWPrAEnNOW68JFrV6+hecnJDuxTojB5bK4EEV/oygW6/RtsOc14U0x0Itf2na7CCF7nTqPC9hwQs1XPMFze1sQLDzhtTk3QgiZCgURGrhdJRCSwbMSAYMXBm8op2jZkHAOBQveoPVeE+ptQ7cK71HC4roQuCqf1MdtTrZjJvcw5dzY7/6dQq5Na4eqfQDp2F9VPiElbIe18yCbv+OSegd1gKeVUwi7BvWd8kTNtiboGJiliXLkMw+CMJ/MgfnhukZVPjmH25xsx0zEIlYm6mjq6hbWFobtUOCsMGG/ubbovvBtaNguztA2VQJKiGXIpx06KDy/eRItW2dPtMLB5w86DM5SXm/OEAPUZbNUCZJPVT4p223KxH1hrh6uvkWa84K0MgvR2rm2ct3L0wSeOOG6klbcl8rD/6U27eYzpmQXUTz5+u8odlAHc2rzgA1pMcAC78K+SHBv4AQM4mIg7gx0tLU2QKsEyacqn5TrNkuYdPXtI9DK9K9TBM72FSc4/rX6wmXL8a5LE67i3hd5/frg/7rrJ2RC351lKLHMgQxoiJJLiqINTmCOLZYieO2uiYdGVT45n9ssYdIbCZfkD8/jzY1OhMgTJ2sQNxFqb990fiOKLomQ5miDYFbQYdExbed0T2oB2xj48ypaoAhvi0FnB3xwjT5uwE4JiSYUWppGVb7Y+YBJn0m4wvwT0dGFy36DCP6XsrT8YJLPiLhWJ0Jq0QbBLECQIEzoiEWH3flGVqzYxn5/bmReMddRmrB2VvqWByD73OYE2x4m3W93LU2jKl/sfMCk9yJc3v/2Gye0/EDO6RtC6nl+qJGe0QZBEyBGNoSo8D52Gxhg/uS1tSD0kXS3OUETCi1Noypf7HzApPciXNg2bSOfi/SFrCRcAPvUh8Ae6kekBXWDpQp5M+hP +VO81MNBExHyPQQai25ygCYWWpiH5tK8Uip0PmPTehMs+yDCpjzI9EbOZI6D/TPIq10bIFHWDJYZ4Wrsh/GuLNmnvDd5S+IM8Nt1rd008NHbylX80A+dAOswllTDpMwlXWB/Ji/0uSRcz1x6eVQoX0MohJMosHtNeFS37csGIhi9GRVtMD/SJQBlvTNrXhtQymL2QSBMPDRwjxyOvPXfJ45v++TFg9jUSronwGPGVY6ywODHGfpvREBMcbLv00j57DSjXlOH3H9NeSd4ZIRZ0PK1DV7FXw0MZuDHz21EGqJYPg9Rls4h4xKxUblkQovl8zL5GwgVBmZrDc4Z0X3BQpttXFi5PZP19+N9LV2z+1veRAUDHi3V4DRuWmE7pNvcUxYA2nkEgSKEXJhTekPG8XH6bzxMIoYlwWS8r+PbS2PkFk6eRcAG5VpRtz2OuAdu+aIGYcAGvnqV9ONekXDGUr7QNISpNhMsNxOgA2UvA40S7pXqeXXioTc7fhq7OARHs6xrILiTlSWef9HtwXosQMlJShGuvzmsRQkZKnXAxRCSEjI4q4bLzEN7rb0IIGQVVwgVPa6++RSSEjJiYcDFEJISMlphwhaubCSFkNGhrubQ0QggZDaFIcUKeEDJ6QuHihDwhZPRgYal8uNX/nxBCRo1M0HOFPCFkboBwcfkDIWSuOHbgD9+979ALr3H5AyFkLlhdWruyurR+fXXf+o9X920wTCSEjJ+VpbV7rXAtrb+3vLjBt4mEkPGDpRDHDnztabdJCCHjp+pD1oQQMjrCxaeEEDJ66G0RQuYKeluEkLmD3hYhZK7gKnlCyFzg1mtdxZqt+2954r1jd754k9tFCCHjAyvijWBtu4Wmztamfn2YEEJGw8rS+omyaBXmdhNCyPjwPtZD4SKEzA9GqOz8ltjK4voFt4sQQsbJPTds3GhDxsX186uLa/yWU0IIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ +QgghhBBCyJ5lYeH/Aev8eE4+mU6OAAAAAElFTkSuQmCC + + Cm - 2ec96151-d7c1-4609-bfdd-795b02d33b5a + 859971a9-970d-45f5-be4a-0f05a1eb9a33 \ No newline at end of file diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 428c5e9b5..f8f696d38 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1455,7 +1455,7 @@ Partial Class General_SaldosIniciales Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString().ToDate Dim CveMoneda As Integer = 1 Dim CveProveedorSucursal As Integer = If(dt.Columns.Contains("CveProveedorSucursal"), Row("CveProveedorSucursal").ToString(), "0").ToEntero - Dim PorcentajeIVA As String = If(dt.Columns.Contains("PorcentajeIVA"), Row("PorcentajeIVA").ToString(), "0") + Dim PorcentajeIVA As Decimal = If(dt.Columns.Contains("PorcentajeIVA"), Row("PorcentajeIVA").ToString(), "0").ToDecimal Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString(), "0").ToDecimal Dim RetIVAPorcentaje As Decimal = If(dt.Columns.Contains("RetIVAPorcentaje"), Row("RetIVAPorcentaje").ToString(), "0").ToDecimal Dim RetISRPorcentaje As Decimal = If(dt.Columns.Contains("RetISRPorcentaje"), Row("RetISRPorcentaje").ToString(), "0").ToDecimal @@ -1499,14 +1499,14 @@ Partial Class General_SaldosIniciales End If If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero(), SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDecimal, FechaVencimiento, False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal, - NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then + NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then ErrorCompras = True Exit For End If CveCompra = ObjCompras.CveCompra 'Compra Detalle - If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero(), -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA.ToDecimal, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then + If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, CveSubProyecto, -1, 0, 1, SubTotal, SubTotal * PorcentajeIVA, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then ErrorCompras = True Exit For End If @@ -1518,7 +1518,7 @@ Partial Class General_SaldosIniciales If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, SubTotal, 6, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For If IVA > 0 Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 14, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero(), CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA.ToDecimal) Then ErrorCompras = True : Exit For + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 14, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero(), CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA) Then ErrorCompras = True : Exit For End If If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, IEPS, 25, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For @@ -3509,7 +3509,7 @@ Partial Class General_SaldosIniciales Dim CveSATRiesgoPuesto As Integer = 1 Dim CveJornada As Integer = 1 - If Sexo.ToUpper.Contains("Masculino") Then CveGenero = 1 Else CveGenero = 2 + If Sexo.ToUpper.Contiene("Masculino", "1: Masculino") Then CveGenero = 1 Else CveGenero = 2 If AltaIMSS.ToUpper.Contiene("SI", "1") Then AltaIMSS = "True" Else AltaIMSS = "False" myarraystr = EstadoCivil.Split(":"c) If (myarraystr.Length > 1) Then diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 3d9fb014f..2c3ffb9ac 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -1,16 +1,10 @@ Imports System.Data -Imports System.Globalization Imports Extensiones Imports System.Web.Services Imports Newtonsoft.Json -Imports System.Drawing Imports ADSNetLibrary.SIGAPI.Models.CRM.Request Imports ADSNetLibrary.SIGAPI.Services.CRM -Imports Telerik.Web.UI.Scheduler.Views -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion.Internal - -'Imports System.Reflection -'Imports Telerik.Web.UI +Imports ADSNetLibrary.SIGAPI.Models.CRM.Response Partial Class Inicio Inherits ClsPaginas @@ -31,7 +25,7 @@ Partial Class Inicio theDataSet.ReadXml(theReader) If theDataSet.Tables(0).Rows(0)("Uuid").ToString() <> "null" Then - Dim sb = New StringBuilder() + Dim sb As New StringBuilder() For Each item As DataRow In theDataSet.Tables(0).Rows sb.AppendFormat("{0};", item("Uuid").ToString()) @@ -161,7 +155,7 @@ Partial Class Inicio If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa) If ObjPolizas.GetPolizasCuadre() And ObjPolizas.DtResultados.Rows.Count > 0 Then - Dim ObjNotificacion = ItemNotificaciones(String.Format("Polizas de cuadre {0}", ObjPolizas.DtResultados.Rows.Count), Ico:="icon-calculator", Tipo:="warning", Link:="/Contabilidad/RepPolizasCuadre.aspx") + Dim ObjNotificacion As String = ItemNotificaciones(String.Format("Polizas de cuadre {0}", ObjPolizas.DtResultados.Rows.Count), Ico:="icon-calculator", Tipo:="warning", Link:="/Contabilidad/RepPolizasCuadre.aspx") NotificacionesPendientes(ObjNotificacion) End If ObjPolizas.Dispose() @@ -172,7 +166,7 @@ Partial Class Inicio Dim OC As New ClsOC If OC.GetOrdenesPendientes("-1", 0, UsuarioActual.CveEmpresa, -1, -1, -1, UsuarioActual.CveUsuario, -1) Then If (OC.DtResultados.Rows.Count > 0) Then - Dim ObjNotificacion = ItemNotificaciones(String.Format("Orden de Compra por atender {0}", OC.DtResultados.Rows.Count), Ico:="fa fa-tags", Tipo:="warning", Link:="/OC/RepOC.aspx") + Dim ObjNotificacion As String = ItemNotificaciones(String.Format("Orden de Compra por atender {0}", OC.DtResultados.Rows.Count), Ico:="fa fa-tags", Tipo:="warning", Link:="/OC/RepOC.aspx") NotificacionesPendientes(ObjNotificacion) End If End If @@ -263,7 +257,7 @@ Partial Class Inicio If ObjProveedor.GetEvaluacionesProveedores(-1, -1, UsuarioActual.CveEmpresa) Then If ObjProveedor.DtResultados.COUNT("CveEvaluacionProveedor", $"Evaluado = 0 AND CveUsuario={UsuarioActual.CveUsuario}") > 0 Then Dim Mensaje As String = "Hay evaluaciones pendientes de proveedores. ¿Desea realizarlas ahora?" - Dim MsgAccionAceptar = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");" + Dim MsgAccionAceptar As String = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");" Alert(Mensaje, TipoMensaje.MsgConfirmacion, JSBtnAceptar:=MsgAccionAceptar, TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ") End If @@ -350,7 +344,7 @@ Partial Class Inicio Private Sub MuestraPsProximosAVencer() - Dim ObjInventarios = New ClsInventarios + Dim ObjInventarios As New ClsInventarios If ObjInventarios.GetProductosCaducidad(-1, MinFecha, NowADS().AddDays(30), -1, -1, -1, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion:=2, CveCompuesto:=-1) Then If ObjInventarios.DtResultados.Rows.Count > 0 Then @@ -359,11 +353,9 @@ Partial Class Inicio Else GvModalPSPorCaducar.DataSource = Nothing End If - Else GvModalPSPorCaducar.DataSource = Nothing End If - ObjInventarios.Dispose() GvModalPSPorCaducar.DataBind() @@ -560,9 +552,9 @@ Partial Class Inicio Dim CveEventoEstatus As Integer = -1 FechaI = NowADS().AddDays(-180) FechaF = NowADS() - If ObjProspectos.GetRepEventos(-1, 1, -1, "-1", "-1", -1, -1, -1, 1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF) Then + If ObjProspectos.GetRepEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, 1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF) Then - Dim DT As DataTable = ObjProspectos.DtResultados.Clone.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + Dim DT As DataTable = ObjProspectos.DtResultados.Clone.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND (CveTipoEvento =1 OR CveTipoEvento =3 OR CveTipoEvento =5 OR )") If ChkOIPorHacer.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioPara = {0} AND CveEmpresa = {1}", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))) If ChkOIAsigne.Checked Then DT.Merge(ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioDe = {0} AND CveEmpresa = {1} ", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa))) @@ -772,10 +764,8 @@ Partial Class Inicio Private Sub CargaDdlAcercamientoCRM() DdlAcercamientoCRM.Items.Clear() - Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - - - Dim aceramientoGet = New RequestAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM:=DdlEmpresaCRM.SelectedValue.ToEntero) + Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) + Dim aceramientoGet As New RequestAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM:=DdlEmpresaCRM.SelectedValue.ToEntero) Dim objAcercamiento = cRMService.GetAceracamientoCRM(aceramientoGet) If objAcercamiento.IsSuccess Then DdlAcercamientoCRM.DataSource = objAcercamiento.Result @@ -788,8 +778,8 @@ Partial Class Inicio Private Sub CargaDdlContactoCRM() DdlContactoCRM.Items.Clear() - Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - Dim contactoEmpresaCRM = New RequestContactoEmpresaCRM(DdlEmpresaCRM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) + Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) + Dim contactoEmpresaCRM As New RequestContactoEmpresaCRM(DdlEmpresaCRM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) Dim objServicio = cRMService.GetContactosEmpresasCRM(contactoEmpresaCRM) If objServicio.IsSuccess Then @@ -818,13 +808,13 @@ Partial Class Inicio Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Dim ObjEventos As New ClsOIEventos - Dim FechaInicio = TxtFechaInicioAgenda.Text.ToDateTime() - Dim FechaFin = TxtFechaFinAgenda.Text.ToDateTime() - Dim validacionesAgendaOpcionesOK = True + Dim FechaInicio As DateTime = TxtFechaInicioAgenda.Text.ToDateTime() + Dim FechaFin As DateTime = TxtFechaFinAgenda.Text.ToDateTime() + Dim validacionesAgendaOpcionesOK As Boolean = True RegistraScript("GetView();") - Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1" + Dim RecurrenciaTipo As Integer = 0, Frecuencia As Integer = -1, DiasSemana As String = "-1", Dias As Integer = -1, Mes As Integer = -1, RecurrenciaFin As String = "-1" If CheckRecurrencia.Checked Then RecurrenciaTipo = RBLRecurrencia.SelectedValue.ToEntero Frecuencia = TxtFrecuencia.Text.ToEntero @@ -832,7 +822,7 @@ Partial Class Inicio 'OBTENEMOS LOS DIAS SELECCIONADOS EN LA OPCION DE RECURRENCIA POR SEMANA Select Case RecurrenciaTipo Case 3 - Dim StringDias = "" + Dim StringDias As String = "" For Each item As ListItem In CheckDiasSemana.Items If item.Selected Then If StringDias.Length > 0 Then @@ -1022,8 +1012,8 @@ Partial Class Inicio Public Shared Function ActualizaEvento(ClsEvent As CalendarEvent) As String Dim ObjEventos As New ClsOIEventos - Dim FechaInicio = DateTimeOffset.Parse(ClsEvent.start).DateTime - Dim FechaFin = DateTimeOffset.Parse(ClsEvent.end).DateTime + Dim FechaInicio As DateTime = DateTimeOffset.Parse(ClsEvent.start).DateTime + Dim FechaFin As DateTime = DateTimeOffset.Parse(ClsEvent.end).DateTime If ObjEventos.UpdateEvento("-1", "-1", -1, -1, -1, FechaInicio, FechaFin, -1, "-1", ClsEvent.id) Then End If @@ -1162,7 +1152,7 @@ Partial Class Inicio If i = index Then serie.name = row(i).ToString() Else - Dim actual = row(i).ToString().ToDouble + Dim actual As Double = row(i).ToString().ToDouble serie.data.Add(actual) anterior = actual End If @@ -1450,7 +1440,7 @@ Partial Class Inicio If UsuarioActual.CveEmpresa = 140 Then DVDescargasBDH.Visible = True - Dim TmpDT = New DataTable() + Dim TmpDT As New DataTable() Dim ObjDoc As New ClsEdocumentacion If ObjDoc.DocumentacionGet(-1, -1, 1, UsuarioActual.Empresa.CveEmpresa, Modulo:=8) Then @@ -1541,8 +1531,8 @@ Partial Class Inicio Private Sub CargaDdlEmpresaCRM() - Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - Dim parametros = New RequestEmpresasCRM(UsuarioActual.CveEmpresa, -1, CveMedioCaptacion:=-1) + Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) + Dim parametros As New RequestEmpresasCRM(UsuarioActual.CveEmpresa, -1, CveMedioCaptacion:=-1) Dim objServicio = cRMService.GetEmpresasCRM(parametros) If objServicio.IsSuccess Then @@ -1554,9 +1544,6 @@ Partial Class Inicio If objServicio.Result.Count > 0 Then DdlEmpresaCRM_SelectedIndexChanged(Nothing, Nothing) End If - - - End If End Sub diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 7b0c3b044..7cd33263d 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -421,6 +421,14 @@
+
+ +
+ +
+
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 9f9985580..b1054773a 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -840,6 +840,12 @@ Partial Class Inventarios_EntradasSalidas LblFolioOrdenCorte.Text = DtMov.Rows(0)("FolioOrdendeCorte").ToString End If + If DtMov.Rows(0)("CveOS").ToString.ToEntero() > 0 Then + divOS.Visible = True + HplOS.Text = DtMov.Rows(0)("OSFolio").ToString + HplOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveOS={DtMov.Rows(0)("CveOS")}" + End If + If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=-1).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen)) diff --git a/Inventarios/RepNotasSinAlmacen.aspx b/Inventarios/RepNotasSinAlmacen.aspx index 29512fb09..5970fc15d 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx +++ b/Inventarios/RepNotasSinAlmacen.aspx @@ -167,6 +167,7 @@ @@ -191,6 +192,7 @@ + diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb index f9f62dee2..83b2321a0 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx.vb +++ b/Inventarios/RepNotasSinAlmacen.aspx.vb @@ -324,6 +324,13 @@ Partial Class RepNotasSinAlmacen e.Row.Cells(2).Text = $"{e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy")}" End If + + + If e.Row.DataKey("EsDevolucionVenta").ToEntero = 1 Then + e.Row.FCHyperLink("lnkSurtir").Visible = False + e.Row.FCHyperLink("LnkRecibir").Visible = True + End If + End If End Sub End Class diff --git a/LogIn.aspx b/LogIn.aspx index 0c13cbbea..89e2e8368 100644 --- a/LogIn.aspx +++ b/LogIn.aspx @@ -90,7 +90,7 @@
- 2023 © AD Sistemas. + 2024 © AD Sistemas.
<%--
Registrar diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 1c4c15077..85ebb9a3a 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -489,6 +489,7 @@ public partial class Nomina_Nomina2 : ClsPaginas } private void CargaTiposPeriodo() { + set_GlobalDTTipoPeriodos(UsuarioActual.CveEmpresa, null); DdlTipoPeriodo.DataSource = get_GlobalDTTipoPeriodos(UsuarioActual.CveEmpresa); DdlTipoPeriodoCM.DataSource = DdlTipoPeriodo.DataSource; DdlTipoPeriodoSim.DataSource = DdlTipoPeriodo.DataSource; @@ -7541,7 +7542,8 @@ public partial class Nomina_Nomina2 : ClsPaginas GvConceptossimulador.DataSource = new DataTable(); LblSalarioDiarioSimula.Text = ""; GvConceptossimulador.DataBind(); - DdlTipoPeriodoSim.SelectedValue = "1"; + DdlTipoPeriodoSim.SelectedValueExist(4); + DdlTipoPeriodoSim.SelectedValueExist(1); RegistraScript("$('#DSimulador').modal()"); UpSimulador.Update(); } diff --git a/OI/CircularDetalleB.aspx.cs b/OI/CircularDetalleB.aspx.cs index 4f8fb0736..340df3ceb 100644 --- a/OI/CircularDetalleB.aspx.cs +++ b/OI/CircularDetalleB.aspx.cs @@ -313,7 +313,7 @@ public partial class OI_CircularDetalleB : ClsPaginas if (CveCircular > 0) { - + CargaDatos(); string[] correos; correos = TxtCorreo.Text.Split(';'); byte[] ArchivoBytes = ArchivoBytesArrya(HkArchivo.Text); @@ -321,7 +321,7 @@ public partial class OI_CircularDetalleB : ClsPaginas int Contador = 0; foreach (string Correo in correos) { - MandaCorreo(TxtAsunto.Text, Correo, Contador > 0 ? "" : TxtCorreoAdicional.Text, TxtCircular.Text.Replace("< ", "<"), ArchivoBytes, HkArchivo.Text); + MandaCorreo(TxtAsunto.Text, Correo, Contador > 0 ? "" : TxtCorreoAdicional.Text, TxtCircular.Text.Replace("< ", "<"), ArchivoBytes, HkArchivo.Text, CircularInsertado); Contador += 1; } BtnGuardar.Text = "Actualizar"; @@ -375,7 +375,6 @@ public partial class OI_CircularDetalleB : ClsPaginas string FileExtension = "-1"; List Filesgral = TxtArchivo.getfiles().Archivos; //string Filename = ""; - foreach (Archivo fileItem in Filesgral) { try @@ -446,7 +445,7 @@ public partial class OI_CircularDetalleB : ClsPaginas } } - private void MandaCorreo(string Asunto, string Para, string ArrayCC, string body, byte[] ArchivoBinario, string NombreArchivo) + private void MandaCorreo(string Asunto, string Para, string ArrayCC, string body, byte[] ArchivoBinario, string NombreArchivo,int CircularInsertado=-1) { string a = string.Format("{0} -- {1} --- {2}", Asunto, Para, ArrayCC); a.GuardaLog(); @@ -485,6 +484,22 @@ public partial class OI_CircularDetalleB : ClsPaginas return new byte[] { }; } + private byte[] ArchivoBytesArryarutaCompleta(string ArchivoEnviar) + { + if (File.Exists(ArchivoEnviar)) + { + System.IO.FileStream fs = System.IO.File.Open(ArchivoEnviar, System.IO.FileMode.Open, System.IO.FileAccess.Read); + byte[] buff = new byte[fs.Length + 1]; + if (fs.Length > 0) + { + fs.Read(buff, 0, (fs.Length.ToString().ToEntero() - 1)); + fs.Close(); + } + return buff; + } + + return new byte[] { }; + } protected void RLBTipoEnvioTipo_SelectedIndexChanged(object sender, EventArgs e) diff --git a/OI/RepMinutas.aspx.vb b/OI/RepMinutas.aspx.vb index 21f0648fe..ecc40c047 100644 --- a/OI/RepMinutas.aspx.vb +++ b/OI/RepMinutas.aspx.vb @@ -18,8 +18,8 @@ Partial Class OI_RepMinutas End Sub Private Sub CargaFiltros() - txtFechaI.Text = New Date(NowADS().Year, NowADS().Month, 1).ToShortDateString - txtFechaF.Text = NowADS().ToShortDateString + TxtFechaI.Text = NowADS().ToShortDateString() + TxtFechaF.Text = (NowADS().AddMonths(1)).ToShortDateString() End Sub Public Sub CargaDatosOIMinutas() Dim ObjProspectos As New ClsOIEventos diff --git a/OI/RepReuniones.aspx.cs b/OI/RepReuniones.aspx.cs index 95aa77f24..ce6409013 100644 --- a/OI/RepReuniones.aspx.cs +++ b/OI/RepReuniones.aspx.cs @@ -29,8 +29,8 @@ public partial class OI_RepReuniones : ClsPaginas private void CargaFiltros() { - TxtFechaI.Text = new DateTime(NowADS().Year, NowADS().Month, 1).ToShortDateString(); - TxtFechaF.Text = NowADS().ToShortDateString(); + TxtFechaI.Text = NowADS().ToShortDateString(); + TxtFechaF.Text = (NowADS().AddMonths(1)).ToShortDateString(); TxtCFechaInicio.Text = TxtFechaI.Text; TxtCFechaFin.Text = TxtFechaF.Text; } diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs index d84c993aa..277819ec0 100644 --- a/OI/TareaDetalle.aspx.cs +++ b/OI/TareaDetalle.aspx.cs @@ -479,7 +479,7 @@ public partial class OI_TareaDetalle : ClsPaginas CveTipoEvento = drow["CveTipoEvento"].ToString().ToEntero(); - if(CveTipoEvento == 3) + if(CveTipoEvento == 3 && CveEventoPadre<=0) { DivAvance.Visible = false; } diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index c71349af8..676c2cced 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -1283,7 +1283,28 @@

Material Utilizado

-
+
+ +
+ +
+
+ + + +
+
+ +
+
+ + + +
+
+
@@ -1342,7 +1363,8 @@
- Guardar diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index f3c135e7f..ffb9530fe 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -473,6 +473,9 @@ Partial Class OS_OrdenesServicios DVEpisodioPaciente.Visible = True + DvTxtPacienteModal.Visible = True + DvTxtEpisodioModal.Visible = True + If CveOS > 0 And TipoEstatus >= 3 Then DdlUsuarioAtendio.Enabled = True DVUsuarioAtendio3.Visible = True @@ -682,7 +685,7 @@ Partial Class OS_OrdenesServicios DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString 'If TipoEstatus = 2 Then - LnkTecnico.Visible = True + 'LnkTecnico.Visible = True 'End If If TipoEstatus = 3 Then @@ -3023,6 +3026,12 @@ Partial Class OS_OrdenesServicios LnkModalMaterialUtilizado.Visible = False End If + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + TxtPacienteModal.Text = TxtPaciente.Text + TxtEpisodioModal.Text = TxtIdentificadorCliente.Text + + End If + UpModalMaterialUtilizado.Update() End Sub @@ -3038,6 +3047,21 @@ Partial Class OS_OrdenesServicios Protected Sub LnkModalMaterialUtilizado_Click(sender As Object, e As EventArgs) + + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + + If TxtPacienteModal.Text.Trim.Length = 0 Then + Alert("Debe de proporcionar el paciente.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If TxtEpisodioModal.Text.Trim.Length = 0 Then + Alert("Debe de proporcionar el episodio.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + End If + Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual").ToEntero Dim CveMoneda As Integer = DTSolicitudDev.FiltroPrimeroValor("CveMoneda").ToEntero Dim CveSubProyectoPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveSubProyecto").ToEntero @@ -3247,14 +3271,21 @@ Partial Class OS_OrdenesServicios End If If ProcesoOK Then - - If Not ObjOS.UpdateVentaOS(Respuesta.CveVenta, CveOS) Then + If Not ObjOS.UpdateVentaOS(Respuesta.CveVenta, CveOS, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim) Then ProcesoOK = False End If - End If + + + End If + End If + + + If ProcesoOK Then + If Not ObjOS.UpdateVentaOS(-1, CveOS, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim) Then + ProcesoOK = False End If End If @@ -3307,6 +3338,8 @@ Partial Class OS_OrdenesServicios ObjFactura.FechaParaSurtir = TxtFechaCita.Text.ToDateTime ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero ObjFactura.CveVentaRelacion = CveVentaPedido + ObjFactura.Paciente = TxtPacienteModal.Text.Trim + ObjFactura.Episodio = TxtEpisodioModal.Text.Trim For Each GvRow As GridViewRow In GvMU.Rows diff --git a/OS/RepServicioDomicilio.aspx b/OS/RepServicioDomicilio.aspx index bc80be8ec..e63fc3c5e 100644 --- a/OS/RepServicioDomicilio.aspx +++ b/OS/RepServicioDomicilio.aspx @@ -842,50 +842,12 @@ function selectDate(start, end, allDay) { - <%-- $('#ModalAgenda').modal('show'); - $("#SpanTituloAgenda").html("Agregar Evento"); - - $("#HdnCveEvento").val(-1); - - $("#DdlAgedaTipo").val("-1"); - $("#DdlPrioridad").val("1"); - - $("#TxtAsuntoAgenda").val(""); - $("#TxtDescripcionAgenda").val(""); - $("#TxtFechaInicioAgenda").val("" + start.format("DD/MM/YYYY 08:00")); - $("#TxtFechaFinAgenda").val("" + start.format("DD/MM/YYYY 09:00")); - - $("#UpRecurrencia").hide(); - $("#CheckRecurrencia").prop('checked', false); - - $get("HdnDiasSemanaAgendar").value = -1; - - $('#<%=RBLRecurrencia.ClientID %>').find("input[value='1']").prop("checked", true); - $('#<%=TrDiasSemanaAdd.ClientID %>').css("display", "none"); - $("#DivDescripcionUpdate").css("display", "none"); - $("#<%=TxtDescripcionAgenda.ClientID%>").css("display", "block"); - $('#<%=LblTextoFrecuencia.ClientID%>').html("Hora(s)"); - - $("#TxtFrecuencia").val("1"); - $("#TxtNumeroOcurrencias").val(""); - $("#TxtFechaFinRecurrencia").val(""); - - $("#ChkGastoRecurrente").prop('checked', false); - $("#TxtImporteGastoRecurrente").val("");--%> + } function updateEvent(event, element) { - - - - //$('#ModalAgenda').modal('show'); - - - // $get("HdnDiasSemanaAgendar").value = - - $('#<%=HFCveOS.ClientID%>').val(event.CveOS); @@ -895,89 +857,7 @@ $('#<%=HFOCveOIEvento.ClientID%>').val(event.id); $('#<%=LnkCommando.ClientID%>').click(); - -<%-- $("#DivDescripcionUpdate").css("display", "block"); - $("#<%=TxtDescripcionAgenda.ClientID%>").css("display", "none"); - $("#HdnCveEvento").val(event.id); - - $("#TxtNumeroOcurrencias").val(''); - $("#TxtFechaFinRecurrencia").val(''); - $("#TxtFrecuencia").val(''); - - $("#TxtAsuntoAgenda").val(event.title); - //SE MUESTRA EL TEXTO HTML EN EL DIV DE LA DESCRIPCION SIN PERMITIR EDITAR, - //SE ASIGNA -1 EN EL TEXBOX PARA QUE NO REALICE CAMBIOS EN BD - $("#DivDescripcionUpdate").html(event.description); - $("#TxtDescripcionAgenda").val("-1"); - - $("#DdlAgedaTipo").val(event.cveagendatipo); - $("#DdlPrioridad").val(event.prioridad); - $('#LblSubProyecto').text(event.SubProyecto); - $('#LblDireccion').text(event.Direccion); - - - - $("#TxtFechaInicioAgenda").val("" + event.start.format("DD/MM/YYYY HH:mm")); - - $("#TxtFechaFinAgenda").val("" + event.end.format("DD/MM/YYYY HH:mm")); - - //Identifica el tipo de Fecha Termino de la Recurrencia - if (event.recurrenciafin == 0) { - $("#TxtFrecuencia").val('0'); - } else if (!isNaN(event.recurrenciafin)) { - $("#RBNumeroOcurrencias").prop('checked', true); - $("#TxtNumeroOcurrencias").val(event.recurrenciafin); - } else { - $("#RBFechaFin").prop('checked', true); - $("#TxtFechaFinRecurrencia").val("" + event.recurrenciafin); - } - - //GASTO RECURRENTE - //Si el evento es tipo 10 = Gasto Mes, activa gasto recurrente - if (event.CveTipoEvento == 10) { - $("#ChkGastoRecurrente").prop('checked', true); - $("#TxtImporteGastoRecurrente").val(event.Importe); - } else { - $("#ChkGastoRecurrente").prop('checked', false); - $("#TxtImporteGastoRecurrente").val(''); - } - - //Verifica que hay Recurrencia para activar los campos y poner sus valores respectivos - if (event.recurrenciatipo > 0) { - $("#CheckRecurrencia").prop('checked', true); - - // CHECKEA EL TIPO DE RECURRENCIA QUE TENGA EL EVENTO - var text = event.recurrenciatipo; - var radio = $("[id*=RBLRecurrencia] label:contains('" + text + "')").closest("td").find("input"); - radio.attr("checked", "checked"); - - // CHECKEA LOS DIAS SELECCIONADOS DE LA RECURRENCIA DE SEMANA - $get("HdnDiasSemanaAgendar").value = event.diassemana; - - //LLENA TEXTO DE FRECUENCIA DE RECURRENCIA - $("#TxtFrecuencia").val("" + event.frecuencia); - } else { - $("#CheckRecurrencia").prop('checked', false); - } - - - //ESCONDE O MUESTRA EL DIV DE LAS OPCIONES DE RECURRENCIA - if ($get('CheckRecurrencia').checked) { - $("#UpRecurrencia").show(); - } else { - $("#UpRecurrencia").hide(); - } - - //LLAMA EL INDEXCHANGED DEL RADIOBUTTONLIST DE LOS TIPOS DE RECURRENCIA - $("#BtnActualizaAdd").click(); - - //Muestra nombre de la empresa si esta tarea sea asigno desde EmpresaCRM - if (event.EmpresaCRM != "") { - $("#<%=LblEmpresaCRM.ClientID%>").css("display", "") - $("#<%=LblEmpresaCRM.ClientID%>").text(event.EmpresaCRM); - } else { - $("#<%=LblEmpresaCRM.ClientID%>").css("display", "none") - }--%> + } function RadionButtonSelectedValueSet(name, SelectdValue) { diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index 6b54a2926..943b7d063 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -347,7 +347,7 @@
- Personal () + Personal ()
@@ -1353,7 +1353,8 @@ Sys.Application.add_load(function (s, e) { - <%= String.Format("FiltrarTablaClass('TxtBusqueda','{0}','contaper');", GvDatos.ClientID) %> + + <%= String.Format("setTimeout(function(){{ FiltrarTablaClass('TxtBusqueda','{0}','contaper');}}, 1000)", GvDatos.ClientID) %> }); function OrdenarGV() { diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 406889dd2..05de5de9c 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -89,6 +89,7 @@ Partial Class RH_CatPersonal End If + ltlContador.Text = String.Format("...{1}", If(GvDatos.Rows.Count > 0, "", " class='hidden' "), If(GvDatos.Rows.Count > 0, "", "0")) End Sub Public Sub CargaDatos() diff --git a/SAT/SolicitudesIngresoSat.aspx b/SAT/SolicitudesIngresoSat.aspx index 3e4154c9c..7814cf401 100644 --- a/SAT/SolicitudesIngresoSat.aspx +++ b/SAT/SolicitudesIngresoSat.aspx @@ -3,8 +3,16 @@ - @@ -327,57 +156,72 @@ - + - + + + + + + - + - + - + - + - + + + + + + + + + + + - + - + - + - + diff --git a/SAT/SolicitudesIngresoSat.aspx.cs b/SAT/SolicitudesIngresoSat.aspx.cs index ddf541544..1ff768086 100644 --- a/SAT/SolicitudesIngresoSat.aspx.cs +++ b/SAT/SolicitudesIngresoSat.aspx.cs @@ -7,7 +7,6 @@ using System.Net.Http.Headers; using System.Text; using System.Threading; using System.Threading.Tasks; -using System.Web; using System.Web.UI; using System.Web.UI.WebControls; using Extensiones; @@ -119,7 +118,12 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas { GvResumen.DataSource = ObjNom.DtResultados; TipoDescarga = ObjNom.DtResultados.Rows.Count > 0 ? 1 : 0; - LnkDownloadExcel.Visible = true; + LnkDownloadExcel.Visible = true; + if (UsuarioActual.Empresa.Funcionalidad(713) == "1") + { + GvResumen.Columns[4].Visible = false; + GvResumen.Columns[11].Visible = false; + } } else if (DdlReporte.SelectedValue.ToEntero() == 2) { @@ -400,57 +404,7 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas { if (e.Row.DataKey("Fecha") == "") e.Row.Attributes.Add("class", "Totales"); - - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[2].Visible = false; - } - - - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[7].Visible = false; - } - - - } - - if (e.Row.RowType == DataControlRowType.Header) - { - e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); - e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#3598dc"); - e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[2].Visible = false; - } - - e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); - e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); - - e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#C46B06"); - e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#C46B06"); - e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#C46B06"); - if (UsuarioActual.Empresa.Funcionalidad(713) != "1") - { - e.Row.Cells[7].Visible = false; - } - - e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#C46B06"); - e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#C46B06"); - - - e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); - } + } } protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e) @@ -534,17 +488,17 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas if (e.Row.RowType == DataControlRowType.Header) { - e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[1].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[2].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); //Rojo - e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul - e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[3].BackColor = System.Drawing.Color.FromName("#3598dc"); //Rojo + //e.Row.Cells[4].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[5].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[6].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[7].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[8].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[9].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul + //e.Row.Cells[10].BackColor = System.Drawing.Color.FromName("#3598dc"); //Azul @@ -556,33 +510,33 @@ public partial class SAT_SolicitudesIngresoSat : ClsPaginas //e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#900"); //Rojo //e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#900"); //Rojo - e.Row.Cells[11].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[12].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[13].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[14].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[11].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[12].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[13].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[14].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[15].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[16].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo + //e.Row.Cells[17].BackColor = System.Drawing.Color.FromName("#C46B06"); //Rojo - e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[1].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[2].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[11].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[12].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[13].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[14].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[16].ForeColor = System.Drawing.Color.FromName("white"); - e.Row.Cells[17].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[3].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[4].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[5].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[6].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[7].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[8].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[9].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[10].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[11].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[12].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[13].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[14].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[15].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[16].ForeColor = System.Drawing.Color.FromName("white"); + //e.Row.Cells[17].ForeColor = System.Drawing.Color.FromName("white"); } diff --git a/Scripts/custom.js b/Scripts/custom.js index fd6e9cf3d..bf0f194b8 100644 --- a/Scripts/custom.js +++ b/Scripts/custom.js @@ -85,7 +85,7 @@ function FiltrarTabla(idtxt, idtable, idcontador) { $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', ''); } if ($('#' + idcontador).length > 0) { - $('#' + idcontador).html($('#' + idtable + ' tr:visible').length); + $('#' + idcontador).html($('#' + idtable + ' tr:visible:not(.ADtr)').length); } } @@ -97,7 +97,7 @@ function FiltrarTablaStr(str, idtable, idcontador) { $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', ''); } if ($('#' + idcontador).length > 0) { - $('#' + idcontador).html($('#' + idtable + ' tr:visible').length); + $('#' + idcontador).html($('#' + idtable + ' tr:visible:not(.hidetrad):not(.ADtr)').length); } } @@ -115,7 +115,7 @@ function FiltrarTablaStrMulti(idtable, idcontador /*, str1, str2, str3...*/ ) { $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').css('display', ''); if (idcontador) { if ($('#' + idcontador).length > 0) { - $('#' + idcontador).html($('#' + idtable + ' tr:visible').length); + $('#' + idcontador).html($('#' + idtable + ' tr:visible:not(.hidetrad):not(.ADtr)').length); } } } @@ -130,7 +130,7 @@ function FiltrarTablaClass(idtxt, idtable, idcontador, resta) { $('div.ADScroller .ADScroller-header table#' + idtable + ' tr:not(.ADtr)').removeClass('hidetrad'); } if ($('#' + idcontador).length > 0) { - let numconta = $('#' + idtable + ' tr:not(.hidetrad):not(.ADtr)').length; + let numconta = $('#' + idtable + ' tr:visible:not(.hidetrad):not(.ADtr)').length; if (numconta > 0) { numconta - resta} $('#' + idcontador).html(numconta ); } @@ -144,7 +144,7 @@ function FiltrarTablaV2(idtxt, idtable, idcontador) { $('div.ADScroller .ADScroller-header ' + idtable + ' tr:not(.ADtr)').css('display', ''); } if ($('#' + idcontador).length > 0) { - $('#' + idcontador).html($(idtable + ' tr:visible').length); + $('#' + idcontador).html($(idtable + ' tr:visible:not(.hidetrad):not(.ADtr)').length); } } diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 5ea3af3d8..becfebe4b 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -861,7 +861,7 @@ Partial Class Sistemas_UsuarioDetalle End If For Each Row As DataRow In DtAsignacionesMultiEmpresa.FiltraParametros("CveEmpresa > 0").Rows - If Not ObjUsuarios.AddUsuarioAsignar(Row("CvePersonal").ToString.ToEntero, Row("CveVendedor").ToString.ToEntero, Row("CveAlmacen").ToString.ToEntero, Row("CveSucursal").ToString.ToEntero, Row("CveTipoDocumento").ToString, Row("CveEmpresa").ToString.ToEntero, CveUsuario) Then + If Not ObjUsuarios.AddUsuarioAsignar(Row("CvePersonal").ToString.ToEntero, Row("CveVendedor").ToString.ToEntero, Row("CveSucursal").ToString.ToEntero, Row("CveAlmacen").ToString.ToEntero, Row("CveTipoDocumento").ToString, Row("CveEmpresa").ToString.ToEntero, CveUsuario) Then TieneError = True End If Next diff --git a/UserControl/AddMedico.ascx b/UserControl/AddMedico.ascx new file mode 100644 index 000000000..754c018de --- /dev/null +++ b/UserControl/AddMedico.ascx @@ -0,0 +1,197 @@ +<%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddMedico.ascx.vb" Inherits="UserControl_AddMedico" %> + +
+
+ + +
+ +

+ Agregar Médico

+
+
+
+
+ +
+ + + +
+ + +
+
+
+ + <%----%> + +
+
+
+
+ + +
+ + + + +
+ + + + + + + + +
+
+
+ +
+
+
+
+ +
+ +
+
+
+ + + +
+
+
+ +
+ + + +
+ +
+
+ + +
+
+
+ + + + +
+
+
+ +
+
+ + +
+
+
+ + +
+
+
+
+ + +
+
+
+ + +
+ + +
+ + +
+
+
+ + +
+
+
+
+ + +
+
+
+ + + + + +
+
+
+ + +
+
+
+
+ + +
+
+
+
+ + +
+
+
+ + + +
+ + +
+ + +
+
+
+ + +
+
+
+
+ + +
+
+
+ + + +
+
+
+ +
+ + +
+ + +
+
diff --git a/UserControl/AddMedico.ascx.vb b/UserControl/AddMedico.ascx.vb new file mode 100644 index 000000000..9cc57b4d1 --- /dev/null +++ b/UserControl/AddMedico.ascx.vb @@ -0,0 +1,187 @@ +Imports Extensiones + +Partial Class UserControl_AddMedico + Inherits System.Web.UI.UserControl + + Public ReadOnly Property UsuarioActual As Usuario + Get + If Context.Session("UsuarioSIG") Is Nothing Then + Return Nothing + Else + Return DirectCast(Context.Session("UsuarioSIG"), Usuario) + End If + End Get + End Property + + Public Property CveMedico As Integer + Get + If ViewState("CveMedico") Is Nothing Then + ViewState("CveMedico") = -1 + End If + Return ViewState("CveMedico").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveMedico") = value + End Set + End Property + + Private Sub UserControl_AddMedico_Load(sender As Object, e As EventArgs) Handles Me.Load + + If Not Page.IsPostBack Then + CargaEspecialidad() + CargaSubEspecialidad(-1) + End If + End Sub + + + Sub CargaEspecialidad() + Dim ObjVentas As New ClsVentas + + If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then + DdlEspecialidad.DataSource = ObjVentas.DtResultados + Else + DdlEspecialidad.DataSource = Nothing + End If + + ObjVentas.Dispose() + + DdlEspecialidad.DataBind() + DdlEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + UpModal.Update() + + + End Sub + + + Sub CargaSubEspecialidad(CveMedicoEspecialidad As Integer) + Dim ObjVentas As New ClsVentas + + If ObjVentas.GetMedicosSubEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then + If CveMedicoEspecialidad > 0 Then + DdlSubEspecialidad.DataSource = ObjVentas.DtResultados.FiltraParametros($"CveMedicoEspecialidad = {CveMedicoEspecialidad}") + Else + DdlSubEspecialidad.DataSource = ObjVentas.DtResultados + End If + End If + + ObjVentas.Dispose() + + DdlSubEspecialidad.DataBind() + DdlSubEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + UpModal.Update() + + End Sub + + Protected Sub DdlEspecialidad_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaSubEspecialidad(DdlEspecialidad.SelectedValue.ToEntero) + End Sub + + + Public Sub LimpiarControles() + LbAgregar.Text = "Agregar" + LtlTituloModal.Text = "Agregar Médico" + + TxtMedico.Text = "" + TxtCedulaProfecional.Text = "" + TxtFechaNacimiento.Text = "" + TxtNotas.Text = "" + TxtDiasAtencion.Text = "" + TxtHorario.Text = "" + TxtLugar.Text = "" + TxtConsultorio.Text = "" + TxtMail.Text = "" + TxtTelefono.Text = "" + TxtCelular.Text = "" + DdlEspecialidad.SelectedValueExist(-1) + DdlSubEspecialidad.SelectedValueExist(-1) + TxtTorre.Text = "" + DVUsuarioFechaIng.Visible = False + TxtFechaIng.Text = "" + TxtUsuario.Text = "" + + + DVEstatus.Visible = False + ChkEstatus.Checked = True + + UpModal.Update() + CveMedico = -1 + End Sub + + Public Sub PreparaEdicion(CveMedicoEditar As Integer, Medico As String, CedulaProfecional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Consultorio As String, Estatus As Boolean, + Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, Torre As String, FechaIng As DateTime, Usuario As String) + + + + CveMedico = CveMedicoEditar + + TxtMedico.Text = Medico + TxtCedulaProfecional.Text = CedulaProfecional + TxtFechaNacimiento.Text = FechaNacimiento.ToString("dd/MM/yyyy") + TxtNotas.Text = Notas + TxtDiasAtencion.Text = DiasAtencion + TxtHorario.Text = Horario + TxtLugar.Text = Lugar + TxtConsultorio.Text = Consultorio + ChkEstatus.Checked = Estatus + TxtMail.Text = Mail + TxtTelefono.Text = Telefono + TxtCelular.Text = Celular + DdlEspecialidad.SelectedValueExist(CveMedicoEspecialidad) + CargaSubEspecialidad(CveMedicoEspecialidad) + DdlSubEspecialidad.SelectedValueExist(CveMedicoSubEspecialidad) + TxtTorre.Text = Torre + + DVUsuarioFechaIng.Visible = True + TxtFechaIng.Text = FechaIng.ToString("dd/MM/yyyy hh:mm:ss tt") + TxtUsuario.Text = Usuario + + DVEstatus.Visible = True + LbAgregar.Text = "Actualizar" + LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfecional.Text}" + + UpModal.Update() + + + End Sub + + Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click + Dim ProcesoOK = False + Dim ObjVentas As New ClsVentas + Dim CveMedicoNuevo As Integer = -1 + + + Dim Telefono As String = If(TxtTelefono.Text = "(___) ___-____", "", TxtTelefono.Text) + Dim Celular As String = If(TxtCelular.Text = "(___) ___-____", "", TxtCelular.Text) + + If CveMedico > 0 Then + If ObjVentas.UpdateMedico(CveMedico, TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked, + UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) Then + ProcesoOK = True + End If + Else + + CveMedicoNuevo = ObjVentas.AddMedico(TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, + UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim, DdlSubEspecialidad.SelectedValue.ToEntero, TxtTorre.Text.Trim) + + If CveMedicoNuevo > 0 Then + ProcesoOK = True + End If + End If + + ObjVentas.Dispose() + + If ProcesoOK Then + ClsPaginas.Alert($"Medico {If(CveMedico > 0, "Actualizado", "Guardado")} Correctamente.") + Dim AppNombre As String = $"GlobalDTAgentes-{UsuarioActual.CveEmpresa}" + Application(AppNombre) = Nothing + RegistraScript($"fncRegargaMedicos({CveMedicoNuevo});") + RegistraScript("$('#BtnCancelarMedico').click();") + + End If + + + + End Sub + +End Class diff --git a/UserControl/AddProcedimiento.ascx b/UserControl/AddProcedimiento.ascx new file mode 100644 index 000000000..c828b5139 --- /dev/null +++ b/UserControl/AddProcedimiento.ascx @@ -0,0 +1,42 @@ +<%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddProcedimiento.ascx.vb" Inherits="UserControl_AddProcedimiento" %> + +
+
+ + +
+ +

+ Agregar Procedimiento

+
+
+ +
+ + + +
+
+ + +
+
+ + +
+
+ + +
+ +
+ +
+ + +
+ + +
+
diff --git a/UserControl/AddProcedimiento.ascx.vb b/UserControl/AddProcedimiento.ascx.vb new file mode 100644 index 000000000..37b84465f --- /dev/null +++ b/UserControl/AddProcedimiento.ascx.vb @@ -0,0 +1,81 @@ +Imports Extensiones +Partial Class UserControl_AddProcedimiento + Inherits System.Web.UI.UserControl + + Public ReadOnly Property UsuarioActual As Usuario + Get + If Context.Session("UsuarioSIG") Is Nothing Then + Return Nothing + Else + Return DirectCast(Context.Session("UsuarioSIG"), Usuario) + End If + End Get + End Property + + Public Property CveProcedimiento As Integer + Get + If ViewState("CveProcedimiento") Is Nothing Then + ViewState("CveProcedimiento") = -1 + End If + Return ViewState("CveProcedimiento").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveProcedimiento") = value + End Set + End Property + + + + Private Sub UserControl_AddProcedimiento_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + + End If + End Sub + + + Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click + Dim ProcesoOK = False + Dim ObjVentas As New ClsVentas + Dim CveProcedimientoNuevo As Integer = -1 + + If CveProcedimiento > 0 Then + If ObjVentas.UpdateProcedimiento(CveProcedimiento, TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + 'Alert($"Procedimiento Actualizado Correctamente.") + ProcesoOK = True + End If + Else + + CveProcedimientoNuevo = ObjVentas.AddProcedimiento(TxtProcedimiento.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + If CveProcedimientoNuevo > 0 Then + ProcesoOK = True + 'TabProductos.Visible = True + 'TabVentas.Visible = True + 'LnkAgregarProducto.Visible = True + 'UpDatos.Update() + 'Alert($"Procedimiento Guardado Correctamente.") + End If + + End If + + ObjVentas.Dispose() + + If ProcesoOK Then + ClsPaginas.Alert($"Procedimiento {If(CveProcedimiento > 0, "Actualizado", "Guardado")} Correctamente.") + Dim AppNombre As String = $"GlobalDTProcedimientos-{UsuarioActual.CveEmpresa}" + Application(AppNombre) = Nothing + RegistraScript($"fncRegargaProcedimientos({CveProcedimientoNuevo});") + RegistraScript("$('#BtnCancelarProcedimiento').click();") + + End If + + + + End Sub + + Public Sub LimpiarControles() + TxtProcedimiento.Text = "" + ChkEstatus.Checked = True + UpModal.Update() + End Sub + +End Class diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx index 7d6d9c0c2..61bf3be6f 100644 --- a/Ventas/CatMedicos.aspx +++ b/Ventas/CatMedicos.aspx @@ -312,7 +312,7 @@ - + <%-- @@ -372,7 +372,7 @@ - + --%> @@ -383,7 +383,7 @@ - <%--Cliente--%> - <%--
-
-
- Hospital: - -
-
-
--%> - - - <%--Sucursales--%> - <%--
-
- -
- - Seleccione uno - - Sucursal: -
-
-
--%> + <%--Medico Procedimiento--%>
-
+
Seleccione uno @@ -8465,7 +8461,10 @@ Médico:
-
+
+ +
+
Seleccione uno @@ -8476,6 +8475,9 @@ Procedimiento:
+
+ +
@@ -8531,8 +8533,44 @@ -
+ + + + + + + + + + + + @@ -8641,6 +8679,14 @@ TotalUSD.innerText = FormatoNumero(ToDouble(ValorUnitario.value) * ToDouble(TxtCantidad.value), 2); } + function CalculaPU_USD(TxtValorUnitario, TotalUSD, TxtCantidad) { + TxtValorUnitario.value = FormatoNumero(ToDouble(TotalUSD) / ToDouble(TxtCantidad.value), 6); + } + + function CalculaCantidad_USD(TxtValorUnitario, TotalUSD, TxtCantidad) { + TxtCantidad.value = FormatoNumero(ToDouble(TotalUSD) / ToDouble(TxtValorUnitario.value), 6); + } + function LimitaCantidadAplicaDev(Cantidad, TxtCantidadAplicaDevolucion) { if (ToDouble(TxtCantidadAplicaDevolucion.value) > Cantidad) { TxtCantidadAplicaDevolucion.value = FormatoNumero(Cantidad, 2) @@ -10445,7 +10491,17 @@ } - + function fncRegargaMedicos(CveNuevoMedico) { + + $("#HdnCveMedicoNuevo").val(CveNuevoMedico) + $('#BtnRecargaMedicos').click(); + } + + function fncRegargaProcedimientos(CveProcedimientoNuevo) { + + $("#HdnCveProcedimientoNuevo").val(CveProcedimientoNuevo) + $('#BtnRecargaProcedimientos').click(); + } diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 85697a98c..0d3e4cabf 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2722,7 +2722,7 @@ Partial Class Ventas If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then Using ObjCGame As New ClsCGame() - If ObjCGame.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then + If ObjCGame.ManifiestoGet(Request("CveManifiesto").ToEntero(), -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa, "-1", "-1") AndAlso ObjCGame.DtResultados.Rows.Count > 0 Then DdlSubProyectoDatos.SelectedValueExist(ObjCGame.DtResultados.Rows(0)("CveSubProyecto").ToString()) End If @@ -2733,6 +2733,10 @@ Partial Class Ventas End If End Using + + If AplicaComercioExterior Then + CargaGvComercioExterior() + End If End If If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then @@ -5872,13 +5876,21 @@ Partial Class Ventas CveTipoVenta = If(DbRowVenta("CveTipoVenta").ToString.ToEntero > 0, DbRowVenta("CveTipoVenta").ToString.ToEntero, -1) + TrVentasMedicas3.Visible = True + If DbRowVenta("CveMedico").ToString.ToEntero > 0 AndAlso CveTipoVenta.Contiene(1, 2, 3, 5) Then TrVentasMedicas1.Visible = True + DdlMedico.SelectedValueExist(DbRowVenta("CveMedico").ToString) DdlProcedimiento.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString) + TxtPaciente.Text = DbRowVenta("Paciente").ToString + TxtEpisodio.Text = DbRowVenta("Episodio").ToString DdlMedico.Enabled = False DdlProcedimiento.Enabled = False + TxtPaciente.Enabled = False + TxtEpisodio.Enabled = False + If DbRowVenta("FechaParaSurtir").ToString().ToDate() > DateTime.MinValue Then TrVentasMedicas2.Visible = True @@ -8294,6 +8306,7 @@ Partial Class Ventas End Sub Protected Sub GvPS_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvPS.RowUpdating 'Dim TipoDescuento As Integer + Dim Cantidad, PU, CantidadInventario As Decimal Dim ObjDescuento As New Modelos.VentaDescuentos Dim CuentaPredial As String @@ -8326,6 +8339,7 @@ Partial Class Ventas End If Dim CantidadOriginal As Decimal = GvPS.Rows(e.RowIndex).DataKey("Cantidad").ToDecimal() + Dim TotalOriginal As Decimal = GvPS.Rows(e.RowIndex).DataKey("Total").ToDecimal() Dim DatarowPS As DataRow = Nothing DatarowPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=TmpDT.Rows(e.RowIndex)("CvePS").ToString().ToEntero()).FiltroPrimero("") ' Estado = -1 @@ -8631,6 +8645,30 @@ Partial Class Ventas ObjDescuento.Consec = TmpDT.Rows(e.RowIndex)("Consec").ToString().ToEntero() End If + 'RECALCULA LA CANTIDAD DE CONVERSION + If CantidadOriginal <> Cantidad Then + Dim CantidadConversion As Decimal = TmpDT.Rows(e.RowIndex)("CantidadConversion").ToString().ToDecimal() + If AplicaComercioExterior Then + 'SI NO VIENE DE MANIFIESTO UTILIZA EL PESO DEL PRODUCTO + If Request("CveManifiesto") Is Nothing Then + If DrPS("PesoKg").ToString().ToDecimal() > 0 Then + CantidadConversion = Cantidad * DrPS("PesoKg").ToString().ToDecimal() + Else + CantidadConversion = Cantidad + End If + Else + Dim TotalNuevo As Decimal = TmpDT.Rows(e.RowIndex)("Total").ToString().ToDecimal() + Dim PorcentajeConversion As Decimal = CantidadConversion / TotalOriginal + + CantidadConversion = TotalNuevo * PorcentajeConversion + End If + Else + CantidadConversion = Cantidad + End If + + TmpDT.Rows(e.RowIndex)("CantidadConversion") = CantidadConversion + End If + DrPS = Nothing @@ -10131,17 +10169,17 @@ Partial Class Ventas ViewState("CveVenta") = ObjFactura.CveVenta If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then - - If ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then - + If Not ObjVentas.Embarque_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveEmbarqueManifiesto").ToEntero()) Then + ErrorList.Add("Error al actualizar el manifiesto.") End If End If + If Request("CveManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveManifiesto")) AndAlso Request("CveManifiesto").ToEntero() > 0 Then - - If ObjVentas.CGame_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveManifiesto").ToEntero()) Then - + If Not ObjVentas.CGame_ManifiestoUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveManifiesto").ToEntero()) Then + ErrorList.Add("Error al actualizar el manifiesto.") End If End If + Catch ex As Exception OnError("Ocurrió un error al actualizar el embarque", ex) ErrorList.Add("Ocurrió un error al actualizar el embarque") @@ -10151,9 +10189,8 @@ Partial Class Ventas ViewState("CveVenta") = ObjFactura.CveVenta If Request("CveOrdenProduccion") IsNot Nothing AndAlso IsNumeric(Request("CveOrdenProduccion")) AndAlso Request("CveOrdenProduccion").ToEntero() > 0 Then - - If ObjVentas.AgroOrdenProduccionUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveOrdenProduccion").ToEntero()) Then - + If Not ObjVentas.AgroOrdenProduccionUpvta(ObjFactura.CveVenta, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Request("CveOrdenProduccion").ToEntero()) Then + ErrorList.Add("Error al actualizar el manifiesto.") End If End If Catch ex As Exception @@ -13306,7 +13343,8 @@ Partial Class Ventas Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=factura.CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text, FormaPaqueteria:=RblPaqueteria.SelectedValue.ToEntero, FacturarSucursal:=factura.FacturarSucursal, VentaDesglosaIEPS:=factura.VentaDesglosaIEPS, RFCReceptor:=RFCReceptor, Adjunto:=Adjunto, DevolucionImportePagado:=factura.DevolucionImportePagado, EsGarantia:=factura.EsGarantia, ServicioDomicilio:=TrServicioDomicilio.Visible, CveLineaAdicional:=DdlLineaAdicional.SelectedValue.ToEntero(), DescripcionVenta:=DescripcionVenta, - CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=CveTipoVentaGuardar, RequiereOS:=ChkRequiereTecnico.Checked, FechaParaSurtir:=factura.FechaParaSurtir) Then + CveMedico:=CveMedico, CveProcedimiento:=CveProcedimiento, CveTipoVenta:=CveTipoVentaGuardar, RequiereOS:=ChkRequiereTecnico.Checked, FechaParaSurtir:=factura.FechaParaSurtir, + Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") Else If factura.TipoDocto.Contiene("Dev", "Egs") OrElse DtVentasNC IsNot Nothing OrElse CveEstatusRefacturacion > 0 OrElse CveAnticipoPadre > 0 Then @@ -13408,6 +13446,17 @@ Partial Class Ventas End If End If + 'ACTUALIZA EL CAMPO CANTIDAD CONVERSION CON BASE A LO ESTABLECIDO EN LA TABLA + If AplicaComercioExterior Then + For Each gvr As GridViewRow In GvComercioExterior.Rows + For Each Row As DataRow In TmpDTDetalle.Rows + If gvr.DataKey("Consec") = Row("Consec").ToString() AndAlso gvr.DataKey("CvePS") = Row("CvePS").ToString() Then + Row("CantidadConversion") = gvr.FCTextBox("TxtCantidad").Text.ToDecimal() + End If + Next + Next + End If + If factura.TipoDocto = "Egs" AndAlso NuevaFactura = 1 Then If DtVentasNC Is Nothing Then @@ -15334,7 +15383,7 @@ Partial Class Ventas If Not OcurrioError AndAlso DebeGenerarMovimiento AndAlso UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(567) = "1" AndAlso factura.TipoDocto.Contiene("Ing", "Rem") Then If Not (ObjInventario.GetInv_Mov(factura.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0) Then OcurrioError = True - ErrorList.Add("Ocurrió un error al verificar inventario.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") + ErrorList.Add("Ocurrió un error al aplicar el inventario.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") End If End If @@ -16823,6 +16872,10 @@ Partial Class Ventas End If + If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then + AgregarPS() + End If + End If ElseIf CvePSParametro = -2 Then @@ -16836,11 +16889,6 @@ Partial Class Ventas UPPPS.Update() UpPS.Update() - If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then - AgregarPS() - End If - - End Sub Private Function CalculaPrecioSugerido(CvePSParametro As Integer, CveClasificacion As Integer, Optional CvePrecioListaSugerido As Integer = -1) As Modelos.MPrecioSugerido @@ -17557,7 +17605,7 @@ Partial Class Ventas Protected Sub LbAgregar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LbAgregar.Click AgregarPS() End Sub - Private Function ValidaAgregarPS(CvePS As Integer, CveUM As Integer, PU As Double, CveTipoPS As Integer) As Boolean 'NO TOCAR - IPP + Private Function ValidaAgregarPS(CvePS As Integer, CveUM As Integer, PU As Double, CveTipoPS As Integer, Optional CantidadModal As Decimal = 0D, Optional PSValidarModal As String = "") As Boolean 'NO TOCAR - IPP 'VALIDA PARAMETROS If CvePS <= 0 Or CveUM <= 0 Then @@ -17565,6 +17613,10 @@ Partial Class Ventas Return False End If + If PSValidarModal.Trim.Length > 0 Then + HdnPS.Value = PSValidarModal + End If + If HdnPS.Value = "" Or HdnPS.Value = "-1" Then Alert("Es necesario seleccionar el Producto o Servicio a facturar.", TipoMensaje.MsgAdvertencia) Return False @@ -17645,11 +17697,11 @@ Partial Class Ventas End If - If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Then + If DdlTipoComprobante.SelectedValue <> "Cot" And ChkSinExistencia.Checked = False Or UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then 'VALIDA EXISTENCIA - If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153, 140}) Then + If UsuarioActual.CveEmpresa.Contiene({72, 80, 119, 153, 140, 186}) Then If CveVenta <= 0 OrElse Me.EsCreaApartirDe Then - If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then + If Existencia - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} AND (EntregaDirecta IS NULL OR EntregaDirecta < 1)") < (If(CantidadModal > 0, CantidadModal, TxtCantidad.Text.ToDouble)) Then Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) Return False End If @@ -17664,7 +17716,7 @@ Partial Class Ventas 'SUMA LO YA RESTADO EN PENDIENTE POR SURTIR QUE PERTENESCA A LA VENTA. 'PARA QUE NO RESTE LA EXISTENCIA 2 VECES Y PUEDAS COMPARAR LO REAL - If (Existencia + CantidadVenta) - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} And (EntregaDirecta Is NULL Or EntregaDirecta < 1)") < TxtCantidad.Text.ToDouble Then + If (Existencia + CantidadVenta) - TmpDT.SUM("Cantidad", $"CvePS = {CvePS} And (EntregaDirecta Is NULL Or EntregaDirecta < 1)") < (If(CantidadModal > 0, CantidadModal, TxtCantidad.Text.ToDouble)) Then Alert("No cuenta con la cantidad suficiente en inventario. Cuenta con " + Existencia.FormatoNumero(2) + ".", TipoMensaje.MsgAdvertencia) Return False End If @@ -18466,7 +18518,7 @@ Partial Class Ventas 'SI NO SE UTILIZA LA CONVERSION, UTILIZA LA CANTIDAD If CantidadConversion = 0 Then If DrPS("PesoKg").ToString().ToDecimal() > 0 Then - CantidadConversion = DrPS("PesoKg").ToString().ToDecimal() + CantidadConversion = Cantidad * DrPS("PesoKg").ToString().ToDecimal() Else CantidadConversion = Cantidad End If @@ -21631,6 +21683,8 @@ Partial Class Ventas TrVentasMedicas1.Visible = True DdlMedico.Enabled = True DdlProcedimiento.Enabled = True + TxtPaciente.Enabled = True + TxtEpisodio.Enabled = True End If @@ -21805,7 +21859,8 @@ Partial Class Ventas PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:=DdlTipoComprobante.SelectedValue, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDecimal, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero(), - CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, FechaParaSurtir:=FechaParaSurtir) Then + CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), ServicioDomicilio:=TrServicioDomicilio.Visible, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, + FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text, Episodio:=TxtEpisodio.Text) Then OcurrioError = True End If @@ -29688,9 +29743,9 @@ Partial Class Ventas Protected Sub GvComercioExterior_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - Dim CantidadConversion = CDbl(e.Row.DBCampo("CantidadConversion")) - Dim CantidadBase = CDbl(e.Row.DBCampo("Cantidad")) - Dim PUBase = CDbl(e.Row.DBCampo("PU")) + Dim CantidadConversion = e.Row.DBCampo("CantidadConversion").ToDecimal() + Dim CantidadBase = e.Row.DBCampo("Cantidad").ToDecimal() + Dim PUBase = e.Row.DBCampo("PU").ToDecimal() Dim TotalUSD = (CantidadBase * PUBase) @@ -29704,9 +29759,12 @@ Partial Class Ventas End If Else e.Row.FCTextBox("TxtValorUnitario").Text = PUBase.ToString("N2") + 'e.Row.FCTextBox("TxtValorUnitario").Attributes.Add("onkeyup", $"CalculaTotalUSD({e.Row.FCLabel("LblTotalUSD").ClientID}, this,{e.Row.FCTextBox("TxtCantidad").ClientID});") End If - e.Row.FCTextBox("TxtValorUnitario").Attributes.Add("onkeyup", $"CalculaTotalUSD({e.Row.FCLabel("LblTotalUSD").ClientID}, this,{e.Row.FCTextBox("TxtCantidad").ClientID});") + e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", $"CalculaPU_USD({e.Row.FCTextBox("TxtValorUnitario").ClientID}, {e.Row.FCLabel("LblTotalUSD").Text.ToDecimal()},this);") + e.Row.FCTextBox("TxtValorUnitario").Attributes.Add("onkeyup", $"CalculaCantidad_USD(this,{e.Row.FCLabel("LblTotalUSD").Text.ToDecimal()},{e.Row.FCTextBox("TxtCantidad").ClientID});") + End If End Sub @@ -33637,6 +33695,8 @@ Partial Class Ventas TrVentasMedicas1.Visible = True DdlMedico.Enabled = True DdlProcedimiento.Enabled = True + TxtPaciente.Enabled = True + TxtEpisodio.Enabled = True End If If UsuarioActual.TienePermisoProceso(289) Then @@ -33693,7 +33753,8 @@ Partial Class Ventas If Not ObjVentas.UpdateObservacionesVenta(Me.CveVenta, UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(), TxtObsFact.Text, RblPaqueteria.SelectedValue.ToEntero(), TxtCorreoNotificaciones.Text, TxtObsAlmacen.Text, TxtPedidoContrato.Text, TxtOrdenCompra.Text, TxtFechaPago.Text, DdlUsoCFDI.SelectedValue.ToEntero, DescripcionVenta:=TxtDescripcionVenta.Text.Trim, - CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, FechaParaSurtir:=FechaParaSurtir) Then + CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, FechaParaSurtir:=FechaParaSurtir, Paciente:=TxtPaciente.Text, + Episodio:=TxtEpisodio.Text) Then TieneError = True End If @@ -36050,6 +36111,7 @@ Partial Class Ventas TrVentasMedicas1.Visible = True TrVentasMedicas2.Visible = True + TrVentasMedicas3.Visible = True For Each item As ListItem In RBLTipoVenta.Items item.Text = $"  {item.Text}" @@ -36058,7 +36120,7 @@ Partial Class Ventas RegistraScript("$('#DvModalTipoVenta').modal({ backdrop: 'static', keyboard: false });") End Sub - Private Sub CargaProcedimientos() + Private Sub CargaProcedimientos(Optional CveProcedimientSeleccion As Integer = -1) DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") DdlProcedimiento.DataBind() @@ -36066,17 +36128,35 @@ Partial Class Ventas DdlProcedimientoModal.DataBind() + If CveProcedimientSeleccion > 0 Then + DdlProcedimientoModal.SelectedValueExist(CveProcedimientSeleccion) + End If + + UpDvModalTipoVenta.Update() + UpCliente.Update() End Sub - Private Sub CargaMedicos() + Private Sub CargaMedicos(Optional CveMedicoSeleccion As Integer = -1) + + DdlMedico.ClearSelection() + DdlMedico.SelectedValue = Nothing + + DdlMedicoModal.ClearSelection() + DdlMedicoModal.SelectedValue = Nothing + DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") DdlMedico.DataBind() DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") DdlMedicoModal.DataBind() + If CveMedicoSeleccion > 0 Then + DdlMedicoModal.SelectedValueExist(CveMedicoSeleccion) + End If + UpDvModalTipoVenta.Update() + UpCliente.Update() End Sub @@ -36130,7 +36210,7 @@ Partial Class Ventas TdFechaOS1.Visible = ChkRequiereTecnico.Checked - TdFechaOS2.Visible = ChkRequiereTecnico.Checked + UpCliente.Update() End Sub @@ -36297,6 +36377,27 @@ Partial Class Ventas End If End If + + + For Each GvRow As GridViewRow In GvProductosProcedimiento.Rows + Dim Cantidad As Decimal = GvRow.FCTextBox("TxtCantidad").Text.ToDecimal + Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida").ToEntero + Dim Abreviatura As String = GvRow.DataKey("Abreviatura").ToString + Dim PU As Decimal = GvRow.DataKey("Precio").ToDecimal + Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero + Dim Clasificacion As String = GvRow.DataKey("Clasificacion").ToString + Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero + Dim CodigoPS As String = GvRow.DataKey("CodigoPS") + + If Cantidad > 0 Then + If Not ValidaAgregarPS(CvePS, CveUnidadMedida, PU, 2, Cantidad, CodigoPS) Then + Alert("No hay existencia.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + + Next + ChkRequiereTecnico.Checked = ChkRequiereTecnicoModal.Checked TxtFechaOS.Text = TxtFechaModal.Text @@ -36383,6 +36484,7 @@ Partial Class Ventas End If End If Next + If CountPsAgregados > 0 Then CalculaTotalesVenta() End If @@ -36450,7 +36552,8 @@ Partial Class Ventas If ObjOrdenServicio.AddOrdenesServicios(CveCliente, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.Nombre, TxtFechaOS.Text.Replace(",", "").ToDateTime, $"Venta: {LblSerie.Text}-{TxtFolio.Text}", UsuarioActual.CveUsuario, EstatusOrdenServicio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVentaOS, -1, -1, CveOSTipo, CveClienteSucursal:=DdlSucursalCliente.SelectedValue.ToEntero, Direccion:="", Telefono:="", CveModeloAuto:=-1, Año:="", CveMedico:=DdlMedico.SelectedValue.ToEntero, - CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, FechaCita:=TxtFechaOS.Text.Replace(",", "").ToDateTime) Then + CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveTipoVenta:=RBLTipoVenta.SelectedValue.ToEntero, FechaCita:=TxtFechaOS.Text.Replace(",", "").ToDateTime, + Paciente:=TxtPaciente.Text, IdentificadorCliente:=TxtEpisodio.Text) Then CveOSVentaMedica = ObjOrdenServicio.CveOS Else errorList.Add("Se presento un error al guardar la orden de servicio.") @@ -36491,6 +36594,36 @@ Partial Class Ventas End Function + + Protected Sub LnkAddMedicoModal_Click(sender As Object, e As EventArgs) + 'iFrameAddMedicoProcedimiento.Attributes.Add("src", "/Ventas/CatMedicos.aspx?EsFrame=1") + AddMedicoControl.CveMedico = -1 + AddMedicoControl.LimpiarControles() + UpModalAddMedico.Update() + + RegistraScript("$('#DvModalAddMedico').modal();") + End Sub + + Protected Sub LnkAddProcedimientoModal_Click(sender As Object, e As EventArgs) + 'iFrameAddMedicoProcedimiento.Attributes.Add("src", "/Ventas/CatProcedimientoDetalle.aspx?CveProcedimiento=-1") + + AddProcedimientoControl.CveProcedimiento = -1 + AddProcedimientoControl.LimpiarControles() + UpModalAddProcedimiento.Update() + RegistraScript("$('#DvModalAddProcedimiento').modal();") + + End Sub + + Protected Sub BtnRecargaMedicos_Click(sender As Object, e As EventArgs) + + CargaMedicos(HdnCveMedicoNuevo.Value.ToEntero) + + End Sub + + Protected Sub BtnRecargaProcedimientos_Click(sender As Object, e As EventArgs) + CargaProcedimientos(HdnCveProcedimientoNuevo.Value.ToEntero) + End Sub + #End Region 'Protected Sub LnkCancelarSoloCFDI_Click(sender As Object, e As EventArgs) @@ -36570,5 +36703,10 @@ Partial Class Ventas Protected Sub TxtFechaAnticipoCliente_TextChanged(sender As Object, e As EventArgs) CargaAnticipos(CveCliente) End Sub + + + + + End Class