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

-- corrección de selección automática de un ps

Browse Source
This commit is contained in:
rrene
2025-01-13 08:37:41 -07:00
parent 78eb011cee
commit 549ea13568
1 changed files with 22 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
Compras/Compras.aspx.vb
View File

@@ -1301,12 +1301,13 @@ Partial Class Compras_Compras
'VALIDACION DE XML 'VALIDACION DE XML
NuevaValidacionXML = IfNull(Request("NuevaValidacionXML"), 0).ToString.ToEntero NuevaValidacionXML = IfNull(Request("NuevaValidacionXML"), 0).ToString.ToEntero
ListaDocumentos = New List(Of String) ListaDocumentos = New List(Of String)
TotalGeneral = 0 TotalGeneral = 0
CompraSaldo = 0 CompraSaldo = 0
ViewState("CvePersonal") = -1 ViewState("CvePersonal") = -1
ViewState("RetIVA") = "-1"
ViewState("RetISR") = "-1"
'If UsuarioActual.TienePermisoProceso(259) Then 'If UsuarioActual.TienePermisoProceso(259) Then
DivEsNoDeducible.Visible = True DivEsNoDeducible.Visible = True
'End If 'End If
@@ -17654,23 +17655,25 @@ Partial Class Compras_Compras
End Sub End Sub
Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlClasificacion.SelectedIndexChanged
DdlClasificacionChange() DdlClasificacionChange(True)
End Sub End Sub
Private Sub DdlClasificacionChange() Private Sub DdlClasificacionChange(Optional RecargaDatosPS As Boolean = False)
CargaPS(DdlClasificacion.SelectedValue.ToEntero) CargaPS(DdlClasificacion.SelectedValue.ToEntero)
'si solo tiene un solo producto la clasificación que lo asigne If RecargaDatosPS Then
Dim dtps As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, DdlClasificacion.SelectedValue.ToEntero) 'si solo tiene un solo producto la clasificación que lo asigne
If dtps.Rows.Count = 1 Then Dim dtps As DataTable = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, DdlClasificacion.SelectedValue.ToEntero)
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then If dtps.Rows.Count = 1 Then
DdlPS.SelectedValue = dtps.Rows(0)("CvePS").ToString If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlPS.SelectedText = dtps.Rows(0)("PSCodigo").ToString DdlPS.SelectedValue = dtps.Rows(0)("CvePS").ToString
DdlPSChange() DdlPS.SelectedText = dtps.Rows(0)("PSCodigo").ToString
Else DdlPSChange()
DdlPS.SelectedValue = dtps.Rows(0)("CvePS").ToString Else
End If DdlPS.SelectedValue = dtps.Rows(0)("CvePS").ToString
End If
End If
End If End If
UPPClasificacion.Update() UPPClasificacion.Update()
@@ -17751,16 +17754,15 @@ Partial Class Compras_Compras
Private Sub DdlPSChange() Private Sub DdlPSChange()
If CveProveedor > 0 Then If CveProveedor > 0 Then
If DdlPS.SelectedValue.ToEntero > 0 Then If DdlPS.SelectedValue.ToEntero > 0 Then
Dim PS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("") Dim PS As DataRow = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("")
If PS IsNot Nothing Then If PS IsNot Nothing Then
HdnClasificacion.Value = PS("Clasificacion").ToString HdnClasificacion.Value = PS("Clasificacion").ToString
HdnUnidadMedida.Value = PS("CveUM").ToString HdnUnidadMedida.Value = PS("CveUnidadMedida").ToString
HdnTipoPS.Value = PS("CveTipoPS").ToString HdnTipoPS.Value = PS("CveTipoPS").ToString
HdnPS.Value = PS("PS").ToString HdnPS.Value = PS("PSCodigo").ToString
LblUnidadMedida.Text = PS("UnidadMedida").ToString LblUnidadMedida.Text = PS("UnidadMedida").ToString
ddlUM.Items.Clear() ddlUM.Items.Clear()
If UsuarioActual.Empresa.UsaInventarios Then If UsuarioActual.Empresa.UsaInventarios Then
ddlUM.DataSource = GlobalDTProductosServiciosEquivalencias(PS("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) ddlUM.DataSource = GlobalDTProductosServiciosEquivalencias(PS("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa)
@@ -17802,14 +17804,14 @@ Partial Class Compras_Compras
ViewState("RetIVA") = If(PS("RetIVA").ToString = "-1", ViewState("RetIVA"), PS("RetIVA").ToString).ToString ViewState("RetIVA") = If(PS("RetIVA").ToString = "-1", ViewState("RetIVA"), PS("RetIVA").ToString).ToString
ViewState("RetISR") = If(PS("RetISR").ToString = "-1", ViewState("RetISR"), PS("RetISR").ToString).ToString ViewState("RetISR") = If(PS("RetISR").ToString = "-1", ViewState("RetISR"), PS("RetISR").ToString).ToString
ViewState("RetIVA") = If(ViewState("RetIVA").ToString = "-1", "0", ViewState("RetIVA").ToString) ViewState("RetIVA") = If(IfNull(ViewState("RetIVA"), "-1").ToString = "-1", "0", ViewState("RetIVA").ToString)
ViewState("RetISR") = If(ViewState("RetISR").ToString = "-1", "0", ViewState("RetISR").ToString) ViewState("RetISR") = If(ViewState("RetISR").ToString = "-1", "0", ViewState("RetISR").ToString)
'ViewState("RetIVA") = If(PS("RetIVA").ToString = "-1", If(ViewState("RetIVA").ToString = "-1", 0, ViewState("RetIVA")), PS("RetIVA").ToString).ToString 'ViewState("RetIVA") = If(PS("RetIVA").ToString = "-1", If(ViewState("RetIVA").ToString = "-1", 0, ViewState("RetIVA")), PS("RetIVA").ToString).ToString
'ViewState("RetISR") = If(PS("RetISR").ToString = "-1", If(ViewState("RetISR").ToString = "-1", 0, ViewState("RetISR")), PS("RetISR").ToString).ToString 'ViewState("RetISR") = If(PS("RetISR").ToString = "-1", If(ViewState("RetISR").ToString = "-1", 0, ViewState("RetISR")), PS("RetISR").ToString).ToString
Else Else
ViewState("RetIVA") = If(ViewState("RetIVA").ToString = "-1", "0", ViewState("RetIVA").ToString) ViewState("RetIVA") = If(IfNull(ViewState("RetIVA"), "-1").ToString = "-1", "0", ViewState("RetIVA").ToString)
ViewState("RetISR") = If(ViewState("RetISR").ToString = "-1", "0", ViewState("RetISR").ToString) ViewState("RetISR") = If(IfNull(ViewState("RetISR"), "-1").ToString = "-1", "0", ViewState("RetISR").ToString)
End If End If
If TxtIEPSModal.Text = "" Then If TxtIEPSModal.Text = "" Then