Solicitud de devolución dede OS

2023-12-13 08:53:55 -07:00
parent 079fd8dc07
commit e4d553d9d0
6 changed files with 249 additions and 2 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -13145,6 +13145,11 @@ Partial Class Ventas
            End If
        End If

+
+        If UsuarioActual.CveEmpresa.Contiene(186) AndAlso EsVentaMedica AndAlso RBLTipoVenta.SelectedValue.ToEntero <> 2 Then
+            CveAlmacenTraspasoDestino = 1031 'FIXME OIC 2023-12-12 Por definir almacen  
+        End If
+
        Dim TotalImpuestoLocal As Double = 0
        If GvImpuestosLocales2.Rows.Count > 0 Then
            For Each gvr As GridViewRow In GvImpuestosLocales2.Rows