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

-- corrección bdh- factura sin virtual

Browse Source
This commit is contained in:
rrene
2025-05-15 14:16:41 -07:00
parent 7465a53d6b
commit 7924558a00
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Compras/Compras.aspx.vb
View File

@@ -2972,11 +2972,11 @@ Partial Class Compras_Compras
CvePrePoliza = dr("CvePrePoliza").ToString.ToEntero CvePrePoliza = dr("CvePrePoliza").ToString.ToEntero
EstatusAlmacen = dr("EstatusAlmacen").ToString.ToEntero EstatusAlmacen = dr("EstatusAlmacen").ToString.ToEntero
DdlTipoCompra.SelectedValueExist(dr("CveTipoCompra")) DdlTipoCompra.SelectedValueExist(dr("CveTipoCompra"))
If DdlTipoCompra.SelectedValue = "16" Then TipoCompraOriginal = dr("CveTipoCompra").ToString.ToEntero
If TipoCompraOriginal = 16 Then
DdlTipoCompra.Items.Add(New ListItem("Apoyo sin virtual", "16")) DdlTipoCompra.Items.Add(New ListItem("Apoyo sin virtual", "16"))
DdlTipoCompra.SelectedValue = dr("CveTipoCompra").ToString DdlTipoCompra.SelectedValue = dr("CveTipoCompra").ToString
End If End If
TipoCompraOriginal = dr("CveTipoCompra").ToString.ToEntero
CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero
ChkEsNoDeducible.Checked = dr("NoDeducible").ToString.ToEntero > 0 ChkEsNoDeducible.Checked = dr("NoDeducible").ToString.ToEntero > 0
If ChkEsNoDeducible.Checked Then AplicarNoDeducible() If ChkEsNoDeducible.Checked Then AplicarNoDeducible()