AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SMS - Cat Médicos Retro

Browse Source
This commit is contained in:
rakcsle
2024-03-11 15:21:13 -07:00
parent 85f3eb5522
commit 7169c48da5
3 changed files with 72 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Ventas/Ventas.aspx.vb
View File

@@ -2,6 +2,7 @@
Option Strict On
Option Infer On
Imports System.Activities.Expressions
Imports System.Data
Imports System.Data.SqlClient
Imports System.Diagnostics
@@ -31913,7 +31914,7 @@ Partial Class Ventas
CveMetodoPago = Dr("CveMetodoPago33").ToString().ToEntero()
Next
If EsRemisionMedica Then
If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso EsRemisionMedica Then
TxtObsFact.Text = If(MensajeRemisionesMedicas.ToString().Length > 0, MensajeRemisionesMedicas.ToString().Substring(0, MensajeRemisionesMedicas.ToString().Length - 2), "")
Else
TxtObsFact.Text = If(MensajeRemisiones.ToString().Length > 0, MensajeRemisiones.ToString().Substring(0, MensajeRemisiones.ToString().Length - 2), "")