Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsVentas.vb

@@ -1643,7 +1643,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function UpdateVentaDetalleRemision(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, IEPS As Decimal, PorcentajeIEPS As Decimal, IVA As Decimal, PorcentajeIVA As Decimal, Descuento As Decimal, Observaciones As String, Optional CveUsuarioModifico As Integer = -1, Optional CvePromocionDetalle As Integer = -1) As Boolean
+    Public Function UpdateVentaDetalleRemision(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, IEPS As Decimal, PorcentajeIEPS As Decimal, IVA As Decimal, PorcentajeIVA As Decimal, Descuento As Decimal, Observaciones As String, Optional CveUsuarioModifico As Integer = -1, Optional CvePromocionDetalle As Integer = -1, Optional CantidadConversion As Decimal = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasDetalleRemisionUpdate")
 
@@ -1660,6 +1660,7 @@ Public Class ClsVentas
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
             .Add("@CvePromocionDetalle", SqlDbType.Int).Value = CvePromocionDetalle
+            .Add("@CantidadConversion", SqlDbType.Decimal).Value = CantidadConversion
         End With
 
         Try

Compras/PopUpVerFactura.aspx.vb

@@ -1587,19 +1587,18 @@ Partial Class PopUpVerFactura
             Dim CVEVENTA As Integer = UrlParametros("CVEVENTA").ToString.ToEntero
             Dim CVECLIENTE As Integer = UrlParametros("CVECLIENTE").ToString.ToEntero
             Dim MONTO As Decimal = UrlParametros("MONTO").ToString.ToDecimal
+            Dim TIPO As String = UrlParametros("TIPO").ToString
 
             If CVECLIENTE > 0 AndAlso (CVEIE > 0 Or CVEVENTA > 0) Then
-                ImprimirSaldosAmortizacion(CVEVENTAAMORTIZADA, CVEIE, CVEVENTA, CVECLIENTE, MONTO)
+                ImprimirSaldosAmortizacion(TIPO, CVEVENTAAMORTIZADA, CVEIE, CVEVENTA, CVECLIENTE, MONTO)
             End If
 
         End If
 
     End Sub
 
-    Private Sub ImprimirSaldosAmortizacion(CveVentaAmortizada As Integer, CveIE As Integer, CveVenta As Integer, CveCliente As Integer, Monto As Decimal)
+    Private Sub ImprimirSaldosAmortizacion(Tipo As String, CveVentaAmortizada As Integer, CveIE As Integer, CveVenta As Integer, CveCliente As Integer, Monto As Decimal)
 
-
-        Dim ObjMovtos As New ClsMovimientos()
         Dim SaldoAntNCDev As Decimal = 0
         Dim DatosSaldoAntNCDev As New DataTable
         Dim TipoDocto As String = ""
@@ -1607,36 +1606,22 @@ Partial Class PopUpVerFactura
         Dim Saldo As Decimal = 0D
         Dim DTNCVinculadas As New DataTable
 
-
+        Dim ObjMovtos As New ClsMovimientos()
         If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente) Then
-            DatosSaldoAntNCDev = ObjMovtos.DtResultados
+            If Tipo.Contiene("NC", "Ant") Then
+                DatosSaldoAntNCDev = ObjMovtos.DtResultados.FiltraParametros($"Tipo='{Tipo}' AND CveVenta={CveVenta}")
+            ElseIf Tipo.Contiene("IxC") Then
+                DatosSaldoAntNCDev = ObjMovtos.DtResultados.FiltraParametros($"Tipo='{Tipo}' AND CveIE={CveIE}")
+            End If
         End If
         ObjMovtos.Dispose()
 
         If DatosSaldoAntNCDev IsNot Nothing AndAlso DatosSaldoAntNCDev.Rows.Count > 0 Then
 
-            SaldoAntNCDev = If(CveVenta > 0,
+            SaldoAntNCDev = DatosSaldoAntNCDev.FiltroPrimeroValor("Saldo").ToDecimal
-                                DatosSaldoAntNCDev.FiltroPrimeroValor("Saldo", $"CveVenta={CveVenta}").ToDecimal,
+            TipoDocto = DatosSaldoAntNCDev.FiltroPrimeroValor("Tipo")
-                                DatosSaldoAntNCDev.FiltroPrimeroValor("Saldo", $"CveIE={CveIE}").ToDecimal)
+            Folio = DatosSaldoAntNCDev.FiltroPrimeroValor("Folio")
-
+            Saldo = DatosSaldoAntNCDev.FiltroPrimeroValor("Saldo").ToDecimal
-            TipoDocto = If(CveVenta > 0,
-                                DatosSaldoAntNCDev.FiltroPrimeroValor("Tipo", $"CveVenta={CveVenta}"),
-                                DatosSaldoAntNCDev.FiltroPrimeroValor("Tipo", $"CveIE={CveIE}"))
-
-
-
-
-            If CveIE > 0 Then
-                CveVenta = DatosSaldoAntNCDev.FiltroPrimeroValor("CveVenta", $"CveIE={CveIE}").ToEntero
-                Folio = DatosSaldoAntNCDev.FiltroPrimeroValor("Folio", $"CveIE={CveIE}")
-                Saldo = DatosSaldoAntNCDev.FiltroPrimeroValor("Saldo", $"CveIE={CveIE}").ToDecimal
-            Else
-                Folio = DatosSaldoAntNCDev.FiltroPrimeroValor("Folio", $"CveVenta={CveVenta}")
-                Saldo = DatosSaldoAntNCDev.FiltroPrimeroValor("Saldo", $"CveVenta={CveVenta}").ToDecimal
-            End If
-
-
-
 
         End If
 
@@ -1651,30 +1636,53 @@ Partial Class PopUpVerFactura
             ObjVentas.Dispose()
         End If
 
