This commit is contained in:
Oscar Irigoyen
2023-01-30 17:10:05 -07:00
7 changed files with 95 additions and 263 deletions

View File

@@ -5633,7 +5633,7 @@ Partial Class Compras_Proveedores
TxtSerieFolio.Text = ObjCompras.DtResultados.Rows(0)("SerieFolio").ToString()
End If
End If
If ObjCompras.GetCompraDetalle(CveCompra) Then
If ObjCompras.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
Dim StrPS As New StringBuilder()
For Each Row As DataRow In ObjCompras.DtResultados.Rows
If ObjCompras.DtResultados.Rows.Count > 1 Then