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

--fix ventas

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-05-24 12:35:42 -07:00
parent 4125c2e675
commit 48e70ed778
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Ventas/Ventas.aspx.vb
View File

@@ -32523,11 +32523,11 @@ Partial Class Ventas
For Each Dr As DataRow In dtSeleccionadas.Rows For Each Dr As DataRow In dtSeleccionadas.Rows
If Dr("Medico").ToString.Length > 0 Then If Dr("Medico").ToString().Trim().Length > 0 Then
MensajeRemisionesMedicas.Append($"Dr. {Dr("MEdico").ToString}{vbCrLf}") MensajeRemisionesMedicas.Append($"Dr. {Dr("Medico").ToString}{vbCrLf}")
EsRemisionMedica = True EsRemisionMedica = True
End If End If
If Dr("Medico").ToString.Length > 0 Then If Dr("Medico").ToString().Trim().Length > 0 Then
MensajeRemisionesMedicas.Append($"Procedimiento {Dr("Procedimiento")}{vbCrLf}") MensajeRemisionesMedicas.Append($"Procedimiento {Dr("Procedimiento")}{vbCrLf}")
EsRemisionMedica = True EsRemisionMedica = True
End If End If
@@ -36988,7 +36988,6 @@ Partial Class Ventas
If CveVenta <= 0 Then If CveVenta <= 0 Then
TxtFechaPago.Text = NowADS().AddDays(PlazoCobranza).ToString("dd/MM/yyyy") TxtFechaPago.Text = NowADS().AddDays(PlazoCobranza).ToString("dd/MM/yyyy")
TxtOrdenCompra.Text = ""
'SI SE HABILITO LA FACTURACION DESDE LA LINEA ADICIONAL DEBE QUITARLO 'SI SE HABILITO LA FACTURACION DESDE LA LINEA ADICIONAL DEBE QUITARLO
If HabilitoFacturacionIngresoLineaAdicional Then If HabilitoFacturacionIngresoLineaAdicional Then