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