Soporte Ventas en Facturar remision con amortizacion

Soporte Compras Convertir pesos a dolares con impuestos
Correciones en Ordenes de Servicio

Ventas/Ventas.aspx.vb

@@ -7285,6 +7285,8 @@ Partial Class Ventas
         ObjFactura.Moneda = DdlMoneda.SelectedItem.Text
         ObjFactura.MonedaSAT = GlobalDTMonedas.FiltroPrimeroValor("AbreviaturaSAT", $"CveMoneda = {DdlMoneda.SelectedValue}")
         ObjFactura.TipoDocto = If(IfNull(ViewState("CveRemision"), 0).ToString.ToEntero > 0, "Ing", DdlTipoComprobante.SelectedValue)
+
+
         'ObjFactura.RefDocto = TxtDocto.Text.Trim
         ObjFactura.Folio = If(EstablecioFolio Or VistaPrevia Or (CveVenta > 0 And (NuevaFactura.Contiene(0, 2))), TxtFolio.Text.Trim.ToEntero, -1)
         'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1)
@@ -8971,7 +8973,7 @@ Partial Class Ventas
                 End If
             End If
 
-            If ErrorList.Count = 0 Then
+            If ErrorList.Count = 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
                 'Agregamos las remisiones a la tabla
                 If DtRemisionesPS IsNot Nothing AndAlso DtRemisionesPS.Rows.Count > 0 AndAlso ErrorList.Count = 0 Then
                     Dim CveVentaDetalle As Integer = 0
@@ -10196,7 +10198,7 @@ Partial Class Ventas
             End If
 
             'Si es Facturacion de una remision cancelamos, traspasamos saldos y agregamos evento a la bitacora
-            If RemisionesLista.Count > 0 Then
+            If RemisionesLista.Count > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
 
                 'se verifica que el documento que se está generando sea "Ing", "Ant"
                 If Not ObjFactura.TipoDocto.Contiene("Ing", "Ant") Then
@@ -21590,6 +21592,7 @@ Partial Class Ventas
                 DdlTipoComprobante.Items.Insert(1, New ListItem("Anticipos", "Ant"))
                 DdlTipoComprobante.SelectedIndex = 0
                 DdlTipoComprobante.SelectedValueExist(CveTipoDocto)
+
                 CambiaTipoComprobante()
 
                 Dim MensajeRemisiones As New StringBuilder
@@ -21639,6 +21642,8 @@ Partial Class Ventas
         UPEstimaciones.Update()
         UPCondicionesPago.Update()
         HuboCambioRemi = Not HuboCambioRemi
+
+
         RegistraScript("$('#DivRemisiones').modal('hide');", "DivRemisionesHide")
     End Sub
     Private Sub VerificaRemisiones(ByRef dt As DataTable)