Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/RepVentaDetalle.aspx.vb

@@ -811,7 +811,7 @@ Partial Class RepVentaDetalle
     Private Sub BtnDescargarPDF_Click(sender As Object, e As EventArgs) Handles BtnDescargarPDF.Click
         Dim pathPDF As String
         Dim TipoDocto As String = ""
-
+        'Dim ListaPDF As New List(Of MFacturaDescarga)
         'GENERA FACTURAS QUE NO ESTAN EN LA CARPETA
         For Each gvr As GridViewRow In GvDatos.Rows
             If gvr.DataKey("CveVenta").ToEntero > 0 Then
@@ -835,8 +835,9 @@ Partial Class RepVentaDetalle
 
                 pathPDF = Server.MapPath(String.Format("~/Empresas/{0}/PDF/{1}/{2}.pdf", UsuarioActual.CveEmpresa, TipoDocto, gvr.DataKey("SerieFolio").ToString))
 
-                If Not IO.File.Exists(pathPDF) Then
-                    GenerarFacturaVentaDEV(gvr.DataKey("CveVenta").ToEntero)
+                If Not IO.File.Exists(pathPDF) Then
+                    GenerarFacturaVentaDEV(gvr.DataKey("CveVenta").ToEntero, UsuarioActual.CveUsuario)
+                    'ListaPDF.Add(New MFacturaDescarga() With {.CveVenta = gvr.DataKey("CveVenta").ToEntero, .PDF = GenerarFacturaVentaDEV(gvr.DataKey("CveVenta").ToEntero, 100)})
                 End If
             End If
         Next
@@ -877,14 +878,14 @@ Partial Class RepVentaDetalle
         Response.ContentType = "application/zip"
         Response.End()
     End Sub