+        If TipoDocto.Contiene("IxC") Then
+
+            DTNCVinculadas = New DataTable()
+            DTNCVinculadas.Columns.Add(New DataColumn("SerieFolioEstatus", GetType(String)))
+            DTNCVinculadas.Columns.Add(New DataColumn("FechaAplicado", GetType(String)))
+            DTNCVinculadas.Columns.Add(New DataColumn("Moneda", GetType(String)))
+            DTNCVinculadas.Columns.Add(New DataColumn("TotalNC", GetType(String)))
+            Dim DtIxC As DataTable = Nothing
+            Dim ObjVentas As New ClsVentas
+            If ObjVentas.GetRepAnticiposNCIXCDetalle(CveCliente, -1, MinFecha, MaxFecha, UsuarioActual.CveEmpresa, -1, 3, -1, MinFecha, MaxFecha, TipoCambio:=1, TCEspecifico:=-1) Then
+                DtIxC = ObjVentas.DtResultados.FiltraParametros($"CveIE={CveIE} AND TipoColumna ='Aplicación'")
+            End If
+            ObjVentas.Dispose()
+
+            If DtIxC IsNot Nothing Then
+                For Each RowIxC As DataRow In DtIxC.Rows
+                    Dim Row As DataRow = DTNCVinculadas.NewRow
+                    Row("SerieFolioEstatus") = RowIxC("SerieFolioAmortizacion")
+                    Row("FechaAplicado") = RowIxC("FechaAmortizacion")
+                    Row("Moneda") = RowIxC("MonedaAmortizacion")
+                    Row("TotalNC") = RowIxC("ImporteAmortizacion")
+                    DTNCVinculadas.Rows.Add(Row)
+                Next
+            End If
+        End If
+
         If DTNCVinculadas IsNot Nothing Then
 
             Dim params As New List(Of ReportParameter)
 
+            params.Add(New ReportParameter("Tipo", Tipo))
+
             Dim ObjVentas As New ClsVentas
             If ObjVentas.GetVenta(CveVentaAmortizada, UsuarioActual.CveEmpresa) Then
                 Dim DbRowVenta = ObjVentas.DtResultados.Copy().FiltroPrimero("")
 
                 If DbRowVenta IsNot Nothing Then
-                    params.Add(New ReportParameter("SerieFolio", DbRowVenta("SerieFolio").ToString))
+                    params.Add(New ReportParameter("SerieFolio", Folio))
                     params.Add(New ReportParameter("Moneda", DbRowVenta("Moneda").ToString))
                     params.Add(New ReportParameter("Cliente", DbRowVenta("ClienteNombre").ToString))
-
                 End If
 
             End If
             ObjVentas.Dispose()
 
-
-
             Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
 
-
-            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", NowADS().ToString))

Inventarios/CatAlmacenes.aspx.vb

@@ -98,8 +98,10 @@ Partial Class Inventarios_CatAlmacenes
 
     Private Sub CargaUsuarios()
 
-        Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 1 ").Copy
+        Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
 
+        If DT IsNot Nothing Then
+            DT = DT.FiltraParametros(" Estatus = 1 ").Copy
             DT.DefaultView.Sort = "Nombre ASC"
             DT = DT.DefaultView.ToTable
 
@@ -107,7 +109,7 @@ Partial Class Inventarios_CatAlmacenes
             DdlUsuariosAutoriza.DataBind()
 
             DdlUsuariosAutoriza.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
-
+        End If
     End Sub
 
     Private Sub CargaCuentasContables()

OP/OP.aspx.vb

@@ -670,16 +670,11 @@ Partial Class OP_OP
             Dim CveMP As Integer = GvMPAgregados.DataKeys(row.RowIndex)("CvePSMateriaPrima").ToString().ToEntero()
             Dim CveUMMP As Integer = GvMPAgregados.DataKeys(row.RowIndex)("CveUMMateriaPrima").ToString().ToEntero()
             Dim CantidadSolicitada As Decimal = DtMP.Rows(row.RowIndex)("Cantidad").ToString().ToDecimal()
-
-
-
-
             Dim Existencia As Decimal = ObjInventario.GetExistenciasPS(
             CvePS:=CveMP,
             CveUnidadMedida:=CveUMMP,
             CveEmpresa:=UsuarioActual.CveEmpresa,
-            CveAlmacen:=DdlAlmacenOrigenMP.SelectedValue.ToEntero()
+            CveAlmacen:=DdlAlmacenOrigenMP.SelectedValue.ToEntero())
-        )
 
             If Existencia < CantidadSolicitada Then
                 Dim NombreProducto As String = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveMP).FiltroPrimeroValor("Producto", "")
@@ -743,7 +738,6 @@ Partial Class OP_OP
             Next
         End If
 
-
         If Not TieneError Then
             ObjInventario.Commit()
             Alert($"Solicitud de Traspaso guardada. Folio: <b>{FolioSolicitud}</b>", TipoMensaje.MsgInformacion)
@@ -775,8 +769,6 @@ Partial Class OP_OP
 
         Try
 
-
-
             If Me.CveOP = -1 Then ' Modo CREACIÓN
 
                 Dim xmlProductos As String = DataTableToXML(DtPS)
@@ -925,18 +917,14 @@ Partial Class OP_OP
         ' 1. Cargar almacén de salida (Tipo 28)
         DdlAlmacenOrigenSalidaMP.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 28")
         DdlAlmacenOrigenSalidaMP.DataBind()
-
-
         ' 2. Cargar almacén de producto terminado 
         DdlAlmacenTerminado.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1")
         DdlAlmacenTerminado.DataBind()
         DdlAlmacenTerminado.Items.Insert(0, New ListItem("Seleccionar almacén", "-1"))
-
         ' Almacén de Devoluciones (Tipo 1)
         DdlAlmacenDevolucion.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen = 1")
         DdlAlmacenDevolucion.DataBind()
         DdlAlmacenDevolucion.Items.Insert(0, New ListItem("Seleccionar almacén", "-1"))
-
         ' 3. Cargar GridViews
         GvProductoTerminado.DataSource = DtPS.FiltraParametros("Tipo = 'Producto'")
         GvProductoTerminado.DataBind()
@@ -1010,8 +998,12 @@ Partial Class OP_OP
         ObjInventario.IniciaTransacSQL()
         Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
         Dim ObjOP As New ClsOP(ObjInventario.IniciaTransacSQL())
-        Try
+        Dim TotalMPProducto As Decimal = 0
+        Dim TotalMOProducto As Decimal = 0
+        Dim TotalCIProducto As Decimal = 0
 
+        Try
+            'Salida de MP
             CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigenSalidaMP.SelectedValue.ToEntero(), TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="Finalización OP #" & LblFolio.Text, Modulo:="OP/FinalizarOPSalida")
             FolioEntrada = ObjInventario.Folio
             Dim DtMPAlmacen As DataTable = Nothing
@@ -1037,15 +1029,10 @@ Partial Class OP_OP
                 ' 5. Calcular TotalCostoMP 
                 TotalCostoMP = ObjInventario.DtResultados.SUMD("Total")
 
-                Dim CostosPorProducto As New Dictionary(Of Integer, Decimal)
-
                 ' 1. Recorrer cada Producto Terminado en la OP
                 For Each rowProducto As DataRow In DtPS.Select("Tipo = 'Producto'")
                     Dim CvePSProducto As Integer = rowProducto("Clave").ToString.ToEntero()
                     Dim CantidadProducto As Decimal = rowProducto("Cantidad").ToString.ToDecimal()
