+
+ SubProyecto
+
+
F.I.:
diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb
index e04b47980..95c0d7ad0 100644
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -61,6 +61,9 @@ Partial Class Bancos_RepCortes
txtFechaVI.Text = Now.ToShortDateString
txtFechaVF.Text = Now.ToShortDateString
Me.Form.DefaultButton = BtnConsultar.UniqueID
+ DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+ DdlSubProyectos.DataBind()
+ DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
End If
End Sub
@@ -70,7 +73,7 @@ Partial Class Bancos_RepCortes
Dim ObjPuntoVenta As New ClsPuntoVenta
Dim FechaI As Date = If(txtFechaVI.Text <> "", txtFechaVI.Text.ToDate, MinFecha)
Dim FechaF As Date = If(txtFechaVF.Text <> "", txtFechaVF.Text.ToDate, MaxFecha)
- If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaI, FechaF) Then
+ If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaI, FechaF, DdlSubProyectos.SelectedValue.ToEntero) Then
GvDatos.DataSource = ObjPuntoVenta.DtResultados
GvDatos.DataBind()
UPDatos.Update()
@@ -82,7 +85,9 @@ Partial Class Bancos_RepCortes
#Region "G V - D A T O S "
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
-
+ If e.Row.DBCampo("CveCorte").ToString = "" Then
+ e.Row.CssClass = "SubTotales2"
+ End If
End If
End Sub
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6586f85fa..5fac2308b 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2235,25 +2235,19 @@ Partial Class Compras_Compras
'ASIGNA VALORES ORIGINALES PARA GUARDAR
AsignaValoresOriginales(SubtotalTemp, Subtotal2Temp, IVATemp, RetIVATemp, RetISRTemp, Total)
+ If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
-
- If RetencionIVA = 0 And IVAOriginal > 0 Then
-
- For Each dRow As DataRow In TmpDT.Rows
-
- If dRow("CveTipoPS").ToString.ToEntero = 1 Then
- tdIVA6.Visible = True
- Exit For
- End If
-
-
- Next
+ If RetencionIVA = 0 And IVAOriginal > 0 Then
+ For Each dRow As DataRow In TmpDT.Rows
+ If dRow("CveTipoPS").ToString.ToEntero = 1 Then
+ tdIVA6.Visible = True
+ Exit For
+ End If
+ Next
+ End If
End If
-
-
-
End Sub
'''
@@ -19232,12 +19226,6 @@ Partial Class Compras_Compras
TotalOriginal = TxtTotal.Text.ToDecimal
- 'For Each dRow As DataRow In TmpDT.Rows
- ' If dRow("CveTipoPS").ToString.ToEntero = 1 Then
- ' tdIVA6.Visible = True
- ' Exit For
- ' End If
- 'Next
For Each dRow As DataRow In TmpDT.Rows
diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx
index e11493f81..e95b81ae4 100644
--- a/Inventarios/EntradasSalidas.aspx
+++ b/Inventarios/EntradasSalidas.aspx
@@ -277,9 +277,7 @@
Observaciones:
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index 01639bdf5..e62d3985f 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -6277,6 +6277,7 @@