Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/Ventas.aspx.vb

@@ -10281,6 +10281,13 @@ Partial Class Ventas
                 End If
             End If
 
+            'EN CASO DE SER REFACTURACION DE ANTICIPO SE ACTUALIZAN LAS VENTAS APLICADAS HACIA EL NUEVO
+            If NuevaFactura = 1 AndAlso CveDevolucion > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ant") Then
+                If Not ObjVentas.TraspasaVentasAplicadasAnt(ObjFactura.CveVenta, CveDevolucion, UsuarioActual.CveEmpresa) Then
+                    ErrorPrepoliza = True
+                End If
+            End If
+
             Return ErrorPrepoliza
         Catch ex As Exception
             GuardaLog(ex.ToString())
@@ -15755,7 +15762,7 @@ Partial Class Ventas
             If UsuarioActual.CveEmpresa.Contiene(126) Then
                 If CveVenta > 0 And DdlOrdenProduccion.SelectedValue.ToEntero > 0 Then
                     If Not ObjCGame.UpdateOrdenProduccionVenta(DdlOrdenProduccion.SelectedValue.ToEntero(), CveVenta) Then
-                        ErrorList.Add("Ocurrió un error al actualizar la orden de producción")
+                        OcurrioError = True
                     End If
                 End If
             End If
@@ -15765,7 +15772,7 @@ Partial Class Ventas
             If ObjConta.ValorPolizaDescuadre > 0 Then
                 If ObjConta.ValorPolizaDescuadre = 2 Then
                     OcurrioError = True
-                    ErrorList.Add(ObjConta.MensajePolizaDescuadre)
+                    Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
                 End If
             End If
         End If
@@ -21439,6 +21446,11 @@ Partial Class Ventas
             CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero)
             DdlFormaPago33.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveFormaPago"))
 
+            DiasCredito = dtSeleccionadas.FiltroPrimeroValor("DiasCredito").ToEntero
+            EsDiasCreditoFijo = CBool(dtSeleccionadas.FiltroPrimeroValor("EsDiasCreditoFijo"))
+
+
+
             'validación, cuando las remisiones sean de una sucursal y el usuario solo tenga acceso a otra, deberá tener priodidad la sucursal de la que solo se factura
             If DdlSubProyectoDatos.Enabled = True Then
                 DdlSubProyectoDatos.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveSubProyecto"))
@@ -21572,11 +21584,14 @@ Partial Class Ventas
             End If
         End If
 
+        TxtFechaPago.Text = If(EsDiasCreditoFijo, Now.AddDays(DiasCredito).ToShortDateString, TxtFechaPago.Text)
+
         UpRemisionesFacturas.Update()
         UpFacturar.Update()
         UpPS.Update()
         UpParametros.Update()
         UPEstimaciones.Update()
+        UPCondicionesPago.Update()
         HuboCambioRemi = Not HuboCambioRemi
         RegistraScript("$('#DivRemisiones').modal('hide');", "DivRemisionesHide")
     End Sub