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