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

Ventas Medicas Pago directo inicial

Browse Source
This commit is contained in:
rakcsle
2023-11-14 08:30:53 -07:00
parent 543653e172
commit 22085d12c2
25 changed files with 18760 additions and 1283 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Ventas/ProductosServicios.aspx.vb
View File

@@ -239,6 +239,15 @@ Partial Class ProductosyServicios
ChkFechaIndeterminadaRSCO.Checked = False
End If
If UsuarioActual.CveEmpresa.Contiene(119) Then
DdlIVA.Items.Insert(0, New ListItem("Seleccione", "-2"))
If CvePS > 0 Then
DdlIVA.SelectedValueExist(-2)
End If
Else
DdlIVA.SelectedValueExist(-1)
End If
End If
If Request("Ret") IsNot Nothing AndAlso Request("Ret").ToString <> "" Then
@@ -328,14 +337,7 @@ Partial Class ProductosyServicios
DdlSATPS.SelectedText = DrSAT("SATClaveProductoServicio").ToString()
End If
If UsuarioActual.CveEmpresa.Contiene(119) Then
DdlIVA.Items.Insert(0, New ListItem("Seleccione Uno", "-2"))
If CvePS > 0 Then
DdlIVA.SelectedValueExist(-2)
End If
Else
DdlIVA.SelectedValueExist(-1)
End If
End If
End Sub
@@ -924,8 +926,18 @@ Partial Class ProductosyServicios
DdlIVA.Visible = False
DdlIVA.Visible = False
End If
DdlIVA.SelectedValueExist(ObjProductosServicios.IVA.ToString)
If UsuarioActual.CveEmpresa.Contiene(119) Then
DdlIVA.Items.Insert(0, New ListItem("Seleccione", "-2"))
If ObjProductosServicios.DtResultados.Rows(0)("IVACatPS").ToString = "" Then
DdlIVA.SelectedValueExist(-2)
End If
End If
LblCostoPromedio.Text = ObjProductosServicios.DtResultados.Rows(0)("CostoPromedio").ToString.FormatoNumero
LblUltimoCosto.Text = ObjProductosServicios.DtResultados.Rows(0)("UltimoCosto").ToString.FormatoNumero