-                    Dim TotalMPProducto As Decimal = 0
-                    Dim TotalMOProducto As Decimal = 0
-                    Dim TotalCIProducto As Decimal = 0
 
                     ' 2. Calcular Costo de Materias Primas por Producto
                     For Each rowMP As DataRow In DtMP.Select($"Clave = {CvePSProducto}")
@@ -1064,10 +1051,13 @@ Partial Class OP_OP
                     For Each rowCI As DataRow In DtCI.Select($"Clave = {CvePSProducto}")
                         TotalCIProducto += rowCI("Total").ToString.ToDecimal()
                     Next
+                    ' 5. Determinar las devoluciones del Producto
+                    Dim TotalDevPT As Decimal = GvMPUtilizada.Rows.Cast(Of GridViewRow)().Where($"datakey.cvepspt = {CvePSProducto}").Sum(Function(row) DirectCast(row.FindControl("TxtDevolucionMP"), TextBox).Text.ToDecimal())
 
-                    ' 5. Sumar Total por Producto (MP + MO + CI)
+                    ' 6. Sumar Total por Producto (MP + MO + CI)
-                    Dim TotalProducto As Decimal = TotalMPProducto + TotalMOProducto + TotalCIProducto
+                    Dim TotalProducto As Decimal = TotalMPProducto + TotalMOProducto + TotalCIProducto - TotalDevPT
-                    CostosPorProducto.Add(CvePSProducto, TotalProducto)
+
+                    rowProducto("Costo") = TotalProducto
                 Next
 
                 ' 2. PROCESAR DEVOLUCIONES SI EXISTEN
@@ -1082,7 +1072,6 @@ Partial Class OP_OP
 
                         CveMovimientoDev = ObjInventario.AddMovimiento(DdlAlmacenDevolucion.SelectedValue.ToEntero(), TipoMovimientoDev, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=$"Devolución OP #{LblFolio.Text}", Modulo:="OP/Devoluciones", CveMovimientoRelacionado:=CveMovimientoSalida)
 
-
                         If CveMovimientoDev > 0 Then
                             For Each row As GridViewRow In GvMPUtilizada.Rows
                                 Dim Devolucion As Decimal = row.FCTextBox("TxtDevolucionMP").Text.ToDecimal()
@@ -1108,9 +1097,9 @@ Partial Class OP_OP
                             Next
                         End If
                     End If
-
                 End If
 
+                'ENTRADA DE PRODUCTO TERMINADO
                 If Not ErrorMovInv Then
                     CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenTerminado.SelectedValue.ToEntero(), CveConceptoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:="Finalización OP #" & LblFolio.Text, Modulo:="OP/FinalizarOPEntrada", CveMovimientoRelacionado:=CveMovimientoSalida)
                 End If
@@ -1121,7 +1110,7 @@ Partial Class OP_OP
                     Dim PU_PT As Decimal = If(CantidadPT > 0, CostoPTAjustado / CantidadPT, 0)
 
                     For Each rowPT As DataRow In DtPS.Select("Tipo = 'Producto'")
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, rowPT("Cantidad").ToString.ToDecimal(), rowPT("CveUM").ToString.ToEntero(), rowPT("Clave").ToString.ToEntero(), PU_PT) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, rowPT("Cantidad").ToString.ToDecimal(), rowPT("CveUM").ToString.ToEntero(), rowPT("Clave").ToString.ToEntero(), rowPT("Costo").ToString.ToDecimal()) Then
                             ErrorMovInv = True : TextoError = "x" : Exit For
                         End If
                     Next
@@ -1130,21 +1119,28 @@ Partial Class OP_OP
 
                         Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/OPFinalizada", 53, 0, 0, 1, Fecha, "Producción OP #" & LblFolio.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
+                        If CvePrePoliza > 0 Then
+                            'salida MP
                             If CvePrePoliza > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TotalCostoMP, TotalCostoMP, 68, "Consumo MP OP #" & LblFolio.Text, "Consumo MP OP #" & LblFolio.Text, CveMovimientoAlmacen:=CveMovimientoSalida) Then
                                 ErrorMovInv = True
                             End If
-
+                            ' entrada PT
                             If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, CostoPTAjustado, CostoPTAjustado, 68, "Producción PT OP #" & LblFolio.Text, "Producción PT OP #" & LblFolio.Text, CveMovimientoAlmacen:=CveMovimientoEntrada) Then
                                 ErrorMovInv = True
                             End If
-
+                            'dev MP
-
+                            If Not ErrorMovInv AndAlso CostoDevoluciones <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, CostoDevoluciones, CostoDevoluciones, 95, "", $"OP #{LblFolio.Text}", CveMovimientoAlmacen:=CveMovimientoDev) Then
-
+                                ErrorMovInv = True
-
+                            End If
-                        ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, CostoDevoluciones, CostoDevoluciones, 95, "", $"OP #{LblFolio.Text}", CveMovimientoAlmacen:=CveMovimientoDev)
+                            'costo indirecto
-
+                            If Not ErrorMovInv AndAlso TotalCIProducto <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCIProducto, TotalCIProducto, 95, "Producción PT OP #" & LblFolio.Text, "Producción PT OP #" & LblFolio.Text) Then
-
+                                ErrorMovInv = True
-
+                            End If
+                            'mano de obra
+                            If Not ErrorMovInv AndAlso TotalCIProducto <> 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalMOProducto, TotalCIProducto, 95, "Producción PT OP #" & LblFolio.Text, "Producción PT OP #" & LblFolio.Text) Then
+                                ErrorMovInv = True
+                            End If
+                        End If
 
                         'If Not ErrorMovInv Then
                         'If Not ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then

Ventas/Clientes.aspx.vb

@@ -2584,12 +2584,22 @@ Partial Class Clientes
         Dim InformacionCompleta As Boolean = True
         'validación de información completa
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-
+            Dim tPagare As Integer = 0
             If TxtRFC.Text.Trim() = "" Then InformacionCompleta = False
             If ChkPermiteCredito.Checked Then
                 If TxtLimiteCredito.Text.ToDecimal = 0 OrElse TxtCobranzaContacto.Text.Trim = "" OrElse TxtCobranzaTelefono.Text.Trim = "" OrElse TxtDiasEspecifico.Text.Trim = "" OrElse TxtCobranzaCorreo.Text.Trim = "" Then
                     InformacionCompleta = False
                 End If
+                'si es el concepto de pagaré
+                tPagare = 0
+                For Each dRow As GridViewRow In GvDocumentosCliente.Rows
+                    Dim CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToEntero()
+                    If CveDocumentacion = 265 Then
+                        If dRow.FCTextBox("TxtFechaVigencia").Text.ToDate > Now Then tPagare = 1
+                    End If
+                Next
+                If tPagare = 0 Then InformacionCompleta = False
+
             End If
 
             If TxtTelefono.Text.Trim() = "" Then InformacionCompleta = False

