Ventas/Ventas.aspx.vb

@@ -6739,11 +6739,11 @@ Partial Class Ventas
                     End If
                 End If
                 'ENVIAR POLIZA VIRTUAL
-                'If ErrorList.Count = 0 Then
-                '    If UsuarioActual.Empresa.Funcionalidad(576) = "1" Then
-                '        GeneraPolizaVentaWS(ObjFactura)
-                '    End If
-                'End If
+                If ErrorList.Count = 0 Then
+                    If UsuarioActual.Empresa.Funcionalidad(576) = "1" Then
+                        GeneraPolizaVentaWS(ObjFactura)
+                    End If
+                End If
 
                 If ObjFactura.CveVenta > 0 AndAlso ErrorList.Count = 0 Then
 
@@ -23752,48 +23752,52 @@ Partial Class Ventas
             DtUsados = ObjAcum.DtResultados.Copy()
         End If
         ObjAcum.Dispose()
+        Try
+            For Each Row As DataRow In DtUsados.Rows
+                Dim obj As New Modelos.MPolizaVentaWS
+                'DATOS DEL CLIENTE
+                obj.customer_name = ObjFactura.Cliente.Nombre
+                obj.customer_last_name1 = ""
+                obj.customer_last_name2 = ""
+                obj.customer_birthday = Nothing
+                obj.customer_phone = ObjFactura.Cliente.Telefono
+                obj.customer_email = ObjFactura.Cliente.Mail
+                obj.customer_gender = "03" 'OTRO GENERO
+                obj.customer_advertising = False
+                obj.customer_car_brand = "00"
+                obj.customer_car_model = "00"
+                obj.customer_car_year = ObjFactura.Fecha.Year
 
-        For Each Row As DataRow In DtUsados.Rows
-            Dim obj As New Modelos.MPolizaVentaWS
-            'DATOS DEL CLIENTE
-            obj.customer_name = ObjFactura.Cliente.Nombre
-            obj.customer_last_name1 = ""
-            obj.customer_last_name2 = ""
-            obj.customer_birthday = Nothing
-            obj.customer_phone = ObjFactura.Cliente.Telefono
-            obj.customer_email = ObjFactura.Cliente.Mail
-            obj.customer_gender = "03" 'OTRO GENERO
-            obj.customer_advertising = False
-            obj.customer_car_brand = "00"
-            obj.customer_car_model = "00"
-            obj.customer_car_year = ObjFactura.Fecha.Year
+                'DATOS DE VENTA
+                obj.sale_date = ObjFactura.Fecha
+                obj.sale_paidby = "01"
+                obj.sale_type = "01" 'PISO 
+                obj.sale_type_service = "02" 'COMERCIAL 
+                obj.sale_total = ObjFactura.Total
+                obj.sale_discount = ObjFactura.Descuento
+                obj.sale_id = String.Format("{0}{1}{2}", ObjFactura.Serie, ObjFactura.Folio, ObjFactura.CveVenta)
 
-            'DATOS DE VENTA
-            obj.sale_date = ObjFactura.Fecha
-            obj.sale_paidby = "01"
-            obj.sale_type = "01" 'PISO 
-            obj.sale_type_service = "02" 'COMERCIAL 
-            obj.sale_total = ObjFactura.Total
-            obj.sale_discount = ObjFactura.Descuento
-            obj.sale_id = String.Format("{0}{1}{2}", ObjFactura.Serie, ObjFactura.Folio, ObjFactura.CveVenta)
+                'DATOS DEL PRODUCTO
+                obj.product_code = Row("Code17").ToString()
+                obj.product_unique_code = "" 'se indique el código único de la batería. 
+                obj.product_sale_type = "01 " 'VENTA
 
-            'DATOS DEL PRODUCTO
-            obj.product_code = Row("Code17").ToString()
-            obj.product_unique_code = "" 'se indique el código único de la batería. 
-            obj.product_sale_type = "01 " 'VENTA
+                Dim FechaUsado As DateTime = Row("FechaAjuste").ToString().ToDateTime()
 
-            Dim FechaUsado As DateTime = Row("FechaAjuste").ToString().ToDateTime()
+                'DATOS DE USADO
+                obj.used_product = True
+                obj.used_brand = Row("IdModelo").ToString() 'MARCAR DEL USADO
+                obj.used_bci = Row("CveBCIUsado").ToString() 'VALOR DEL BCI
+                obj.used_month = FechaUsado.Month
+                obj.used_year = FechaUsado.Year
+                obj.used_sale_date = FechaUsado
 
-            'DATOS DE USADO
-            obj.used_product = True
-            obj.used_brand = Row("IdModelo").ToString() 'MARCAR DEL USADO
-            obj.used_bci = Row("CveBCIUsado").ToString() 'VALOR DEL BCI
-            obj.used_month = FechaUsado.Month
-            obj.used_year = FechaUsado.Year
-            obj.used_sale_date = FechaUsado
+                EnviarPolizaVentaWS(obj)
+            Next
+        Catch ex As Exception
+            OnError("Ocurrió un error al generar la poliza virtual", ex)
+        End Try
 
-            EnviarPolizaVentaWS(obj)
-        Next
 
     End Sub