diff --git a/Acarreos/CatChoferes.aspx b/Acarreos/CatChoferes.aspx
index 740010af5..717eaf460 100644
--- a/Acarreos/CatChoferes.aspx
+++ b/Acarreos/CatChoferes.aspx
@@ -207,8 +207,17 @@
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/CFDITimbre.vb b/App_Code/CFDITimbre.vb
index 42ef21c81..61a215271 100644
--- a/App_Code/CFDITimbre.vb
+++ b/App_Code/CFDITimbre.vb
@@ -472,7 +472,7 @@ Public Class CFDIComplementoPagosDocsRelacionados
Public Property Folio As String = ""
Public Property MonedaDR As String = ""
Public Property MetodoDePagoDR As String = ""
- Public Property TipoCambioDR As Double
+ Public Property TipoCambioDR As Decimal
Public Property NumParcialidad As Integer = 1
Public Property ImpSaldoAnt As Double
Public Property ImpPagado As Double
diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index b7b8d93d5..60c2d2a48 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -1455,14 +1455,15 @@ Public Class ClsClientes
OnError("Ocurrió un error eliminar la Clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
End Try
Return Retorno
- End Function
-
+ End Function
+
#End Region
-
-
+
+
#Region "D I R E C C I O N D E E N V I O "
Public Function DireccionEnvioAdd(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String,
- EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, Optional CveClienteSucursal As Integer = -1, Optional EnvioDepartamento As String = "-1", Optional EnvioTel As String = "-1") As Integer
+ EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, Optional CveClienteSucursal As Integer = -1, Optional EnvioDepartamento As String = "-1", Optional EnvioTel As String = "-1",
+ Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Vta_ClientesDireccionesEnvioAdd")
@@ -1481,6 +1482,13 @@ Public Class ClsClientes
.Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Estatus", SqlDbType.Int).Value = Estatus
+
+ .Add("@CvePais", SqlDbType.Int).Value = CvePais
+ .Add("@CveEstado", SqlDbType.Int).Value = CveEstado
+ .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio
+ .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad
+ .Add("@CveColonia", SqlDbType.Int).Value = CveColonia
+
.Add("@CveDireccionEnvio", SqlDbType.Int).Direction = ParameterDirection.Output
End With
@@ -1514,7 +1522,8 @@ Public Class ClsClientes
End Function
Public Function DireccionEnvioUpdate(CveCliente As Integer, EnvioDireccion As String, EnvioNoExt As String, EnvioNoInt As String, EnvioColonia As String, EnvioCiudad As String, EnvioEstado As String,
- EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, CveDireccionEnvio As Integer, Optional EnvioDepartamento As String = "-1", Optional CveClienteSucursal As Integer = -1, Optional EnvioTel As String = "-1") As Boolean
+ EnvioCP As Integer, EnvioContacto As String, CveUsuario As Integer, Estatus As Integer, CveDireccionEnvio As Integer, Optional EnvioDepartamento As String = "-1", Optional CveClienteSucursal As Integer = -1, Optional EnvioTel As String = "-1",
+ Optional CvePais As Integer = -1, Optional CveEstado As Integer = -1, Optional CveMunicipio As Integer = -1, Optional CveLocalidad As Integer = -1, Optional CveColonia As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Vta_ClientesDireccionesEnvioUpdate")
@@ -1534,6 +1543,13 @@ Public Class ClsClientes
.Add("@EnvioTel", SqlDbType.VarChar).Value = EnvioTel
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@Estatus", SqlDbType.Int).Value = Estatus
+
+ .Add("@CvePais", SqlDbType.Int).Value = CvePais
+ .Add("@CveEstado", SqlDbType.Int).Value = CveEstado
+ .Add("@CveMunicipio", SqlDbType.Int).Value = CveMunicipio
+ .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad
+ .Add("@CveColonia", SqlDbType.Int).Value = CveColonia
+
End With
Try
diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb
index c693d37a3..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
@@ -3036,7 +3041,7 @@ Public Class ClsGenerales
Return Retorno
End Function
- Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1) As Boolean
+ Public Function AsignarEntregasPorRealizar(CvePaqueteriaGuia As Integer, CvePersonal As Integer, Optional CveAsignacionEntrega As Long = -1, Optional CveMotivoRechazoPaqueteria As Integer = -1, Optional Orden As Integer = 0) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Gral_AsignarEntregasPorRealizar")
With SqlAdapter.SelectCommand.Parameters
@@ -3044,6 +3049,7 @@ Public Class ClsGenerales
.Add("@CveUsuarioAsignado", SqlDbType.Int).Value = CvePersonal
.Add("@CveAsignacionEntrega", SqlDbType.BigInt).Value = CveAsignacionEntrega
.Add("@CveMotivoRechazoPaqueteria", SqlDbType.Int).Value = CveMotivoRechazoPaqueteria
+ .Add("@Orden", SqlDbType.Int).Value = Orden
End With
Try
SqlAdapter.Fill(Data)
@@ -3598,5 +3604,173 @@ Public Class ClsGenerales
Return Retorno
End Function
#End Region
+
+
+
+
+#Region "GRAL TIMBRES"
+
+
+ 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")
+
+ With SqlAdapter.SelectCommand.Parameters
+
+ .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+ .Add("@Serie", SqlDbType.VarChar).Value = Serie
+ .Add("@Folio", SqlDbType.Int).Value = Folio
+ .Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal
+ .Add("@Fecha", SqlDbType.Date).Value = Fecha
+ .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
+ .Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen
+ .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+ .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+ .Add("@Estatus", SqlDbType.Int).Value = Estatus
+ .Add("@CvePAC", SqlDbType.Int).Value = CvePAC
+ .Add("@AplicaCP", SqlDbType.Bit).Value = AplicaCP
+ .Add("@CveSubProyectoOrigen", SqlDbType.Int).Value = CveSubProyectoOrigen
+ .Add("@CveDireccionOrigen", SqlDbType.Int).Value = CveDireccionOrigen
+ .Add("@CveDireccionDestino", SqlDbType.Int).Value = CveDireccionDestino
+ .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)
+
+ 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 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")
+
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre
+ .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+ .Add("@Serie", SqlDbType.VarChar).Value = Serie
+ .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("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
+ .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
+
+
+
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al obtener los timbres.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+
+ Return Retorno
+ End Function
+
+ 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")
+
+ With SqlAdapter.SelectCommand.Parameters
+
+ .Add("@CveTimbre", SqlDbType.Int).Value = CveTimbre
+ .Add("@TipoDocto", SqlDbType.VarChar).Value = TipoDocto
+ .Add("@Serie", SqlDbType.VarChar).Value = Serie
+ .Add("@Folio", SqlDbType.Int).Value = Folio
+ .Add("@FolioFiscal", SqlDbType.VarChar).Value = FolioFiscal
+ .Add("@Fecha", SqlDbType.Date).Value = Fecha
+ .Add("@CvePaqueteriaGuia", SqlDbType.Int).Value = CvePaqueteriaGuia
+ .Add("@CveMovimientoAlmacen", SqlDbType.Int).Value = CveMovimientoAlmacen
+ .Add("@Estatus", SqlDbType.Int).Value = Estatus
+ .Add("@CvePAC", SqlDbType.Int).Value = CvePAC
+ .Add("@CvePACCancelacion", SqlDbType.Int).Value = CvePACCancelacion
+ .Add("@FechaCancelacion", SqlDbType.DateTime).Value = FechaCancelacion
+ .Add("@AplicaCP", SqlDbType.Bit).Value = AplicaCP
+ .Add("@CveSubProyectoOrigen", SqlDbType.Int).Value = CveSubProyectoOrigen
+ .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("@CveChofer", SqlDbType.Int).Value = CveChofer
+ .Add("@CveCamion", SqlDbType.Int).Value = CveCamion
+
+ End With
+
+ Try
+ SqlAdapter.Fill(Data)
+ Retorno = True
+ Catch ex As Exception
+ OnError("Ocurrió un error al actualizar el timbre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+ Return Retorno
+ End Function
+
+
+
+ Public Function RemoveGralTimbre(CveTimbre As Integer, CveEmpresa As Integer) As Boolean
+ Dim Retorno As Boolean = False
+ DataAdapter("PA_Gral_TimbreRemove")
+
+ 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 eliminar Timbre", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+ 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
+
End Class
diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index 85219e3f8..605070a2a 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1646,7 +1646,7 @@ Public Class ClsInventarios
End Function
Public Function GetProductosCaducidad(CveProveedor As Integer, FechaInicio As Date, FechaFin As Date, CveSubProyecto As Integer, CveClasificacion As Integer, CvePS As Integer,
- FiltroFecha As Integer, CvesAlmacenes As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
+ CvesAlmacenes As String, CveUsuario As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ProductosCaducidadGet")
@@ -1658,7 +1658,6 @@ Public Class ClsInventarios
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
.Add("@CvePS", SqlDbType.Int).Value = CvePS
- .Add("@FiltroFecha", SqlDbType.SmallInt).Value = FiltroFecha
.Add("@CvesAlmacenes", SqlDbType.VarChar).Value = CvesAlmacenes
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 40ca553a3..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))
@@ -7834,14 +7842,19 @@ Public Class ClsPaginas
End If
'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString))
Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol)
- Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={0}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol))
+ Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol))
Dim FirmaSol As New System.IO.FileInfo(String.Format("{0}Firmas\{1}.png", EmpresaActual.Ruta, CveUsuarioSol))
- params.Add(New ReportParameter("FirmaSolicito", If(FirmaSol.Exists, RutaVirtuaSol, "")))
+ 'params.Add(New ReportParameter("FirmaSolicito", If(FirmaSol.Exists, RutaVirtuaSol, "")))
+ params.Add(New ReportParameter("FirmaSolicito", If(FirmaSol.Exists, ImageToBase64(Drawing.Image.FromFile(FirmaSol.FullName), Drawing.Imaging.ImageFormat.Png), "")))
Dim RutaFisicaAut As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioAut)
Dim RutaVirtuaAut As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaAut))
Dim FirmaAut As New System.IO.FileInfo(String.Format("{0}Firmas\{1}.png", EmpresaActual.Ruta, CveUsuarioAut))
- params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, RutaVirtuaAut, "")))
+ 'params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, RutaVirtuaAut, "")))
+ params.Add(New ReportParameter("FirmaAutorizo", If(FirmaAut.Exists, ImageToBase64(Drawing.Image.FromFile(FirmaAut.FullName), Drawing.Imaging.ImageFormat.Png), "")))
+
+
+
If Archivo.Exists Then
bytes = StreamPDF(String.Format("{0}Formatos\OC.rdlc", EmpresaActual.Ruta), DtDetalle, params, $"OC_{ObjOC.Folio.ToString}", RDSName:="DsOC", MR:=MR)
@@ -7910,6 +7923,26 @@ Public Class ClsPaginas
Return bytes
End Function
+
+
+ Public Function ImageToBase64(ByVal image As System.Drawing.Image, ByVal format As System.Drawing.Imaging.ImageFormat) As String
+ Dim base64String As String = ""
+
+
+ Try
+ Using ms As New System.IO.MemoryStream()
+ image.Save(ms, format)
+ Dim imageBytes As Byte() = ms.ToArray()
+ base64String = Convert.ToBase64String(imageBytes)
+ End Using
+ Catch ex As Exception
+ GuardaLog(String.Format("Ocurrio un error al generar convertir la imagen a Base64 {0}", ex.Message))
+ End Try
+
+ Return base64String
+ End Function
+
+
Public Function NewGeneraOCCotizacion(tCveOrdenCompra As Integer, Optional MR As ReportViewer = Nothing, Optional ConBitacora As Boolean = False) As Byte()
Dim bytes As Byte() = Nothing
Dim CveEmpresaActual As Integer
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/App_Code/ClsSubProyectos.vb b/App_Code/ClsSubProyectos.vb
index 97c8bd94d..803ab02de 100644
--- a/App_Code/ClsSubProyectos.vb
+++ b/App_Code/ClsSubProyectos.vb
@@ -368,7 +368,8 @@ Public Class ClsSubProyectos
.Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
.Add("@Telefono", SqlDbType.VarChar).Value = Telefono
.Add("@NoVerificaAlmacen", SqlDbType.Bit).Value = NoVerificaAlmacen
- .Add("@CodigoSucursal", SqlDbType.VarChar).Value = CodigoSucursal
+ .Add("@CodigoSucursal", SqlDbType.VarChar).Value = CodigoSucursal
+ .Add("@CveLocalidad", SqlDbType.Int).Value = CveLocalidad
.Add("@CveSubProyecto", SqlDbType.Int).Direction = ParameterDirection.Output
End With
diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb
index 3fafd9f2e..e6d226c83 100644
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -1908,6 +1908,7 @@ Public Class Timbrado
' cfdi.saltarValidacion("bNtMuvZockPVhEjaPj0E")
'cfdi.Decimales = 4
+ cfdi.QuitarCerosDecimalDerecha = True ' no limita a 2 decimales, el atributo, de cantidad y precio unitario
#Region "Certificado"
cfdi.CertificadoArchivo(ArchivoCertificado)
#End Region
@@ -1962,7 +1963,7 @@ Public Class Timbrado
If ObjCFDITimbre.Conceptos IsNot Nothing AndAlso ObjCFDITimbre.Conceptos.Count > 0 Then
For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos
- cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario, concep.Importe, concep.Descuento)
+ cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad.ToString("0.00####"), concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario.ToString("0.00####"), concep.Importe, concep.Descuento)
For Each imp As CFDIConceptosImpuestos In concep.Impuestos
If imp.TrasladooRetencion = "T" Then
cfdi.ImpuestoConceptoTraslado(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe)
@@ -2158,8 +2159,8 @@ Public Class Timbrado
cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
- cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, concep.Embalaje, concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
- Next
+ cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+ Next
End If
End If
@@ -2184,8 +2185,9 @@ Public Class Timbrado
If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
- cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador)
- Next
+ cfdi.CartaPorteOperador(concep.RFCOperador, concep.NumLicencia, concep.NombreOperador, concep.NumRegidTribOperador, concep.ResidenciaFiscalOperador)
+ cfdi.CartaPorteOperadorDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
+ Next
End If
End If
@@ -3711,8 +3713,8 @@ Public Class Timbrado
End If
ComPag.Pago(0).DoctoRelacionado(i).Folio = doc.Folio
ComPag.Pago(0).DoctoRelacionado(i).MonedaDR = doc.MonedaDR
- ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDRSpecified = If(doc.TipoCambioDR.ToDecimal = 0, False, True)
- ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDR = doc.TipoCambioDR.ToDecimal
+ ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDRSpecified = If(doc.TipoCambioDR = 0, False, True)
+ ComPag.Pago(0).DoctoRelacionado(i).TipoCambioDR = doc.TipoCambioDR
ComPag.Pago(0).DoctoRelacionado(i).MetodoDePagoDR = doc.MetodoDePagoDR
ComPag.Pago(0).DoctoRelacionado(i).NumParcialidad = doc.NumParcialidad.ToString
@@ -3784,9 +3786,8 @@ Public Class Timbrado
''DATOS GENERALES
Dim ComCartaPorte = New ProfactCartaPorte.CartaPorte()
- Dim Transp As ProfactCartaPorte.CartaPorteTranspInternac
- ComCartaPorte.TranspInternac = If(Carta.TranspInternac = "No", Transp.No, Transp.Sí)
- ComCartaPorte.EntradaSalidaMercSpecified = False
+ ComCartaPorte.TranspInternac = CType([Enum].Parse(GetType(ProfactCartaPorte.CartaPorteTranspInternac), Carta.TranspInternac), ProfactCartaPorte.CartaPorteTranspInternac)
+ ComCartaPorte.EntradaSalidaMercSpecified = False
ComCartaPorte.ViaEntradaSalidaSpecified = False
ComCartaPorte.TotalDistRecSpecified = False
@@ -3875,11 +3876,13 @@ Public Class Timbrado
If concep.ClaveMaterialPeligroso <> "" Then
ComCartaPorte.Mercancias.Mercancia(i).MaterialPeligrosoSpecified = True
ComCartaPorte.Mercancias.Mercancia(i).CveMaterialPeligrosoSpecified = True
- End If
- If concep.Embalaje <> "" Then
+ 'si lleva material pelgroso, debe llevar embalaje
ComCartaPorte.Mercancias.Mercancia(i).EmbalajeSpecified = True
ComCartaPorte.Mercancias.Mercancia(i).Embalaje = CType([Enum].Parse(GetType(ProfactCartaPorte.c_TipoEmbalaje), "Item" & concep.Embalaje), ProfactCartaPorte.c_TipoEmbalaje)
+
End If
+
+
ComCartaPorte.Mercancias.Mercancia(i).DescripEmbalaje = concep.DescripEmbalaje
ComCartaPorte.Mercancias.Mercancia(i).PesoEnKg = concep.PesoenKg
ComCartaPorte.Mercancias.Mercancia(i).ValorMercanciaSpecified = False
diff --git a/Ashx/SigFiles.ashx b/Ashx/SigFiles.ashx
index bb4a91d48..3ab1e80ad 100644
--- a/Ashx/SigFiles.ashx
+++ b/Ashx/SigFiles.ashx
@@ -33,7 +33,9 @@ public class SigFiles : IHttpHandler
{
mimeType = MimeMapping.GetMimeMapping(path);
}
- catch (Exception) { }//si truena no existe el arhivo
+ catch (Exception ex) {
+ this.GuardaLog(ex.ToString());
+ }//si truena no existe el arhivo
context.Response.Clear();
context.Response.ClearHeaders();
context.Response.ClearContent();
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 e304c226a..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
@@ -670,8 +670,10 @@ Partial Class PopUpVerFactura
#Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO"
Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)
+
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
Dim Dr As DataRow = Nothing
Dim ObjContratos As New ClsContratos
If Not ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Or Not ObjContratos.DtResultados.Rows.Count > 0 Then
@@ -841,12 +843,19 @@ Partial Class PopUpVerFactura
If Dt.Rows.Count > 0 Then
Dim params As New List(Of ReportParameter)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
- Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
- If Imagen.Exists Then
- params.Add(New ReportParameter("LogoPath", logouri))
- Else
- params.Add(New ReportParameter("LogoPath", ""))
- End If
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, ImageToBase64(Drawing.Image.FromFile(Imagen.FullName), Drawing.Imaging.ImageFormat.Png), "")))
+
+ 'If Imagen.Exists Then
+ ' params.Add(New ReportParameter("LogoPath", logouri))
+
+
+ 'Else
+ ' params.Add(New ReportParameter("LogoPath", ""))
+ 'End If
+
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
@@ -888,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
@@ -935,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
@@ -973,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
@@ -992,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
@@ -1141,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/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 322ac5493..481b142a8 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -3282,43 +3282,52 @@ Partial Class Compras_eFacturas
For Each dRow As DataRow In DTGVPagosVinculacion.Rows
-
If HdnIdDocumento.Value = dRow("IdDocumento").ToString Then 'And dRow("CveIE").ToString.ToEntero <= 0
dRow("CveIE") = HdnCveIE.Value.ToEntero
Dim ObjIE As New ClsBancos()
- 'If ObjIE.GetBancosIE(HdnCveIE.Value.ToEntero, UsuarioActual.CveEmpresa) Then
- ' Try
- ' dRow("FolioPago") = ObjIE.Folio
- ' dRow("ImportePago") = dRow("ImpPagado")
- ' dRow("FechaPago") = ObjIE.FechaDocumento
- ' dRow("Tipo") = "E"
- ' ' dRow("Diferencia") = 0D
- ' dRow("Manual") = True
-
- ' Catch ex As Exception
-
- ' End Try
-
- 'End If
-
Dim ObjCompras As New ClsCompras
If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
- Try
- dRow("FolioPago") = ObjCompras.DtResultados(0)("FolioIE")
- dRow("ImportePago") = dRow("ImpPagado")
- dRow("FechaPago") = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate
- dRow("CvePrePolizaDetalle") = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero
- dRow("Tipo") = "E"
- ' dRow("Diferencia") = 0D
- dRow("Manual") = True
- Catch ex As Exception
- End Try
+ Dim CompraEncontrada As Boolean = False
+
+
+ For Each drowComparar As DataRow In ObjCompras.DtResultados.Rows
+
+ If drowComparar("CveCompraPrePoliza").ToString.ToEntero > 0 AndAlso (dRow("CveCompra").ToString.ToEntero = drowComparar("CveCompraPrePoliza").ToString.ToEntero) Then
+ dRow("FolioPago") = drowComparar("FolioIE")
+ dRow("ImportePago") = dRow("ImpPagado")
+ dRow("FechaPago") = drowComparar("Fecha").ToString.ToDate
+ dRow("CvePrePolizaDetalle") = drowComparar("CvePrePolizaDetalle").ToString.ToEntero
+ dRow("Tipo") = "E"
+ dRow("Manual") = True
+ CompraEncontrada = True
+ Exit For
+ End If
+
+ Next
+
+
+ If Not CompraEncontrada Then
+
+ Try
+ dRow("FolioPago") = ObjCompras.DtResultados(0)("FolioIE")
+ dRow("ImportePago") = dRow("ImpPagado")
+ dRow("FechaPago") = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate
+ dRow("CvePrePolizaDetalle") = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero
+ dRow("Tipo") = "E"
+ dRow("Manual") = True
+ Catch ex As Exception
+
+ End Try
+
+ End If
+
+
End If
ObjCompras.Dispose()
@@ -3341,89 +3350,6 @@ Partial Class Compras_eFacturas
ValidaTablaDeVinculacion()
- Exit Sub
-
- '**********************************************************************************************************************
-
-
-
-
-
- 'If HdnCveIE.Value <> "-1" AndAlso IsNumeric(HdnCveIE.Value) AndAlso HdnCveIE.Value.ToEntero > 0 Then
-
- ' Dim ImportePago As Double = 0
- ' Dim ImporteIES As Double = 0
- ' Dim SerieFolioIE As String = ""
- ' Dim ObjCompras As New ClsCompras
- ' Dim ErrorVinculacion = True
-
- ' If ObjCompras.GetCompararComplementoPago(CveProveedor, -1, "", UsuarioActual.CveEmpresa, HdnCveIE.Value.ToEntero) Then
-
- ' For Each Drow As DataRow In ObjCompras.DtResultados.Rows
- ' For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
-
- ' If GvRow.RowType = DataControlRowType.DataRow Then
-
- ' If Drow("CveCompra").ToString.ToEntero = GvRow.DataKey("CveCompra").ToEntero Then
-
- ' GvRow.FCLabel("LblCveIE").Text = Drow("CveIE").ToString.ToEntero.ToString
- ' GvRow.FCLabel("LblCvePrePolizaDetalle").Text = Drow("CvePrePolizaDetalle").ToString.ToEntero.ToString
-
- ' End If
-
- ' End If
-
- ' Next
- ' Next
-
-
- ' For Each GvRow As GridViewRow In GVPDocumentosRelacionadosPagos.Rows
- ' If GvRow.RowType = DataControlRowType.DataRow Then
-
- ' If GvRow.FCLabel("LblCveIE").Text.ToEntero > 0 And GvRow.FCLabel("LblCvePrePolizaDetalle").Text.ToEntero > 0 Then
- ' ErrorVinculacion = False
-
- ' Else
-
- ' If ObjCompras.DtResultados.Rows.Count > 0 Then
- ' GvRow.FCLabel("LblCveIE").Text = ObjCompras.DtResultados(0)("CveIE").ToString.ToEntero.ToString
- ' GvRow.FCLabel("LblCvePrePolizaDetalle").Text = ObjCompras.DtResultados(0)("CvePrePolizaDetalle").ToString.ToEntero.ToString
- ' Else
- ' ErrorVinculacion = True
- ' Exit For
- ' End If
-
- ' End If
- ' End If
-
- ' Next
-
-
- ' Else
- ' ErrorVinculacion = True
- ' End If
-
- ' If Not ErrorVinculacion Then
- ' ImporteIES = ObjCompras.DtResultados.FiltraParametros("CveIE > 0").SUM("Importe")
- ' ObjCompras.Dispose()
-
- ' BtnVincularPago.Visible = True
-
- ' LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}"
- ' LblImportePago.Text = ImportePago.FormatoNumero
- ' 'LblSerieFolioIE.Text = SerieFolioIE
- ' LblImporteIE.Text = ImporteIES.FormatoNumero
-
- ' GvVincularPago.DataBind()
- ' UpVincularPago.Update()
- ' ObjCompras.Dispose()
-
- ' Else
- ' Alert("No se pudo realizar la vinculacion manual", TipoMensaje.MsgAdvertencia)
- ' End If
-
-
- 'End If
End Sub
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx
index 4d4a155cd..c48771d03 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx
@@ -69,13 +69,15 @@
-
+
+
+
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
index 70d115657..8acd80a65 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -39,16 +39,21 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
Dim ObjConta As New ClsContabilidad
If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero) Then
GvDatos.DataSource = ObjConta.DtResultados
- End If
+ End If
+ GvDatos.Columns(4).Visible = ObjConta.DtResultados.MAX("CveSubProyecto").ToEntero > 0
+ GvDatos.Columns(5).Visible = ObjConta.DtResultados.MAX("PorcentajeIVA").ToDecimal > 0
If ObjConta.GetCuentasGlobales(UsuarioActual.CveEmpresa) Then
GvGlobal.DataSource = ObjConta.DtResultados
- End If
-
+ End If
+
+
ObjConta.Dispose()
GvDatos.DataBind()
GvGlobal.DataBind()
UpDatos.Update()
+
+
End Sub
@@ -80,6 +85,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+ DdlSubProyectos.Items.Insert(0, New ListItem("-", "0"))
Dim ObjBancos As New ClsBancos
If ObjBancos.GetBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) Then
@@ -129,6 +135,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
TxtIdCuentaContable.Text = GvRow.DataKey("IdCuenta")
TxtPorcentajeIVA.Text = GvRow.DataKey("PorcentajeIVA")
DdlCuentaBancaria.SelectedValueExist(GvRow.DataKey("CveBancoCuenta"))
+ DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
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 @@
Textbox4
0.05022in
4.90719in
- 1.62345in
+ 1.00267in
3.35633in
2
@@ -544,7 +515,14 @@
- #008204
+
+ Black
+
+
+
+ Black
+
+
2pt
2pt
2pt
@@ -564,10 +542,8 @@
UNIDAD
@@ -579,7 +555,54 @@
- #008204
+
+ Black
+
+
+
+ Black
+
+
+ 2pt
+ 2pt
+ 2pt
+ 2pt
+
+
+
+
+
+
+
+ true
+ true
+
+
+
+
+ CÓDIGO
+
+
+
+
+
+
+ Textbox9
+
+
+
+ Black
+
+
+
+ Black
+
+
2pt
2pt
2pt
@@ -599,10 +622,8 @@
CLAVE SAT
@@ -616,7 +637,14 @@
- #008204
+
+ Black
+
+
+
+ Black
+
+
2pt
2pt
2pt
@@ -636,10 +664,8 @@
DESCRIPCIÓN
@@ -653,7 +679,14 @@
- #008204
+
+ Black
+
+
+
+ Black
+
+
2pt
2pt
2pt
@@ -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.25503in
0.04048in
0.34081in
- 8.27504in
+ 8.27505in
3
- #008204
2pt
2pt
2pt
@@ -894,7 +958,6 @@
- #008204
2pt
2pt
2pt
@@ -925,7 +988,6 @@
- #008204
2pt
2pt
2pt
@@ -967,7 +1029,7 @@
Embedded
- jam3
+ Logo
FitProportional
0.13104cm
0.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
-