diff --git a/Bancos/PopIEVentas.aspx b/Bancos/PopIEVentas.aspx index 4824b3eeb..cdaa66505 100644 --- a/Bancos/PopIEVentas.aspx +++ b/Bancos/PopIEVentas.aspx @@ -35,6 +35,13 @@ + + + +   + + + diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 3d83cb0b4..ef4f28551 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/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) diff --git a/Sistemas/Empresa.aspx b/Sistemas/Empresa.aspx index 65c1c9719..0c560e540 100644 --- a/Sistemas/Empresa.aspx +++ b/Sistemas/Empresa.aspx @@ -1327,6 +1327,11 @@ + + + + + diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 3c9ac4d86..b592f7565 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1931,6 +1931,9 @@ + + +