+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ |
+ |
+
|
- - Subproyecto {SubProyecto} - Clasificación {Clasificacion} se excede por {Diferencia.FormatoNumero}", TipoMensaje.MsgAdvertencia) - ' Exit Sub - ' End If - ' End If - 'End If - - 'Agarra el nuevo AF si se modifico o deja el pasado - 'CveActivoFijo = If(gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero > 0, gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero, HdnEditCveActivoFijo.Value.ToEntero) - 'Codigo = If(gvr.FCHiddenField("HdnCodigoAF").Value <> "-1", gvr.FCHiddenField("HdnCodigoAF").Value, HdnEditCodigo.Value) - - 'HdnEditCveActivoFijo.Value = "" - 'HdnEditCodigo.Value = "" - Dim dr As DataRow() = DtDetalle.Select("CveOrdenCompraDetalle = " & gvr.DataKey("CveOrdenCompraDetalle").ToString.ToEntero) dr(0)("Cantidad") = Cantidad - 'dr(0)("CveUnidadMedida") = CveUnidad - 'dr(0)("UM") = UM - 'dr(0)("CveClasificacion") = CveClasificacion - 'dr(0)("Clasificacion") = Clasificacion - - 'If isWithFamily() Then - ' dr(0)("CveSubFamilia") = CveClasificacion - ' dr(0)("SubFamilia") = Clasificacion - 'End If - - 'dr(0)("CvePS") = CvePS - 'dr(0)("PS") = PS dr(0)("Observacion") = Obs - - 'dr(0)("CveSubProyecto") = CveSubProyecto - 'dr(0)("SubProyecto") = SubProyecto - 'dr(0)("CveProyecto") = CveProyecto - 'dr(0)("Proyecto") = Proyecto dr(0)("Importe") = Importe dr(0)("Descuento") = Descuento dr(0)("Total") = Total @@ -9586,8 +9559,6 @@ Partial Class OC_OC dr(0)("IEPSPSIVA") = IEPSPSIVA * Total dr(0)("IEPSPSIVAPorcentaje") = IEPSPSIVA - 'If DdlIVA.SelectedValue.ToDecimal = 1 Then dr(0)("IVA") = 0 Else dr(0)("IVA") = IvaPS * Total - 'dr(0)("IVAPorcentaje") = If(IvaPS = -1, Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), 0) Dim TotalGravado As Decimal = Total 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) @@ -9597,13 +9568,6 @@ Partial Class OC_OC dr(0)("RetISR") = (RetISR * Total).RoundSQL(6) dr(0)("RetISRPorcentaje") = RetISR - - 'dr(0)("CveActivoFijo") = CveActivoFijo - 'dr(0)("CodigoAF") = Codigo - - 'dr(0)("CveCultivoCuadroDetalle") = CveCultivoCuadroDetalle - 'dr(0)("Cuadro") = Cuadro - 'si el tipodato viene de la BD, entonces sufrió una actualización If dr(0)("TipoDato").ToString.ToEntero = 2 Then dr(0)("TipoDato") = 1 DtDetalle.AcceptChanges() @@ -9614,8 +9578,9 @@ Partial Class OC_OC CargaDatosDetalles() + Return True - End Sub + End Function End Class diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 5fba840c0..ccb64cfc1 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -3407,11 +3407,13 @@ Partial Class OS_OrdenesServicios Dim ProcesoOK As Boolean = True Dim CveSubProyectoPedido As Integer = -1 Dim CveMoneda As Integer = -1 + Dim tCveVendedor As Integer = -1 If ObjVentas.GetVenta(CvePedido, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then Dim DbRowVenta As DataRow = ObjVentas.DtResultados.Copy().Rows(0) CveMoneda = DbRowVenta("CveMoneda").ToString.ToEntero CveSubProyectoPedido = DbRowVenta("CveSubProyecto").ToString().ToEntero() + tCveVendedor = DbRowVenta("CveVendedor").ToString.ToEntero End If Dim ObjFactura As Modelos.Factura = Modelos.Factura.CrearVentaNueva(UsuarioActual, CveSubProyectoPedido, CveCliente, CveMoneda, "Rem") @@ -3427,6 +3429,7 @@ Partial Class OS_OrdenesServicios ObjFactura.Paciente = TxtPacienteModal.Text.Trim ObjFactura.Episodio = TxtEpisodioModal.Text.Trim ObjFactura.Alfa1 = TxtFolioRemisionModal.Text.Trim + ObjFactura.CveVendedor = tCveVendedor Dim TmpDTMat As New DataTable TmpDTMat.Columns.Add("Consec", GetType(Integer)) diff --git a/Sistemas/PopUpCambiaUsuario.aspx.vb b/Sistemas/PopUpCambiaUsuario.aspx.vb index 316610be5..07253366e 100644 --- a/Sistemas/PopUpCambiaUsuario.aspx.vb +++ b/Sistemas/PopUpCambiaUsuario.aspx.vb @@ -25,59 +25,65 @@ Partial Class Sistemas_PopUpCambiaUsuario RegistraScript("window.close();") End If - Dim DtEmp As DataTable = GlobalDTEmpresas(CveEmpresa:=-1).Copy + Dim DtEmp As DataTable = Nothing '= GlobalDTEmpresas(CveEmpresa:=-1, tUsrActual:=UsuarioActual).Copy + Using ObjEmpresas As New ClsSisEmpresas() + If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then + DtEmp = ObjEmpresas.DtResultados + End If + End Using + Dim NombreEmp As String = UsuarioActual.Empresa.Empresa - ''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)" - ''If UsuarioActual.CveUsuario = 100 Then + ''condición para ocultar los nombres de las empresas y ponerles "mi empresa de venta (xxx)" + ''If UsuarioActual.CveUsuario = 100 Then - '' Dim customerRow() As Data.DataRow - '' customerRow = DtEmp.Select("") + '' Dim customerRow() As Data.DataRow + '' customerRow = DtEmp.Select("") - '' For Each drt As DataRow In customerRow - '' drt("Empresa") = "Mi Empresa de ventas (" & drt("CveEmpresa") & ")" - '' Next + '' For Each drt As DataRow In customerRow + '' drt("Empresa") = "Mi Empresa de ventas (" & drt("CveEmpresa") & ")" + '' Next - ''End If + ''End If - CType(Me.Master, BaseMasterPage).EsPopup = True - LblUsuario.Text = String.Format("{0} - {1}", UsuarioActual.Nombre, UsuarioActual.Empresa.Empresa) + CType(Me.Master, BaseMasterPage).EsPopup = True + LblUsuario.Text = String.Format("{0} - {1}", UsuarioActual.Nombre, UsuarioActual.Empresa.Empresa) - DdlEmpresa.DataSource = DtEmp '.FiltraParametros(If(UsuarioActual.CveRol = 1, "CvePlataforma IN (1,2)", $"CvePlataforma={UsuarioActual.Empresa.CvePlataforma}")) - Dim CveEmpresa As String = UsuarioActual.CveEmpresa.ToString() + DdlEmpresa.DataSource = DtEmp '.FiltraParametros(If(UsuarioActual.CveRol = 1, "CvePlataforma IN (1,2)", $"CvePlataforma={UsuarioActual.Empresa.CvePlataforma}")) + Dim CveEmpresa As String = UsuarioActual.CveEmpresa.ToString() - Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c) + Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c) - If splitedtext.Length > 0 Then - Select Case splitedtext(0).ToUpper() - Case "VSH" : CveEmpresa = "7" - Case "JAM" : CveEmpresa = "119" - Case "COMPUPROVEEDORES" : CveEmpresa = "72" - Case "DNDIFUSA" : CveEmpresa = "80" - Case "SOGO" : CveEmpresa = "8" - Case "BDH" : CveEmpresa = "140" - Case "ECONOLLANTAS" : CveEmpresa = "141" - Case "SERVEC" : CveEmpresa = "153" - Case "CITRUS" : CveEmpresa = "172" - Case "KINO" : CveEmpresa = "173" - End Select - End If - If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then - CveEmpresa = "158" - End If - DdlEmpresa.DataBind() - DdlEmpresa.SelectedValue = CveEmpresa + If splitedtext.Length > 0 Then + Select Case splitedtext(0).ToUpper() + Case "VSH" : CveEmpresa = "7" + Case "JAM" : CveEmpresa = "119" + Case "COMPUPROVEEDORES" : CveEmpresa = "72" + Case "DNDIFUSA" : CveEmpresa = "80" + Case "SOGO" : CveEmpresa = "8" + Case "BDH" : CveEmpresa = "140" + Case "ECONOLLANTAS" : CveEmpresa = "141" + Case "SERVEC" : CveEmpresa = "153" + Case "CITRUS" : CveEmpresa = "172" + Case "KINO" : CveEmpresa = "173" + End Select + End If + If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then + CveEmpresa = "158" + End If + DdlEmpresa.DataBind() + DdlEmpresa.SelectedValue = CveEmpresa - 'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero) - 'DdlRol.DataBind() - 'DdlRol.Items.Insert(0, New ListItem("Todos", "-1")) + 'DdlRol.DataSource = GlobalDTRoles(DdlEmpresa.SelectedValue.ToEntero) + 'DdlRol.DataBind() + 'DdlRol.Items.Insert(0, New ListItem("Todos", "-1")) - CargaUsuarios() - 'LblUsuario.Text = usuarioactual. + CargaUsuarios() + 'LblUsuario.Text = usuarioactual. - End If + End If End Sub diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index 64fbfe248..540b89c61 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -425,7 +425,7 @@ |