Importaciones, correos clientes

General/SaldosIniciales.aspx.vb

@@ -2290,7 +2290,11 @@ Partial Class General_SaldosIniciales
                                             Dim Valor As Decimal = nuevaEntrada("Valor").ToString().ToDecimal
                                             Dim Serie As String = If(dt.Columns.Contains("Serie"), nuevaEntrada("Serie").ToString().Trim, "")
 
-                                            If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, (Valor / Cantidad), -1, -1, Serie:=Serie) Then
+
+                                            Dim PU As Decimal = If(Valor = 0, 0, (Valor / Cantidad))
+
+
+                                            If Not ObjMovimientos.AddMovimientoDetalle(movimientoCabecera, Cantidad, CveUM, CvePS, PU, -1, -1, Serie:=Serie) Then
                                                 mensajeError = "No se logró generar el detalle del movimiento"
                                                 Throw New Exception()
                                             End If