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

Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
rakcsle
2022-04-27 20:53:00 -07:00
parent 1ee8b12041 7514825246
commit 728191dec1
15 changed files with 821 additions and 706 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Compras/Compras.aspx.vb
View File

@@ -2149,18 +2149,8 @@ Partial Class Compras_Compras
Private Sub CargaRetIVAConcepto(Optional Cambio As Boolean = False)
If TrRetIVA.Visible Then
TdRetIVAConcepto.Visible = True
End If
If Cambio Then
@@ -2174,15 +2164,12 @@ Partial Class Compras_Compras
End If
DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
'End If
''If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
'DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
''End If
End If
UpPS.Update()
End Sub
@@ -5262,7 +5249,7 @@ Partial Class Compras_Compras
'QUEMA SALDOS DE INV-COMPRA | MERCANCIA RECIBIDA POR ADELANTADO (OC) | PP 176
If OCVinculada And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
For Each Row As DataRow In TmpDT.FiltraParametros("CveTipoPS = 2").Rows
If Not ObjOC.OrdenesCompraDetalleSaldosInvCompraAdd(Row("CveOrdenCompraDetalle").ToString.ToEntero, -1, -1, Row("CveCompraDetalle").ToString.ToEntero, Row("Cantidad").ToString.ToDouble) Then
If Not ObjOC.OrdenesCompraDetalleSaldosInvCompraAdd(Row("CveOrdenCompraDetalle").ToString.ToEntero, -1, -1, Row("CveCompraDetalle").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal) Then
ErrorSaldosInvComp = True
Exit For
End If