diff --git a/AF/AF.aspx b/AF/AF.aspx index 33c02cd41..93728a570 100644 --- a/AF/AF.aspx +++ b/AF/AF.aspx @@ -154,20 +154,22 @@ -
-
- -
+
-
-
- - -
-
-
- -
+
+ +
+ +
+
+ + +
+
+
+ +
+
@@ -195,7 +197,7 @@
-
+
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: + + + + + + + + + + +
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 1e85a60b2..c54392993 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6139,6 +6139,11 @@ Partial Class Ventas End If + If DdlTipoDocto.SelectedValue.Contiene("Ing", "Rem") Then + TrVentasMedicas4.Visible = True + TxtFolioRemision.Text = DbRowVenta("Alfa1").ToString + End If + End If