Ventas/PVCobranza.aspx.vb

@@ -607,6 +607,11 @@ Partial Class Ventas_PVCobranza
                     Alert("No hay importe para sobrante/faltante", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
+            Else
+                If TxtFaltante.Text.ToDecimal() <> 0 Then
+                    Alert("No debe especificar sobrante/faltante", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
             End If
 
             'validaciones
@@ -1024,12 +1029,12 @@ Partial Class Ventas_PVCobranza
 
                             If respFactura IsNot Nothing AndAlso respFactura.Factura IsNot Nothing AndAlso respFactura.Factura.DtAnticiposAplicados IsNot Nothing Then
                                 For Each dr As DataRow In respFactura.Factura.DtAnticiposAplicados.Rows
-                                    msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}",
+                                    msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}&TIPO={5}",
                                                 dr("CveIE").ToString,
                                                 dr("CveVenta").ToString,
                                                 respFactura.Factura.CveCliente,
                                                 respFactura.CveVenta,
-                                                respFactura.Factura.Total))}"">Imprimir Saldo Aplicado {dr("Folio").ToString}</a><br/>")
+                                                respFactura.Factura.Total, dr("Tipo")))}"">Imprimir Saldo Aplicado {dr("Folio").ToString}</a><br/>")
                                 Next
                             End If
 
@@ -1064,12 +1069,12 @@ Partial Class Ventas_PVCobranza
 
                                     If respNC IsNot Nothing AndAlso respNC.Factura IsNot Nothing AndAlso respNC.Factura.DtAnticiposAplicados IsNot Nothing Then
                                         For Each dr As DataRow In respNC.Factura.DtAnticiposAplicados.Rows
-                                            msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}",
+                                            msBuild.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}&Tipo={5}",
                                                             dr("CveIE").ToString,
                                                             dr("CveVenta").ToString,
                                                             respNC.Factura.CveCliente,
                                                             respNC.CveVenta,
-                                                            respNC.Factura.Total))}"">Imprimir Saldo Aplicado {dr("Folio").ToString}</a><br/>")
+                                                            respNC.Factura.Total, dr("Tipo")))}"">Imprimir Saldo Aplicado {dr("Folio").ToString}</a><br/>")
                                         Next
                                     End If
 
@@ -1444,22 +1449,6 @@ Partial Class Ventas_PVCobranza
                 For Each msg In Retorno.Mensajes
                     SbAlert.AppendFormat("{0} <br/>", msg)
                 Next
-
-                SbAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Factura</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", Retorno.CveVenta)))
-
-                For Each dr As DataRow In DtAnticipos.Rows
-                    SBAmortizaciones.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA={1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}&SALDO={5}",
-                                    dr("CveIE").ToString,
-                                    dr("CveVenta").ToString,
-                                    Retorno.Factura.CveCliente,
-                                    Retorno.CveVenta,
-                                    Retorno.Factura.Total,
-                                    (Retorno.Factura.Total - Retorno.Factura.DtAnticiposAplicados.SUM("Importe"))))}"">Imprimir historial {dr("Folio").ToString}</a><br/>")
-                Next
-
-
-                SbAlert.Append(SBAmortizaciones.ToString)
-
             Else
                 SbAlert.Append("Ocurrió un error al generar la factura")
             End If
@@ -2472,9 +2461,9 @@ Partial Class Ventas_PVCobranza
 
             Dim AnticipoAutorizado = CBool(e.Row.DBCampo("AnticipoAutorizado"))
 
-            'If Not EsProduccion AndAlso UsuarioActual.CveRol = 1 Then
+            If Not EsProduccion AndAlso UsuarioActual.CveRol = 1 Then
-            '    AnticipoAutorizado = True
+                AnticipoAutorizado = True
-            'End If
+            End If
 
             If UsuarioActual.Empresa.Funcionalidad(185) = "1" Then
                 If e.Row.DBCampo("Tipo").ToString().Contiene("NC", "Ant", "IxC") AndAlso Not AnticipoAutorizado Then

Ventas/RepComisionesSMS.aspx.vb

@@ -73,10 +73,10 @@ Partial Class Ventas_RepComisionesSMS
         LnkExportar.Visible = False
         Dim FechaIPago As Date = If(TxtFechaIPago.Text.ToDate < MinFecha, MinFecha, TxtFechaIPago.Text.ToDate)
         Dim FechaFPago As Date = If(TxtFechaFPago.Text.ToDate < MinFecha, MaxFecha, TxtFechaFPago.Text.ToDate)
-
+        Dim CveMarca As Integer = -1
         Dim ObjVentas As New ClsVentas
 
-        If ObjVentas.GetComisionesMedicasRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, -1, -1, DdlMedico.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, UsuarioActual.CveUsuario, -1, FechaIPago, FechaFPago) Then
+        If ObjVentas.GetComisionesMedicasRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, -1, -1, DdlMedico.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, UsuarioActual.CveUsuario, -1, CveMarca, FechaIPago, FechaFPago) Then
             GvDatos.DataSource = ObjVentas.DtResultados
 
             If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then

Ventas/RepVentasResumen.aspx.vb

@@ -103,7 +103,7 @@ Partial Class Ventas_RepVentasResumen
             VxC = Nothing
         End If
 
