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

.

Browse Source
This commit is contained in:
rmolina
2019-12-20 15:00:58 -07:00
parent ff7f4cac6a
commit 3f89ae5545
3 changed files with 45 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/Compras.aspx.vb
View File

@@ -6382,7 +6382,7 @@ Partial Class Compras_Compras
' adfasdasd ' adfasdasd
'ChkNCInvNC 'ChkNCInvNC
If Not RegistraConcepto225 AndAlso Not ChkNCInvNC.Checked AndAlso Not RegistroCuentaPuente Then If Not RegistroCuentaPuente AndAlso Not ChkNCInvNC.Checked Then
'GASTO 'GASTO
If UsuarioActual.CveEmpresa = 119 Then If UsuarioActual.CveEmpresa = 119 Then
DT = TmpDT DT = TmpDT

10
Contabilidad2/CatCuentas.aspx.vb
View File

@@ -29,14 +29,14 @@ Partial Class Contabilidad2_CatCuentas
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
'inicio() 'inicio()
'RegistraScript("$('#Tsubcuenta').mask('00000-0000-0000-00000');") 'RegistraScript("$('#Tsubcuenta').mask('00000-0000-0000-00000');")
If UsuarioActual.Empresa.UsaContabilidad Then ' If UsuarioActual.Empresa.UsaContabilidad Then
CargaMonedas() CargaMonedas()
CargaAgrupadorSAT() CargaAgrupadorSAT()
CargaDatos() CargaDatos()
Else 'Else
Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia) ' Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
MEECuenta.Enabled = False ' MEECuenta.Enabled = False
End If 'End If
End If End If
End Sub End Sub

6
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -2546,6 +2546,9 @@ Partial Class Inventarios_TraspasoAlmacen
Try Try
Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa) Dim DtPS As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa)
For Each RowExcel As DataRow In dt.Rows For Each RowExcel As DataRow In dt.Rows
If RowExcel("Codigo").ToString() <> "" Then
Dim RowPS = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString())) Dim RowPS = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString()))
Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero() Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero()
@@ -2594,9 +2597,10 @@ Partial Class Inventarios_TraspasoAlmacen
RowsNoCargados = RowsNoCargados + 1 RowsNoCargados = RowsNoCargados + 1
ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString()) ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString())
End If End If
End If
Next Next
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al cargar los productos.", ex) OnError("Ocurrió un error al cargar los productos." & ProductosNoCargados.ToString(), ex)
Finally Finally
If NoPSConSerieLote > 0 Then If NoPSConSerieLote > 0 Then