diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb index 3c0f31d6f..b19289490 100644 --- a/Acarreos/CatChoferes.aspx.vb +++ b/Acarreos/CatChoferes.aspx.vb @@ -1,24 +1,24 @@ -Imports Extensiones -Imports System.Data - -Partial Class Acarreos_CatChoferes - +Imports Extensiones +Imports System.Data + +Partial Class Acarreos_CatChoferes + Inherits ClsPaginas -#Region " PROPIEDADES" +#Region " PROPIEDADES" -#End Region +#End Region - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - CargaDatos() + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + CargaDatos() CargaDdlTransportista() Dim DT As DataTable = GlobalDTColonia(-1) CargaDdls() - End If + End If End Sub @@ -36,30 +36,30 @@ Partial Class Acarreos_CatChoferes DdlColonia.Items.Insert(0, New ListItem("Seleccione Una", "-1")) - End Sub - - Private Sub CargaDatos() - Dim ObjAcar As New ClsAcarreos() - If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1,-1) Then - GvChofer.DataSource = ObjAcar.DtResultados - GvChofer.DataBind() - End If - ObjAcar.Dispose() - UpDatos.Update() - End Sub - - - Private Sub CargaDdlTransportista() - Dim ObjAcar As New ClsAcarreos() - If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then - DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlTransportista.DataSource = ObjAcar.DtResultados - DdlTransportista.DataBind() - End If - ObjAcar.Dispose() - UpAddChofer.Update() - End Sub - + End Sub + + Private Sub CargaDatos() + Dim ObjAcar As New ClsAcarreos() + If ObjAcar.GetChofer(-1, UsuarioActual.CveEmpresa, -1, -1) Then + GvChofer.DataSource = ObjAcar.DtResultados + GvChofer.DataBind() + End If + ObjAcar.Dispose() + UpDatos.Update() + End Sub + + + Private Sub CargaDdlTransportista() + Dim ObjAcar As New ClsAcarreos() + If ObjAcar.GetTransportista(-1, UsuarioActual.CveEmpresa, 1) Then + DdlTransportista.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlTransportista.DataSource = ObjAcar.DtResultados + DdlTransportista.DataBind() + End If + ObjAcar.Dispose() + UpAddChofer.Update() + End Sub + Private Sub BtnAgregarChofer_Click(sender As Object, e As EventArgs) Handles BtnAgregarChofer.Click @@ -70,66 +70,66 @@ Partial Class Acarreos_CatChoferes End If - If DdlTransportista.SelectedValue = "-1" Then - Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia) - Else - - Dim ObjAcar As New ClsAcarreos - Dim Estatus = 0 + If DdlTransportista.SelectedValue = "-1" Then + Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia) + Else + + Dim ObjAcar As New ClsAcarreos + Dim Estatus = 0 If ChkEstatus.Checked Then Estatus = 1 - If HdnModalidad.Value = "A" Then - If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then - CargaDatos() - Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) - End If - ElseIf HdnModalidad.Value = "U" Then - If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then - CargaDatos() - Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) - End If - End If - - RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer")) - ObjAcar.Dispose() - UpDatos.Update() - End If - End Sub - + If HdnModalidad.Value = "A" Then + If ObjAcar.AddChofer(TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then + CargaDatos() + Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) + End If + ElseIf HdnModalidad.Value = "U" Then + If ObjAcar.UpdateChofer(HdnID.Value.ToEntero(), TxtChofer.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Estatus, DdlTransportista.SelectedValue, TxtIdentificacion.Text.Trim, TxtTelefono.Text.Trim, Licencia:=TxtLicencia.Text, RFC:=TxtRFC.Text.Trim, Domicilio:=TxtDomicilio.Text.Trim, NumeroExterior:=TxtNumExt.Text.Trim, NumeroInterior:=TxtNumInt.Text.Trim, Colonia:="", Ciudad:="", Estado:="", CP:=TxtCP.Text.Trim, NumRegidTribOperador:=TxtNumRegidTribOperador.Text.Trim, ResidenciaFiscalOperador:=DdlResidenciaFiscalOperador.SelectedValue, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=DdlColonia.SelectedValue.ToEntero) Then + CargaDatos() + Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) + End If + End If + + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddChofer")) + ObjAcar.Dispose() + UpDatos.Update() + End If + End Sub + Public Sub Edit_Click(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - HdnModalidad.Value = "U" - HdnID.Value = GvRow.DataKey("CveChofer") - UpDatos.Update() - BtnAgregarChofer.Text = "Actualizar" - myModalLabel.InnerText = "Actualizar Chofer" - - TxtChofer.Text = GvRow.DataKey("Chofer") + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + HdnModalidad.Value = "U" + HdnID.Value = GvRow.DataKey("CveChofer") + UpDatos.Update() + BtnAgregarChofer.Text = "Actualizar" + myModalLabel.InnerText = "Actualizar Chofer" + + TxtChofer.Text = GvRow.DataKey("Chofer") TxtIdentificacion.Text = GvRow.DataKey("Identificacion") - TxtTelefono.Text = GvRow.DataKey("Telefono") - TxtRFC.Text = GvRow.DataKey("RFC") - + TxtTelefono.Text = GvRow.DataKey("Telefono") + TxtRFC.Text = GvRow.DataKey("RFC") + TxtDomicilio.Text = GvRow.DataKey("Domicilio") TxtNumInt.Text = GvRow.DataKey("NumeroInterior") TxtNumExt.Text = GvRow.DataKey("NumeroExterior") 'TxtColonia.Text = GvRow.DataKey("Colonia") - 'TxtCiudad.Text = GvRow.DataKey("Ciudad") - 'TxtEstado.Text = GvRow.DataKey("Estado") - TxtCP.Text = GvRow.DataKey("CP") + 'TxtCiudad.Text = GvRow.DataKey("Ciudad") + 'TxtEstado.Text = GvRow.DataKey("Estado") + TxtCP.Text = GvRow.DataKey("CP") TxtLicencia.Text = GvRow.DataKey("Licencia") TxtNumRegidTribOperador.Text = GvRow.DataKey("NumRegidTribOperador") DdlResidenciaFiscalOperador.SelectedValueExist("-1") - DdlResidenciaFiscalOperador.SelectedValueExist(GvRow.DataKey("ResidenciaFiscalOperador")) - + DdlResidenciaFiscalOperador.SelectedValueExist(GvRow.DataKey("ResidenciaFiscalOperador")) + DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista")) - divEstatus.Visible = True - ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) - - + divEstatus.Visible = True + ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) + + DdlEstado.SelectedValueExist(GvRow.DataKey("CveEstado")) @@ -168,34 +168,34 @@ Partial Class Acarreos_CatChoferes - UpAddChofer.Update() - + UpAddChofer.Update() + RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChofer")) - End Sub - - Public Sub Agregar() - HdnModalidad.Value = "A" - UpDatos.Update() - BtnAgregarChofer.Text = "Agregar" - myModalLabel.InnerText = "Agregar Chofer" - TxtChofer.Text = "" - TxtIdentificacion.Text = "" - TxtDomicilio.Text = "" - TxtTelefono.Text = "" - 'TxtCiudad.Text = "" - TxtLicencia.Text = "" - - - DdlTransportista.SelectedValueExist(-1) - TxtRFC.Text = "" - TxtNumInt.Text = "" - TxtNumExt.Text = "" - 'TxtEstado.Text = "" - TxtCP.Text = "" - 'TxtColonia.Text = "" - - TxtNumRegidTribOperador.Text = "" + End Sub + + Public Sub Agregar() + HdnModalidad.Value = "A" + UpDatos.Update() + BtnAgregarChofer.Text = "Agregar" + myModalLabel.InnerText = "Agregar Chofer" + TxtChofer.Text = "" + TxtIdentificacion.Text = "" + TxtDomicilio.Text = "" + TxtTelefono.Text = "" + 'TxtCiudad.Text = "" + TxtLicencia.Text = "" + + + DdlTransportista.SelectedValueExist(-1) + TxtRFC.Text = "" + TxtNumInt.Text = "" + TxtNumExt.Text = "" + 'TxtEstado.Text = "" + TxtCP.Text = "" + 'TxtColonia.Text = "" + + TxtNumRegidTribOperador.Text = "" DdlResidenciaFiscalOperador.SelectedValueExist("-1") @@ -206,40 +206,40 @@ Partial Class Acarreos_CatChoferes DdlColonia.SelectedValueExist(-1) - ChkEstatus.Checked = True - divEstatus.Visible = False - UpAddChofer.Update() - RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChofer")) - End Sub - - Public Sub Delete_Click(sender As Object, e As EventArgs) - Dim ObjAcar As New ClsAcarreos() - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - HdnID.Value = GvRow.DataKey("CveChofer") - UpDatos.Update() - If ObjAcar.RemoveChofer(HdnID.Value) Then - CargaDatos() - Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) - End If - ObjAcar.Dispose() - UpDatos.Update() - End Sub - - Private Sub GvChofer_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvChofer.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - If e.Row.DBCampo("Estatus") = True Then - e.Row.FCLabel("LblEstatus").Text = "Activo" - e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green - - Else - e.Row.FCLabel("LblEstatus").Text = "Inactivo" - e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red - End If - End If - End Sub - - Private Sub LnkChofer_Click(sender As Object, e As EventArgs) Handles LnkChofer.Click - Agregar() + ChkEstatus.Checked = True + divEstatus.Visible = False + UpAddChofer.Update() + RegistraScript(String.Format("$('#{0}').modal('show');", "divAddChofer")) + End Sub + + Public Sub Delete_Click(sender As Object, e As EventArgs) + Dim ObjAcar As New ClsAcarreos() + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + HdnID.Value = GvRow.DataKey("CveChofer") + UpDatos.Update() + If ObjAcar.RemoveChofer(HdnID.Value) Then + CargaDatos() + Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) + End If + ObjAcar.Dispose() + UpDatos.Update() + End Sub + + Private Sub GvChofer_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvChofer.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DBCampo("Estatus") = True Then + e.Row.FCLabel("LblEstatus").Text = "Activo" + e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green + + Else + e.Row.FCLabel("LblEstatus").Text = "Inactivo" + e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red + End If + End If + End Sub + + Private Sub LnkChofer_Click(sender As Object, e As EventArgs) Handles LnkChofer.Click + Agregar() End Sub Protected Sub LnkValidar_Click(sender As Object, e As EventArgs) @@ -331,4 +331,4 @@ Partial Class Acarreos_CatChoferes Protected Sub DdlColonia_SelectedIndexChanged(sender As Object, e As EventArgs) validaCodigoPostal() End Sub -End Class +End Class diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index a88b9493b..cbfc816d9 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -848,7 +848,7 @@ Partial Class Bancos_PolizaCheque Next If Not ValidaConcepto30 Then - Alert("El importe no coicide con el concepto de bancos.", TipoMensaje.MsgAdvertencia) + Alert("El importe no coincide con el concepto de bancos.", TipoMensaje.MsgAdvertencia) Exit Sub End If diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 91629a2c1..2bb063817 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -933,6 +933,13 @@ Partial Class PopUpVerFactura Dim NumPermiso As String = "" Dim Aseguradora As String = "" Dim NumPolizaSeguro As String = "" + Dim NombreAseguradoraMedioAmbiente As String = "" + Dim NumPolizaSeguroMedioAmbiente As String = "" + Dim NombreAseguradoraCarga As String = "" + Dim NumPolizaSeguroCarga As String = "" + + + Dim PlacaVM As String = "" Dim AnioModeloVM As String = "" 'TIMBRADO @@ -1064,6 +1071,14 @@ Partial Class PopUpVerFactura NumPermiso = ValorXML(nodeAutotransporteFederal, "NumPermisoSCT", "") Aseguradora = ValorXML(nodeAutotransporteFederal, "NombreAseg", "") NumPolizaSeguro = ValorXML(nodeAutotransporteFederal, "NumPolizaSeguro", "") + + 'Por Definir de donde sale + 'NombreAseguradoraMedioAmbiente = ValorXML(nodeAutotransporteFederal, "", "") + 'NumPolizaSeguroMedioAmbiente = ValorXML(nodeAutotransporteFederal, "", "") + 'NombreAseguradoraCarga = ValorXML(nodeAutotransporteFederal, "", "") + 'NumPolizaSeguroCarga = ValorXML(nodeAutotransporteFederal, "", "") + + End If Dim nodeIdentificacionVehicular As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:IdentificacionVehicular", "cartaporte"), namespaces) @@ -1181,8 +1196,16 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("TransporteInternacional", TransporteInternacional)) params.Add(New ReportParameter("PermisoSTCC", PermisoSTCC)) params.Add(New ReportParameter("NumPermiso", NumPermiso)) + params.Add(New ReportParameter("Aseguradora", Aseguradora)) params.Add(New ReportParameter("NumPoliza", NumPolizaSeguro)) + + params.Add(New ReportParameter("NombreAseguradoraMedioAmbiente", NombreAseguradoraMedioAmbiente)) + params.Add(New ReportParameter("NumPolizaSeguroMedioAmbiente", NumPolizaSeguroMedioAmbiente)) + + params.Add(New ReportParameter("NombreAseguradoraCarga", NombreAseguradoraCarga)) + params.Add(New ReportParameter("NumPolizaSeguroCarga", NumPolizaSeguroCarga)) + params.Add(New ReportParameter("PlacaVM", PlacaVM)) params.Add(New ReportParameter("AnioVM", AnioModeloVM)) 'TIMBRADO diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc index 431133e97..c64ce9ebd 100644 --- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc +++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc @@ -382,7 +382,7 @@ true true DataSet3 - 5.56865cm + 6.39415cm 0.38395cm 1.12062cm 19.11271cm @@ -521,7 +521,7 @@ Textbox3 - 4.97857cm + 5.80407cm 0.1841in 0.5cm 7.52776in @@ -1001,7 +1001,7 @@ true true DataSet2 - 7.3763cm + 8.2018cm 0.42363cm 1.12062cm 19.10097cm @@ -1033,7 +1033,7 @@ Textbox3 - 6.78622cm + 7.61172cm 0.19973in 0.5cm 7.52776in @@ -1346,7 +1346,7 @@ true true DataSet4 - 9.18605cm + 10.01155cm 0.42363cm 1.12062cm 19.10097cm @@ -1378,7 +1378,7 @@ Textbox3 - 8.59597cm + 9.42147cm 0.19972in 0.5cm 7.52776in @@ -1482,7 +1482,7 @@ Textbox45 - 5.82267in + 6.14767in 0.41187cm 3.03416cm 15.44579cm @@ -1501,7 +1501,7 @@ External =Parameters!QR.Value FitProportional - 5.71082in + 6.03582in 6.18415in 1.2939in 1.53682in @@ -1636,7 +1636,7 @@ Textbox2 1.13111in 0.38395cm - 0.76862in + 1.08451in 3.73231in 9 @@ -1707,7 +1707,7 @@ =Parameters!Aseguradora.Value @@ -1722,7 +1722,7 @@ Número de Póliza: @@ -1730,7 +1730,99 @@ =Parameters!NumPoliza.Value + + + + + + + + Aseguradora Medio Ambiente: + + + + =Parameters!NombreAseguradoraMedioAmbiente.Value + + + + + + + + + Número de Póliza: + + + + =Parameters!NumPolizaSeguroMedioAmbiente.Value + + + + + + + + + Aseguradora Carga: + + + + =Parameters!NombreAseguradoraCarga.Value + + + + + + + + + Número de Póliza: + + + + =Parameters!NumPolizaSeguroCarga.Value + @@ -1745,7 +1837,7 @@ Placa: @@ -1753,7 +1845,7 @@ =Parameters!PlacaVM.Value @@ -1768,7 +1860,7 @@ Año: @@ -1776,7 +1868,7 @@ =Parameters!AnioVM.Value @@ -1784,7 +1876,7 @@ @@ -1797,7 +1889,7 @@ Textbox2 1.13111in 9.86403cm - 0.76862in + 1.08451in 3.78138in 11 - 7.02116in + 7.34222in