Clientes PopIEVentas Metodo Pago, Empresa validacion metodo inventario

Bancos/PopIEVentas.aspx

@@ -35,6 +35,13 @@
                 </b>
 
                 <asp:TextBox ID="LtlSaldo" runat="server" Enabled="true" CssClass="TextBoxAsLabel" BorderStyle="None" BackColor="Transparent" ForeColor="#3c763d" Style="text-align: left"></asp:TextBox>
+                
+                
+                 <b>
+                     &nbsp;<asp:Label ID="LblMetodoPAgo" runat="server"  data-toggle="tooltip" data-placement="right" title="Metodo de pago"></asp:Label>
+                </b>
+                
+                
 
             </div>
         </ContentTemplate>

Bancos/PopIEVentas.aspx.vb

@@ -736,11 +736,16 @@ Partial Class Bancos_PopIEVentas
                     SerieFolio = dr("SerieFolio").ToString
                     TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
                     CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
-                    'Configuración de Modalidad Update
-
-                    'Dim RFCCliente As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RFC", $"CveCliente = {CveCliente} ")
-
 
+                    LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
+
+
+
+                    'Configuración de Modalidad Update
+
+                    'Dim RFCCliente As String = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("RFC", $"CveCliente = {CveCliente} ")
+
+
                     If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then
                         If dr("TipoDocto").ToString = "Rem" Then
                             Alert("Los documentos de tipo Remisión no se permite realizar el pago", TipoMensaje.MsgAdvertencia)