From 437579309a942b3ddc3cda836394c44cb9b85283 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 25 Nov 2021 12:44:36 -0700 Subject: [PATCH] aplica para venta, al cargar saldo de ventas --- General/SaldosIniciales.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index fda141f25..6fa41f9fb 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -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