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

OC Correciones REt ISR Ret IVA

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-07-07 16:42:44 -07:00
parent 7806a84d1e
commit 904914274d
3 changed files with 178 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

109
OC/OC.aspx.vb
View File

@@ -635,7 +635,7 @@ Partial Class OC_OC
End If
CargaDatos(CveOrdenCompra)
ConfiguraRetencionesProveedor()
Else
LIContratos.Visible = True
EsNuevo = True
@@ -880,7 +880,7 @@ Partial Class OC_OC
If (UsuarioActual.TienePermisoProceso(203)) AndAlso Dr("TipoTermino").ToString.ToEntero = 3 AndAlso Dr("Tipo").ToString = "OC" Then
CargaClasificaciones()
If Not UsuarioActual.TienePermisoProceso(131) Then DesHabilitar()
GvD.Columns(10).Visible = True
GvD.Columns(12).Visible = True
LbAgregar.Enabled = True
txtPrecioUnitario.Enabled = True
DdlProyecto.Enabled = True
@@ -1642,7 +1642,7 @@ Partial Class OC_OC
SubProyectosNoAutorizados.Add(Row("SubProyecto").ToString)
CboE.BackColor = Drawing.Color.Silver
CboE.Enabled = False
GvD.Columns(10).Visible = False 'No permitir la edicion
GvD.Columns(12).Visible = False 'No permitir la edicion
'GvD.Columns(9).Visible = True
ChkCotizacion.Enabled = False
TxtDescrip.Enabled = False
@@ -1678,7 +1678,7 @@ Partial Class OC_OC
'EDICION
'CUANDO EL LA REGISRO Y TIENE ACCESO A ESE ESTATUS
If objOC.CveUsuario = UsuarioActual.CveUsuario AndAlso (DtEstatusUsuarios.FiltraParametros(String.Format(" CveEstatus = {0}", CveEstatus)).Rows.Count >= 1 Or CveEstatus = 0) Then
GvD.Columns(10).Visible = True 'No permitir la edicion
GvD.Columns(12).Visible = True 'No permitir la edicion
If ChkCotizacion.Checked AndAlso UsuarioActual.Empresa.Funcionalidad(565) = "1" Then
ChkCotizacion.Enabled = False
Else
@@ -1767,7 +1767,7 @@ Partial Class OC_OC
If EditarOC Then
CboE.Enabled = True
GvD.Columns(10).Visible = True 'Permitir la edicion
GvD.Columns(12).Visible = True 'Permitir la edicion
ChkCotizacion.Enabled = True
TxtDescrip.Enabled = True
TxtJustificacion.Enabled = True
@@ -2321,9 +2321,9 @@ Partial Class OC_OC
If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS
dr("IVA") = Math.Round(dr("IVAPorcentaje").ToString.ToDecimal * TotalGravado, 2)
dr("RetIVAPorcentaje") = RetIVA
dr("RetIVA") = Math.Round(RetIVA * Total, 2)
dr("RetIVA") = (RetIVA * Total).RoundSQL(6)
dr("RetISRPorcentaje") = RetISR
dr("RetISR") = Math.Round(RetISR * Total, 2)
dr("RetISR") = (RetISR * Total).RoundSQL(6)
dr("CveClasificacion") = CveClasificacion
dr("UM") = UM
dr("Clasificacion") = Clasificacion
@@ -3785,11 +3785,11 @@ Partial Class OC_OC
'If DtEstatusUsuarios.FiltraParametros(String.Format("CveSubProyecto = {0}", e.Row.DBCampo("CveSubProyecto"))).Rows.Count = 0 Then e.Row.FCImageButton("ImgEdit").Visible = False : e.Row.FCImageButton("ImgDelete").Visible = False
If TipoOC = "OC" AndAlso Not IsDBNull(e.Row.DBCampo("CveOrdenCompraPadre")) AndAlso IsNumeric(e.Row.DBCampo("CveOrdenCompraPadre")) Then
GvD.Columns(11).Visible = True
GvD.Columns(13).Visible = True
lblTipoPadreHijo.Visible = True
e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class='Texto' href='/OC/OC.aspx?OC={0}'>{1}</a>", e.Row.DBCampo("CveOrdenCompraPadre"), e.Row.DBCampo("FolioOrdenCompraPadre"))
ElseIf TipoOC = "REQ" AndAlso Not IsDBNull(e.Row.DBCampo("CveOrdenCompraHija")) AndAlso IsNumeric(e.Row.DBCampo("CveOrdenCompraHija")) Then
GvD.Columns(11).Visible = True
GvD.Columns(13).Visible = True
lblTipoPadreHijo.Visible = True
e.Row.FCLiteral("LtlLiga").Text = String.Format("<a class='Texto' href='/OC/OC.aspx?OC={0}'>{1}</a>", e.Row.DBCampo("CveOrdenCompraHija"), e.Row.DBCampo("FolioOrdenCompraHija"))
End If
@@ -3803,7 +3803,7 @@ Partial Class OC_OC
If ObjOC.DtResultados.Rows.Count = 1 Then
e.Row.FCLiteral("LtlCompra").Text = String.Format("<a class='Texto' target='_blank' href='../Compras/Compras.aspx?CveCompra={0}'>{1}</a>", ObjOC.DtResultados.FiltroPrimeroValor("CveCompra"), e.Row.DBCampo("FolioCompra"))
LblCompra.Visible = True
GvD.Columns(12).Visible = True
GvD.Columns(14).Visible = True
ElseIf ObjOC.DtResultados.Rows.Count > 1 Then
LblCompra.Visible = True
e.Row.FCLiteral("LtlCompra").Visible = False
@@ -3812,7 +3812,7 @@ Partial Class OC_OC
'e.Row.FCLinkButton("LnkCompra").CausesValidation = False
'e.Row.FCLinkButton("LnkCompra").OnClientClick = "return true;" 'return true;
e.Row.FCLinkButton("LnkCompra").CommandArgument = e.Row.DBCampo("CveOrdenCompraDetalle")
GvD.Columns(12).Visible = True
GvD.Columns(14).Visible = True
Else
e.Row.FCLiteral("LtlCompra").Text = ""
LblCompra.Visible = True
@@ -4183,9 +4183,9 @@ Partial Class OC_OC
If IEPSPSIVA > 0 Then TotalGravado = Total * (1 + IEPSPSIVA) 'grava para iva, el importe del IEPS
dr(0)("IVA") = Math.Round(dr(0)("IVAPorcentaje").ToString.ToDecimal * TotalGravado, 2)
dr(0)("RetIVA") = RetIVA * Total
dr(0)("RetIVA") = (RetIVA * Total).RoundSQL(6)
dr(0)("RetIVAPorcentaje") = RetIVA
dr(0)("RetISR") = RetISR * Total
dr(0)("RetISR") = (RetISR * Total).RoundSQL(6)
dr(0)("RetISRPorcentaje") = RetISR
@@ -4242,8 +4242,8 @@ Partial Class OC_OC
DdlProveedorSucursal.Enabled = False
DdlProveedorContacto.Enabled = False
GvD.Columns(10).Visible = False
GvD.Columns(11).Visible = True
GvD.Columns(12).Visible = False
GvD.Columns(13).Visible = True
If Not (BtnCancelarPrevio.Enabled And (CveEstatus <> CveEstatusFinalError OrElse CveEstatus <> CveEstatusFinalOK OrElse UsuarioActual.TienePermisoProceso(148).ToEntero > 0)) Then
BtnCancelarPrevio.Enabled = False
@@ -4407,11 +4407,11 @@ Partial Class OC_OC
'Seccion Grid
If VerificaPresupuesto Then
GvD.Width = 1750
GvD.Columns(13).Visible = True
GvD.Columns(14).Visible = True
GvD.Columns(15).Visible = True
GvD.Columns(16).Visible = True
GvD.Columns(17).Visible = True
GvD.Columns(18).Visible = True
GvD.Columns(19).Visible = True
'Panel General
UpPresupuestosAC.Visible = True
@@ -4438,11 +4438,11 @@ Partial Class OC_OC
Else
'GvD.Width = Width.ToEntero
GvD.Columns(13).Visible = False
GvD.Columns(14).Visible = False
GvD.Columns(15).Visible = False
GvD.Columns(16).Visible = False
GvD.Columns(17).Visible = False
GvD.Columns(18).Visible = False
GvD.Columns(19).Visible = False
UpPresupuestosAC.Visible = False
End If
@@ -6793,11 +6793,11 @@ Partial Class OC_OC
CboE_SelectedIndexChanged(CboE, EventArgs.Empty)
GvD.Columns(10).Visible = True 'Permitir la edicion
GvD.Columns(12).Visible = True 'Permitir la edicion
lblTipoPadreHijo.Visible = False
GvD.Columns(11).Visible = False
GvD.Columns(13).Visible = False
LblCompra.Visible = False
GvD.Columns(12).Visible = False
GvD.Columns(14).Visible = False
ChkCotizacion.Visible = True
ChkCotizacion.Enabled = True
@@ -6926,7 +6926,7 @@ Partial Class OC_OC
ScriptManager.RegisterStartupScript(Me, GetType(Page), "anioactual", script, True)
VerificaPresupuesto = False
RVSubProyecto.Enabled = If(RequiereSubProyecto = True, True, False)
GvD.Columns(11).Visible = False
GvD.Columns(13).Visible = False
CargaComboCFDI()
CargaMonedas()
'CargaClasificaciones()
@@ -8859,4 +8859,67 @@ Partial Class OC_OC
End If
End Sub
Protected Sub DdlProveedores_selectedindexchange(sender As Object, e As EventArgs)
ConfiguraRetencionesProveedor()
End Sub
Private Sub ConfiguraRetencionesProveedor()
'9 y 10
ThRetIVA.Visible = False
ThRetISR.Visible = False
TdRetIVA.Visible = False
TdRetISR.Visible = False
GvD.Columns(9).Visible = False
GvD.Columns(10).Visible = False
Dim MostrarColRetIVA As Boolean = False
Dim MostrarColRetISR As Boolean = False
Dim CveProvedorSelecionado As Integer = DdlProveedores.SelectedValue.ToEntero
If CveProvedorSelecionado > 0 Then
Dim ObjProveedor As New ClsCompProveedores()
If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProvedorSelecionado, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
If ObjProveedor.CveRegimenFiscal = 23 Then
If ObjProveedor.RetIVA > 0 Then
MostrarColRetIVA = True
End If
If ObjProveedor.RetISR > 0 Then
MostrarColRetISR = True
End If
End If
End If
ObjProveedor.Dispose()
End If
ThRetIVA.Visible = MostrarColRetIVA
ThRetISR.Visible = MostrarColRetISR
TdRetIVA.Visible = MostrarColRetIVA
TdRetISR.Visible = MostrarColRetISR
GvD.Columns(9).Visible = MostrarColRetIVA
GvD.Columns(10).Visible = MostrarColRetISR
UPPDetalle.Update()
End Sub
End Class