Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2019-09-05 13:52:25 -07:00
parent bc3f9eb0a7 0197866289
commit 17bced93bd
5 changed files with 103 additions and 27 deletions
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -365,7 +365,15 @@ Public Class Timbrado
                If resultadoCancelacion.Exitoso Then
                    CancelacionMensaje = resultadoCancelacion.Descripcion
                    Dim xmlDoc As New System.Xml.XmlDocument()
-                    xmlDoc.LoadXml(Encoding.UTF8.GetString(Convert.FromBase64String(resp.Xml)))
+
+                    Try
+                        xmlDoc.LoadXml(Encoding.UTF8.GetString(Convert.FromBase64String(resp.Xml)))
+                    Catch ex As Exception
+                        xmlDoc.LoadXml(resp.Xml)
+                    End Try
+
+
+
                    Dim xpath As String = "Acuse/Folios"
                    Dim nodes = xmlDoc.SelectNodes(xpath)
                    CancelacionState = xmlDoc.GetElementsByTagName("EstatusUUID")(0).InnerText.ToEntero
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -1185,12 +1185,19 @@

                                <asp:TemplateField HeaderText="Cancelar" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
                                    <ItemTemplate>
-                                        <asp:LinkButton ID="LnkCancelarComplemetno" OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Regenerar"
+                                        <asp:LinkButton ID="LnkCancelarComplemetno" OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False" 
                                            data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el complemento?" data-btn-ok-label="si"
                                            CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>" />
                                    </ItemTemplate>
                                </asp:TemplateField>

+                             <%--   <asp:TemplateField HeaderText="EstatusSAT" Visible="true" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
+                                    <ItemTemplate>
+                                        <asp:LinkButton ID="LnkEstatusSAT" OnClick="LnkEstatusSAT_Click" runat="server" AlternateText="Editar" CausesValidation="False"                                              
+                                            CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-question'></i>" />
+                                    </ItemTemplate>
+                                </asp:TemplateField>--%>
+
                            </Columns>
                        </asp:GridView>
                    </div>
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -501,6 +501,7 @@ Partial Class Bancos_IE
 #End Region

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
        If Not IsPostBack Then

            Folio = ""
@@ -3916,9 +3917,10 @@ Partial Class Bancos_IE
            If CancelarComplemento Then
                Dim ObjCancelacion As New Timbrado
                'Dim ObjBanco As New ClsBancos
-                If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then

-                    If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+                If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
+
+                    If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
                        CargaComplementosPago()
                        RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
                        ErrorCancelarComplemento = False
@@ -3926,8 +3928,22 @@ Partial Class Bancos_IE
                    End If

                Else
-                    Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
+                    If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
+
+                        If Banc.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+                            CargaComplementosPago()
+                            RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
+                            ErrorCancelarComplemento = False
+                            Alert("El complemento se cancelo correctamente.")
+                        End If
+
+                    Else
+                        Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
+                    End If
+
                End If
+
+
            Else
                ErrorCancelarComplemento = False
            End If
@@ -5538,39 +5554,34 @@ Partial Class Bancos_IE
        RFCReceptorCancelar = GvRow.DataKey("RFCReceptor")
        CvePACCancelacion = GvRow.DataKey("CvePAC").ToEntero

-
        Dim ObjCancelacion As New Timbrado
        Dim ObjBanco As New ClsBancos

-        If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then

-            If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+
+        If EstatusSATCancelado(FolioFiscalCancelar, UsuarioActual.Empresa.RFC, RFCReceptorCancelar) Then
+
+            If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=Date.Now, SelloCancelacion:="") Then
                CargaComplementosPago()
-
-                ' RegistraScript("$('#ModalCancelarComplemetno').modal('hide');")
                Alert("El complemento se cancelo correctamente.")
            End If

        Else
