diff --git a/Empresas/Grales/SaldosIniciales/FormatoPS.xlsx b/Empresas/Grales/SaldosIniciales/FormatoPS.xlsx index d25e3f550..9daf55123 100644 Binary files a/Empresas/Grales/SaldosIniciales/FormatoPS.xlsx and b/Empresas/Grales/SaldosIniciales/FormatoPS.xlsx differ diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index cb02b6f95..c206e68f1 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -489,16 +489,17 @@ Partial Class General_SaldosIniciales Dim Codigo As String = Row("Codigo").ToString Dim Descripcion As String = Row("Descripcion").ToString Dim TipoPS As String = Row("Tipo").ToString.Trim.ToUpper - Dim CodigoBarras As String = Row("Codigo Barras").ToString + Dim CodigoBarras As String = Row("Código Barras").ToString Dim UnidadMedida As String = Row("Unidad Medida").ToString.Trim Dim Clasificacion As String = Row("Clasificacion").ToString.Trim Dim Marca As String = Row("Marca").ToString.Trim - Dim RinTamaño As String = Row("Tamaño de Rin").ToString.Trim - Dim Medida As String = Row("Medida").ToString.Trim - Dim SATClavePS As String = Row("Codigo SAT").ToString.Trim - Dim SATClaveUnidadMedida As String = Row("Clave Unidad").ToString.Trim - Dim Linea As String = Row("Linea").ToString.Trim - Dim Modelo As String = Row("Modelo").ToString.Trim + 'Dim RinTamaño As String = Row("Tamaño de Rin").ToString.Trim + 'Dim Medida As String = Row("Medida").ToString.Trim + Dim SATClavePS As String = Row("Código SAT").ToString.Trim + 'Dim SATClaveUnidadMedida As String = Row("Clave Unidad").ToString.Trim + 'Dim Linea As String = Row("Linea").ToString.Trim + 'Dim Modelo As String = Row("Modelo").ToString.Trim + Dim Tamaño As String = Row("Tamaño").ToString.Trim Dim CvePS As Integer = DTPS.FiltroPrimeroValor("CvePS", $"Codigo = '{Codigo}'").ToString.ToEntero @@ -506,6 +507,7 @@ Partial Class General_SaldosIniciales Dim CveClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero Dim CveUnidadMedida As Integer = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}'").ToString.ToEntero Dim CveSATPS As Integer = GlobalDTPSATPS.FiltroPrimeroValor("CveSATPS", $"SATClavePS = '{SATClavePS}'").ToString.ToEntero + Dim CveTamaño As Integer = GlobalDTAcumTamaños.FiltroPrimeroValor("CveTamaño", $"Tamaño = '{Tamaño}'").ToString.ToEntero If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then If ObjClas.AddClasificaciones(Clasificacion, "", -1, "-1", -1, "-1", -1, "-1", @@ -537,56 +539,58 @@ Partial Class General_SaldosIniciales End If Dim CveMedida As Integer = -1 - If Medida <> "" AndAlso DtMedidas IsNot Nothing Then - CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero - If Not CveMedida > 0 Then - If ObjGral.AddMedidas(CveClasificacion, "", Medida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then - DtMedidas = ObjGral.DtResultados.Copy - CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero - End If - End If - End If - End If + 'If Medida <> "" AndAlso DtMedidas IsNot Nothing Then + ' CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero + ' If Not CveMedida > 0 Then + ' If ObjGral.AddMedidas(CveClasificacion, "", Medida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' If ObjGral.GetMedidas(UsuarioActual.CveEmpresa) Then + ' DtMedidas = ObjGral.DtResultados.Copy + ' CveMedida = DtMedidas.FiltroPrimeroValor("CveMedida", $"Medida = '{Medida}'").ToString.ToEntero + ' End If + ' End If + ' End If + 'End If - Dim CveRinTamaño As Integer = -1 - If RinTamaño <> "" AndAlso DtRinTamaño IsNot Nothing Then - CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero - If Not CveRinTamaño > 0 Then - If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then - DtRinTamaño = ObjGral.DtResultados.Copy - CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero - End If - End If - End If - End If + 'Dim CveRinTamaño As Integer = -1 + 'If RinTamaño <> "" AndAlso DtRinTamaño IsNot Nothing Then + ' CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero + ' If Not CveRinTamaño > 0 Then + ' If ObjGral.AddRimTamanios(CveClasificacion, "", RinTamaño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then + ' DtRinTamaño = ObjGral.DtResultados.Copy + ' CveRinTamaño = DtRinTamaño.FiltroPrimeroValor("CveRinTamaño", $"RinTamaño = '{RinTamaño}'").ToString.ToEntero + ' End If + ' End If + ' End If + 'End If - Dim CveModelo As Integer = -1 - If Modelo <> "" AndAlso DtModelos IsNot Nothing Then - CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero - If Not CveModelo > 0 Then - If ObjGral.AddModelos(CveMarca, "", Modelo, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then - DtModelos = ObjGral.DtResultados.Copy - CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero - End If - End If - End If - End If + 'Dim CveModelo As Integer = -1 + 'If Modelo <> "" AndAlso DtModelos IsNot Nothing Then + ' CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero + ' If Not CveModelo > 0 Then + ' If ObjGral.AddModelos(CveMarca, "", Modelo, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + ' If ObjGral.GetModelos(UsuarioActual.CveEmpresa) Then + ' DtModelos = ObjGral.DtResultados.Copy + ' CveModelo = DtModelos.FiltroPrimeroValor("CveModelo", $"Modelo = '{Modelo}'").ToString.ToEntero + ' End If + ' End If + ' End If + 'End If If Not CveClasificacion > 0 AndAlso Clasificacion <> "" Then Alert("No se encontró la Clasificación: " + Clasificacion, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveUnidadMedida > 0 AndAlso UnidadMedida <> "" Then Alert("No se encontró la Unidad de Medida: " + UnidadMedida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveSATPS > 0 AndAlso SATClavePS <> "" Then Alert("No se encontró la Clve SAT PS: " + SATClavePS, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If Not CveMarca > 0 AndAlso Marca <> "" Then Alert("No se encontró la Marca: " + Marca, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For - If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + 'If Not CveMedida > 0 AndAlso Medida <> "" Then Alert("No se encontró la Media: " + Medida, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + 'If Not CveRinTamaño > 0 AndAlso RinTamaño <> "" Then Alert("No se encontró el Tamaño: " + RinTamaño, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For + 'If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For If CvePS > 0 Then + 'If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, + ' CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, + ' CveModelo:=CveModelo) Then If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS, - CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, - CveModelo:=CveModelo) Then + CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) Then ErrorPS = True Codigo.GuardaLog Exit For @@ -594,9 +598,11 @@ Partial Class General_SaldosIniciales Contador += 1 End If Else + 'If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, + ' CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, + ' CveModelo:=CveModelo) <= 0 Then If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1, - CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño, - CveModelo:=CveModelo) <= 0 Then + CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) <= 0 Then ErrorPS = True Codigo.GuardaLog Exit For