diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 4b2c5371e..85ebb2554 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -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 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/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/Inicio.aspx.vb b/Inicio.aspx.vb index dfd1d36e1..2c3ffb9ac 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -552,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))) 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..62bbef2f1 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 @@ -3307,6 +3331,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/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/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/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index be56eacde..6288d471e 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -603,6 +603,20 @@ + + + Paciente: + + + + + + Episodio: + + + + +
@@ -2402,7 +2416,7 @@
- Emitir: + Emitir
@@ -2665,7 +2679,7 @@ Convertir a unidad Aduana + EmptyDataText="No hay datos disponibles" DataKeyNames="Consec,CvePS,Cantidad,Codigo,ClaveSATFraccionArancelaria,ClaveSATUnidadAduana" OnRowDataBound="GvComercioExterior_RowDataBound"> @@ -8641,6 +8655,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) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 21b19e4b9..5886d1961 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -5876,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 @@ -10161,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") @@ -10181,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 @@ -13336,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 @@ -13438,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 @@ -15364,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 @@ -16853,6 +16872,10 @@ Partial Class Ventas End If + If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then + AgregarPS() + End If + End If ElseIf CvePSParametro = -2 Then @@ -16866,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 @@ -17587,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 @@ -17595,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 @@ -17675,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 @@ -17694,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 @@ -21661,6 +21683,8 @@ Partial Class Ventas TrVentasMedicas1.Visible = True DdlMedico.Enabled = True DdlProcedimiento.Enabled = True + TxtPaciente.Enabled = True + TxtEpisodio.Enabled = True End If @@ -21835,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 @@ -29734,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 @@ -33667,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 @@ -33723,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 @@ -36080,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}" @@ -36160,7 +36192,7 @@ Partial Class Ventas TdFechaOS1.Visible = ChkRequiereTecnico.Checked - TdFechaOS2.Visible = ChkRequiereTecnico.Checked + UpCliente.Update() End Sub @@ -36327,6 +36359,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 @@ -36413,6 +36466,7 @@ Partial Class Ventas End If End If Next + If CountPsAgregados > 0 Then CalculaTotalesVenta() End If @@ -36480,7 +36534,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.")