+
diff --git a/AF/AF.aspx.vb b/AF/AF.aspx.vb
index 562bcad8c..685d41d72 100644
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -2758,9 +2758,10 @@ Partial Class AF_AF
CaracClasif = ""
Dim ObjAFCaracteristicas As New ClsAF
- If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, CveEmpresaActual) Then
-
- Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue))
+ If ObjAFCaracteristicas.GetActivosFijosValores(CveActivoFijo, CveEmpresaActual) Then
+
+ Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, $"CveSubTipoActivoFijo = {DdlSubTipoActivoFijo.SelectedValue} OR (CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue} AND CveSubTipoActivoFijo IS NULL)", $"CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue}")
+ 'Dim Filtro As String = If(DdlSubTipoActivoFijo.SelectedValue.ToEntero > 0, String.Format("CveSubTipoActivoFijo = {0} OR (CveTipoActivoFijo = {1} AND CveSubTipoActivoFijo IS NULL)", DdlSubTipoActivoFijo.SelectedValue, DdlTipoActivoFijo.SelectedValue), String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue))
GvC.DataSource = ObjAFCaracteristicas.DtResultados.FiltraParametros(Filtro, "CaracteristicaClasificacion, Orden")
If ObjAFCaracteristicas.GetCaracteristicasOpcionesSubTipo(-1, DdlSubTipoActivoFijo.SelectedValue.ToEntero, CveEmpresaActual) Then
diff --git a/AF/CatClasificacionesCaracteristicas.aspx b/AF/CatClasificacionesCaracteristicas.aspx
index 29c63c4cb..dd23bcc36 100644
--- a/AF/CatClasificacionesCaracteristicas.aspx
+++ b/AF/CatClasificacionesCaracteristicas.aspx
@@ -238,7 +238,7 @@
|
-
+
<%--
--%>
@@ -298,9 +298,16 @@
+
-
+
+
+
+
+
+
@@ -391,10 +398,16 @@
-
+
-
-
+
+
+
+
+
diff --git a/AF/CatClasificacionesCaracteristicas.aspx.vb b/AF/CatClasificacionesCaracteristicas.aspx.vb
index 8f6b1e18f..03f6902ea 100644
--- a/AF/CatClasificacionesCaracteristicas.aspx.vb
+++ b/AF/CatClasificacionesCaracteristicas.aspx.vb
@@ -52,6 +52,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
'Carga Globals para DT
CargaTiposActivosFijos()
+ DdlTiposActivosFijosCA_SelectedIndexChanged(Nothing, Nothing)
''CargaCaracteristicasClasificaciones()
'CargaCaracteristicas()
End If
@@ -64,6 +65,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
DdlTiposActivosFijosCA.DataBind()
DdlTiposActivosFijosOpciones.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
DdlTiposActivosFijosOpciones.DataBind()
+ 'DdlTiposActivosFijosCA.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
#Region "CLASIFICACIONES"
@@ -261,7 +263,7 @@ Partial Class AF_CatClasificacionesCaracteristicas
End If
e.Row.Cells(0).Width = Unit.Pixel(95) 'TipoActivoFijo
- e.Row.Cells(1).Width = Unit.Pixel(100) 'SubTipoActivoFIjo
+ e.Row.Cells(1).Width = Unit.Pixel(140) 'SubTipoActivoFIjo
e.Row.Cells(2).Width = Unit.Pixel(110) 'Clasificacion
e.Row.Cells(3).Width = Unit.Pixel(120) 'Caracteristica
e.Row.Cells(4).Width = Unit.Pixel(70) 'Orden
@@ -271,8 +273,8 @@ Partial Class AF_CatClasificacionesCaracteristicas
e.Row.Cells(8).Width = Unit.Pixel(70) 'Estatus
e.Row.Cells(9).Width = Unit.Pixel(75) 'FechaIng
e.Row.Cells(10).Width = Unit.Pixel(75) 'Usuario
- e.Row.Cells(11).Width = Unit.Pixel(55) '
- e.Row.Cells(12).Width = Unit.Pixel(61) '
+ e.Row.Cells(11).Width = Unit.Pixel(70) '
+ e.Row.Cells(12).Width = Unit.Pixel(55) '
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
@@ -285,10 +287,18 @@ Partial Class AF_CatClasificacionesCaracteristicas
'End If
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
+
e.Row.FCDropDownList("DdlTiposActivosFijosCA").DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
e.Row.FCDropDownList("DdlTiposActivosFijosCA").DataBind()
+ e.Row.FCDropDownList("DdlTiposActivosFijosCA").Items.Insert(0, New ListItem("Todos", "-1"))
e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue = e.Row.DBCampo("CveTipoActivoFijo")
- e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} ", e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue))
+
+ If e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue.ToEntero > 0 Then
+ e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} ", e.Row.FCDropDownList("DdlTiposActivosFijosCA").SelectedValue))
+ Else
+ e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa)
+ End If
+
e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").DataBind()
e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").SelectedValue = e.Row.DBCampo("CveSubTipoActivoFijo")
e.Row.FCDropDownList("DdlSubTiposActivosFijosCA").Items.Insert(0, New ListItem("Todos", "-1"))
@@ -376,7 +386,12 @@ Partial Class AF_CatClasificacionesCaracteristicas
Dim ddl As DropDownList = gvr.FCDropDownList("DdlSubTiposActivosFijosCA")
ddl.Items.Clear()
- ddl.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} AND CveEmpresa = {1}", ddl1.SelectedValue.ToEntero, UsuarioActual.CveEmpresa))
+ If ddl1.SelectedValue.ToEntero > 0 Then
+ ddl.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0} AND CveEmpresa = {1}", ddl1.SelectedValue.ToEntero, UsuarioActual.CveEmpresa))
+ Else
+ ddl.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa)
+ End If
+
ddl.DataBind()
ddl.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index fe4168ba0..1b32c63d8 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -434,7 +434,7 @@ Partial Class Bancos_PopIEVentas
If Not UsuarioActual.Empresa.Funcionalidad(529) = "1" AndAlso dr("FolioFiscal").ToString() <> "" Then
- Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString(), UsuarioActual.Empresa.RFC, dr("RFCReceptor").ToString, dr("Total").ToString.ToDecimal.RoundAD(2))
+ Dim Valida As New ClsValidaCFDi(dr("FolioFiscal").ToString().Trim, UsuarioActual.Empresa.RFC, dr("RFCReceptor").ToString, dr("Total").ToString.ToDecimal.RoundAD(2))
If Valida.EsValida > 0 Then
If Valida.EsValida = 2 Then
diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index 9d3e41e1a..ebc97ad3a 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -393,7 +393,7 @@
-
+
diff --git a/OS/RepOSMedicas.aspx b/OS/RepOSMedicas.aspx
index a9960d2c7..2aca467b1 100644
--- a/OS/RepOSMedicas.aspx
+++ b/OS/RepOSMedicas.aspx
@@ -207,6 +207,7 @@
<%--14--%>
+
diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index c41799abf..5799a0492 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -614,15 +614,29 @@
Paciente:
|
-
+
|
Episodio:
|
-
+
|
+
+ |
+ Folio Remisión:
+ |
+
+
+ |
+
+
+ |
+
+
+ |
+