-        If ObjMovtos.GetRepRecuperacion(TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+        If ObjMovtos.GetRepRecuperacion(TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, MinFecha, MaxFecha, -1, DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, "-1", UsuarioActual.CveEmpresa, 5, -1, "-1", CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
             Datos = ObjVentas.DtResultados
             GvPxC.DataSource = Datos
         Else

Ventas/Ventas.aspx

@@ -1127,6 +1127,8 @@
                                                 </th>
                                                 <th id="thPredial1" runat="server" visible="false">Predial
                                                 </th>
+                                                 <th id="thCantConversion1" runat="server" visible="false">Ed. Med
+                                                    </th>
                                                 <th id="thEncIVA1" runat="server" visible="true">IVA
                                                 </th>
                                                 <th id="thEncIEPS1" runat="server" visible="false">IEPS
@@ -1260,6 +1262,8 @@
                                                 <th id="thPredial2" runat="server" visible="false">
                                                     <asp:TextBox ID="TxtCuentaPredial" runat="server" Width="75px" CssClass="form-control input-sm" type="number"></asp:TextBox>
                                                 </th>
+                                                 <th id="thCantConversion2" runat="server" visible="false">                                                    
+                                                 </th>
                                                 <th id="thEncIVA2" runat="server" visible="true"></th>
                                                 <th id="thEncIEPS2" runat="server" visible="false"></th>
                                                 <th id="thPoliza2" runat="server" visible="false">
@@ -1472,6 +1476,15 @@
                                                     </EditItemTemplate>
                                                 </asp:TemplateField>
                                                 <%--13--%>
+                                                <asp:TemplateField HeaderText="" ItemStyle-HorizontalAlign="Right" Visible="False">
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="LtlCantidadConversion" runat="server" Text='<%# Eval("CantidadConversion", "{0:N2}") %>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                    <EditItemTemplate>
+                                                        <asp:TextBox ID="TxtCantidadConversion" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("CantidadConversion", "{0:N2}") %>' Width="60px"></asp:TextBox>
+                                                    </EditItemTemplate>
+                                                </asp:TemplateField>
+                                                <%--14--%>
                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                                                     <ItemTemplate>
                                                         <asp:Label ID="LblIVA" runat="server" Text='<%# Eval("ImporteIVA", "{0:#,##0.00##}") %>'></asp:Label><br />
@@ -1479,7 +1492,7 @@
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
                                                 <%--<asp:BoundField DataField="ImporteIVA" HeaderText="" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ReadOnly="true" />--%>
-                                                <%--14--%>
+                                                <%--15--%>
                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                                                     <ItemTemplate>
                                                         <asp:Label ID="LblIEPS" runat="server" Text='<%# Eval("ImporteIEPS", "{0:#,##0.00##}") %>'></asp:Label><br />
@@ -1487,17 +1500,17 @@
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
                                                 <%--<asp:BoundField DataField="ImporteIEPS" HeaderText="" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ReadOnly="true" Visible="false" />--%>
-                                                <%--15--%>
-                                                <asp:BoundField DataField="ImporteRetIVA" HeaderText="Ret IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ReadOnly="true" Visible="false" />
                                                 <%--16--%>
-                                                <asp:BoundField DataField="ImporteRetISR" HeaderText="Ret ISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ReadOnly="true" Visible="false" />
+                                                <asp:BoundField DataField="ImporteRetIVA" HeaderText="Ret IVA" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ReadOnly="true" Visible="false" />
                                                 <%--17--%>
+                                                <asp:BoundField DataField="ImporteRetISR" HeaderText="Ret ISR" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" ReadOnly="true" Visible="false" />
+                                                <%--18--%>
                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                                                     <ItemTemplate>
                                                         <asp:Literal ID="LtlTotal" runat="server" Text='<%# If(UsuarioActual.Empresa.Funcionalidad(109) = "1", Eval("TotalConImpuestos", "{0:#,##0.00##}"), Eval("TotalImporte", "{0:#,##0.00##}")) %>'></asp:Literal>
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
-                                                <%--18--%>
+                                                <%--19--%>
                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center">
                                                     <EditItemTemplate>
                                                         <div style="width: 85px;">
@@ -1511,14 +1524,14 @@
                                                             CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
-                                                <%--19--%>
+                                                <%--20--%>
                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center">
                                                     <ItemTemplate>
                                                         <asp:LinkButton ID="imgD" runat="server" AlternateText="Eliminar" CausesValidation="False" CommandName="Delete"
                                                             CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
-                                                <%--20--%>
+                                                <%--21--%>
                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center">
                                                     <ItemTemplate>
                                                         <asp:LinkButton ID="LnkExistencias" runat="server" Visible="false" AlternateText="Ver Existencias" CausesValidation="False" CommandName="Existencias" CommandArgument='<%# GvPS.Rows.Count.ToString() %>'
@@ -1529,7 +1542,7 @@
                                                             CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-clone'></i>" />
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
-                                                <%--21--%>
+                                                <%--22--%>
                                                 <asp:TemplateField>
                                                     <HeaderTemplate>
                                                         <asp:LinkButton ID="LnkOrdenarGvPS" runat="server" CssClass="Texto" Text="<i class='fa fa-retweet'></i>" OnClick="OrdenarGvPS" />
@@ -1538,13 +1551,13 @@
                                                         <asp:TextBox ID="TxtOrden" runat="server" MaxLength="3" Type="number" Width="30px" Text='<%# Eval("Orden") %>' />
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
-                                                <%--22--%>
+                                                <%--23--%>
                                                 <asp:TemplateField HeaderText="Presupuesto de Ingreso" Visible="false">
                                                     <ItemTemplate>
                                                         <asp:DropDownList runat="server" ID="DdlFR" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="FuenteRecaudacionCodigoRubroIngreso" DataValueField="CvePresupuestoIngreso" Style="max-width: 100px;" OnSelectedIndexChanged="DdlFR_SelectedIndexChanged"></asp:DropDownList>
                                                     </ItemTemplate>
                                                 </asp:TemplateField>
-                                                <%--23--%>
+                                                <%--24--%>
                                                 <asp:BoundField DataField="TieneProntoPago" HeaderText="Pronto Pago" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center" ReadOnly="true" Visible="false" />
                                             </Columns>
                                             <RowStyle CssClass="Texto" />

Ventas/Ventas.aspx.vb

@@ -21,15 +21,16 @@ Partial Class Ventas
 #Region "Propiedades"
     Private Const NumeroDecimales As Integer = 2
 
+    Dim ColumnaSubProyecto As Integer = 8
     Dim ColumnaDescuento As Integer = 11
     Dim ColumnaPredial As Integer = 12
-    Dim ColumnaSubProyecto As Integer = 8
+    Dim ColumnaCantConversion As Integer = 13
-    Dim ColumnaIVA As Integer = 13
+    Dim ColumnaIVA As Integer = 14
-    Dim ColumnaIEPS As Integer = 14
+    Dim ColumnaIEPS As Integer = 15
-    Dim ColumnaRetIVA As Integer = 15
+    Dim ColumnaRetIVA As Integer = 16
-    Dim ColumnaRetISR As Integer = 16
+    Dim ColumnaRetISR As Integer = 17
-    Dim ColumnaEditar As Integer = 18
+    Dim ColumnaEditar As Integer = 19
-    Dim ColumnaEliminar As Integer = 19
+    Dim ColumnaEliminar As Integer = 20
 
     'Factura de ventas
     Dim DTConceptos As DataTable
@@ -2744,7 +2745,7 @@ Partial Class Ventas
                 End If
                 AC.Dispose()
                 'columna de Fuente de recaudacion
-                GvPS.Columns(22).Visible = True
+                GvPS.Columns(23).Visible = True
                 nomostrar.Visible = True
                 nomostrar2.Visible = True
                 'GvPS.Width = 1250
@@ -5037,11 +5038,7 @@ Partial Class Ventas
                                         CargaNCDT(Dr("CveVenta").ToString().ToEntero(), DbRowVenta("TipoDocto").ToString(), Dr("Importe").ToString().ToDecimal, Dr("FolioFiscal").ToString(), TC:=Dr("TipoCambio").ToString().ToDecimal)
                                     End If
                                 Next
-
+                                If GvNC.Rows.Count > 0 Then ImgAntiPend.Visible = False
-                                If GvNC.Rows.Count > 0 Then
-                                    ImgAntiPend.Visible = False
-                                End If
-
                             End If
                         End If
                     End If
@@ -5066,7 +5063,6 @@ Partial Class Ventas
                             ChkDevAlm.Enabled = False
                             'LiDevolucionAlmacen.Visible = False
                         End If
-
                     End If
 
                     'SI ES COTIZACION PUEDE GENERAR UNA OC PARA MODIFICAR LOS IMPORTES
@@ -5093,6 +5089,11 @@ Partial Class Ventas
 
                     If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
                         TxtAlfa1.Text = DbRowVenta("Alfa1").ToString
+                        If DbRowVenta("CveTipoVenta").ToString = "2" Then 'pago directo
+                            GvPS.Columns(ColumnaCantConversion).Visible = True
+                            thCantConversion1.Visible = True
+                            thCantConversion2.Visible = True
+                        End If
                     End If
 
                     'CARGAR PS
@@ -5895,8 +5896,8 @@ Partial Class Ventas
                     End If
 
                     'Ocultamos los botones Clonar y Ordenar
-                    GvPS.Columns(20).Visible = False
                     GvPS.Columns(21).Visible = False
+                    GvPS.Columns(22).Visible = False
                     thOrden.Visible = False
 
                     GvFirmas.DataSource = DTmpF
@@ -6360,7 +6361,7 @@ Partial Class Ventas
                     Dim HabilitarExistencias As Boolean = False
                     If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso DbRowVenta("TipoDocto").ToString().Contiene("Rem", "Cot") Then
                         HabilitarExistencias = True
-                        GvPS.Columns(20).Visible = True
+                        GvPS.Columns(21).Visible = True
                     End If
 
                     If HabilitarExistencias Then
@@ -8793,9 +8794,6 @@ Partial Class Ventas
     Protected Sub GvPS_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvPS.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
             e.Row.Attributes("id") = e.Row.RowIndex.ToString()
-            If e.Row.RowIndex = 0 Then
-            End If
-
 
             If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
                 'MODO EDICION
@@ -8838,9 +8836,7 @@ Partial Class Ventas
                         e.Row.FCDropDownList("DdlSubProyecto").DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, dr("CveProyecto").ToString().ToEntero(), UsuarioActual.CveEmpresa, -1, 1)
                         e.Row.FCDropDownList("DdlSubProyecto").DataBind()
                         e.Row.FCDropDownList("DdlSubProyecto").SelectedValueExist(e.Row.DBCampo("CveSubProyecto"))
-
                     End If
-
                 End If
 
                 If UsuarioActual.TienePermisoProceso(68) OrElse UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
@@ -8848,7 +8844,6 @@ Partial Class Ventas
                     e.Row.FCTextBox("TxtDescuento").Enabled = False
                 End If
 
-
                 If Not EsCreaApartirDe Then
                     'Si es una devolucion
                     If NuevaFactura = 0 Then
@@ -8906,7 +8901,6 @@ Partial Class Ventas
                         e.Row.FCDropDownList("DdlPrecioListaEdit").DataBind()
                         e.Row.FCDropDownList("DdlPrecioListaEdit").SelectedValueExist(e.Row.DBCampo("CvePrecioLista"))
                     End If
-
                 End If
 
                 'Si es facturacion de OC o Contrato
@@ -8950,7 +8944,6 @@ Partial Class Ventas
                     e.Row.FCTextBox("TxtPrecio").Enabled = False
                 End If
 
-
                 'PERMISO EDITAR REM
                 If e.Row.DBCampo("TipoDocto") = "Rem" And ModalidadEdicion Then
                     'LO PERMITIDO MODIFICAR
@@ -8983,9 +8976,8 @@ Partial Class Ventas
                     e.Row.FCLabel("LblTurnoEditar").Visible = True
                     e.Row.FCTextBox("TxtNumTurnosEditar").Visible = True
                 End If
-
                 'LA COLUMNA DE ELIMINACION NO DEBE ESTAR VISIBLE EN EL MODO EDICION
-                If GvPS.Columns(19).Visible Then
+                If GvPS.Columns(20).Visible Then
                     e.Row.FCLinkButton("imgD").Visible = False
                 End If
 
@@ -9115,7 +9107,6 @@ Partial Class Ventas
                         End If
                     End If
 
-
                     If DdlTipoComprobante.SelectedValue.Contiene("Cot") Then
                         e.Row.FCHyperLink("HLPS").Visible = True
                         e.Row.FCLabel("LblPS").Visible = False
@@ -9124,7 +9115,6 @@ Partial Class Ventas
                         e.Row.FCHyperLink("HLPS").Visible = False
                         e.Row.FCLabel("LblPS").Visible = True
                     End If
-
                 End If
 
                 If CveVenta <= 0 Then
@@ -9240,7 +9230,7 @@ Partial Class Ventas
 
         OrdenarPS()
 
-        If GvPS.Columns(21).Visible Then
+        If GvPS.Columns(22).Visible Then
 
             For Each GvRow As GridViewRow In GvPS.Rows
                 If GvRow.RowType = DataControlRowType.Header Then
@@ -9266,6 +9256,7 @@ Partial Class Ventas
         Dim Cantidad, PU As Decimal
         Dim ObjDescuento As New Modelos.VentaDescuentos
         Dim CuentaPredial As String
+        Dim CantidadConversion As Decimal = GvPS.Rows(e.RowIndex).FCTextBox("TxtCantidadConversion").Text.Trim.ToDecimal
         Cantidad = GvPS.Rows(e.RowIndex).FCTextBox("TxtCantidad").Text.ToDecimal
         PU = (GvPS.Rows(e.RowIndex).FCTextBox("TxtPrecio").Text.ToDecimal).RoundSQL(6)
 
@@ -9332,11 +9323,9 @@ Partial Class Ventas
                 If ObjPrecioSugerido IsNot Nothing AndAlso ObjPrecioSugerido.PrecioSugerido > 0 Then
                     PU = ObjPrecioSugerido.PrecioSugerido
                 End If
-
             End If
         End If
 
-
         If RecalcularPromociones Then
             ObjDescuento = CalcularDescuentos(CvePSNuevo, Cantidad, PU)
 
@@ -9410,13 +9399,11 @@ Partial Class Ventas
                     If GvPS.Rows(e.RowIndex).FCDropDownList("DdlPrecioListaEdit").SelectedItem IsNot Nothing Then
                         PrecioLista = GvPS.Rows(e.RowIndex).FCDropDownList("DdlPrecioListaEdit").SelectedItem.Text
                     End If
-
                 End If
             End If
 
             Dim SubProyecto As String = ""
             Dim CveSubProyecto As Integer = -1
-
             Dim Proyecto As String = ""
             Dim CveProyecto As Integer = -1
 
@@ -9445,7 +9432,7 @@ Partial Class Ventas
                                     CveProyecto, Proyecto,
                                     CveSubProyecto, SubProyecto,
                                     CuentaPredial:=CuentaPredial, CveVentaDetalle:=GvPS.Rows(e.RowIndex).DataKey("CveVentaDetalle").ToString().ToEntero(), SeActualiza:=True, CvePromocionDetalle:=ObjDescuento.CvePromocionDetalle,
-                                    ObjDescuento:=ObjDescuento, NumTurnos:=NumTurnos, CvePrecioLista:=CvePrecioLista, PrecioLista:=PrecioLista, ConsecutivoManual:=ConsecutivoActual, OrdenManual:=OrdenOriginal)
+                                    ObjDescuento:=ObjDescuento, NumTurnos:=NumTurnos, CvePrecioLista:=CvePrecioLista, PrecioLista:=PrecioLista, CantidadConversion:=CantidadConversion, ConsecutivoManual:=ConsecutivoActual, OrdenManual:=OrdenOriginal)
 
             '    TmpDT.Rows(e.RowIndex)("CveUM") = Ddl.SelectedValue
             '    TmpDT.Rows(e.RowIndex)("UM") = Ddl.SelectedItem.Text
