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

Correcion de usados

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-06-23 11:23:13 -07:00
parent d04d389786
commit ec1ff79452
1 changed files with 25 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -2560,11 +2560,12 @@ Partial Class Inventarios_RecepcionUsados
Case "0" ' USADOS Case "0" ' USADOS
CvePS = Row.DataKey("CvePS").ToEntero() CvePS = Row.DataKey("CvePS").ToEntero()
Case "1" ' AJUSTE/GARANTIA Case "1" ' AJUSTE/GARANTIA
Dim drDatos As DataRow = GlobalDTAcumTamaños().FiltroPrimero(String.Format("CveTamaño = {0} AND CveEmpresa = {1}", CveTamaño, UsuarioActual.CveEmpresa)) CvePS = Row.DataKey("CvePS").ToEntero()
'Dim drDatos As DataRow = GlobalDTAcumTamaños().FiltroPrimero(String.Format("CveTamaño = {0} AND CveEmpresa = {1}", CveTamaño, UsuarioActual.CveEmpresa))
If drDatos IsNot Nothing Then 'If drDatos IsNot Nothing Then
CvePS = drDatos.Item("CvePSCargo").ToString.ToEntero ' CvePS = drDatos.Item("CvePSCargo").ToString.ToEntero
End If 'End If
End Select End Select
If CvePS > 0 Then If CvePS > 0 Then
@@ -3104,19 +3105,27 @@ Partial Class Inventarios_RecepcionUsados
End If End If
Dim drDatos As DataRow = GlobalDTAcumTamaños().FiltroPrimero(String.Format("CveTamaño = {0} AND CveEmpresa = {1}", CveTamaño, UsuarioActual.CveEmpresa)) Dim drDatos As DataRow = GlobalDTAcumTamaños().FiltroPrimero(String.Format("CveTamaño = {0} AND CveEmpresa = {1}", CveTamaño, UsuarioActual.CveEmpresa))
If drDatos IsNot Nothing Then Dim Importe As Decimal = 0
Dim Importe As Decimal = drDatos("Cargo").ToString.ToDecimal
Dim drTamañoPS As DataRow = Nothing Dim drTamañoPS As DataRow = Nothing
DtMovimientos.Rows.Clear() DtMovimientos.Rows.Clear()
Select Case RblUsadosAjuste.SelectedValue ' USADOS
Case "0" ' USADOS If drDatos IsNot Nothing Then
If RblUsadosAjuste.SelectedValue = "0" Then
CvePS = drDatos.Item("CvePSCargo").ToString.ToEntero CvePS = drDatos.Item("CvePSCargo").ToString.ToEntero
Case "1" ' AJUSTE/GARANTIA End If
CvePS = DdlPSAjuste.SelectedValue.ToEntero Importe = drDatos("Cargo").ToString.ToDecimal
End Select Else
Importe = TxtImporteAjuste.Text.ToDecimal
End If
'AJUSTE/GARANTIA
If RblUsadosAjuste.SelectedValue = "1" Then
CvePS = DdlPSAjuste.SelectedValue.ToEntero
End If
If CvePS > 0 Then
If ObjPS.GetPS(CvePS, -1, UsuarioActual.CveEmpresa) Then If ObjPS.GetPS(CvePS, -1, UsuarioActual.CveEmpresa) Then
drTamañoPS = ObjPS.DtResultados.FiltroPrimero("") drTamañoPS = ObjPS.DtResultados.FiltroPrimero("")
'CveTamaño = -1 'limpio esta variable para que no se registre dos veces en la clase Modelos 'CveTamaño = -1 'limpio esta variable para que no se registre dos veces en la clase Modelos
@@ -3126,6 +3135,7 @@ Partial Class Inventarios_RecepcionUsados
Else Else
Alert("No se pudo cargar el producto", TipoMensaje.MsgError) Alert("No se pudo cargar el producto", TipoMensaje.MsgError)
End If End If
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al agregar el producto", ex) OnError("Ocurrió un error al agregar el producto", ex)
End Try End Try