diff --git a/.gitignore b/.gitignore index 7462e83a5..609c288bd 100644 --- a/.gitignore +++ b/.gitignore @@ -273,3 +273,4 @@ __pycache__/ /Default.aspx.cs /App_WebReferences/WSRDLC /wwwSIGGIT.rar +/Front diff --git a/AC/RegNomina.aspx.vb b/AC/RegNomina.aspx.vb index e1dd07a3b..48188e68e 100644 --- a/AC/RegNomina.aspx.vb +++ b/AC/RegNomina.aspx.vb @@ -365,7 +365,7 @@ Partial Class AC_RegNomina Dim CtaCliente As Integer = 634 ' Municipio de hermosillo - Dim CvePresupuestoIngreso As Integer = 195 ' 2015: 12, 2016: 152, 2017: 160, 2018: 183 + Dim CvePresupuestoIngreso As Integer = 214 ' 2015: 12, 2016: 152, 2017: 160, 2018: 183, 2019: 195 Dim CtaPuente As Integer = 1774 ' INGRESO RECAUDADO PARA NOMINA EN MUNICIPIO, fijo Dim CtaServiciosPersonales As Integer = 1778 ' 2111 -- fijo Dim IdCtaPersonal As Integer = 0 diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index 6c4ae3256..ccccd30a6 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -302,6 +302,7 @@ Public Class CFDIConceptos Public Property ValorUnitario As Decimal = 0.00D Public Property Importe As Decimal = 0.00D Public Property CuentaPredial As String = "" + Public Property NumeroPedimento As String = "" Public Property ClaveProdServ As String = "" Public Property ClaveUnidad As String = "" Public Property Impuestos As List(Of CFDIConceptosImpuestos) diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 4e36ab9e0..6abe367d1 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -2922,6 +2922,26 @@ Public Class ClsOIEventos #End Region #Region "Documentos" + Public Function ListadoDocumentos(CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_OI_ListarDocumentos") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el listado de documento", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function GetDocumento(CveDocumento As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 88e4f9c15..5bdb7d46f 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -1164,6 +1164,7 @@ Public Class Timbrado End If Next If concep.CuentaPredial <> "" Then cfdi.agregarCuentaPredial(concep.CuentaPredial) + If concep.NumeroPedimento <> "" Then cfdi.agregarInformacionAduanera(concep.NumeroPedimento) Next End If @@ -1749,6 +1750,7 @@ Public Class Timbrado End If Next If concep.CuentaPredial <> "" Then cfdi.CuentaPredial(concep.CuentaPredial) + If concep.NumeroPedimento <> "" Then cfdi.InformacionAduanera(concep.NumeroPedimento) Next End If @@ -2365,6 +2367,11 @@ Public Class Timbrado End If If concep.Noidentificacion <> "" Then comprobante.Conceptos(i).NoIdentificacion = concep.Noidentificacion + If concep.CuentaPredial <> "" Then comprobante.Conceptos(i).CuentaPredial = New Profact.TimbraCFDI33.ComprobanteConceptoCuentaPredial() With {.Numero = concep.CuentaPredial} + If concep.NumeroPedimento <> "" Then + comprobante.Conceptos(i).InformacionAduanera = New Profact.TimbraCFDI33.ComprobanteConceptoInformacionAduanera(1) {} 'solo un codigo por el momento + comprobante.Conceptos(i).InformacionAduanera(0) = New Profact.TimbraCFDI33.ComprobanteConceptoInformacionAduanera() With {.NumeroPedimento = concep.NumeroPedimento} + End If j = 0 k = 0 diff --git a/App_Code/WsSigfox.vb b/App_Code/WsSigfox.vb index 767dcf9e4..225d6c984 100644 --- a/App_Code/WsSigfox.vb +++ b/App_Code/WsSigfox.vb @@ -27,8 +27,8 @@ Namespace Sigfox 'respuesta.Datos = Datos Dim DevID As String = params.device - Dim Lat As Double = params.lat.ToDouble() - Dim Lng As Double = params.lng.ToDouble() + Dim Lat As Double = 90 'params.lat.ToDouble() + Dim Lng As Double = 90 'params.lng.ToDouble() Dim Fecha As DateTime = params.time.ToDouble().ConvertFromUnixTimestamp() Dim Velocidad As Double = 0 Dim MessageType As Integer = 0 @@ -68,12 +68,16 @@ Namespace Sigfox End Try Dim response As HttpResponseMessage - If datos.Length > 0 Then - Dim jsonString As String = $"{{""{params.device}"":{{""downlinkData"":""{datos}""}}}}" - response = Me.Request.CreateResponse(HttpStatusCode.OK) - response.Content = New StringContent(jsonString, Encoding.UTF8, "application/json") + If respuesta.Correcto Then + If datos.Length > 0 Then + response = Me.Request.CreateResponse(HttpStatusCode.OK) + response.Content = New StringContent($"{{""{params.device}"":{{""downlinkData"":""{datos}""}}}}", Encoding.UTF8, "application/json") + Else + response = Request.CreateResponse(HttpStatusCode.NoContent, "") + End If Else - response = Request.CreateResponse(HttpStatusCode.NoContent, "") + response = Me.Request.CreateResponse(HttpStatusCode.OK) + response.Content = New StringContent($"{{""Fail"":{{""Msg"":""Ocurrió un error al agregar la trama""}}}}", Encoding.UTF8, "application/json") End If Return response End Function diff --git a/Bin/Microsoft.Owin.Security.OAuth.dll b/Bin/Microsoft.Owin.Security.OAuth.dll index 8f95e3053..650eb379b 100644 Binary files a/Bin/Microsoft.Owin.Security.OAuth.dll and b/Bin/Microsoft.Owin.Security.OAuth.dll differ diff --git a/Bin/Microsoft.Owin.Security.dll b/Bin/Microsoft.Owin.Security.dll index 54901f282..44d45c92c 100644 Binary files a/Bin/Microsoft.Owin.Security.dll and b/Bin/Microsoft.Owin.Security.dll differ diff --git a/Bin/Microsoft.Owin.dll b/Bin/Microsoft.Owin.dll index 37dc69b0e..713f03dd2 100644 Binary files a/Bin/Microsoft.Owin.dll and b/Bin/Microsoft.Owin.dll differ diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb index 9b2e4f077..4aa040ece 100644 --- a/Contabilidad/RegPoliza.aspx.vb +++ b/Contabilidad/RegPoliza.aspx.vb @@ -1702,9 +1702,21 @@ Partial Class RegPoliza If ObjConta.RemovePoliza(IDPoliza) Then If ObjMov.DesvincularPrePolizaContabilizada(IDPoliza, UsuarioActual.CveEmpresa) Then - If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then + If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then + ErrorTrans = True Else + End If + + If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then + ErrorTrans = True + End If + + If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", TxtFechaPoliza.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then + ErrorTrans = True + End If + + If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", DdlTipoPoliza.SelectedItem.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Polizas", TxtNumeroPoliza.Text, DdlTipoPoliza.SelectedValue.ToEntero) Then ErrorTrans = True End If Else diff --git a/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc b/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc index 7306eef7f..76a2fcc64 100644 --- a/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc +++ b/Empresas/Grales/Formatos/AuxiliarProveedor.rdlc @@ -50,34 +50,34 @@ - 1.57873cm + 2.19852cm - 2.54731cm + 2.26204cm - 0.70704cm + 0.69929cm - 1.66702cm + 1.65927cm - 1.99686cm + 1.98911cm - 1.96369cm + 1.95594cm - 1.75246cm + 1.74471cm - 0.85958cm + 0.85183cm - 1.6398cm + 1.63205cm - 1.77947cm + 1.50713cm @@ -822,7 +822,7 @@ - 3.06196cm + 3.05421cm true @@ -863,7 +863,7 @@ 0.75875cm 0.06614cm 1.19472cm - 19.55393cm + 19.55408cm @@ -891,8 +891,8 @@ Textbox1 - 0.07056cm - 0.06614cm + 0.0635cm + 0.01654cm 0.58236cm 19.58715cm 1 @@ -910,10 +910,10 @@ 0.87325in @@ -983,9 +982,8 @@ Textbox2 0.63528cm - 2.40329cm 0.52945cm - 14.68354cm + 19.62022cm 1