-    Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer) As Byte()
-        Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", ClsPaginas.UrlSitio, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
+    Private Function DescargarFactura(CveVenta As Integer, CveEmpresa As Integer, CveUsuarioCreo As Integer) As Byte()
+        Dim Url = New Uri(String.Format("{0}Compras/PopUpVerFactura.aspx?P={1}", "http://localhost/", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", CveVenta))))
         Dim File As Byte() = Nothing
         Try
             Using httpClient = New HttpClient()
                 httpClient.Timeout = New TimeSpan(0, 15, 0)
                 Using request = New HttpRequestMessage(HttpMethod.Get, Url)
-                    request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}", CveEmpresa, DateTime.UtcNow.Ticks)))
+                    request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CVEUSUARIO={2}", CveEmpresa, DateTime.UtcNow.Ticks, CveUsuarioCreo)))
                     Dim response = httpClient.SendAsync(request).Result
                     If response.StatusCode = Net.HttpStatusCode.OK Then
                         File = response.Content.ReadAsByteArrayAsync().Result
@@ -999,9 +1000,9 @@ Partial Class RepVentaDetalle
         GenerarPDF()
     End Sub
 
-    Private Sub GenerarFacturaVentaDEV(CveVenta As Integer)
+    Private Function GenerarFacturaVentaDEV(CveVenta As Integer, CveUsuario As Integer) As Byte()
 
-        DescargarFactura(CveVenta, UsuarioActual.CveEmpresa)
+        Return DescargarFactura(CveVenta, UsuarioActual.CveEmpresa, CveUsuario)
         'Dim ObjVentas As New ClsVentas
         'Dim Vta As Modelos.Factura = Nothing
 
@@ -1121,7 +1122,7 @@ Partial Class RepVentaDetalle
         '    Vta = Nothing
         'End If
 
-    End Sub
+    End Function
 
 #End Region
 

Ventas/Ventas.aspx.vb

@@ -6257,7 +6257,7 @@ Partial Class Ventas
         End Try
     End Sub
 
-    Private Sub EmitirImprimir()
+    Private Sub EmitirImprimir(Optional TipoDoctoViejo As String = "")
         DtRemisionesTmpDT = TmpDT.Copy
         DtPedidos2TmpDT = TmpDT.Copy
         DtCotizacionTmpDT = TmpDT.Copy
@@ -6582,7 +6582,7 @@ Partial Class Ventas
             Exit Sub
         End If
 
-        EmitirImprimirNew()
+        EmitirImprimirNew(TipoDoctoViejo)
 
     End Sub
 #End Region
@@ -6603,7 +6603,7 @@ Partial Class Ventas
         UpnTools.Update()
     End Sub
 
-    Protected Sub EmitirImprimirNew()
+    Protected Sub EmitirImprimirNew(Optional TipoDoctoViejo As String = "")
 
 
         If ValidaPagosContado() Then
@@ -6769,6 +6769,8 @@ Partial Class Ventas
                     EsNCAmortizacion = True
                 End If
 
+                Dim CveVentaAnterior As Integer = Me.CveVenta
+
                 GuardarVenta(ObjVentas, ObjConta, ObjInventario, ObjContr, ObjFactura, TmpDT, ObjFactura.CveNCaVincular, ObjContPaq, ObjBancos, ObjOS,
                              ObjEventos, ObjCGame, ObjClientes, EsNCAmortizacion:=EsNCAmortizacion)
 
@@ -6789,6 +6791,15 @@ Partial Class Ventas
                     Next
                 End If
 
+                If Not String.IsNullOrEmpty(TipoDoctoViejo) Then
+                    'SI VIENE DE UNA AUTORIZACION
+                    If TipoDoctoViejo = "PA" Then
+                        If Not ObjEventos.AddEventoBitacora(String.Format("Se generó una remisión en Folio: <a href=""/Ventas/Ventas.aspx?CveVenta={0}"" target=""_blank"">{1}</a>", ObjFactura.CveVenta, ObjFactura.SerieFolio), "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVentaAnterior) Then
+                            ErrorList.Add("Ocurrió un error al agregar la bitacora de Póliza Virtual.")
+                        End If
+                    End If
+                End If
+
                 'SI ES REFACTURACION
                 Dim ObjNC As List(Of Object) = Nothing
                 If ErrorList.Count = 0 Then
@@ -6926,8 +6937,6 @@ Partial Class Ventas
                         End If
                     End If
 
-
-
                     If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 AndAlso (SeGuardoPrePoliza Or ObjFactura.TipoDocto.Contiene("Ped", "Cot", "DPe", "PeC", "PA", "Pd2")) Then
                         ObjVentas.Commit()
 
@@ -23584,9 +23593,30 @@ Partial Class Ventas
             TxtFechaPago.Text = If(TipoDoctoViejo = "Rem" AndAlso EsDiasCreditoFijo, Now.AddDays(DiasCredito), If(DdlTipoComprobante.SelectedValue = "Rem", Now.AddDays(PlazoCobranzaRemision), Now.AddDays(PlazoCobranza))).ToShortDateString
             TxtFechaEjecucion.Text = Now.ToString
 
+            'VALIDAR QUE NO SE HAYA REMISIONADO
+            If TipoDoctoViejo = "PA" Then
+                Dim RowVenta As DataRow = Nothing
+                Dim ObjVentas As New ClsVentas
+                If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa) Then
+                    RowVenta = ObjVentas.DtResultados.Rows(0)
+                End If
+                ObjVentas.Dispose()
+
+                If RowVenta IsNot Nothing Then
+                    Dim CveEstatusAutorizacion As Integer = RowVenta("CveEstatusFactura").ToString().ToEntero()
+                    'SI LA AUTORIZACION ESTA REMISIONADA NO DEBE REMISIONAR DE NUEVO
+                    If CveEstatusAutorizacion = 18 Then
+                        Alert("La autorización ya esta remisionada")
+                        Exit Sub
+                    End If
+                Else
+                    Alert("No se encontró información de la autorización")
+                    Exit Sub
+                End If
+            End If
 
             If FolioFijo = 0 Then CargaFolios() 'RECARGA FOLIOS CON EL NUEVO TIPO DOCTO
-            EmitirImprimir() 'MANDA A EMITIR - PROCESO VIEJO
+            EmitirImprimir(TipoDoctoViejo) 'MANDA A EMITIR - PROCESO VIEJO
         End If
 
     End Sub