@@ -9509,6 +9496,7 @@ Partial Class Ventas
             TmpDT.Rows(e.RowIndex)("PorcentajeRetIVA") = ClienteRetIVA
             TmpDT.Rows(e.RowIndex)("PorcentajeRetISR") = ClienteRetISR
             TmpDT.Rows(e.RowIndex)("CuentaPredial") = CuentaPredial
+            TmpDT.Rows(e.RowIndex)("CantidadConversion") = CantidadConversion
 
             TmpDT.Rows(e.RowIndex)("TotalConImpuestos") = (TmpDT.Rows(e.RowIndex)("Total").ToString().ToDecimal() - TmpDT.Rows(e.RowIndex)("Descuento").ToString().ToDecimal() + TmpDT.Rows(e.RowIndex)("ImporteIVA").ToString().ToDecimal()).RoundSQL(2)
 
@@ -9558,7 +9546,6 @@ Partial Class Ventas
                 TmpDT.Rows(e.RowIndex)("CveSubProyecto") = DdlSubProyectoDatos.SelectedValue.ToEntero()
             End If
 
-
             'RELACIONAL PS CON EL DESCUENTO
             If ObjDescuento IsNot Nothing Then
                 ObjDescuento.Consec = TmpDT.Rows(e.RowIndex)("Consec").ToString().ToEntero()
