eFacturas agregar facturas, compras rnc grtid seleccion, contatos trasnportes

Compras/eFacturas.aspx.vb

@@ -1513,6 +1513,11 @@ Partial Class Compras_eFacturas
         DTLOG.Columns.Add("Proveedor", GetType(String))
         DTLOG.Columns.Add("Importe", GetType(Decimal))
         DTLOG.Columns.Add("Motivo", GetType(String))
+        DTLOG.Columns.Add("RFCde", GetType(String))
+        DTLOG.Columns.Add("Estatus", GetType(Integer))
+        DTLOG.Columns.Add("Tipo", GetType(String))
+
+
         'Serie	Folio	Fecha	Proveedor	Importe	Motivo
 
         Dim sw As New Diagnostics.Stopwatch
@@ -1667,6 +1672,10 @@ Partial Class Compras_eFacturas
             rowLog("Proveedor") = ""
             rowLog("Importe") = 0
             rowLog("Motivo") = ""
+            rowLog("RFCde") = ""
+            rowLog("Estatus") = 0
+            rowLog("Tipo") = ""
+
 
             Dim fInfoXML As New FileInfo(filePathXML)
 
@@ -1884,10 +1893,13 @@ Partial Class Compras_eFacturas
         RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalFacturas"))
 
         RegistraScript("$('#ModalBitacoraEfacturas').modal()")
-        CargaDatosBitacora()
+
 
         mesajeFaturasSubidas(DTLOG)
 
+
+        CargaDatosBitacora()
+
         'Alert(String.Format("Se cargaron {0} Facturas", Arreglo.Count), TipoMensaje.MsgInformacion)
     End Sub
 
@@ -1900,6 +1912,7 @@ Partial Class Compras_eFacturas
 
         Dim conta As Integer = 1
         Str.Append("Se procesó la información con la siguiente información:<br/> <table width='900px'><tr class='Titulos'><td>Serie</td><td>Folio</td><td width='100px'>Fecha</td><td width='250px'>Proveedor</td><td>Importe</td><td width='250px'>Motivo</td></tr>")
+        Dim objCompra As New ClsCompras
 
         For Each dr As DataRow In DTLOG.Rows
 
@@ -1909,13 +1922,18 @@ Partial Class Compras_eFacturas
             Str.AppendFormat("<td style='width:80px'>{0}</td>", dr("Folio"))
             Str.AppendFormat("<td style='width:400px'>{0}</td>", If(dr("Fecha").ToString <> "", dr("Fecha").ToString.ToDate.ToShortDateString, ""))
             Str.AppendFormat("<td style='width:80px'>{0}</td>", dr("Proveedor"))
-            Str.AppendFormat("<td style='width:40px'>{0}</td>", dr("Importe").ToString.ToDouble.FormatoNumero)
+            Str.AppendFormat("<td style='width:40px'>{0}</td>", dr("Importe").ToString.ToDecimal.FormatoNumero)
             Str.AppendFormat("<td style='width:40px'>{0}</td>", dr("Motivo"))
             Str.Append("</tr>")
             conta += 1
+
+            objCompra.AddBitacoraFactura(dr("Serie").ToString, dr("Folio").ToString, dr("RFCde").ToString, dr("Motivo").ToString, dr("Estatus").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "Modulo eFacturas",
+                                         dr("Proveedor").ToString, dr("Importe").ToString.ToDecimal, dr("Tipo").ToString)
         Next
 
+        'RFCde,Estatus,Tipo
 
+        objCompra.Dispose()
 
         If DTLOG.Rows.Count > 0 Then  'si las facturas no recividas son matores a cero se muestra el mensaje
             Alert(Str.ToString, TipoMensaje.MsgInformacion)
@@ -7950,6 +7968,12 @@ Namespace ADS.eFacturas
             rowLog("Importe") = Fact.Total
             rowLog("Motivo") = ""
 
+            rowLog("RFCde") = Fact.EmisorRFC
+            rowLog("Estatus") = 0
+            rowLog("Tipo") = Fact.TipoComprobante
+
+
+
             If Registrar Then
 
                 If Fact.ReceptorRFC = RFCEmpresa Then
@@ -7963,6 +7987,8 @@ Namespace ADS.eFacturas
 
                     If Fact.RespuestaInsert >= 0 Then
 
+                        rowLog("Estatus") = 1
+
                         Dim Destino As String = $"{DirectorioEmpresa}\Compras\"
 
                         Try