- cambio de update prepoliza

Ventas/Ventas.aspx.vb

@@ -10935,7 +10935,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
 
@@ -11248,7 +11248,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
@@ -15078,7 +15077,7 @@ Partial Class Ventas
         End If
         ObjVentas.Dispose()
     End Sub
-    Private Function GenerarPolizaAC(ObjAC As ClsContPAQi, factura As Modelos.Factura, Optional CancelacionIngreso As Boolean = False) As RetornoPolizaConta
+    Private Function GenerarPolizaAC(ObjAC As ClsContPAQi, factura As Modelos.Factura, Optional CancelacionIngreso As Boolean = False) As Modelos.RetornoPolizaConta
         Dim Retorno As New Modelos.RetornoPolizaConta
         Dim IDPoliza As Integer = 0
 
@@ -24884,6 +24883,7 @@ Partial Class Ventas
         Next
 
         TxtImportesRemisionesNC.Text = TotalRemNCAplicado.FormatoNumero
+        TxtNCImporte.Text = TotalRemNCAplicado.FormatoNumero
 
         UpModalRemisionesNC.Update()
         UpAplicarNC.Update()