@@ -9566,12 +9553,12 @@ Partial Class Ventas
 
             '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()
+                            CantidadConversion = Cantidad * DrPS("PesoKg").ToString.ToDecimal()
                         Else
                             CantidadConversion = Cantidad
                         End If
@@ -9616,7 +9603,7 @@ Partial Class Ventas
         'JJMQ 20160506: Se agrego para la validacion de pago de contado.
         'CVImporteContado.ValueToCompare = TxtTotal.Text.Replace(",", "")
 
-        If GvPS.Columns(21).Visible Then
+        If GvPS.Columns(22).Visible Then
             For Each GvRow As GridViewRow In GvPS.Rows
                 If GvRow.RowType = DataControlRowType.Header Then
                     GvRow.FCLinkButton("LnkOrdenarGvPS").Visible = True
@@ -14885,7 +14872,7 @@ Partial Class Ventas
                                                  CveContratoDetalle:=Row("CveContratoDetalle").ToString().ToEntero(), CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero(), IEPS:=Row("ImporteIEPS").ToString().ToDecimal, CveMovimientoDetallePedido:=Row("CveMovimientoDetallePedido").ToString().ToEntero(), ImporteRetIVA:=Row("ImporteRetIVA").ToString().ToDecimal, ImporteRetISR:=Row("ImporteRetISR").ToString().ToDecimal,
                                                  PorcentajeIVA:=Row("PorcentajeIVA").ToString().ToDecimal, PorcentajeIEPS:=Row("PorcentajeIEPS").ToString().ToDecimal, PorcentajeRetIVA:=Row("PorcentajeRetIVA").ToString().ToDecimal,
                                                  PorcentajeRetISR:=Row("PorcentajeRetISR").ToString().ToDecimal, CuentaPredial:=Row("CuentaPredial").ToString(), CvePrecioLista:=Row("CvePrecioLista").ToString().ToEntero(),
-                                                 CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal(), EstatusAlmacen:=EsatusAlmacen, CantidadConversion:=Row("CantidadConversion").ToString().ToDecimal()) Then
+                                                 CveActivoFijo:=Row("CveActivoFijo").ToString().ToEntero(), NumTurnos:=Row("NumTurnos").ToString().ToDecimal(), EstatusAlmacen:=EsatusAlmacen, CantidadConversion:=Row("CantidadConversion").ToString.ToDecimal()) Then
                     ErrorList.Add("Ocurrió un error al agregar un Producto o Servicio a la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
                     Exit For
                 Else
@@ -21255,7 +21242,7 @@ Partial Class Ventas
                 Row("TieneProntoPago") = "Si"
                 'SOLO DEBE MOSTRASE SI EL PAGO ES DE CONTADO
                 If RBLPago.SelectedValue = "2" Then
-                    GvPS.Columns(23).Visible = True
+                    GvPS.Columns(24).Visible = True
                     thProntoPago.Visible = True
                     thProntoPago2.Visible = True
                 End If
@@ -24551,7 +24538,7 @@ Partial Class Ventas
 
         TxtAtencionA.Enabled = True
 
-        GvPS.Columns(21).Visible = True
+        GvPS.Columns(22).Visible = True
         thOrden.Visible = True
 
         Dim HabilitarExistencias As Boolean = False
@@ -24716,7 +24703,8 @@ Partial Class Ventas
                 For Each Row As DataRow In TmpDT.Rows
                     Dim CveVentaDetalle As Integer = Row("CveVentaDetalle").ToString().ToEntero()
                     If CveVentaDetalle > 0 Then
-                        If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString().ToEntero(), Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("PU").ToString().ToDecimal(), Row("ImporteIEPS").ToString().ToDecimal(), Row("PorcentajeIEPS").ToString().ToDecimal(), Row("ImporteIVA").ToString().ToDecimal(), Row("PorcentajeIVA").ToString().ToDecimal(), Row("Descuento").ToString().ToDecimal(), Row("Obs").ToString(), UsuarioActual.CveUsuario, CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero()) Then
+                        If Not ObjVentas.UpdateVentaDetalleRemision(Row("CveVentaDetalle").ToString().ToEntero(), Row("CvePS").ToString().ToEntero(), Row("Cantidad").ToString().ToDecimal, Row("PU").ToString().ToDecimal(), Row("ImporteIEPS").ToString().ToDecimal(), Row("PorcentajeIEPS").ToString().ToDecimal(), Row("ImporteIVA").ToString().ToDecimal(), Row("PorcentajeIVA").ToString().ToDecimal(), Row("Descuento").ToString().ToDecimal(), Row("Obs").ToString(), UsuarioActual.CveUsuario,
+                                                                        CvePromocionDetalle:=Row("CvePromocionDetalle").ToString().ToEntero(), CantidadConversion:=Row("CantidadConversion").ToString.ToDecimal()) Then
                             OcurrioError = True
                             Exit For
                         End If
