Poliza Virtual en Ventas

2020-01-22 20:06:45 -07:00
parent 98af8ea8cc
commit 8b6fad60ba
7 changed files with 301 additions and 38 deletions
--- a/App_Code/ClsAcumuladores.vb
+++ b/App_Code/ClsAcumuladores.vb
@@ -794,6 +794,69 @@ Public Class ClsAcumuladores

 #End Region

+#Region "P O L I Z A - V I R T U A L"
+    Public Function AddPolizaVirtual(CveVenta As Integer, CveVentaDetalle As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, Descuento As Decimal, Total As Decimal,
+                                     TipoServicio As Integer, TipoPoliza As Integer, CveModeloAuto As Integer, AnioVehiculo As Integer, TieneUsado As Boolean, FechaUsado As DateTime,
+                                     CvePSUsado As Integer, CveBCIUsado As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        SqlDataAdapter("PA_Vta_PolizaVirtualAdd")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@CveVentaDetalle", SqlDbType.Int).Value = CveVentaDetalle
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@Cantidad", SqlDbType.Float).Value = Cantidad
+            .Add("@PU", SqlDbType.Money).Value = PU
+            .Add("@Descuento", SqlDbType.Money).Value = Descuento
+            .Add("@Total", SqlDbType.Money).Value = Total
+            .Add("@TipoServicio", SqlDbType.Int).Value = TipoServicio
+            .Add("@TipoPoliza", SqlDbType.Int).Value = TipoPoliza
+            .Add("@CveModeloAuto", SqlDbType.Int).Value = CveModeloAuto
+            .Add("@AnioVehiculo", SqlDbType.Int).Value = AnioVehiculo
+            .Add("@TieneUsado", SqlDbType.Bit).Value = TieneUsado
+            .Add("@FechaUsado", SqlDbType.DateTime).Value = FechaUsado
+            .Add("@CvePSUsado", SqlDbType.Int).Value = CvePSUsado
+            .Add("@CveBCIUsado", SqlDbType.Int).Value = CveBCIUsado
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un al agregar la poliza virtual. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+    Public Function GetPolizasVirtuales(CveVenta As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        SqlDataAdapter("PA_Vta_PolizaVirtualGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un al obtener la poliza virtual. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+    Public Function UpdateEnvioPolizaVirutal(CvePolizaVirtual As Integer, Envio As Boolean, FechaEnvio As DateTime) As Boolean
+        Dim Retorno As Boolean = False
+        SqlDataAdapter("PA_Vta_PolizaVirtualEnvioUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePolizaVirtual", SqlDbType.Int).Value = CvePolizaVirtual
+            .Add("@Envio", SqlDbType.TinyInt).Value = Envio
+            .Add("@FechaEnvio", SqlDbType.DateTime).Value = FechaEnvio
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un al actualizar el envio de la poliza virtual. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return Retorno
+    End Function
+#End Region
+
    Public Function DistribuidorMovtosAdd(CveCliente As Integer, Cantidad As Integer, CveTamaño As Integer, CveConcepto As Integer, CveVenta As Integer, CveUsuario As Integer,
                                          CveEmpresa As Integer, ImporteCompras As Decimal, Observaciones As String, Optional CveMovimiento As Integer = -1) As Boolean
        Dim Retorno As Boolean = False
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -1347,6 +1347,13 @@ Namespace Modelos
                                Dim rowInv As DataRow = DtRecepcionUsados.Select($"CvePS={Row("CvePS").ToString.ToEntero}")(0)
                                rowInv("CveVentaDetalle") = ObjVentas.CveVentaDetalle
                            End If
+                        End If
+
+                        If DtPolizasVirtuales IsNot Nothing Then
+                            If DtPolizasVirtuales.Select($"CvePS={Row("CvePS").ToString.ToEntero}").Length > 0 Then
+                                Dim RowPoliza As DataRow = DtPolizasVirtuales.Select($"CvePS={Row("CvePS").ToString.ToEntero}")(0)
+                                RowPoliza("CveVentaDetalle") = ObjVentas.CveVentaDetalle
+                            End If
                        End If

                        'Agregamos el gasto de contrato
@@ -1376,7 +1383,7 @@ Namespace Modelos
                    End If
                Next

-                'Bonificacion Usados
+                'BONIFICACION USADOS
                If UsadosBonificacion IsNot Nothing AndAlso UsadosBonificacion.Count > 0 AndAlso TipoBonificacion > 0 Then
                    For Each CveMovto In UsadosBonificacion
                        If Not ObjAcum.DistribuidorActualizarFacturados(CveMovto, UsuarioActual.CveEmpresa, TipoBonificacion, CveVenta) Then
@@ -1385,7 +1392,7 @@ Namespace Modelos
                    Next
                End If

-                'Ajustes'
+                'AJUSTES'
                If DtAjustes IsNot Nothing AndAlso DtAjustes.Rows.Count > 0 Then
                    For Each Dr As DataRow In DtAjustes.Rows
                        If Not ObjAcum.AddGarantiasDetalle(Dr("CveVentaDetalle").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("CveFolioGarantia").ToString.ToEntero, Dr("CveTipoUso").ToString.ToEntero,
@@ -1396,7 +1403,14 @@ Namespace Modelos
                    Next
                End If

-                'Orden Produccion'
+                'POLIZA VIRTUAL
+                If factura.DtPolizasVirtuales IsNot Nothing AndAlso factura.DtPolizasVirtuales.Rows.Count > 0 Then
+                    If Not GuardarPolizasVirtuales(ObjVentas.IniciaTransacSQL(), ObjFactura:=factura) Then
+                        ErrorList.Add("Ocurrió un error al actualizar el distribuidor.")
+                    End If
+                End If
+
+                'ORDEN PRODUCCION'
                If UsuarioActual.CveEmpresa.Contiene(126) Then
                    If ObjVentas.CveVenta > 0 And factura.CveOrdenProduccion > 0 Then
                        If Not ObjCGame.UpdateOrdenProduccionVenta(factura.CveOrdenProduccion, ObjVentas.CveVenta) Then
@@ -1861,6 +1875,27 @@ Namespace Modelos

            Return Resultado

+        End Function
+        Private Function GuardarPolizasVirtuales(SqlTransaccion As SqlClient.SqlTransaction, ObjFactura As Modelos.Factura) As Boolean
+            Dim Resultado As Boolean = True
+
+            If UsuarioActual.Empresa.Funcionalidad(531).ToEntero > 0 AndAlso ObjFactura.TipoDocto.Contiene("Rem") Then
+
+                Dim ObjAcum As New ClsAcumuladores(SqlTransaccion)
+
+                For Each drow As DataRow In ObjFactura.DtPolizasVirtuales.Rows
+                    If ObjAcum.AddPolizaVirtual(ObjFactura.CveVenta, drow("CveVentaDetalle").ToString().ToEntero(), drow("CvePS").ToString.ToEntero, drow("Cantidad").ToString.ToDecimal, drow("PU").ToString.ToDecimal, drow("Descuento").ToString.ToDecimal,
+                                                drow("Total").ToString.ToDecimal, drow("TipoServicio").ToString.ToEntero, drow("TipoPoliza").ToString.ToEntero, drow("CveModeloAuto").ToString.ToEntero, drow("AnioVehiculo").ToString.ToEntero, CBool(drow("TieneUsado").ToString),
+                                                drow("FechaUsado").ToString().ToDateTime, drow("CvePSUsado").ToString.ToEntero, drow("CveBCIUsado").ToString.ToEntero) Then
+                    Else
+                        Resultado = False
+                        Exit For
+                    End If
+                Next
+            End If
+
+            Return Resultado
+
        End Function
        Private Sub GuardarVentaPrePolizas(ByRef factura As Modelos.Factura, ByRef ObjConta As ClsContabilidad, TmpDTDetalleMovimientos As DataTable, CveNCaVincular As Integer, ByRef objContPaqi As ClsContPAQi, Optional ByRef ObjBancos As ClsBancos = Nothing, ByRef Optional ObjVentas As ClsVentas = Nothing, ByRef Optional ObjEventos As ClsOIEventos = Nothing)

@@ -5131,7 +5166,8 @@ Namespace Modelos
        Public Property DtDetalle As Data.DataTable
        Public Property DtDetalleAC As Data.DataTable
        Public Property DtAjustes As Data.DataTable
-        Public Property DtRecepcionUsados As Data.DataTable
+        Public Property DtRecepcionUsados As Data.DataTable
+        Public Property DtPolizasVirtuales As Data.DataTable
        Public Property DtVentasNC As Data.DataTable
        Public Property DtDeduccion As Data.DataTable
        Public Property DtFirmas As Data.DataTable
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -9201,7 +9201,7 @@ Partial Class Clientes
        Dim Serie As String = ""

        If FolioNotaCredito(Tipo) Then
-            Folio = -1
+            Folio = FolioNotaAcumulador
            Serie = SerieNotaAcumulador
        End If

@@ -9220,8 +9220,8 @@ Partial Class Clientes
        ObjFactura.TipoDocto = "RNC"

        ObjFactura.Folio = Folio
-
        ObjFactura.Serie = Serie
+
        ObjFactura.Fecha = Now
        ObjFactura.CvePrePoliza = -1
        ObjFactura.CveMetodoPago = DdlMetodoPago.SelectedValue.ToEntero
--- a/Ventas/PV.aspx
+++ b/Ventas/PV.aspx
@@ -2664,12 +2664,30 @@
                                                    <div id="DivRecepcionUsados" runat="server">

                                                        <div class="row">
-                                                            <div class="col-md-5">
+                                                            <div class="col-md-6">
                                                                <label>Modelo:</label>
                                                                <br />
                                                                <asp:DropDownList ID="DdlModeloAuto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ModeloMarca" DataValueField="CveModeloAuto">
                                                                </asp:DropDownList>
                                                            </div>
+                                                            <div class="col-md-6">
+                                                                <label>Año:</label>
+                                                                <br />
+                                                                <asp:TextBox ID="TxtAnioVehiculo" runat="server" Height="100%" Width="100%" CssClass="form-control" CausesValidation="true" MaxLength="500"></asp:TextBox>
+                                                             </div>
+                                                        </div>
+                                                        <div class ="row">
+                                                            <div class="col-md-6">
+                                                                <label>Tipo Servicio:</label>
+                                                                <br />
+                                                                <asp:DropDownList ID="DdlTipoServicio" CssClass="form-control input-sm select2me" runat="server" CausesValidation="true">
+                                                                    <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                                    <asp:ListItem Text="Particular" Value="1"></asp:ListItem>
+                                                                    <asp:ListItem Text="Comercial" Value="2"></asp:ListItem>
+                                                                    <asp:ListItem Text="Taxi" Value="3"></asp:ListItem>
+                                                                </asp:DropDownList>
+                                                            </div>
+                                                            <div class="col-md-6"></div>
                                                        </div>

                                                        <br />
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -859,6 +859,14 @@ Partial Class PV
            ViewState("TmpDTRecepcionUsados") = value
        End Set
    End Property
+    Private Property TmpDTPolizaVirtual As DataTable
+        Get
+            Return If(IsNothing(ViewState("TmpDTPolizaVirtual")), Nothing, CType(ViewState("TmpDTPolizaVirtual"), DataTable))
+        End Get
+        Set(value As DataTable)
+            ViewState("TmpDTPolizaVirtual") = value
+        End Set
+    End Property
    Private Property TmpDTImpuestos As DataTable
        Get
            Return If(IsNothing(ViewState("TmpDTImpuestos")), Nothing, CType(ViewState("TmpDTImpuestos"), DataTable))
@@ -2547,6 +2555,8 @@ Partial Class PV

        ObjFactura.DtRecepcionUsados = TmpDTRecepcionUsados

+        ObjFactura.DtPolizasVirtuales = TmpDTPolizaVirtual
+
        ObjFactura.GenerarPDFFactura = False

        Dim CveTipoAlmacen As Integer = If(TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0, 6, 22)
@@ -3734,13 +3744,14 @@ Partial Class PV
        ChkAgregar.Checked = False
        divagregrarotrops.Visible = False
        Ajuste()
+        AddPolizaVirtual(DdlPS.SelectedValue.ToEntero())
        UpVenta.Update()
        RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddVenta"), "EdicionVenta")
    End Sub
    Protected Sub LnkAgregarPS_Click(sender As Object, e As EventArgs)
        If AgregarPS() Then
            If ChkAjuste.Checked Then GuardaAjuste()
-
+            AddPolizaVirtual(DdlPS.SelectedValue.ToEntero())
            CalculaTotalesVenta()

            If ChkAgregar.Checked = True And Modalidad = "A" Then
@@ -5053,6 +5064,7 @@ Partial Class PV

        CreaDTmpDTAjustes()
        CreaDTmpDTRecepcionUsados()
+        CreaDTmpDTPolizaVirtual()
        CargaBCIAjuste()
        DdlDistribuidor.setEsWebService(True)
        DivChkAjuste.Visible = True
@@ -5478,6 +5490,101 @@ Partial Class PV

 #End Region

+#Region "P O L I Z A - V I R T U A L"
+    Private Sub CreaDTmpDTPolizaVirtual()
+        TmpDTPolizaVirtual = New DataTable
+        TmpDTPolizaVirtual.Columns.Add("CvePS", GetType(Integer))
+        TmpDTPolizaVirtual.Columns.Add("Cantidad", GetType(Decimal))
+        TmpDTPolizaVirtual.Columns.Add("PU", GetType(Decimal))
+        TmpDTPolizaVirtual.Columns.Add("Descuento", GetType(Decimal))
+        TmpDTPolizaVirtual.Columns.Add("Total", GetType(Decimal))
+        TmpDTPolizaVirtual.Columns.Add("CveVentaDetalle", GetType(Integer))
+        TmpDTPolizaVirtual.Columns.Add("TipoServicio", GetType(Integer))
+        TmpDTPolizaVirtual.Columns.Add("TipoPoliza", GetType(Integer))
+        TmpDTPolizaVirtual.Columns.Add("CveModeloAuto", GetType(Integer))
+        TmpDTPolizaVirtual.Columns.Add("AnioVehiculo", GetType(Integer))
+        TmpDTPolizaVirtual.Columns.Add("TieneUsado", GetType(Boolean))
+        TmpDTPolizaVirtual.Columns.Add("FechaUsado", GetType(DateTime))
+        TmpDTPolizaVirtual.Columns.Add("CvePSUsado", GetType(Integer))
+        TmpDTPolizaVirtual.Columns.Add("CveBCIUsado", GetType(Integer))
+    End Sub
+    Private Function AddPolizaVirtual(CvePS As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        'Dim CvePS As Integer = DdlPS.SelectedValue.ToEntero()
+        Dim Cantidad As Decimal = TxtCantidad.Text.ToDecimal()
+        Dim PU As Decimal = TxtPrecio.Text.ToDecimal()
+        Dim Descuento As Decimal = TxtDescuento.Text.ToDecimal()
+        Dim ImporteAjuste As Decimal = TxtImporteAjuste.Text.ToDecimal().RoundSQL(2)
+
+        If Modalidad = "U" Then
+            If TmpDTRecepcionUsados.Rows.Count > 0 Then
+                Dim Elimino As Boolean = False
+                For Each RowPoliza As DataRow In TmpDTPolizaVirtual.Rows
+                    If RowPoliza("CvePS").ToString().ToEntero() = CvePS Then
+                        RowPoliza.Delete()
+                        Elimino = True
+                    End If
+                Next
+                If Elimino Then
+                    TmpDTRecepcionUsados.AcceptChanges()
+                End If
+            End If
+        End If
+
+        Dim Total As Decimal = ((Cantidad * PU) - Descuento).RoundSQL(2)
+        Dim TipoServicio As Integer = DdlTipoServicio.SelectedValue.ToEntero()
+        Dim FechaUsado As DateTime = TxtFechaAjuste.Text.ToDateTime()
+        Dim CveModeloAuto As Integer = DdlModeloAuto.SelectedValue.ToEntero()
+        Dim AnioVehiculo As Integer = TxtAnioVehiculo.Text.ToEntero()
+        Dim TipoPoliza As Integer = 1
+
+        If ChkAjuste.Checked Then
+            If Total = ImporteAjuste Then
+                TipoPoliza = 3
+            Else
+                TipoPoliza = 2
+            End If
+        End If
+
+        Dim TieneUsado As Boolean = GvRecepcionUsados.Rows.Cast(Of GridViewRow).Any(Function(GvRow) GvRow.RowType = DataControlRowType.DataRow AndAlso GvRow.FCTextBox("TxtCantidad").Text.ToDecimal() > 0)
+        Dim CvePSUsado As Integer = -1
+        Dim CveBCIUsado As Integer = -1
+
+        If TieneUsado Then
+            For Each GvRow As GridViewRow In GvRecepcionUsados.Rows
+                If GvRow.RowType = DataControlRowType.DataRow Then
+                    If GvRow.FCTextBox("TxtCantidad").Text.ToDecimal() > 0 Then
+                        CvePS = GvRow.DataKey("CvePSCargo").ToEntero()
+                        CveBCIUsado = GvRow.FCDropDownList("DdlBCIUsado").SelectedValue.ToEntero()
+
+                        Exit For
+                    End If
+                End If
+            Next
+        End If
+
+        Dim Row As DataRow = TmpDTPolizaVirtual.NewRow()
+        Row("CvePS") = CvePS
+        Row("Cantidad") = Cantidad
+        Row("PU") = PU
+        Row("Descuento") = Descuento
+        Row("Total") = Total
+        Row("CveVentaDetalle") = -1
+        Row("TipoServicio") = TipoServicio
+        Row("TipoPoliza") = TipoPoliza
+        Row("CveModeloAuto") = CveModeloAuto
+        Row("AnioVehiculo") = AnioVehiculo
+        Row("TieneUsado") = TieneUsado
+        Row("FechaUsado") = FechaUsado
+        Row("CvePSUsado") = CvePSUsado
+        Row("CveBCIUsado") = CveBCIUsado
+
+        TmpDTPolizaVirtual.Rows.Add(Row)
+
+        Return Retorno
+    End Function
+#End Region
 #Region "U S A D O S"

    Private Sub CreaDTmpDTRecepcionUsados()
@@ -5492,6 +5599,7 @@ Partial Class PV
        TmpDTRecepcionUsados.Columns.Add("CveModeloAuto", GetType(Integer))
    End Sub

+
    Protected Sub BtnRecepcionUsados_Click(sender As Object, e As EventArgs)

        'CalculaRecepcionUsados(GvRecepcionUsadosModal)
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -356,6 +356,9 @@
            <li>
                <asp:LinkButton runat="server" ID="LnkImprimirFormatoCicovisa" Visible="false" OnClick="LnkImprimirFormatoCicovisa_Click">Imprimir Formato Cicovisa</asp:LinkButton>
            </li>
+            <li>
+                <asp:LinkButton runat="server" ID="LnkEnviarPolizaVirtual" Visible="false" OnClick="LnkEnviarPolizaVirtual_Click">Enviar Poliza Virtual</asp:LinkButton>
+            </li>
        </ContentTemplate>
        <Triggers>
            <asp:AsyncPostBackTrigger ControlID="LnkImprimir" EventName="Click" />
@@ -1301,7 +1304,7 @@
                                                                        <ContentTemplate>
                                                                            <div class="col-md-12">
                                                                                <asp:GridView ID="GvCodigosUnicos" runat="server" CssClass="table table-striped table-hover Widthall" AutoGenerateColumns="False" 
-                                                                                    DataKeyNames="SerieLote,IdProductoPolizaVirtual,FechaAjuste,IdModelo,IdBCI" ClientIDMode="Static" EmptyDataText="" GridLines="None">
+                                                                                    DataKeyNames="CvePolizaVirtual,SerieLote,IdProductoPolizaVirtual,Total,Descuento,AnioVehiculo,FechaUsado,IdModeloAuto,IdMarcaAuto,IdBCI,TipoServicio,TipoPoliza,TieneUsado" ClientIDMode="Static" EmptyDataText="" GridLines="None">
                                                                                    <Columns>
                                                                                        <asp:TemplateField HeaderText="Código Único">
                                                                                            <ItemTemplate>
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -23931,11 +23931,20 @@ Partial Class Ventas

 #Region "P O L I Z A - V I R T U A L"
    Private Sub CargaCodigoUnico()
-        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Rem" Then
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Rem") Then
            Dim ObjAcum As New ClsAcumuladores
-            If ObjAcum.GetGarantiasPolizaVirtual(Me.CveVenta, UsuarioActual.CveEmpresa) AndAlso ObjAcum.DtResultados.Rows.Count > 0 Then
-                GvCodigosUnicos.DataSource = ObjAcum.DtResultados
-                DivCodigosUnicos.Visible = True
+            If ObjAcum.GetPolizasVirtuales(Me.CveVenta) AndAlso ObjAcum.DtResultados.Rows.Count > 0 Then
+                Dim RowPoliza As DataRow = ObjAcum.DtResultados.Rows(0)
+
+                If DdlTipoComprobante.SelectedValue.Contiene("Rem") Then
+                    GvCodigosUnicos.DataSource = ObjAcum.DtResultados
+                    DivCodigosUnicos.Visible = True
+                End If
+
+                If Not CBool(RowPoliza("Enviada").ToString()) Then
+                    LnkEnviarPolizaVirtual.Visible = True
+                End If
+
            End If
            ObjAcum.Dispose()
            GvCodigosUnicos.DataBind()
@@ -23943,47 +23952,56 @@ Partial Class Ventas
    End Sub
    Protected Sub GeneraPolizaVentaWS(ObjFactura As Modelos.Factura)
        Try
+            'TipoPoliza: 01 Venta, 02 Ajuste, 03 Garantía
+            Dim TipoPoliza As Integer = 0
            For Each Row As GridViewRow In GvCodigosUnicos.Rows
                If Row.RowType = DataControlRowType.DataRow Then
+                    Dim CvePolizaVirtual As Integer = Row.DataKey("CvePolizaVirtual").ToEntero()
+
                    Dim obj As New Modelos.MPolizaVentaWS
                    'DATOS DEL CLIENTE
                    obj.customer_name = ObjFactura.Cliente.Nombre
-                    obj.customer_last_name1 = ""
+                    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
+                    obj.customer_car_brand = Row.DataKey("IdMarcaAuto").ToString().Trim()
+                    obj.customer_car_model = Row.DataKey("IdModeloAuto").ToString().Trim()
+                    obj.customer_car_year = Row.DataKey("AnioVehiculo").ToString().ToEntero()

                    '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)
+                    obj.sale_type_service = "0" & Row.DataKey("TipoServicio").ToString().Trim()
+                    obj.sale_total = Row.DataKey("Total").ToString().ToDecimal()
+                    obj.sale_discount = Row.DataKey("Descuento").ToString().ToDecimal()
+                    obj.sale_id = ObjFactura.CveVenta.ToString

                    'DATOS DEL PRODUCTO
-                    obj.product_code = Row.DataKey("IdProductoPolizaVirtual").ToString()
-                    obj.product_unique_code = Row.FCTextBox("TxtCodigoUnico").Text 'se indique el código único de la batería. (SERIE LOTE)
-                    obj.product_sale_type = "01 " 'VENTA
-
-                    Dim FechaUsado As DateTime = Row.DataKey("FechaAjuste").ToString().ToDateTime()
+                    obj.product_code = Row.DataKey("IdProductoPolizaVirtual").ToString().Trim()
+                    obj.product_unique_code = Row.FCTextBox("TxtCodigoUnico").Text.Trim() 'se indique el código único de la batería. (SERIE LOTE)
+                    obj.product_sale_type = "0" & Row.DataKey("TipoPoliza").ToString().Trim()

                    'DATOS DE USADO
-                    obj.used_product = True
-                    obj.used_brand = Row.DataKey("IdModelo").ToString() 'MARCAR DEL USADO
-                    obj.used_bci = Row.DataKey("IdBCI").ToString() 'VALOR DEL BCI
-                    obj.used_month = FechaUsado.Month
-                    obj.used_year = FechaUsado.Year
-                    obj.used_sale_date = FechaUsado
+                    obj.used_product = CBool(Row.DataKey("TieneUsado").ToString())
+
+                    If obj.used_product Then
+                        Dim FechaUsado As DateTime = Row.DataKey("FechaUsado").ToString().ToDateTime()
+
+                        obj.used_brand = Row.DataKey("IdModelo").ToString().Trim() 'MARCAR DEL USADO
+                        obj.used_bci = Row.DataKey("IdBCI").ToString().Trim() 'VALOR DEL BCI
+                        obj.used_month = FechaUsado.Month
+                        obj.used_year = FechaUsado.Year
+                        obj.used_sale_date = FechaUsado
+                    End If
+
+
+                    EnviarPolizaVentaWS(obj, CvePolizaVirtual)

-                    EnviarPolizaVentaWS(obj)
                End If
            Next
        Catch ex As Exception
@@ -23993,11 +24011,11 @@ Partial Class Ventas

    End Sub

-    Protected Function EnviarPolizaVentaWS(obj As Modelos.MPolizaVentaWS) As Boolean
+    Protected Function EnviarPolizaVentaWS(obj As Modelos.MPolizaVentaWS, CvePolizaVirtual As Integer) As Boolean
        Dim Retorno As Boolean = False
        Dim Respuesta As String = "[]"

-        Dim User As String = "cslth.2809@jcilink.com"
+        Dim User As String = "cslth.7777@lth.com"
        Dim Password As String = "ff31580a95f36b51ad27f970428b77a5a9245076"

        Try
@@ -24044,13 +24062,22 @@ Partial Class Ventas
                Dim resp = JArray.Parse(Respuesta)

                If resp.Count > 0 Then
-                    Dim Msg = resp(0)("Descripcion").ToString()
+                    Dim Msg As New StringBuilder()
+                    Msg.AppendFormat("Mensaje Poliza Virtual: {0}", resp(0)("Descripcion").ToString())

                    If resp(0)("Codigo").ToString().Contiene("500", "501", "502", "503", "504", "505", "506", "507", "508") Then
-                        Alert(Msg, TipoMensaje.MsgInformacion)
                        Retorno = True
+                        Dim ObjAcum As New ClsAcumuladores
+                        If ObjAcum.UpdateEnvioPolizaVirutal(CvePolizaVirtual, True, Now) Then
+                            Alert(Msg.ToString(), TipoMensaje.MsgInformacion)
+                        End If
+                        ObjAcum.Dispose()
                    Else
-                        Alert(Msg, TipoMensaje.MsgAdvertencia)
+                        Dim ObjAcum As New ClsAcumuladores
+                        If ObjAcum.UpdateEnvioPolizaVirutal(CvePolizaVirtual, False, Now) Then
+                            Alert(Msg.ToString(), TipoMensaje.MsgAdvertencia)
+                        End If
+                        ObjAcum.Dispose()
                    End If
                Else
                    Alert("No se envió la poliza virtual", TipoMensaje.MsgAdvertencia)
@@ -24064,6 +24091,13 @@ Partial Class Ventas

        Return Retorno
    End Function
+
+    Protected Sub LnkEnviarPolizaVirtual_Click(sender As Object, e As EventArgs)
+        If UsuarioActual.Empresa.Funcionalidad(576) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contains("Rem") Then
+            CreaObjetosVenta()
+            GeneraPolizaVentaWS(ObjFactura)
+        End If
+    End Sub
 #End Region

    Protected Sub DdlTipoRetencion_SelectedIndexChanged(sender As Object, e As EventArgs)
@@ -24102,4 +24136,5 @@ Partial Class Ventas
        End If
    End Sub

+
 End Class