Merge branch 'master' of http://jperez@adsistemasof.sytes.net:8383/SIG.git

Ventas/Ventas.aspx.vb

@@ -5803,8 +5803,13 @@ Partial Class Ventas
                     If UsuarioActual.CveEmpresa = 119 Then
                         e.Row.FCTextBox("TxtCantidad").Enabled = False
                     End If
-                    'e.Row.FCDropDownList("DdlClasificacion").Enabled = False
-                    'e.Row.FCDropDownLost("DdlPS").Enabled = False
+
+                    'cuando ya tiene una salida, no se puede cambiar el producto
+                    If e.Row.DBCampo("CantidadInventario").ToDouble > 0 Then
+                        e.Row.FCDropDownList("DdlClasificacion").Enabled = False
+                        e.Row.FCDropDownLost("DdlPS").Enabled = False
+                        e.Row.FCDropDownLost("DdlPS").ddlWS.Attributes.Add("disabled", "disabled")
+                    End If
 
                     e.Row.FCTextBox("TxtTiempoEntrega").Enabled = False
                     e.Row.FCDropDownList("DdlProyecto").Enabled = False
@@ -5949,6 +5954,7 @@ Partial Class Ventas
 
         If Not UsuarioActual.TienePermisoProceso(169) Then ' NO VALIDA EXISTENCIAS NI COSTO - PERMISO PARA NO VALIDAR
             Dim CvePS As Integer = DatarowPS("CvePS").ToString.ToEntero
+            Dim CveUM As Integer = DatarowPS("CveUM").ToString.ToEntero
             Dim CveTipoPS As Integer = DatarowPS("CveTipoPS").ToString.ToEntero
 
             CantidadInventario = GvPS.Rows(e.RowIndex).DataKey("CantidadInventario").ToString.ToDecimal
@@ -5963,7 +5969,7 @@ Partial Class Ventas
                 Dim ObjInventarios As New ClsInventarios
                 Dim Existencia As Decimal
                 If ValidaExistencia Then
-                    Existencia = ObjInventarios.GetExistenciasPS(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1)
+                    Existencia = ObjInventarios.GetExistenciasPS(CvePS, CveUM, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1)
                 End If
 
                 Dim Costo As Decimal = ObjInventarios.GetCostoPS(CvePS, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero, CveTipoAlmacen:=1)
@@ -10936,7 +10942,7 @@ Partial Class Ventas
             'REFACTURACION CON PAGOS, DEBE CANCELAR SALDOS DEL DOCUMENTO ANTERIOR Y TRASPASAR PAGOS AL NUEVO
             If ModalidadRefacturacion = 2 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso ObjFactura.NuevaFactura = 1 Then
                 If Not ObjConta.TraspasarSaldosPrePolizasRefacturacion(ObjFacturaNC.CveVenta, ObjFactura.CveVenta, ObjFactura.CvePrePoliza, CvePlantilaPoliza, UsuarioActual.CveEmpresa) Then
-                    ErrorList.Add("Ocurrió un error al agregar la bitacora de Póliza Virtual.")
+                    ErrorList.Add("Ocurrió un error al traspasos saldos en refacturación")
                 End If
             End If
 
@@ -11077,7 +11083,7 @@ Partial Class Ventas
                         CveConceptoAlmacen = 18
                     End If
 
-                    Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEntero
+                    Dim CveAlmacen = ddlAlmacen.SelectedValue.ToEnteroca
                     Dim CveMovimientoInventario As Integer = ObjInventario.AddMovimiento(CveAlmacen, CveConceptoAlmacen, factura.CveMoneda, factura.Fecha, -1, factura.CveUsuario, factura.CveEmpresa, -1, factura.CveVenta, -1, -1, Modulo:="Vta/E1")
 
                     If CveMovimientoInventario <= 0 Then
@@ -11249,7 +11255,6 @@ Partial Class Ventas
 
             If factura.TipoDocto.Contiene("Ing", "Egs", "OP", "Com") Then
 
-                'Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) : ObjAC.IniciaTransacSQL()
                 Dim IDPoliza As Modelos.RetornoPolizaConta = GenerarPolizaAC(ObjAC, factura)
 
                 If IDPoliza.IdPoliza > 0 Then
@@ -24895,6 +24900,7 @@ Partial Class Ventas
         Next
 
         TxtImportesRemisionesNC.Text = TotalRemNCAplicado.FormatoNumero
+        TxtNCImporte.Text = TotalRemNCAplicado.FormatoNumero
 
         UpModalRemisionesNC.Update()
         UpAplicarNC.Update()