@@ -25217,11 +25205,11 @@ Partial Class Ventas
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
 
             If RBLPago.SelectedValue = "2" Then
-                GvPS.Columns(23).Visible = True
+                GvPS.Columns(24).Visible = True
                 thProntoPago.Visible = True
                 thProntoPago2.Visible = True
             Else
-                GvPS.Columns(23).Visible = False
+                GvPS.Columns(24).Visible = False
                 thProntoPago.Visible = False
                 thProntoPago2.Visible = False
             End If
@@ -28579,9 +28567,9 @@ Partial Class Ventas
 
 
                 'Ocultamos los botones Editar, Clonar y Ordenar
-                GvPS.Columns(18).Visible = False
+                GvPS.Columns(19).Visible = False
-                GvPS.Columns(20).Visible = False
                 GvPS.Columns(21).Visible = False
+                GvPS.Columns(22).Visible = False
                 thOrden.Visible = False
 
                 DdlVendedor.SelectedValue = DbRowVenta("CveVendedor").ToString()
@@ -33162,10 +33150,10 @@ Partial Class Ventas
 
         'REINICIALIZA GENERALES PS
         LbAgregar.Visible = False
-        GvPS.Columns(18).Visible = False
         GvPS.Columns(19).Visible = False
         GvPS.Columns(20).Visible = False
         GvPS.Columns(21).Visible = False
+        GvPS.Columns(22).Visible = False
         thOrden.Visible = False
 
         DivRemisionesFacturadas.Visible = False
@@ -33858,7 +33846,7 @@ Partial Class Ventas
         End If
 
         If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
-            GvPS.Columns(20).Visible = True
+            GvPS.Columns(21).Visible = True
         End If
 
         'ECONO, SOLO EL CLIENTE SIGI, PUEDE MODIFICAR EL IVA A 16%
@@ -33880,14 +33868,14 @@ Partial Class Ventas
             imgCalendario.Visible = False
         End If
 
-        GvPS.Columns(21).Visible = True
+        GvPS.Columns(22).Visible = True
         thOrden.Visible = True
 
         Dim HabilitarExistencias As Boolean = False
 
         If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
             HabilitarExistencias = True
-            GvPS.Columns(20).Visible = True
+            GvPS.Columns(21).Visible = True
         End If
 
         For Each GvRow As GridViewRow In GvPS.Rows
@@ -35725,8 +35713,8 @@ Partial Class Ventas
         DdlLineaAdicional_SelectedIndexChanged(DdlLineaAdicional, EventArgs.Empty)
 
         'HABILITA EDITAR Y ELIMINAR DEL GV
-        GvPS.Columns(18).Visible = True
         GvPS.Columns(19).Visible = True
+        GvPS.Columns(20).Visible = True
 
         SetPermisos()
 
@@ -37408,7 +37396,7 @@ Partial Class Ventas
             End If
             AC.Dispose()
             'columna de Fuente de recaudacion
-            GvPS.Columns(22).Visible = True
+            GvPS.Columns(23).Visible = True
             nomostrar.Visible = True
             nomostrar2.Visible = True
             'GvPS.Width = 1250
@@ -40266,6 +40254,13 @@ Partial Class Ventas
                 Alert("Debe de seleccionar un hospital.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
+            'activa la columna para especificar el precio
+
+            GvPS.Columns(ColumnaCantConversion).Visible = True
+            thCantConversion1.Visible = True
+            thCantConversion2.Visible = True
+            thCantConversion1.InnerText = "Ed. Med"
+
         Else
             If DdlClienteSucursalCliente() > 0 Then
                 ViewState("CveCliente") = DdlClienteSucursalCliente()
@@ -40376,12 +40371,13 @@ Partial Class Ventas
             Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
             Dim EdMedica As Decimal = 0
             If RBLTipoVenta.SelectedValue = "2" Then EdMedica = GvRow.FCTextBox("TxtEdMedica").Text.ToDecimal
+            'tomamos la columna de predial, para el uso de ed médica 
 
             If Cantidad > 0 Then
                 If AgregarProductoServicio(Cantidad, CveUnidadMedida, Abreviatura, CveClasificacion, Clasificacion,
                             CvePS, "", TxtObsPS.Text.TrimEnd, PU, 0,
                             DdlProyecto.SelectedValue.ToEntero(), DdlProyecto.SelectedItem.Text, DdlSubProyecto.SelectedValue.ToEntero(), DdlSubProyecto.SelectedItem.Text,
-                            Serie:=If(DIVCod.Visible, TxtCodigoSerie.Text.Trim, ""), TiempoEntrega:=TxtTiempoEntrega.Text, CuentaPredial:=TxtCuentaPredial.Text.Trim, RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=-1,
+                            Serie:=If(DIVCod.Visible, TxtCodigoSerie.Text.Trim, ""), TiempoEntrega:=TxtTiempoEntrega.Text, CuentaPredial:="", RegeneraIEPS:=ClienteDesglosaIEPS, CvePromocionDetalle:=-1,
                             ImporteProntoPago:=0, ObjDescuento:=Nothing, CvePrecioLista:=-1, PrecioLista:="", NumTurnos:=0, CantidadConversion:=EdMedica) Then
                     CountPsAgregados = CountPsAgregados + 1
                 Else