-- mejoras

Inventarios/RecepcionUsados.aspx.vb

@@ -1242,7 +1242,6 @@ Partial Class Inventarios_RecepcionUsados
                         CveVenta = -1
                     End If
 
-
                     If Not ErrorMovInv AndAlso GenerarRNC AndAlso ObjRemisionNC IsNot Nothing Then
 
                         CargaDTDetalleRNC()
@@ -1255,6 +1254,12 @@ Partial Class Inventarios_RecepcionUsados
                         'Alert(Msg.ToString, If(Resp.CveVenta > 0, TipoMensaje.MsgInformacion, TipoMensaje.MsgAdvertencia))
                         CveVenta = Resp.CveVenta
 
+                        If Resp.CveMovimientoUsado <= 0 Then
+                            Msg.Append("Error al guardar los movimientos de usados")
+                            ErrorMovInv = True
+                        End If
+
+
                     End If
 
                     Dim Mensaje As String = ""
@@ -1334,10 +1339,10 @@ Partial Class Inventarios_RecepcionUsados
                             '    End If
                             'End If
 
-                            'GENERA LA PREPOLIZA DE ALMACEN VS EL CONCEPTO DE RNC
+                            ''GENERA LA PREPOLIZA DE ALMACEN VS EL CONCEPTO DE RNC
-                            'If Not ErrorMovInv Then
+                            If Not ErrorMovInv Then
-                            '    ErrorMovInv = Not GeneraPrePoliza(CveMovimiento, ObjInventario, ObjConta, True)
+                                ErrorMovInv = Not GeneraPrePoliza(CveMovimiento, ObjInventario, ObjConta, True)
-                            'End If
+                            End If
 
                         End If
 
@@ -1433,12 +1438,12 @@ Partial Class Inventarios_RecepcionUsados
 
                 If tmpCostos.Rows.Count > 0 Then
                     Dim Concepto As String = ConceptoPoliza
-                    Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalida", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                    Dim CvePrePoliza = ObjConta.AddPrePolizas("Inv_EntradaSalidaUsados", 74, DtCostos.SUMD("Total"), DtCostos.SUMD("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                     Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
                     Dim tCveConcepto As Integer = 278
 
                     For Each RowInv As DataRow In tmpCostos.Rows
-                        ValorInventario = DtCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
+                        ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL
                         If tCveConcepto = 69 Then
                             IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero
                         End If
@@ -2414,33 +2419,20 @@ Partial Class Inventarios_RecepcionUsados
         Me.ObjRemisionNC.Moneda = GlobalDTMonedas.FiltroPrimeroValor("Moneda", String.Format("CveMoneda = {0} ", CveMoneda))
         Me.ObjRemisionNC.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", String.Format("CveMoneda = {0} ", CveMoneda))
         Me.ObjRemisionNC.TipoDocto = "RNC"
-        Me.ObjRemisionNC.RefDocto = ""
-        Me.ObjRemisionNC.CveMesa = -1
         Dim Fecha As DateTime = TxtFecha.Text.ToDateTime()
         Me.ObjRemisionNC.Fecha = Fecha
         Me.ObjRemisionNC.CvePrePoliza = -1
         Me.ObjRemisionNC.FechaPago = Fecha
-        Me.ObjRemisionNC.MotivoDescuento = ""
         Me.ObjRemisionNC.FechaEjecucion = Fecha
         Me.ObjRemisionNC.UsuarioCreo = UsuarioActual.Usuario
-        Me.ObjRemisionNC.CveCondicionEntrega = -1
-        Me.ObjRemisionNC.CondicionEntrega = ""
-        Me.ObjRemisionNC.NumeroCuenta = ""
         Me.ObjRemisionNC.CondicionesPago = 0
         Me.ObjRemisionNC.FormaPago = 0
-        Me.ObjRemisionNC.PedidoContrato = ""
-        Me.ObjRemisionNC.NumeroContrato = ""
-        Me.ObjRemisionNC.DescripcionContrato = ""
-        Me.ObjRemisionNC.CveCorte = -1
         Me.ObjRemisionNC.TipoDocumento = "Remisión"
         'NUM 1- CARGO 2- BONIFICACION
         Me.ObjRemisionNC.Num1 = 1
         'NUM 0- USADO 1- AJUSTE/GARANTIA
         Me.ObjRemisionNC.Num2 = RblUsadosAjuste.SelectedValue.ToEntero()
-        Me.ObjRemisionNC.Alfa1 = ""
+
-        Me.ObjRemisionNC.Alfa2 = ""
-        Me.ObjRemisionNC.Alfa3 = ""
-        Me.ObjRemisionNC.CveContrato = -1
         Me.ObjRemisionNC.ConvertirPesos = False
         Me.ObjRemisionNC.CveSubProyecto = CveSubProyecto
         Me.ObjRemisionNC.CveSubProyectoCobranza = CveSubProyecto
@@ -2551,7 +2543,6 @@ Partial Class Inventarios_RecepcionUsados
             Return False
         End If
 
-
         Dim Row As DataRow = Nothing
         Dim TotalCalculableImpuestos As Decimal = 0
         PU = Math.Round(PU, 6) ' el precio unitario puede llevar hasta 6 decimales permitidos
@@ -2572,8 +2563,6 @@ Partial Class Inventarios_RecepcionUsados
         Row("CvePS") = CvePS
         Row("Obs") = Obs
 
-
-
         Dim DrPS As DataRow = Nothing
 
         DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") ' Estado = -1
@@ -2583,7 +2572,6 @@ Partial Class Inventarios_RecepcionUsados
             Return False
         End If
 
-
         DrPS("IEPSPorcentaje") = 0
 
         'verifica si tiene ventaminima