-
-
+ <%----%>
+
+
+ Seleccione una
+ MEX
+ USA
+ CAN
+
+
+
+
diff --git a/Acarreos/CatChoferes.aspx.vb b/Acarreos/CatChoferes.aspx.vb
index a4eaa2db3..e8f855dbd 100644
--- a/Acarreos/CatChoferes.aspx.vb
+++ b/Acarreos/CatChoferes.aspx.vb
@@ -70,6 +70,13 @@ Partial Class Acarreos_CatChoferes
End If
+
+ If TxtRFC.Text.Length > 0 And TxtNumRegidTribOperador.Text.Trim.Length > 0 Then
+ Alert("Se debe de proporcionar RFC O Numero RegidTribOperador elimine uno", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+
If DdlTransportista.SelectedValue = "-1" Then
Alert("Tiene que seleccionar un transportista.", TipoMensaje.MsgAdvertencia)
Else
@@ -79,12 +86,12 @@ Partial Class Acarreos_CatChoferes
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:=TxtResidenciaFiscalOperador.Text.Trim, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=CveColonia) 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:=CveColonia) 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:=TxtResidenciaFiscalOperador.Text.Trim, CveEstado:=DdlEstado.SelectedValue.ToEntero, CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero, CveLocalidad:=DdlLocalidad.SelectedValue.ToEntero, CveColonia:=CveColonia) 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:=CveColonia) Then
CargaDatos()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -120,7 +127,9 @@ Partial Class Acarreos_CatChoferes
TxtLicencia.Text = GvRow.DataKey("Licencia")
TxtNumRegidTribOperador.Text = GvRow.DataKey("NumRegidTribOperador")
- TxtResidenciaFiscalOperador.Text = GvRow.DataKey("ResidenciaFiscalOperador")
+
+ DdlResidenciaFiscalOperador.SelectedValueExist("-1")
+ DdlResidenciaFiscalOperador.SelectedValueExist(GvRow.DataKey("ResidenciaFiscalOperador"))
DdlTransportista.SelectedValueExist(GvRow.DataKey("CveTransportista"))
@@ -193,7 +202,7 @@ Partial Class Acarreos_CatChoferes
'TxtColonia.Text = ""
TxtNumRegidTribOperador.Text = ""
- TxtResidenciaFiscalOperador.Text = ""
+ DdlResidenciaFiscalOperador.SelectedValueExist("-1")
DdlColonias.txtText.Value = "Selecione Una"
DdlColonias.txtValue.Value = "-1"
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index 51f446d2f..939808c43 100644
--- a/App_Code/ClsGenerales.vb
+++ b/App_Code/ClsGenerales.vb
@@ -20,6 +20,7 @@ Public Class ClsGenerales
'REGISTRAR CONEXIONES ABIERTAS
Private CveConexion As Integer = 0
Private EsTransaccionCompartida As Boolean = False
+
#End Region
#Region "Propiedades"
@@ -49,6 +50,10 @@ Public Class ClsGenerales
DtResultados = Data
End Get
End Property
+
+ Public Property FolioInsertado As Integer
+
+ Public Property SerieInsertada As String
#End Region
Public Function IniciaTransacSQL() As SqlTransaction
@@ -3606,8 +3611,8 @@ Public Class ClsGenerales
#Region "GRAL TIMBRES"
- Public Function GralTimbreAdd(TipoDocto As Integer, Serie As String, Folio As Integer, FolioFiscal As String, Fecha As Date, CveVenta As Integer, CveMovimientoAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer,
- Estatus As Integer, CvePAC As Integer, AplicaCP As Boolean, CveSubProyectoOrigen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer) As Integer
+ Public Function AddGralTimbre(TipoDocto As String, Serie As String, Folio As Integer, FolioFiscal As String, Fecha As Date, CvePaqueteriaGuia As Integer, CveMovimientoAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+ Estatus As Integer, CvePAC As Integer, AplicaCP As Boolean, CveSubProyectoOrigen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Gral_TimbreAdd")
@@ -3618,7 +3623,7 @@ Public Class ClsGenerales
.Add("@Folio", SqlDbType.Int).Value = Folio
.Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal
.Add("@Fecha", SqlDbType.Date).Value = Fecha
- .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+ .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
.Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
@@ -3628,19 +3633,31 @@ Public Class ClsGenerales
.Add("@CveSubProyectoOrigen", SqlDbType.Int).Value = CveSubProyectoOrigen
.Add("@CveDireccionOrigen", SqlDbType.Int).Value = CveDireccionOrigen
.Add("@CveDireccionDestino", SqlDbType.Int).Value = CveDireccionDestino
- .Add("@CveTimbre", SqlDbType.Int).Direction = ParameterDirection.Output
+ .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
+ .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
+ .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega
+
+ .Add("@CveTimbre", SqlDbType.Int).Direction = ParameterDirection.Output
+ .Add("@FolioInsertado", SqlDbType.Int).Direction = ParameterDirection.Output
+ .Add("@SerieInsertada", SqlDbType.VarChar, 5).Direction = ParameterDirection.Output
+
End With
Try
- SqlAdapter.Fill(Data)
- Retorno = SqlAdapter.SelectCommand.Parameters("@CveTimbre").Value.ToString.ToEntero
+ SqlAdapter.Fill(Data)
+
+ FolioInsertado = SqlAdapter.SelectCommand.Parameters("@FolioInsertado").Value.ToString.ToEntero
+ SerieInsertada = SqlAdapter.SelectCommand.Parameters("@SerieInsertada").Value.ToString
+
+ Retorno = SqlAdapter.SelectCommand.Parameters("@CveTimbre").Value.ToString.ToEntero
+
Catch ex As Exception
OnError("Ocurrió un error al agregar el timbre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno
End Function
- Public Function GralTimbreGet(CveTimbre As Integer, TipoDocto As String, Serie As String, Folio As Integer, FechaI As Date, FechaF As Date, Estatus As Integer, CveEmpresa As Integer, CveVenta As Integer) As Boolean
+ Public Function GetGralTimbre(CveTimbre As Integer, TipoDocto As String, Serie As String, Folio As Integer, FechaI As Date, FechaF As Date, Estatus As Integer, CveEmpresa As Integer, CveMovimiento As Integer, CvePaqueteriaGuia As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_TimbreGet")
@@ -3651,11 +3668,10 @@ Public Class ClsGenerales
.Add("@Folio", SqlDbType.Int).Value = Folio
.Add("@FechaI", SqlDbType.Date).Value = FechaI
.Add("@FechaF", SqlDbType.Date).Value = FechaF
-
.Add("@Estatus", SqlDbType.Int).Value = Estatus
- .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-
- .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
+ .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
@@ -3671,8 +3687,9 @@ Public Class ClsGenerales
Return Retorno
End Function
- Public Function GralTimbreUpdate(CveTimbre As Integer, TipoDocto As Integer, Serie As String, Folio As Integer, FolioFiscal As String, Fecha As Date, CveVenta As Integer, CveMovimientoAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer,
- Estatus As Integer, CvePAC As Integer, CvePACCancelacion As Integer, FechaCancelacion As Date, AplicaCP As Boolean, CveSubProyectoOrigen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer) As Boolean
+ Public Function UpdateGralTimbre(CveTimbre As Integer, TipoDocto As String, Serie As String, Folio As Integer, FolioFiscal As String, Fecha As Date, CvePaqueteriaGuia As Integer, CveMovimientoAlmacen As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+ Estatus As Integer, CvePAC As Integer, CvePACCancelacion As Integer, FechaCancelacion As Date, AplicaCP As Boolean, CveSubProyectoOrigen As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer,
+ CveChofer As Integer, CveCamion As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_TimbreUpdate")
@@ -3684,7 +3701,7 @@ Public Class ClsGenerales
.Add("@Folio", SqlDbType.Int).Value = Folio
.Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal
.Add("@Fecha", SqlDbType.Date).Value = Fecha
- .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+ .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
.Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen
.Add("@Estatus", SqlDbType.Int).Value = Estatus
.Add("@CvePAC", SqlDbType.Int).Value = CvePAC
@@ -3695,7 +3712,9 @@ Public Class ClsGenerales
.Add("@CveDireccionOrigen", SqlDbType.Int).Value = CveDireccionOrigen
.Add("@CveDireccionDestino", SqlDbType.Int).Value = CveDireccionDestino
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
- .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
+ .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
End With
@@ -3710,7 +3729,7 @@ Public Class ClsGenerales
- Public Function GralTimbreRemove(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
+ Public Function RemoveGralTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_TimbreRemove")
@@ -3728,6 +3747,28 @@ Public Class ClsGenerales
Return Retorno
End Function
+ Public Function GetGralMovimientosDetalleTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
+
+
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Gral_MovimientosDetalleTimbreGet")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener los movimientos del timbre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+
+ End Function
+
#End Region
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 668fa1c7d..95e7c7ae0 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -6844,7 +6844,8 @@ Public Class ClsPaginas
Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
CBB.GenerarCBB(UsuarioActual.Empresa.RFC, RFCReceptor, Vta.Total.ToString.ToDecimal, Vta.FolioFiscal, RutaCBB)
End If
- ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio)
+ 'ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme.Replace("https", "http"), Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio)
+
'Dim CadenaOriginals As String = "||1.0|" + Vta.FolioFiscal + "|" + Vta.FechaCertificacion.ToString("yyyy-MM-dd") + "T" + Vta.FechaCertificacion.ToString("HH:mm:ss") + "|" + Vta.SelloCFDi + "|" + Vta.NoSerieCertificado + "||"
Dim CadenaOriginals As String = String.Format("||{0}|{1}|{2}T{3}|{4}|{5}||", If(Vta.Version = "3.3", "1.1", "1.0"), Vta.FolioFiscal, Vta.FechaCertificacion.ToString("yyyy-MM-dd"), Vta.FechaCertificacion.ToString("HH:mm:ss"), Vta.SelloCFDi, Vta.NoSerieCertificado)
@@ -6852,6 +6853,11 @@ Public Class ClsPaginas
Dim RutaFormato As String = ""
Dim RutaFormatoDefault As String = ""
+
+ ImgCBB = $"file://{ImagenCBB.FullName}"
+
+
+
'AQUI EMPIEZA LOS PARAMETROS
Try
Dim params As New List(Of ReportParameter)
@@ -6903,6 +6909,8 @@ Public Class ClsPaginas
params.Add(New ReportParameter("CadenaSAT", CadenaOriginals))
params.Add(New ReportParameter("SelloSAT", Vta.SelloSAT))
+ 'Net.ServicePointManager.SecurityProtocol = Net.ServicePointManager.SecurityProtocol Or Net.SecurityProtocolType.Tls Or Net.SecurityProtocolType.Tls11 Or Net.SecurityProtocolType.Tls12
+
params.Add(New ReportParameter("QR", ImgCBB))
params.Add(New ReportParameter("Moneda", Vta.Moneda))
params.Add(New ReportParameter("TipoCambio", Vta.TipoCambio.ToString))
diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb
index a78a05d7c..452c26b47 100644
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -125,6 +125,68 @@ Public Class ClsRH
End Sub
#End Region
+ Public Function AgroOrigenGet(CveEmpresa As Int32, CveOrigen As Integer, Estatus As Integer, CveTipoNomina As Integer, CveSubProyecto As Integer, GPO As Integer) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_Agro_OrigenGet", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveOrigen", SqlDbType.Int).Value = CveOrigen
+ .Add("@Estatus", SqlDbType.Int).Value = Estatus
+ .Add("@CveTipoNomina", SqlDbType.Int).Value = CveTipoNomina
+ .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+ .Add("@GPO", SqlDbType.Int).Value = GPO
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch Ex1 As SqlException
+
+ Me.OnError("Ocurrió un error al obtener los agro departamentos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+ Return retorno
+ End Function
+ Public Function AgroDepartamentosGet(CveEmpresa As Int32, CveDepartamento As Integer, CveTipoTrabajador As Integer) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_Agro_DepartamentosGet", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
+ .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch Ex1 As SqlException
+
+ Me.OnError("Ocurrió un error al obtener los agro departamentos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+ Return retorno
+ End Function
+
+ Public Function AgroDepartamentoPersonalUp(CveEmpresa As Int32, CveDepartamento As Integer, CvePersonal As Integer, CharolaForanea As Integer) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_Agro_DepartamentoPersonalUP", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@CveDepartamento", SqlDbType.Int).Value = CveDepartamento
+ .Add("@CharolaForanea", SqlDbType.Int).Value = CharolaForanea
+ .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch Ex1 As SqlException
+
+ Me.OnError("Ocurrió un error al obtener los agro departamentos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener los agro departamentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+ Return retorno
+ End Function
#Region "DiasFestivos"
Public Function DiasFestivosGet(CveEmpresa As Int32) As Boolean
@@ -138,9 +200,9 @@ Public Class ClsRH
retorno = True
Catch Ex1 As SqlException
- Me.OnError("Ocurrió un error al obtener los días festivos", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Me.OnError("Ocurrió un error al obtener los días festivos.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
Catch ex As Exception
- OnError("Ocurrió un error al Guardar el Tipo de A-I", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ OnError("Ocurrió un error al obtener los días festivos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return retorno
End Function
diff --git a/Bin/GoCfdi.dll b/Bin/GoCfdi.dll
index 0fb132ef3..0e4145017 100644
Binary files a/Bin/GoCfdi.dll and b/Bin/GoCfdi.dll differ
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 5d3ac2f06..398a7575e 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -379,8 +379,8 @@ Partial Class PopUpVerFactura
End If
If UrlParametros("OP").ToString = "CARPOTIMBRE" Then
- If UrlParametros("CVEMOV") IsNot Nothing AndAlso UrlParametros("CVEMOV").ToString.ToEntero > 0 Then
- ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVEMOV").ToString.ToEntero)
+ If UrlParametros("CVETIMBRE") IsNot Nothing AndAlso UrlParametros("CVETIMBRE").ToString.ToEntero > 0 Then
+ ImprimeFormatoCartaPorteTimbrado(UrlParametros("CVETIMBRE").ToString.ToEntero)
End If
End If
@@ -897,8 +897,8 @@ Partial Class PopUpVerFactura
End If
End Function
- Private Sub ImprimeFormatoCartaPorteTimbrado(CveMovimiento As Integer)
- If CveMovimiento > 0 Then
+ Private Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer)
+ If CveTimbre > 0 Then
'01 Autotransporte Federal
'02 Transporte Marítimo
@@ -944,13 +944,14 @@ Partial Class PopUpVerFactura
Dim SelloCFDi As String = ""
Dim SelloSAT As String = ""
- Dim ObjInv As New ClsInventarios
- If ObjInv.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) Then
+ Dim ObjInv As New ClsGenerales
+
+ If ObjInv.GetGralTimbre(CveTimbre, "-1", "-1", -1, MinFecha, MaxFecha, -1, UsuarioActual.CveEmpresa, -1, -1) Then
If ObjInv.DtResultados.Rows.Count > 0 Then
Dim Dr As DataRow = ObjInv.DtResultados.Rows(0)
If Dr IsNot Nothing Then
- SerieFolio = Dr("Folio").ToString
- Telefono = Dr("Telefono1").ToString
+ SerieFolio = Dr("SerieFolio").ToString
+ Telefono = Dr("ChrTelefono").ToString
End If
End If
End If
@@ -982,7 +983,7 @@ Partial Class PopUpVerFactura
DtOperadores.Columns.Add(New DataColumn("NombreOperador", GetType(String)))
Dim XMLDoc As New XmlDocument
- Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", "Tra", String.Format("Tra-{0}", SerieFolio), "xml")
+ Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, "XML", "Tra", String.Format("{0}", SerieFolio), "xml")
Dim Archivo As New System.IO.FileInfo(Path)
If Archivo.Exists Then
@@ -1001,7 +1002,7 @@ Partial Class PopUpVerFactura
If XMLDoc IsNot Nothing AndAlso Archivo.Exists Then
- Dim RutaCBB As String = String.Format("{0}\CBB\Tra-{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
+ Dim RutaCBB As String = String.Format("{0}\CBB\{1}.jpg", UsuarioActual.Empresa.Ruta, SerieFolio)
Dim ImagenCBB As New System.IO.FileInfo(RutaCBB)
Dim nodo As XmlNode = XMLDoc.DocumentElement
@@ -1150,7 +1151,7 @@ Partial Class PopUpVerFactura
CBB.GenerarCBB(UsuarioActual.Empresa.RFC, ClienteRFC, Total, FolioFiscal, RutaCBB)
End If
- ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/Tra-{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, SerieFolio)
+ ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, SerieFolio)
End If
If DtConceptos.Rows.Count > 0 Then
diff --git a/Empresas/1/Formatos/Traspaso.rdlc b/Empresas/1/Formatos/Traspaso.rdlc
index 6b8926333..189c9fe92 100644
--- a/Empresas/1/Formatos/Traspaso.rdlc
+++ b/Empresas/1/Formatos/Traspaso.rdlc
@@ -13,8 +13,7 @@
"Este documento es una representación impresa de un CFDI"
@@ -28,16 +27,14 @@
Folio fiscal: =Parameters!FolioFiscal.Value
@@ -49,32 +46,28 @@
Fecha y hora de certificación: =Parameters!FechaCertificacion.Value Número de serie del Certificado de Sello Digital: =Parameters!CertificadoContribuyente.Value
@@ -86,16 +79,14 @@
Sello digital del CFDI: Número de serie del Certificado de Sello Digital del SAT: =Parameters!SerieCertificadoSAT.Value
@@ -107,8 +98,7 @@
=Parameters!SelloCFDI.Value
@@ -120,8 +110,7 @@
@@ -133,8 +122,7 @@
Cadena original del complemento de certificación digital del SAT:
@@ -146,8 +134,7 @@
=Parameters!CadenaOriginal.Value
@@ -159,8 +146,7 @@
@@ -172,8 +158,7 @@
Sello digital del SAT:
@@ -185,8 +170,7 @@
=Parameters!SelloSAT.Value
@@ -255,7 +239,7 @@
- Agroquímicos JAM, S.A. de C.V.
+ BDH BATERIAS , SA DE CV
@@ -351,7 +334,6 @@
TIPO DE DOCUMENTO:
@@ -359,7 +341,6 @@
=Parameters!Tipo.Value
@@ -374,7 +355,6 @@
@@ -382,7 +362,6 @@
Serie:
@@ -390,7 +369,6 @@
=Parameters!Serie.Value
@@ -398,7 +376,6 @@
Folio:
@@ -406,7 +383,6 @@
=Parameters!Folio.Value
@@ -421,7 +397,6 @@
Fecha:
@@ -429,7 +404,6 @@
@@ -437,7 +411,6 @@
= Parameters!Fecha.Value
@@ -461,7 +433,6 @@
Regimen General de Ley Personas Morales
@@ -469,7 +440,6 @@
@@ -483,7 +453,7 @@
Textbox40.05022in4.90719in
- 1.62345in
+ 1.00267in3.35633in2
@@ -544,7 +515,14 @@
- #008204
+
+ Black
+
+
+
+ Black
+
+ 2pt2pt2pt
@@ -564,10 +542,8 @@
UNIDAD
@@ -579,7 +555,54 @@
- #008204
+
+ Black
+
+
+
+ Black
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ CÓDIGO
+
+
+
+
+
+
+ Textbox9
+
+
+
+ Black
+
+
+
+ Black
+
+ 2pt2pt2pt
@@ -599,10 +622,8 @@
CLAVE SAT
@@ -616,7 +637,14 @@
- #008204
+
+ Black
+
+
+
+ Black
+
+ 2pt2pt2pt
@@ -636,10 +664,8 @@
DESCRIPCIÓN
@@ -653,7 +679,14 @@
- #008204
+
+ Black
+
+
+
+ Black
+
+ 2pt2pt2pt
@@ -678,14 +711,14 @@
=Fields!Cantidad.Value
@@ -713,14 +746,13 @@
=Fields!UM.Value
@@ -737,6 +769,40 @@
+
+
+
+ true
+ true
+
+
+
+
+ =Fields!Noidentificacion.Value
+
+
+
+
+
+
+ Noidentificacion
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
@@ -748,7 +814,6 @@
=Fields!SATClaveProdServ.Value
@@ -783,7 +848,6 @@
=Fields!PS.Value & " " & Fields!Obs.Value
@@ -815,6 +879,7 @@
+
@@ -831,7 +896,7 @@
2.25503in0.04048in0.34081in
- 8.27504in
+ 8.27505in3
- #0082042pt2pt2pt
@@ -894,7 +958,6 @@
- #0082042pt2pt2pt
@@ -925,7 +988,6 @@
- #0082042pt2pt2pt
@@ -967,7 +1029,7 @@
Embedded
- jam3
+ LogoFitProportional0.13104cm0.08425cm
@@ -980,6 +1042,149 @@
+
+ true
+ true
+
+
+
+
+ Almacén Origen:
+
+
+
+ =Parameters!AlmOrigen.Value
+
+
+
+
+
+
+ Textbox39
+ 3.26512cm
+ 4.27242cm
+ 0.45889cm
+ 8.13969cm
+ 9
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ Almacén Destino:
+
+
+
+ =Parameters!AlmDestino.Value
+
+
+
+
+
+
+ Textbox37
+ 3.25808cm
+ 12.46426cm
+ 0.46593cm
+ 8.38415cm
+ 10
+
+ =Microsoft.VisualBasic.Interaction.IIF(Parameters!AlmDestino.Value = "", True, False)
+
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!DireccionOrigen.Value
+
+
+
+
+
+
+ Textbox9
+ 3.75929cm
+ 4.29416cm
+ 0.99688cm
+ 8.13969cm
+ 11
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+ true
+ true
+
+
+
+
+ =Parameters!DireccionDestino.Value
+
+
+
+
+
+
+ Textbox11
+ 3.75929cm
+ 12.46913cm
+ 0.99688cm
+ 8.38415cm
+ 12
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+ 12.81558cm