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

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

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>

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()
-
+        CargaComplementosPago()
-
-        '' 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
 
     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

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 
+

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.