-            Alert("Se presento un error al cancelar el complemento.")
+
+            If ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, FolioFiscalCancelar, 0, RFCReceptorCancelar, UsuarioActual.Empresa.RFC, CvePACCancelacion) Then
+
+                If ObjBanco.UpdateComplementoPago(CveComplementoPagoCancelar, "-1", -1, UsuarioActual.CveEmpresa, 2, CvePACCancelacion, FechaCancelacion:=ObjCancelacion.CancelacionFecha, SelloCancelacion:=ObjCancelacion.CancelacionAcuse) Then
+
+                    Alert("El complemento se cancelo correctamente.")
+                End If
+            Else
+                Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgError)
+            End If
+
        End If

        ObjBanco.Dispose()
-
-
-        '' INICIO Version 2
-        'CveComplementoPagoCancelar = GvRow.DataKey("CveComplementoPago").ToEntero
-        'FolioFiscalCancelar = GvRow.DataKey("FolioFiscal").ToString
-        '' Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
-        'RFCReceptorCancelar = GvRow.DataKey("RFCReceptor")
-        'CvePACCancelacion = GvRow.DataKey("CvePAC").ToEntero
-
-        'RegistraScript("$('#ModalCancelarComplemetno').modal('show');")
-
-        'RdlCancelarComplemento.SelectedValue = "1"
-        'DivFechaCancelación.Visible = False
-        'UpModalCancelarComplemetno.Update()
-        '' FIN Version 2
+        CargaComplementosPago()

    End Sub

@@ -5703,4 +5714,44 @@ Partial Class Bancos_IE

    End Sub

+    'Protected Sub LnkEstatusSAT_Click(sender As Object, e As EventArgs)
+
+    '    Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).BindingContainer, GridViewRow)
+
+    '    Dim FolioFiscal As String = GvRow.DataKey("FolioFiscal").ToString
+    '    Dim RFCReceptor As String = GvRow.DataKey("RFCReceptor")
+
+
+    '    EstatusSATCancelado(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor)
+
+    '    'Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, RFCReceptor, "0", True)
+
+    '    'If Vigencia IsNot Nothing Then
+    '    '    Alert($"Estatus SAT: {  Vigencia.Estado  }")
+    '    'End If
+
+    'End Sub
+
+
+    Function EstatusSATCancelado(FolioFiscal As String, RFCDe As String, RFCReceptor As String) As Boolean
+
+        Dim respuesta As Boolean = False
+
+        Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, RFCDe, RFCReceptor, "0", True)
+
+        If Vigencia IsNot Nothing Then
+            If Vigencia.Estado.ToUpper = "CANCELADO" Then
+                respuesta = True
+            Else
+                respuesta = False
+            End If
+        Else
+            respuesta = False
+        End If
+
+
+
+        Return respuesta
+    End Function
+
 End Class
--- a/LogMail.txt
+++ b/LogMail.txt
@@ -1 +1,7 @@
-
+
+  28/08/2019:04:44 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 79 
+
+  28/08/2019:05:48 p. m. No se especifico a remitente - SIG - Se Genero una Recepción de Usados con el folio: 80 
+
+  02/09/2019:11:00 a. m. From:'signotificaciones@adssistemas.mx'  -  Para:'x@x.com'  - Asunto:'Entrega de Factura SUCURSAL NARANJO SN-22' -  CCP: '' - Adjuntos: 1 
+
--- a/LogTimbrado.txt
+++ b/LogTimbrado.txt
@@ -6,3 +6,7 @@
 .. PAC: 2 - Verificado : (200) 200 Armado: (398) 598 Guardado: (564) 1162 Timbrado: (2342) 3504 Actualizado: (456) 3960  ..02/09/2019:11:00 a. m.

 .. PAC: 2 - Verificado : (170) 170 Armado: (285) 455 Guardado: (333) 788 Timbrado: (1949) 2737 Actualizado: (20) 2757  ..02/09/2019:11:00 a. m.
+
+ .. PAC: 3 - Verificado : (37) 37 Armado: (43) 80 Genera: (0) 80 Timbrado: (7893) 7973 Actualizado: (19) 7992  ..05/09/2019:11:02 a. m.
+
+ .. PAC: 3 - Verificado : (36) 36 Armado: (32) 68 Genera: (0) 68 Timbrado: (10604) 10672 Actualizado: (16) 10688  ..05/09/2019:12:31 p. m.