This commit is contained in:
rakcsle
2021-11-25 19:22:08 -07:00

View File

@@ -1215,7 +1215,7 @@ Partial Class General_SaldosIniciales
Dim NoEncontrados As Integer = 0
Dim Encontrados As Integer = 0
Dim StrRFCNoencontrados As New StringBuilder
Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("")
Dim drr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimero("AplicaParaVenta = 1")
Dim CvePS As Integer = drr("CvePS").ToString.ToEntero
Dim CveUnidadMedida As Integer = drr("CveUnidadMedida").ToString.ToEntero
Dim CveClasificacion As Integer = drr("CveClasificacion").ToString.ToEntero
@@ -1728,7 +1728,7 @@ Partial Class General_SaldosIniciales
End If
Dim SubP As String = Row("SubProyecto").ToString.Trim
If SubP <> "" OrElse SubP <> "-" Then
If SubP <> "" AndAlso SubP <> "-" Then
DataTemp = SubProTemp.FiltraParametros(String.Format("SubProyecto = '{0}'", SubP))
CveSubProyecto = DataTemp.FiltroPrimeroValor("CveSubProyecto", "").ToEntero
If CveSubProyecto <= 0 Then